/* Generated from core.scm by the CHICKEN compiler
   http://www.call-cc.org
   Version 6.0.0 (rev eeeb4bfb)
   openbsd-unix-clang-x86-64 [ 64bit dload ptables ]
   command line: core.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -feature debugbuild -verbose -specialize -consult-types-file ./types.db -no-lambda-info -emit-import-library chicken.compiler.core -output-file core.c
   unit: compiler
   uses: expand data-structures pathname internal extras file eval support scrutinizer library
*/
#include "chicken.h"

static C_word code_821() { C_clear_trace_buffer();
; return C_SCHEME_UNDEFINED; }


static C_PTABLE_ENTRY *create_ptable(void);
C_noret_decl(C_expand_toplevel)
C_extern void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_data_2dstructures_toplevel)
C_extern void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_pathname_toplevel)
C_extern void C_ccall C_pathname_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_internal_toplevel)
C_extern void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_extras_toplevel)
C_extern void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_file_toplevel)
C_extern void C_ccall C_file_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_eval_toplevel)
C_extern void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_support_toplevel)
C_extern void C_ccall C_support_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_scrutinizer_toplevel)
C_extern void C_ccall C_scrutinizer_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(C_library_toplevel)
C_extern void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret;

static C_word lf[709];
static double C_possibly_force_alignment;


C_noret_decl(f26538)
static void C_ccall f26538(C_word c,C_word *av) C_noret;
C_noret_decl(f27239)
static void C_ccall f27239(C_word c,C_word *av) C_noret;
C_noret_decl(f_10023)
static void f_10023(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10048)
static void C_ccall f_10048(C_word c,C_word *av) C_noret;
C_noret_decl(f_10068)
static void f_10068(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10076)
static void C_ccall f_10076(C_word c,C_word *av) C_noret;
C_noret_decl(f_10084)
static void C_ccall f_10084(C_word c,C_word *av) C_noret;
C_noret_decl(f_10087)
static void C_ccall f_10087(C_word c,C_word *av) C_noret;
C_noret_decl(f_10092)
static void C_ccall f_10092(C_word c,C_word *av) C_noret;
C_noret_decl(f_10097)
static void C_ccall f_10097(C_word c,C_word *av) C_noret;
C_noret_decl(f_10107)
static void C_ccall f_10107(C_word c,C_word *av) C_noret;
C_noret_decl(f_10112)
static void f_10112(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10137)
static void C_ccall f_10137(C_word c,C_word *av) C_noret;
C_noret_decl(f_10158)
static void C_ccall f_10158(C_word c,C_word *av) C_noret;
C_noret_decl(f_10163)
static void C_ccall f_10163(C_word c,C_word *av) C_noret;
C_noret_decl(f_10173)
static void C_ccall f_10173(C_word c,C_word *av) C_noret;
C_noret_decl(f_10176)
static void C_ccall f_10176(C_word c,C_word *av) C_noret;
C_noret_decl(f_10182)
static void C_ccall f_10182(C_word c,C_word *av) C_noret;
C_noret_decl(f_10185)
static void C_ccall f_10185(C_word c,C_word *av) C_noret;
C_noret_decl(f_10188)
static void C_ccall f_10188(C_word c,C_word *av) C_noret;
C_noret_decl(f_10194)
static void C_ccall f_10194(C_word c,C_word *av) C_noret;
C_noret_decl(f_10203)
static void f_10203(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10209)
static void C_ccall f_10209(C_word c,C_word *av) C_noret;
C_noret_decl(f_10216)
static void C_ccall f_10216(C_word c,C_word *av) C_noret;
C_noret_decl(f_10247)
static void C_ccall f_10247(C_word c,C_word *av) C_noret;
C_noret_decl(f_10258)
static void C_ccall f_10258(C_word c,C_word *av) C_noret;
C_noret_decl(f_10260)
static void C_ccall f_10260(C_word c,C_word *av) C_noret;
C_noret_decl(f_10264)
static void C_ccall f_10264(C_word c,C_word *av) C_noret;
C_noret_decl(f_10268)
static void C_ccall f_10268(C_word c,C_word *av) C_noret;
C_noret_decl(f_10271)
static void C_ccall f_10271(C_word c,C_word *av) C_noret;
C_noret_decl(f_10277)
static void C_ccall f_10277(C_word c,C_word *av) C_noret;
C_noret_decl(f_10281)
static void C_ccall f_10281(C_word c,C_word *av) C_noret;
C_noret_decl(f_10286)
static void C_ccall f_10286(C_word c,C_word *av) C_noret;
C_noret_decl(f_10291)
static void C_ccall f_10291(C_word c,C_word *av) C_noret;
C_noret_decl(f_10299)
static void f_10299(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10303)
static void C_ccall f_10303(C_word c,C_word *av) C_noret;
C_noret_decl(f_10316)
static void C_ccall f_10316(C_word c,C_word *av) C_noret;
C_noret_decl(f_10321)
static void C_ccall f_10321(C_word c,C_word *av) C_noret;
C_noret_decl(f_10325)
static void C_ccall f_10325(C_word c,C_word *av) C_noret;
C_noret_decl(f_10328)
static void C_ccall f_10328(C_word c,C_word *av) C_noret;
C_noret_decl(f_10333)
static void C_ccall f_10333(C_word c,C_word *av) C_noret;
C_noret_decl(f_10335)
static void f_10335(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10360)
static void C_ccall f_10360(C_word c,C_word *av) C_noret;
C_noret_decl(f_10370)
static void C_ccall f_10370(C_word c,C_word *av) C_noret;
C_noret_decl(f_10375)
static void C_ccall f_10375(C_word c,C_word *av) C_noret;
C_noret_decl(f_10383)
static void C_ccall f_10383(C_word c,C_word *av) C_noret;
C_noret_decl(f_10385)
static void C_ccall f_10385(C_word c,C_word *av) C_noret;
C_noret_decl(f_10397)
static void C_ccall f_10397(C_word c,C_word *av) C_noret;
C_noret_decl(f_10402)
static void C_ccall f_10402(C_word c,C_word *av) C_noret;
C_noret_decl(f_10406)
static void C_ccall f_10406(C_word c,C_word *av) C_noret;
C_noret_decl(f_10410)
static void C_ccall f_10410(C_word c,C_word *av) C_noret;
C_noret_decl(f_10413)
static void C_ccall f_10413(C_word c,C_word *av) C_noret;
C_noret_decl(f_10419)
static void C_ccall f_10419(C_word c,C_word *av) C_noret;
C_noret_decl(f_10423)
static void C_ccall f_10423(C_word c,C_word *av) C_noret;
C_noret_decl(f_10433)
static void C_ccall f_10433(C_word c,C_word *av) C_noret;
C_noret_decl(f_10439)
static void C_ccall f_10439(C_word c,C_word *av) C_noret;
C_noret_decl(f_10443)
static void C_ccall f_10443(C_word c,C_word *av) C_noret;
C_noret_decl(f_10446)
static void C_ccall f_10446(C_word c,C_word *av) C_noret;
C_noret_decl(f_10464)
static void C_ccall f_10464(C_word c,C_word *av) C_noret;
C_noret_decl(f_10468)
static void C_ccall f_10468(C_word c,C_word *av) C_noret;
C_noret_decl(f_10472)
static void C_ccall f_10472(C_word c,C_word *av) C_noret;
C_noret_decl(f_10487)
static void C_ccall f_10487(C_word c,C_word *av) C_noret;
C_noret_decl(f_10491)
static void C_ccall f_10491(C_word c,C_word *av) C_noret;
C_noret_decl(f_10493)
static void f_10493(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10547)
static void C_ccall f_10547(C_word c,C_word *av) C_noret;
C_noret_decl(f_10551)
static void C_ccall f_10551(C_word c,C_word *av) C_noret;
C_noret_decl(f_10566)
static void C_ccall f_10566(C_word c,C_word *av) C_noret;
C_noret_decl(f_10569)
static void C_ccall f_10569(C_word c,C_word *av) C_noret;
C_noret_decl(f_10572)
static void C_ccall f_10572(C_word c,C_word *av) C_noret;
C_noret_decl(f_10576)
static C_word f_10576(C_word t0,C_word t1);
C_noret_decl(f_10595)
static void C_ccall f_10595(C_word c,C_word *av) C_noret;
C_noret_decl(f_10599)
static void C_ccall f_10599(C_word c,C_word *av) C_noret;
C_noret_decl(f_10603)
static void C_ccall f_10603(C_word c,C_word *av) C_noret;
C_noret_decl(f_10606)
static void C_ccall f_10606(C_word c,C_word *av) C_noret;
C_noret_decl(f_10612)
static void C_ccall f_10612(C_word c,C_word *av) C_noret;
C_noret_decl(f_10620)
static void C_ccall f_10620(C_word c,C_word *av) C_noret;
C_noret_decl(f_10626)
static void C_ccall f_10626(C_word c,C_word *av) C_noret;
C_noret_decl(f_10630)
static void C_ccall f_10630(C_word c,C_word *av) C_noret;
C_noret_decl(f_10633)
static void C_ccall f_10633(C_word c,C_word *av) C_noret;
C_noret_decl(f_10636)
static C_word f_10636(C_word t0,C_word t1);
C_noret_decl(f_10661)
static void C_ccall f_10661(C_word c,C_word *av) C_noret;
C_noret_decl(f_10663)
static void f_10663(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10704)
static void C_ccall f_10704(C_word c,C_word *av) C_noret;
C_noret_decl(f_10707)
static void C_ccall f_10707(C_word c,C_word *av) C_noret;
C_noret_decl(f_10710)
static void f_10710(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10713)
static void C_ccall f_10713(C_word c,C_word *av) C_noret;
C_noret_decl(f_10716)
static void C_ccall f_10716(C_word c,C_word *av) C_noret;
C_noret_decl(f_10719)
static void C_ccall f_10719(C_word c,C_word *av) C_noret;
C_noret_decl(f_10722)
static void C_ccall f_10722(C_word c,C_word *av) C_noret;
C_noret_decl(f_10744)
static void C_ccall f_10744(C_word c,C_word *av) C_noret;
C_noret_decl(f_10748)
static void C_ccall f_10748(C_word c,C_word *av) C_noret;
C_noret_decl(f_10752)
static void C_ccall f_10752(C_word c,C_word *av) C_noret;
C_noret_decl(f_10766)
static void C_ccall f_10766(C_word c,C_word *av) C_noret;
C_noret_decl(f_10797)
static void C_ccall f_10797(C_word c,C_word *av) C_noret;
C_noret_decl(f_10819)
static void C_ccall f_10819(C_word c,C_word *av) C_noret;
C_noret_decl(f_10822)
static void f_10822(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10825)
static void C_ccall f_10825(C_word c,C_word *av) C_noret;
C_noret_decl(f_10873)
static void C_ccall f_10873(C_word c,C_word *av) C_noret;
C_noret_decl(f_10877)
static void C_ccall f_10877(C_word c,C_word *av) C_noret;
C_noret_decl(f_10881)
static void C_ccall f_10881(C_word c,C_word *av) C_noret;
C_noret_decl(f_10889)
static void C_ccall f_10889(C_word c,C_word *av) C_noret;
C_noret_decl(f_10899)
static void f_10899(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10903)
static void C_ccall f_10903(C_word c,C_word *av) C_noret;
C_noret_decl(f_10906)
static void C_ccall f_10906(C_word c,C_word *av) C_noret;
C_noret_decl(f_10913)
static void f_10913(C_word t0,C_word t1) C_noret;
C_noret_decl(f_10917)
static void C_ccall f_10917(C_word c,C_word *av) C_noret;
C_noret_decl(f_10927)
static void C_ccall f_10927(C_word c,C_word *av) C_noret;
C_noret_decl(f_10931)
static void C_ccall f_10931(C_word c,C_word *av) C_noret;
C_noret_decl(f_10935)
static void C_ccall f_10935(C_word c,C_word *av) C_noret;
C_noret_decl(f_10956)
static void C_ccall f_10956(C_word c,C_word *av) C_noret;
C_noret_decl(f_10959)
static void C_ccall f_10959(C_word c,C_word *av) C_noret;
C_noret_decl(f_10967)
static void C_ccall f_10967(C_word c,C_word *av) C_noret;
C_noret_decl(f_10989)
static void f_10989(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_10999)
static void C_ccall f_10999(C_word c,C_word *av) C_noret;
C_noret_decl(f_11012)
static void C_ccall f_11012(C_word c,C_word *av) C_noret;
C_noret_decl(f_11020)
static void C_ccall f_11020(C_word c,C_word *av) C_noret;
C_noret_decl(f_11026)
static void C_ccall f_11026(C_word c,C_word *av) C_noret;
C_noret_decl(f_11048)
static void f_11048(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11058)
static void C_ccall f_11058(C_word c,C_word *av) C_noret;
C_noret_decl(f_11071)
static void f_11071(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11096)
static void C_ccall f_11096(C_word c,C_word *av) C_noret;
C_noret_decl(f_11139)
static void C_ccall f_11139(C_word c,C_word *av) C_noret;
C_noret_decl(f_11151)
static void C_ccall f_11151(C_word c,C_word *av) C_noret;
C_noret_decl(f_11153)
static void C_ccall f_11153(C_word c,C_word *av) C_noret;
C_noret_decl(f_11167)
static void f_11167(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11192)
static void C_ccall f_11192(C_word c,C_word *av) C_noret;
C_noret_decl(f_11208)
static void C_ccall f_11208(C_word c,C_word *av) C_noret;
C_noret_decl(f_11217)
static void f_11217(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11220)
static void C_ccall f_11220(C_word c,C_word *av) C_noret;
C_noret_decl(f_11223)
static void C_ccall f_11223(C_word c,C_word *av) C_noret;
C_noret_decl(f_11226)
static void C_ccall f_11226(C_word c,C_word *av) C_noret;
C_noret_decl(f_11229)
static void C_ccall f_11229(C_word c,C_word *av) C_noret;
C_noret_decl(f_11232)
static void C_ccall f_11232(C_word c,C_word *av) C_noret;
C_noret_decl(f_11235)
static void f_11235(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11242)
static void C_ccall f_11242(C_word c,C_word *av) C_noret;
C_noret_decl(f_11250)
static void C_ccall f_11250(C_word c,C_word *av) C_noret;
C_noret_decl(f_11256)
static void f_11256(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11259)
static void C_ccall f_11259(C_word c,C_word *av) C_noret;
C_noret_decl(f_11262)
static void C_ccall f_11262(C_word c,C_word *av) C_noret;
C_noret_decl(f_11267)
static void C_ccall f_11267(C_word c,C_word *av) C_noret;
C_noret_decl(f_11271)
static void C_ccall f_11271(C_word c,C_word *av) C_noret;
C_noret_decl(f_11274)
static void C_ccall f_11274(C_word c,C_word *av) C_noret;
C_noret_decl(f_11278)
static void C_ccall f_11278(C_word c,C_word *av) C_noret;
C_noret_decl(f_11282)
static void C_ccall f_11282(C_word c,C_word *av) C_noret;
C_noret_decl(f_11285)
static void C_ccall f_11285(C_word c,C_word *av) C_noret;
C_noret_decl(f_11288)
static void C_ccall f_11288(C_word c,C_word *av) C_noret;
C_noret_decl(f_11297)
static void C_ccall f_11297(C_word c,C_word *av) C_noret;
C_noret_decl(f_11302)
static void f_11302(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11309)
static void C_ccall f_11309(C_word c,C_word *av) C_noret;
C_noret_decl(f_11317)
static void f_11317(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11342)
static void C_ccall f_11342(C_word c,C_word *av) C_noret;
C_noret_decl(f_11355)
static void C_ccall f_11355(C_word c,C_word *av) C_noret;
C_noret_decl(f_11359)
static void C_ccall f_11359(C_word c,C_word *av) C_noret;
C_noret_decl(f_11362)
static void C_ccall f_11362(C_word c,C_word *av) C_noret;
C_noret_decl(f_11365)
static void C_ccall f_11365(C_word c,C_word *av) C_noret;
C_noret_decl(f_11368)
static void C_ccall f_11368(C_word c,C_word *av) C_noret;
C_noret_decl(f_11387)
static void C_ccall f_11387(C_word c,C_word *av) C_noret;
C_noret_decl(f_11390)
static void C_ccall f_11390(C_word c,C_word *av) C_noret;
C_noret_decl(f_11400)
static void C_ccall f_11400(C_word c,C_word *av) C_noret;
C_noret_decl(f_11402)
static void f_11402(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11413)
static void C_ccall f_11413(C_word c,C_word *av) C_noret;
C_noret_decl(f_11427)
static void C_ccall f_11427(C_word c,C_word *av) C_noret;
C_noret_decl(f_11431)
static void C_ccall f_11431(C_word c,C_word *av) C_noret;
C_noret_decl(f_11434)
static void C_ccall f_11434(C_word c,C_word *av) C_noret;
C_noret_decl(f_11437)
static void C_ccall f_11437(C_word c,C_word *av) C_noret;
C_noret_decl(f_11440)
static void C_ccall f_11440(C_word c,C_word *av) C_noret;
C_noret_decl(f_11444)
static void C_ccall f_11444(C_word c,C_word *av) C_noret;
C_noret_decl(f_11448)
static void C_ccall f_11448(C_word c,C_word *av) C_noret;
C_noret_decl(f_11452)
static void C_ccall f_11452(C_word c,C_word *av) C_noret;
C_noret_decl(f_11456)
static void C_ccall f_11456(C_word c,C_word *av) C_noret;
C_noret_decl(f_11459)
static void C_ccall f_11459(C_word c,C_word *av) C_noret;
C_noret_decl(f_11462)
static void C_ccall f_11462(C_word c,C_word *av) C_noret;
C_noret_decl(f_11465)
static void C_ccall f_11465(C_word c,C_word *av) C_noret;
C_noret_decl(f_11468)
static void C_ccall f_11468(C_word c,C_word *av) C_noret;
C_noret_decl(f_11483)
static void C_ccall f_11483(C_word c,C_word *av) C_noret;
C_noret_decl(f_11489)
static void C_ccall f_11489(C_word c,C_word *av) C_noret;
C_noret_decl(f_11499)
static void f_11499(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_11509)
static void C_ccall f_11509(C_word c,C_word *av) C_noret;
C_noret_decl(f_11514)
static void C_ccall f_11514(C_word c,C_word *av) C_noret;
C_noret_decl(f_11520)
static void C_ccall f_11520(C_word c,C_word *av) C_noret;
C_noret_decl(f_11526)
static void C_ccall f_11526(C_word c,C_word *av) C_noret;
C_noret_decl(f_11530)
static void C_ccall f_11530(C_word c,C_word *av) C_noret;
C_noret_decl(f_11535)
static void C_ccall f_11535(C_word c,C_word *av) C_noret;
C_noret_decl(f_11537)
static void f_11537(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11541)
static void C_ccall f_11541(C_word c,C_word *av) C_noret;
C_noret_decl(f_11546)
static void C_ccall f_11546(C_word c,C_word *av) C_noret;
C_noret_decl(f_11559)
static void C_ccall f_11559(C_word c,C_word *av) C_noret;
C_noret_decl(f_11565)
static void C_ccall f_11565(C_word c,C_word *av) C_noret;
C_noret_decl(f_11571)
static void C_ccall f_11571(C_word c,C_word *av) C_noret;
C_noret_decl(f_11572)
static void f_11572(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11578)
static void C_ccall f_11578(C_word c,C_word *av) C_noret;
C_noret_decl(f_11589)
static void C_ccall f_11589(C_word c,C_word *av) C_noret;
C_noret_decl(f_11604)
static void C_ccall f_11604(C_word c,C_word *av) C_noret;
C_noret_decl(f_11608)
static void C_ccall f_11608(C_word c,C_word *av) C_noret;
C_noret_decl(f_11612)
static void C_ccall f_11612(C_word c,C_word *av) C_noret;
C_noret_decl(f_11615)
static void C_ccall f_11615(C_word c,C_word *av) C_noret;
C_noret_decl(f_11618)
static void C_ccall f_11618(C_word c,C_word *av) C_noret;
C_noret_decl(f_11621)
static void C_ccall f_11621(C_word c,C_word *av) C_noret;
C_noret_decl(f_11624)
static void C_ccall f_11624(C_word c,C_word *av) C_noret;
C_noret_decl(f_11627)
static void C_ccall f_11627(C_word c,C_word *av) C_noret;
C_noret_decl(f_11630)
static void C_ccall f_11630(C_word c,C_word *av) C_noret;
C_noret_decl(f_11633)
static void C_ccall f_11633(C_word c,C_word *av) C_noret;
C_noret_decl(f_11640)
static void C_ccall f_11640(C_word c,C_word *av) C_noret;
C_noret_decl(f_11650)
static void C_ccall f_11650(C_word c,C_word *av) C_noret;
C_noret_decl(f_11654)
static void f_11654(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11667)
static void f_11667(C_word t0,C_word t1) C_noret;
C_noret_decl(f_11678)
static C_word f_11678(C_word t0);
C_noret_decl(f_11703)
static void C_ccall f_11703(C_word c,C_word *av) C_noret;
C_noret_decl(f_11711)
static void f_11711(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11736)
static void C_ccall f_11736(C_word c,C_word *av) C_noret;
C_noret_decl(f_11784)
static void C_ccall f_11784(C_word c,C_word *av) C_noret;
C_noret_decl(f_11787)
static void C_ccall f_11787(C_word c,C_word *av) C_noret;
C_noret_decl(f_11790)
static void C_ccall f_11790(C_word c,C_word *av) C_noret;
C_noret_decl(f_11796)
static void C_ccall f_11796(C_word c,C_word *av) C_noret;
C_noret_decl(f_11799)
static void C_ccall f_11799(C_word c,C_word *av) C_noret;
C_noret_decl(f_11804)
static void C_ccall f_11804(C_word c,C_word *av) C_noret;
C_noret_decl(f_11808)
static void C_ccall f_11808(C_word c,C_word *av) C_noret;
C_noret_decl(f_11812)
static void C_ccall f_11812(C_word c,C_word *av) C_noret;
C_noret_decl(f_11815)
static void C_ccall f_11815(C_word c,C_word *av) C_noret;
C_noret_decl(f_11821)
static void C_ccall f_11821(C_word c,C_word *av) C_noret;
C_noret_decl(f_11829)
static void C_ccall f_11829(C_word c,C_word *av) C_noret;
C_noret_decl(f_11833)
static void C_ccall f_11833(C_word c,C_word *av) C_noret;
C_noret_decl(f_11835)
static void C_ccall f_11835(C_word c,C_word *av) C_noret;
C_noret_decl(f_11839)
static void C_ccall f_11839(C_word c,C_word *av) C_noret;
C_noret_decl(f_11842)
static void C_ccall f_11842(C_word c,C_word *av) C_noret;
C_noret_decl(f_11847)
static void C_ccall f_11847(C_word c,C_word *av) C_noret;
C_noret_decl(f_11849)
static void f_11849(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11874)
static void C_ccall f_11874(C_word c,C_word *av) C_noret;
C_noret_decl(f_11893)
static void C_ccall f_11893(C_word c,C_word *av) C_noret;
C_noret_decl(f_11896)
static void C_ccall f_11896(C_word c,C_word *av) C_noret;
C_noret_decl(f_11899)
static void C_ccall f_11899(C_word c,C_word *av) C_noret;
C_noret_decl(f_11902)
static void C_ccall f_11902(C_word c,C_word *av) C_noret;
C_noret_decl(f_11909)
static void C_ccall f_11909(C_word c,C_word *av) C_noret;
C_noret_decl(f_11912)
static void C_ccall f_11912(C_word c,C_word *av) C_noret;
C_noret_decl(f_11918)
static void C_ccall f_11918(C_word c,C_word *av) C_noret;
C_noret_decl(f_11921)
static void C_ccall f_11921(C_word c,C_word *av) C_noret;
C_noret_decl(f_11924)
static void C_ccall f_11924(C_word c,C_word *av) C_noret;
C_noret_decl(f_11939)
static void C_ccall f_11939(C_word c,C_word *av) C_noret;
C_noret_decl(f_11942)
static void C_ccall f_11942(C_word c,C_word *av) C_noret;
C_noret_decl(f_11948)
static void C_ccall f_11948(C_word c,C_word *av) C_noret;
C_noret_decl(f_11955)
static void f_11955(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_11962)
static void C_ccall f_11962(C_word c,C_word *av) C_noret;
C_noret_decl(f_11985)
static void C_ccall f_11985(C_word c,C_word *av) C_noret;
C_noret_decl(f_11997)
static void C_ccall f_11997(C_word c,C_word *av) C_noret;
C_noret_decl(f_12007)
static void f_12007(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12014)
static void C_ccall f_12014(C_word c,C_word *av) C_noret;
C_noret_decl(f_12041)
static void C_ccall f_12041(C_word c,C_word *av) C_noret;
C_noret_decl(f_12049)
static void C_ccall f_12049(C_word c,C_word *av) C_noret;
C_noret_decl(f_12055)
static void C_ccall f_12055(C_word c,C_word *av) C_noret;
C_noret_decl(f_12062)
static void C_ccall f_12062(C_word c,C_word *av) C_noret;
C_noret_decl(f_12073)
static void C_ccall f_12073(C_word c,C_word *av) C_noret;
C_noret_decl(f_12076)
static void C_ccall f_12076(C_word c,C_word *av) C_noret;
C_noret_decl(f_12079)
static void f_12079(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12085)
static void C_ccall f_12085(C_word c,C_word *av) C_noret;
C_noret_decl(f_12088)
static void C_ccall f_12088(C_word c,C_word *av) C_noret;
C_noret_decl(f_12094)
static void C_ccall f_12094(C_word c,C_word *av) C_noret;
C_noret_decl(f_12101)
static void C_ccall f_12101(C_word c,C_word *av) C_noret;
C_noret_decl(f_12105)
static void C_ccall f_12105(C_word c,C_word *av) C_noret;
C_noret_decl(f_12111)
static void C_ccall f_12111(C_word c,C_word *av) C_noret;
C_noret_decl(f_12114)
static void C_ccall f_12114(C_word c,C_word *av) C_noret;
C_noret_decl(f_12117)
static void C_ccall f_12117(C_word c,C_word *av) C_noret;
C_noret_decl(f_12120)
static void C_ccall f_12120(C_word c,C_word *av) C_noret;
C_noret_decl(f_12123)
static void C_ccall f_12123(C_word c,C_word *av) C_noret;
C_noret_decl(f_12127)
static void C_ccall f_12127(C_word c,C_word *av) C_noret;
C_noret_decl(f_12130)
static void C_ccall f_12130(C_word c,C_word *av) C_noret;
C_noret_decl(f_12136)
static void C_ccall f_12136(C_word c,C_word *av) C_noret;
C_noret_decl(f_12139)
static void C_ccall f_12139(C_word c,C_word *av) C_noret;
C_noret_decl(f_12142)
static void C_ccall f_12142(C_word c,C_word *av) C_noret;
C_noret_decl(f_12158)
static void C_ccall f_12158(C_word c,C_word *av) C_noret;
C_noret_decl(f_12164)
static void C_ccall f_12164(C_word c,C_word *av) C_noret;
C_noret_decl(f_12167)
static void C_ccall f_12167(C_word c,C_word *av) C_noret;
C_noret_decl(f_12170)
static void C_ccall f_12170(C_word c,C_word *av) C_noret;
C_noret_decl(f_12173)
static void C_ccall f_12173(C_word c,C_word *av) C_noret;
C_noret_decl(f_12176)
static void C_ccall f_12176(C_word c,C_word *av) C_noret;
C_noret_decl(f_12180)
static void C_ccall f_12180(C_word c,C_word *av) C_noret;
C_noret_decl(f_12183)
static void C_ccall f_12183(C_word c,C_word *av) C_noret;
C_noret_decl(f_12189)
static void C_ccall f_12189(C_word c,C_word *av) C_noret;
C_noret_decl(f_12192)
static void C_ccall f_12192(C_word c,C_word *av) C_noret;
C_noret_decl(f_12195)
static void C_ccall f_12195(C_word c,C_word *av) C_noret;
C_noret_decl(f_12202)
static void C_ccall f_12202(C_word c,C_word *av) C_noret;
C_noret_decl(f_12206)
static void C_ccall f_12206(C_word c,C_word *av) C_noret;
C_noret_decl(f_12222)
static void C_ccall f_12222(C_word c,C_word *av) C_noret;
C_noret_decl(f_12233)
static void C_ccall f_12233(C_word c,C_word *av) C_noret;
C_noret_decl(f_12246)
static void C_ccall f_12246(C_word c,C_word *av) C_noret;
C_noret_decl(f_12252)
static void C_ccall f_12252(C_word c,C_word *av) C_noret;
C_noret_decl(f_12255)
static void C_ccall f_12255(C_word c,C_word *av) C_noret;
C_noret_decl(f_12258)
static void C_ccall f_12258(C_word c,C_word *av) C_noret;
C_noret_decl(f_12261)
static void C_ccall f_12261(C_word c,C_word *av) C_noret;
C_noret_decl(f_12264)
static void C_ccall f_12264(C_word c,C_word *av) C_noret;
C_noret_decl(f_12268)
static void C_ccall f_12268(C_word c,C_word *av) C_noret;
C_noret_decl(f_12271)
static void C_ccall f_12271(C_word c,C_word *av) C_noret;
C_noret_decl(f_12277)
static void C_ccall f_12277(C_word c,C_word *av) C_noret;
C_noret_decl(f_12280)
static void C_ccall f_12280(C_word c,C_word *av) C_noret;
C_noret_decl(f_12283)
static void C_ccall f_12283(C_word c,C_word *av) C_noret;
C_noret_decl(f_12312)
static void f_12312(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12320)
static void C_ccall f_12320(C_word c,C_word *av) C_noret;
C_noret_decl(f_12328)
static void C_ccall f_12328(C_word c,C_word *av) C_noret;
C_noret_decl(f_12330)
static void f_12330(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12355)
static void C_ccall f_12355(C_word c,C_word *av) C_noret;
C_noret_decl(f_12379)
static void C_ccall f_12379(C_word c,C_word *av) C_noret;
C_noret_decl(f_12383)
static void C_ccall f_12383(C_word c,C_word *av) C_noret;
C_noret_decl(f_12417)
static void C_ccall f_12417(C_word c,C_word *av) C_noret;
C_noret_decl(f_12421)
static void C_ccall f_12421(C_word c,C_word *av) C_noret;
C_noret_decl(f_12427)
static void f_12427(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12452)
static void C_ccall f_12452(C_word c,C_word *av) C_noret;
C_noret_decl(f_12476)
static void C_ccall f_12476(C_word c,C_word *av) C_noret;
C_noret_decl(f_12497)
static void C_ccall f_12497(C_word c,C_word *av) C_noret;
C_noret_decl(f_12501)
static void C_ccall f_12501(C_word c,C_word *av) C_noret;
C_noret_decl(f_12524)
static void C_ccall f_12524(C_word c,C_word *av) C_noret;
C_noret_decl(f_12539)
static void C_ccall f_12539(C_word c,C_word *av) C_noret;
C_noret_decl(f_12562)
static void C_ccall f_12562(C_word c,C_word *av) C_noret;
C_noret_decl(f_12566)
static void f_12566(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_12584)
static void C_ccall f_12584(C_word c,C_word *av) C_noret;
C_noret_decl(f_12591)
static void C_ccall f_12591(C_word c,C_word *av) C_noret;
C_noret_decl(f_12595)
static void C_ccall f_12595(C_word c,C_word *av) C_noret;
C_noret_decl(f_12610)
static void C_ccall f_12610(C_word c,C_word *av) C_noret;
C_noret_decl(f_12623)
static void C_ccall f_12623(C_word c,C_word *av) C_noret;
C_noret_decl(f_12636)
static void C_ccall f_12636(C_word c,C_word *av) C_noret;
C_noret_decl(f_12649)
static void C_ccall f_12649(C_word c,C_word *av) C_noret;
C_noret_decl(f_12662)
static void C_ccall f_12662(C_word c,C_word *av) C_noret;
C_noret_decl(f_12671)
static void C_ccall f_12671(C_word c,C_word *av) C_noret;
C_noret_decl(f_12674)
static void C_ccall f_12674(C_word c,C_word *av) C_noret;
C_noret_decl(f_12677)
static void C_ccall f_12677(C_word c,C_word *av) C_noret;
C_noret_decl(f_12718)
static void C_ccall f_12718(C_word c,C_word *av) C_noret;
C_noret_decl(f_12724)
static void C_ccall f_12724(C_word c,C_word *av) C_noret;
C_noret_decl(f_12733)
static void C_ccall f_12733(C_word c,C_word *av) C_noret;
C_noret_decl(f_12736)
static void C_ccall f_12736(C_word c,C_word *av) C_noret;
C_noret_decl(f_12739)
static void C_ccall f_12739(C_word c,C_word *av) C_noret;
C_noret_decl(f_12742)
static void C_ccall f_12742(C_word c,C_word *av) C_noret;
C_noret_decl(f_12745)
static void C_ccall f_12745(C_word c,C_word *av) C_noret;
C_noret_decl(f_12748)
static void C_ccall f_12748(C_word c,C_word *av) C_noret;
C_noret_decl(f_12751)
static void C_ccall f_12751(C_word c,C_word *av) C_noret;
C_noret_decl(f_12754)
static void C_ccall f_12754(C_word c,C_word *av) C_noret;
C_noret_decl(f_12757)
static void C_ccall f_12757(C_word c,C_word *av) C_noret;
C_noret_decl(f_12772)
static void f_12772(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12792)
static void C_ccall f_12792(C_word c,C_word *av) C_noret;
C_noret_decl(f_12796)
static void C_ccall f_12796(C_word c,C_word *av) C_noret;
C_noret_decl(f_12799)
static void C_ccall f_12799(C_word c,C_word *av) C_noret;
C_noret_decl(f_12806)
static void C_ccall f_12806(C_word c,C_word *av) C_noret;
C_noret_decl(f_12809)
static void C_ccall f_12809(C_word c,C_word *av) C_noret;
C_noret_decl(f_12815)
static void C_ccall f_12815(C_word c,C_word *av) C_noret;
C_noret_decl(f_12818)
static void C_ccall f_12818(C_word c,C_word *av) C_noret;
C_noret_decl(f_12821)
static void C_ccall f_12821(C_word c,C_word *av) C_noret;
C_noret_decl(f_12840)
static void C_ccall f_12840(C_word c,C_word *av) C_noret;
C_noret_decl(f_12843)
static void C_ccall f_12843(C_word c,C_word *av) C_noret;
C_noret_decl(f_12852)
static void C_ccall f_12852(C_word c,C_word *av) C_noret;
C_noret_decl(f_12855)
static void C_ccall f_12855(C_word c,C_word *av) C_noret;
C_noret_decl(f_12858)
static void f_12858(C_word t0,C_word t1) C_noret;
C_noret_decl(f_12878)
static void C_ccall f_12878(C_word c,C_word *av) C_noret;
C_noret_decl(f_12886)
static void C_ccall f_12886(C_word c,C_word *av) C_noret;
C_noret_decl(f_12897)
static void C_ccall f_12897(C_word c,C_word *av) C_noret;
C_noret_decl(f_12900)
static void C_ccall f_12900(C_word c,C_word *av) C_noret;
C_noret_decl(f_12906)
static void C_ccall f_12906(C_word c,C_word *av) C_noret;
C_noret_decl(f_12909)
static void C_ccall f_12909(C_word c,C_word *av) C_noret;
C_noret_decl(f_12912)
static void C_ccall f_12912(C_word c,C_word *av) C_noret;
C_noret_decl(f_12927)
static void C_ccall f_12927(C_word c,C_word *av) C_noret;
C_noret_decl(f_12930)
static void C_ccall f_12930(C_word c,C_word *av) C_noret;
C_noret_decl(f_12933)
static void C_ccall f_12933(C_word c,C_word *av) C_noret;
C_noret_decl(f_12939)
static void C_ccall f_12939(C_word c,C_word *av) C_noret;
C_noret_decl(f_12951)
static void C_ccall f_12951(C_word c,C_word *av) C_noret;
C_noret_decl(f_12955)
static void C_ccall f_12955(C_word c,C_word *av) C_noret;
C_noret_decl(f_12959)
static void C_ccall f_12959(C_word c,C_word *av) C_noret;
C_noret_decl(f_12962)
static void C_ccall f_12962(C_word c,C_word *av) C_noret;
C_noret_decl(f_12968)
static void C_ccall f_12968(C_word c,C_word *av) C_noret;
C_noret_decl(f_12988)
static void C_ccall f_12988(C_word c,C_word *av) C_noret;
C_noret_decl(f_12992)
static void f_12992(C_word t0,C_word t1) C_noret;
C_noret_decl(f_13017)
static void C_ccall f_13017(C_word c,C_word *av) C_noret;
C_noret_decl(f_13040)
static void C_ccall f_13040(C_word c,C_word *av) C_noret;
C_noret_decl(f_13042)
static void C_ccall f_13042(C_word c,C_word *av) C_noret;
C_noret_decl(f_13046)
static void C_ccall f_13046(C_word c,C_word *av) C_noret;
C_noret_decl(f_13049)
static void C_ccall f_13049(C_word c,C_word *av) C_noret;
C_noret_decl(f_13054)
static void C_ccall f_13054(C_word c,C_word *av) C_noret;
C_noret_decl(f_13087)
static void C_ccall f_13087(C_word c,C_word *av) C_noret;
C_noret_decl(f_13090)
static void C_ccall f_13090(C_word c,C_word *av) C_noret;
C_noret_decl(f_13093)
static void C_ccall f_13093(C_word c,C_word *av) C_noret;
C_noret_decl(f_13100)
static void C_ccall f_13100(C_word c,C_word *av) C_noret;
C_noret_decl(f_13103)
static void C_ccall f_13103(C_word c,C_word *av) C_noret;
C_noret_decl(f_13109)
static void C_ccall f_13109(C_word c,C_word *av) C_noret;
C_noret_decl(f_13112)
static void C_ccall f_13112(C_word c,C_word *av) C_noret;
C_noret_decl(f_13115)
static void C_ccall f_13115(C_word c,C_word *av) C_noret;
C_noret_decl(f_13122)
static void C_ccall f_13122(C_word c,C_word *av) C_noret;
C_noret_decl(f_13134)
static void C_ccall f_13134(C_word c,C_word *av) C_noret;
C_noret_decl(f_13140)
static void C_ccall f_13140(C_word c,C_word *av) C_noret;
C_noret_decl(f_13143)
static void C_ccall f_13143(C_word c,C_word *av) C_noret;
C_noret_decl(f_13146)
static void C_ccall f_13146(C_word c,C_word *av) C_noret;
C_noret_decl(f_13156)
static void C_ccall f_13156(C_word c,C_word *av) C_noret;
C_noret_decl(f_13159)
static void C_ccall f_13159(C_word c,C_word *av) C_noret;
C_noret_decl(f_13169)
static void C_ccall f_13169(C_word c,C_word *av) C_noret;
C_noret_decl(f_13172)
static void C_ccall f_13172(C_word c,C_word *av) C_noret;
C_noret_decl(f_13175)
static void C_ccall f_13175(C_word c,C_word *av) C_noret;
C_noret_decl(f_13178)
static void C_ccall f_13178(C_word c,C_word *av) C_noret;
C_noret_decl(f_13181)
static void C_ccall f_13181(C_word c,C_word *av) C_noret;
C_noret_decl(f_13184)
static void C_ccall f_13184(C_word c,C_word *av) C_noret;
C_noret_decl(f_13202)
static void C_ccall f_13202(C_word c,C_word *av) C_noret;
C_noret_decl(f_13205)
static void C_ccall f_13205(C_word c,C_word *av) C_noret;
C_noret_decl(f_13211)
static void C_ccall f_13211(C_word c,C_word *av) C_noret;
C_noret_decl(f_13214)
static void C_ccall f_13214(C_word c,C_word *av) C_noret;
C_noret_decl(f_13217)
static void C_ccall f_13217(C_word c,C_word *av) C_noret;
C_noret_decl(f_13235)
static void C_ccall f_13235(C_word c,C_word *av) C_noret;
C_noret_decl(f_13238)
static void C_ccall f_13238(C_word c,C_word *av) C_noret;
C_noret_decl(f_13244)
static void C_ccall f_13244(C_word c,C_word *av) C_noret;
C_noret_decl(f_13247)
static void C_ccall f_13247(C_word c,C_word *av) C_noret;
C_noret_decl(f_13250)
static void C_ccall f_13250(C_word c,C_word *av) C_noret;
C_noret_decl(f_13255)
static void C_ccall f_13255(C_word c,C_word *av) C_noret;
C_noret_decl(f_13261)
static void C_ccall f_13261(C_word c,C_word *av) C_noret;
C_noret_decl(f_13267)
static void C_ccall f_13267(C_word c,C_word *av) C_noret;
C_noret_decl(f_13273)
static void C_ccall f_13273(C_word c,C_word *av) C_noret;
C_noret_decl(f_13279)
static void C_ccall f_13279(C_word c,C_word *av) C_noret;
C_noret_decl(f_13286)
static void C_ccall f_13286(C_word c,C_word *av) C_noret;
C_noret_decl(f_13305)
static void C_ccall f_13305(C_word c,C_word *av) C_noret;
C_noret_decl(f_13311)
static void C_ccall f_13311(C_word c,C_word *av) C_noret;
C_noret_decl(f_13333)
static void f_13333(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13339)
static void f_13339(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13347)
static void C_ccall f_13347(C_word c,C_word *av) C_noret;
C_noret_decl(f_13354)
static void C_ccall f_13354(C_word c,C_word *av) C_noret;
C_noret_decl(f_13356)
static void f_13356(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13381)
static void C_ccall f_13381(C_word c,C_word *av) C_noret;
C_noret_decl(f_13399)
static void C_ccall f_13399(C_word c,C_word *av) C_noret;
C_noret_decl(f_13409)
static void C_ccall f_13409(C_word c,C_word *av) C_noret;
C_noret_decl(f_13419)
static void C_ccall f_13419(C_word c,C_word *av) C_noret;
C_noret_decl(f_13431)
static void C_ccall f_13431(C_word c,C_word *av) C_noret;
C_noret_decl(f_13434)
static void C_ccall f_13434(C_word c,C_word *av) C_noret;
C_noret_decl(f_13441)
static void C_ccall f_13441(C_word c,C_word *av) C_noret;
C_noret_decl(f_13445)
static void C_ccall f_13445(C_word c,C_word *av) C_noret;
C_noret_decl(f_13453)
static void C_ccall f_13453(C_word c,C_word *av) C_noret;
C_noret_decl(f_13465)
static void C_ccall f_13465(C_word c,C_word *av) C_noret;
C_noret_decl(f_13469)
static void C_ccall f_13469(C_word c,C_word *av) C_noret;
C_noret_decl(f_13481)
static void C_ccall f_13481(C_word c,C_word *av) C_noret;
C_noret_decl(f_13541)
static void C_ccall f_13541(C_word c,C_word *av) C_noret;
C_noret_decl(f_13570)
static void f_13570(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_13594)
static void C_ccall f_13594(C_word c,C_word *av) C_noret;
C_noret_decl(f_13602)
static void C_ccall f_13602(C_word c,C_word *av) C_noret;
C_noret_decl(f_13606)
static void C_ccall f_13606(C_word c,C_word *av) C_noret;
C_noret_decl(f_13610)
static void C_ccall f_13610(C_word c,C_word *av) C_noret;
C_noret_decl(f_13651)
static void C_ccall f_13651(C_word c,C_word *av) C_noret;
C_noret_decl(f_13662)
static void C_ccall f_13662(C_word c,C_word *av) C_noret;
C_noret_decl(f_13669)
static void C_ccall f_13669(C_word c,C_word *av) C_noret;
C_noret_decl(f_13672)
static void C_ccall f_13672(C_word c,C_word *av) C_noret;
C_noret_decl(f_13678)
static void C_ccall f_13678(C_word c,C_word *av) C_noret;
C_noret_decl(f_13681)
static void C_ccall f_13681(C_word c,C_word *av) C_noret;
C_noret_decl(f_13684)
static void C_ccall f_13684(C_word c,C_word *av) C_noret;
C_noret_decl(f_13721)
static void f_13721(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13747)
static void f_13747(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_13775)
static void C_ccall f_13775(C_word c,C_word *av) C_noret;
C_noret_decl(f_13790)
static void C_ccall f_13790(C_word c,C_word *av) C_noret;
C_noret_decl(f_13807)
static void C_ccall f_13807(C_word c,C_word *av) C_noret;
C_noret_decl(f_13813)
static void C_ccall f_13813(C_word c,C_word *av) C_noret;
C_noret_decl(f_13816)
static void C_ccall f_13816(C_word c,C_word *av) C_noret;
C_noret_decl(f_13836)
static void C_ccall f_13836(C_word c,C_word *av) C_noret;
C_noret_decl(f_13841)
static void C_ccall f_13841(C_word c,C_word *av) C_noret;
C_noret_decl(f_13847)
static void C_ccall f_13847(C_word c,C_word *av) C_noret;
C_noret_decl(f_13992)
static void C_ccall f_13992(C_word c,C_word *av) C_noret;
C_noret_decl(f_13997)
static void C_ccall f_13997(C_word c,C_word *av) C_noret;
C_noret_decl(f_14005)
static void C_ccall f_14005(C_word c,C_word *av) C_noret;
C_noret_decl(f_14007)
static void C_ccall f_14007(C_word c,C_word *av) C_noret;
C_noret_decl(f_14027)
static void C_ccall f_14027(C_word c,C_word *av) C_noret;
C_noret_decl(f_14030)
static void C_ccall f_14030(C_word c,C_word *av) C_noret;
C_noret_decl(f_14033)
static void C_ccall f_14033(C_word c,C_word *av) C_noret;
C_noret_decl(f_14039)
static void C_ccall f_14039(C_word c,C_word *av) C_noret;
C_noret_decl(f_14042)
static void C_ccall f_14042(C_word c,C_word *av) C_noret;
C_noret_decl(f_14081)
static void f_14081(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
C_noret_decl(f_14086)
static void f_14086(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14098)
static void f_14098(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14123)
static void C_ccall f_14123(C_word c,C_word *av) C_noret;
C_noret_decl(f_14133)
static void C_ccall f_14133(C_word c,C_word *av) C_noret;
C_noret_decl(f_14144)
static void C_ccall f_14144(C_word c,C_word *av) C_noret;
C_noret_decl(f_14148)
static void C_ccall f_14148(C_word c,C_word *av) C_noret;
C_noret_decl(f_14158)
static void C_ccall f_14158(C_word c,C_word *av) C_noret;
C_noret_decl(f_14164)
static void C_ccall f_14164(C_word c,C_word *av) C_noret;
C_noret_decl(f_14172)
static void f_14172(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_14207)
static void f_14207(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14214)
static void C_ccall f_14214(C_word c,C_word *av) C_noret;
C_noret_decl(f_14217)
static void C_ccall f_14217(C_word c,C_word *av) C_noret;
C_noret_decl(f_14224)
static void C_ccall f_14224(C_word c,C_word *av) C_noret;
C_noret_decl(f_14226)
static void f_14226(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14232)
static void f_14232(C_word t0,C_word t1) C_noret;
C_noret_decl(f_14240)
static void C_ccall f_14240(C_word c,C_word *av) C_noret;
C_noret_decl(f_14246)
static void C_ccall f_14246(C_word c,C_word *av) C_noret;
C_noret_decl(f_14249)
static void C_ccall f_14249(C_word c,C_word *av) C_noret;
C_noret_decl(f_14252)
static void C_ccall f_14252(C_word c,C_word *av) C_noret;
C_noret_decl(f_14255)
static void C_ccall f_14255(C_word c,C_word *av) C_noret;
C_noret_decl(f_14260)
static void f_14260(C_word t0,C_word t1) C_noret;
C_noret_decl(f_14264)
static void C_ccall f_14264(C_word c,C_word *av) C_noret;
C_noret_decl(f_14267)
static void C_ccall f_14267(C_word c,C_word *av) C_noret;
C_noret_decl(f_14270)
static void C_ccall f_14270(C_word c,C_word *av) C_noret;
C_noret_decl(f_14276)
static void C_ccall f_14276(C_word c,C_word *av) C_noret;
C_noret_decl(f_14280)
static void C_ccall f_14280(C_word c,C_word *av) C_noret;
C_noret_decl(f_14284)
static void C_ccall f_14284(C_word c,C_word *av) C_noret;
C_noret_decl(f_14295)
static void C_ccall f_14295(C_word c,C_word *av) C_noret;
C_noret_decl(f_14298)
static void C_ccall f_14298(C_word c,C_word *av) C_noret;
C_noret_decl(f_14301)
static void C_ccall f_14301(C_word c,C_word *av) C_noret;
C_noret_decl(f_14337)
static void C_ccall f_14337(C_word c,C_word *av) C_noret;
C_noret_decl(f_14341)
static void C_ccall f_14341(C_word c,C_word *av) C_noret;
C_noret_decl(f_14362)
static void C_ccall f_14362(C_word c,C_word *av) C_noret;
C_noret_decl(f_14366)
static void C_ccall f_14366(C_word c,C_word *av) C_noret;
C_noret_decl(f_14387)
static void C_ccall f_14387(C_word c,C_word *av) C_noret;
C_noret_decl(f_14391)
static void C_ccall f_14391(C_word c,C_word *av) C_noret;
C_noret_decl(f_14395)
static void C_ccall f_14395(C_word c,C_word *av) C_noret;
C_noret_decl(f_14408)
static void C_ccall f_14408(C_word c,C_word *av) C_noret;
C_noret_decl(f_14412)
static void C_ccall f_14412(C_word c,C_word *av) C_noret;
C_noret_decl(f_14495)
static void f_14495(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14505)
static void C_ccall f_14505(C_word c,C_word *av) C_noret;
C_noret_decl(f_14537)
static void C_ccall f_14537(C_word c,C_word *av) C_noret;
C_noret_decl(f_14543)
static void C_ccall f_14543(C_word c,C_word *av) C_noret;
C_noret_decl(f_14551)
static void C_ccall f_14551(C_word c,C_word *av) C_noret;
C_noret_decl(f_14559)
static void f_14559(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14569)
static void C_ccall f_14569(C_word c,C_word *av) C_noret;
C_noret_decl(f_14582)
static void f_14582(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14592)
static void C_ccall f_14592(C_word c,C_word *av) C_noret;
C_noret_decl(f_14619)
static void C_ccall f_14619(C_word c,C_word *av) C_noret;
C_noret_decl(f_14630)
static void C_ccall f_14630(C_word c,C_word *av) C_noret;
C_noret_decl(f_14640)
static void f_14640(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14650)
static void C_ccall f_14650(C_word c,C_word *av) C_noret;
C_noret_decl(f_14663)
static void f_14663(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14673)
static void C_ccall f_14673(C_word c,C_word *av) C_noret;
C_noret_decl(f_14699)
static void C_ccall f_14699(C_word c,C_word *av) C_noret;
C_noret_decl(f_14703)
static void C_ccall f_14703(C_word c,C_word *av) C_noret;
C_noret_decl(f_14741)
static void C_ccall f_14741(C_word c,C_word *av) C_noret;
C_noret_decl(f_14749)
static void f_14749(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14759)
static void C_ccall f_14759(C_word c,C_word *av) C_noret;
C_noret_decl(f_14786)
static void C_ccall f_14786(C_word c,C_word *av) C_noret;
C_noret_decl(f_14794)
static void f_14794(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14804)
static void C_ccall f_14804(C_word c,C_word *av) C_noret;
C_noret_decl(f_14826)
static void C_ccall f_14826(C_word c,C_word *av) C_noret;
C_noret_decl(f_14829)
static void C_ccall f_14829(C_word c,C_word *av) C_noret;
C_noret_decl(f_14846)
static void C_ccall f_14846(C_word c,C_word *av) C_noret;
C_noret_decl(f_14850)
static void C_ccall f_14850(C_word c,C_word *av) C_noret;
C_noret_decl(f_14874)
static void C_ccall f_14874(C_word c,C_word *av) C_noret;
C_noret_decl(f_14878)
static void C_ccall f_14878(C_word c,C_word *av) C_noret;
C_noret_decl(f_14906)
static void C_ccall f_14906(C_word c,C_word *av) C_noret;
C_noret_decl(f_14914)
static void f_14914(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_14924)
static void C_ccall f_14924(C_word c,C_word *av) C_noret;
C_noret_decl(f_14959)
static void C_ccall f_14959(C_word c,C_word *av) C_noret;
C_noret_decl(f_14963)
static void C_ccall f_14963(C_word c,C_word *av) C_noret;
C_noret_decl(f_14967)
static void C_ccall f_14967(C_word c,C_word *av) C_noret;
C_noret_decl(f_14995)
static void C_ccall f_14995(C_word c,C_word *av) C_noret;
C_noret_decl(f_15003)
static void f_15003(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15013)
static void C_ccall f_15013(C_word c,C_word *av) C_noret;
C_noret_decl(f_15034)
static void C_ccall f_15034(C_word c,C_word *av) C_noret;
C_noret_decl(f_15037)
static void C_ccall f_15037(C_word c,C_word *av) C_noret;
C_noret_decl(f_15086)
static void C_ccall f_15086(C_word c,C_word *av) C_noret;
C_noret_decl(f_15101)
static void f_15101(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15111)
static void C_ccall f_15111(C_word c,C_word *av) C_noret;
C_noret_decl(f_15134)
static void C_ccall f_15134(C_word c,C_word *av) C_noret;
C_noret_decl(f_15142)
static void f_15142(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15152)
static void C_ccall f_15152(C_word c,C_word *av) C_noret;
C_noret_decl(f_15193)
static void C_ccall f_15193(C_word c,C_word *av) C_noret;
C_noret_decl(f_15201)
static void f_15201(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15211)
static void C_ccall f_15211(C_word c,C_word *av) C_noret;
C_noret_decl(f_15235)
static void C_ccall f_15235(C_word c,C_word *av) C_noret;
C_noret_decl(f_15257)
static void C_ccall f_15257(C_word c,C_word *av) C_noret;
C_noret_decl(f_15279)
static void C_ccall f_15279(C_word c,C_word *av) C_noret;
C_noret_decl(f_15285)
static void C_ccall f_15285(C_word c,C_word *av) C_noret;
C_noret_decl(f_15293)
static void C_ccall f_15293(C_word c,C_word *av) C_noret;
C_noret_decl(f_15301)
static void f_15301(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15311)
static void C_ccall f_15311(C_word c,C_word *av) C_noret;
C_noret_decl(f_15337)
static void C_ccall f_15337(C_word c,C_word *av) C_noret;
C_noret_decl(f_15356)
static void C_ccall f_15356(C_word c,C_word *av) C_noret;
C_noret_decl(f_15360)
static void C_ccall f_15360(C_word c,C_word *av) C_noret;
C_noret_decl(f_15367)
static void f_15367(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15413)
static void C_ccall f_15413(C_word c,C_word *av) C_noret;
C_noret_decl(f_15419)
static void C_ccall f_15419(C_word c,C_word *av) C_noret;
C_noret_decl(f_15421)
static void f_15421(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15446)
static void C_ccall f_15446(C_word c,C_word *av) C_noret;
C_noret_decl(f_15471)
static void C_ccall f_15471(C_word c,C_word *av) C_noret;
C_noret_decl(f_15474)
static void f_15474(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15523)
static void C_ccall f_15523(C_word c,C_word *av) C_noret;
C_noret_decl(f_15531)
static void f_15531(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15541)
static void C_ccall f_15541(C_word c,C_word *av) C_noret;
C_noret_decl(f_15577)
static void C_ccall f_15577(C_word c,C_word *av) C_noret;
C_noret_decl(f_15585)
static void f_15585(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15595)
static void C_ccall f_15595(C_word c,C_word *av) C_noret;
C_noret_decl(f_15632)
static void C_ccall f_15632(C_word c,C_word *av) C_noret;
C_noret_decl(f_15640)
static void f_15640(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15650)
static void C_ccall f_15650(C_word c,C_word *av) C_noret;
C_noret_decl(f_15672)
static void f_15672(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15679)
static void f_15679(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15686)
static void C_ccall f_15686(C_word c,C_word *av) C_noret;
C_noret_decl(f_15689)
static void C_ccall f_15689(C_word c,C_word *av) C_noret;
C_noret_decl(f_15692)
static void C_ccall f_15692(C_word c,C_word *av) C_noret;
C_noret_decl(f_15698)
static void C_ccall f_15698(C_word c,C_word *av) C_noret;
C_noret_decl(f_15708)
static void C_ccall f_15708(C_word c,C_word *av) C_noret;
C_noret_decl(f_15714)
static void C_ccall f_15714(C_word c,C_word *av) C_noret;
C_noret_decl(f_15724)
static void C_ccall f_15724(C_word c,C_word *av) C_noret;
C_noret_decl(f_15727)
static void C_ccall f_15727(C_word c,C_word *av) C_noret;
C_noret_decl(f_15730)
static void C_ccall f_15730(C_word c,C_word *av) C_noret;
C_noret_decl(f_15733)
static void C_ccall f_15733(C_word c,C_word *av) C_noret;
C_noret_decl(f_15746)
static void C_ccall f_15746(C_word c,C_word *av) C_noret;
C_noret_decl(f_15762)
static void f_15762(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15794)
static void C_ccall f_15794(C_word c,C_word *av) C_noret;
C_noret_decl(f_15836)
static void f_15836(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15846)
static void C_ccall f_15846(C_word c,C_word *av) C_noret;
C_noret_decl(f_15864)
static void f_15864(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15871)
static void f_15871(C_word t0,C_word t1) C_noret;
C_noret_decl(f_15874)
static void C_ccall f_15874(C_word c,C_word *av) C_noret;
C_noret_decl(f_15877)
static void C_ccall f_15877(C_word c,C_word *av) C_noret;
C_noret_decl(f_15883)
static void C_ccall f_15883(C_word c,C_word *av) C_noret;
C_noret_decl(f_15893)
static void C_ccall f_15893(C_word c,C_word *av) C_noret;
C_noret_decl(f_15899)
static void C_ccall f_15899(C_word c,C_word *av) C_noret;
C_noret_decl(f_15958)
static void f_15958(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_15968)
static void C_ccall f_15968(C_word c,C_word *av) C_noret;
C_noret_decl(f_16104)
static void C_ccall f_16104(C_word c,C_word *av) C_noret;
C_noret_decl(f_16136)
static void C_ccall f_16136(C_word c,C_word *av) C_noret;
C_noret_decl(f_16154)
static void C_ccall f_16154(C_word c,C_word *av) C_noret;
C_noret_decl(f_16172)
static void C_ccall f_16172(C_word c,C_word *av) C_noret;
C_noret_decl(f_16190)
static void C_ccall f_16190(C_word c,C_word *av) C_noret;
C_noret_decl(f_16208)
static void C_ccall f_16208(C_word c,C_word *av) C_noret;
C_noret_decl(f_16226)
static void C_ccall f_16226(C_word c,C_word *av) C_noret;
C_noret_decl(f_16244)
static void C_ccall f_16244(C_word c,C_word *av) C_noret;
C_noret_decl(f_16262)
static void C_ccall f_16262(C_word c,C_word *av) C_noret;
C_noret_decl(f_16271)
static void f_16271(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7) C_noret;
C_noret_decl(f_16280)
static void f_16280(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16309)
static void C_ccall f_16309(C_word c,C_word *av) C_noret;
C_noret_decl(f_16313)
static void C_ccall f_16313(C_word c,C_word *av) C_noret;
C_noret_decl(f_16358)
static void C_ccall f_16358(C_word c,C_word *av) C_noret;
C_noret_decl(f_16361)
static void C_ccall f_16361(C_word c,C_word *av) C_noret;
C_noret_decl(f_16364)
static void C_ccall f_16364(C_word c,C_word *av) C_noret;
C_noret_decl(f_16367)
static void C_ccall f_16367(C_word c,C_word *av) C_noret;
C_noret_decl(f_16370)
static void C_ccall f_16370(C_word c,C_word *av) C_noret;
C_noret_decl(f_16373)
static void C_ccall f_16373(C_word c,C_word *av) C_noret;
C_noret_decl(f_16376)
static void C_ccall f_16376(C_word c,C_word *av) C_noret;
C_noret_decl(f_16386)
static void f_16386(C_word t0,C_word t1) C_noret;
C_noret_decl(f_16398)
static void C_ccall f_16398(C_word c,C_word *av) C_noret;
C_noret_decl(f_16407)
static void C_ccall f_16407(C_word c,C_word *av) C_noret;
C_noret_decl(f_16418)
static void C_ccall f_16418(C_word c,C_word *av) C_noret;
C_noret_decl(f_16430)
static void C_ccall f_16430(C_word c,C_word *av) C_noret;
C_noret_decl(f_16438)
static void C_ccall f_16438(C_word c,C_word *av) C_noret;
C_noret_decl(f_16445)
static void C_ccall f_16445(C_word c,C_word *av) C_noret;
C_noret_decl(f_16448)
static void C_ccall f_16448(C_word c,C_word *av) C_noret;
C_noret_decl(f_16459)
static void C_ccall f_16459(C_word c,C_word *av) C_noret;
C_noret_decl(f_16463)
static void C_ccall f_16463(C_word c,C_word *av) C_noret;
C_noret_decl(f_16467)
static void C_ccall f_16467(C_word c,C_word *av) C_noret;
C_noret_decl(f_16493)
static void f_16493(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_16522)
static void C_ccall f_16522(C_word c,C_word *av) C_noret;
C_noret_decl(f_16563)
static void C_ccall f_16563(C_word c,C_word *av) C_noret;
C_noret_decl(f_16574)
static void f_16574(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16599)
static void C_ccall f_16599(C_word c,C_word *av) C_noret;
C_noret_decl(f_16618)
static void C_ccall f_16618(C_word c,C_word *av) C_noret;
C_noret_decl(f_16626)
static void f_16626(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16651)
static void C_ccall f_16651(C_word c,C_word *av) C_noret;
C_noret_decl(f_16660)
static void f_16660(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16667)
static void C_ccall f_16667(C_word c,C_word *av) C_noret;
C_noret_decl(f_16686)
static void C_ccall f_16686(C_word c,C_word *av) C_noret;
C_noret_decl(f_16697)
static void f_16697(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16707)
static void C_ccall f_16707(C_word c,C_word *av) C_noret;
C_noret_decl(f_16721)
static void C_ccall f_16721(C_word c,C_word *av) C_noret;
C_noret_decl(f_16727)
static void C_ccall f_16727(C_word c,C_word *av) C_noret;
C_noret_decl(f_16733)
static void C_ccall f_16733(C_word c,C_word *av) C_noret;
C_noret_decl(f_16738)
static void f_16738(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16772)
static void f_16772(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16814)
static void f_16814(C_word t0,C_word t1) C_noret;
C_noret_decl(f_16820)
static void C_ccall f_16820(C_word c,C_word *av) C_noret;
C_noret_decl(f_16823)
static void C_ccall f_16823(C_word c,C_word *av) C_noret;
C_noret_decl(f_16837)
static void C_ccall f_16837(C_word c,C_word *av) C_noret;
C_noret_decl(f_16843)
static void C_ccall f_16843(C_word c,C_word *av) C_noret;
C_noret_decl(f_16849)
static void C_ccall f_16849(C_word c,C_word *av) C_noret;
C_noret_decl(f_16854)
static void f_16854(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16888)
static void f_16888(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_16963)
static void C_ccall f_16963(C_word c,C_word *av) C_noret;
C_noret_decl(f_16966)
static void f_16966(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_16970)
static void C_ccall f_16970(C_word c,C_word *av) C_noret;
C_noret_decl(f_16977)
static void C_ccall f_16977(C_word c,C_word *av) C_noret;
C_noret_decl(f_16989)
static void C_ccall f_16989(C_word c,C_word *av) C_noret;
C_noret_decl(f_16995)
static void C_ccall f_16995(C_word c,C_word *av) C_noret;
C_noret_decl(f_17011)
static void C_ccall f_17011(C_word c,C_word *av) C_noret;
C_noret_decl(f_17017)
static void f_17017(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_17035)
static void C_ccall f_17035(C_word c,C_word *av) C_noret;
C_noret_decl(f_17039)
static void C_ccall f_17039(C_word c,C_word *av) C_noret;
C_noret_decl(f_17041)
static void f_17041(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_17045)
static void C_ccall f_17045(C_word c,C_word *av) C_noret;
C_noret_decl(f_17048)
static void C_ccall f_17048(C_word c,C_word *av) C_noret;
C_noret_decl(f_17051)
static void C_ccall f_17051(C_word c,C_word *av) C_noret;
C_noret_decl(f_17054)
static void C_ccall f_17054(C_word c,C_word *av) C_noret;
C_noret_decl(f_17063)
static void f_17063(C_word t0,C_word t1) C_noret;
C_noret_decl(f_17075)
static void C_ccall f_17075(C_word c,C_word *av) C_noret;
C_noret_decl(f_17078)
static void C_ccall f_17078(C_word c,C_word *av) C_noret;
C_noret_decl(f_17079)
static void C_ccall f_17079(C_word c,C_word *av) C_noret;
C_noret_decl(f_17095)
static void C_ccall f_17095(C_word c,C_word *av) C_noret;
C_noret_decl(f_17110)
static void C_ccall f_17110(C_word c,C_word *av) C_noret;
C_noret_decl(f_17114)
static void C_ccall f_17114(C_word c,C_word *av) C_noret;
C_noret_decl(f_17120)
static void C_ccall f_17120(C_word c,C_word *av) C_noret;
C_noret_decl(f_17132)
static void C_ccall f_17132(C_word c,C_word *av) C_noret;
C_noret_decl(f_17136)
static void C_ccall f_17136(C_word c,C_word *av) C_noret;
C_noret_decl(f_17156)
static void C_ccall f_17156(C_word c,C_word *av) C_noret;
C_noret_decl(f_17160)
static void C_ccall f_17160(C_word c,C_word *av) C_noret;
C_noret_decl(f_17169)
static void C_ccall f_17169(C_word c,C_word *av) C_noret;
C_noret_decl(f_17184)
static void f_17184(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_17207)
static void C_ccall f_17207(C_word c,C_word *av) C_noret;
C_noret_decl(f_17214)
static void C_ccall f_17214(C_word c,C_word *av) C_noret;
C_noret_decl(f_17238)
static void C_ccall f_17238(C_word c,C_word *av) C_noret;
C_noret_decl(f_17271)
static void C_ccall f_17271(C_word c,C_word *av) C_noret;
C_noret_decl(f_17284)
static void C_ccall f_17284(C_word c,C_word *av) C_noret;
C_noret_decl(f_17299)
static void C_ccall f_17299(C_word c,C_word *av) C_noret;
C_noret_decl(f_17315)
static void C_ccall f_17315(C_word c,C_word *av) C_noret;
C_noret_decl(f_17319)
static void C_ccall f_17319(C_word c,C_word *av) C_noret;
C_noret_decl(f_17323)
static void C_ccall f_17323(C_word c,C_word *av) C_noret;
C_noret_decl(f_17355)
static void C_ccall f_17355(C_word c,C_word *av) C_noret;
C_noret_decl(f_17361)
static void C_ccall f_17361(C_word c,C_word *av) C_noret;
C_noret_decl(f_17372)
static void C_ccall f_17372(C_word c,C_word *av) C_noret;
C_noret_decl(f_17376)
static void C_ccall f_17376(C_word c,C_word *av) C_noret;
C_noret_decl(f_17385)
static void f_17385(C_word t0,C_word t1) C_noret;
C_noret_decl(f_17425)
static void C_ccall f_17425(C_word c,C_word *av) C_noret;
C_noret_decl(f_17433)
static void C_ccall f_17433(C_word c,C_word *av) C_noret;
C_noret_decl(f_17438)
static void C_ccall f_17438(C_word c,C_word *av) C_noret;
C_noret_decl(f_17444)
static void C_ccall f_17444(C_word c,C_word *av) C_noret;
C_noret_decl(f_17587)
static void f_17587(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_17591)
static void C_ccall f_17591(C_word c,C_word *av) C_noret;
C_noret_decl(f_17594)
static void C_ccall f_17594(C_word c,C_word *av) C_noret;
C_noret_decl(f_17609)
static void C_ccall f_17609(C_word c,C_word *av) C_noret;
C_noret_decl(f_17613)
static void C_ccall f_17613(C_word c,C_word *av) C_noret;
C_noret_decl(f_17615)
static void C_ccall f_17615(C_word c,C_word *av) C_noret;
C_noret_decl(f_17621)
static void C_ccall f_17621(C_word c,C_word *av) C_noret;
C_noret_decl(f_17629)
static void C_ccall f_17629(C_word c,C_word *av) C_noret;
C_noret_decl(f_17633)
static void C_ccall f_17633(C_word c,C_word *av) C_noret;
C_noret_decl(f_17645)
static void C_ccall f_17645(C_word c,C_word *av) C_noret;
C_noret_decl(f_17649)
static void C_ccall f_17649(C_word c,C_word *av) C_noret;
C_noret_decl(f_17658)
static void C_ccall f_17658(C_word c,C_word *av) C_noret;
C_noret_decl(f_17668)
static void C_ccall f_17668(C_word c,C_word *av) C_noret;
C_noret_decl(f_17671)
static void C_ccall f_17671(C_word c,C_word *av) C_noret;
C_noret_decl(f_17686)
static void C_ccall f_17686(C_word c,C_word *av) C_noret;
C_noret_decl(f_17690)
static void C_ccall f_17690(C_word c,C_word *av) C_noret;
C_noret_decl(f_17702)
static void C_ccall f_17702(C_word c,C_word *av) C_noret;
C_noret_decl(f_17714)
static void C_ccall f_17714(C_word c,C_word *av) C_noret;
C_noret_decl(f_17718)
static void C_ccall f_17718(C_word c,C_word *av) C_noret;
C_noret_decl(f_17727)
static void C_ccall f_17727(C_word c,C_word *av) C_noret;
C_noret_decl(f_17733)
static void f_17733(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_17739)
static void C_ccall f_17739(C_word c,C_word *av) C_noret;
C_noret_decl(f_17747)
static void C_ccall f_17747(C_word c,C_word *av) C_noret;
C_noret_decl(f_17749)
static void f_17749(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_17755)
static void f_17755(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_17769)
static void C_ccall f_17769(C_word c,C_word *av) C_noret;
C_noret_decl(f_17775)
static void C_ccall f_17775(C_word c,C_word *av) C_noret;
C_noret_decl(f_17789)
static void C_ccall f_17789(C_word c,C_word *av) C_noret;
C_noret_decl(f_17796)
static void C_ccall f_17796(C_word c,C_word *av) C_noret;
C_noret_decl(f_17803)
static void C_ccall f_17803(C_word c,C_word *av) C_noret;
C_noret_decl(f_17818)
static void C_ccall f_17818(C_word c,C_word *av) C_noret;
C_noret_decl(f_17833)
static void C_ccall f_17833(C_word c,C_word *av) C_noret;
C_noret_decl(f_17845)
static void C_ccall f_17845(C_word c,C_word *av) C_noret;
C_noret_decl(f_17851)
static void C_ccall f_17851(C_word c,C_word *av) C_noret;
C_noret_decl(f_17855)
static void C_ccall f_17855(C_word c,C_word *av) C_noret;
C_noret_decl(f_17872)
static void C_ccall f_17872(C_word c,C_word *av) C_noret;
C_noret_decl(f_17877)
static void C_ccall f_17877(C_word c,C_word *av) C_noret;
C_noret_decl(f_17884)
static void C_ccall f_17884(C_word c,C_word *av) C_noret;
C_noret_decl(f_17886)
static C_word f_17886(C_word *a,C_word t0);
C_noret_decl(f_17893)
static void f_17893(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
C_noret_decl(f_17897)
static void C_ccall f_17897(C_word c,C_word *av) C_noret;
C_noret_decl(f_17900)
static void C_ccall f_17900(C_word c,C_word *av) C_noret;
C_noret_decl(f_17903)
static void C_ccall f_17903(C_word c,C_word *av) C_noret;
C_noret_decl(f_17915)
static void f_17915(C_word t0,C_word t1) C_noret;
C_noret_decl(f_17930)
static void C_ccall f_17930(C_word c,C_word *av) C_noret;
C_noret_decl(f_17961)
static void C_ccall f_17961(C_word c,C_word *av) C_noret;
C_noret_decl(f_17991)
static void C_ccall f_17991(C_word c,C_word *av) C_noret;
C_noret_decl(f_17994)
static void C_ccall f_17994(C_word c,C_word *av) C_noret;
C_noret_decl(f_18012)
static void C_ccall f_18012(C_word c,C_word *av) C_noret;
C_noret_decl(f_18015)
static void C_ccall f_18015(C_word c,C_word *av) C_noret;
C_noret_decl(f_18041)
static void C_ccall f_18041(C_word c,C_word *av) C_noret;
C_noret_decl(f_18051)
static void C_ccall f_18051(C_word c,C_word *av) C_noret;
C_noret_decl(f_18055)
static void C_ccall f_18055(C_word c,C_word *av) C_noret;
C_noret_decl(f_18059)
static void C_ccall f_18059(C_word c,C_word *av) C_noret;
C_noret_decl(f_18063)
static void C_ccall f_18063(C_word c,C_word *av) C_noret;
C_noret_decl(f_18075)
static void C_ccall f_18075(C_word c,C_word *av) C_noret;
C_noret_decl(f_18080)
static void f_18080(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_18098)
static void C_ccall f_18098(C_word c,C_word *av) C_noret;
C_noret_decl(f_18107)
static void C_ccall f_18107(C_word c,C_word *av) C_noret;
C_noret_decl(f_18110)
static void C_ccall f_18110(C_word c,C_word *av) C_noret;
C_noret_decl(f_18113)
static void C_ccall f_18113(C_word c,C_word *av) C_noret;
C_noret_decl(f_18138)
static void C_ccall f_18138(C_word c,C_word *av) C_noret;
C_noret_decl(f_18140)
static void f_18140(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18150)
static void C_ccall f_18150(C_word c,C_word *av) C_noret;
C_noret_decl(f_18154)
static void C_ccall f_18154(C_word c,C_word *av) C_noret;
C_noret_decl(f_18163)
static void C_ccall f_18163(C_word c,C_word *av) C_noret;
C_noret_decl(f_18165)
static void f_18165(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18175)
static void C_ccall f_18175(C_word c,C_word *av) C_noret;
C_noret_decl(f_18207)
static void C_ccall f_18207(C_word c,C_word *av) C_noret;
C_noret_decl(f_18214)
static void C_ccall f_18214(C_word c,C_word *av) C_noret;
C_noret_decl(f_18215)
static void f_18215(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18219)
static void C_ccall f_18219(C_word c,C_word *av) C_noret;
C_noret_decl(f_18228)
static void C_ccall f_18228(C_word c,C_word *av) C_noret;
C_noret_decl(f_18231)
static void C_ccall f_18231(C_word c,C_word *av) C_noret;
C_noret_decl(f_18234)
static void C_ccall f_18234(C_word c,C_word *av) C_noret;
C_noret_decl(f_18237)
static void f_18237(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18240)
static void f_18240(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18243)
static void C_ccall f_18243(C_word c,C_word *av) C_noret;
C_noret_decl(f_18259)
static void C_ccall f_18259(C_word c,C_word *av) C_noret;
C_noret_decl(f_18267)
static void C_ccall f_18267(C_word c,C_word *av) C_noret;
C_noret_decl(f_18285)
static void C_ccall f_18285(C_word c,C_word *av) C_noret;
C_noret_decl(f_18291)
static void C_ccall f_18291(C_word c,C_word *av) C_noret;
C_noret_decl(f_18300)
static void f_18300(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18310)
static void C_ccall f_18310(C_word c,C_word *av) C_noret;
C_noret_decl(f_18324)
static void C_ccall f_18324(C_word c,C_word *av) C_noret;
C_noret_decl(f_18345)
static void C_ccall f_18345(C_word c,C_word *av) C_noret;
C_noret_decl(f_18348)
static void C_ccall f_18348(C_word c,C_word *av) C_noret;
C_noret_decl(f_18351)
static void C_ccall f_18351(C_word c,C_word *av) C_noret;
C_noret_decl(f_18354)
static void C_ccall f_18354(C_word c,C_word *av) C_noret;
C_noret_decl(f_18357)
static void C_ccall f_18357(C_word c,C_word *av) C_noret;
C_noret_decl(f_18360)
static void C_ccall f_18360(C_word c,C_word *av) C_noret;
C_noret_decl(f_18396)
static void C_ccall f_18396(C_word c,C_word *av) C_noret;
C_noret_decl(f_18402)
static void C_ccall f_18402(C_word c,C_word *av) C_noret;
C_noret_decl(f_18442)
static void C_ccall f_18442(C_word c,C_word *av) C_noret;
C_noret_decl(f_18448)
static void C_ccall f_18448(C_word c,C_word *av) C_noret;
C_noret_decl(f_18537)
static void f_18537(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
C_noret_decl(f_18539)
static void f_18539(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18551)
static void f_18551(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18561)
static void C_ccall f_18561(C_word c,C_word *av) C_noret;
C_noret_decl(f_18574)
static void f_18574(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_18578)
static void C_ccall f_18578(C_word c,C_word *av) C_noret;
C_noret_decl(f_18587)
static void f_18587(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_18591)
static void C_ccall f_18591(C_word c,C_word *av) C_noret;
C_noret_decl(f_18600)
static void f_18600(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_18607)
static void C_ccall f_18607(C_word c,C_word *av) C_noret;
C_noret_decl(f_18613)
static void C_ccall f_18613(C_word c,C_word *av) C_noret;
C_noret_decl(f_18625)
static void f_18625(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18649)
static void C_ccall f_18649(C_word c,C_word *av) C_noret;
C_noret_decl(f_18653)
static void C_ccall f_18653(C_word c,C_word *av) C_noret;
C_noret_decl(f_18672)
static void C_ccall f_18672(C_word c,C_word *av) C_noret;
C_noret_decl(f_18676)
static void C_ccall f_18676(C_word c,C_word *av) C_noret;
C_noret_decl(f_18679)
static void C_ccall f_18679(C_word c,C_word *av) C_noret;
C_noret_decl(f_18682)
static void f_18682(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18686)
static void f_18686(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_18690)
static void C_ccall f_18690(C_word c,C_word *av) C_noret;
C_noret_decl(f_18693)
static void C_ccall f_18693(C_word c,C_word *av) C_noret;
C_noret_decl(f_18710)
static void f_18710(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18713)
static void C_ccall f_18713(C_word c,C_word *av) C_noret;
C_noret_decl(f_18716)
static void C_ccall f_18716(C_word c,C_word *av) C_noret;
C_noret_decl(f_18755)
static void f_18755(C_word t0,C_word t1) C_noret;
C_noret_decl(f_18758)
static void C_ccall f_18758(C_word c,C_word *av) C_noret;
C_noret_decl(f_18764)
static void C_ccall f_18764(C_word c,C_word *av) C_noret;
C_noret_decl(f_18791)
static void C_ccall f_18791(C_word c,C_word *av) C_noret;
C_noret_decl(f_18798)
static void C_ccall f_18798(C_word c,C_word *av) C_noret;
C_noret_decl(f_18804)
static void C_ccall f_18804(C_word c,C_word *av) C_noret;
C_noret_decl(f_18814)
static void C_ccall f_18814(C_word c,C_word *av) C_noret;
C_noret_decl(f_18817)
static void C_ccall f_18817(C_word c,C_word *av) C_noret;
C_noret_decl(f_18824)
static void C_ccall f_18824(C_word c,C_word *av) C_noret;
C_noret_decl(f_18828)
static void C_ccall f_18828(C_word c,C_word *av) C_noret;
C_noret_decl(f_18832)
static void C_ccall f_18832(C_word c,C_word *av) C_noret;
C_noret_decl(f_18846)
static void C_ccall f_18846(C_word c,C_word *av) C_noret;
C_noret_decl(f_18850)
static void C_ccall f_18850(C_word c,C_word *av) C_noret;
C_noret_decl(f_18854)
static void C_ccall f_18854(C_word c,C_word *av) C_noret;
C_noret_decl(f_18857)
static void C_ccall f_18857(C_word c,C_word *av) C_noret;
C_noret_decl(f_18877)
static void C_ccall f_18877(C_word c,C_word *av) C_noret;
C_noret_decl(f_18881)
static void C_ccall f_18881(C_word c,C_word *av) C_noret;
C_noret_decl(f_18884)
static void C_ccall f_18884(C_word c,C_word *av) C_noret;
C_noret_decl(f_18904)
static void C_ccall f_18904(C_word c,C_word *av) C_noret;
C_noret_decl(f_18908)
static void C_ccall f_18908(C_word c,C_word *av) C_noret;
C_noret_decl(f_18910)
static void f_18910(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_18931)
static void C_ccall f_18931(C_word c,C_word *av) C_noret;
C_noret_decl(f_18935)
static void C_ccall f_18935(C_word c,C_word *av) C_noret;
C_noret_decl(f_18938)
static void C_ccall f_18938(C_word c,C_word *av) C_noret;
C_noret_decl(f_18942)
static void C_ccall f_18942(C_word c,C_word *av) C_noret;
C_noret_decl(f_18948)
static void C_ccall f_18948(C_word c,C_word *av) C_noret;
C_noret_decl(f_18954)
static C_word f_18954(C_word t0,C_word t1);
C_noret_decl(f_19097)
static void C_ccall f_19097(C_word c,C_word *av) C_noret;
C_noret_decl(f_19100)
static void C_ccall f_19100(C_word c,C_word *av) C_noret;
C_noret_decl(f_19103)
static void f_19103(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19106)
static void C_ccall f_19106(C_word c,C_word *av) C_noret;
C_noret_decl(f_19109)
static void f_19109(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19115)
static void C_ccall f_19115(C_word c,C_word *av) C_noret;
C_noret_decl(f_19118)
static void C_ccall f_19118(C_word c,C_word *av) C_noret;
C_noret_decl(f_19124)
static void C_ccall f_19124(C_word c,C_word *av) C_noret;
C_noret_decl(f_19127)
static void f_19127(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19130)
static void C_ccall f_19130(C_word c,C_word *av) C_noret;
C_noret_decl(f_19136)
static void f_19136(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19139)
static void C_ccall f_19139(C_word c,C_word *av) C_noret;
C_noret_decl(f_19157)
static void f_19157(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19160)
static void C_ccall f_19160(C_word c,C_word *av) C_noret;
C_noret_decl(f_19178)
static void f_19178(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19191)
static void C_ccall f_19191(C_word c,C_word *av) C_noret;
C_noret_decl(f_19215)
static void C_ccall f_19215(C_word c,C_word *av) C_noret;
C_noret_decl(f_19219)
static void C_ccall f_19219(C_word c,C_word *av) C_noret;
C_noret_decl(f_19223)
static void C_ccall f_19223(C_word c,C_word *av) C_noret;
C_noret_decl(f_19244)
static void C_ccall f_19244(C_word c,C_word *av) C_noret;
C_noret_decl(f_19250)
static void C_ccall f_19250(C_word c,C_word *av) C_noret;
C_noret_decl(f_19261)
static void C_ccall f_19261(C_word c,C_word *av) C_noret;
C_noret_decl(f_19279)
static void f_19279(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19291)
static void C_ccall f_19291(C_word c,C_word *av) C_noret;
C_noret_decl(f_19313)
static void C_ccall f_19313(C_word c,C_word *av) C_noret;
C_noret_decl(f_19317)
static void C_ccall f_19317(C_word c,C_word *av) C_noret;
C_noret_decl(f_19321)
static void C_ccall f_19321(C_word c,C_word *av) C_noret;
C_noret_decl(f_19331)
static void C_ccall f_19331(C_word c,C_word *av) C_noret;
C_noret_decl(f_19335)
static void C_ccall f_19335(C_word c,C_word *av) C_noret;
C_noret_decl(f_19339)
static void C_ccall f_19339(C_word c,C_word *av) C_noret;
C_noret_decl(f_19360)
static void C_ccall f_19360(C_word c,C_word *av) C_noret;
C_noret_decl(f_19384)
static void C_ccall f_19384(C_word c,C_word *av) C_noret;
C_noret_decl(f_19394)
static void C_ccall f_19394(C_word c,C_word *av) C_noret;
C_noret_decl(f_19398)
static void C_ccall f_19398(C_word c,C_word *av) C_noret;
C_noret_decl(f_19405)
static void C_ccall f_19405(C_word c,C_word *av) C_noret;
C_noret_decl(f_19409)
static void C_ccall f_19409(C_word c,C_word *av) C_noret;
C_noret_decl(f_19418)
static void C_ccall f_19418(C_word c,C_word *av) C_noret;
C_noret_decl(f_19424)
static void C_ccall f_19424(C_word c,C_word *av) C_noret;
C_noret_decl(f_19439)
static void C_ccall f_19439(C_word c,C_word *av) C_noret;
C_noret_decl(f_19448)
static void C_ccall f_19448(C_word c,C_word *av) C_noret;
C_noret_decl(f_19480)
static void C_ccall f_19480(C_word c,C_word *av) C_noret;
C_noret_decl(f_19491)
static void C_ccall f_19491(C_word c,C_word *av) C_noret;
C_noret_decl(f_19500)
static void C_ccall f_19500(C_word c,C_word *av) C_noret;
C_noret_decl(f_19515)
static void C_ccall f_19515(C_word c,C_word *av) C_noret;
C_noret_decl(f_19519)
static void C_ccall f_19519(C_word c,C_word *av) C_noret;
C_noret_decl(f_19525)
static void f_19525(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19538)
static void C_ccall f_19538(C_word c,C_word *av) C_noret;
C_noret_decl(f_19552)
static void C_ccall f_19552(C_word c,C_word *av) C_noret;
C_noret_decl(f_19553)
static void f_19553(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19560)
static void f_19560(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19563)
static void C_ccall f_19563(C_word c,C_word *av) C_noret;
C_noret_decl(f_19574)
static void C_ccall f_19574(C_word c,C_word *av) C_noret;
C_noret_decl(f_19578)
static void C_ccall f_19578(C_word c,C_word *av) C_noret;
C_noret_decl(f_19586)
static void f_19586(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19596)
static void C_ccall f_19596(C_word c,C_word *av) C_noret;
C_noret_decl(f_19617)
static void C_ccall f_19617(C_word c,C_word *av) C_noret;
C_noret_decl(f_19626)
static void C_ccall f_19626(C_word c,C_word *av) C_noret;
C_noret_decl(f_19632)
static void C_ccall f_19632(C_word c,C_word *av) C_noret;
C_noret_decl(f_19643)
static void C_ccall f_19643(C_word c,C_word *av) C_noret;
C_noret_decl(f_19646)
static void f_19646(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19655)
static void C_ccall f_19655(C_word c,C_word *av) C_noret;
C_noret_decl(f_19668)
static void C_ccall f_19668(C_word c,C_word *av) C_noret;
C_noret_decl(f_19675)
static void C_ccall f_19675(C_word c,C_word *av) C_noret;
C_noret_decl(f_19678)
static void C_ccall f_19678(C_word c,C_word *av) C_noret;
C_noret_decl(f_19684)
static void C_ccall f_19684(C_word c,C_word *av) C_noret;
C_noret_decl(f_19690)
static void f_19690(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19712)
static void C_ccall f_19712(C_word c,C_word *av) C_noret;
C_noret_decl(f_19726)
static void C_ccall f_19726(C_word c,C_word *av) C_noret;
C_noret_decl(f_19734)
static void C_ccall f_19734(C_word c,C_word *av) C_noret;
C_noret_decl(f_19736)
static void C_ccall f_19736(C_word c,C_word *av) C_noret;
C_noret_decl(f_19742)
static void C_ccall f_19742(C_word c,C_word *av) C_noret;
C_noret_decl(f_19754)
static void C_ccall f_19754(C_word c,C_word *av) C_noret;
C_noret_decl(f_19760)
static void C_ccall f_19760(C_word c,C_word *av) C_noret;
C_noret_decl(f_19771)
static void C_ccall f_19771(C_word c,C_word *av) C_noret;
C_noret_decl(f_19777)
static void C_ccall f_19777(C_word c,C_word *av) C_noret;
C_noret_decl(f_19781)
static void f_19781(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19790)
static void C_ccall f_19790(C_word c,C_word *av) C_noret;
C_noret_decl(f_19798)
static void C_ccall f_19798(C_word c,C_word *av) C_noret;
C_noret_decl(f_19815)
static void C_ccall f_19815(C_word c,C_word *av) C_noret;
C_noret_decl(f_19822)
static void C_ccall f_19822(C_word c,C_word *av) C_noret;
C_noret_decl(f_19825)
static void C_ccall f_19825(C_word c,C_word *av) C_noret;
C_noret_decl(f_19829)
static void f_19829(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19836)
static void C_ccall f_19836(C_word c,C_word *av) C_noret;
C_noret_decl(f_19842)
static void C_ccall f_19842(C_word c,C_word *av) C_noret;
C_noret_decl(f_19848)
static void C_ccall f_19848(C_word c,C_word *av) C_noret;
C_noret_decl(f_19866)
static void f_19866(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19873)
static void C_ccall f_19873(C_word c,C_word *av) C_noret;
C_noret_decl(f_19879)
static void C_ccall f_19879(C_word c,C_word *av) C_noret;
C_noret_decl(f_19882)
static void C_ccall f_19882(C_word c,C_word *av) C_noret;
C_noret_decl(f_19885)
static void C_ccall f_19885(C_word c,C_word *av) C_noret;
C_noret_decl(f_19888)
static void C_ccall f_19888(C_word c,C_word *av) C_noret;
C_noret_decl(f_19922)
static void C_ccall f_19922(C_word c,C_word *av) C_noret;
C_noret_decl(f_19926)
static void C_ccall f_19926(C_word c,C_word *av) C_noret;
C_noret_decl(f_19930)
static void C_ccall f_19930(C_word c,C_word *av) C_noret;
C_noret_decl(f_19934)
static void C_ccall f_19934(C_word c,C_word *av) C_noret;
C_noret_decl(f_19940)
static void f_19940(C_word t0,C_word t1) C_noret;
C_noret_decl(f_19944)
static void f_19944(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19962)
static void C_ccall f_19962(C_word c,C_word *av) C_noret;
C_noret_decl(f_19966)
static void C_ccall f_19966(C_word c,C_word *av) C_noret;
C_noret_decl(f_19974)
static void f_19974(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_19984)
static void C_ccall f_19984(C_word c,C_word *av) C_noret;
C_noret_decl(f_20009)
static C_word f_20009(C_word t0,C_word t1);
C_noret_decl(f_20036)
static void C_ccall f_20036(C_word c,C_word *av) C_noret;
C_noret_decl(f_20043)
static void C_ccall f_20043(C_word c,C_word *av) C_noret;
C_noret_decl(f_20048)
static void f_20048(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_20067)
static void C_ccall f_20067(C_word c,C_word *av) C_noret;
C_noret_decl(f_20075)
static void C_ccall f_20075(C_word c,C_word *av) C_noret;
C_noret_decl(f_20086)
static void f_20086(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20090)
static void C_ccall f_20090(C_word c,C_word *av) C_noret;
C_noret_decl(f_20091)
static void f_20091(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20093)
static void f_20093(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20105)
static void f_20105(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20115)
static void C_ccall f_20115(C_word c,C_word *av) C_noret;
C_noret_decl(f_20129)
static void C_ccall f_20129(C_word c,C_word *av) C_noret;
C_noret_decl(f_20134)
static void f_20134(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20140)
static void f_20140(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20150)
static void C_ccall f_20150(C_word c,C_word *av) C_noret;
C_noret_decl(f_20163)
static void f_20163(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_20169)
static void C_ccall f_20169(C_word c,C_word *av) C_noret;
C_noret_decl(f_20183)
static void C_ccall f_20183(C_word c,C_word *av) C_noret;
C_noret_decl(f_20187)
static void C_ccall f_20187(C_word c,C_word *av) C_noret;
C_noret_decl(f_20189)
static void f_20189(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_20195)
static void f_20195(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_20200)
static void C_ccall f_20200(C_word c,C_word *av) C_noret;
C_noret_decl(f_20205)
static void f_20205(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20212)
static void C_ccall f_20212(C_word c,C_word *av) C_noret;
C_noret_decl(f_20214)
static void f_20214(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_20218)
static void C_ccall f_20218(C_word c,C_word *av) C_noret;
C_noret_decl(f_20221)
static void C_ccall f_20221(C_word c,C_word *av) C_noret;
C_noret_decl(f_20224)
static void C_ccall f_20224(C_word c,C_word *av) C_noret;
C_noret_decl(f_20254)
static void f_20254(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20263)
static void C_ccall f_20263(C_word c,C_word *av) C_noret;
C_noret_decl(f_20266)
static void C_ccall f_20266(C_word c,C_word *av) C_noret;
C_noret_decl(f_20276)
static void C_ccall f_20276(C_word c,C_word *av) C_noret;
C_noret_decl(f_20280)
static void C_ccall f_20280(C_word c,C_word *av) C_noret;
C_noret_decl(f_20314)
static void C_ccall f_20314(C_word c,C_word *av) C_noret;
C_noret_decl(f_20348)
static void C_ccall f_20348(C_word c,C_word *av) C_noret;
C_noret_decl(f_20356)
static void f_20356(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20366)
static void C_ccall f_20366(C_word c,C_word *av) C_noret;
C_noret_decl(f_20368)
static void f_20368(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20393)
static void C_ccall f_20393(C_word c,C_word *av) C_noret;
C_noret_decl(f_20424)
static void C_ccall f_20424(C_word c,C_word *av) C_noret;
C_noret_decl(f_20430)
static void f_20430(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20433)
static void C_ccall f_20433(C_word c,C_word *av) C_noret;
C_noret_decl(f_20442)
static void C_ccall f_20442(C_word c,C_word *av) C_noret;
C_noret_decl(f_20445)
static void C_ccall f_20445(C_word c,C_word *av) C_noret;
C_noret_decl(f_20448)
static void f_20448(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20454)
static void f_20454(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20457)
static void C_ccall f_20457(C_word c,C_word *av) C_noret;
C_noret_decl(f_20460)
static void C_ccall f_20460(C_word c,C_word *av) C_noret;
C_noret_decl(f_20473)
static void C_ccall f_20473(C_word c,C_word *av) C_noret;
C_noret_decl(f_20492)
static void C_ccall f_20492(C_word c,C_word *av) C_noret;
C_noret_decl(f_20505)
static void C_ccall f_20505(C_word c,C_word *av) C_noret;
C_noret_decl(f_20520)
static void C_ccall f_20520(C_word c,C_word *av) C_noret;
C_noret_decl(f_20538)
static void C_ccall f_20538(C_word c,C_word *av) C_noret;
C_noret_decl(f_20548)
static void C_ccall f_20548(C_word c,C_word *av) C_noret;
C_noret_decl(f_20552)
static void C_ccall f_20552(C_word c,C_word *av) C_noret;
C_noret_decl(f_20560)
static void C_ccall f_20560(C_word c,C_word *av) C_noret;
C_noret_decl(f_20564)
static void C_ccall f_20564(C_word c,C_word *av) C_noret;
C_noret_decl(f_20568)
static void C_ccall f_20568(C_word c,C_word *av) C_noret;
C_noret_decl(f_20572)
static void C_ccall f_20572(C_word c,C_word *av) C_noret;
C_noret_decl(f_20600)
static void C_ccall f_20600(C_word c,C_word *av) C_noret;
C_noret_decl(f_20607)
static void C_ccall f_20607(C_word c,C_word *av) C_noret;
C_noret_decl(f_20612)
static void C_ccall f_20612(C_word c,C_word *av) C_noret;
C_noret_decl(f_20617)
static void C_ccall f_20617(C_word c,C_word *av) C_noret;
C_noret_decl(f_20621)
static void C_ccall f_20621(C_word c,C_word *av) C_noret;
C_noret_decl(f_20624)
static void C_ccall f_20624(C_word c,C_word *av) C_noret;
C_noret_decl(f_20627)
static void C_ccall f_20627(C_word c,C_word *av) C_noret;
C_noret_decl(f_20638)
static void C_ccall f_20638(C_word c,C_word *av) C_noret;
C_noret_decl(f_20644)
static void C_ccall f_20644(C_word c,C_word *av) C_noret;
C_noret_decl(f_20658)
static void f_20658(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20668)
static void C_ccall f_20668(C_word c,C_word *av) C_noret;
C_noret_decl(f_20670)
static void f_20670(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20695)
static void C_ccall f_20695(C_word c,C_word *av) C_noret;
C_noret_decl(f_20755)
static void f_20755(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_20759)
static void C_ccall f_20759(C_word c,C_word *av) C_noret;
C_noret_decl(f_20762)
static void C_ccall f_20762(C_word c,C_word *av) C_noret;
C_noret_decl(f_20765)
static void C_ccall f_20765(C_word c,C_word *av) C_noret;
C_noret_decl(f_20774)
static void f_20774(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20792)
static void C_ccall f_20792(C_word c,C_word *av) C_noret;
C_noret_decl(f_20799)
static void C_ccall f_20799(C_word c,C_word *av) C_noret;
C_noret_decl(f_20808)
static void f_20808(C_word t0,C_word t1) C_noret;
C_noret_decl(f_20811)
static void C_ccall f_20811(C_word c,C_word *av) C_noret;
C_noret_decl(f_20814)
static void C_ccall f_20814(C_word c,C_word *av) C_noret;
C_noret_decl(f_20817)
static void C_ccall f_20817(C_word c,C_word *av) C_noret;
C_noret_decl(f_20820)
static void C_ccall f_20820(C_word c,C_word *av) C_noret;
C_noret_decl(f_20839)
static void C_ccall f_20839(C_word c,C_word *av) C_noret;
C_noret_decl(f_20845)
static void C_ccall f_20845(C_word c,C_word *av) C_noret;
C_noret_decl(f_20849)
static void C_ccall f_20849(C_word c,C_word *av) C_noret;
C_noret_decl(f_20852)
static void C_ccall f_20852(C_word c,C_word *av) C_noret;
C_noret_decl(f_20854)
static void C_ccall f_20854(C_word c,C_word *av) C_noret;
C_noret_decl(f_20859)
static void C_ccall f_20859(C_word c,C_word *av) C_noret;
C_noret_decl(f_20863)
static void C_ccall f_20863(C_word c,C_word *av) C_noret;
C_noret_decl(f_20872)
static void C_ccall f_20872(C_word c,C_word *av) C_noret;
C_noret_decl(f_20875)
static void C_ccall f_20875(C_word c,C_word *av) C_noret;
C_noret_decl(f_20878)
static void C_ccall f_20878(C_word c,C_word *av) C_noret;
C_noret_decl(f_20883)
static void C_ccall f_20883(C_word c,C_word *av) C_noret;
C_noret_decl(f_20886)
static void C_ccall f_20886(C_word c,C_word *av) C_noret;
C_noret_decl(f_20887)
static void f_20887(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20894)
static void C_ccall f_20894(C_word c,C_word *av) C_noret;
C_noret_decl(f_20905)
static void f_20905(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20915)
static void C_ccall f_20915(C_word c,C_word *av) C_noret;
C_noret_decl(f_20936)
static void C_ccall f_20936(C_word c,C_word *av) C_noret;
C_noret_decl(f_20943)
static void C_ccall f_20943(C_word c,C_word *av) C_noret;
C_noret_decl(f_20946)
static void C_ccall f_20946(C_word c,C_word *av) C_noret;
C_noret_decl(f_20956)
static void C_ccall f_20956(C_word c,C_word *av) C_noret;
C_noret_decl(f_20974)
static void C_ccall f_20974(C_word c,C_word *av) C_noret;
C_noret_decl(f_20982)
static void f_20982(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_20992)
static void C_ccall f_20992(C_word c,C_word *av) C_noret;
C_noret_decl(f_20994)
static void f_20994(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_21019)
static void C_ccall f_21019(C_word c,C_word *av) C_noret;
C_noret_decl(f_21066)
static void f_21066(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_21070)
static void C_ccall f_21070(C_word c,C_word *av) C_noret;
C_noret_decl(f_21073)
static void C_ccall f_21073(C_word c,C_word *av) C_noret;
C_noret_decl(f_21076)
static void C_ccall f_21076(C_word c,C_word *av) C_noret;
C_noret_decl(f_21085)
static void f_21085(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21103)
static void C_ccall f_21103(C_word c,C_word *av) C_noret;
C_noret_decl(f_21110)
static void C_ccall f_21110(C_word c,C_word *av) C_noret;
C_noret_decl(f_21113)
static void f_21113(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21116)
static void C_ccall f_21116(C_word c,C_word *av) C_noret;
C_noret_decl(f_21119)
static void C_ccall f_21119(C_word c,C_word *av) C_noret;
C_noret_decl(f_21122)
static void C_ccall f_21122(C_word c,C_word *av) C_noret;
C_noret_decl(f_21128)
static void f_21128(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21131)
static void C_ccall f_21131(C_word c,C_word *av) C_noret;
C_noret_decl(f_21134)
static void C_ccall f_21134(C_word c,C_word *av) C_noret;
C_noret_decl(f_21137)
static void C_ccall f_21137(C_word c,C_word *av) C_noret;
C_noret_decl(f_21153)
static void C_ccall f_21153(C_word c,C_word *av) C_noret;
C_noret_decl(f_21156)
static void C_ccall f_21156(C_word c,C_word *av) C_noret;
C_noret_decl(f_21170)
static void C_ccall f_21170(C_word c,C_word *av) C_noret;
C_noret_decl(f_21198)
static void C_ccall f_21198(C_word c,C_word *av) C_noret;
C_noret_decl(f_21206)
static void C_ccall f_21206(C_word c,C_word *av) C_noret;
C_noret_decl(f_21250)
static void f_21250(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_21254)
static void C_ccall f_21254(C_word c,C_word *av) C_noret;
C_noret_decl(f_21257)
static void C_ccall f_21257(C_word c,C_word *av) C_noret;
C_noret_decl(f_21260)
static void C_ccall f_21260(C_word c,C_word *av) C_noret;
C_noret_decl(f_21269)
static void f_21269(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21281)
static void C_ccall f_21281(C_word c,C_word *av) C_noret;
C_noret_decl(f_21287)
static void C_ccall f_21287(C_word c,C_word *av) C_noret;
C_noret_decl(f_21303)
static void f_21303(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21306)
static void C_ccall f_21306(C_word c,C_word *av) C_noret;
C_noret_decl(f_21309)
static void C_ccall f_21309(C_word c,C_word *av) C_noret;
C_noret_decl(f_21322)
static void C_ccall f_21322(C_word c,C_word *av) C_noret;
C_noret_decl(f_21335)
static void C_ccall f_21335(C_word c,C_word *av) C_noret;
C_noret_decl(f_21358)
static void f_21358(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21365)
static void C_ccall f_21365(C_word c,C_word *av) C_noret;
C_noret_decl(f_21369)
static void C_ccall f_21369(C_word c,C_word *av) C_noret;
C_noret_decl(f_21381)
static void C_ccall f_21381(C_word c,C_word *av) C_noret;
C_noret_decl(f_21384)
static void C_ccall f_21384(C_word c,C_word *av) C_noret;
C_noret_decl(f_21402)
static void C_ccall f_21402(C_word c,C_word *av) C_noret;
C_noret_decl(f_21406)
static void C_ccall f_21406(C_word c,C_word *av) C_noret;
C_noret_decl(f_21418)
static void C_ccall f_21418(C_word c,C_word *av) C_noret;
C_noret_decl(f_21422)
static void C_ccall f_21422(C_word c,C_word *av) C_noret;
C_noret_decl(f_21426)
static void C_ccall f_21426(C_word c,C_word *av) C_noret;
C_noret_decl(f_21438)
static void C_ccall f_21438(C_word c,C_word *av) C_noret;
C_noret_decl(f_21453)
static void C_ccall f_21453(C_word c,C_word *av) C_noret;
C_noret_decl(f_21457)
static void C_ccall f_21457(C_word c,C_word *av) C_noret;
C_noret_decl(f_21461)
static void C_ccall f_21461(C_word c,C_word *av) C_noret;
C_noret_decl(f_21486)
static void C_ccall f_21486(C_word c,C_word *av) C_noret;
C_noret_decl(f_21490)
static void C_ccall f_21490(C_word c,C_word *av) C_noret;
C_noret_decl(f_21502)
static void C_ccall f_21502(C_word c,C_word *av) C_noret;
C_noret_decl(f_21511)
static void C_ccall f_21511(C_word c,C_word *av) C_noret;
C_noret_decl(f_21514)
static void C_ccall f_21514(C_word c,C_word *av) C_noret;
C_noret_decl(f_21523)
static void C_ccall f_21523(C_word c,C_word *av) C_noret;
C_noret_decl(f_21526)
static void f_21526(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21529)
static void C_ccall f_21529(C_word c,C_word *av) C_noret;
C_noret_decl(f_21535)
static void f_21535(C_word t0,C_word t1) C_noret;
C_noret_decl(f_21538)
static void C_ccall f_21538(C_word c,C_word *av) C_noret;
C_noret_decl(f_21541)
static void C_ccall f_21541(C_word c,C_word *av) C_noret;
C_noret_decl(f_21544)
static void C_ccall f_21544(C_word c,C_word *av) C_noret;
C_noret_decl(f_21559)
static void C_ccall f_21559(C_word c,C_word *av) C_noret;
C_noret_decl(f_21564)
static void f_21564(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_21587)
static void C_ccall f_21587(C_word c,C_word *av) C_noret;
C_noret_decl(f_21599)
static void C_ccall f_21599(C_word c,C_word *av) C_noret;
C_noret_decl(f_21602)
static void C_ccall f_21602(C_word c,C_word *av) C_noret;
C_noret_decl(f_21613)
static void C_ccall f_21613(C_word c,C_word *av) C_noret;
C_noret_decl(f_21617)
static void C_ccall f_21617(C_word c,C_word *av) C_noret;
C_noret_decl(f_21621)
static void C_ccall f_21621(C_word c,C_word *av) C_noret;
C_noret_decl(f_21629)
static void C_ccall f_21629(C_word c,C_word *av) C_noret;
C_noret_decl(f_21636)
static void C_ccall f_21636(C_word c,C_word *av) C_noret;
C_noret_decl(f_21642)
static void f_21642(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_21667)
static void C_ccall f_21667(C_word c,C_word *av) C_noret;
C_noret_decl(f_21689)
static void C_ccall f_21689(C_word c,C_word *av) C_noret;
C_noret_decl(f_21693)
static void C_ccall f_21693(C_word c,C_word *av) C_noret;
C_noret_decl(f_21696)
static void C_ccall f_21696(C_word c,C_word *av) C_noret;
C_noret_decl(f_21706)
static void C_ccall f_21706(C_word c,C_word *av) C_noret;
C_noret_decl(f_21723)
static void C_ccall f_21723(C_word c,C_word *av) C_noret;
C_noret_decl(f_21733)
static void C_ccall f_21733(C_word c,C_word *av) C_noret;
C_noret_decl(f_21735)
static void f_21735(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_21761)
static void C_ccall f_21761(C_word c,C_word *av) C_noret;
C_noret_decl(f_21771)
static void f_21771(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_21796)
static void C_ccall f_21796(C_word c,C_word *av) C_noret;
C_noret_decl(f_21807)
static void C_ccall f_21807(C_word c,C_word *av) C_noret;
C_noret_decl(f_21827)
static void C_ccall f_21827(C_word c,C_word *av) C_noret;
C_noret_decl(f_21832)
static C_word f_21832(C_word t0,C_word t1);
C_noret_decl(f_21848)
static void C_ccall f_21848(C_word c,C_word *av) C_noret;
C_noret_decl(f_21863)
static void f_21863(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_21906)
static void C_ccall f_21906(C_word c,C_word *av) C_noret;
C_noret_decl(f_21912)
static void C_ccall f_21912(C_word c,C_word *av) C_noret;
C_noret_decl(f_21966)
static void C_ccall f_21966(C_word c,C_word *av) C_noret;
C_noret_decl(f_21977)
static void f_21977(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_22025)
static void f_22025(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_22050)
static void C_ccall f_22050(C_word c,C_word *av) C_noret;
C_noret_decl(f_22059)
static void C_ccall f_22059(C_word c,C_word *av) C_noret;
C_noret_decl(f_22078)
static void C_ccall f_22078(C_word c,C_word *av) C_noret;
C_noret_decl(f_22081)
static void C_ccall f_22081(C_word c,C_word *av) C_noret;
C_noret_decl(f_22084)
static void f_22084(C_word t0,C_word t1) C_noret;
C_noret_decl(f_22087)
static void C_ccall f_22087(C_word c,C_word *av) C_noret;
C_noret_decl(f_22091)
static void f_22091(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_22098)
static void C_ccall f_22098(C_word c,C_word *av) C_noret;
C_noret_decl(f_22113)
static void C_ccall f_22113(C_word c,C_word *av) C_noret;
C_noret_decl(f_22117)
static void C_ccall f_22117(C_word c,C_word *av) C_noret;
C_noret_decl(f_22129)
static void C_ccall f_22129(C_word c,C_word *av) C_noret;
C_noret_decl(f_22150)
static void C_ccall f_22150(C_word c,C_word *av) C_noret;
C_noret_decl(f_22154)
static void C_ccall f_22154(C_word c,C_word *av) C_noret;
C_noret_decl(f_22165)
static void C_ccall f_22165(C_word c,C_word *av) C_noret;
C_noret_decl(f_22180)
static void C_ccall f_22180(C_word c,C_word *av) C_noret;
C_noret_decl(f_22184)
static void C_ccall f_22184(C_word c,C_word *av) C_noret;
C_noret_decl(f_22199)
static void C_ccall f_22199(C_word c,C_word *av) C_noret;
C_noret_decl(f_22232)
static void C_ccall f_22232(C_word c,C_word *av) C_noret;
C_noret_decl(f_22253)
static void C_ccall f_22253(C_word c,C_word *av) C_noret;
C_noret_decl(f_22264)
static void C_ccall f_22264(C_word c,C_word *av) C_noret;
C_noret_decl(f_22268)
static void C_ccall f_22268(C_word c,C_word *av) C_noret;
C_noret_decl(f_22272)
static void C_ccall f_22272(C_word c,C_word *av) C_noret;
C_noret_decl(f_22511)
static void f_22511(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_22516)
static void f_22516(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_22528)
static void f_22528(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_22553)
static void C_ccall f_22553(C_word c,C_word *av) C_noret;
C_noret_decl(f_22584)
static void C_ccall f_22584(C_word c,C_word *av) C_noret;
C_noret_decl(f_22596)
static void C_ccall f_22596(C_word c,C_word *av) C_noret;
C_noret_decl(f_22598)
static void f_22598(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_22602)
static void C_ccall f_22602(C_word c,C_word *av) C_noret;
C_noret_decl(f_22606)
static void f_22606(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_22622)
static void C_ccall f_22622(C_word c,C_word *av) C_noret;
C_noret_decl(f_22634)
static void C_ccall f_22634(C_word c,C_word *av) C_noret;
C_noret_decl(f_22638)
static void C_ccall f_22638(C_word c,C_word *av) C_noret;
C_noret_decl(f_22646)
static void C_ccall f_22646(C_word c,C_word *av) C_noret;
C_noret_decl(f_22651)
static void f_22651(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_22657)
static void f_22657(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_22671)
static void C_ccall f_22671(C_word c,C_word *av) C_noret;
C_noret_decl(f_22679)
static void f_22679(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_22686)
static void C_ccall f_22686(C_word c,C_word *av) C_noret;
C_noret_decl(f_22690)
static void f_22690(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_22706)
static void C_ccall f_22706(C_word c,C_word *av) C_noret;
C_noret_decl(f_22717)
static void C_ccall f_22717(C_word c,C_word *av) C_noret;
C_noret_decl(f_22720)
static void C_ccall f_22720(C_word c,C_word *av) C_noret;
C_noret_decl(f_22723)
static void C_ccall f_22723(C_word c,C_word *av) C_noret;
C_noret_decl(f_22726)
static void C_ccall f_22726(C_word c,C_word *av) C_noret;
C_noret_decl(f_22729)
static void C_ccall f_22729(C_word c,C_word *av) C_noret;
C_noret_decl(f_22732)
static void C_ccall f_22732(C_word c,C_word *av) C_noret;
C_noret_decl(f_22735)
static void C_ccall f_22735(C_word c,C_word *av) C_noret;
C_noret_decl(f_22738)
static void C_ccall f_22738(C_word c,C_word *av) C_noret;
C_noret_decl(f_22741)
static void C_ccall f_22741(C_word c,C_word *av) C_noret;
C_noret_decl(f_22744)
static void C_ccall f_22744(C_word c,C_word *av) C_noret;
C_noret_decl(f_22751)
static void f_22751(C_word t0,C_word t1) C_noret;
C_noret_decl(f_22754)
static void C_ccall f_22754(C_word c,C_word *av) C_noret;
C_noret_decl(f_22762)
static void C_ccall f_22762(C_word c,C_word *av) C_noret;
C_noret_decl(f_22768)
static void C_ccall f_22768(C_word c,C_word *av) C_noret;
C_noret_decl(f_22801)
static void C_ccall f_22801(C_word c,C_word *av) C_noret;
C_noret_decl(f_22819)
static void C_ccall f_22819(C_word c,C_word *av) C_noret;
C_noret_decl(f_22855)
static void C_ccall f_22855(C_word c,C_word *av) C_noret;
C_noret_decl(f_22873)
static void C_ccall f_22873(C_word c,C_word *av) C_noret;
C_noret_decl(f_22891)
static void C_ccall f_22891(C_word c,C_word *av) C_noret;
C_noret_decl(f_22909)
static void C_ccall f_22909(C_word c,C_word *av) C_noret;
C_noret_decl(f_22927)
static void C_ccall f_22927(C_word c,C_word *av) C_noret;
C_noret_decl(f_22945)
static void C_ccall f_22945(C_word c,C_word *av) C_noret;
C_noret_decl(f_22981)
static void C_ccall f_22981(C_word c,C_word *av) C_noret;
C_noret_decl(f_22999)
static void C_ccall f_22999(C_word c,C_word *av) C_noret;
C_noret_decl(f_23017)
static void C_ccall f_23017(C_word c,C_word *av) C_noret;
C_noret_decl(f_23035)
static void C_ccall f_23035(C_word c,C_word *av) C_noret;
C_noret_decl(f_23053)
static void C_ccall f_23053(C_word c,C_word *av) C_noret;
C_noret_decl(f_23071)
static void C_ccall f_23071(C_word c,C_word *av) C_noret;
C_noret_decl(f_23080)
static void C_ccall f_23080(C_word c,C_word *av) C_noret;
C_noret_decl(f_23084)
static void C_ccall f_23084(C_word c,C_word *av) C_noret;
C_noret_decl(f_23086)
static void f_23086(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
C_noret_decl(f_23090)
static void C_ccall f_23090(C_word c,C_word *av) C_noret;
C_noret_decl(f_23094)
static void f_23094(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_23119)
static void C_ccall f_23119(C_word c,C_word *av) C_noret;
C_noret_decl(f_23130)
static void C_ccall f_23130(C_word c,C_word *av) C_noret;
C_noret_decl(f_23135)
static void f_23135(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_23139)
static void C_ccall f_23139(C_word c,C_word *av) C_noret;
C_noret_decl(f_23142)
static void f_23142(C_word t0,C_word t1) C_noret;
C_noret_decl(f_23145)
static void f_23145(C_word t0,C_word t1) C_noret;
C_noret_decl(f_23156)
static void C_ccall f_23156(C_word c,C_word *av) C_noret;
C_noret_decl(f_23167)
static void C_ccall f_23167(C_word c,C_word *av) C_noret;
C_noret_decl(f_23174)
static void C_ccall f_23174(C_word c,C_word *av) C_noret;
C_noret_decl(f_23183)
static void C_ccall f_23183(C_word c,C_word *av) C_noret;
C_noret_decl(f_23191)
static void f_23191(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
C_noret_decl(f_23195)
static void C_ccall f_23195(C_word c,C_word *av) C_noret;
C_noret_decl(f_23198)
static void C_ccall f_23198(C_word c,C_word *av) C_noret;
C_noret_decl(f_23201)
static void C_ccall f_23201(C_word c,C_word *av) C_noret;
C_noret_decl(f_23210)
static void f_23210(C_word t0,C_word t1) C_noret;
C_noret_decl(f_23238)
static void f_23238(C_word t0,C_word t1) C_noret;
C_noret_decl(f_23249)
static void C_ccall f_23249(C_word c,C_word *av) C_noret;
C_noret_decl(f_23269)
static void C_ccall f_23269(C_word c,C_word *av) C_noret;
C_noret_decl(f_23273)
static void C_ccall f_23273(C_word c,C_word *av) C_noret;
C_noret_decl(f_23294)
static void C_ccall f_23294(C_word c,C_word *av) C_noret;
C_noret_decl(f_23315)
static void C_ccall f_23315(C_word c,C_word *av) C_noret;
C_noret_decl(f_23332)
static void C_ccall f_23332(C_word c,C_word *av) C_noret;
C_noret_decl(f_23336)
static void C_ccall f_23336(C_word c,C_word *av) C_noret;
C_noret_decl(f_23357)
static void C_ccall f_23357(C_word c,C_word *av) C_noret;
C_noret_decl(f_23361)
static void C_ccall f_23361(C_word c,C_word *av) C_noret;
C_noret_decl(f_23365)
static void C_ccall f_23365(C_word c,C_word *av) C_noret;
C_noret_decl(f_23386)
static void C_ccall f_23386(C_word c,C_word *av) C_noret;
C_noret_decl(f_23411)
static void C_ccall f_23411(C_word c,C_word *av) C_noret;
C_noret_decl(f_23427)
static void C_ccall f_23427(C_word c,C_word *av) C_noret;
C_noret_decl(f_23437)
static void f_23437(C_word t0,C_word t1) C_noret;
C_noret_decl(f_23453)
static void C_ccall f_23453(C_word c,C_word *av) C_noret;
C_noret_decl(f_23457)
static void C_ccall f_23457(C_word c,C_word *av) C_noret;
C_noret_decl(f_23466)
static void C_ccall f_23466(C_word c,C_word *av) C_noret;
C_noret_decl(f_23507)
static void C_ccall f_23507(C_word c,C_word *av) C_noret;
C_noret_decl(f_23514)
static void C_ccall f_23514(C_word c,C_word *av) C_noret;
C_noret_decl(f_23517)
static void C_ccall f_23517(C_word c,C_word *av) C_noret;
C_noret_decl(f_23520)
static void C_ccall f_23520(C_word c,C_word *av) C_noret;
C_noret_decl(f_23523)
static void C_ccall f_23523(C_word c,C_word *av) C_noret;
C_noret_decl(f_23526)
static void C_ccall f_23526(C_word c,C_word *av) C_noret;
C_noret_decl(f_23534)
static void C_ccall f_23534(C_word c,C_word *av) C_noret;
C_noret_decl(f_23563)
static void C_ccall f_23563(C_word c,C_word *av) C_noret;
C_noret_decl(f_23570)
static void f_23570(C_word t0,C_word t1) C_noret;
C_noret_decl(f_23574)
static void C_ccall f_23574(C_word c,C_word *av) C_noret;
C_noret_decl(f_23589)
static void C_ccall f_23589(C_word c,C_word *av) C_noret;
C_noret_decl(f_23612)
static void C_ccall f_23612(C_word c,C_word *av) C_noret;
C_noret_decl(f_23633)
static void C_ccall f_23633(C_word c,C_word *av) C_noret;
C_noret_decl(f_23642)
static void C_ccall f_23642(C_word c,C_word *av) C_noret;
C_noret_decl(f_23648)
static void C_ccall f_23648(C_word c,C_word *av) C_noret;
C_noret_decl(f_23673)
static void C_ccall f_23673(C_word c,C_word *av) C_noret;
C_noret_decl(f_23705)
static void C_ccall f_23705(C_word c,C_word *av) C_noret;
C_noret_decl(f_23709)
static void C_ccall f_23709(C_word c,C_word *av) C_noret;
C_noret_decl(f_23717)
static void C_ccall f_23717(C_word c,C_word *av) C_noret;
C_noret_decl(f_23725)
static void C_ccall f_23725(C_word c,C_word *av) C_noret;
C_noret_decl(f_23729)
static void C_ccall f_23729(C_word c,C_word *av) C_noret;
C_noret_decl(f_23739)
static void C_ccall f_23739(C_word c,C_word *av) C_noret;
C_noret_decl(f_23766)
static void C_ccall f_23766(C_word c,C_word *av) C_noret;
C_noret_decl(f_23770)
static void C_ccall f_23770(C_word c,C_word *av) C_noret;
C_noret_decl(f_23789)
static void C_ccall f_23789(C_word c,C_word *av) C_noret;
C_noret_decl(f_23793)
static void f_23793(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_23809)
static void C_ccall f_23809(C_word c,C_word *av) C_noret;
C_noret_decl(f_23823)
static void C_ccall f_23823(C_word c,C_word *av) C_noret;
C_noret_decl(f_23829)
static void C_ccall f_23829(C_word c,C_word *av) C_noret;
C_noret_decl(f_23832)
static void f_23832(C_word t0,C_word t1) C_noret;
C_noret_decl(f_23835)
static void f_23835(C_word t0,C_word t1) C_noret;
C_noret_decl(f_23854)
static void C_ccall f_23854(C_word c,C_word *av) C_noret;
C_noret_decl(f_23862)
static void C_ccall f_23862(C_word c,C_word *av) C_noret;
C_noret_decl(f_23903)
static void C_ccall f_23903(C_word c,C_word *av) C_noret;
C_noret_decl(f_23907)
static void C_ccall f_23907(C_word c,C_word *av) C_noret;
C_noret_decl(f_23922)
static void f_23922(C_word t0,C_word t1) C_noret;
C_noret_decl(f_23926)
static void C_ccall f_23926(C_word c,C_word *av) C_noret;
C_noret_decl(f_23929)
static void f_23929(C_word t0,C_word t1) C_noret;
C_noret_decl(f_23932)
static void f_23932(C_word t0,C_word t1) C_noret;
C_noret_decl(f_23939)
static void C_ccall f_23939(C_word c,C_word *av) C_noret;
C_noret_decl(f_23959)
static void C_ccall f_23959(C_word c,C_word *av) C_noret;
C_noret_decl(f_23963)
static void C_ccall f_23963(C_word c,C_word *av) C_noret;
C_noret_decl(f_23970)
static void f_23970(C_word t0,C_word t1) C_noret;
C_noret_decl(f_24007)
static void f_24007(C_word t0,C_word t1) C_noret;
C_noret_decl(f_24014)
static void C_ccall f_24014(C_word c,C_word *av) C_noret;
C_noret_decl(f_24034)
static void f_24034(C_word t0,C_word t1) C_noret;
C_noret_decl(f_24055)
static void f_24055(C_word t0,C_word t1) C_noret;
C_noret_decl(f_24058)
static void C_ccall f_24058(C_word c,C_word *av) C_noret;
C_noret_decl(f_24065)
static void C_ccall f_24065(C_word c,C_word *av) C_noret;
C_noret_decl(f_24069)
static void C_ccall f_24069(C_word c,C_word *av) C_noret;
C_noret_decl(f_24075)
static void C_ccall f_24075(C_word c,C_word *av) C_noret;
C_noret_decl(f_24078)
static void C_ccall f_24078(C_word c,C_word *av) C_noret;
C_noret_decl(f_24081)
static void C_ccall f_24081(C_word c,C_word *av) C_noret;
C_noret_decl(f_24084)
static void C_ccall f_24084(C_word c,C_word *av) C_noret;
C_noret_decl(f_24087)
static void C_ccall f_24087(C_word c,C_word *av) C_noret;
C_noret_decl(f_24091)
static void C_ccall f_24091(C_word c,C_word *av) C_noret;
C_noret_decl(f_24102)
static void C_ccall f_24102(C_word c,C_word *av) C_noret;
C_noret_decl(f_24113)
static void C_ccall f_24113(C_word c,C_word *av) C_noret;
C_noret_decl(f_24119)
static void C_ccall f_24119(C_word c,C_word *av) C_noret;
C_noret_decl(f_24133)
static void C_ccall f_24133(C_word c,C_word *av) C_noret;
C_noret_decl(f_24143)
static void C_ccall f_24143(C_word c,C_word *av) C_noret;
C_noret_decl(f_24155)
static void C_ccall f_24155(C_word c,C_word *av) C_noret;
C_noret_decl(f_24158)
static void C_ccall f_24158(C_word c,C_word *av) C_noret;
C_noret_decl(f_24161)
static void C_ccall f_24161(C_word c,C_word *av) C_noret;
C_noret_decl(f_24180)
static void C_ccall f_24180(C_word c,C_word *av) C_noret;
C_noret_decl(f_24192)
static void C_ccall f_24192(C_word c,C_word *av) C_noret;
C_noret_decl(f_24221)
static void C_ccall f_24221(C_word c,C_word *av) C_noret;
C_noret_decl(f_24232)
static void C_ccall f_24232(C_word c,C_word *av) C_noret;
C_noret_decl(f_24242)
static void f_24242(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_24251)
static void C_ccall f_24251(C_word c,C_word *av) C_noret;
C_noret_decl(f_24262)
static void C_ccall f_24262(C_word c,C_word *av) C_noret;
C_noret_decl(f_24273)
static void C_ccall f_24273(C_word c,C_word *av) C_noret;
C_noret_decl(f_24276)
static void C_ccall f_24276(C_word c,C_word *av) C_noret;
C_noret_decl(f_24283)
static void C_ccall f_24283(C_word c,C_word *av) C_noret;
C_noret_decl(f_24293)
static void C_ccall f_24293(C_word c,C_word *av) C_noret;
C_noret_decl(f_24334)
static void C_ccall f_24334(C_word c,C_word *av) C_noret;
C_noret_decl(f_24401)
static void f_24401(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
C_noret_decl(f_24406)
static void f_24406(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_24418)
static void f_24418(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_24443)
static void C_ccall f_24443(C_word c,C_word *av) C_noret;
C_noret_decl(f_24452)
static void f_24452(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_24459)
static void C_ccall f_24459(C_word c,C_word *av) C_noret;
C_noret_decl(f_24484)
static C_word f_24484(C_word t0,C_word t1);
C_noret_decl(f_24500)
static C_word f_24500(C_word *a,C_word t0,C_word t1);
C_noret_decl(f_24509)
static void f_24509(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_24513)
static void C_ccall f_24513(C_word c,C_word *av) C_noret;
C_noret_decl(f_24517)
static C_word f_24517(C_word t0,C_word t1);
C_noret_decl(f_24535)
static void C_ccall f_24535(C_word c,C_word *av) C_noret;
C_noret_decl(f_24537)
static void f_24537(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_24544)
static void C_ccall f_24544(C_word c,C_word *av) C_noret;
C_noret_decl(f_24551)
static void C_ccall f_24551(C_word c,C_word *av) C_noret;
C_noret_decl(f_24553)
static void f_24553(C_word t0,C_word t1) C_noret;
C_noret_decl(f_24570)
static void C_ccall f_24570(C_word c,C_word *av) C_noret;
C_noret_decl(f_24622)
static void C_ccall f_24622(C_word c,C_word *av) C_noret;
C_noret_decl(f_24625)
static void C_ccall f_24625(C_word c,C_word *av) C_noret;
C_noret_decl(f_24628)
static void C_ccall f_24628(C_word c,C_word *av) C_noret;
C_noret_decl(f_24631)
static void C_ccall f_24631(C_word c,C_word *av) C_noret;
C_noret_decl(f_24634)
static void C_ccall f_24634(C_word c,C_word *av) C_noret;
C_noret_decl(f_24641)
static void C_ccall f_24641(C_word c,C_word *av) C_noret;
C_noret_decl(f_24645)
static void C_ccall f_24645(C_word c,C_word *av) C_noret;
C_noret_decl(f_24649)
static void C_ccall f_24649(C_word c,C_word *av) C_noret;
C_noret_decl(f_6704)
static void C_ccall f_6704(C_word c,C_word *av) C_noret;
C_noret_decl(f_6707)
static void C_ccall f_6707(C_word c,C_word *av) C_noret;
C_noret_decl(f_6710)
static void C_ccall f_6710(C_word c,C_word *av) C_noret;
C_noret_decl(f_6713)
static void C_ccall f_6713(C_word c,C_word *av) C_noret;
C_noret_decl(f_6716)
static void C_ccall f_6716(C_word c,C_word *av) C_noret;
C_noret_decl(f_6719)
static void C_ccall f_6719(C_word c,C_word *av) C_noret;
C_noret_decl(f_6722)
static void C_ccall f_6722(C_word c,C_word *av) C_noret;
C_noret_decl(f_6725)
static void C_ccall f_6725(C_word c,C_word *av) C_noret;
C_noret_decl(f_6728)
static void C_ccall f_6728(C_word c,C_word *av) C_noret;
C_noret_decl(f_6731)
static void C_ccall f_6731(C_word c,C_word *av) C_noret;
C_noret_decl(f_6917)
static void f_6917(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_6931)
static void C_ccall f_6931(C_word c,C_word *av) C_noret;
C_noret_decl(f_7120)
static void f_7120(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7126)
static void f_7126(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7148)
static void C_ccall f_7148(C_word c,C_word *av) C_noret;
C_noret_decl(f_7154)
static void f_7154(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7160)
static void f_7160(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7170)
static void C_ccall f_7170(C_word c,C_word *av) C_noret;
C_noret_decl(f_7184)
static void f_7184(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7190)
static void f_7190(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7204)
static void C_ccall f_7204(C_word c,C_word *av) C_noret;
C_noret_decl(f_7212)
static void f_7212(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7218)
static void f_7218(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7236)
static void C_ccall f_7236(C_word c,C_word *av) C_noret;
C_noret_decl(f_7240)
static void f_7240(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7246)
static void f_7246(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7259)
static void C_ccall f_7259(C_word c,C_word *av) C_noret;
C_noret_decl(f_7273)
static void C_ccall f_7273(C_word c,C_word *av) C_noret;
C_noret_decl(f_7360)
static void f_7360(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7369)
static void f_7369(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7377)
static void f_7377(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7384)
static void C_ccall f_7384(C_word c,C_word *av) C_noret;
C_noret_decl(f_7398)
static void C_ccall f_7398(C_word c,C_word *av) C_noret;
C_noret_decl(f_7413)
static void f_7413(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7421)
static void f_7421(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7425)
static void C_ccall f_7425(C_word c,C_word *av) C_noret;
C_noret_decl(f_7429)
static C_word f_7429(C_word *a,C_word t0,C_word t1);
C_noret_decl(f_7447)
static void C_ccall f_7447(C_word c,C_word *av) C_noret;
C_noret_decl(f_7459)
static void C_ccall f_7459(C_word c,C_word *av) C_noret;
C_noret_decl(f_7467)
static void C_ccall f_7467(C_word c,C_word *av) C_noret;
C_noret_decl(f_7469)
static void f_7469(C_word t0,C_word t1) C_noret;
C_noret_decl(f_7486)
static void f_7486(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7526)
static C_word f_7526(C_word t0);
C_noret_decl(f_7551)
static void f_7551(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7564)
static void C_ccall f_7564(C_word c,C_word *av) C_noret;
C_noret_decl(f_7579)
static void f_7579(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7585)
static void f_7585(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7620)
static void f_7620(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7628)
static void C_ccall f_7628(C_word c,C_word *av) C_noret;
C_noret_decl(f_7641)
static void f_7641(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7659)
static void C_ccall f_7659(C_word c,C_word *av) C_noret;
C_noret_decl(f_7665)
static void f_7665(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7676)
static void C_ccall f_7676(C_word c,C_word *av) C_noret;
C_noret_decl(f_7681)
static void C_ccall f_7681(C_word c,C_word *av) C_noret;
C_noret_decl(f_7693)
static void f_7693(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7720)
static void f_7720(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_7738)
static void C_ccall f_7738(C_word c,C_word *av) C_noret;
C_noret_decl(f_7744)
static void f_7744(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7750)
static void C_ccall f_7750(C_word c,C_word *av) C_noret;
C_noret_decl(f_7756)
static void C_ccall f_7756(C_word c,C_word *av) C_noret;
C_noret_decl(f_7963)
static void f_7963(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_7969)
static C_word f_7969(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_8003)
static C_word f_8003(C_word t0,C_word t1,C_word t2);
C_noret_decl(f_8101)
static void C_ccall f_8101(C_word c,C_word *av) C_noret;
C_noret_decl(f_8105)
static void C_ccall f_8105(C_word c,C_word *av) C_noret;
C_noret_decl(f_8108)
static void C_ccall f_8108(C_word c,C_word *av) C_noret;
C_noret_decl(f_8111)
static void C_ccall f_8111(C_word c,C_word *av) C_noret;
C_noret_decl(f_8114)
static void C_ccall f_8114(C_word c,C_word *av) C_noret;
C_noret_decl(f_8117)
static void C_ccall f_8117(C_word c,C_word *av) C_noret;
C_noret_decl(f_8127)
static void C_ccall f_8127(C_word c,C_word *av) C_noret;
C_noret_decl(f_8134)
static void C_ccall f_8134(C_word c,C_word *av) C_noret;
C_noret_decl(f_8141)
static void C_ccall f_8141(C_word c,C_word *av) C_noret;
C_noret_decl(f_8143)
static void C_ccall f_8143(C_word c,C_word *av) C_noret;
C_noret_decl(f_8147)
static void C_ccall f_8147(C_word c,C_word *av) C_noret;
C_noret_decl(f_8152)
static void C_ccall f_8152(C_word c,C_word *av) C_noret;
C_noret_decl(f_8154)
static void f_8154(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8196)
static void C_ccall f_8196(C_word c,C_word *av) C_noret;
C_noret_decl(f_8228)
static void f_8228(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8238)
static void C_ccall f_8238(C_word c,C_word *av) C_noret;
C_noret_decl(f_8251)
static void C_ccall f_8251(C_word c,C_word *av) C_noret;
C_noret_decl(f_8254)
static void f_8254(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_8267)
static void f_8267(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8289)
static void f_8289(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8293)
static void C_ccall f_8293(C_word c,C_word *av) C_noret;
C_noret_decl(f_8301)
static void C_ccall f_8301(C_word c,C_word *av) C_noret;
C_noret_decl(f_8307)
static void C_ccall f_8307(C_word c,C_word *av) C_noret;
C_noret_decl(f_8314)
static void C_ccall f_8314(C_word c,C_word *av) C_noret;
C_noret_decl(f_8321)
static void C_ccall f_8321(C_word c,C_word *av) C_noret;
C_noret_decl(f_8323)
static void f_8323(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8327)
static void C_ccall f_8327(C_word c,C_word *av) C_noret;
C_noret_decl(f_8330)
static void C_ccall f_8330(C_word c,C_word *av) C_noret;
C_noret_decl(f_8334)
static void C_ccall f_8334(C_word c,C_word *av) C_noret;
C_noret_decl(f_8336)
static void f_8336(C_word t0,C_word t1) C_noret;
C_noret_decl(f_8338)
static void C_ccall f_8338(C_word c,C_word *av) C_noret;
C_noret_decl(f_8345)
static void C_ccall f_8345(C_word c,C_word *av) C_noret;
C_noret_decl(f_8348)
static void C_ccall f_8348(C_word c,C_word *av) C_noret;
C_noret_decl(f_8363)
static void f_8363(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
C_noret_decl(f_8367)
static void C_ccall f_8367(C_word c,C_word *av) C_noret;
C_noret_decl(f_8372)
static void C_ccall f_8372(C_word c,C_word *av) C_noret;
C_noret_decl(f_8377)
static void C_ccall f_8377(C_word c,C_word *av) C_noret;
C_noret_decl(f_8385)
static void C_ccall f_8385(C_word c,C_word *av) C_noret;
C_noret_decl(f_8387)
static void C_ccall f_8387(C_word c,C_word *av) C_noret;
C_noret_decl(f_8392)
static void f_8392(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8409)
static void f_8409(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_8419)
static void C_ccall f_8419(C_word c,C_word *av) C_noret;
C_noret_decl(f_8458)
static void f_8458(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8490)
static void C_ccall f_8490(C_word c,C_word *av) C_noret;
C_noret_decl(f_8501)
static void f_8501(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7) C_noret;
C_noret_decl(f_8505)
static void C_ccall f_8505(C_word c,C_word *av) C_noret;
C_noret_decl(f_8508)
static void C_ccall f_8508(C_word c,C_word *av) C_noret;
C_noret_decl(f_8520)
static void C_ccall f_8520(C_word c,C_word *av) C_noret;
C_noret_decl(f_8524)
static void f_8524(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8534)
static void C_ccall f_8534(C_word c,C_word *av) C_noret;
C_noret_decl(f_8538)
static void f_8538(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8552)
static void f_8552(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8559)
static void C_ccall f_8559(C_word c,C_word *av) C_noret;
C_noret_decl(f_8569)
static void C_ccall f_8569(C_word c,C_word *av) C_noret;
C_noret_decl(f_8573)
static void C_ccall f_8573(C_word c,C_word *av) C_noret;
C_noret_decl(f_8591)
static void f_8591(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8598)
static void C_ccall f_8598(C_word c,C_word *av) C_noret;
C_noret_decl(f_8608)
static void C_ccall f_8608(C_word c,C_word *av) C_noret;
C_noret_decl(f_8612)
static void C_ccall f_8612(C_word c,C_word *av) C_noret;
C_noret_decl(f_8643)
static void f_8643(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8654)
static void C_ccall f_8654(C_word c,C_word *av) C_noret;
C_noret_decl(f_8658)
static void C_ccall f_8658(C_word c,C_word *av) C_noret;
C_noret_decl(f_8661)
static void C_ccall f_8661(C_word c,C_word *av) C_noret;
C_noret_decl(f_8667)
static void C_ccall f_8667(C_word c,C_word *av) C_noret;
C_noret_decl(f_8670)
static void C_ccall f_8670(C_word c,C_word *av) C_noret;
C_noret_decl(f_8673)
static void C_ccall f_8673(C_word c,C_word *av) C_noret;
C_noret_decl(f_8697)
static void C_ccall f_8697(C_word c,C_word *av) C_noret;
C_noret_decl(f_8703)
static void C_ccall f_8703(C_word c,C_word *av) C_noret;
C_noret_decl(f_8706)
static void C_ccall f_8706(C_word c,C_word *av) C_noret;
C_noret_decl(f_8709)
static void C_ccall f_8709(C_word c,C_word *av) C_noret;
C_noret_decl(f_8712)
static void C_ccall f_8712(C_word c,C_word *av) C_noret;
C_noret_decl(f_8718)
static void C_ccall f_8718(C_word c,C_word *av) C_noret;
C_noret_decl(f_8721)
static void C_ccall f_8721(C_word c,C_word *av) C_noret;
C_noret_decl(f_8724)
static void C_ccall f_8724(C_word c,C_word *av) C_noret;
C_noret_decl(f_8739)
static void C_ccall f_8739(C_word c,C_word *av) C_noret;
C_noret_decl(f_8744)
static void C_ccall f_8744(C_word c,C_word *av) C_noret;
C_noret_decl(f_8748)
static void C_ccall f_8748(C_word c,C_word *av) C_noret;
C_noret_decl(f_8754)
static void C_ccall f_8754(C_word c,C_word *av) C_noret;
C_noret_decl(f_8759)
static void f_8759(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_8769)
static void C_ccall f_8769(C_word c,C_word *av) C_noret;
C_noret_decl(f_8784)
static void C_ccall f_8784(C_word c,C_word *av) C_noret;
C_noret_decl(f_8793)
static void C_ccall f_8793(C_word c,C_word *av) C_noret;
C_noret_decl(f_8803)
static void C_ccall f_8803(C_word c,C_word *av) C_noret;
C_noret_decl(f_8809)
static void f_8809(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8,C_word t9) C_noret;
C_noret_decl(f_8823)
static void C_ccall f_8823(C_word c,C_word *av) C_noret;
C_noret_decl(f_8827)
static void C_ccall f_8827(C_word c,C_word *av) C_noret;
C_noret_decl(f_8832)
static void C_ccall f_8832(C_word c,C_word *av) C_noret;
C_noret_decl(f_8837)
static void C_ccall f_8837(C_word c,C_word *av) C_noret;
C_noret_decl(f_8843)
static void C_ccall f_8843(C_word c,C_word *av) C_noret;
C_noret_decl(f_8856)
static void C_ccall f_8856(C_word c,C_word *av) C_noret;
C_noret_decl(f_8869)
static void f_8869(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8) C_noret;
C_noret_decl(f_8876)
static void C_ccall f_8876(C_word c,C_word *av) C_noret;
C_noret_decl(f_8900)
static void C_ccall f_8900(C_word c,C_word *av) C_noret;
C_noret_decl(f_8915)
static void C_ccall f_8915(C_word c,C_word *av) C_noret;
C_noret_decl(f_8921)
static void C_ccall f_8921(C_word c,C_word *av) C_noret;
C_noret_decl(f_8925)
static void C_ccall f_8925(C_word c,C_word *av) C_noret;
C_noret_decl(f_8928)
static void C_ccall f_8928(C_word c,C_word *av) C_noret;
C_noret_decl(f_8931)
static void C_ccall f_8931(C_word c,C_word *av) C_noret;
C_noret_decl(f_8956)
static void C_ccall f_8956(C_word c,C_word *av) C_noret;
C_noret_decl(f_8962)
static void C_ccall f_8962(C_word c,C_word *av) C_noret;
C_noret_decl(f_8965)
static void C_ccall f_8965(C_word c,C_word *av) C_noret;
C_noret_decl(f_8968)
static void C_ccall f_8968(C_word c,C_word *av) C_noret;
C_noret_decl(f_8971)
static void C_ccall f_8971(C_word c,C_word *av) C_noret;
C_noret_decl(f_8977)
static void C_ccall f_8977(C_word c,C_word *av) C_noret;
C_noret_decl(f_8981)
static void f_8981(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9009)
static void C_ccall f_9009(C_word c,C_word *av) C_noret;
C_noret_decl(f_9013)
static void C_ccall f_9013(C_word c,C_word *av) C_noret;
C_noret_decl(f_9017)
static void C_ccall f_9017(C_word c,C_word *av) C_noret;
C_noret_decl(f_9055)
static void C_ccall f_9055(C_word c,C_word *av) C_noret;
C_noret_decl(f_9088)
static void C_ccall f_9088(C_word c,C_word *av) C_noret;
C_noret_decl(f_9096)
static void C_ccall f_9096(C_word c,C_word *av) C_noret;
C_noret_decl(f_9113)
static void C_ccall f_9113(C_word c,C_word *av) C_noret;
C_noret_decl(f_9119)
static void C_ccall f_9119(C_word c,C_word *av) C_noret;
C_noret_decl(f_9122)
static void C_ccall f_9122(C_word c,C_word *av) C_noret;
C_noret_decl(f_9123)
static void C_ccall f_9123(C_word c,C_word *av) C_noret;
C_noret_decl(f_9137)
static void C_ccall f_9137(C_word c,C_word *av) C_noret;
C_noret_decl(f_9141)
static void C_ccall f_9141(C_word c,C_word *av) C_noret;
C_noret_decl(f_9155)
static void C_ccall f_9155(C_word c,C_word *av) C_noret;
C_noret_decl(f_9159)
static void C_ccall f_9159(C_word c,C_word *av) C_noret;
C_noret_decl(f_9163)
static void C_ccall f_9163(C_word c,C_word *av) C_noret;
C_noret_decl(f_9196)
static void C_ccall f_9196(C_word c,C_word *av) C_noret;
C_noret_decl(f_9201)
static void f_9201(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9209)
static void C_ccall f_9209(C_word c,C_word *av) C_noret;
C_noret_decl(f_9213)
static void C_ccall f_9213(C_word c,C_word *av) C_noret;
C_noret_decl(f_9230)
static void C_ccall f_9230(C_word c,C_word *av) C_noret;
C_noret_decl(f_9232)
static void f_9232(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9257)
static void C_ccall f_9257(C_word c,C_word *av) C_noret;
C_noret_decl(f_9280)
static void C_ccall f_9280(C_word c,C_word *av) C_noret;
C_noret_decl(f_9292)
static void C_ccall f_9292(C_word c,C_word *av) C_noret;
C_noret_decl(f_9299)
static void C_ccall f_9299(C_word c,C_word *av) C_noret;
C_noret_decl(f_9302)
static void C_ccall f_9302(C_word c,C_word *av) C_noret;
C_noret_decl(f_9311)
static void f_9311(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9324)
static void C_ccall f_9324(C_word c,C_word *av) C_noret;
C_noret_decl(f_9344)
static void C_ccall f_9344(C_word c,C_word *av) C_noret;
C_noret_decl(f_9348)
static void C_ccall f_9348(C_word c,C_word *av) C_noret;
C_noret_decl(f_9352)
static void C_ccall f_9352(C_word c,C_word *av) C_noret;
C_noret_decl(f_9365)
static void C_ccall f_9365(C_word c,C_word *av) C_noret;
C_noret_decl(f_9369)
static void C_ccall f_9369(C_word c,C_word *av) C_noret;
C_noret_decl(f_9386)
static void C_ccall f_9386(C_word c,C_word *av) C_noret;
C_noret_decl(f_9405)
static void f_9405(C_word t0,C_word t1) C_noret;
C_noret_decl(f_9412)
static void C_ccall f_9412(C_word c,C_word *av) C_noret;
C_noret_decl(f_9425)
static void C_ccall f_9425(C_word c,C_word *av) C_noret;
C_noret_decl(f_9429)
static void C_ccall f_9429(C_word c,C_word *av) C_noret;
C_noret_decl(f_9450)
static void C_ccall f_9450(C_word c,C_word *av) C_noret;
C_noret_decl(f_9459)
static void C_ccall f_9459(C_word c,C_word *av) C_noret;
C_noret_decl(f_9462)
static void C_ccall f_9462(C_word c,C_word *av) C_noret;
C_noret_decl(f_9465)
static void C_ccall f_9465(C_word c,C_word *av) C_noret;
C_noret_decl(f_9471)
static void C_ccall f_9471(C_word c,C_word *av) C_noret;
C_noret_decl(f_9479)
static void f_9479(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_9487)
static void C_ccall f_9487(C_word c,C_word *av) C_noret;
C_noret_decl(f_9502)
static void C_ccall f_9502(C_word c,C_word *av) C_noret;
C_noret_decl(f_9506)
static void C_ccall f_9506(C_word c,C_word *av) C_noret;
C_noret_decl(f_9508)
static void C_ccall f_9508(C_word c,C_word *av) C_noret;
C_noret_decl(f_9512)
static void C_ccall f_9512(C_word c,C_word *av) C_noret;
C_noret_decl(f_9516)
static void C_ccall f_9516(C_word c,C_word *av) C_noret;
C_noret_decl(f_9519)
static void C_ccall f_9519(C_word c,C_word *av) C_noret;
C_noret_decl(f_9525)
static void C_ccall f_9525(C_word c,C_word *av) C_noret;
C_noret_decl(f_9533)
static void C_ccall f_9533(C_word c,C_word *av) C_noret;
C_noret_decl(f_9537)
static void C_ccall f_9537(C_word c,C_word *av) C_noret;
C_noret_decl(f_9543)
static void C_ccall f_9543(C_word c,C_word *av) C_noret;
C_noret_decl(f_9547)
static void C_ccall f_9547(C_word c,C_word *av) C_noret;
C_noret_decl(f_9550)
static void C_ccall f_9550(C_word c,C_word *av) C_noret;
C_noret_decl(f_9553)
static void f_9553(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_9582)
static void C_ccall f_9582(C_word c,C_word *av) C_noret;
C_noret_decl(f_9603)
static void C_ccall f_9603(C_word c,C_word *av) C_noret;
C_noret_decl(f_9605)
static void f_9605(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9630)
static void C_ccall f_9630(C_word c,C_word *av) C_noret;
C_noret_decl(f_9678)
static void C_ccall f_9678(C_word c,C_word *av) C_noret;
C_noret_decl(f_9682)
static void C_ccall f_9682(C_word c,C_word *av) C_noret;
C_noret_decl(f_9702)
static void C_ccall f_9702(C_word c,C_word *av) C_noret;
C_noret_decl(f_9716)
static void f_9716(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9750)
static void f_9750(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(f_9794)
static void C_ccall f_9794(C_word c,C_word *av) C_noret;
C_noret_decl(f_9803)
static void C_ccall f_9803(C_word c,C_word *av) C_noret;
C_noret_decl(f_9832)
static void C_ccall f_9832(C_word c,C_word *av) C_noret;
C_noret_decl(f_9845)
static C_word f_9845(C_word *a,C_word t0,C_word t1,C_word t2);
C_noret_decl(f_9863)
static void C_ccall f_9863(C_word c,C_word *av) C_noret;
C_noret_decl(f_9867)
static void C_ccall f_9867(C_word c,C_word *av) C_noret;
C_noret_decl(f_9879)
static void C_ccall f_9879(C_word c,C_word *av) C_noret;
C_noret_decl(f_9893)
static void f_9893(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_9941)
static void f_9941(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
C_noret_decl(f_9989)
static void f_9989(C_word t0,C_word t1,C_word t2) C_noret;
C_noret_decl(C_compiler_toplevel)
C_extern void C_ccall C_compiler_toplevel(C_word c,C_word *av) C_noret;
C_noret_decl(va28178)
static void va28178(C_word t0,C_word t1) C_noret;

C_noret_decl(trf_10023)
static void C_ccall trf_10023(C_word c,C_word *av) C_noret;
static void C_ccall trf_10023(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10023(t0,t1,t2);}

C_noret_decl(trf_10068)
static void C_ccall trf_10068(C_word c,C_word *av) C_noret;
static void C_ccall trf_10068(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10068(t0,t1,t2);}

C_noret_decl(trf_10112)
static void C_ccall trf_10112(C_word c,C_word *av) C_noret;
static void C_ccall trf_10112(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10112(t0,t1,t2);}

C_noret_decl(trf_10203)
static void C_ccall trf_10203(C_word c,C_word *av) C_noret;
static void C_ccall trf_10203(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_10203(t0,t1);}

C_noret_decl(trf_10299)
static void C_ccall trf_10299(C_word c,C_word *av) C_noret;
static void C_ccall trf_10299(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_10299(t0,t1);}

C_noret_decl(trf_10335)
static void C_ccall trf_10335(C_word c,C_word *av) C_noret;
static void C_ccall trf_10335(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10335(t0,t1,t2);}

C_noret_decl(trf_10493)
static void C_ccall trf_10493(C_word c,C_word *av) C_noret;
static void C_ccall trf_10493(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10493(t0,t1,t2);}

C_noret_decl(trf_10663)
static void C_ccall trf_10663(C_word c,C_word *av) C_noret;
static void C_ccall trf_10663(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10663(t0,t1,t2);}

C_noret_decl(trf_10710)
static void C_ccall trf_10710(C_word c,C_word *av) C_noret;
static void C_ccall trf_10710(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_10710(t0,t1);}

C_noret_decl(trf_10822)
static void C_ccall trf_10822(C_word c,C_word *av) C_noret;
static void C_ccall trf_10822(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_10822(t0,t1);}

C_noret_decl(trf_10899)
static void C_ccall trf_10899(C_word c,C_word *av) C_noret;
static void C_ccall trf_10899(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10899(t0,t1,t2);}

C_noret_decl(trf_10913)
static void C_ccall trf_10913(C_word c,C_word *av) C_noret;
static void C_ccall trf_10913(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_10913(t0,t1);}

C_noret_decl(trf_10989)
static void C_ccall trf_10989(C_word c,C_word *av) C_noret;
static void C_ccall trf_10989(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_10989(t0,t1,t2);}

C_noret_decl(trf_11048)
static void C_ccall trf_11048(C_word c,C_word *av) C_noret;
static void C_ccall trf_11048(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_11048(t0,t1,t2);}

C_noret_decl(trf_11071)
static void C_ccall trf_11071(C_word c,C_word *av) C_noret;
static void C_ccall trf_11071(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_11071(t0,t1,t2);}

C_noret_decl(trf_11167)
static void C_ccall trf_11167(C_word c,C_word *av) C_noret;
static void C_ccall trf_11167(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_11167(t0,t1,t2);}

C_noret_decl(trf_11217)
static void C_ccall trf_11217(C_word c,C_word *av) C_noret;
static void C_ccall trf_11217(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_11217(t0,t1);}

C_noret_decl(trf_11235)
static void C_ccall trf_11235(C_word c,C_word *av) C_noret;
static void C_ccall trf_11235(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_11235(t0,t1);}

C_noret_decl(trf_11256)
static void C_ccall trf_11256(C_word c,C_word *av) C_noret;
static void C_ccall trf_11256(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_11256(t0,t1);}

C_noret_decl(trf_11302)
static void C_ccall trf_11302(C_word c,C_word *av) C_noret;
static void C_ccall trf_11302(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_11302(t0,t1,t2);}

C_noret_decl(trf_11317)
static void C_ccall trf_11317(C_word c,C_word *av) C_noret;
static void C_ccall trf_11317(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_11317(t0,t1,t2);}

C_noret_decl(trf_11402)
static void C_ccall trf_11402(C_word c,C_word *av) C_noret;
static void C_ccall trf_11402(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_11402(t0,t1,t2);}

C_noret_decl(trf_11499)
static void C_ccall trf_11499(C_word c,C_word *av) C_noret;
static void C_ccall trf_11499(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_11499(t0,t1,t2,t3);}

C_noret_decl(trf_11537)
static void C_ccall trf_11537(C_word c,C_word *av) C_noret;
static void C_ccall trf_11537(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_11537(t0,t1);}

C_noret_decl(trf_11572)
static void C_ccall trf_11572(C_word c,C_word *av) C_noret;
static void C_ccall trf_11572(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_11572(t0,t1,t2);}

C_noret_decl(trf_11654)
static void C_ccall trf_11654(C_word c,C_word *av) C_noret;
static void C_ccall trf_11654(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_11654(t0,t1,t2);}

C_noret_decl(trf_11667)
static void C_ccall trf_11667(C_word c,C_word *av) C_noret;
static void C_ccall trf_11667(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_11667(t0,t1);}

C_noret_decl(trf_11711)
static void C_ccall trf_11711(C_word c,C_word *av) C_noret;
static void C_ccall trf_11711(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_11711(t0,t1,t2);}

C_noret_decl(trf_11849)
static void C_ccall trf_11849(C_word c,C_word *av) C_noret;
static void C_ccall trf_11849(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_11849(t0,t1,t2);}

C_noret_decl(trf_11955)
static void C_ccall trf_11955(C_word c,C_word *av) C_noret;
static void C_ccall trf_11955(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_11955(t0,t1,t2);}

C_noret_decl(trf_12007)
static void C_ccall trf_12007(C_word c,C_word *av) C_noret;
static void C_ccall trf_12007(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_12007(t0,t1,t2);}

C_noret_decl(trf_12079)
static void C_ccall trf_12079(C_word c,C_word *av) C_noret;
static void C_ccall trf_12079(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_12079(t0,t1);}

C_noret_decl(trf_12312)
static void C_ccall trf_12312(C_word c,C_word *av) C_noret;
static void C_ccall trf_12312(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_12312(t0,t1,t2);}

C_noret_decl(trf_12330)
static void C_ccall trf_12330(C_word c,C_word *av) C_noret;
static void C_ccall trf_12330(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_12330(t0,t1,t2);}

C_noret_decl(trf_12427)
static void C_ccall trf_12427(C_word c,C_word *av) C_noret;
static void C_ccall trf_12427(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_12427(t0,t1,t2);}

C_noret_decl(trf_12566)
static void C_ccall trf_12566(C_word c,C_word *av) C_noret;
static void C_ccall trf_12566(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_12566(t0,t1,t2);}

C_noret_decl(trf_12772)
static void C_ccall trf_12772(C_word c,C_word *av) C_noret;
static void C_ccall trf_12772(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_12772(t0,t1);}

C_noret_decl(trf_12858)
static void C_ccall trf_12858(C_word c,C_word *av) C_noret;
static void C_ccall trf_12858(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_12858(t0,t1);}

C_noret_decl(trf_12992)
static void C_ccall trf_12992(C_word c,C_word *av) C_noret;
static void C_ccall trf_12992(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_12992(t0,t1);}

C_noret_decl(trf_13333)
static void C_ccall trf_13333(C_word c,C_word *av) C_noret;
static void C_ccall trf_13333(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_13333(t0,t1,t2);}

C_noret_decl(trf_13339)
static void C_ccall trf_13339(C_word c,C_word *av) C_noret;
static void C_ccall trf_13339(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_13339(t0,t1,t2);}

C_noret_decl(trf_13356)
static void C_ccall trf_13356(C_word c,C_word *av) C_noret;
static void C_ccall trf_13356(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_13356(t0,t1,t2);}

C_noret_decl(trf_13570)
static void C_ccall trf_13570(C_word c,C_word *av) C_noret;
static void C_ccall trf_13570(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_13570(t0,t1,t2,t3);}

C_noret_decl(trf_13721)
static void C_ccall trf_13721(C_word c,C_word *av) C_noret;
static void C_ccall trf_13721(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_13721(t0,t1,t2);}

C_noret_decl(trf_13747)
static void C_ccall trf_13747(C_word c,C_word *av) C_noret;
static void C_ccall trf_13747(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_13747(t0,t1,t2);}

C_noret_decl(trf_14081)
static void C_ccall trf_14081(C_word c,C_word *av) C_noret;
static void C_ccall trf_14081(C_word c,C_word *av){
C_word t0=av[6];
C_word t1=av[5];
C_word t2=av[4];
C_word t3=av[3];
C_word t4=av[2];
C_word t5=av[1];
C_word t6=av[0];
f_14081(t0,t1,t2,t3,t4,t5,t6);}

C_noret_decl(trf_14086)
static void C_ccall trf_14086(C_word c,C_word *av) C_noret;
static void C_ccall trf_14086(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_14086(t0,t1,t2);}

C_noret_decl(trf_14098)
static void C_ccall trf_14098(C_word c,C_word *av) C_noret;
static void C_ccall trf_14098(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_14098(t0,t1,t2);}

C_noret_decl(trf_14172)
static void C_ccall trf_14172(C_word c,C_word *av) C_noret;
static void C_ccall trf_14172(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_14172(t0,t1,t2,t3);}

C_noret_decl(trf_14207)
static void C_ccall trf_14207(C_word c,C_word *av) C_noret;
static void C_ccall trf_14207(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_14207(t0,t1,t2);}

C_noret_decl(trf_14226)
static void C_ccall trf_14226(C_word c,C_word *av) C_noret;
static void C_ccall trf_14226(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_14226(t0,t1,t2);}

C_noret_decl(trf_14232)
static void C_ccall trf_14232(C_word c,C_word *av) C_noret;
static void C_ccall trf_14232(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_14232(t0,t1);}

C_noret_decl(trf_14260)
static void C_ccall trf_14260(C_word c,C_word *av) C_noret;
static void C_ccall trf_14260(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_14260(t0,t1);}

C_noret_decl(trf_14495)
static void C_ccall trf_14495(C_word c,C_word *av) C_noret;
static void C_ccall trf_14495(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_14495(t0,t1,t2);}

C_noret_decl(trf_14559)
static void C_ccall trf_14559(C_word c,C_word *av) C_noret;
static void C_ccall trf_14559(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_14559(t0,t1,t2);}

C_noret_decl(trf_14582)
static void C_ccall trf_14582(C_word c,C_word *av) C_noret;
static void C_ccall trf_14582(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_14582(t0,t1,t2);}

C_noret_decl(trf_14640)
static void C_ccall trf_14640(C_word c,C_word *av) C_noret;
static void C_ccall trf_14640(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_14640(t0,t1,t2);}

C_noret_decl(trf_14663)
static void C_ccall trf_14663(C_word c,C_word *av) C_noret;
static void C_ccall trf_14663(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_14663(t0,t1,t2);}

C_noret_decl(trf_14749)
static void C_ccall trf_14749(C_word c,C_word *av) C_noret;
static void C_ccall trf_14749(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_14749(t0,t1,t2);}

C_noret_decl(trf_14794)
static void C_ccall trf_14794(C_word c,C_word *av) C_noret;
static void C_ccall trf_14794(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_14794(t0,t1,t2);}

C_noret_decl(trf_14914)
static void C_ccall trf_14914(C_word c,C_word *av) C_noret;
static void C_ccall trf_14914(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_14914(t0,t1,t2);}

C_noret_decl(trf_15003)
static void C_ccall trf_15003(C_word c,C_word *av) C_noret;
static void C_ccall trf_15003(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_15003(t0,t1,t2);}

C_noret_decl(trf_15101)
static void C_ccall trf_15101(C_word c,C_word *av) C_noret;
static void C_ccall trf_15101(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_15101(t0,t1,t2);}

C_noret_decl(trf_15142)
static void C_ccall trf_15142(C_word c,C_word *av) C_noret;
static void C_ccall trf_15142(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_15142(t0,t1,t2);}

C_noret_decl(trf_15201)
static void C_ccall trf_15201(C_word c,C_word *av) C_noret;
static void C_ccall trf_15201(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_15201(t0,t1,t2);}

C_noret_decl(trf_15301)
static void C_ccall trf_15301(C_word c,C_word *av) C_noret;
static void C_ccall trf_15301(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_15301(t0,t1,t2);}

C_noret_decl(trf_15367)
static void C_ccall trf_15367(C_word c,C_word *av) C_noret;
static void C_ccall trf_15367(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_15367(t0,t1);}

C_noret_decl(trf_15421)
static void C_ccall trf_15421(C_word c,C_word *av) C_noret;
static void C_ccall trf_15421(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_15421(t0,t1,t2);}

C_noret_decl(trf_15474)
static void C_ccall trf_15474(C_word c,C_word *av) C_noret;
static void C_ccall trf_15474(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_15474(t0,t1);}

C_noret_decl(trf_15531)
static void C_ccall trf_15531(C_word c,C_word *av) C_noret;
static void C_ccall trf_15531(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_15531(t0,t1,t2);}

C_noret_decl(trf_15585)
static void C_ccall trf_15585(C_word c,C_word *av) C_noret;
static void C_ccall trf_15585(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_15585(t0,t1,t2);}

C_noret_decl(trf_15640)
static void C_ccall trf_15640(C_word c,C_word *av) C_noret;
static void C_ccall trf_15640(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_15640(t0,t1,t2);}

C_noret_decl(trf_15672)
static void C_ccall trf_15672(C_word c,C_word *av) C_noret;
static void C_ccall trf_15672(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_15672(t0,t1,t2);}

C_noret_decl(trf_15679)
static void C_ccall trf_15679(C_word c,C_word *av) C_noret;
static void C_ccall trf_15679(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_15679(t0,t1);}

C_noret_decl(trf_15762)
static void C_ccall trf_15762(C_word c,C_word *av) C_noret;
static void C_ccall trf_15762(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_15762(t0,t1);}

C_noret_decl(trf_15836)
static void C_ccall trf_15836(C_word c,C_word *av) C_noret;
static void C_ccall trf_15836(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_15836(t0,t1,t2);}

C_noret_decl(trf_15864)
static void C_ccall trf_15864(C_word c,C_word *av) C_noret;
static void C_ccall trf_15864(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_15864(t0,t1,t2);}

C_noret_decl(trf_15871)
static void C_ccall trf_15871(C_word c,C_word *av) C_noret;
static void C_ccall trf_15871(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_15871(t0,t1);}

C_noret_decl(trf_15958)
static void C_ccall trf_15958(C_word c,C_word *av) C_noret;
static void C_ccall trf_15958(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_15958(t0,t1,t2);}

C_noret_decl(trf_16271)
static void C_ccall trf_16271(C_word c,C_word *av) C_noret;
static void C_ccall trf_16271(C_word c,C_word *av){
C_word t0=av[7];
C_word t1=av[6];
C_word t2=av[5];
C_word t3=av[4];
C_word t4=av[3];
C_word t5=av[2];
C_word t6=av[1];
C_word t7=av[0];
f_16271(t0,t1,t2,t3,t4,t5,t6,t7);}

C_noret_decl(trf_16280)
static void C_ccall trf_16280(C_word c,C_word *av) C_noret;
static void C_ccall trf_16280(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_16280(t0,t1,t2);}

C_noret_decl(trf_16386)
static void C_ccall trf_16386(C_word c,C_word *av) C_noret;
static void C_ccall trf_16386(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_16386(t0,t1);}

C_noret_decl(trf_16493)
static void C_ccall trf_16493(C_word c,C_word *av) C_noret;
static void C_ccall trf_16493(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_16493(t0,t1,t2,t3);}

C_noret_decl(trf_16574)
static void C_ccall trf_16574(C_word c,C_word *av) C_noret;
static void C_ccall trf_16574(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_16574(t0,t1,t2);}

C_noret_decl(trf_16626)
static void C_ccall trf_16626(C_word c,C_word *av) C_noret;
static void C_ccall trf_16626(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_16626(t0,t1,t2);}

C_noret_decl(trf_16660)
static void C_ccall trf_16660(C_word c,C_word *av) C_noret;
static void C_ccall trf_16660(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_16660(t0,t1,t2);}

C_noret_decl(trf_16697)
static void C_ccall trf_16697(C_word c,C_word *av) C_noret;
static void C_ccall trf_16697(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_16697(t0,t1,t2);}

C_noret_decl(trf_16738)
static void C_ccall trf_16738(C_word c,C_word *av) C_noret;
static void C_ccall trf_16738(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_16738(t0,t1,t2);}

C_noret_decl(trf_16772)
static void C_ccall trf_16772(C_word c,C_word *av) C_noret;
static void C_ccall trf_16772(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_16772(t0,t1,t2);}

C_noret_decl(trf_16814)
static void C_ccall trf_16814(C_word c,C_word *av) C_noret;
static void C_ccall trf_16814(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_16814(t0,t1);}

C_noret_decl(trf_16854)
static void C_ccall trf_16854(C_word c,C_word *av) C_noret;
static void C_ccall trf_16854(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_16854(t0,t1,t2);}

C_noret_decl(trf_16888)
static void C_ccall trf_16888(C_word c,C_word *av) C_noret;
static void C_ccall trf_16888(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_16888(t0,t1,t2);}

C_noret_decl(trf_16966)
static void C_ccall trf_16966(C_word c,C_word *av) C_noret;
static void C_ccall trf_16966(C_word c,C_word *av){
C_word t0=av[5];
C_word t1=av[4];
C_word t2=av[3];
C_word t3=av[2];
C_word t4=av[1];
C_word t5=av[0];
f_16966(t0,t1,t2,t3,t4,t5);}

C_noret_decl(trf_17017)
static void C_ccall trf_17017(C_word c,C_word *av) C_noret;
static void C_ccall trf_17017(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_17017(t0,t1,t2);}

C_noret_decl(trf_17041)
static void C_ccall trf_17041(C_word c,C_word *av) C_noret;
static void C_ccall trf_17041(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_17041(t0,t1,t2,t3);}

C_noret_decl(trf_17063)
static void C_ccall trf_17063(C_word c,C_word *av) C_noret;
static void C_ccall trf_17063(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_17063(t0,t1);}

C_noret_decl(trf_17184)
static void C_ccall trf_17184(C_word c,C_word *av) C_noret;
static void C_ccall trf_17184(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_17184(t0,t1,t2,t3);}

C_noret_decl(trf_17385)
static void C_ccall trf_17385(C_word c,C_word *av) C_noret;
static void C_ccall trf_17385(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_17385(t0,t1);}

C_noret_decl(trf_17587)
static void C_ccall trf_17587(C_word c,C_word *av) C_noret;
static void C_ccall trf_17587(C_word c,C_word *av){
C_word t0=av[5];
C_word t1=av[4];
C_word t2=av[3];
C_word t3=av[2];
C_word t4=av[1];
C_word t5=av[0];
f_17587(t0,t1,t2,t3,t4,t5);}

C_noret_decl(trf_17733)
static void C_ccall trf_17733(C_word c,C_word *av) C_noret;
static void C_ccall trf_17733(C_word c,C_word *av){
C_word t0=av[5];
C_word t1=av[4];
C_word t2=av[3];
C_word t3=av[2];
C_word t4=av[1];
C_word t5=av[0];
f_17733(t0,t1,t2,t3,t4,t5);}

C_noret_decl(trf_17749)
static void C_ccall trf_17749(C_word c,C_word *av) C_noret;
static void C_ccall trf_17749(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_17749(t0,t1,t2,t3);}

C_noret_decl(trf_17755)
static void C_ccall trf_17755(C_word c,C_word *av) C_noret;
static void C_ccall trf_17755(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_17755(t0,t1,t2,t3);}

C_noret_decl(trf_17893)
static void C_ccall trf_17893(C_word c,C_word *av) C_noret;
static void C_ccall trf_17893(C_word c,C_word *av){
C_word t0=av[6];
C_word t1=av[5];
C_word t2=av[4];
C_word t3=av[3];
C_word t4=av[2];
C_word t5=av[1];
C_word t6=av[0];
f_17893(t0,t1,t2,t3,t4,t5,t6);}

C_noret_decl(trf_17915)
static void C_ccall trf_17915(C_word c,C_word *av) C_noret;
static void C_ccall trf_17915(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_17915(t0,t1);}

C_noret_decl(trf_18080)
static void C_ccall trf_18080(C_word c,C_word *av) C_noret;
static void C_ccall trf_18080(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_18080(t0,t1,t2,t3);}

C_noret_decl(trf_18140)
static void C_ccall trf_18140(C_word c,C_word *av) C_noret;
static void C_ccall trf_18140(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_18140(t0,t1,t2);}

C_noret_decl(trf_18165)
static void C_ccall trf_18165(C_word c,C_word *av) C_noret;
static void C_ccall trf_18165(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_18165(t0,t1,t2);}

C_noret_decl(trf_18215)
static void C_ccall trf_18215(C_word c,C_word *av) C_noret;
static void C_ccall trf_18215(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_18215(t0,t1,t2);}

C_noret_decl(trf_18237)
static void C_ccall trf_18237(C_word c,C_word *av) C_noret;
static void C_ccall trf_18237(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_18237(t0,t1);}

C_noret_decl(trf_18240)
static void C_ccall trf_18240(C_word c,C_word *av) C_noret;
static void C_ccall trf_18240(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_18240(t0,t1);}

C_noret_decl(trf_18300)
static void C_ccall trf_18300(C_word c,C_word *av) C_noret;
static void C_ccall trf_18300(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_18300(t0,t1,t2);}

C_noret_decl(trf_18537)
static void C_ccall trf_18537(C_word c,C_word *av) C_noret;
static void C_ccall trf_18537(C_word c,C_word *av){
C_word t0=av[6];
C_word t1=av[5];
C_word t2=av[4];
C_word t3=av[3];
C_word t4=av[2];
C_word t5=av[1];
C_word t6=av[0];
f_18537(t0,t1,t2,t3,t4,t5,t6);}

C_noret_decl(trf_18539)
static void C_ccall trf_18539(C_word c,C_word *av) C_noret;
static void C_ccall trf_18539(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_18539(t0,t1,t2);}

C_noret_decl(trf_18551)
static void C_ccall trf_18551(C_word c,C_word *av) C_noret;
static void C_ccall trf_18551(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_18551(t0,t1,t2);}

C_noret_decl(trf_18574)
static void C_ccall trf_18574(C_word c,C_word *av) C_noret;
static void C_ccall trf_18574(C_word c,C_word *av){
C_word t0=av[4];
C_word t1=av[3];
C_word t2=av[2];
C_word t3=av[1];
C_word t4=av[0];
f_18574(t0,t1,t2,t3,t4);}

C_noret_decl(trf_18587)
static void C_ccall trf_18587(C_word c,C_word *av) C_noret;
static void C_ccall trf_18587(C_word c,C_word *av){
C_word t0=av[4];
C_word t1=av[3];
C_word t2=av[2];
C_word t3=av[1];
C_word t4=av[0];
f_18587(t0,t1,t2,t3,t4);}

C_noret_decl(trf_18600)
static void C_ccall trf_18600(C_word c,C_word *av) C_noret;
static void C_ccall trf_18600(C_word c,C_word *av){
C_word t0=av[5];
C_word t1=av[4];
C_word t2=av[3];
C_word t3=av[2];
C_word t4=av[1];
C_word t5=av[0];
f_18600(t0,t1,t2,t3,t4,t5);}

C_noret_decl(trf_18625)
static void C_ccall trf_18625(C_word c,C_word *av) C_noret;
static void C_ccall trf_18625(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_18625(t0,t1);}

C_noret_decl(trf_18682)
static void C_ccall trf_18682(C_word c,C_word *av) C_noret;
static void C_ccall trf_18682(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_18682(t0,t1);}

C_noret_decl(trf_18686)
static void C_ccall trf_18686(C_word c,C_word *av) C_noret;
static void C_ccall trf_18686(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_18686(t0,t1,t2);}

C_noret_decl(trf_18710)
static void C_ccall trf_18710(C_word c,C_word *av) C_noret;
static void C_ccall trf_18710(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_18710(t0,t1);}

C_noret_decl(trf_18755)
static void C_ccall trf_18755(C_word c,C_word *av) C_noret;
static void C_ccall trf_18755(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_18755(t0,t1);}

C_noret_decl(trf_18910)
static void C_ccall trf_18910(C_word c,C_word *av) C_noret;
static void C_ccall trf_18910(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_18910(t0,t1,t2,t3);}

C_noret_decl(trf_19103)
static void C_ccall trf_19103(C_word c,C_word *av) C_noret;
static void C_ccall trf_19103(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_19103(t0,t1);}

C_noret_decl(trf_19109)
static void C_ccall trf_19109(C_word c,C_word *av) C_noret;
static void C_ccall trf_19109(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_19109(t0,t1);}

C_noret_decl(trf_19127)
static void C_ccall trf_19127(C_word c,C_word *av) C_noret;
static void C_ccall trf_19127(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_19127(t0,t1);}

C_noret_decl(trf_19136)
static void C_ccall trf_19136(C_word c,C_word *av) C_noret;
static void C_ccall trf_19136(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_19136(t0,t1);}

C_noret_decl(trf_19157)
static void C_ccall trf_19157(C_word c,C_word *av) C_noret;
static void C_ccall trf_19157(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_19157(t0,t1);}

C_noret_decl(trf_19178)
static void C_ccall trf_19178(C_word c,C_word *av) C_noret;
static void C_ccall trf_19178(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_19178(t0,t1);}

C_noret_decl(trf_19279)
static void C_ccall trf_19279(C_word c,C_word *av) C_noret;
static void C_ccall trf_19279(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_19279(t0,t1);}

C_noret_decl(trf_19525)
static void C_ccall trf_19525(C_word c,C_word *av) C_noret;
static void C_ccall trf_19525(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_19525(t0,t1);}

C_noret_decl(trf_19553)
static void C_ccall trf_19553(C_word c,C_word *av) C_noret;
static void C_ccall trf_19553(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_19553(t0,t1,t2);}

C_noret_decl(trf_19560)
static void C_ccall trf_19560(C_word c,C_word *av) C_noret;
static void C_ccall trf_19560(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_19560(t0,t1);}

C_noret_decl(trf_19586)
static void C_ccall trf_19586(C_word c,C_word *av) C_noret;
static void C_ccall trf_19586(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_19586(t0,t1,t2);}

C_noret_decl(trf_19646)
static void C_ccall trf_19646(C_word c,C_word *av) C_noret;
static void C_ccall trf_19646(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_19646(t0,t1);}

C_noret_decl(trf_19690)
static void C_ccall trf_19690(C_word c,C_word *av) C_noret;
static void C_ccall trf_19690(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_19690(t0,t1);}

C_noret_decl(trf_19781)
static void C_ccall trf_19781(C_word c,C_word *av) C_noret;
static void C_ccall trf_19781(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_19781(t0,t1);}

C_noret_decl(trf_19829)
static void C_ccall trf_19829(C_word c,C_word *av) C_noret;
static void C_ccall trf_19829(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_19829(t0,t1,t2);}

C_noret_decl(trf_19866)
static void C_ccall trf_19866(C_word c,C_word *av) C_noret;
static void C_ccall trf_19866(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_19866(t0,t1);}

C_noret_decl(trf_19940)
static void C_ccall trf_19940(C_word c,C_word *av) C_noret;
static void C_ccall trf_19940(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_19940(t0,t1);}

C_noret_decl(trf_19944)
static void C_ccall trf_19944(C_word c,C_word *av) C_noret;
static void C_ccall trf_19944(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_19944(t0,t1,t2);}

C_noret_decl(trf_19974)
static void C_ccall trf_19974(C_word c,C_word *av) C_noret;
static void C_ccall trf_19974(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_19974(t0,t1,t2);}

C_noret_decl(trf_20048)
static void C_ccall trf_20048(C_word c,C_word *av) C_noret;
static void C_ccall trf_20048(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_20048(t0,t1,t2,t3);}

C_noret_decl(trf_20086)
static void C_ccall trf_20086(C_word c,C_word *av) C_noret;
static void C_ccall trf_20086(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_20086(t0,t1,t2);}

C_noret_decl(trf_20091)
static void C_ccall trf_20091(C_word c,C_word *av) C_noret;
static void C_ccall trf_20091(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_20091(t0,t1,t2);}

C_noret_decl(trf_20093)
static void C_ccall trf_20093(C_word c,C_word *av) C_noret;
static void C_ccall trf_20093(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_20093(t0,t1,t2);}

C_noret_decl(trf_20105)
static void C_ccall trf_20105(C_word c,C_word *av) C_noret;
static void C_ccall trf_20105(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_20105(t0,t1,t2);}

C_noret_decl(trf_20134)
static void C_ccall trf_20134(C_word c,C_word *av) C_noret;
static void C_ccall trf_20134(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_20134(t0,t1,t2);}

C_noret_decl(trf_20140)
static void C_ccall trf_20140(C_word c,C_word *av) C_noret;
static void C_ccall trf_20140(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_20140(t0,t1,t2);}

C_noret_decl(trf_20163)
static void C_ccall trf_20163(C_word c,C_word *av) C_noret;
static void C_ccall trf_20163(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_20163(t0,t1,t2,t3);}

C_noret_decl(trf_20189)
static void C_ccall trf_20189(C_word c,C_word *av) C_noret;
static void C_ccall trf_20189(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_20189(t0,t1,t2,t3);}

C_noret_decl(trf_20195)
static void C_ccall trf_20195(C_word c,C_word *av) C_noret;
static void C_ccall trf_20195(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_20195(t0,t1,t2,t3);}

C_noret_decl(trf_20205)
static void C_ccall trf_20205(C_word c,C_word *av) C_noret;
static void C_ccall trf_20205(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_20205(t0,t1,t2);}

C_noret_decl(trf_20214)
static void C_ccall trf_20214(C_word c,C_word *av) C_noret;
static void C_ccall trf_20214(C_word c,C_word *av){
C_word t0=av[4];
C_word t1=av[3];
C_word t2=av[2];
C_word t3=av[1];
C_word t4=av[0];
f_20214(t0,t1,t2,t3,t4);}

C_noret_decl(trf_20254)
static void C_ccall trf_20254(C_word c,C_word *av) C_noret;
static void C_ccall trf_20254(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_20254(t0,t1);}

C_noret_decl(trf_20356)
static void C_ccall trf_20356(C_word c,C_word *av) C_noret;
static void C_ccall trf_20356(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_20356(t0,t1,t2);}

C_noret_decl(trf_20368)
static void C_ccall trf_20368(C_word c,C_word *av) C_noret;
static void C_ccall trf_20368(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_20368(t0,t1,t2);}

C_noret_decl(trf_20430)
static void C_ccall trf_20430(C_word c,C_word *av) C_noret;
static void C_ccall trf_20430(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_20430(t0,t1);}

C_noret_decl(trf_20448)
static void C_ccall trf_20448(C_word c,C_word *av) C_noret;
static void C_ccall trf_20448(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_20448(t0,t1);}

C_noret_decl(trf_20454)
static void C_ccall trf_20454(C_word c,C_word *av) C_noret;
static void C_ccall trf_20454(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_20454(t0,t1);}

C_noret_decl(trf_20658)
static void C_ccall trf_20658(C_word c,C_word *av) C_noret;
static void C_ccall trf_20658(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_20658(t0,t1,t2);}

C_noret_decl(trf_20670)
static void C_ccall trf_20670(C_word c,C_word *av) C_noret;
static void C_ccall trf_20670(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_20670(t0,t1,t2);}

C_noret_decl(trf_20755)
static void C_ccall trf_20755(C_word c,C_word *av) C_noret;
static void C_ccall trf_20755(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_20755(t0,t1,t2,t3);}

C_noret_decl(trf_20774)
static void C_ccall trf_20774(C_word c,C_word *av) C_noret;
static void C_ccall trf_20774(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_20774(t0,t1);}

C_noret_decl(trf_20808)
static void C_ccall trf_20808(C_word c,C_word *av) C_noret;
static void C_ccall trf_20808(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_20808(t0,t1);}

C_noret_decl(trf_20887)
static void C_ccall trf_20887(C_word c,C_word *av) C_noret;
static void C_ccall trf_20887(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_20887(t0,t1,t2);}

C_noret_decl(trf_20905)
static void C_ccall trf_20905(C_word c,C_word *av) C_noret;
static void C_ccall trf_20905(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_20905(t0,t1,t2);}

C_noret_decl(trf_20982)
static void C_ccall trf_20982(C_word c,C_word *av) C_noret;
static void C_ccall trf_20982(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_20982(t0,t1,t2);}

C_noret_decl(trf_20994)
static void C_ccall trf_20994(C_word c,C_word *av) C_noret;
static void C_ccall trf_20994(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_20994(t0,t1,t2);}

C_noret_decl(trf_21066)
static void C_ccall trf_21066(C_word c,C_word *av) C_noret;
static void C_ccall trf_21066(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_21066(t0,t1,t2,t3);}

C_noret_decl(trf_21085)
static void C_ccall trf_21085(C_word c,C_word *av) C_noret;
static void C_ccall trf_21085(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_21085(t0,t1);}

C_noret_decl(trf_21113)
static void C_ccall trf_21113(C_word c,C_word *av) C_noret;
static void C_ccall trf_21113(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_21113(t0,t1);}

C_noret_decl(trf_21128)
static void C_ccall trf_21128(C_word c,C_word *av) C_noret;
static void C_ccall trf_21128(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_21128(t0,t1);}

C_noret_decl(trf_21250)
static void C_ccall trf_21250(C_word c,C_word *av) C_noret;
static void C_ccall trf_21250(C_word c,C_word *av){
C_word t0=av[4];
C_word t1=av[3];
C_word t2=av[2];
C_word t3=av[1];
C_word t4=av[0];
f_21250(t0,t1,t2,t3,t4);}

C_noret_decl(trf_21269)
static void C_ccall trf_21269(C_word c,C_word *av) C_noret;
static void C_ccall trf_21269(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_21269(t0,t1);}

C_noret_decl(trf_21303)
static void C_ccall trf_21303(C_word c,C_word *av) C_noret;
static void C_ccall trf_21303(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_21303(t0,t1);}

C_noret_decl(trf_21358)
static void C_ccall trf_21358(C_word c,C_word *av) C_noret;
static void C_ccall trf_21358(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_21358(t0,t1);}

C_noret_decl(trf_21526)
static void C_ccall trf_21526(C_word c,C_word *av) C_noret;
static void C_ccall trf_21526(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_21526(t0,t1);}

C_noret_decl(trf_21535)
static void C_ccall trf_21535(C_word c,C_word *av) C_noret;
static void C_ccall trf_21535(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_21535(t0,t1);}

C_noret_decl(trf_21564)
static void C_ccall trf_21564(C_word c,C_word *av) C_noret;
static void C_ccall trf_21564(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_21564(t0,t1,t2);}

C_noret_decl(trf_21642)
static void C_ccall trf_21642(C_word c,C_word *av) C_noret;
static void C_ccall trf_21642(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_21642(t0,t1,t2);}

C_noret_decl(trf_21735)
static void C_ccall trf_21735(C_word c,C_word *av) C_noret;
static void C_ccall trf_21735(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_21735(t0,t1,t2,t3);}

C_noret_decl(trf_21771)
static void C_ccall trf_21771(C_word c,C_word *av) C_noret;
static void C_ccall trf_21771(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_21771(t0,t1,t2);}

C_noret_decl(trf_21863)
static void C_ccall trf_21863(C_word c,C_word *av) C_noret;
static void C_ccall trf_21863(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_21863(t0,t1,t2);}

C_noret_decl(trf_21977)
static void C_ccall trf_21977(C_word c,C_word *av) C_noret;
static void C_ccall trf_21977(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_21977(t0,t1,t2,t3);}

C_noret_decl(trf_22025)
static void C_ccall trf_22025(C_word c,C_word *av) C_noret;
static void C_ccall trf_22025(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_22025(t0,t1,t2);}

C_noret_decl(trf_22084)
static void C_ccall trf_22084(C_word c,C_word *av) C_noret;
static void C_ccall trf_22084(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_22084(t0,t1);}

C_noret_decl(trf_22091)
static void C_ccall trf_22091(C_word c,C_word *av) C_noret;
static void C_ccall trf_22091(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_22091(t0,t1,t2);}

C_noret_decl(trf_22511)
static void C_ccall trf_22511(C_word c,C_word *av) C_noret;
static void C_ccall trf_22511(C_word c,C_word *av){
C_word t0=av[4];
C_word t1=av[3];
C_word t2=av[2];
C_word t3=av[1];
C_word t4=av[0];
f_22511(t0,t1,t2,t3,t4);}

C_noret_decl(trf_22516)
static void C_ccall trf_22516(C_word c,C_word *av) C_noret;
static void C_ccall trf_22516(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_22516(t0,t1,t2);}

C_noret_decl(trf_22528)
static void C_ccall trf_22528(C_word c,C_word *av) C_noret;
static void C_ccall trf_22528(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_22528(t0,t1,t2);}

C_noret_decl(trf_22598)
static void C_ccall trf_22598(C_word c,C_word *av) C_noret;
static void C_ccall trf_22598(C_word c,C_word *av){
C_word t0=av[4];
C_word t1=av[3];
C_word t2=av[2];
C_word t3=av[1];
C_word t4=av[0];
f_22598(t0,t1,t2,t3,t4);}

C_noret_decl(trf_22606)
static void C_ccall trf_22606(C_word c,C_word *av) C_noret;
static void C_ccall trf_22606(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_22606(t0,t1,t2);}

C_noret_decl(trf_22651)
static void C_ccall trf_22651(C_word c,C_word *av) C_noret;
static void C_ccall trf_22651(C_word c,C_word *av){
C_word t0=av[5];
C_word t1=av[4];
C_word t2=av[3];
C_word t3=av[2];
C_word t4=av[1];
C_word t5=av[0];
f_22651(t0,t1,t2,t3,t4,t5);}

C_noret_decl(trf_22657)
static void C_ccall trf_22657(C_word c,C_word *av) C_noret;
static void C_ccall trf_22657(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_22657(t0,t1,t2,t3);}

C_noret_decl(trf_22679)
static void C_ccall trf_22679(C_word c,C_word *av) C_noret;
static void C_ccall trf_22679(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_22679(t0,t1,t2,t3);}

C_noret_decl(trf_22690)
static void C_ccall trf_22690(C_word c,C_word *av) C_noret;
static void C_ccall trf_22690(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_22690(t0,t1,t2);}

C_noret_decl(trf_22751)
static void C_ccall trf_22751(C_word c,C_word *av) C_noret;
static void C_ccall trf_22751(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_22751(t0,t1);}

C_noret_decl(trf_23086)
static void C_ccall trf_23086(C_word c,C_word *av) C_noret;
static void C_ccall trf_23086(C_word c,C_word *av){
C_word t0=av[5];
C_word t1=av[4];
C_word t2=av[3];
C_word t3=av[2];
C_word t4=av[1];
C_word t5=av[0];
f_23086(t0,t1,t2,t3,t4,t5);}

C_noret_decl(trf_23094)
static void C_ccall trf_23094(C_word c,C_word *av) C_noret;
static void C_ccall trf_23094(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_23094(t0,t1,t2);}

C_noret_decl(trf_23135)
static void C_ccall trf_23135(C_word c,C_word *av) C_noret;
static void C_ccall trf_23135(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_23135(t0,t1,t2,t3);}

C_noret_decl(trf_23142)
static void C_ccall trf_23142(C_word c,C_word *av) C_noret;
static void C_ccall trf_23142(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_23142(t0,t1);}

C_noret_decl(trf_23145)
static void C_ccall trf_23145(C_word c,C_word *av) C_noret;
static void C_ccall trf_23145(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_23145(t0,t1);}

C_noret_decl(trf_23191)
static void C_ccall trf_23191(C_word c,C_word *av) C_noret;
static void C_ccall trf_23191(C_word c,C_word *av){
C_word t0=av[6];
C_word t1=av[5];
C_word t2=av[4];
C_word t3=av[3];
C_word t4=av[2];
C_word t5=av[1];
C_word t6=av[0];
f_23191(t0,t1,t2,t3,t4,t5,t6);}

C_noret_decl(trf_23210)
static void C_ccall trf_23210(C_word c,C_word *av) C_noret;
static void C_ccall trf_23210(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_23210(t0,t1);}

C_noret_decl(trf_23238)
static void C_ccall trf_23238(C_word c,C_word *av) C_noret;
static void C_ccall trf_23238(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_23238(t0,t1);}

C_noret_decl(trf_23437)
static void C_ccall trf_23437(C_word c,C_word *av) C_noret;
static void C_ccall trf_23437(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_23437(t0,t1);}

C_noret_decl(trf_23570)
static void C_ccall trf_23570(C_word c,C_word *av) C_noret;
static void C_ccall trf_23570(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_23570(t0,t1);}

C_noret_decl(trf_23793)
static void C_ccall trf_23793(C_word c,C_word *av) C_noret;
static void C_ccall trf_23793(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_23793(t0,t1,t2);}

C_noret_decl(trf_23832)
static void C_ccall trf_23832(C_word c,C_word *av) C_noret;
static void C_ccall trf_23832(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_23832(t0,t1);}

C_noret_decl(trf_23835)
static void C_ccall trf_23835(C_word c,C_word *av) C_noret;
static void C_ccall trf_23835(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_23835(t0,t1);}

C_noret_decl(trf_23922)
static void C_ccall trf_23922(C_word c,C_word *av) C_noret;
static void C_ccall trf_23922(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_23922(t0,t1);}

C_noret_decl(trf_23929)
static void C_ccall trf_23929(C_word c,C_word *av) C_noret;
static void C_ccall trf_23929(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_23929(t0,t1);}

C_noret_decl(trf_23932)
static void C_ccall trf_23932(C_word c,C_word *av) C_noret;
static void C_ccall trf_23932(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_23932(t0,t1);}

C_noret_decl(trf_23970)
static void C_ccall trf_23970(C_word c,C_word *av) C_noret;
static void C_ccall trf_23970(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_23970(t0,t1);}

C_noret_decl(trf_24007)
static void C_ccall trf_24007(C_word c,C_word *av) C_noret;
static void C_ccall trf_24007(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_24007(t0,t1);}

C_noret_decl(trf_24034)
static void C_ccall trf_24034(C_word c,C_word *av) C_noret;
static void C_ccall trf_24034(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_24034(t0,t1);}

C_noret_decl(trf_24055)
static void C_ccall trf_24055(C_word c,C_word *av) C_noret;
static void C_ccall trf_24055(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_24055(t0,t1);}

C_noret_decl(trf_24242)
static void C_ccall trf_24242(C_word c,C_word *av) C_noret;
static void C_ccall trf_24242(C_word c,C_word *av){
C_word t0=av[4];
C_word t1=av[3];
C_word t2=av[2];
C_word t3=av[1];
C_word t4=av[0];
f_24242(t0,t1,t2,t3,t4);}

C_noret_decl(trf_24401)
static void C_ccall trf_24401(C_word c,C_word *av) C_noret;
static void C_ccall trf_24401(C_word c,C_word *av){
C_word t0=av[6];
C_word t1=av[5];
C_word t2=av[4];
C_word t3=av[3];
C_word t4=av[2];
C_word t5=av[1];
C_word t6=av[0];
f_24401(t0,t1,t2,t3,t4,t5,t6);}

C_noret_decl(trf_24406)
static void C_ccall trf_24406(C_word c,C_word *av) C_noret;
static void C_ccall trf_24406(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_24406(t0,t1,t2);}

C_noret_decl(trf_24418)
static void C_ccall trf_24418(C_word c,C_word *av) C_noret;
static void C_ccall trf_24418(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_24418(t0,t1,t2);}

C_noret_decl(trf_24452)
static void C_ccall trf_24452(C_word c,C_word *av) C_noret;
static void C_ccall trf_24452(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_24452(t0,t1,t2);}

C_noret_decl(trf_24509)
static void C_ccall trf_24509(C_word c,C_word *av) C_noret;
static void C_ccall trf_24509(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_24509(t0,t1,t2);}

C_noret_decl(trf_24537)
static void C_ccall trf_24537(C_word c,C_word *av) C_noret;
static void C_ccall trf_24537(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_24537(t0,t1,t2);}

C_noret_decl(trf_24553)
static void C_ccall trf_24553(C_word c,C_word *av) C_noret;
static void C_ccall trf_24553(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_24553(t0,t1);}

C_noret_decl(trf_6917)
static void C_ccall trf_6917(C_word c,C_word *av) C_noret;
static void C_ccall trf_6917(C_word c,C_word *av){
C_word t0=av[4];
C_word t1=av[3];
C_word t2=av[2];
C_word t3=av[1];
C_word t4=av[0];
f_6917(t0,t1,t2,t3,t4);}

C_noret_decl(trf_7120)
static void C_ccall trf_7120(C_word c,C_word *av) C_noret;
static void C_ccall trf_7120(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7120(t0,t1,t2);}

C_noret_decl(trf_7126)
static void C_ccall trf_7126(C_word c,C_word *av) C_noret;
static void C_ccall trf_7126(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7126(t0,t1,t2);}

C_noret_decl(trf_7154)
static void C_ccall trf_7154(C_word c,C_word *av) C_noret;
static void C_ccall trf_7154(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7154(t0,t1,t2);}

C_noret_decl(trf_7160)
static void C_ccall trf_7160(C_word c,C_word *av) C_noret;
static void C_ccall trf_7160(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7160(t0,t1,t2);}

C_noret_decl(trf_7184)
static void C_ccall trf_7184(C_word c,C_word *av) C_noret;
static void C_ccall trf_7184(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7184(t0,t1,t2);}

C_noret_decl(trf_7190)
static void C_ccall trf_7190(C_word c,C_word *av) C_noret;
static void C_ccall trf_7190(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_7190(t0,t1,t2,t3);}

C_noret_decl(trf_7212)
static void C_ccall trf_7212(C_word c,C_word *av) C_noret;
static void C_ccall trf_7212(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_7212(t0,t1);}

C_noret_decl(trf_7218)
static void C_ccall trf_7218(C_word c,C_word *av) C_noret;
static void C_ccall trf_7218(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7218(t0,t1,t2);}

C_noret_decl(trf_7240)
static void C_ccall trf_7240(C_word c,C_word *av) C_noret;
static void C_ccall trf_7240(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_7240(t0,t1,t2,t3);}

C_noret_decl(trf_7246)
static void C_ccall trf_7246(C_word c,C_word *av) C_noret;
static void C_ccall trf_7246(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7246(t0,t1,t2);}

C_noret_decl(trf_7360)
static void C_ccall trf_7360(C_word c,C_word *av) C_noret;
static void C_ccall trf_7360(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7360(t0,t1,t2);}

C_noret_decl(trf_7369)
static void C_ccall trf_7369(C_word c,C_word *av) C_noret;
static void C_ccall trf_7369(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7369(t0,t1,t2);}

C_noret_decl(trf_7377)
static void C_ccall trf_7377(C_word c,C_word *av) C_noret;
static void C_ccall trf_7377(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_7377(t0,t1,t2,t3);}

C_noret_decl(trf_7413)
static void C_ccall trf_7413(C_word c,C_word *av) C_noret;
static void C_ccall trf_7413(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7413(t0,t1,t2);}

C_noret_decl(trf_7421)
static void C_ccall trf_7421(C_word c,C_word *av) C_noret;
static void C_ccall trf_7421(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_7421(t0,t1,t2,t3);}

C_noret_decl(trf_7469)
static void C_ccall trf_7469(C_word c,C_word *av) C_noret;
static void C_ccall trf_7469(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_7469(t0,t1);}

C_noret_decl(trf_7486)
static void C_ccall trf_7486(C_word c,C_word *av) C_noret;
static void C_ccall trf_7486(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7486(t0,t1,t2);}

C_noret_decl(trf_7551)
static void C_ccall trf_7551(C_word c,C_word *av) C_noret;
static void C_ccall trf_7551(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_7551(t0,t1,t2,t3);}

C_noret_decl(trf_7579)
static void C_ccall trf_7579(C_word c,C_word *av) C_noret;
static void C_ccall trf_7579(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7579(t0,t1,t2);}

C_noret_decl(trf_7585)
static void C_ccall trf_7585(C_word c,C_word *av) C_noret;
static void C_ccall trf_7585(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_7585(t0,t1,t2,t3);}

C_noret_decl(trf_7620)
static void C_ccall trf_7620(C_word c,C_word *av) C_noret;
static void C_ccall trf_7620(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7620(t0,t1,t2);}

C_noret_decl(trf_7641)
static void C_ccall trf_7641(C_word c,C_word *av) C_noret;
static void C_ccall trf_7641(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_7641(t0,t1,t2,t3);}

C_noret_decl(trf_7665)
static void C_ccall trf_7665(C_word c,C_word *av) C_noret;
static void C_ccall trf_7665(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7665(t0,t1,t2);}

C_noret_decl(trf_7693)
static void C_ccall trf_7693(C_word c,C_word *av) C_noret;
static void C_ccall trf_7693(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_7693(t0,t1,t2,t3);}

C_noret_decl(trf_7720)
static void C_ccall trf_7720(C_word c,C_word *av) C_noret;
static void C_ccall trf_7720(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_7720(t0,t1,t2,t3);}

C_noret_decl(trf_7744)
static void C_ccall trf_7744(C_word c,C_word *av) C_noret;
static void C_ccall trf_7744(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7744(t0,t1,t2);}

C_noret_decl(trf_7963)
static void C_ccall trf_7963(C_word c,C_word *av) C_noret;
static void C_ccall trf_7963(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_7963(t0,t1,t2);}

C_noret_decl(trf_8154)
static void C_ccall trf_8154(C_word c,C_word *av) C_noret;
static void C_ccall trf_8154(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8154(t0,t1,t2);}

C_noret_decl(trf_8228)
static void C_ccall trf_8228(C_word c,C_word *av) C_noret;
static void C_ccall trf_8228(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8228(t0,t1,t2);}

C_noret_decl(trf_8254)
static void C_ccall trf_8254(C_word c,C_word *av) C_noret;
static void C_ccall trf_8254(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_8254(t0,t1,t2,t3);}

C_noret_decl(trf_8267)
static void C_ccall trf_8267(C_word c,C_word *av) C_noret;
static void C_ccall trf_8267(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_8267(t0,t1);}

C_noret_decl(trf_8289)
static void C_ccall trf_8289(C_word c,C_word *av) C_noret;
static void C_ccall trf_8289(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8289(t0,t1,t2);}

C_noret_decl(trf_8323)
static void C_ccall trf_8323(C_word c,C_word *av) C_noret;
static void C_ccall trf_8323(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8323(t0,t1,t2);}

C_noret_decl(trf_8336)
static void C_ccall trf_8336(C_word c,C_word *av) C_noret;
static void C_ccall trf_8336(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_8336(t0,t1);}

C_noret_decl(trf_8363)
static void C_ccall trf_8363(C_word c,C_word *av) C_noret;
static void C_ccall trf_8363(C_word c,C_word *av){
C_word t0=av[4];
C_word t1=av[3];
C_word t2=av[2];
C_word t3=av[1];
C_word t4=av[0];
f_8363(t0,t1,t2,t3,t4);}

C_noret_decl(trf_8392)
static void C_ccall trf_8392(C_word c,C_word *av) C_noret;
static void C_ccall trf_8392(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8392(t0,t1,t2);}

C_noret_decl(trf_8409)
static void C_ccall trf_8409(C_word c,C_word *av) C_noret;
static void C_ccall trf_8409(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_8409(t0,t1,t2,t3);}

C_noret_decl(trf_8458)
static void C_ccall trf_8458(C_word c,C_word *av) C_noret;
static void C_ccall trf_8458(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8458(t0,t1,t2);}

C_noret_decl(trf_8501)
static void C_ccall trf_8501(C_word c,C_word *av) C_noret;
static void C_ccall trf_8501(C_word c,C_word *av){
C_word t0=av[7];
C_word t1=av[6];
C_word t2=av[5];
C_word t3=av[4];
C_word t4=av[3];
C_word t5=av[2];
C_word t6=av[1];
C_word t7=av[0];
f_8501(t0,t1,t2,t3,t4,t5,t6,t7);}

C_noret_decl(trf_8524)
static void C_ccall trf_8524(C_word c,C_word *av) C_noret;
static void C_ccall trf_8524(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8524(t0,t1,t2);}

C_noret_decl(trf_8538)
static void C_ccall trf_8538(C_word c,C_word *av) C_noret;
static void C_ccall trf_8538(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8538(t0,t1,t2);}

C_noret_decl(trf_8552)
static void C_ccall trf_8552(C_word c,C_word *av) C_noret;
static void C_ccall trf_8552(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8552(t0,t1,t2);}

C_noret_decl(trf_8591)
static void C_ccall trf_8591(C_word c,C_word *av) C_noret;
static void C_ccall trf_8591(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8591(t0,t1,t2);}

C_noret_decl(trf_8643)
static void C_ccall trf_8643(C_word c,C_word *av) C_noret;
static void C_ccall trf_8643(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8643(t0,t1,t2);}

C_noret_decl(trf_8759)
static void C_ccall trf_8759(C_word c,C_word *av) C_noret;
static void C_ccall trf_8759(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8759(t0,t1,t2);}

C_noret_decl(trf_8809)
static void C_ccall trf_8809(C_word c,C_word *av) C_noret;
static void C_ccall trf_8809(C_word c,C_word *av){
C_word t0=av[9];
C_word t1=av[8];
C_word t2=av[7];
C_word t3=av[6];
C_word t4=av[5];
C_word t5=av[4];
C_word t6=av[3];
C_word t7=av[2];
C_word t8=av[1];
C_word t9=av[0];
f_8809(t0,t1,t2,t3,t4,t5,t6,t7,t8,t9);}

C_noret_decl(trf_8869)
static void C_ccall trf_8869(C_word c,C_word *av) C_noret;
static void C_ccall trf_8869(C_word c,C_word *av){
C_word t0=av[8];
C_word t1=av[7];
C_word t2=av[6];
C_word t3=av[5];
C_word t4=av[4];
C_word t5=av[3];
C_word t6=av[2];
C_word t7=av[1];
C_word t8=av[0];
f_8869(t0,t1,t2,t3,t4,t5,t6,t7,t8);}

C_noret_decl(trf_8981)
static void C_ccall trf_8981(C_word c,C_word *av) C_noret;
static void C_ccall trf_8981(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_8981(t0,t1,t2);}

C_noret_decl(trf_9201)
static void C_ccall trf_9201(C_word c,C_word *av) C_noret;
static void C_ccall trf_9201(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9201(t0,t1,t2);}

C_noret_decl(trf_9232)
static void C_ccall trf_9232(C_word c,C_word *av) C_noret;
static void C_ccall trf_9232(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9232(t0,t1,t2);}

C_noret_decl(trf_9311)
static void C_ccall trf_9311(C_word c,C_word *av) C_noret;
static void C_ccall trf_9311(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_9311(t0,t1);}

C_noret_decl(trf_9405)
static void C_ccall trf_9405(C_word c,C_word *av) C_noret;
static void C_ccall trf_9405(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
f_9405(t0,t1);}

C_noret_decl(trf_9479)
static void C_ccall trf_9479(C_word c,C_word *av) C_noret;
static void C_ccall trf_9479(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_9479(t0,t1,t2,t3);}

C_noret_decl(trf_9553)
static void C_ccall trf_9553(C_word c,C_word *av) C_noret;
static void C_ccall trf_9553(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_9553(t0,t1,t2,t3);}

C_noret_decl(trf_9605)
static void C_ccall trf_9605(C_word c,C_word *av) C_noret;
static void C_ccall trf_9605(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9605(t0,t1,t2);}

C_noret_decl(trf_9716)
static void C_ccall trf_9716(C_word c,C_word *av) C_noret;
static void C_ccall trf_9716(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9716(t0,t1,t2);}

C_noret_decl(trf_9750)
static void C_ccall trf_9750(C_word c,C_word *av) C_noret;
static void C_ccall trf_9750(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9750(t0,t1,t2);}

C_noret_decl(trf_9893)
static void C_ccall trf_9893(C_word c,C_word *av) C_noret;
static void C_ccall trf_9893(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_9893(t0,t1,t2,t3);}

C_noret_decl(trf_9941)
static void C_ccall trf_9941(C_word c,C_word *av) C_noret;
static void C_ccall trf_9941(C_word c,C_word *av){
C_word t0=av[3];
C_word t1=av[2];
C_word t2=av[1];
C_word t3=av[0];
f_9941(t0,t1,t2,t3);}

C_noret_decl(trf_9989)
static void C_ccall trf_9989(C_word c,C_word *av) C_noret;
static void C_ccall trf_9989(C_word c,C_word *av){
C_word t0=av[2];
C_word t1=av[1];
C_word t2=av[0];
f_9989(t0,t1,t2);}

C_noret_decl(trva28178)
static void C_ccall trva28178(C_word c,C_word *av) C_noret;
static void C_ccall trva28178(C_word c,C_word *av){
C_word t0=av[1];
C_word t1=av[0];
va28178(t0,t1);}

/* f26538 in k11891 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f26538(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f26538,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[284];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* f27239 in k13085 in k13120 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f27239(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f27239,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[351];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* map-loop1337 in k9792 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void f_10023(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_10023,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10048,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:806: g1343"));
t4=*((C_word*)lf[112]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k10046 in map-loop1337 in k9792 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_10048(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10048,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_10023(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* g1474 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_10068(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,7)))){
C_save_and_reclaim_args((void *)trf_10068,3,t0,t1,t2);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10076,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:827: resolve-variable"));
t4=((C_word*)((C_word*)t0)[3])[1];
f_8501(t4,t3,t2,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}

/* k10074 in g1474 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_10076(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_10076,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k10082 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_10084(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_10084,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10087,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:831: scheme#append"));
t3=*((C_word*)lf[6]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=t1;
av2[3]=((C_word*)((C_word*)t0)[2])[1];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k10085 in k10082 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_10087(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){
C_save_and_reclaim((void *)f_10087,c,av);}
a=C_alloc(23);
t2=((C_word*)t0)[2];
t3=t1;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_SCHEME_FALSE;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10092,a[2]=t6,a[3]=((C_word*)t2)[2],a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10097,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],tmp=(C_word)a,a+=9,tmp);
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10107,a[2]=t4,a[3]=((C_word*)t2)[2],a[4]=t6,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:830: ##sys#dynamic-wind"));
t10=*((C_word*)lf[117]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t10;
av2[1]=((C_word*)t2)[10];
av2[2]=t7;
av2[3]=t8;
av2[4]=t9;
((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}

/* a10091 in k10085 in k10082 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_10092(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10092,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a10096 in k10085 in k10082 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_10097(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_10097,c,av);}
C_trace(C_text("core.scm:832: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_8869(t2,t1,C_i_cadddr(((C_word*)t0)[3]),((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* a10106 in k10085 in k10082 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_10107(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10107,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* map-loop1468 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_10112(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_10112,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10137,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:826: g1474"));
t4=((C_word*)t0)[4];
f_10068(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k10135 in map-loop1468 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_10137(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10137,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_10112(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_10158(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){
C_save_and_reclaim((void *)f_10158,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10163,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp);
C_trace(C_text("core.scm:842: ##sys#decompose-lambda-list"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[198]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[198]+1);
av2[1]=((C_word*)t0)[12];
av2[2]=((C_word*)((C_word*)t0)[13])[1];
av2[3]=t2;
tp(4,av2);}}

/* a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_10163(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(28,c,3)))){
C_save_and_reclaim((void *)f_10163,c,av);}
a=C_alloc(28);
t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=((C_word*)t7)[1];
t9=C_i_check_list_2(t2,lf[11]);
t10=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_10173,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=t2,a[9]=t4,a[10]=t3,a[11]=((C_word*)t0)[7],a[12]=((C_word*)t0)[8],a[13]=((C_word*)t0)[9],a[14]=((C_word*)t0)[10],a[15]=((C_word*)t0)[11],tmp=(C_word)a,a+=16,tmp);
t11=C_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10335,a[2]=t7,a[3]=t12,a[4]=t8,tmp=(C_word)a,a+=5,tmp));
t14=((C_word*)t12)[1];
f_10335(t14,t10,t2);}

/* k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_10173(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_10173,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_10176,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp);
C_trace(C_text("core.scm:846: chicken.syntax#get-line-number"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[114]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[114]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[15];
tp(3,av2);}}

/* k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_10176(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){
C_save_and_reclaim((void *)f_10176,c,av);}
a=C_alloc(21);
t2=(C_truep(t1)?t1:((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_10182,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=t2,a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],tmp=(C_word)a,a+=16,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10333,a[2]=t3,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:847: ##sys#current-environment"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[110]);
C_word *av2=av;
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t4;
tp(2,av2);}}

/* k10180 in k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_10182(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(34,c,4)))){
C_save_and_reclaim((void *)f_10182,c,av);}
a=C_alloc(34);
t2=C_fast_retrieve(lf[110]);
t3=t1;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_SCHEME_TRUE;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10185,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10260,a[2]=t4,a[3]=t6,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10277,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[13],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[14],a[9]=((C_word*)t0)[15],tmp=(C_word)a,a+=10,tmp);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10321,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:848: ##sys#dynamic-wind"));
t11=*((C_word*)lf[117]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t11;
av2[1]=t7;
av2[2]=t8;
av2[3]=t9;
av2[4]=t10;
((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}}

/* k10183 in k10180 in k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_10185(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
C_save_and_reclaim((void *)f_10185,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10188,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
if(C_truep(((C_word*)t0)[9])){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10258,a[2]=t2,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:863: posq"));
f_7963(t3,((C_word*)t0)[9],((C_word*)t0)[8]);}
else{
C_trace(C_text("core.scm:861: chicken.compiler.support#build-lambda-list"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[195]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[195]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[7];
av2[3]=((C_word*)t0)[10];
av2[4]=C_SCHEME_FALSE;
tp(5,av2);}}}

/* k10186 in k10183 in k10180 in k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_10188(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_10188,c,av);}
a=C_alloc(18);
t2=C_a_i_list(&a,3,lf[100],t1,((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10194,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=t1,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:865: set-real-names!"));
f_8392(t3,((C_word*)t0)[8],((C_word*)t0)[9]);}

/* k10192 in k10186 in k10183 in k10180 in k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_10194(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_10194,c,av);}
a=C_alloc(12);
t2=C_i_not(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10203,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp);
if(C_truep(t2)){
t4=t3;
f_10203(t4,t2);}
else{
if(C_truep(((C_word*)t0)[8])){
t4=t3;
f_10203(t4,((C_word*)t0)[8]);}
else{
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10247,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:868: ##sys#current-environment"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[110]);
C_word *av2=av;
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t4;
tp(2,av2);}}}}

/* k10201 in k10192 in k10186 in k10183 in k10180 in k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void f_10203(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_10203,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10209,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(*((C_word*)lf[33]+1))){
t3=C_eqp(*((C_word*)lf[46]+1),lf[191]);
if(C_truep(t3)){
t4=t2;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
f_10209(2,av2);}}
else{
t4=C_eqp(*((C_word*)lf[46]+1),lf[192]);
if(C_truep(t4)){
C_trace(C_text("core.scm:874: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[193]);
C_word av2[4];
av2[0]=*((C_word*)lf[193]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=lf[194];
tp(4,av2);}}
else{
t5=t2;{
C_word av2[2];
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_10209(2,av2);}}}}
else{
t3=t2;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_10209(2,av2);}}}}

/* k10207 in k10201 in k10192 in k10186 in k10183 in k10180 in k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void C_ccall f_10209(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_10209,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10216,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_memq(((C_word*)t2)[5],((C_word*)t2)[6]))){
C_trace(C_text("core.scm:875: chicken.compiler.support#expand-profile-lambda"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[190]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[190]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[6];
av2[3]=((C_word*)t2)[3];
av2[4]=((C_word*)t2)[4];
tp(5,av2);}}
else{
C_trace(C_text("core.scm:878: ##sys#alias-global-hook"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[125]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[125]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_FALSE;
tp(5,av2);}}}
else{
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t2)[7];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k10214 in k10207 in k10201 in k10192 in k10186 in k10183 in k10180 in k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in ... */
static void C_ccall f_10216(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_10216,c,av);}
C_trace(C_text("core.scm:875: chicken.compiler.support#expand-profile-lambda"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[190]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[190]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
tp(5,av2);}}

/* k10245 in k10192 in k10186 in k10183 in k10180 in k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_10247(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10247,c,av);}
t2=((C_word*)t0)[2];
f_10203(t2,C_i_assq(((C_word*)t0)[3],t1));}

/* k10256 in k10183 in k10180 in k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_10258(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_10258,c,av);}
C_trace(C_text("core.scm:861: chicken.compiler.support#build-lambda-list"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[195]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[195]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=C_i_list_ref(((C_word*)t0)[3],t1);
tp(5,av2);}}

/* a10259 in k10180 in k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_10260(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_10260,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10264,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=7,tmp);
if(C_truep(((C_word*)((C_word*)t0)[3])[1])){
C_trace(C_text("core.scm:848: ##sys#current-environment1547"));
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)((C_word*)t0)[2])[1];
f_10264(2,av2);}}}

/* k10262 in a10259 in k10180 in k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_10264(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10264,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+6,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10268,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:848: ##sys#current-environment1547"));
t4=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)C_fast_retrieve_proc(t4))(2,av2);}}

/* k10266 in k10262 in a10259 in k10180 in k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_10268(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_10268,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[2])+1,t1);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10271,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:848: ##sys#current-environment1547"));
t5=((C_word*)t2)[5];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t2)[6];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t5))(5,av2);}}

/* k10269 in k10266 in k10262 in a10259 in k10180 in k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_10271(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10271,c,av);}
t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a10276 in k10180 in k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_10277(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_10277,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10281,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:849: canonicalize-body/ln"));
t3=((C_word*)((C_word*)t0)[8])[1];
f_8363(t3,t2,((C_word*)t0)[5],((C_word*)((C_word*)t0)[9])[1],*((C_word*)lf[55]+1));}

/* k10279 in a10276 in k10180 in k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_10281(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){
C_save_and_reclaim((void *)f_10281,c,av);}
a=C_alloc(22);
t2=C_SCHEME_END_OF_LIST;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_FALSE;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10286,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10291,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=t1,tmp=(C_word)a,a+=8,tmp);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10316,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t5,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:851: ##sys#dynamic-wind"));
t9=*((C_word*)lf[117]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t9;
av2[1]=((C_word*)t0)[8];
av2[2]=t6;
av2[3]=t7;
av2[4]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}

/* a10285 in k10279 in a10276 in k10180 in k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_10286(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10286,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a10290 in k10279 in a10276 in k10180 in k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_10291(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,2)))){
C_save_and_reclaim((void *)f_10291,c,av);}
a=C_alloc(32);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10299,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
if(C_truep(*((C_word*)lf[25]+1))){
t3=C_a_i_list(&a,2,lf[153],((C_word*)t0)[3]);
t4=C_a_i_list(&a,3,lf[196],lf[197],t3);
t5=t2;
f_10299(t5,C_a_i_list(&a,3,lf[141],t4,((C_word*)t0)[7]));}
else{
t3=t2;
f_10299(t3,((C_word*)t0)[7]);}}

/* k10297 in a10290 in k10279 in a10276 in k10180 in k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void f_10299(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_10299,2,t0,t1);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10303,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:858: scheme#append"));
t3=*((C_word*)lf[6]+1);{
C_word av2[4];
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k10301 in k10297 in a10290 in k10279 in a10276 in k10180 in k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void C_ccall f_10303(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_10303,c,av);}
C_trace(C_text("core.scm:852: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_8869(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);}

/* a10315 in k10279 in a10276 in k10180 in k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_10316(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10316,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a10320 in k10180 in k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_10321(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_10321,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10325,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:848: ##sys#current-environment1547"));
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)C_fast_retrieve_proc(t3))(2,av2);}}

/* k10323 in a10320 in k10180 in k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_10325(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_10325,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10328,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:848: ##sys#current-environment1547"));
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}

/* k10326 in k10323 in a10320 in k10180 in k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_10328(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10328,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k10331 in k10174 in k10171 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_10333(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_10333,c,av);}
C_trace(C_text("core.scm:847: ##sys#extend-se"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[183]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[183]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
tp(5,av2);}}

/* map-loop1516 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void f_10335(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_10335,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10360,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:845: g1522"));
t4=*((C_word*)lf[112]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k10358 in map-loop1516 in a10162 in k10156 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_10360(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10360,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_10335(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k10368 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_10370(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_10370,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10375,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10385,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:838: ##sys#call-with-values"));{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[4];
av2[2]=t2;
av2[3]=t3;
C_call_with_values(4,av2);}}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_10158(2,av2);}}}

/* a10374 in k10368 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_10375(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_10375,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10383,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:841: ##sys#current-environment"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[110]);
C_word *av2=av;
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t2;
tp(2,av2);}}

/* k10381 in a10374 in k10368 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_10383(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_10383,c,av);}
C_trace(C_text("core.scm:840: ##sys#expand-extended-lambda-list"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[199]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[199]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)((C_word*)t0)[3])[1];
av2[3]=((C_word*)((C_word*)t0)[4])[1];
av2[4]=*((C_word*)lf[200]+1);
av2[5]=t1;
tp(6,av2);}}

/* a10384 in k10368 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_10385(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10385,c,av);}
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3);
t6=t1;{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* k10395 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_10397(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){
C_save_and_reclaim((void *)f_10397,c,av);}
a=C_alloc(23);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_TRUE;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10402,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10419,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10439,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:883: ##sys#dynamic-wind"));
t9=*((C_word*)lf[117]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t9;
av2[1]=((C_word*)t0)[11];
av2[2]=t6;
av2[3]=t7;
av2[4]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}

/* a10401 in k10395 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_10402(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_10402,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10406,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=7,tmp);
if(C_truep(((C_word*)((C_word*)t0)[3])[1])){
C_trace(C_text("core.scm:883: ##sys#current-environment1599"));
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)((C_word*)t0)[2])[1];
f_10406(2,av2);}}}

/* k10404 in a10401 in k10395 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_10406(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10406,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+6,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10410,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:883: ##sys#current-environment1599"));
t4=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)C_fast_retrieve_proc(t4))(2,av2);}}

/* k10408 in k10404 in a10401 in k10395 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_10410(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_10410,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[2])+1,t1);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10413,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:883: ##sys#current-environment1599"));
t5=((C_word*)t2)[5];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t2)[6];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t5))(5,av2);}}

/* k10411 in k10408 in k10404 in a10401 in k10395 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_10413(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10413,c,av);}
t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a10418 in k10395 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_10419(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_10419,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10423,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
C_trace(C_text("core.scm:895: chicken.syntax#get-line-number"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[114]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[114]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
tp(3,av2);}}

/* k10421 in a10418 in k10395 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_10423(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_10423,c,av);}
a=C_alloc(9);
t2=(C_truep(t1)?t1:((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10433,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t2,tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:897: canonicalize-body/ln"));
t4=((C_word*)((C_word*)t0)[9])[1];
f_8363(t4,t3,t2,C_i_cddr(((C_word*)t0)[10]),*((C_word*)lf[55]+1));}

/* k10431 in k10421 in a10418 in k10395 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_10433(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_10433,c,av);}
C_trace(C_text("core.scm:896: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_8869(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* a10438 in k10395 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_10439(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_10439,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10443,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:883: ##sys#current-environment1599"));
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)C_fast_retrieve_proc(t3))(2,av2);}}

/* k10441 in a10438 in k10395 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_10443(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_10443,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10446,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:883: ##sys#current-environment1599"));
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}

/* k10444 in k10441 in a10438 in k10395 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_10446(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10446,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k10462 in map-loop1608 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_10464(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_10464,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10468,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10472,a[2]=t2,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:891: ##sys#eval/meta"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[204]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[204]+1);
av2[1]=t3;
av2[2]=C_i_cadr(((C_word*)t0)[7]);
tp(3,av2);}}

/* k10466 in k10462 in map-loop1608 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_10468(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_10468,c,av);}
a=C_alloc(12);
t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1);
t3=C_a_i_cons(&a,2,t2,C_SCHEME_END_OF_LIST);
t4=C_i_setslot(((C_word*)((C_word*)t0)[4])[1],C_fix(1),t3);
t5=C_mutate(((C_word *)((C_word*)t0)[4])+1,t3);
t6=((C_word*)((C_word*)t0)[5])[1];
f_10493(t6,((C_word*)t0)[6],C_slot(((C_word*)t0)[7],C_fix(1)));}

/* k10470 in k10462 in map-loop1608 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_10472(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10472,c,av);}
C_trace(C_text("core.scm:890: ##sys#ensure-transformer"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_u_i_car(((C_word*)t0)[3]);
tp(4,av2);}}

/* k10485 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_10487(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10487,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10491,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:894: ##sys#current-environment"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[110]);
C_word *av2=av;
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t3;
tp(2,av2);}}

/* k10489 in k10485 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_10491(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10491,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("core.scm:885: scheme#append"));
t3=*((C_word*)lf[6]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* map-loop1608 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_10493(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_10493,3,t0,t1,t2);}
a=C_alloc(8);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_car(t3);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10464,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t2,a[7]=t3,tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("core.scm:889: ##sys#current-environment"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[110]);
C_word av2[2];
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t5;
tp(2,av2);}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k10545 in map-loop1647 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_10547(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_10547,c,av);}
a=C_alloc(12);
t2=C_a_i_list3(&a,3,((C_word*)t0)[2],C_SCHEME_FALSE,t1);
t3=C_a_i_cons(&a,2,t2,C_SCHEME_END_OF_LIST);
t4=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t3);
t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3);
t6=((C_word*)((C_word*)t0)[4])[1];
f_10663(t6,((C_word*)t0)[5],C_slot(((C_word*)t0)[6],C_fix(1)));}

/* k10549 in map-loop1647 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_10551(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10551,c,av);}
C_trace(C_text("core.scm:906: ##sys#ensure-transformer"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_u_i_car(((C_word*)t0)[3]);
tp(4,av2);}}

/* k10564 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_10566(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){
C_save_and_reclaim((void *)f_10566,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10569,a[2]=((C_word*)t0)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],tmp=(C_word)a,a+=13,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10661,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:910: ##sys#current-environment"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[110]);
C_word *av2=av;
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t3;
tp(2,av2);}}

/* k10567 in k10564 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_10569(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10569,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10572,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:911: chicken.syntax#get-line-number"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[114]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[114]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[11];
tp(3,av2);}}

/* k10570 in k10567 in k10564 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_10572(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){
C_save_and_reclaim((void *)f_10572,c,av);}
a=C_alloc(29);
t2=((C_word*)t0)[2];
t3=(C_truep(t1)?t1:((C_word*)t2)[2]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10576,a[2]=((C_word*)t2)[3],tmp=(C_word)a,a+=3,tmp);
t5=C_i_check_list_2(((C_word*)t2)[4],lf[103]);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10636,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
t7=(
  f_10636(t6,((C_word*)t2)[4])
);
t8=C_fast_retrieve(lf[110]);
t9=((C_word*)t2)[3];
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_SCHEME_TRUE;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10595,a[2]=t10,a[3]=t12,a[4]=t8,tmp=(C_word)a,a+=5,tmp);
t14=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10612,a[2]=((C_word*)t2)[5],a[3]=((C_word*)t2)[6],a[4]=((C_word*)t2)[7],a[5]=((C_word*)t2)[8],a[6]=((C_word*)t2)[9],a[7]=t3,a[8]=((C_word*)t2)[10],a[9]=((C_word*)t2)[11],tmp=(C_word)a,a+=10,tmp);
t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10626,a[2]=t10,a[3]=t8,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:916: ##sys#dynamic-wind"));
t16=*((C_word*)lf[117]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t16;
av2[1]=((C_word*)t2)[12];
av2[2]=t13;
av2[3]=t14;
av2[4]=t15;
((C_proc)(void*)(*((C_word*)t16+1)))(5,av2);}}

/* g1680 in k10570 in k10567 in k10564 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static C_word f_10576(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_stack_overflow_check;{}
return(C_i_set_car(C_i_cdr(t1),((C_word*)t0)[2]));}

/* a10594 in k10570 in k10567 in k10564 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_10595(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_10595,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10599,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=7,tmp);
if(C_truep(((C_word*)((C_word*)t0)[3])[1])){
C_trace(C_text("core.scm:916: ##sys#current-environment1688"));
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)((C_word*)t0)[2])[1];
f_10599(2,av2);}}}

/* k10597 in a10594 in k10570 in k10567 in k10564 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_10599(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10599,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+6,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10603,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:916: ##sys#current-environment1688"));
t4=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)C_fast_retrieve_proc(t4))(2,av2);}}

/* k10601 in k10597 in a10594 in k10570 in k10567 in k10564 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_10603(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_10603,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[2])+1,t1);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10606,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:916: ##sys#current-environment1688"));
t5=((C_word*)t2)[5];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t2)[6];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t5))(5,av2);}}

/* k10604 in k10601 in k10597 in a10594 in k10570 in k10567 in k10564 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_10606(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10606,c,av);}
t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a10611 in k10570 in k10567 in k10564 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_10612(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_10612,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10620,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:918: canonicalize-body/ln"));
t3=((C_word*)((C_word*)t0)[8])[1];
f_8363(t3,t2,((C_word*)t0)[7],C_i_cddr(((C_word*)t0)[9]),*((C_word*)lf[55]+1));}

/* k10618 in a10611 in k10570 in k10567 in k10564 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_10620(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_10620,c,av);}
C_trace(C_text("core.scm:917: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_8869(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* a10625 in k10570 in k10567 in k10564 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_10626(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_10626,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10630,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:916: ##sys#current-environment1688"));
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)C_fast_retrieve_proc(t3))(2,av2);}}

/* k10628 in a10625 in k10570 in k10567 in k10564 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_10630(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_10630,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10633,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:916: ##sys#current-environment1688"));
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}

/* k10631 in k10628 in a10625 in k10570 in k10567 in k10564 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_10633(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_10633,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* for-each-loop1679 in k10570 in k10567 in k10564 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static C_word f_10636(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_pairp(t1))){
t2=(
C_trace("core.scm:912: g1680"),
  f_10576(((C_word*)t0)[2],C_slot(t1,C_fix(0)))
);
t4=C_slot(t1,C_fix(1));
t1=t4;
goto loop;}
else{
t2=C_SCHEME_UNDEFINED;
return(t2);}}

/* k10659 in k10564 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_10661(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10661,c,av);}
C_trace(C_text("core.scm:910: scheme#append"));
t2=*((C_word*)lf[6]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* map-loop1647 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_10663(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
C_save_and_reclaim_args((void *)trf_10663,3,t0,t1,t2);}
a=C_alloc(11);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_car(t3);
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10547,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10551,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:907: ##sys#eval/meta"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[204]);
C_word av2[3];
av2[0]=*((C_word*)lf[204]+1);
av2[1]=t6;
av2[2]=C_i_cadr(t3);
tp(3,av2);}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k10702 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_10704(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10704,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10707,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=C_i_cadr(((C_word*)t0)[10]);
if(C_truep(C_i_pairp(t3))){
C_trace(C_text("core.scm:929: scheme#caadr"));
t4=*((C_word*)lf[172]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=((C_word*)t0)[10];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_u_i_car(C_u_i_cdr(((C_word*)t0)[10]));
f_10707(2,av2);}}}

/* k10705 in k10702 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_10707(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
C_save_and_reclaim((void *)f_10707,c,av);}
a=C_alloc(15);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10710,a[2]=t1,a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[8],a[10]=((C_word*)t2)[9],tmp=(C_word)a,a+=11,tmp);
t4=C_u_i_cdr(((C_word*)t2)[10]);
if(C_truep(C_i_pairp(C_u_i_car(t4)))){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10766,a[2]=((C_word*)t2)[10],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:931: scheme#cdadr"));
t6=*((C_word*)lf[215]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t2)[10];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t5=t3;
f_10710(t5,C_i_caddr(((C_word*)t2)[10]));}}

/* k10708 in k10705 in k10702 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void f_10710(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){
C_save_and_reclaim_args((void *)trf_10710,2,t0,t1);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10713,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=12,tmp);
C_trace(C_text("core.scm:933: lookup"));
t3=((C_word*)((C_word*)t0)[10])[1];
f_8289(t3,t2,((C_word*)t0)[2]);}

/* k10711 in k10708 in k10705 in k10702 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_10713(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_10713,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+11,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10716,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:934: ##sys#put/restore!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[212]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[212]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[11];
av2[3]=lf[213];
av2[4]=lf[214];
tp(5,av2);}}

/* k10714 in k10711 in k10708 in k10705 in k10702 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_10716(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){
C_save_and_reclaim((void *)f_10716,c,av);}
a=C_alloc(17);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10719,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[10],a[11]=((C_word*)t2)[11],tmp=(C_word)a,a+=12,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10752,a[2]=t3,a[3]=((C_word*)t2)[11],a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:935: ##sys#current-module"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[211]);
C_word *av2=av;
av2[0]=*((C_word*)lf[211]+1);
av2[1]=t4;
tp(2,av2);}}

/* k10717 in k10714 in k10711 in k10708 in k10705 in k10702 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_10719(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_10719,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10722,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10744,a[2]=t2,a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:938: ##sys#current-environment"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[110]);
C_word *av2=av;
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t3;
tp(2,av2);}}

/* k10720 in k10717 in k10714 in k10711 in k10708 in k10705 in k10702 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_10722(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,8)))){
C_save_and_reclaim((void *)f_10722,c,av);}
a=C_alloc(21);
if(C_truep(C_fast_retrieve(lf[207]))){
t2=C_a_i_list(&a,2,lf[153],((C_word*)t0)[2]);
t3=C_a_i_list(&a,1,lf[110]);
t4=C_a_i_list(&a,4,lf[208],t2,t3,((C_word*)t0)[3]);
C_trace(C_text("core.scm:940: walk"));
t5=((C_word*)((C_word*)t0)[4])[1];
f_8869(t5,((C_word*)t0)[5],t4,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],C_SCHEME_FALSE);}
else{
C_trace(C_text("core.scm:940: walk"));
t2=((C_word*)((C_word*)t0)[4])[1];
f_8869(t2,((C_word*)t0)[5],lf[209],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],C_SCHEME_FALSE);}}

/* k10742 in k10717 in k10714 in k10711 in k10708 in k10705 in k10702 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_10744(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_10744,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10748,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:939: ##sys#eval/meta"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[204]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[204]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k10746 in k10742 in k10717 in k10714 in k10711 in k10708 in k10705 in k10702 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_10748(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_10748,c,av);}
C_trace(C_text("core.scm:936: ##sys#extend-macro-environment"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[208]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[208]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=t1;
tp(5,av2);}}

/* k10750 in k10714 in k10711 in k10708 in k10705 in k10702 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_10752(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_10752,c,av);}
C_trace(C_text("core.scm:935: ##sys#register-syntax-export"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[210]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[210]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
av2[4]=((C_word*)t0)[4];
tp(5,av2);}}

/* k10764 in k10705 in k10702 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_10766(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_10766,c,av);}
a=C_alloc(6);
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=C_u_i_cdr(t2);
t4=C_a_i_cons(&a,2,t1,t3);
t5=((C_word*)t0)[3];
f_10710(t5,C_a_i_cons(&a,2,lf[100],t4));}

/* k10795 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_10797(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_10797,c,av);}
C_trace(C_text("core.scm:923: ##sys#check-syntax"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[218]);
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=*((C_word*)lf[218]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=((C_word*)t0)[5];
av2[5]=C_SCHEME_FALSE;
av2[6]=t1;
tp(7,av2);}}

/* k10817 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_10819(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
C_save_and_reclaim((void *)f_10819,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10822,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
if(C_truep(((C_word*)t0)[2])){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10889,a[2]=((C_word*)t0)[11],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:956: ##sys#get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[106]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[106]+1);
av2[1]=t3;
av2[2]=t1;
av2[3]=lf[220];
tp(4,av2);}}
else{
t3=t2;
f_10822(t3,C_SCHEME_UNDEFINED);}}

/* k10820 in k10817 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void f_10822(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){
C_save_and_reclaim_args((void *)trf_10822,2,t0,t1);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10825,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t0)[3])){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10873,a[2]=C_SCHEME_UNDEFINED,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10881,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:963: ##sys#eval/meta"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[204]);
C_word av2[3];
av2[0]=*((C_word*)lf[204]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
else{
C_trace(C_text("core.scm:958: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[111]);
C_word av2[5];
av2[0]=*((C_word*)lf[111]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
av2[3]=lf[220];
av2[4]=C_SCHEME_FALSE;
tp(5,av2);}}}

/* k10823 in k10820 in k10817 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_10825(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(51,c,8)))){
C_save_and_reclaim((void *)f_10825,c,av);}
a=C_alloc(51);
t2=((C_word*)t0)[2];
if(C_truep(C_fast_retrieve(lf[207]))){
t3=C_a_i_list(&a,2,lf[152],((C_word*)t2)[2]);
t4=C_a_i_list(&a,2,lf[119],lf[220]);
if(C_truep(((C_word*)t2)[3])){
t5=C_a_i_list(&a,2,lf[153],((C_word*)t2)[4]);
t6=C_a_i_list(&a,3,lf[203],((C_word*)t2)[3],t5);
t7=C_a_i_list(&a,1,lf[110]);
t8=C_a_i_list(&a,3,lf[221],t6,t7);
t9=C_a_i_list(&a,4,lf[111],t3,t4,t8);
C_trace(C_text("core.scm:966: walk"));
t10=((C_word*)((C_word*)t2)[5])[1];
f_8869(t10,((C_word*)t2)[6],t9,((C_word*)t2)[7],((C_word*)t2)[8],((C_word*)t2)[9],((C_word*)t2)[10],((C_word*)t2)[11],C_SCHEME_FALSE);}
else{
t5=C_a_i_list(&a,4,lf[111],t3,t4,C_SCHEME_FALSE);
C_trace(C_text("core.scm:966: walk"));
t6=((C_word*)((C_word*)t2)[5])[1];
f_8869(t6,((C_word*)t2)[6],t5,((C_word*)t2)[7],((C_word*)t2)[8],((C_word*)t2)[9],((C_word*)t2)[10],((C_word*)t2)[11],C_SCHEME_FALSE);}}
else{
C_trace(C_text("core.scm:966: walk"));
t3=((C_word*)((C_word*)t2)[5])[1];
f_8869(t3,((C_word*)t2)[6],lf[222],((C_word*)t2)[7],((C_word*)t2)[8],((C_word*)t2)[9],((C_word*)t2)[10],((C_word*)t2)[11],C_SCHEME_FALSE);}}

/* k10871 in k10820 in k10817 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_10873(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10873,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10877,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:965: ##sys#current-environment"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[110]);
C_word *av2=av;
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t3;
tp(2,av2);}}

/* k10875 in k10871 in k10820 in k10817 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_10877(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_10877,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_a_i_cons(&a,2,((C_word*)t2)[2],t1);
C_trace(C_text("core.scm:958: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[111]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[111]+1);
av2[1]=((C_word*)t2)[3];
av2[2]=((C_word*)t2)[4];
av2[3]=lf[220];
av2[4]=t3;
tp(5,av2);}}

/* k10879 in k10820 in k10817 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_10881(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10881,c,av);}
C_trace(C_text("core.scm:962: ##sys#ensure-transformer"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k10887 in k10817 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_10889(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_10889,c,av);}
a=C_alloc(6);
t2=((C_word*)((C_word*)t0)[2])[1];
t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
t4=C_a_i_cons(&a,2,t3,t2);
t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4);
t6=((C_word*)t0)[4];
f_10822(t6,t5);}

/* g1747 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_10899(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){
C_save_and_reclaim_args((void *)trf_10899,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+3,t2);
t4=C_mutate(((C_word *)t0)+2,t1);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10903,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:983: ##sys#check-syntax"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[218]);
C_word av2[5];
av2[0]=*((C_word*)lf[218]+1);
av2[1]=t5;
av2[2]=lf[224];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[225];
tp(5,av2);}}

/* k10901 in g1747 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_10903(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_10903,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10906,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:985: lookup"));
t4=((C_word*)((C_word*)t2)[4])[1];
f_8289(t4,t3,C_i_car(((C_word*)t2)[3]));}

/* k10904 in k10901 in g1747 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_10906(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_10906,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10913,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[3])))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10927,a[2]=t2,a[3]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10935,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:990: ##sys#eval/meta"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[204]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[204]+1);
av2[1]=t4;
av2[2]=C_i_cadr(((C_word*)t0)[3]);
tp(3,av2);}}
else{
t3=t2;
f_10913(t3,C_SCHEME_FALSE);}}

/* k10911 in k10904 in k10901 in g1747 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void f_10913(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_10913,2,t0,t1);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10917,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:993: ##sys#get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[106]);
C_word av2[4];
av2[0]=*((C_word*)lf[106]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[220];
tp(4,av2);}}

/* k10915 in k10911 in k10904 in k10901 in g1747 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_10917(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_10917,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list3(&a,3,((C_word*)t2)[3],((C_word*)t2)[4],t1);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k10925 in k10904 in k10901 in g1747 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_10927(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10927,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10931,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:992: ##sys#current-environment"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[110]);
C_word *av2=av;
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t3;
tp(2,av2);}}

/* k10929 in k10925 in k10904 in k10901 in g1747 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_10931(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_10931,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=((C_word*)t2)[2];
f_10913(t3,C_a_i_cons(&a,2,((C_word*)t2)[3],t1));}

/* k10933 in k10904 in k10901 in g1747 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_10935(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_10935,c,av);}
C_trace(C_text("core.scm:989: ##sys#ensure-transformer"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[203]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[203]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_u_i_car(((C_word*)t0)[3]);
tp(4,av2);}}

/* k10954 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_10956(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_10956,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10959,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:995: chicken.syntax#get-line-number"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[114]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[114]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[11];
tp(3,av2);}}

/* k10957 in k10954 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_10959(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){
C_save_and_reclaim((void *)f_10959,c,av);}
a=C_alloc(17);
t2=((C_word*)t0)[2];
t3=(C_truep(t1)?t1:((C_word*)t2)[2]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10967,a[2]=((C_word*)t2)[3],tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11012,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[6],a[5]=((C_word*)t2)[7],a[6]=((C_word*)t2)[8],a[7]=t3,a[8]=((C_word*)t2)[9],a[9]=((C_word*)t2)[10],a[10]=((C_word*)t2)[11],tmp=(C_word)a,a+=11,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11026,a[2]=((C_word*)t2)[3],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:996: scheme#dynamic-wind"));
t7=C_fast_retrieve(lf[226]);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t7;
av2[1]=((C_word*)t2)[12];
av2[2]=t4;
av2[3]=t5;
av2[4]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}

/* a10966 in k10957 in k10954 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_10967(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_10967,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(((C_word*)t0)[2],lf[103]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10989,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_10989(t6,t1,((C_word*)t0)[2]);}

/* for-each-loop1774 in a10966 in k10957 in k10954 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void f_10989(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_10989,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10999,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
C_trace(C_text("core.scm:1000: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[111]);
C_word av2[5];
av2[0]=*((C_word*)lf[111]+1);
av2[1]=t3;
av2[2]=C_i_car(t4);
av2[3]=lf[220];
av2[4]=C_i_cadr(t4);
tp(5,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k10997 in for-each-loop1774 in a10966 in k10957 in k10954 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_10999(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_10999,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_10989(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* a11011 in k10957 in k10954 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_11012(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_11012,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11020,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:1004: canonicalize-body/ln"));
t3=((C_word*)((C_word*)t0)[9])[1];
f_8363(t3,t2,((C_word*)t0)[7],C_i_cddr(((C_word*)t0)[10]),*((C_word*)lf[55]+1));}

/* k11018 in a11011 in k10957 in k10954 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_11020(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_11020,c,av);}
C_trace(C_text("core.scm:1003: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_8869(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);}

/* a11025 in k10957 in k10954 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_11026(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_11026,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(((C_word*)t0)[2],lf[103]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11048,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_11048(t6,t1,((C_word*)t0)[2]);}

/* for-each-loop1792 in a11025 in k10957 in k10954 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void f_11048(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_11048,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11058,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
C_trace(C_text("core.scm:1010: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[111]);
C_word av2[5];
av2[0]=*((C_word*)lf[111]+1);
av2[1]=t3;
av2[2]=C_i_car(t4);
av2[3]=lf[220];
av2[4]=C_i_caddr(t4);
tp(5,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k11056 in for-each-loop1792 in a11025 in k10957 in k10954 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_11058(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11058,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_11048(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* map-loop1741 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_11071(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_11071,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11096,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:981: g1747"));
t4=((C_word*)t0)[4];
f_10899(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k11094 in map-loop1741 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_11096(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11096,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_11071(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k11137 in map-loop1810 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_11139(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11139,c,av);}
C_trace(C_text("core.scm:1025: chicken.syntax#strip-syntax"));
t2=C_fast_retrieve(lf[154]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k11149 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_11151(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_11151,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11153,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:1022: ##sys#with-module-aliases"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[230]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[230]+1);
av2[1]=((C_word*)t0)[9];
av2[2]=t1;
av2[3]=t2;
tp(4,av2);}}

/* a11152 in k11149 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_11153(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){
C_save_and_reclaim((void *)f_11153,c,av);}
a=C_alloc(3);
t2=C_i_cddr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[141],t2);
C_trace(C_text("core.scm:1028: walk"));
t4=((C_word*)((C_word*)t0)[3])[1];
f_8869(t4,t1,t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_TRUE);}

/* map-loop1810 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_11167(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){
C_save_and_reclaim_args((void *)trf_11167,3,t0,t1,t2);}
a=C_alloc(10);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11192,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11139,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1024: ##sys#check-syntax"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[218]);
C_word av2[5];
av2[0]=*((C_word*)lf[218]+1);
av2[1]=t5;
av2[2]=lf[231];
av2[3]=t4;
av2[4]=lf[232];
tp(5,av2);}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k11190 in map-loop1810 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_11192(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11192,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_11167(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_11208(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11208,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+10,t1);
t3=C_i_assq(((C_word*)t0)[10],*((C_word*)lf[47]+1));
t4=(C_truep(t3)?t3:*((C_word*)lf[48]+1));
t5=C_mutate(((C_word *)t0)+9,t4);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11217,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_not(*((C_word*)lf[51]+1)))){
if(C_truep(((C_word*)t0)[9])){
t7=*((C_word*)lf[18]+1);
t8=t6;
f_11217(t8,(C_truep(*((C_word*)lf[18]+1))?*((C_word*)lf[18]+1):((C_word*)t0)[10]));}
else{
t7=t6;
f_11217(t7,C_SCHEME_FALSE);}}
else{
t7=t6;
f_11217(t7,C_SCHEME_FALSE);}}

/* k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void f_11217(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(31,0,4)))){
C_save_and_reclaim_args((void *)trf_11217,2,t0,t1);}
a=C_alloc(31);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11220,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[10],a[11]=((C_word*)t2)[11],tmp=(C_word)a,a+=12,tmp);
t4=C_i_caddr(((C_word*)t2)[11]);
t5=C_eqp(C_SCHEME_TRUE,t4);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11650,a[2]=t3,a[3]=((C_word*)t2)[10],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
if(C_truep(t5)){
C_trace(C_text("core.scm:1034: ##sys#register-module"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[280]);
C_word av2[5];
av2[0]=*((C_word*)lf[280]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[10];
av2[3]=t1;
av2[4]=t5;
tp(5,av2);}}
else{
t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t8=t7;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=((C_word*)t9)[1];
t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11654,a[2]=((C_word*)t2)[10],tmp=(C_word)a,a+=3,tmp);
t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11703,a[2]=t9,a[3]=t11,a[4]=t10,a[5]=t6,tmp=(C_word)a,a+=6,tmp);
t13=C_u_i_cdr(((C_word*)t2)[11]);
t14=C_u_i_cdr(t13);
C_trace(C_text("core.scm:1049: chicken.syntax#strip-syntax"));
t15=C_fast_retrieve(lf[154]);{
C_word av2[3];
av2[0]=t15;
av2[1]=t12;
av2[2]=C_u_i_car(t14);
((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}}}

/* k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_11220(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){
C_save_and_reclaim((void *)f_11220,c,av);}
a=C_alloc(23);
t2=((C_word*)((C_word*)t0)[2])[1];
t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_11223,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=t2,a[13]=((C_word*)t0)[2],a[14]=C_SCHEME_UNDEFINED,a[15]=C_SCHEME_UNDEFINED,a[16]=C_SCHEME_UNDEFINED,a[17]=C_SCHEME_UNDEFINED,a[18]=((C_word*)t0)[11],tmp=(C_word)a,a+=19,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11640,a[2]=t3,a[3]=((C_word*)t0)[10],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1051: ##sys#current-module"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[211]);
C_word *av2=av;
av2[0]=*((C_word*)lf[211]+1);
av2[1]=t4;
tp(2,av2);}}

/* k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_11223(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11223,c,av);}
a=C_alloc(3);
t2=C_fast_retrieve(lf[211]);
t3=C_mutate(((C_word *)t0)+17,t2);
t4=C_fast_retrieve(lf[110]);
t5=C_mutate(((C_word *)t0)+16,t4);
t6=C_fast_retrieve(lf[234]);
t7=C_mutate(((C_word *)t0)+15,t6);
t8=C_fast_retrieve(lf[235]);
t9=C_mutate(((C_word *)t0)+14,t8);
t10=C_fast_retrieve(lf[236]);
t11=C_mutate(((C_word *)t0)+3,t10);
t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11226,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1059: ##sys#module-alias-environment"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[235]);
C_word *av2=av;
av2[0]=*((C_word*)lf[235]+1);
av2[1]=t12;
tp(2,av2);}}

/* k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_11226(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(52,c,4)))){
C_save_and_reclaim((void *)f_11226,c,av);}
a=C_alloc(52);
t2=((C_word*)t0)[2];
t3=((C_word*)t2)[2];
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_SCHEME_END_OF_LIST;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=((C_word*)t2)[3];
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=t1;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_SCHEME_TRUE;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11229,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[6],a[5]=((C_word*)t2)[7],a[6]=((C_word*)t2)[8],a[7]=((C_word*)t2)[9],a[8]=((C_word*)t2)[2],a[9]=((C_word*)t2)[10],a[10]=((C_word*)t2)[11],a[11]=((C_word*)t2)[12],a[12]=((C_word*)t2)[13],tmp=(C_word)a,a+=13,tmp);
t14=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11427,a[2]=t4,a[3]=t6,a[4]=t8,a[5]=t10,a[6]=t12,a[7]=((C_word*)t2)[14],a[8]=((C_word*)t2)[15],a[9]=((C_word*)t2)[16],a[10]=((C_word*)t2)[17],tmp=(C_word)a,a+=11,tmp);
t15=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11483,a[2]=((C_word*)t2)[18],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],tmp=(C_word)a,a+=8,tmp);
t16=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11608,a[2]=t4,a[3]=t6,a[4]=t8,a[5]=t10,a[6]=((C_word*)t2)[14],a[7]=((C_word*)t2)[15],a[8]=((C_word*)t2)[16],a[9]=((C_word*)t2)[17],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:1054: ##sys#dynamic-wind"));
t17=*((C_word*)lf[117]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t17;
av2[1]=t13;
av2[2]=t14;
av2[3]=t15;
av2[4]=t16;
((C_proc)(void*)(*((C_word*)t17+1)))(5,av2);}}

/* k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_11229(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){
C_save_and_reclaim((void *)f_11229,c,av);}
a=C_alloc(19);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11232,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11402,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],a[4]=t4,tmp=(C_word)a,a+=5,tmp));
t6=((C_word*)t4)[1];
f_11402(t6,t2,((C_word*)((C_word*)t0)[12])[1]);}

/* k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_11232(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
C_save_and_reclaim((void *)f_11232,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11235,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)t0)[10])){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11390,a[2]=((C_word*)t0)[10],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8718,a[2]=t3,a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp);
if(C_truep(*((C_word*)lf[48]+1))){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8803,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:622: scheme#symbol->string"));
t6=*((C_word*)lf[263]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[11];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_i_cdr(((C_word*)t0)[10]);
f_8718(2,av2);}}}
else{
t3=t2;
f_11235(t3,C_SCHEME_UNDEFINED);}}

/* k11233 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void f_11235(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){
C_save_and_reclaim_args((void *)trf_11235,2,t0,t1);}
a=C_alloc(14);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11242,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11387,a[2]=t3,a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[10],tmp=(C_word)a,a+=11,tmp);
C_trace(C_text("core.scm:1099: chicken.internal#module-requirement"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[242]);
C_word av2[3];
av2[0]=*((C_word*)lf[242]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[11];
tp(3,av2);}}

/* k11240 in k11233 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_11242(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11242,c,av);}
C_trace(C_text("core.scm:1097: chicken.compiler.support#canonicalize-begin-body"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[237]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[237]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k11248 in k11385 in k11233 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void C_ccall f_11250(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_11250,c,av);}
C_trace(C_text("core.scm:1098: scheme#append"));
t2=*((C_word*)lf[6]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k11254 in k11385 in k11233 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void f_11256(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){
C_save_and_reclaim_args((void *)trf_11256,2,t0,t1);}
a=C_alloc(12);
if(C_truep(t1)){
t2=C_fast_retrieve(lf[234]);
t3=C_fast_retrieve(lf[110]);
t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11259,a[2]=C_SCHEME_UNDEFINED,a[3]=t3,a[4]=t2,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],tmp=(C_word)a,a+=12,tmp);
C_trace(C_text("core.scm:1104: ##sys#meta-macro-environment"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[241]);
C_word av2[2];
av2[0]=*((C_word*)lf[241]+1);
av2[1]=t4;
tp(2,av2);}}
else{
C_trace(C_text("core.scm:1098: scheme#append"));
t2=*((C_word*)lf[6]+1);{
C_word av2[5];
av2[0]=t2;
av2[1]=((C_word*)t0)[9];
av2[2]=((C_word*)t0)[10];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=((C_word*)t0)[11];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}}

/* k11257 in k11254 in k11385 in k11233 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in ... */
static void C_ccall f_11259(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11259,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11262,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1106: ##sys#current-meta-environment"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[240]);
C_word *av2=av;
av2[0]=*((C_word*)lf[240]+1);
av2[1]=t3;
tp(2,av2);}}

/* k11260 in k11257 in k11254 in k11385 in k11233 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_11262(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){
C_save_and_reclaim((void *)f_11262,c,av);}
a=C_alloc(27);
t2=((C_word*)t0)[2];
t3=((C_word*)t2)[2];
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=t1;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_SCHEME_TRUE;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11267,a[2]=t4,a[3]=t6,a[4]=t8,a[5]=((C_word*)t2)[3],a[6]=((C_word*)t2)[4],tmp=(C_word)a,a+=7,tmp);
t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11297,a[2]=((C_word*)t2)[5],a[3]=((C_word*)t2)[6],a[4]=((C_word*)t2)[7],a[5]=((C_word*)t2)[8],a[6]=((C_word*)t2)[9],a[7]=((C_word*)t2)[10],tmp=(C_word)a,a+=8,tmp);
t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11355,a[2]=t4,a[3]=t6,a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[4],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:1103: ##sys#dynamic-wind"));
t12=*((C_word*)lf[117]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t12;
av2[1]=((C_word*)t2)[11];
av2[2]=t9;
av2[3]=t10;
av2[4]=t11;
((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}}

/* a11266 in k11260 in k11257 in k11254 in k11385 in k11233 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in ... */
static void C_ccall f_11267(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_11267,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11271,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],a[7]=C_SCHEME_UNDEFINED,a[8]=((C_word*)t0)[6],a[9]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=10,tmp);
if(C_truep(((C_word*)((C_word*)t0)[4])[1])){
C_trace(C_text("core.scm:1103: ##sys#macro-environment1982"));
t3=((C_word*)t0)[6];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)((C_word*)t0)[2])[1];
f_11271(2,av2);}}}

/* k11269 in a11266 in k11260 in k11257 in k11254 in k11385 in k11233 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in ... */
static void C_ccall f_11271(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_11271,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+9,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11274,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)((C_word*)t0)[4])[1])){
C_trace(C_text("core.scm:1103: ##sys#current-environment1983"));
t4=((C_word*)t0)[6];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t0)[3])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t4))(5,av2);}}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=((C_word*)((C_word*)t0)[3])[1];
f_11274(2,av2);}}}

/* k11272 in k11269 in a11266 in k11260 in k11257 in k11254 in k11385 in k11233 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in ... */
static void C_ccall f_11274(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11274,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+7,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11278,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1103: ##sys#macro-environment1982"));
t5=((C_word*)t2)[8];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)C_fast_retrieve_proc(t5))(2,av2);}}

/* k11276 in k11272 in k11269 in a11266 in k11260 in k11257 in k11254 in k11385 in k11233 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in ... */
static void C_ccall f_11278(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_11278,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[2])+1,t1);
t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11282,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:1103: ##sys#current-environment1983"));
t5=((C_word*)t2)[6];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)C_fast_retrieve_proc(t5))(2,av2);}}

/* k11280 in k11276 in k11272 in k11269 in a11266 in k11260 in k11257 in k11254 in k11385 in k11233 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in ... */
static void C_ccall f_11282(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_11282,c,av);}
a=C_alloc(6);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11285,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:1103: ##sys#macro-environment1982"));
t4=((C_word*)t0)[7];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[8];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t4))(5,av2);}}

/* k11283 in k11280 in k11276 in k11272 in k11269 in a11266 in k11260 in k11257 in k11254 in k11385 in k11233 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in ... */
static void C_ccall f_11285(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_11285,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11288,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1103: ##sys#current-environment1983"));
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}

/* k11286 in k11283 in k11280 in k11276 in k11272 in k11269 in a11266 in k11260 in k11257 in k11254 in k11385 in k11233 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in ... */
static void C_ccall f_11288(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11288,c,av);}
t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a11296 in k11260 in k11257 in k11254 in k11385 in k11233 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in ... */
static void C_ccall f_11297(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_11297,c,av);}
a=C_alloc(18);
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11302,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11309,a[2]=t4,a[3]=t6,a[4]=t5,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
if(C_truep(*((C_word*)lf[59]+1))){
C_trace(C_text("core.scm:1108: ##sys#compiled-module-registration"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[239]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[239]+1);
av2[1]=t7;
av2[2]=((C_word*)t0)[7];
av2[3]=lf[178];
tp(4,av2);}}
else{
C_trace(C_text("core.scm:1108: ##sys#compiled-module-registration"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[239]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[239]+1);
av2[1]=t7;
av2[2]=((C_word*)t0)[7];
av2[3]=lf[179];
tp(4,av2);}}}

/* g2013 in a11296 in k11260 in k11257 in k11254 in k11385 in k11233 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in ... */
static void f_11302(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,8)))){
C_save_and_reclaim_args((void *)trf_11302,3,t0,t1,t2);}
C_trace(C_text("core.scm:1107: walk"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_8869(t3,t1,t2,((C_word*)t0)[3],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);}

/* k11307 in a11296 in k11260 in k11257 in k11254 in k11385 in k11233 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in ... */
static void C_ccall f_11309(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_11309,c,av);}
a=C_alloc(8);
t2=C_i_check_list_2(t1,lf[11]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11317,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp));
t6=((C_word*)t4)[1];
f_11317(t6,((C_word*)t0)[5],t1);}

/* map-loop2007 in k11307 in a11296 in k11260 in k11257 in k11254 in k11385 in k11233 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in ... */
static void f_11317(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_11317,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11342,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:1107: g2013"));
t4=((C_word*)t0)[4];
f_11302(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k11340 in map-loop2007 in k11307 in a11296 in k11260 in k11257 in k11254 in k11385 in k11233 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in ... */
static void C_ccall f_11342(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11342,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_11317(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* a11354 in k11260 in k11257 in k11254 in k11385 in k11233 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in ... */
static void C_ccall f_11355(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_11355,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11359,a[2]=((C_word*)t0)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("core.scm:1103: ##sys#macro-environment1982"));
t3=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)C_fast_retrieve_proc(t3))(2,av2);}}

/* k11357 in a11354 in k11260 in k11257 in k11254 in k11385 in k11233 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in ... */
static void C_ccall f_11359(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11359,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11362,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1103: ##sys#current-environment1983"));
t4=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)C_fast_retrieve_proc(t4))(2,av2);}}

/* k11360 in k11357 in a11354 in k11260 in k11257 in k11254 in k11385 in k11233 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in ... */
static void C_ccall f_11362(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_11362,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11365,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=t1,a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("core.scm:1103: ##sys#macro-environment1982"));
t4=((C_word*)t2)[7];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t2)[2])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t4))(5,av2);}}

/* k11363 in k11360 in k11357 in a11354 in k11260 in k11257 in k11254 in k11385 in k11233 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in ... */
static void C_ccall f_11365(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_11365,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11368,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:1103: ##sys#current-environment1983"));
t3=((C_word*)t0)[7];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[4])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}

/* k11366 in k11363 in k11360 in k11357 in a11354 in k11260 in k11257 in k11254 in k11385 in k11233 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in ... */
static void C_ccall f_11368(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11368,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]);
t4=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k11385 in k11233 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_11387(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(26,c,2)))){
C_save_and_reclaim((void *)f_11387,c,av);}
a=C_alloc(26);
t2=C_a_i_list2(&a,2,lf[170],t1);
t3=C_a_i_list1(&a,1,t2);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11250,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t5=C_eqp(*((C_word*)lf[50]+1),lf[238]);
t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11256,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=t4,a[9]=((C_word*)t0)[2],a[10]=t3,a[11]=((C_word*)t0)[3],tmp=(C_word)a,a+=12,tmp);
if(C_truep(t5)){
t7=t6;
f_11256(t7,t5);}
else{
t7=C_i_not(((C_word*)t0)[10]);
t8=t6;
f_11256(t8,(C_truep(t7)?C_i_not(*((C_word*)lf[50]+1)):C_SCHEME_FALSE));}}

/* k11388 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_11390(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_11390,c,av);}
a=C_alloc(3);
if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11400,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1096: delete"));
f_7240(t2,((C_word*)t0)[2],*((C_word*)lf[47]+1),*((C_word*)lf[243]+1));}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[3];
f_11235(t3,t2);}}

/* k11398 in k11388 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_11400(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11400,c,av);}
t2=C_mutate((C_word*)lf[47]+1 /* (set! chicken.compiler.core#import-libraries ...) */,t1);
t3=((C_word*)t0)[2];
f_11235(t3,t2);}

/* doloop1971 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void f_11402(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_11402,3,t0,t1,t2);}
a=C_alloc(5);
t3=C_eqp(t2,((C_word*)t0)[2]);
if(C_truep(t3)){
t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)t0)[2]);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11413,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t5=C_i_caar(t2);
t6=C_u_i_car(t2);
C_trace(C_text("core.scm:1091: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[111]);
C_word av2[5];
av2[0]=*((C_word*)lf[111]+1);
av2[1]=t4;
av2[2]=t5;
av2[3]=lf[220];
av2[4]=C_u_i_cdr(t6);
tp(5,av2);}}}

/* k11411 in doloop1971 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_11413(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11413,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_11402(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}

/* a11426 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_11427(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){
C_save_and_reclaim((void *)f_11427,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_11431,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=C_SCHEME_UNDEFINED,a[10]=((C_word*)t0)[8],a[11]=C_SCHEME_UNDEFINED,a[12]=((C_word*)t0)[9],a[13]=C_SCHEME_UNDEFINED,a[14]=((C_word*)t0)[10],a[15]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=16,tmp);
if(C_truep(((C_word*)((C_word*)t0)[6])[1])){
C_trace(C_text("core.scm:1054: ##sys#current-module1896"));
t3=((C_word*)t0)[10];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)((C_word*)t0)[2])[1];
f_11431(2,av2);}}}

/* k11429 in a11426 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_11431(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_11431,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+15,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11434,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)((C_word*)t0)[6])[1])){
C_trace(C_text("core.scm:1054: ##sys#current-environment1897"));
t4=((C_word*)t0)[12];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t0)[3])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t4))(5,av2);}}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=((C_word*)((C_word*)t0)[3])[1];
f_11434(2,av2);}}}

/* k11432 in k11429 in a11426 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_11434(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_11434,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+13,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11437,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)((C_word*)t2)[6])[1])){
C_trace(C_text("core.scm:1054: ##sys#macro-environment1898"));
t5=((C_word*)t2)[10];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)((C_word*)t2)[4])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t5))(5,av2);}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=((C_word*)((C_word*)t2)[4])[1];
f_11437(2,av2);}}}

/* k11435 in k11432 in k11429 in a11426 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_11437(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_11437,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+11,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11440,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)((C_word*)t2)[6])[1])){
C_trace(C_text("core.scm:1054: ##sys#module-alias-environment1899"));
t5=((C_word*)t2)[8];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)((C_word*)t2)[5])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t5))(5,av2);}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=((C_word*)((C_word*)t2)[5])[1];
f_11440(2,av2);}}}

/* k11438 in k11435 in k11432 in k11429 in a11426 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void C_ccall f_11440(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11440,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+9,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11444,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1054: ##sys#current-module1896"));
t5=((C_word*)t2)[14];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)C_fast_retrieve_proc(t5))(2,av2);}}

/* k11442 in k11438 in k11435 in k11432 in k11429 in a11426 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in ... */
static void C_ccall f_11444(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
C_save_and_reclaim((void *)f_11444,c,av);}
a=C_alloc(15);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[2])+1,t1);
t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_11448,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],a[9]=((C_word*)t2)[10],a[10]=((C_word*)t2)[11],a[11]=((C_word*)t2)[12],a[12]=((C_word*)t2)[13],a[13]=((C_word*)t2)[14],a[14]=((C_word*)t2)[15],tmp=(C_word)a,a+=15,tmp);
C_trace(C_text("core.scm:1054: ##sys#current-environment1897"));
t5=((C_word*)t2)[12];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)C_fast_retrieve_proc(t5))(2,av2);}}

/* k11446 in k11442 in k11438 in k11435 in k11432 in k11429 in a11426 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_11448(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_11448,c,av);}
a=C_alloc(14);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_11452,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],tmp=(C_word)a,a+=14,tmp);
C_trace(C_text("core.scm:1054: ##sys#macro-environment1898"));
t4=((C_word*)t0)[9];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)C_fast_retrieve_proc(t4))(2,av2);}}

/* k11450 in k11446 in k11442 in k11438 in k11435 in k11432 in k11429 in a11426 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in ... */
static void C_ccall f_11452(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_11452,c,av);}
a=C_alloc(13);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11456,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],tmp=(C_word)a,a+=13,tmp);
C_trace(C_text("core.scm:1054: ##sys#module-alias-environment1899"));
t4=((C_word*)t0)[6];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)C_fast_retrieve_proc(t4))(2,av2);}}

/* k11454 in k11450 in k11446 in k11442 in k11438 in k11435 in k11432 in k11429 in a11426 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in ... */
static void C_ccall f_11456(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_11456,c,av);}
a=C_alloc(10);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11459,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:1054: ##sys#current-module1896"));
t4=((C_word*)t0)[11];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[12];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t4))(5,av2);}}

/* k11457 in k11454 in k11450 in k11446 in k11442 in k11438 in k11435 in k11432 in k11429 in a11426 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in ... */
static void C_ccall f_11459(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_11459,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11462,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("core.scm:1054: ##sys#current-environment1897"));
t3=((C_word*)t0)[8];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}

/* k11460 in k11457 in k11454 in k11450 in k11446 in k11442 in k11438 in k11435 in k11432 in k11429 in a11426 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in ... */
static void C_ccall f_11462(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_11462,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11465,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:1054: ##sys#macro-environment1898"));
t3=((C_word*)t0)[6];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[7];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}

/* k11463 in k11460 in k11457 in k11454 in k11450 in k11446 in k11442 in k11438 in k11435 in k11432 in k11429 in a11426 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in ... */
static void C_ccall f_11465(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_11465,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11468,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1054: ##sys#module-alias-environment1899"));
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}

/* k11466 in k11463 in k11460 in k11457 in k11454 in k11450 in k11446 in k11442 in k11438 in k11435 in k11432 in k11429 in a11426 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in ... */
static void C_ccall f_11468(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11468,c,av);}
t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a11482 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_11483(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11483,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11489,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1060: ##sys#with-property-restore"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[276]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[276]+1);
av2[1]=t1;
av2[2]=t2;
tp(3,av2);}}

/* a11488 in a11482 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_11489(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_11489,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=C_i_cdddr(((C_word*)t2)[2]);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11499,a[2]=((C_word*)t2)[3],a[3]=t5,a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],tmp=(C_word)a,a+=8,tmp));
t7=((C_word*)t5)[1];
f_11499(t7,t1,t3,C_SCHEME_END_OF_LIST);}

/* loop in a11488 in a11482 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void f_11499(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,8)))){
C_save_and_reclaim_args((void *)trf_11499,4,t0,t1,t2,t3);}
a=C_alloc(7);
if(C_truep(C_i_nullp(t2))){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11509,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11514,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1064: scheme#call-with-current-continuation"));
t6=*((C_word*)lf[275]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t4;
av2[2]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t4=C_i_cdr(t2);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11604,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:1085: walk"));
t6=((C_word*)((C_word*)t0)[4])[1];
f_8869(t6,t5,C_u_i_car(t2),((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_TRUE);}}

/* k11507 in loop in a11488 in a11482 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_11509(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11509,c,av);}
C_trace(C_text("core.scm:1064: g1947"));
t2=t1;{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)C_fast_retrieve_proc(t2))(2,av2);}}

/* a11513 in loop in a11488 in a11482 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_11514(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_11514,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11520,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11535,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1064: chicken.condition#with-exception-handler"));
t5=C_fast_retrieve(lf[274]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t1;
av2[2]=t3;
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* a11519 in a11513 in loop in a11488 in a11482 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void C_ccall f_11520(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11520,c,av);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11526,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1064: k1944"));
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}

/* a11525 in a11519 in a11513 in loop in a11488 in a11482 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in ... */
static void C_ccall f_11526(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_11526,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11530,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1067: chicken.condition#print-error-message"));
t3=C_fast_retrieve(lf[265]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
av2[3]=*((C_word*)lf[266]+1);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k11528 in a11525 in a11519 in a11513 in loop in a11488 in a11482 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_11530(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11530,c,av);}
C_trace(C_text("core.scm:1068: chicken.base#exit"));
t2=C_fast_retrieve(lf[264]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=C_fix(1);
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* a11534 in a11513 in loop in a11488 in a11482 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void C_ccall f_11535(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_11535,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11537,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11572,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11589,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("tmp16224"));
t5=t2;
f_11537(t5,t4);}

/* tmp16224 in a11534 in a11513 in loop in a11488 in a11482 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in ... */
static void f_11537(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_11537,2,t0,t1);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11541,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11546,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("core.scm:1069: ##sys#finalize-module"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[273]);
C_word av2[4];
av2[0]=*((C_word*)lf[273]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=t3;
tp(4,av2);}}

/* k11539 in tmp16224 in a11534 in a11513 in loop in a11488 in a11482 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_11541(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11541,c,av);}
C_trace(C_text("core.scm:1082: scheme#reverse"));
t2=*((C_word*)lf[267]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* a11545 in tmp16224 in a11534 in a11513 in loop in a11488 in a11482 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_11546(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_11546,c,av);}
a=C_alloc(4);
if(C_truep(C_i_assq(t2,lf[73]))){
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[268];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11559,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1075: chicken.internal#hash-table-ref"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t3;
av2[2]=*((C_word*)lf[68]+1);
av2[3]=t2;
tp(4,av2);}}}

/* k11557 in a11545 in tmp16224 in a11534 in a11513 in loop in a11488 in a11482 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in ... */
static void C_ccall f_11559(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_11559,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[269];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11565,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1077: chicken.internal#hash-table-ref"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t2;
av2[2]=*((C_word*)lf[69]+1);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}}

/* k11563 in k11557 in a11545 in tmp16224 in a11534 in a11513 in loop in a11488 in a11482 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in ... */
static void C_ccall f_11565(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_11565,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[270];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11571,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1079: ##sys#get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[106]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[106]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
av2[3]=lf[272];
tp(4,av2);}}}

/* k11569 in k11563 in k11557 in a11545 in tmp16224 in a11534 in a11513 in loop in a11488 in a11482 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in ... */
static void C_ccall f_11571(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11571,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(C_truep(t1)?lf[271]:C_SCHEME_FALSE);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* tmp26225 in a11534 in a11513 in loop in a11488 in a11482 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in ... */
static void f_11572(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_11572,3,t0,t1,t2);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11578,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1064: k1944"));
t4=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}

/* a11577 in tmp26225 in a11534 in a11513 in loop in a11488 in a11482 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_11578(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11578,c,av);}{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=0;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
C_apply_values(3,av2);}}

/* k11587 in a11534 in a11513 in loop in a11488 in a11482 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in ... */
static void C_ccall f_11589(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11589,c,av);}
a=C_alloc(3);
C_trace(C_text("tmp26225"));
t2=((C_word*)t0)[2];
f_11572(t2,((C_word*)t0)[3],C_a_i_list(&a,1,t1));}

/* k11602 in loop in a11488 in a11482 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_11604(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_11604,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
C_trace(C_text("core.scm:1083: loop"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_11499(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}

/* a11607 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_11608(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_11608,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_11612,a[2]=((C_word*)t0)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[3],a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t0)[4],a[7]=C_SCHEME_UNDEFINED,a[8]=((C_word*)t0)[5],a[9]=t1,a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],a[12]=((C_word*)t0)[8],a[13]=((C_word*)t0)[9],tmp=(C_word)a,a+=14,tmp);
C_trace(C_text("core.scm:1054: ##sys#current-module1896"));
t3=((C_word*)t0)[9];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)C_fast_retrieve_proc(t3))(2,av2);}}

/* k11610 in a11607 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_11612(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11612,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11615,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1054: ##sys#current-environment1897"));
t4=((C_word*)t0)[12];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)C_fast_retrieve_proc(t4))(2,av2);}}

/* k11613 in k11610 in a11607 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_11615(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11615,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+5,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11618,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1054: ##sys#macro-environment1898"));
t5=((C_word*)t2)[11];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)C_fast_retrieve_proc(t5))(2,av2);}}

/* k11616 in k11613 in k11610 in a11607 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_11618(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11618,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+7,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11621,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1054: ##sys#module-alias-environment1899"));
t5=((C_word*)t2)[10];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)C_fast_retrieve_proc(t5))(2,av2);}}

/* k11619 in k11616 in k11613 in k11610 in a11607 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void C_ccall f_11621(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
C_save_and_reclaim((void *)f_11621,c,av);}
a=C_alloc(14);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_11624,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=t1,a[10]=((C_word*)t2)[9],a[11]=((C_word*)t2)[10],a[12]=((C_word*)t2)[11],a[13]=((C_word*)t2)[12],tmp=(C_word)a,a+=14,tmp);
C_trace(C_text("core.scm:1054: ##sys#current-module1896"));
t4=((C_word*)t2)[13];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t2)[2])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t4))(5,av2);}}

/* k11622 in k11619 in k11616 in k11613 in k11610 in a11607 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in ... */
static void C_ccall f_11624(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
C_save_and_reclaim((void *)f_11624,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11627,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp);
C_trace(C_text("core.scm:1054: ##sys#current-environment1897"));
t3=((C_word*)t0)[13];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[4])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}

/* k11625 in k11622 in k11619 in k11616 in k11613 in k11610 in a11607 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_11627(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_11627,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11630,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp);
C_trace(C_text("core.scm:1054: ##sys#macro-environment1898"));
t3=((C_word*)t0)[12];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[6])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}

/* k11628 in k11625 in k11622 in k11619 in k11616 in k11613 in k11610 in a11607 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in ... */
static void C_ccall f_11630(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_11630,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11633,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
C_trace(C_text("core.scm:1054: ##sys#module-alias-environment1899"));
t3=((C_word*)t0)[11];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[8])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}

/* k11631 in k11628 in k11625 in k11622 in k11619 in k11616 in k11613 in k11610 in a11607 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in ... */
static void C_ccall f_11633(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11633,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]);
t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)t0)[7]);
t5=C_mutate(((C_word *)((C_word*)t0)[8])+1,((C_word*)t0)[9]);
t6=((C_word*)t0)[10];{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}

/* k11638 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_11640(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_11640,c,av);}
if(C_truep(t1)){
C_trace(C_text("core.scm:1052: ##sys#syntax-error"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[277]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[277]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[278];
av2[3]=lf[279];
av2[4]=((C_word*)t0)[3];
tp(5,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_11223(2,av2);}}}

/* k11648 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_11650(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_11650,c,av);}
C_trace(C_text("core.scm:1034: ##sys#register-module"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[280]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[280]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=t1;
tp(5,av2);}}

/* g1862 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void f_11654(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_11654,3,t0,t1,t2);}
a=C_alloc(7);
if(C_truep(C_i_symbolp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11667,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_pairp(t2))){
t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_11678,tmp=(C_word)a,a+=2,tmp);
t5=t3;
f_11667(t5,(
  f_11678(t2)
));}
else{
t4=t3;
f_11667(t4,C_SCHEME_FALSE);}}}

/* k11665 in g1862 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void f_11667(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){
C_save_and_reclaim_args((void *)trf_11667,2,t0,t1);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:1046: ##sys#syntax-error"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[277]);
C_word av2[6];
av2[0]=*((C_word*)lf[277]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[278];
av2[3]=lf[281];
av2[4]=((C_word*)t0)[3];
av2[5]=((C_word*)t0)[4];
tp(6,av2);}}}

/* loop in g1862 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static C_word f_11678(C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_stack_overflow_check;
loop:{}
t2=C_i_nullp(t1);
if(C_truep(t2)){
return(t2);}
else{
t3=C_i_car(t1);
if(C_truep(C_i_symbolp(t3))){
t5=C_u_i_cdr(t1);
t1=t5;
goto loop;}
else{
return(C_SCHEME_FALSE);}}}

/* k11701 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_11703(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_11703,c,av);}
a=C_alloc(8);
t2=C_i_check_list_2(t1,lf[11]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11711,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp));
t6=((C_word*)t4)[1];
f_11711(t6,((C_word*)t0)[5],t1);}

/* map-loop1856 in k11701 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void f_11711(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_11711,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11736,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:1037: g1862"));
t4=((C_word*)t0)[4];
f_11654(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k11734 in map-loop1856 in k11701 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_11736(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11736,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_11711(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k11782 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_11784(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){
C_save_and_reclaim((void *)f_11784,c,av);}
a=C_alloc(18);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11787,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11847,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1118: ##sys#current-environment"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[110]);
C_word *av2=av;
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t3;
tp(2,av2);}}

/* k11785 in k11782 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_11787(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_11787,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_11790,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
C_trace(C_text("core.scm:1119: chicken.syntax#get-line-number"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[114]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[114]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[12];
tp(3,av2);}}

/* k11788 in k11785 in k11782 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_11790(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(28,c,4)))){
C_save_and_reclaim((void *)f_11790,c,av);}
a=C_alloc(28);
t2=(C_truep(t1)?t1:((C_word*)t0)[2]);
t3=C_fast_retrieve(lf[110]);
t4=((C_word*)t0)[3];
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_SCHEME_TRUE;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11796,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp);
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11804,a[2]=t5,a[3]=t7,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t10=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11821,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[12],tmp=(C_word)a,a+=9,tmp);
t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11835,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1121: ##sys#dynamic-wind"));
t12=*((C_word*)lf[117]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t12;
av2[1]=t8;
av2[2]=t9;
av2[3]=t10;
av2[4]=t11;
((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}}

/* k11794 in k11788 in k11785 in k11782 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_11796(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_11796,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11799,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1126: set-real-names!"));
f_8392(t2,((C_word*)t0)[3],((C_word*)t0)[5]);}

/* k11797 in k11794 in k11788 in k11785 in k11782 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_11799(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_11799,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,3,lf[100],((C_word*)t0)[3],((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* a11803 in k11788 in k11785 in k11782 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_11804(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_11804,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11808,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=7,tmp);
if(C_truep(((C_word*)((C_word*)t0)[3])[1])){
C_trace(C_text("core.scm:1121: ##sys#current-environment2076"));
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)((C_word*)t0)[2])[1];
f_11808(2,av2);}}}

/* k11806 in a11803 in k11788 in k11785 in k11782 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_11808(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11808,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+6,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11812,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1121: ##sys#current-environment2076"));
t4=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)C_fast_retrieve_proc(t4))(2,av2);}}

/* k11810 in k11806 in a11803 in k11788 in k11785 in k11782 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_11812(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_11812,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[2])+1,t1);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11815,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1121: ##sys#current-environment2076"));
t5=((C_word*)t2)[5];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t2)[6];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t5))(5,av2);}}

/* k11813 in k11810 in k11806 in a11803 in k11788 in k11785 in k11782 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_11815(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11815,c,av);}
t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a11820 in k11788 in k11785 in k11782 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_11821(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_11821,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11829,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("core.scm:1123: canonicalize-body/ln"));
t3=((C_word*)((C_word*)t0)[7])[1];
f_8363(t3,t2,((C_word*)t0)[4],((C_word*)t0)[8],*((C_word*)lf[55]+1));}

/* k11827 in a11820 in k11788 in k11785 in k11782 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_11829(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_11829,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11833,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:1124: scheme#append"));
t3=*((C_word*)lf[6]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k11831 in k11827 in a11820 in k11788 in k11785 in k11782 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_11833(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_11833,c,av);}
C_trace(C_text("core.scm:1122: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_8869(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);}

/* a11834 in k11788 in k11785 in k11782 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_11835(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_11835,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11839,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1121: ##sys#current-environment2076"));
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)C_fast_retrieve_proc(t3))(2,av2);}}

/* k11837 in a11834 in k11788 in k11785 in k11782 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_11839(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_11839,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11842,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1121: ##sys#current-environment2076"));
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}

/* k11840 in k11837 in a11834 in k11788 in k11785 in k11782 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_11842(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11842,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k11845 in k11782 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_11847(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_11847,c,av);}
C_trace(C_text("core.scm:1118: ##sys#extend-se"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[183]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[183]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
tp(5,av2);}}

/* map-loop2045 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_11849(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_11849,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11874,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:1117: g2051"));
t4=*((C_word*)lf[112]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k11872 in map-loop2045 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_11874(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_11874,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_11849(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k11891 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_11893(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_11893,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11896,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t0)[3])){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f26538,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1138: ##sys#put/restore!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[212]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[212]+1);
av2[1]=t3;
av2[2]=t1;
av2[3]=lf[213];
av2[4]=lf[99];
tp(5,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11902,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1133: chicken.syntax#get-line-number"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[114]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[114]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}}

/* k11894 in k11891 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_11896(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_11896,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11899,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1138: ##sys#put/restore!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[212]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[212]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[213];
av2[4]=lf[99];
tp(5,av2);}}

/* k11897 in k11894 in k11891 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_11899(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_11899,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[284];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k11900 in k11891 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_11902(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_11902,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11909,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11912,a[2]=t2,a[3]=C_SCHEME_UNDEFINED,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1136: scheme#open-output-string"));
t4=C_fast_retrieve(lf[134]);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:1134: chicken.compiler.support#quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[126]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[285];
av2[3]=lf[287];
av2[4]=((C_word*)t0)[3];
tp(5,av2);}}}

/* k11907 in k11900 in k11891 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_11909(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_11909,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("core.scm:1134: chicken.compiler.support#quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[126]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=lf[285];
av2[3]=t1;
av2[4]=((C_word*)t2)[3];
tp(5,av2);}}

/* k11910 in k11900 in k11891 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_11912(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_11912,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[129]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11918,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1136: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[133]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[133]+1);
av2[1]=t4;
av2[2]=C_make_character(40);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k11916 in k11910 in k11900 in k11891 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_11918(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_11918,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11921,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1136: ##sys#print"));
t4=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k11919 in k11916 in k11910 in k11900 in k11891 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_11921(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_11921,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11924,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1136: ##sys#print"));
t3=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[286];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k11922 in k11919 in k11916 in k11910 in k11900 in k11891 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_11924(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_11924,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("core.scm:1136: scheme#get-output-string"));
t3=C_fast_retrieve(lf[130]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_11939(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_11939,c,av);}
a=C_alloc(5);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_mutate(((C_word *)t0)+3,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11942,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1144: chicken.syntax#get-line-number"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[114]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[114]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}

/* k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_11942(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){
C_save_and_reclaim((void *)f_11942,c,av);}
a=C_alloc(18);
t2=((C_word*)t0)[2];
t3=C_i_caddr(((C_word*)t2)[2]);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11948,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=t1,a[7]=t5,a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[8],a[10]=((C_word*)t2)[9],tmp=(C_word)a,a+=11,tmp);
if(C_truep(C_i_memq(((C_word*)((C_word*)t2)[3])[1],lf[86]))){
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12246,a[2]=t6,a[3]=((C_word*)t2)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1148: scheme#open-output-string"));
t8=C_fast_retrieve(lf[134]);{
C_word *av2=av;
av2[0]=t8;
av2[1]=t7;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t7=t6;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_SCHEME_UNDEFINED;
f_11948(2,av2);}}}

/* k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_11948(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){
C_save_and_reclaim((void *)f_11948,c,av);}
a=C_alloc(17);
t2=C_i_assq(((C_word*)((C_word*)t0)[2])[1],lf[73]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11955,a[2]=C_SCHEME_UNDEFINED,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[3],a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:1151: g2146"));
t4=t3;
f_11955(t4,((C_word*)t0)[8],t2);}
else{
t3=C_i_assq(((C_word*)((C_word*)t0)[2])[1],lf[77]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12007,a[2]=C_SCHEME_UNDEFINED,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[3],a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:1151: g2155"));
t5=t4;
f_12007(t5,((C_word*)t0)[8],t3);}
else{
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12055,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp);
if(C_truep(C_i_memq(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[4]))){
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_12055(2,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12073,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:1174: ##sys#alias-global-hook"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[125]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[125]+1);
av2[1]=t5;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t0)[10];
tp(5,av2);}}}}}

/* g2146 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void f_11955(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_11955,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+2,t2);
t4=C_mutate(((C_word *)t0)+5,t1);
t5=C_i_cadr(((C_word*)t0)[2]);
t6=C_mutate(((C_word *)t0)+3,t5);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11962,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1154: chicken.base#gensym"));
t8=*((C_word*)lf[112]+1);{
C_word av2[2];
av2[0]=t8;
av2[1]=t7;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}

/* k11960 in g2146 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_11962(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_11962,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11997,a[2]=t1,a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[8],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:1156: chicken.compiler.support#foreign-type-convert-argument"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[290]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[290]+1);
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t2)[9])[1];
av2[3]=((C_word*)t2)[3];
tp(4,av2);}}

/* k11983 in k11995 in k11960 in g2146 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_11985(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,8)))){
C_save_and_reclaim((void *)f_11985,c,av);}
a=C_alloc(18);
t2=C_a_i_list(&a,3,lf[288],((C_word*)t0)[2],t1);
t3=C_a_i_list(&a,3,lf[181],((C_word*)t0)[3],t2);
C_trace(C_text("core.scm:1155: walk"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_8869(t4,((C_word*)t0)[5],t3,((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* k11995 in k11960 in g2146 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_11997(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){
C_save_and_reclaim((void *)f_11997,c,av);}
a=C_alloc(24);
t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1);
t3=C_a_i_list(&a,1,t2);
t4=C_i_caddr(((C_word*)t0)[3]);
t5=C_a_i_list(&a,2,t4,((C_word*)t0)[4]);
t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11985,a[2]=t5,a[3]=t3,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:1159: chicken.compiler.support#foreign-type-check"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[289]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[289]+1);
av2[1]=t6;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[4];
tp(4,av2);}}

/* g2155 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void f_12007(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_12007,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+3,t2);
t4=C_mutate(((C_word *)t0)+5,t1);
t5=C_i_caddr(((C_word*)t0)[3]);
t6=C_mutate(((C_word *)t0)+2,t5);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12014,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1164: chicken.base#gensym"));
t8=*((C_word*)lf[112]+1);{
C_word av2[2];
av2[0]=t8;
av2[1]=t7;
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}

/* k12012 in g2155 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_12014(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_12014,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12049,a[2]=t1,a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[8],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:1166: chicken.compiler.support#foreign-type-convert-argument"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[290]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[290]+1);
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t2)[9])[1];
av2[3]=((C_word*)t2)[2];
tp(4,av2);}}

/* k12039 in k12047 in k12012 in g2155 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_12041(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,8)))){
C_save_and_reclaim((void *)f_12041,c,av);}
a=C_alloc(21);
t2=C_a_i_list(&a,4,lf[291],((C_word*)t0)[2],((C_word*)t0)[3],t1);
t3=C_a_i_list(&a,3,lf[181],((C_word*)t0)[4],t2);
C_trace(C_text("core.scm:1165: walk"));
t4=((C_word*)((C_word*)t0)[5])[1];
f_8869(t4,((C_word*)t0)[6],t3,((C_word*)t0)[7],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);}

/* k12047 in k12012 in g2155 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_12049(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){
C_save_and_reclaim((void *)f_12049,c,av);}
a=C_alloc(22);
t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1);
t3=C_a_i_list(&a,1,t2);
t4=C_a_i_list(&a,1,((C_word*)t0)[3]);
t5=C_i_cadr(((C_word*)t0)[4]);
t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12041,a[2]=t4,a[3]=t5,a[4]=t3,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:1170: chicken.compiler.support#foreign-type-check"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[289]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[289]+1);
av2[1]=t6;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12053 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_12055(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,8)))){
C_save_and_reclaim((void *)f_12055,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12062,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1195: walk"));
t3=((C_word*)((C_word*)t0)[4])[1];
f_8869(t3,t2,((C_word*)((C_word*)t0)[5])[1],((C_word*)t0)[6],((C_word*)t0)[7],C_i_memq(((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[6]),((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);}

/* k12060 in k12053 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_12062(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_12062,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,3,lf[292],((C_word*)((C_word*)t0)[3])[1],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_12073(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_12073,c,av);}
a=C_alloc(7);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12076,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(lf[38])){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12233,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1176: chicken.compiler.support#mark-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t4;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=lf[303];
tp(4,av2);}}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_12076(2,av2);}}}

/* k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_12076(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_12076,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12079,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],tmp=(C_word)a,a+=5,tmp);
if(C_truep(*((C_word*)lf[25]+1))){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12222,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[6],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1180: chicken.base#gensym"));
t5=*((C_word*)lf[112]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t4=t3;
f_12079(t4,C_SCHEME_UNDEFINED);}}

/* k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void f_12079(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_12079,2,t0,t1);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12085,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12206,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1184: ##sys#current-environment"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[110]);
C_word av2[2];
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t3;
tp(2,av2);}}

/* k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_12085(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_12085,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12088,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12105,a[2]=t3,a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1186: scheme#open-output-string"));
t5=C_fast_retrieve(lf[134]);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12202,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1191: ##sys#current-environment"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[110]);
C_word *av2=av;
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t3;
tp(2,av2);}}}

/* k12086 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_12088(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_12088,c,av);}
a=C_alloc(3);
if(C_truep(*((C_word*)lf[45]+1))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12094,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1189: ##sys#undefine-macro!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[294]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[294]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_12055(2,av2);}}}

/* k12092 in k12086 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_12094(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_12094,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12101,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1190: ##sys#current-module"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[211]);
C_word *av2=av;
av2[0]=*((C_word*)lf[211]+1);
av2[1]=t3;
tp(2,av2);}}

/* k12099 in k12092 in k12086 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void C_ccall f_12101(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12101,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("core.scm:1190: ##sys#unregister-syntax-export"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[293]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[293]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
av2[3]=t1;
tp(4,av2);}}

/* k12103 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_12105(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
C_save_and_reclaim((void *)f_12105,c,av);}
a=C_alloc(14);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[129]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12111,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12127,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t0)[4])){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12130,a[2]=t4,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1187: scheme#open-output-string"));
t6=C_fast_retrieve(lf[134]);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:1186: ##sys#print"));
t5=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=lf[297];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}

/* k12109 in k12103 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_12111(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_12111,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12114,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1186: ##sys#print"));
t3=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[295];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12112 in k12109 in k12103 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void C_ccall f_12114(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12114,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12117,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1186: ##sys#print"));
t4=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12115 in k12112 in k12109 in k12103 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in ... */
static void C_ccall f_12117(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_12117,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12120,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1186: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[133]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[133]+1);
av2[1]=t2;
av2[2]=C_make_character(39);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12118 in k12115 in k12112 in k12109 in k12103 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_12120(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_12120,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12123,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1186: scheme#get-output-string"));
t4=C_fast_retrieve(lf[130]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k12121 in k12118 in k12115 in k12112 in k12109 in k12103 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in ... */
static void C_ccall f_12123(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12123,c,av);}
C_trace(C_text("core.scm:1185: chicken.base#warning"));
t2=C_fast_retrieve(lf[137]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k12125 in k12103 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_12127(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_12127,c,av);}
C_trace(C_text("core.scm:1186: ##sys#print"));
t2=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k12128 in k12103 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_12130(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_12130,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[129]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12136,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1187: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[133]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[133]+1);
av2[1]=t4;
av2[2]=C_make_character(40);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12134 in k12128 in k12103 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void C_ccall f_12136(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12136,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12139,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1187: ##sys#print"));
t4=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12137 in k12134 in k12128 in k12103 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in ... */
static void C_ccall f_12139(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_12139,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12142,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1187: ##sys#print"));
t3=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[296];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12140 in k12137 in k12134 in k12128 in k12103 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_12142(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12142,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("core.scm:1187: scheme#get-output-string"));
t3=C_fast_retrieve(lf[130]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12156 in k12200 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_12158(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
C_save_and_reclaim((void *)f_12158,c,av);}
a=C_alloc(14);
t2=((C_word*)t0)[2];
t3=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[129]);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12164,a[2]=((C_word*)t2)[2],a[3]=t1,a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12180,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t2)[4])){
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12183,a[2]=t5,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1194: scheme#open-output-string"));
t7=C_fast_retrieve(lf[134]);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:1193: ##sys#print"));
t6=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t4;
av2[2]=lf[300];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}

/* k12162 in k12156 in k12200 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void C_ccall f_12164(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_12164,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12167,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1193: ##sys#print"));
t3=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[298];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12165 in k12162 in k12156 in k12200 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in ... */
static void C_ccall f_12167(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12167,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12170,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1193: ##sys#print"));
t4=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12168 in k12165 in k12162 in k12156 in k12200 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_12170(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_12170,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12173,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1193: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[133]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[133]+1);
av2[1]=t2;
av2[2]=C_make_character(39);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12171 in k12168 in k12165 in k12162 in k12156 in k12200 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in ... */
static void C_ccall f_12173(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_12173,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12176,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1193: scheme#get-output-string"));
t4=C_fast_retrieve(lf[130]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k12174 in k12171 in k12168 in k12165 in k12162 in k12156 in k12200 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in ... */
static void C_ccall f_12176(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12176,c,av);}
C_trace(C_text("core.scm:1192: chicken.base#warning"));
t2=C_fast_retrieve(lf[137]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k12178 in k12156 in k12200 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void C_ccall f_12180(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_12180,c,av);}
C_trace(C_text("core.scm:1193: ##sys#print"));
t2=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k12181 in k12156 in k12200 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void C_ccall f_12183(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_12183,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[129]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12189,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1194: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[133]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[133]+1);
av2[1]=t4;
av2[2]=C_make_character(40);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12187 in k12181 in k12156 in k12200 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in ... */
static void C_ccall f_12189(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12189,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12192,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1194: ##sys#print"));
t4=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12190 in k12187 in k12181 in k12156 in k12200 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_12192(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_12192,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12195,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1194: ##sys#print"));
t3=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[299];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12193 in k12190 in k12187 in k12181 in k12156 in k12200 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in ... */
static void C_ccall f_12195(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12195,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("core.scm:1194: scheme#get-output-string"));
t3=C_fast_retrieve(lf[130]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12200 in k12083 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_12202(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_12202,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(C_i_assq(((C_word*)t2)[3],t1))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12158,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1193: scheme#open-output-string"));
t4=C_fast_retrieve(lf[134]);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_12055(2,av2);}}}

/* k12204 in k12077 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_12206(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12206,c,av);}
C_trace(C_text("core.scm:1184: ##sys#macro?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[301]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[301]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k12220 in k12074 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_12222(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){
C_save_and_reclaim((void *)f_12222,c,av);}
a=C_alloc(33);
t2=C_a_i_list(&a,2,lf[153],((C_word*)((C_word*)t0)[2])[1]);
t3=C_a_i_list(&a,3,lf[196],lf[302],t2);
t4=C_a_i_list(&a,2,t1,t3);
t5=C_a_i_list(&a,1,t4);
t6=C_a_i_list(&a,3,lf[181],t5,((C_word*)((C_word*)t0)[3])[1]);
t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t6);
t8=((C_word*)t0)[4];
f_12079(t8,t7);}

/* k12231 in k12071 in k11946 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_12233(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12233,c,av);}
C_trace(C_text("core.scm:1177: chicken.compiler.support#mark-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[166]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)((C_word*)t0)[3])[1];
av2[3]=lf[167];
tp(4,av2);}}

/* k12244 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_12246(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
C_save_and_reclaim((void *)f_12246,c,av);}
a=C_alloc(14);
t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[129]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12252,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12268,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t0)[4])){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12271,a[2]=t4,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1149: scheme#open-output-string"));
t6=C_fast_retrieve(lf[134]);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:1148: ##sys#print"));
t5=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=lf[307];
av2[3]=C_SCHEME_FALSE;
av2[4]=t1;
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}

/* k12250 in k12244 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_12252(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_12252,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12255,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1148: ##sys#print"));
t3=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[305];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12253 in k12250 in k12244 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_12255(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12255,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12258,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1148: ##sys#print"));
t4=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t2)[4])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12256 in k12253 in k12250 in k12244 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_12258(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_12258,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12261,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1148: ##sys#print"));
t3=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[304];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12259 in k12256 in k12253 in k12250 in k12244 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_12261(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_12261,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12264,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1148: scheme#get-output-string"));
t4=C_fast_retrieve(lf[130]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k12262 in k12259 in k12256 in k12253 in k12250 in k12244 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_12264(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12264,c,av);}
C_trace(C_text("core.scm:1147: chicken.base#warning"));
t2=C_fast_retrieve(lf[137]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k12266 in k12244 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_12268(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_12268,c,av);}
C_trace(C_text("core.scm:1148: ##sys#print"));
t2=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k12269 in k12244 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_12271(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_12271,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[129]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12277,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1149: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[133]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[133]+1);
av2[1]=t4;
av2[2]=C_make_character(40);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12275 in k12269 in k12244 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_12277(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12277,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12280,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1149: ##sys#print"));
t4=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12278 in k12275 in k12269 in k12244 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_12280(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_12280,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12283,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1149: ##sys#print"));
t3=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[306];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12281 in k12278 in k12275 in k12269 in k12244 in k11940 in k11937 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_12283(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12283,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("core.scm:1149: scheme#get-output-string"));
t3=C_fast_retrieve(lf[130]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* g2242 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_12312(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,8)))){
C_save_and_reclaim_args((void *)trf_12312,3,t0,t1,t2);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12320,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1202: walk"));
t4=((C_word*)((C_word*)t0)[3])[1];
f_8869(t4,t3,t2,((C_word*)t0)[4],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}

/* k12318 in g2242 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_12320(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12320,c,av);}
C_trace(C_text("core.scm:1202: unquotify"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_8458(t2,((C_word*)t0)[3],t1);}

/* k12326 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_12328(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_12328,c,av);}
a=C_alloc(9);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2);
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_cons(&a,2,lf[196],t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* map-loop2236 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_12330(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_12330,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12355,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:1201: g2242"));
t4=((C_word*)t0)[4];
f_12312(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k12353 in map-loop2236 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_12355(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_12355,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_12330(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k12377 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_12379(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){
C_save_and_reclaim((void *)f_12379,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12383,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1207: mapwalk"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_14081(t3,t2,C_i_cddr(((C_word*)t0)[4]),((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);}

/* k12381 in k12377 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_12383(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_12383,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_cons(&a,2,lf[308],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k12415 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_12417(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){
C_save_and_reclaim((void *)f_12417,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12421,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1212: mapwalk"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_14081(t3,t2,C_i_cddr(((C_word*)t0)[4]),((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);}

/* k12419 in k12415 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_12421(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_12421,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_cons(&a,2,lf[309],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* map-loop2269 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_12427(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_12427,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12452,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:1211: g2275"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_8458(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k12450 in map-loop2269 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_12452(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_12452,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_12427(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k12474 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_12476(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_12476,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,3,lf[288],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k12495 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_12497(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,8)))){
C_save_and_reclaim((void *)f_12497,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12501,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1221: walk"));
t3=((C_word*)((C_word*)t0)[4])[1];
f_8869(t3,t2,C_i_cadddr(((C_word*)t0)[5]),((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* k12499 in k12495 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_12501(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
C_save_and_reclaim((void *)f_12501,c,av);}
a=C_alloc(12);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,4,lf[291],((C_word*)t0)[3],((C_word*)t0)[4],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k12522 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_12524(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_12524,c,av);}
C_trace(C_text("core.scm:1226: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_8869(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);}

/* k12537 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_12539(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12539,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[314];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k12560 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_12562(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12562,c,av);}
C_trace(C_text("core.scm:1234: chicken.compiler.support#canonicalize-begin-body"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[237]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[237]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* fold in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_12566(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,8)))){
C_save_and_reclaim_args((void *)trf_12566,3,t0,t1,t2);}
a=C_alloc(5);
t3=C_i_car(t2);
t4=C_u_i_cdr(t2);
if(C_truep(C_i_nullp(t4))){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12584,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1239: walk"));
t6=((C_word*)((C_word*)t0)[2])[1];
f_8869(t6,t5,t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}
else{
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12591,a[2]=t1,a[3]=((C_word*)t0)[9],a[4]=t4,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1240: walk"));
t6=((C_word*)((C_word*)t0)[2])[1];
f_8869(t6,t5,t3,((C_word*)t0)[3],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}}

/* k12582 in fold in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_12584(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_12584,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list1(&a,1,t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k12589 in fold in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_12591(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_12591,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12595,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1240: fold"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_12566(t3,t2,((C_word*)t0)[4]);}

/* k12593 in k12589 in fold in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_12595(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_12595,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k12608 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_12610(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_12610,c,av);}
C_trace(C_text("core.scm:1244: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_8869(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* k12621 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_12623(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_12623,c,av);}
C_trace(C_text("core.scm:1247: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_8869(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* k12634 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_12636(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_12636,c,av);}
C_trace(C_text("core.scm:1250: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_8869(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* k12647 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_12649(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_12649,c,av);}
C_trace(C_text("core.scm:1253: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_8869(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* k12660 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_12662(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_12662,c,av);}
C_trace(C_text("core.scm:1256: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_8869(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* k12669 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_12671(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_12671,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12674,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1260: chicken.syntax#strip-syntax"));
t4=C_fast_retrieve(lf[154]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_i_caddr(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k12672 in k12669 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_12674(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_12674,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12677,a[2]=((C_word*)t2)[2],a[3]=t1,a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
t4=C_i_cdddr(((C_word*)t2)[4]);
if(C_truep(C_i_pairp(t4))){
t5=t3;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_i_cadddr(((C_word*)t2)[4]);
f_12677(2,av2);}}
else{
C_trace(C_text("core.scm:1263: scheme#symbol->string"));
t5=*((C_word*)lf[263]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=((C_word*)t2)[2];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}

/* k12675 in k12672 in k12669 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_12677(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
C_save_and_reclaim((void *)f_12677,c,av);}
a=C_alloc(12);
t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1);
t3=C_a_i_cons(&a,2,t2,lf[73]);
t4=C_mutate(&lf[73] /* (set! chicken.compiler.core#foreign-variables ...) */,t3);
t5=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t5;
av2[1]=lf[328];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k12716 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_12718(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){
C_save_and_reclaim((void *)f_12718,c,av);}
a=C_alloc(22);
t2=C_i_cdddr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12724,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t1,tmp=(C_word)a,a+=13,tmp);
if(C_truep(((C_word*)t0)[10])){
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_12724(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12806,a[2]=t3,a[3]=((C_word*)t0)[11],tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t0)[9])){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12809,a[2]=t4,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1276: scheme#open-output-string"));
t6=C_fast_retrieve(lf[134]);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:1274: chicken.compiler.support#quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[126]+1);
av2[1]=t3;
av2[2]=lf[334];
av2[3]=lf[336];
av2[4]=((C_word*)t0)[11];
tp(5,av2);}}}}

/* k12722 in k12716 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_12724(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
C_save_and_reclaim((void *)f_12724,c,av);}
a=C_alloc(14);
if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_12733,a[2]=((C_word*)t0)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp);
C_trace(C_text("core.scm:1279: chicken.base#gensym"));
t3=*((C_word*)lf[112]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12799,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1299: chicken.compiler.support#register-foreign-type!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[332]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[332]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[11];
av2[3]=((C_word*)t0)[12];
tp(4,av2);}}}

/* k12731 in k12722 in k12716 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_12733(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_12733,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12736,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1280: chicken.base#gensym"));
t4=*((C_word*)lf[112]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k12734 in k12731 in k12722 in k12716 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_12736(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){
C_save_and_reclaim((void *)f_12736,c,av);}
a=C_alloc(13);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12739,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[10],a[11]=((C_word*)t2)[11],a[12]=t1,tmp=(C_word)a,a+=13,tmp);
C_trace(C_text("core.scm:1281: chicken.compiler.support#register-foreign-type!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[332]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[332]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[12];
av2[3]=((C_word*)t2)[13];
av2[4]=((C_word*)t2)[3];
av2[5]=t1;
tp(6,av2);}}

/* k12737 in k12734 in k12731 in k12722 in k12716 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_12739(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_12739,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12742,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1282: chicken.compiler.support#mark-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[167];
tp(4,av2);}}

/* k12740 in k12737 in k12734 in k12731 in k12722 in k12716 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_12742(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_12742,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12745,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1283: chicken.compiler.support#mark-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[12];
av2[3]=lf[167];
tp(4,av2);}}

/* k12743 in k12740 in k12737 in k12734 in k12731 in k12722 in k12716 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_12745(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_12745,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12748,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1284: chicken.compiler.support#hide-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[165]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[165]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}}

/* k12746 in k12743 in k12740 in k12737 in k12734 in k12731 in k12722 in k12716 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_12748(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_12748,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12751,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1285: chicken.compiler.support#hide-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[165]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[165]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[12];
tp(3,av2);}}

/* k12749 in k12746 in k12743 in k12740 in k12737 in k12734 in k12731 in k12722 in k12716 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_12751(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){
C_save_and_reclaim((void *)f_12751,c,av);}
a=C_alloc(17);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12754,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[10],a[11]=((C_word*)t2)[11],a[12]=((C_word*)t2)[12],tmp=(C_word)a,a+=13,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12796,a[2]=t3,a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1289: ##sys#current-module"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[211]);
C_word *av2=av;
av2[0]=*((C_word*)lf[211]+1);
av2[1]=t4;
tp(2,av2);}}

/* k12752 in k12749 in k12746 in k12743 in k12740 in k12737 in k12734 in k12731 in k12722 in k12716 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void C_ccall f_12754(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_12754,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12757,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12792,a[2]=t2,a[3]=((C_word*)t0)[12],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1290: ##sys#current-module"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[211]);
C_word *av2=av;
av2[0]=*((C_word*)lf[211]+1);
av2[1]=t3;
tp(2,av2);}}

/* k12755 in k12752 in k12749 in k12746 in k12743 in k12740 in k12737 in k12734 in k12731 in k12722 in k12716 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in ... */
static void C_ccall f_12757(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){
C_save_and_reclaim((void *)f_12757,c,av);}
a=C_alloc(29);
t2=((C_word*)t0)[2];
t3=C_i_car(((C_word*)t2)[2]);
t4=C_a_i_list(&a,3,lf[185],((C_word*)t2)[3],t3);
t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12772,a[2]=t4,a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],a[9]=((C_word*)t2)[10],a[10]=((C_word*)t2)[11],tmp=(C_word)a,a+=11,tmp);
if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t2)[2])))){
t6=C_i_cadr(((C_word*)t2)[2]);
t7=t5;
f_12772(t7,C_a_i_list(&a,3,lf[185],((C_word*)t2)[12],t6));}
else{
t6=t5;
f_12772(t6,C_a_i_list(&a,3,lf[185],((C_word*)t2)[12],lf[330]));}}

/* k12770 in k12755 in k12752 in k12749 in k12746 in k12743 in k12740 in k12737 in k12734 in k12731 in k12722 in k12716 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void f_12772(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,8)))){
C_save_and_reclaim_args((void *)trf_12772,2,t0,t1);}
a=C_alloc(9);
t2=C_a_i_list(&a,3,lf[141],((C_word*)t0)[2],t1);
C_trace(C_text("core.scm:1291: walk"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_8869(t3,((C_word*)t0)[4],t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);}

/* k12790 in k12752 in k12749 in k12746 in k12743 in k12740 in k12737 in k12734 in k12731 in k12722 in k12716 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in ... */
static void C_ccall f_12792(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12792,c,av);}
C_trace(C_text("core.scm:1290: ##sys#register-export"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[331]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[331]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k12794 in k12749 in k12746 in k12743 in k12740 in k12737 in k12734 in k12731 in k12722 in k12716 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void C_ccall f_12796(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_12796,c,av);}
C_trace(C_text("core.scm:1289: ##sys#register-export"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[331]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[331]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k12797 in k12722 in k12716 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_12799(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12799,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[333];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k12804 in k12716 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_12806(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_12806,c,av);}
C_trace(C_text("core.scm:1274: chicken.compiler.support#quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[126]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[334];
av2[3]=t1;
av2[4]=((C_word*)t0)[3];
tp(5,av2);}}

/* k12807 in k12716 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_12809(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_12809,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[129]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12815,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1276: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[133]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[133]+1);
av2[1]=t4;
av2[2]=C_make_character(40);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12813 in k12807 in k12716 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_12815(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12815,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12818,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1276: ##sys#print"));
t4=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12816 in k12813 in k12807 in k12716 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_12818(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_12818,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12821,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1276: ##sys#print"));
t3=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[335];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12819 in k12816 in k12813 in k12807 in k12716 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_12821(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12821,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("core.scm:1276: scheme#get-output-string"));
t3=C_fast_retrieve(lf[130]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12838 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_12840(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_12840,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+9,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12843,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1305: scheme#symbol->string"));
t4=*((C_word*)lf[263]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k12841 in k12838 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_12843(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_12843,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=t1;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_mutate(((C_word *)t2)+2,t4);
t6=C_i_caddr(((C_word*)t2)[7]);
t7=C_mutate(((C_word *)t2)+3,t6);
t8=C_i_cadddr(((C_word*)t2)[7]);
t9=C_mutate(((C_word *)t2)+4,t8);
t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12852,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1308: chicken.compiler.support#make-random-name"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[345]);
C_word *av2=av;
av2[0]=*((C_word*)lf[345]+1);
av2[1]=t10;
tp(2,av2);}}

/* k12850 in k12841 in k12838 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_12852(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){
C_save_and_reclaim((void *)f_12852,c,av);}
a=C_alloc(18);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12855,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=t1,a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[7],tmp=(C_word)a,a+=9,tmp);
if(C_truep(((C_word*)t2)[8])){
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_12855(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12897,a[2]=t3,a[3]=((C_word*)t2)[5],tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t2)[9])){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12900,a[2]=t4,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[9],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1312: scheme#open-output-string"));
t6=C_fast_retrieve(lf[134]);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:1310: chicken.compiler.support#quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[126]+1);
av2[1]=t3;
av2[2]=lf[342];
av2[3]=lf[344];
av2[4]=((C_word*)t2)[5];
tp(5,av2);}}}}

/* k12853 in k12850 in k12841 in k12838 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_12855(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_12855,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12858,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
if(C_truep(((C_word*)t0)[4])){
t3=t2;
f_12858(t3,C_SCHEME_UNDEFINED);}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12886,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=C_i_cddddr(((C_word*)t0)[8]);
C_trace(C_text("core.scm:1314: scheme#symbol->string"));
t5=*((C_word*)lf[263]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=C_i_car(t4);
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}

/* k12856 in k12853 in k12850 in k12841 in k12838 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void f_12858(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){
C_save_and_reclaim_args((void *)trf_12858,2,t0,t1);}
a=C_alloc(12);
t2=C_a_i_vector3(&a,3,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3],((C_word*)t0)[4]);
t3=C_a_i_cons(&a,2,t2,*((C_word*)lf[75]+1));
t4=C_mutate((C_word*)lf[75]+1 /* (set! chicken.compiler.core#external-variables ...) */,t3);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12878,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1317: scheme#string-append"));
t6=*((C_word*)lf[340]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[341];
av2[3]=((C_word*)((C_word*)t0)[2])[1];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}

/* k12876 in k12856 in k12853 in k12850 in k12841 in k12838 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_12878(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){
C_save_and_reclaim((void *)f_12878,c,av);}
a=C_alloc(18);
t2=C_a_i_list3(&a,3,((C_word*)t0)[2],lf[338],t1);
t3=C_a_i_cons(&a,2,t2,lf[73]);
t4=C_mutate(&lf[73] /* (set! chicken.compiler.core#foreign-variables ...) */,t3);
t5=lf[76];
t6=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[2]);
t7=C_a_i_cons(&a,2,t6,lf[76]);
t8=C_mutate(&lf[76] /* (set! chicken.compiler.core#external-to-pointer ...) */,t7);
t9=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t9;
av2[1]=lf[339];
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}

/* k12884 in k12853 in k12850 in k12841 in k12838 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_12886(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12886,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=((C_word*)t0)[3];
f_12858(t3,t2);}

/* k12895 in k12850 in k12841 in k12838 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_12897(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_12897,c,av);}
C_trace(C_text("core.scm:1310: chicken.compiler.support#quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[126]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[342];
av2[3]=t1;
av2[4]=((C_word*)t0)[3];
tp(5,av2);}}

/* k12898 in k12850 in k12841 in k12838 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_12900(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_12900,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[129]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12906,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1312: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[133]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[133]+1);
av2[1]=t4;
av2[2]=C_make_character(40);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k12904 in k12898 in k12850 in k12841 in k12838 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_12906(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12906,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12909,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1312: ##sys#print"));
t4=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k12907 in k12904 in k12898 in k12850 in k12841 in k12838 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_12909(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_12909,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12912,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1312: ##sys#print"));
t3=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[343];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k12910 in k12907 in k12904 in k12898 in k12850 in k12841 in k12838 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_12912(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_12912,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("core.scm:1312: scheme#get-output-string"));
t3=C_fast_retrieve(lf[130]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k12925 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_12927(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_12927,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+14,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12930,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1325: chicken.base#gensym"));
t4=*((C_word*)lf[112]+1);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k12928 in k12925 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_12930(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_12930,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+3,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12933,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1326: chicken.base#gensym"));
t5=*((C_word*)lf[112]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k12931 in k12928 in k12925 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_12933(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_12933,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+5,t1);
t4=C_i_cddddr(((C_word*)t2)[13]);
t5=C_i_pairp(t4);
t6=(C_truep(t5)?C_i_cadddr(((C_word*)t2)[13]):C_SCHEME_FALSE);
t7=C_mutate(((C_word *)t2)+12,t6);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12939,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1328: chicken.compiler.support#set-real-name!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[118]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[118]+1);
av2[1]=t8;
av2[2]=((C_word*)t2)[3];
av2[3]=((C_word*)t2)[2];
tp(4,av2);}}

/* k12937 in k12931 in k12928 in k12925 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_12939(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
C_save_and_reclaim((void *)f_12939,c,av);}
a=C_alloc(15);
t2=((C_word*)t0)[2];
t3=C_a_i_list3(&a,3,((C_word*)t2)[3],((C_word*)t2)[5],((C_word*)t2)[14]);
t4=C_a_i_cons(&a,2,t3,lf[77]);
t5=C_mutate(&lf[77] /* (set! chicken.compiler.core#location-pointer-map ...) */,t4);
t6=C_fast_retrieve(lf[110]);
t7=C_mutate(((C_word *)t2)+4,t6);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13054,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1332: ##sys#current-environment"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[110]);
C_word *av2=av;
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t8;
tp(2,av2);}}

/* a12950 in k13052 in k12937 in k12931 in k12928 in k12925 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_12951(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_12951,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12955,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=7,tmp);
if(C_truep(((C_word*)((C_word*)t0)[3])[1])){
C_trace(C_text("core.scm:1331: ##sys#current-environment2380"));
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)((C_word*)t0)[2])[1];
f_12955(2,av2);}}}

/* k12953 in a12950 in k13052 in k12937 in k12931 in k12928 in k12925 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_12955(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_12955,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+6,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12959,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1331: ##sys#current-environment2380"));
t4=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)C_fast_retrieve_proc(t4))(2,av2);}}

/* k12957 in k12953 in a12950 in k13052 in k12937 in k12931 in k12928 in k12925 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_12959(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_12959,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[2])+1,t1);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12962,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1331: ##sys#current-environment2380"));
t5=((C_word*)t2)[5];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t2)[6];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t5))(5,av2);}}

/* k12960 in k12957 in k12953 in a12950 in k13052 in k12937 in k12931 in k12928 in k12925 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_12962(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_12962,c,av);}
t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a12967 in k13052 in k12937 in k12931 in k12928 in k12925 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_12968(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){
C_save_and_reclaim((void *)f_12968,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_13017,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13040,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1334: chicken.compiler.support#estimate-foreign-result-location-size"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[349]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[349]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[12];
tp(3,av2);}}

/* k12986 in k13015 in a12967 in k13052 in k12937 in k12931 in k12928 in k12925 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_12988(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,8)))){
C_save_and_reclaim((void *)f_12988,c,av);}
a=C_alloc(12);
t2=C_a_i_cons(&a,2,lf[141],t1);
t3=C_a_i_list(&a,3,lf[181],((C_word*)t0)[2],t2);
C_trace(C_text("core.scm:1333: walk"));
t4=((C_word*)((C_word*)t0)[3])[1];
f_8869(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);}

/* k12990 in k13015 in a12967 in k13052 in k12937 in k12931 in k12928 in k12925 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void f_12992(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_12992,2,t0,t1);}
a=C_alloc(3);
t2=(C_truep(((C_word*)t0)[2])?C_i_car(C_i_cddddr(((C_word*)t0)[3])):C_i_cadddr(((C_word*)t0)[3]));
t3=C_a_i_list(&a,1,t2);
C_trace(C_text("core.scm:1334: ##sys#append"));
t4=*((C_word*)lf[162]+1);{
C_word av2[4];
av2[0]=t4;
av2[1]=((C_word*)t0)[4];
av2[2]=t1;
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k13015 in a12967 in k13052 in k12937 in k12931 in k12928 in k12925 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_13017(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(86,c,2)))){
C_save_and_reclaim((void *)f_13017,c,av);}
a=C_alloc(86);
t2=C_s_a_i_plus(&a,2,C_fix(2),t1);
t3=C_a_i_list(&a,2,lf[347],t2);
t4=C_a_i_list(&a,2,lf[119],t1);
t5=C_a_i_list(&a,3,lf[309],t3,t4);
t6=C_a_i_list2(&a,2,((C_word*)t0)[2],t5);
t7=C_a_i_list(&a,1,t6);
t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12988,a[2]=t7,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12992,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[11],a[4]=t8,tmp=(C_word)a,a+=5,tmp);
if(C_truep(((C_word*)t0)[10])){
t10=C_a_i_list(&a,3,lf[185],((C_word*)t0)[12],((C_word*)t0)[10]);
t11=t9;
f_12992(t11,C_a_i_list(&a,1,t10));}
else{
t10=t9;
f_12992(t10,C_SCHEME_END_OF_LIST);}}

/* k13038 in a12967 in k13052 in k12937 in k12931 in k12928 in k12925 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_13040(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_13040,c,av);}
C_trace(C_text("core.scm:1334: chicken.compiler.support#bytes->words"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[348]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[348]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* a13041 in k13052 in k12937 in k12931 in k12928 in k12925 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_13042(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_13042,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13046,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1331: ##sys#current-environment2380"));
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)C_fast_retrieve_proc(t3))(2,av2);}}

/* k13044 in a13041 in k13052 in k12937 in k12931 in k12928 in k12925 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_13046(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_13046,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13049,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1331: ##sys#current-environment2380"));
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}

/* k13047 in k13044 in a13041 in k13052 in k12937 in k12931 in k12928 in k12925 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_13049(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13049,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k13052 in k12937 in k12931 in k12928 in k12925 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_13054(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,4)))){
C_save_and_reclaim((void *)f_13054,c,av);}
a=C_alloc(32);
t2=((C_word*)t0)[2];
t3=C_a_i_cons(&a,2,((C_word*)t2)[2],((C_word*)t2)[3]);
t4=C_a_i_cons(&a,2,t3,t1);
t5=t4;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_SCHEME_TRUE;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12951,a[2]=t6,a[3]=t8,a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
t10=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12968,a[2]=((C_word*)t2)[5],a[3]=((C_word*)t2)[6],a[4]=((C_word*)t2)[7],a[5]=((C_word*)t2)[8],a[6]=((C_word*)t2)[9],a[7]=((C_word*)t2)[10],a[8]=((C_word*)t2)[11],a[9]=((C_word*)t2)[12],a[10]=((C_word*)t2)[13],a[11]=((C_word*)t2)[3],a[12]=((C_word*)t2)[14],tmp=(C_word)a,a+=13,tmp);
t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13042,a[2]=t6,a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1331: ##sys#dynamic-wind"));
t12=*((C_word*)lf[117]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t12;
av2[1]=((C_word*)t2)[15];
av2[2]=t9;
av2[3]=t10;
av2[4]=t11;
((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}}

/* k13085 in k13120 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_13087(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
C_save_and_reclaim((void *)f_13087,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13090,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(((C_word*)t0)[5])){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f27239,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1359: chicken.internal#hash-table-set!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[352]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[352]+1);
av2[1]=t3;
av2[2]=*((C_word*)lf[68]+1);
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
tp(5,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13100,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
if(C_truep(t1)){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13103,a[2]=t3,a[3]=C_SCHEME_UNDEFINED,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1357: scheme#open-output-string"));
t5=C_fast_retrieve(lf[134]);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:1355: chicken.compiler.support#quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[126]+1);
av2[1]=t2;
av2[2]=lf[353];
av2[3]=lf[355];
av2[4]=((C_word*)t0)[3];
tp(5,av2);}}}}

/* k13088 in k13085 in k13120 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_13090(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_13090,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13093,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1359: chicken.internal#hash-table-set!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[352]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[352]+1);
av2[1]=t2;
av2[2]=*((C_word*)lf[68]+1);
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
tp(5,av2);}}

/* k13091 in k13088 in k13085 in k13120 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_13093(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13093,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[351];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k13098 in k13085 in k13120 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_13100(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_13100,c,av);}
C_trace(C_text("core.scm:1355: chicken.compiler.support#quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[126]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[353];
av2[3]=t1;
av2[4]=((C_word*)t0)[3];
tp(5,av2);}}

/* k13101 in k13085 in k13120 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_13103(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_13103,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[129]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13109,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1357: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[133]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[133]+1);
av2[1]=t4;
av2[2]=C_make_character(40);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k13107 in k13101 in k13085 in k13120 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_13109(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_13109,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13112,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1357: ##sys#print"));
t4=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k13110 in k13107 in k13101 in k13085 in k13120 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_13112(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_13112,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13115,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1357: ##sys#print"));
t3=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[354];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k13113 in k13110 in k13107 in k13101 in k13085 in k13120 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_13115(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_13115,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("core.scm:1357: scheme#get-output-string"));
t3=C_fast_retrieve(lf[130]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k13120 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_13122(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_13122,c,av);}
a=C_alloc(9);
t2=C_a_i_cons(&a,2,lf[100],t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13087,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:1353: chicken.syntax#get-line-number"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[114]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[114]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}

/* k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_13134(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_13134,c,av);}
a=C_alloc(13);
t2=C_i_caddr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13140,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=t1,a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13255,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1366: scheme#call-with-current-continuation"));
t5=*((C_word*)lf[275]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k13138 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_13140(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_13140,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13143,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1366: g2433"));
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)C_fast_retrieve_proc(t3))(2,av2);}}

/* k13141 in k13138 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_13143(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){
C_save_and_reclaim((void *)f_13143,c,av);}
a=C_alloc(19);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13146,a[2]=((C_word*)t2)[3],a[3]=t1,a[4]=((C_word*)t2)[2],a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[8],tmp=(C_word)a,a+=10,tmp);
if(C_truep(((C_word*)t2)[8])){
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_13146(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13235,a[2]=t3,a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t2)[7])){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13238,a[2]=t4,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[7],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1379: scheme#open-output-string"));
t6=C_fast_retrieve(lf[134]);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:1377: chicken.compiler.support#quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[126]+1);
av2[1]=t3;
av2[2]=lf[367];
av2[3]=lf[369];
av2[4]=((C_word*)t2)[2];
tp(5,av2);}}}}

/* k13144 in k13141 in k13138 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_13146(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){
C_save_and_reclaim((void *)f_13146,c,av);}
a=C_alloc(18);
t2=C_a_i_list(&a,2,lf[153],((C_word*)t0)[3]);
t3=C_a_i_list2(&a,2,((C_word*)t0)[4],t2);
t4=C_a_i_cons(&a,2,t3,lf[79]);
t5=C_mutate(&lf[79] /* (set! chicken.compiler.core#defconstant-bindings ...) */,t4);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13156,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1383: chicken.compiler.support#collapsable-literal?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[366]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[366]+1);
av2[1]=t6;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k13154 in k13144 in k13141 in k13138 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_13156(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_13156,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13159,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
t4=C_a_i_list(&a,2,lf[153],((C_word*)t2)[3]);
C_trace(C_text("core.scm:1384: chicken.internal#hash-table-set!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[352]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[352]+1);
av2[1]=t3;
av2[2]=*((C_word*)lf[69]+1);
av2[3]=((C_word*)t2)[4];
av2[4]=t4;
tp(5,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13169,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[2],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],a[9]=((C_word*)t2)[4],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:1386: chicken.compiler.support#basic-literal?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[365]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[365]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}}}

/* k13157 in k13154 in k13144 in k13141 in k13138 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_13159(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13159,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[358];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k13167 in k13154 in k13144 in k13141 in k13138 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_13169(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_13169,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13172,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1387: chicken.base#gensym"));
t3=*((C_word*)lf[112]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[361];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13202,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[9],tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t0)[7])){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13205,a[2]=t2,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1396: scheme#open-output-string"));
t4=C_fast_retrieve(lf[134]);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:1394: chicken.compiler.support#quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[126]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=lf[362];
av2[3]=lf[364];
av2[4]=((C_word*)t0)[9];
tp(5,av2);}}}}

/* k13170 in k13167 in k13154 in k13144 in k13141 in k13138 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_13172(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_13172,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13175,a[2]=((C_word*)t2)[2],a[3]=t1,a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[8],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:1388: chicken.internal#hash-table-set!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[352]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[352]+1);
av2[1]=t3;
av2[2]=*((C_word*)lf[69]+1);
av2[3]=((C_word*)t2)[9];
av2[4]=t1;
tp(5,av2);}}

/* k13173 in k13170 in k13167 in k13154 in k13144 in k13141 in k13138 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_13175(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_13175,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13178,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1389: chicken.compiler.support#hide-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[165]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[165]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k13176 in k13173 in k13170 in k13167 in k13154 in k13144 in k13141 in k13138 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_13178(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_13178,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13181,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1390: chicken.compiler.support#mark-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
av2[3]=lf[360];
tp(4,av2);}}

/* k13179 in k13176 in k13173 in k13170 in k13167 in k13154 in k13144 in k13141 in k13138 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void C_ccall f_13181(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_13181,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13184,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1391: chicken.compiler.support#mark-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
av2[3]=lf[167];
tp(4,av2);}}

/* k13182 in k13179 in k13176 in k13173 in k13170 in k13167 in k13154 in k13144 in k13141 in k13138 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in ... */
static void C_ccall f_13184(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,8)))){
C_save_and_reclaim((void *)f_13184,c,av);}
a=C_alloc(15);
t2=((C_word*)t0)[2];
t3=C_a_i_list(&a,2,lf[153],((C_word*)t2)[2]);
t4=C_a_i_list(&a,3,lf[359],((C_word*)t2)[3],t3);
C_trace(C_text("core.scm:1392: walk"));
t5=((C_word*)((C_word*)t2)[4])[1];
f_8869(t5,((C_word*)t2)[5],t4,((C_word*)t2)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t2)[7],((C_word*)t2)[8],((C_word*)t2)[9]);}

/* k13200 in k13167 in k13154 in k13144 in k13141 in k13138 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_13202(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_13202,c,av);}
C_trace(C_text("core.scm:1394: chicken.compiler.support#quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[126]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[362];
av2[3]=t1;
av2[4]=((C_word*)t0)[3];
tp(5,av2);}}

/* k13203 in k13167 in k13154 in k13144 in k13141 in k13138 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_13205(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_13205,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[129]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13211,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1396: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[133]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[133]+1);
av2[1]=t4;
av2[2]=C_make_character(40);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k13209 in k13203 in k13167 in k13154 in k13144 in k13141 in k13138 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_13211(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_13211,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13214,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1396: ##sys#print"));
t4=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k13212 in k13209 in k13203 in k13167 in k13154 in k13144 in k13141 in k13138 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_13214(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_13214,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13217,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1396: ##sys#print"));
t3=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[363];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k13215 in k13212 in k13209 in k13203 in k13167 in k13154 in k13144 in k13141 in k13138 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void C_ccall f_13217(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_13217,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("core.scm:1396: scheme#get-output-string"));
t3=C_fast_retrieve(lf[130]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k13233 in k13141 in k13138 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_13235(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_13235,c,av);}
C_trace(C_text("core.scm:1377: chicken.compiler.support#quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[126]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[367];
av2[3]=t1;
av2[4]=((C_word*)t0)[3];
tp(5,av2);}}

/* k13236 in k13141 in k13138 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_13238(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_13238,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[129]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13244,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1379: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[133]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[133]+1);
av2[1]=t4;
av2[2]=C_make_character(40);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k13242 in k13236 in k13141 in k13138 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_13244(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_13244,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13247,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1379: ##sys#print"));
t4=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k13245 in k13242 in k13236 in k13141 in k13138 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_13247(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_13247,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13250,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1379: ##sys#print"));
t3=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[368];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k13248 in k13245 in k13242 in k13236 in k13141 in k13138 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_13250(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_13250,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("core.scm:1379: scheme#get-output-string"));
t3=C_fast_retrieve(lf[130]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* a13254 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_13255(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_13255,c,av);}
a=C_alloc(9);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13261,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13273,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1366: chicken.condition#with-exception-handler"));
t5=C_fast_retrieve(lf[274]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t1;
av2[2]=t3;
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* a13260 in a13254 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_13261(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_13261,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13267,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1366: k2430"));
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}

/* a13266 in a13260 in a13254 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_13267(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_13267,c,av);}
C_trace(C_text("core.scm:1368: chicken.compiler.support#quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[126]+1);
av2[1]=t1;
av2[2]=lf[370];
av2[3]=((C_word*)t0)[2];
av2[4]=((C_word*)t0)[3];
tp(5,av2);}}

/* a13272 in a13254 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_13273(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_13273,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13279,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13305,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1366: ##sys#call-with-values"));{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t1;
av2[2]=t2;
av2[3]=t3;
C_call_with_values(4,av2);}}

/* a13278 in a13272 in a13254 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_13279(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_13279,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13286,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t3=C_i_symbolp(((C_word*)t0)[2]);
if(C_truep(C_i_not(t3))){
C_trace(C_text("core.scm:1371: chicken.compiler.support#collapsable-literal?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[366]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[366]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_13286(2,av2);}}}

/* k13284 in a13278 in a13272 in a13254 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_13286(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_13286,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_a_i_list(&a,3,lf[181],lf[79],((C_word*)t0)[3]);
C_trace(C_text("core.scm:1373: scheme#eval"));
t3=*((C_word*)lf[371]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}

/* a13304 in a13272 in a13254 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_13305(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +3,c,2)))){
C_save_and_reclaim((void*)f_13305,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+3);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13311,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1366: k2430"));
t4=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}

/* a13310 in a13304 in a13272 in a13254 in k13132 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_13311(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_13311,c,av);}{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=0;
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
C_apply_values(3,av2);}}

/* g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_13333(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(32,0,5)))){
C_save_and_reclaim_args((void *)trf_13333,3,t0,t1,t2);}
a=C_alloc(32);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13339,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14172,tmp=(C_word)a,a+=2,tmp));
t13=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14207,a[2]=t11,a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp));
t14=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14226,a[2]=t7,tmp=(C_word)a,a+=3,tmp));
t15=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_14232,tmp=(C_word)a,a+=2,tmp));
t16=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14260,a[2]=C_SCHEME_UNDEFINED,a[3]=t2,a[4]=t5,a[5]=t9,a[6]=t11,a[7]=t3,a[8]=t7,tmp=(C_word)a,a+=9,tmp);
t17=t16;
f_14260(t17,t1);}

/* a13338 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void f_13339(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_13339,3,t0,t1,t2);}
a=C_alloc(4);
t3=((C_word*)t0)[2];
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13347,a[2]=t1,a[3]=((C_word*)t3)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1403: lookup"));
t5=((C_word*)((C_word*)t3)[3])[1];
f_8289(t5,t4,t2);}

/* k13345 in a13338 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_13347(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13347,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_i_memq(t1,((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k13352 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_13354(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){
C_save_and_reclaim((void *)f_13354,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,lf[141],t1);
C_trace(C_text("core.scm:1400: walk"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_8869(t3,((C_word*)t0)[3],t2,((C_word*)t0)[4],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);}

/* map-loop2492 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_13356(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_13356,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13381,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:1402: g2498"));
t4=((C_word*)t0)[4];
f_13333(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k13379 in map-loop2492 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_13381(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_13381,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_13356(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* a13398 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_13399(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){
C_save_and_reclaim((void *)f_13399,c,av);}
a=C_alloc(5);
t2=C_i_cdr(((C_word*)t0)[2]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6917,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_6917(t6,t1,C_fix(4),C_SCHEME_END_OF_LIST,t2);}

/* a13408 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_13409(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
C_save_and_reclaim((void *)f_13409,c,av);}
a=C_alloc(13);
t4=C_i_car(t3);
t5=C_i_car(t2);
t6=C_i_cadr(t5);
t7=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_13419,a[2]=t2,a[3]=t4,a[4]=t1,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=t6,a[12]=((C_word*)t0)[8],tmp=(C_word)a,a+=13,tmp);
C_trace(C_text("core.scm:1411: ##sys#alias-global-hook"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[125]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[125]+1);
av2[1]=t7;
av2[2]=t6;
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t0)[9];
tp(5,av2);}}

/* k13417 in a13408 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_13419(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){
C_save_and_reclaim((void *)f_13419,c,av);}
a=C_alloc(21);
t2=C_i_caddr(((C_word*)t0)[2]);
t3=C_i_cadr(t2);
t4=C_i_cadddr(((C_word*)t0)[2]);
t5=C_i_cadr(t4);
t6=C_i_cadr(((C_word*)t0)[3]);
t7=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_13431,a[2]=((C_word*)t0)[4],a[3]=t6,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t3,a[9]=((C_word*)t0)[3],a[10]=t1,a[11]=((C_word*)t0)[9],a[12]=t5,a[13]=((C_word*)t0)[10],a[14]=((C_word*)t0)[2],tmp=(C_word)a,a+=15,tmp);
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13651,a[2]=((C_word*)t0)[11],a[3]=t1,a[4]=t7,a[5]=((C_word*)t0)[12],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:1415: chicken.compiler.support#valid-c-identifier?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[477]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[477]+1);
av2[1]=t8;
av2[2]=((C_word*)t0)[11];
tp(3,av2);}}

/* k13429 in k13417 in a13408 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_13431(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_13431,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13434,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=C_i_listp(((C_word*)t0)[3]);
t4=C_i_not(t3);
if(C_truep(t4)){
if(C_truep(t4)){
C_trace(C_text("core.scm:1426: ##sys#syntax-error"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[277]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[277]+1);
av2[1]=t2;
av2[2]=lf[473];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[12];
tp(5,av2);}}
else{
t5=t2;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_13434(2,av2);}}}
else{
t5=C_i_listp(((C_word*)t0)[12]);
t6=C_i_not(t5);
if(C_truep(t6)){
if(C_truep(t6)){
C_trace(C_text("core.scm:1426: ##sys#syntax-error"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[277]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[277]+1);
av2[1]=t2;
av2[2]=lf[473];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[12];
tp(5,av2);}}
else{
t7=t2;{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_SCHEME_UNDEFINED;
f_13434(2,av2);}}}
else{
t7=C_i_length(((C_word*)t0)[3]);
t8=C_i_length(((C_word*)t0)[12]);
t9=C_eqp(t7,t8);
if(C_truep(C_i_not(t9))){
C_trace(C_text("core.scm:1426: ##sys#syntax-error"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[277]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[277]+1);
av2[1]=t2;
av2[2]=lf[473];
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[12];
tp(5,av2);}}
else{
t10=t2;{
C_word *av2=av;
av2[0]=t10;
av2[1]=C_SCHEME_UNDEFINED;
f_13434(2,av2);}}}}}

/* k13432 in k13429 in k13417 in a13408 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_13434(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,6)))){
C_save_and_reclaim((void *)f_13434,c,av);}
a=C_alloc(16);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13441,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_13445,a[2]=t3,a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[10],a[11]=((C_word*)t2)[11],a[12]=((C_word*)t2)[12],tmp=(C_word)a,a+=13,tmp);
C_trace(C_text("core.scm:1430: mapwalk"));
t5=((C_word*)((C_word*)t2)[13])[1];
f_14081(t5,t4,((C_word*)t2)[14],((C_word*)t2)[5],((C_word*)t2)[6],((C_word*)t2)[7],C_SCHEME_FALSE);}

/* k13439 in k13432 in k13429 in k13417 in a13408 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_13441(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_13441,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,lf[454],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k13443 in k13432 in k13429 in k13417 in a13408 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_13445(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,4)))){
C_save_and_reclaim((void *)f_13445,c,av);}
a=C_alloc(21);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13453,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_13465,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13570,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_13570(t7,t3,((C_word*)t0)[3],((C_word*)t0)[12]);}

/* k13451 in k13443 in k13432 in k13429 in k13417 in a13408 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_13453(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_13453,c,av);}
a=C_alloc(3);
t2=C_a_i_list(&a,1,t1);
C_trace(C_text("core.scm:1429: ##sys#append"));
t3=*((C_word*)lf[162]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k13463 in k13443 in k13432 in k13429 in k13417 in a13408 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_13465(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(43,c,4)))){
C_save_and_reclaim((void *)f_13465,c,av);}
a=C_alloc(43);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13469,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13481,a[2]=t2,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp);
if(C_truep((C_truep(C_i_equalp(((C_word*)t0)[8],lf[455]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[456]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[457]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[458]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))){
t4=C_i_cddr(((C_word*)t0)[9]);
t5=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t4);
t6=C_a_i_cons(&a,2,lf[181],t5);
t7=C_a_i_list(&a,2,lf[153],((C_word*)t0)[10]);
t8=C_a_i_list(&a,3,lf[459],t6,t7);
t9=C_a_i_list(&a,1,t8);
t10=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t9);
t11=C_a_i_cons(&a,2,lf[181],t10);
C_trace(C_text("core.scm:1448: chicken.compiler.support#foreign-type-convert-argument"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[290]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[290]+1);
av2[1]=t2;
av2[2]=t11;
av2[3]=((C_word*)t0)[8];
tp(4,av2);}}
else{
if(C_truep((C_truep(C_i_equalp(((C_word*)t0)[8],lf[460]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[461]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[462]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[463]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[464]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[465]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))))){
C_trace(C_text("core.scm:1470: ##sys#syntax-error"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[277]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[277]+1);
av2[1]=t3;
av2[2]=lf[466];
av2[3]=((C_word*)t0)[8];
av2[4]=((C_word*)t0)[10];
tp(5,av2);}}
else{
if(C_truep((C_truep(C_i_equalp(((C_word*)t0)[8],lf[467]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[468]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[469]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[8],lf[470]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))){
t4=C_i_cddr(((C_word*)t0)[9]);
t5=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t4);
t6=C_a_i_cons(&a,2,lf[181],t5);
t7=C_a_i_list(&a,2,lf[471],t6);
t8=C_a_i_list(&a,1,t7);
t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13541,a[2]=((C_word*)t0)[10],a[3]=t8,a[4]=t2,a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:1482: macro-alias"));
t10=((C_word*)((C_word*)t0)[11])[1];
f_8323(t10,t9,lf[472]);}
else{
t4=C_i_cddr(((C_word*)t0)[9]);
t5=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t4);
t6=C_a_i_cons(&a,2,lf[181],t5);
C_trace(C_text("core.scm:1448: chicken.compiler.support#foreign-type-convert-argument"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[290]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[290]+1);
av2[1]=t2;
av2[2]=t6;
av2[3]=((C_word*)t0)[8];
tp(4,av2);}}}}}

/* k13467 in k13463 in k13443 in k13432 in k13429 in k13417 in a13408 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_13469(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,8)))){
C_save_and_reclaim((void *)f_13469,c,av);}
a=C_alloc(18);
t2=C_a_i_list(&a,3,lf[181],((C_word*)t0)[2],t1);
t3=C_a_i_list(&a,3,lf[100],((C_word*)t0)[3],t2);
C_trace(C_text("core.scm:1431: walk"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_8869(t4,((C_word*)t0)[5],t3,((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* k13479 in k13463 in k13443 in k13432 in k13429 in k13417 in a13408 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_13481(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_13481,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t1);
t3=C_a_i_cons(&a,2,lf[181],t2);
C_trace(C_text("core.scm:1448: chicken.compiler.support#foreign-type-convert-argument"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[290]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[290]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t3;
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k13539 in k13463 in k13443 in k13432 in k13429 in k13417 in a13408 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_13541(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(42,c,3)))){
C_save_and_reclaim((void *)f_13541,c,av);}
a=C_alloc(42);
t2=C_a_i_list(&a,2,lf[153],((C_word*)t0)[2]);
t3=C_a_i_list(&a,3,lf[459],lf[471],t2);
t4=C_a_i_list(&a,3,t1,lf[471],t3);
t5=C_a_i_list(&a,3,lf[181],((C_word*)t0)[3],t4);
t6=C_a_i_list(&a,1,t5);
t7=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t6);
t8=C_a_i_cons(&a,2,lf[181],t7);
C_trace(C_text("core.scm:1448: chicken.compiler.support#foreign-type-convert-argument"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[290]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[290]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=t8;
av2[3]=((C_word*)t0)[5];
tp(4,av2);}}

/* loop in k13443 in k13432 in k13429 in k13417 in a13408 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void f_13570(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){
C_save_and_reclaim_args((void *)trf_13570,4,t0,t1,t2,t3);}
a=C_alloc(15);
if(C_truep(C_i_nullp(t2))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_car(t2);
t5=C_i_car(t3);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13602,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13606,a[2]=t6,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13610,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1444: chicken.compiler.support#final-foreign-type"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[123]);
C_word av2[3];
av2[0]=*((C_word*)lf[123]+1);
av2[1]=t8;
av2[2]=t5;
tp(3,av2);}}}

/* k13592 in k13600 in loop in k13443 in k13432 in k13429 in k13417 in a13408 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_13594(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_13594,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k13600 in loop in k13443 in k13432 in k13429 in k13417 in a13408 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_13602(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_13602,c,av);}
a=C_alloc(10);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13594,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1447: loop"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_13570(t4,t3,C_u_i_cdr(((C_word*)t0)[5]),C_u_i_cdr(((C_word*)t0)[6]));}

/* k13604 in loop in k13443 in k13432 in k13429 in k13417 in a13408 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_13606(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13606,c,av);}
C_trace(C_text("core.scm:1442: chicken.compiler.support#foreign-type-convert-result"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[121]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[121]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k13608 in loop in k13443 in k13432 in k13429 in k13417 in a13408 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_13610(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_13610,c,av);}
C_trace(C_text("core.scm:1443: chicken.compiler.support#finish-foreign-result"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[122]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[122]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k13649 in k13417 in a13408 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_13651(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_13651,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t3=C_a_i_cons(&a,2,t2,lf[80]);
t4=C_mutate(&lf[80] /* (set! chicken.compiler.core#callback-names ...) */,t3);
t5=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
f_13431(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13662,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1418: chicken.syntax#get-line-number"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[114]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[114]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}}

/* k13660 in k13649 in k13417 in a13408 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_13662(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_13662,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13669,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13672,a[2]=t2,a[3]=C_SCHEME_UNDEFINED,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1421: scheme#open-output-string"));
t4=C_fast_retrieve(lf[134]);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:1419: chicken.compiler.support#quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[126]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[474];
av2[3]=lf[476];
av2[4]=((C_word*)t0)[3];
tp(5,av2);}}}

/* k13667 in k13660 in k13649 in k13417 in a13408 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_13669(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_13669,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("core.scm:1419: chicken.compiler.support#quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[126]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=lf[474];
av2[3]=t1;
av2[4]=((C_word*)t2)[3];
tp(5,av2);}}

/* k13670 in k13660 in k13649 in k13417 in a13408 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_13672(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_13672,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[129]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13678,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1421: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[133]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[133]+1);
av2[1]=t4;
av2[2]=C_make_character(40);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k13676 in k13670 in k13660 in k13649 in k13417 in a13408 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_13678(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_13678,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13681,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1421: ##sys#print"));
t4=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k13679 in k13676 in k13670 in k13660 in k13649 in k13417 in a13408 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_13681(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_13681,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13684,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1421: ##sys#print"));
t3=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[475];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k13682 in k13679 in k13676 in k13670 in k13660 in k13649 in k13417 in a13408 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_13684(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_13684,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("core.scm:1421: scheme#get-output-string"));
t3=C_fast_retrieve(lf[130]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* g2585 in k13788 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void f_13721(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,0,8)))){
C_save_and_reclaim_args((void *)trf_13721,3,t0,t1,t2);}
a=C_alloc(21);
t3=C_i_cadr(t2);
t4=C_a_i_list(&a,2,lf[153],lf[479]);
t5=C_a_i_list(&a,5,lf[480],t3,C_fix(0),C_SCHEME_FALSE,t4);
C_trace(C_text("core.scm:1494: walk"));
t6=((C_word*)((C_word*)t0)[2])[1];
f_8869(t6,t1,t5,((C_word*)t0)[3],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE);}

/* g2592 in k13788 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void f_13747(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,8)))){
C_save_and_reclaim_args((void *)trf_13747,3,t0,t1,t2);}
C_trace(C_text("core.scm:1498: walk"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_8869(t3,t1,C_i_cdr(t2),((C_word*)t0)[3],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE);}

/* k13773 in k13788 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_13775(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
C_save_and_reclaim((void *)f_13775,c,av);}
a=C_alloc(12);
t2=C_a_i_list(&a,2,t1,lf[338]);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list(&a,2,lf[120],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k13788 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_13790(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,8)))){
C_save_and_reclaim((void *)f_13790,c,av);}
a=C_alloc(21);
t2=C_i_assq(t1,lf[77]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13721,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:1492: g2585"));
t4=t3;
f_13721(t4,((C_word*)t0)[6],t2);}
else{
t3=C_i_assq(((C_word*)t0)[7],lf[76]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13747,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:1492: g2592"));
t5=t4;
f_13747(t5,((C_word*)t0)[6],t3);}
else{
if(C_truep(C_i_assq(((C_word*)t0)[7],lf[80]))){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13775,a[2]=((C_word*)t0)[6],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1500: scheme#symbol->string"));
t5=*((C_word*)lf[263]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=C_a_i_list(&a,2,lf[153],lf[479]);
t5=C_a_i_list(&a,5,lf[480],((C_word*)t0)[7],C_fix(0),C_SCHEME_FALSE,t4);
C_trace(C_text("core.scm:1502: walk"));
t6=((C_word*)((C_word*)t0)[2])[1];
f_8869(t6,((C_word*)t0)[6],t5,((C_word*)t0)[3],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE);}}}}

/* k13805 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_13807(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_13807,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_car(((C_word*)t0)[3]);
t4=C_mutate(((C_word *)t0)+6,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13813,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1514: chicken.internal#hash-table-ref"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t5;
av2[2]=*((C_word*)lf[66]+1);
av2[3]=((C_word*)t0)[6];
tp(4,av2);}}

/* k13811 in k13805 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_13813(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
C_save_and_reclaim((void *)f_13813,c,av);}
a=C_alloc(13);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13816,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)t2)[4])){
if(C_truep(t1)){
t4=C_i_cdr(t1);
t5=C_a_i_cons(&a,2,((C_word*)t2)[3],((C_word*)t2)[4]);
t6=C_a_i_cons(&a,2,t5,t4);
t7=C_a_i_cons(&a,2,((C_word*)t2)[5],t6);
C_trace(C_text("core.scm:1516: chicken.internal#hash-table-set!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[352]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[352]+1);
av2[1]=t3;
av2[2]=*((C_word*)lf[66]+1);
av2[3]=((C_word*)t2)[6];
av2[4]=t7;
tp(5,av2);}}
else{
t4=C_a_i_cons(&a,2,((C_word*)t2)[3],((C_word*)t2)[4]);
t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
t6=C_a_i_cons(&a,2,((C_word*)t2)[5],t5);
C_trace(C_text("core.scm:1516: chicken.internal#hash-table-set!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[352]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[352]+1);
av2[1]=t3;
av2[2]=*((C_word*)lf[66]+1);
av2[3]=((C_word*)t2)[6];
av2[4]=t6;
tp(5,av2);}}}
else{
t4=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k13814 in k13811 in k13805 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_13816(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13816,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* a13835 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_13836(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13836,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_fast_retrieve(lf[481]));
t3=C_mutate((C_word*)lf[481]+1 /* (set! ##sys#syntax-context ...) */,((C_word*)((C_word*)t0)[3])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a13840 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_13841(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_13841,c,av);}
C_trace(C_text("core.scm:1512: mapwalk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_14081(t2,t1,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}

/* a13846 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_13847(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13847,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_fast_retrieve(lf[481]));
t3=C_mutate((C_word*)lf[481]+1 /* (set! ##sys#syntax-context ...) */,((C_word*)((C_word*)t0)[3])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a13991 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_13992(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_13992,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_fast_retrieve(lf[115]));
t3=C_mutate((C_word*)lf[115]+1 /* (set! chicken.syntax#expansion-result-hook ...) */,((C_word*)((C_word*)t0)[3])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a13996 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_13997(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_13997,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14005,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:671: ##sys#current-environment"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[110]);
C_word *av2=av;
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t2;
tp(2,av2);}}

/* k14003 in a13996 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_14005(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_14005,c,av);}
C_trace(C_text("core.scm:671: chicken.syntax#expand"));
t2=C_fast_retrieve(lf[484]);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
av2[4]=*((C_word*)lf[55]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* a14006 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_14007(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14007,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_fast_retrieve(lf[115]));
t3=C_mutate((C_word*)lf[115]+1 /* (set! chicken.syntax#expansion-result-hook ...) */,((C_word*)((C_word*)t0)[3])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k14025 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_14027(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_14027,c,av);}
a=C_alloc(10);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14030,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:1526: chicken.compiler.support#emit-syntax-trace-info"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[485]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[485]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
tp(4,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_14039,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:1531: chicken.compiler.support#emit-syntax-trace-info"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[485]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[485]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
tp(4,av2);}}}

/* k14028 in k14025 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_14030(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_14030,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14033,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1527: chicken.base#warning"));
t3=C_fast_retrieve(lf[137]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[487];
av2[3]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k14031 in k14028 in k14025 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_14033(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_14033,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("core.scm:1528: mapwalk"));
t3=((C_word*)((C_word*)t2)[2])[1];
f_14081(t3,((C_word*)t2)[3],((C_word*)t2)[4],((C_word*)t2)[5],((C_word*)t2)[6],((C_word*)t2)[7],((C_word*)t2)[8]);}

/* k14037 in k14025 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_14039(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_14039,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14042,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1532: chicken.base#gensym"));
t3=*((C_word*)lf[112]+1);{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14040 in k14037 in k14025 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_14042(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,8)))){
C_save_and_reclaim((void *)f_14042,c,av);}
a=C_alloc(21);
t2=((C_word*)t0)[2];
t3=C_u_i_car(((C_word*)t2)[2]);
t4=C_a_i_list(&a,2,t1,t3);
t5=C_a_i_list(&a,1,t4);
t6=C_u_i_cdr(((C_word*)t2)[2]);
t7=C_a_i_cons(&a,2,t1,t6);
t8=C_a_i_list(&a,3,lf[181],t5,t7);
C_trace(C_text("core.scm:1533: walk"));
t9=((C_word*)((C_word*)t2)[3])[1];
f_8869(t9,((C_word*)t2)[4],t8,((C_word*)t2)[5],((C_word*)t2)[6],((C_word*)t2)[7],((C_word*)t2)[8],((C_word*)t2)[9],C_SCHEME_FALSE);}

/* mapwalk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_14081(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
C_word tmp;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(20,0,3)))){
C_save_and_reclaim_args((void *)trf_14081,7,t0,t1,t2,t3,t4,t5,t6);}
a=C_alloc(20);
t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t8=t7;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=((C_word*)t9)[1];
t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14086,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=t5,a[6]=t6,tmp=(C_word)a,a+=7,tmp);
t12=C_i_check_list_2(t2,lf[11]);
t13=C_SCHEME_UNDEFINED;
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14098,a[2]=t9,a[3]=t14,a[4]=t11,a[5]=t10,tmp=(C_word)a,a+=6,tmp));
t16=((C_word*)t14)[1];
f_14098(t16,t1,t2);}

/* g2640 in mapwalk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_14086(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,8)))){
C_save_and_reclaim_args((void *)trf_14086,3,t0,t1,t2);}
C_trace(C_text("core.scm:1540: walk"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_8869(t3,t1,t2,((C_word*)t0)[3],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);}

/* map-loop2634 in mapwalk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_14098(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_14098,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14123,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:1540: g2640"));
t4=((C_word*)t0)[4];
f_14086(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k14121 in map-loop2634 in mapwalk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_14123(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_14123,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_14098(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k14131 in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_14133(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_14133,c,av);}
a=C_alloc(9);
t2=code_821();
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14144,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14148,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1547: scheme#reverse"));
t5=*((C_word*)lf[267]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[78];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k14142 in k14131 in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_14144(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){
C_save_and_reclaim((void *)f_14144,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,lf[141],t1);
C_trace(C_text("core.scm:1545: walk"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_8869(t3,((C_word*)t0)[3],t2,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_TRUE);}

/* k14146 in k14131 in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_14148(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_14148,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=lf[78] /* chicken.compiler.core#pending-canonicalizations */ =C_SCHEME_END_OF_LIST;;
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14158,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1551: scheme#append"));
t5=*((C_word*)lf[6]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=*((C_word*)lf[90]+1);
av2[3]=*((C_word*)lf[20]+1);
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k14156 in k14146 in k14131 in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_14158(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_14158,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate((C_word*)lf[20]+1 /* (set! chicken.compiler.core#extended-bindings ...) */,t1);
t4=C_a_i_list(&a,1,((C_word*)t2)[2]);
C_trace(C_text("core.scm:1546: ##sys#append"));
t5=*((C_word*)lf[162]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=((C_word*)t2)[3];
av2[2]=((C_word*)t2)[4];
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k14162 in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_14164(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_14164,c,av);}
C_trace(C_text("core.scm:1542: chicken.pretty-print#pretty-print"));
t2=C_fast_retrieve(lf[248]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* check-decl in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void f_14172(C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_14172,4,t1,t2,t3,t4);}
t5=C_i_cdr(t2);
t6=C_i_length(t5);
t7=C_i_lessp(t6,t3);
if(C_truep(t7)){
if(C_truep(t7)){
C_trace(C_text("core.scm:1560: ##sys#syntax-error"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[277]);
C_word av2[4];
av2[0]=*((C_word*)lf[277]+1);
av2[1]=t1;
av2[2]=lf[373];
av2[3]=t2;
tp(4,av2);}}
else{
t8=C_SCHEME_UNDEFINED;
t9=t1;{
C_word av2[2];
av2[0]=t9;
av2[1]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
else{
if(C_truep(C_i_nullp(t4))){
if(C_truep(C_i_greaterp(t6,C_fix(99999)))){
C_trace(C_text("core.scm:1560: ##sys#syntax-error"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[277]);
C_word av2[4];
av2[0]=*((C_word*)lf[277]+1);
av2[1]=t1;
av2[2]=lf[373];
av2[3]=t2;
tp(4,av2);}}
else{
t8=C_SCHEME_UNDEFINED;
t9=t1;{
C_word av2[2];
av2[0]=t9;
av2[1]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}
else{
t8=C_i_car(t4);
if(C_truep(C_i_greaterp(t6,t8))){
C_trace(C_text("core.scm:1560: ##sys#syntax-error"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[277]);
C_word av2[4];
av2[0]=*((C_word*)lf[277]+1);
av2[1]=t1;
av2[2]=lf[373];
av2[3]=t2;
tp(4,av2);}}
else{
t9=C_SCHEME_UNDEFINED;
t10=t1;{
C_word av2[2];
av2[0]=t10;
av2[1]=t9;
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}}}

/* globalize in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void f_14207(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_14207,3,t0,t1,t2);}
a=C_alloc(6);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14214,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:1562: local?"));
t4=((C_word*)t0)[4];
f_13339(t4,t3,t2);}

/* k14212 in globalize in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_14214(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_14214,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14217,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1563: note-local"));
f_14232(t2,((C_word*)t0)[4]);}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14224,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1565: lookup"));
t3=((C_word*)((C_word*)t0)[5])[1];
f_8289(t3,t2,((C_word*)t0)[4]);}}

/* k14215 in k14212 in globalize in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_14217(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14217,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k14222 in k14212 in globalize in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_14224(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_14224,c,av);}
C_trace(C_text("core.scm:1565: ##sys#alias-global-hook"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[125]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[125]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
tp(5,av2);}}

/* globalize-all in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void f_14226(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_14226,3,t0,t1,t2);}
a=C_alloc(6);
t3=C_i_check_list_2(t2,lf[9]);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7413,a[2]=((C_word*)t0)[2],a[3]=t5,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_7413(t7,t1,t2);}

/* note-local in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void f_14232(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_14232,2,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14240,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1570: scheme#open-output-string"));
t4=C_fast_retrieve(lf[134]);{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k14238 in note-local in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_14240(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_14240,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[129]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14246,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1570: ##sys#print"));
t5=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[375];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k14244 in k14238 in note-local in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_14246(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_14246,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14249,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1570: ##sys#print"));
t4=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k14247 in k14244 in k14238 in note-local in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_14249(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_14249,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14252,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1570: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[133]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[133]+1);
av2[1]=t2;
av2[2]=C_make_character(39);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k14250 in k14247 in k14244 in k14238 in note-local in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_14252(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_14252,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14255,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1570: scheme#get-output-string"));
t4=C_fast_retrieve(lf[130]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k14253 in k14250 in k14247 in k14244 in k14238 in note-local in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_14255(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_14255,c,av);}
C_trace(C_text("core.scm:1569: ##sys#notice"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[374]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[374]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void f_14260(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_14260,2,t0,t1);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14264,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_pairp(((C_word*)t0)[3]))){
t4=t3;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_14264(2,av2);}}
else{
C_trace(C_text("core.scm:1574: ##sys#syntax-error"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[277]);
C_word av2[4];
av2[0]=*((C_word*)lf[277]+1);
av2[1]=t3;
av2[2]=lf[453];
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}}

/* k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_14264(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_14264,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14267,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1575: chicken.syntax#strip-syntax"));
t4=C_fast_retrieve(lf[154]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_i_car(((C_word*)t2)[3]);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_14267(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word t29;
C_word t30;
C_word t31;
C_word t32;
C_word t33;
C_word t34;
C_word t35;
C_word t36;
C_word t37;
C_word t38;
C_word t39;
C_word t40;
C_word t41;
C_word t42;
C_word t43;
C_word t44;
C_word t45;
C_word t46;
C_word t47;
C_word t48;
C_word t49;
C_word t50;
C_word t51;
C_word t52;
C_word t53;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){
C_save_and_reclaim((void *)f_14267,c,av);}
a=C_alloc(16);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14270,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
t4=C_eqp(t1,lf[377]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14276,a[2]=((C_word*)t2)[2],a[3]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1577: chicken.syntax#strip-syntax"));
t6=C_fast_retrieve(lf[154]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=C_u_i_cdr(((C_word*)t2)[3]);
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t5=C_eqp(t1,lf[378]);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14295,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1581: check-decl"));
f_14172(t6,((C_word*)t2)[3],C_fix(1),C_a_i_list(&a,1,C_fix(1)));}
else{
t6=C_eqp(t1,lf[380]);
if(C_truep(t6)){
if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t2)[3])))){
t7=C_mutate((C_word*)lf[19]+1 /* (set! chicken.compiler.core#standard-bindings ...) */,*((C_word*)lf[89]+1));
t8=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t8;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14337,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14341,a[2]=t7,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1590: globalize-all"));
t9=((C_word*)((C_word*)t2)[5])[1];
f_14226(t9,t8,C_u_i_cdr(((C_word*)t2)[3]));}}
else{
t7=C_eqp(t1,lf[381]);
if(C_truep(t7)){
if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t2)[3])))){
t8=C_mutate((C_word*)lf[20]+1 /* (set! chicken.compiler.core#extended-bindings ...) */,*((C_word*)lf[88]+1));
t9=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t9;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14362,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14366,a[2]=t8,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1594: globalize-all"));
t10=((C_word*)((C_word*)t2)[5])[1];
f_14226(t10,t9,C_u_i_cdr(((C_word*)t2)[3]));}}
else{
t8=C_eqp(t1,lf[382]);
if(C_truep(t8)){
if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t2)[3])))){
t9=C_mutate((C_word*)lf[19]+1 /* (set! chicken.compiler.core#standard-bindings ...) */,*((C_word*)lf[89]+1));
t10=C_mutate((C_word*)lf[20]+1 /* (set! chicken.compiler.core#extended-bindings ...) */,*((C_word*)lf[88]+1));
t11=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t11;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}
else{
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14387,a[2]=((C_word*)t2)[2],a[3]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1600: globalize-all"));
t10=((C_word*)((C_word*)t2)[5])[1];
f_14226(t10,t9,C_u_i_cdr(((C_word*)t2)[3]));}}
else{
t9=C_eqp(t1,lf[383]);
if(C_truep(t9)){
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14408,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1604: check-decl"));
f_14172(t10,((C_word*)t2)[3],C_fix(1),C_a_i_list(&a,1,C_fix(1)));}
else{
t10=C_eqp(t1,lf[385]);
t11=(C_truep(t10)?t10:C_eqp(t1,lf[386]));
if(C_truep(t11)){
t12=C_mutate((C_word*)lf[384]+1 /* (set! chicken.compiler.support#number-type ...) */,lf[385]);
t13=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t13;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}
else{
t12=C_eqp(t1,lf[387]);
if(C_truep(t12)){
t13=C_mutate((C_word*)lf[384]+1 /* (set! chicken.compiler.support#number-type ...) */,lf[387]);
t14=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t14;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}}
else{
t13=C_eqp(t1,lf[388]);
if(C_truep(t13)){
t14=C_set_block_item(lf[156] /* chicken.compiler.support#unsafe */,0,C_SCHEME_TRUE);
t15=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t15;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}}
else{
t14=C_eqp(t1,lf[389]);
if(C_truep(t14)){
t15=C_set_block_item(lf[156] /* chicken.compiler.support#unsafe */,0,C_SCHEME_FALSE);
t16=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t16;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}}
else{
t15=C_eqp(t1,lf[390]);
if(C_truep(t15)){
t16=C_set_block_item(lf[34] /* chicken.compiler.core#no-bound-checks */,0,C_SCHEME_TRUE);
t17=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t17;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}}
else{
t16=C_eqp(t1,lf[391]);
if(C_truep(t16)){
t17=C_set_block_item(lf[35] /* chicken.compiler.core#no-argc-checks */,0,C_SCHEME_TRUE);
t18=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t18;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t18+1)))(2,av2);}}
else{
t17=C_eqp(t1,lf[392]);
if(C_truep(t17)){
t18=C_set_block_item(lf[36] /* chicken.compiler.core#no-procedure-checks */,0,C_SCHEME_TRUE);
t19=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t19;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}}
else{
t18=C_eqp(t1,lf[393]);
if(C_truep(t18)){
t19=C_set_block_item(lf[21] /* chicken.compiler.core#insert-timer-checks */,0,C_SCHEME_FALSE);
t20=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t20;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}}
else{
t19=C_eqp(t1,lf[394]);
if(C_truep(t19)){
t20=C_u_i_cdr(((C_word*)t2)[3]);
t21=C_i_check_list_2(t20,lf[103]);
t22=C_SCHEME_UNDEFINED;
t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp);
t24=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14495,a[2]=t23,tmp=(C_word)a,a+=3,tmp));
t25=((C_word*)t23)[1];
f_14495(t25,t3,t20);}
else{
t20=C_eqp(t1,lf[395]);
if(C_truep(t20)){
t21=lf[38] /* chicken.compiler.core#safe-globals-flag */ =C_SCHEME_TRUE;;
t22=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t22;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}}
else{
t21=C_eqp(t1,lf[396]);
if(C_truep(t21)){
t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14537,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1620: scheme#append"));
t23=*((C_word*)lf[6]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t23;
av2[1]=t22;
av2[2]=*((C_word*)lf[89]+1);
av2[3]=*((C_word*)lf[88]+1);
((C_proc)(void*)(*((C_word*)t23+1)))(4,av2);}}
else{
t22=C_eqp(t1,lf[397]);
if(C_truep(t22)){
t23=C_set_block_item(lf[37] /* chicken.compiler.core#no-global-procedure-checks */,0,C_SCHEME_TRUE);
t24=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t24;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t24+1)))(2,av2);}}
else{
t23=C_eqp(t1,lf[398]);
if(C_truep(t23)){
t24=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14619,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1627: globalize-all"));
t25=((C_word*)((C_word*)t2)[5])[1];
f_14226(t25,t24,C_u_i_cdr(((C_word*)t2)[3]));}
else{
t24=C_eqp(t1,lf[399]);
if(C_truep(t24)){
t25=C_u_i_cdr(((C_word*)t2)[3]);
t26=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14699,a[2]=((C_word*)t2)[2],a[3]=t25,a[4]=t3,a[5]=((C_word*)t2)[3],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:1632: every"));
f_7120(t26,*((C_word*)lf[402]+1),t25);}
else{
t25=C_eqp(t1,lf[403]);
if(C_truep(t25)){
t26=C_set_block_item(lf[26] /* chicken.compiler.core#block-compilation */,0,C_SCHEME_TRUE);
t27=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t27;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t27+1)))(2,av2);}}
else{
t26=C_eqp(t1,lf[404]);
if(C_truep(t26)){
t27=C_set_block_item(lf[26] /* chicken.compiler.core#block-compilation */,0,C_SCHEME_FALSE);
t28=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t28;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t28+1)))(2,av2);}}
else{
t27=C_eqp(t1,lf[405]);
if(C_truep(t27)){
t28=C_set_block_item(lf[45] /* chicken.compiler.core#undefine-shadowed-macros */,0,C_SCHEME_FALSE);
t29=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t29;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t29+1)))(2,av2);}}
else{
t28=C_eqp(t1,lf[406]);
if(C_truep(t28)){
t29=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14741,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1639: globalize-all"));
t30=((C_word*)((C_word*)t2)[5])[1];
f_14226(t30,t29,C_u_i_cdr(((C_word*)t2)[3]));}
else{
t29=C_eqp(t1,lf[408]);
if(C_truep(t29)){
t30=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14786,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1643: globalize-all"));
t31=((C_word*)((C_word*)t2)[5])[1];
f_14226(t31,t30,C_u_i_cdr(((C_word*)t2)[3]));}
else{
t30=C_eqp(t1,lf[410]);
if(C_truep(t30)){
t31=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14826,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[5],a[5]=t3,a[6]=((C_word*)t2)[4],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:1645: check-decl"));
f_14172(t31,((C_word*)t2)[3],C_fix(1),C_SCHEME_END_OF_LIST);}
else{
t31=C_eqp(t1,lf[417]);
if(C_truep(t31)){
t32=C_set_block_item(lf[207] /* ##sys#enable-runtime-macros */,0,C_SCHEME_TRUE);
t33=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t33;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t33+1)))(2,av2);}}
else{
t32=C_eqp(t1,lf[418]);
t33=(C_truep(t32)?t32:C_eqp(t1,lf[419]));
if(C_truep(t33)){
t34=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15086,a[2]=((C_word*)t2)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1688: globalize-all"));
t35=((C_word*)((C_word*)t2)[5])[1];
f_14226(t35,t34,C_u_i_cdr(((C_word*)t2)[3]));}
else{
t34=C_eqp(t1,lf[420]);
if(C_truep(t34)){
t35=C_set_block_item(lf[26] /* chicken.compiler.core#block-compilation */,0,C_SCHEME_TRUE);
t36=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15134,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1694: globalize-all"));
t37=((C_word*)((C_word*)t2)[5])[1];
f_14226(t37,t36,C_u_i_cdr(((C_word*)t2)[3]));}
else{
t35=C_eqp(t1,lf[422]);
if(C_truep(t35)){
t36=C_set_block_item(lf[41] /* chicken.compiler.core#external-protos-first */,0,C_SCHEME_TRUE);
t37=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t37;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t37+1)))(2,av2);}}
else{
t36=C_eqp(t1,lf[411]);
if(C_truep(t36)){
if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t2)[3])))){
t37=C_set_block_item(lf[53] /* chicken.compiler.core#inline-locally */,0,C_SCHEME_TRUE);
t38=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t38;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t38+1)))(2,av2);}}
else{
t37=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15193,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1703: globalize-all"));
t38=((C_word*)((C_word*)t2)[5])[1];
f_14226(t38,t37,C_u_i_cdr(((C_word*)t2)[3]));}}
else{
t37=C_eqp(t1,lf[424]);
if(C_truep(t37)){
t38=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15235,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1705: check-decl"));
f_14172(t38,((C_word*)t2)[3],C_fix(1),C_a_i_list(&a,1,C_fix(1)));}
else{
t38=C_eqp(t1,lf[426]);
if(C_truep(t38)){
t39=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15257,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1713: check-decl"));
f_14172(t39,((C_word*)t2)[3],C_fix(1),C_a_i_list(&a,1,C_fix(1)));}
else{
t39=C_eqp(t1,lf[428]);
if(C_truep(t39)){
t40=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15279,a[2]=t3,a[3]=((C_word*)t2)[5],a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t2)[3],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:1721: globalize-all"));
t41=((C_word*)((C_word*)t2)[5])[1];
f_14226(t41,t40,C_u_i_cdr(((C_word*)t2)[3]));}
else{
t40=C_eqp(t1,lf[431]);
if(C_truep(t40)){
t41=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15337,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
t42=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t43=t42;
t44=(*a=C_VECTOR_TYPE|1,a[1]=t43,tmp=(C_word)a,a+=2,tmp);
t45=((C_word*)t44)[1];
t46=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15413,a[2]=t41,a[3]=t44,a[4]=t45,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1740: chicken.syntax#strip-syntax"));
t47=C_fast_retrieve(lf[154]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t47;
av2[1]=t46;
av2[2]=C_u_i_cdr(((C_word*)t2)[3]);
((C_proc)(void*)(*((C_word*)t47+1)))(3,av2);}}
else{
t41=C_eqp(t1,lf[434]);
if(C_truep(t41)){
if(C_truep(*((C_word*)lf[61]+1))){
t42=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t42;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t42+1)))(2,av2);}}
else{
t42=C_i_nullp(C_u_i_cdr(((C_word*)t2)[3]));
t43=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15471,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(t42)){
t44=C_mutate((C_word*)lf[61]+1 /* (set! chicken.compiler.core#types-output-file ...) */,t42);
t45=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t45;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t45+1)))(2,av2);}}
else{
t44=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15474,a[2]=((C_word*)t2)[2],a[3]=t43,a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
t45=C_i_cadr(((C_word*)t2)[3]);
if(C_truep(C_i_stringp(t45))){
t46=C_u_i_cdr(((C_word*)t2)[3]);
t47=C_i_nullp(C_u_i_cdr(t46));
t48=t44;
f_15474(t48,(C_truep(t47)?C_u_i_car(C_u_i_cdr(((C_word*)t2)[3])):C_SCHEME_FALSE));}
else{
t46=t44;
f_15474(t46,C_SCHEME_FALSE);}}}}
else{
t42=C_eqp(t1,lf[436]);
if(C_truep(t42)){
t43=C_set_block_item(lf[33] /* chicken.compiler.core#emit-profile */,0,C_SCHEME_TRUE);
if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t2)[3])))){
t44=C_mutate((C_word*)lf[46]+1 /* (set! chicken.compiler.core#profiled-procedures ...) */,lf[191]);
t45=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t45;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t45+1)))(2,av2);}}
else{
t44=C_mutate((C_word*)lf[46]+1 /* (set! chicken.compiler.core#profiled-procedures ...) */,lf[192]);
t45=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15523,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1755: globalize-all"));
t46=((C_word*)((C_word*)t2)[5])[1];
f_14226(t46,t45,C_u_i_cdr(((C_word*)t2)[3]));}}
else{
t43=C_eqp(t1,lf[437]);
if(C_truep(t43)){
if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t2)[3])))){
t44=C_set_block_item(lf[52] /* chicken.compiler.core#local-definitions */,0,C_SCHEME_TRUE);
t45=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t45;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t45+1)))(2,av2);}}
else{
t44=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15577,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1762: globalize-all"));
t45=((C_word*)((C_word*)t2)[5])[1];
f_14226(t45,t44,C_u_i_cdr(((C_word*)t2)[3]));}}
else{
t44=C_eqp(t1,lf[414]);
if(C_truep(t44)){
t45=C_set_block_item(lf[54] /* chicken.compiler.core#enable-inline-files */,0,C_SCHEME_TRUE);
t46=C_set_block_item(lf[53] /* chicken.compiler.core#inline-locally */,0,C_SCHEME_TRUE);
if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t2)[3])))){
t47=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15632,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1769: globalize-all"));
t48=((C_word*)((C_word*)t2)[5])[1];
f_14226(t48,t47,C_u_i_cdr(((C_word*)t2)[3]));}
else{
t47=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t47;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t47+1)))(2,av2);}}}
else{
t45=C_eqp(t1,lf[438]);
if(C_truep(t45)){
t46=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15672,a[2]=C_SCHEME_UNDEFINED,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[6],a[5]=((C_word*)t2)[7],a[6]=((C_word*)t2)[8],tmp=(C_word)a,a+=7,tmp);
t47=C_u_i_cdr(((C_word*)t2)[3]);
t48=C_i_check_list_2(t47,lf[103]);
t49=C_SCHEME_UNDEFINED;
t50=(*a=C_VECTOR_TYPE|1,a[1]=t49,tmp=(C_word)a,a+=2,tmp);
t51=C_set_block_item(t50,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15836,a[2]=t50,a[3]=t46,tmp=(C_word)a,a+=4,tmp));
t52=((C_word*)t50)[1];
f_15836(t52,t3,t47);}
else{
t46=C_eqp(t1,lf[447]);
if(C_truep(t46)){
t47=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15864,a[2]=((C_word*)t2)[6],a[3]=C_SCHEME_UNDEFINED,a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t2)[7],a[6]=((C_word*)t2)[8],tmp=(C_word)a,a+=7,tmp);
t48=C_u_i_cdr(((C_word*)t2)[3]);
t49=C_i_check_list_2(t48,lf[103]);
t50=C_SCHEME_UNDEFINED;
t51=(*a=C_VECTOR_TYPE|1,a[1]=t50,tmp=(C_word)a,a+=2,tmp);
t52=C_set_block_item(t51,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15958,a[2]=t51,a[3]=t47,tmp=(C_word)a,a+=4,tmp));
t53=((C_word*)t51)[1];
f_15958(t53,t3,t48);}
else{
t47=C_eqp(t1,lf[450]);
if(C_truep(t47)){
t48=C_set_block_item(lf[58] /* chicken.compiler.core#enable-specialization */,0,C_SCHEME_TRUE);
t49=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t49;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t49+1)))(2,av2);}}
else{
t48=C_eqp(t1,lf[451]);
if(C_truep(t48)){
t49=C_set_block_item(lf[57] /* chicken.compiler.core#strict-variable-types */,0,C_SCHEME_TRUE);
t50=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t50;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t50+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:1824: chicken.base#warning"));
t49=C_fast_retrieve(lf[137]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t49;
av2[1]=t3;
av2[2]=lf[452];
av2[3]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t49+1)))(4,av2);}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}

/* k14268 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_14270(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14270,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k14274 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_14276(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_14276,c,av);}
a=C_alloc(6);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14280,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1578: lset-union/eq?"));
f_7665(t3,*((C_word*)lf[85]+1),C_a_i_list(&a,1,((C_word*)t0)[3]));}

/* k14278 in k14274 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_14280(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_14280,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=C_mutate((C_word*)lf[85]+1 /* (set! chicken.compiler.core#used-libraries ...) */,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14284,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1579: lset-union/eq?"));
f_7665(t4,*((C_word*)lf[84]+1),C_a_i_list(&a,1,((C_word*)t2)[3]));}

/* k14282 in k14278 in k14274 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_14284(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14284,c,av);}
t2=C_mutate((C_word*)lf[84]+1 /* (set! chicken.compiler.core#linked-libraries ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14293 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_14295(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_14295,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14298,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1582: chicken.syntax#strip-syntax"));
t3=C_fast_retrieve(lf[154]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_cadr(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k14296 in k14293 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_14298(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_14298,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14301,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t4=(C_truep(*((C_word*)lf[18]+1))?C_i_not(C_eqp(*((C_word*)lf[18]+1),((C_word*)t0)[2])):C_SCHEME_FALSE);
if(C_truep(t4)){
C_trace(C_text("core.scm:1584: chicken.base#warning"));
t5=C_fast_retrieve(lf[137]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=lf[379];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t5=C_mutate((C_word*)lf[18]+1 /* (set! chicken.compiler.core#unit-name ...) */,((C_word*)t0)[2]);
t6=C_set_block_item(lf[51] /* chicken.compiler.core#standalone-executable */,0,C_SCHEME_FALSE);
t7=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t7;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* k14299 in k14296 in k14293 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_14301(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14301,c,av);}
t2=((C_word*)t0)[2];
t3=C_mutate((C_word*)lf[18]+1 /* (set! chicken.compiler.core#unit-name ...) */,((C_word*)t2)[2]);
t4=C_set_block_item(lf[51] /* chicken.compiler.core#standalone-executable */,0,C_SCHEME_FALSE);
t5=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t5;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k14335 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_14337(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14337,c,av);}
t2=C_mutate((C_word*)lf[19]+1 /* (set! chicken.compiler.core#standard-bindings ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14339 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_14341(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_14341,c,av);}
C_trace(C_text("core.scm:1590: scheme#append"));
t2=*((C_word*)lf[6]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=*((C_word*)lf[19]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k14360 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_14362(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14362,c,av);}
t2=C_mutate((C_word*)lf[20]+1 /* (set! chicken.compiler.core#extended-bindings ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14364 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_14366(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_14366,c,av);}
C_trace(C_text("core.scm:1594: scheme#append"));
t2=*((C_word*)lf[6]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=*((C_word*)lf[20]+1);
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k14385 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_14387(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_14387,c,av);}
a=C_alloc(6);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14391,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1601: lset-intersection/eq?"));
f_7744(t3,((C_word*)t0)[3],C_a_i_list(&a,1,*((C_word*)lf[89]+1)));}

/* k14389 in k14385 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_14391(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_14391,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=C_mutate((C_word*)lf[19]+1 /* (set! chicken.compiler.core#standard-bindings ...) */,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14395,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1602: lset-intersection/eq?"));
f_7744(t4,((C_word*)t2)[3],C_a_i_list(&a,1,*((C_word*)lf[88]+1)));}

/* k14393 in k14389 in k14385 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_14395(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14395,c,av);}
t2=C_mutate((C_word*)lf[20]+1 /* (set! chicken.compiler.core#extended-bindings ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14406 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_14408(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_14408,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14412,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1605: chicken.syntax#strip-syntax"));
t3=C_fast_retrieve(lf[154]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_cadr(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k14410 in k14406 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_14412(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14412,c,av);}
t2=C_mutate((C_word*)lf[384]+1 /* (set! chicken.compiler.support#number-type ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* for-each-loop2747 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void f_14495(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_14495,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14505,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=C_fast_retrieve(lf[166]);
C_trace(C_text("core.scm:1615: g2763"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word av2[4];
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[167];
tp(4,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k14503 in for-each-loop2747 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_14505(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_14505,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_14495(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k14535 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_14537(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_14537,c,av);}
a=C_alloc(8);
t2=C_i_check_list_2(t1,lf[103]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14543,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14582,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_14582(t7,t3,t1);}

/* k14541 in k14535 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_14543(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_14543,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14551,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1623: scheme#append"));
t3=*((C_word*)lf[6]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=*((C_word*)lf[89]+1);
av2[3]=*((C_word*)lf[88]+1);
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k14549 in k14541 in k14535 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_14551(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_14551,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(t1,lf[103]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14559,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_14559(t6,((C_word*)t0)[2],t1);}

/* for-each-loop2797 in k14549 in k14541 in k14535 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void f_14559(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_14559,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14569,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=C_fast_retrieve(lf[166]);
C_trace(C_text("core.scm:1622: g2813"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word av2[4];
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[167];
tp(4,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k14567 in for-each-loop2797 in k14549 in k14541 in k14535 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_14569(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_14569,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_14559(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* for-each-loop2772 in k14535 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void f_14582(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_14582,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14592,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=C_fast_retrieve(lf[166]);
C_trace(C_text("core.scm:1619: g2788"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word av2[4];
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[303];
tp(4,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k14590 in for-each-loop2772 in k14535 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_14592(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_14592,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_14582(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k14617 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_14619(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_14619,c,av);}
a=C_alloc(9);
t2=C_i_check_list_2(t1,lf[103]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14630,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14663,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_14663(t7,t3,t1);}

/* k14628 in k14617 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_14630(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_14630,c,av);}
a=C_alloc(5);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14640,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t5=((C_word*)t3)[1];
f_14640(t5,((C_word*)t0)[2],((C_word*)t0)[3]);}

/* for-each-loop2834 in k14628 in k14617 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void f_14640(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_14640,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14650,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=C_fast_retrieve(lf[166]);
C_trace(C_text("core.scm:1629: g2865"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word av2[4];
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[167];
tp(4,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k14648 in for-each-loop2834 in k14628 in k14617 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_14650(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_14650,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_14640(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* for-each-loop2824 in k14617 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void f_14663(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_14663,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14673,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=C_fast_retrieve(lf[166]);
C_trace(C_text("core.scm:1628: g2850"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word av2[4];
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[303];
tp(4,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k14671 in for-each-loop2824 in k14617 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_14673(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_14673,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_14663(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k14697 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_14699(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_14699,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14703,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1633: scheme#append"));
t3=*((C_word*)lf[6]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=*((C_word*)lf[23]+1);
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
C_trace(C_text("core.scm:1634: ##sys#syntax-error"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[277]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[277]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=lf[400];
av2[3]=lf[401];
av2[4]=((C_word*)t0)[5];
tp(5,av2);}}}

/* k14701 in k14697 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_14703(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14703,c,av);}
t2=C_mutate((C_word*)lf[23]+1 /* (set! chicken.compiler.core#foreign-declarations ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14739 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_14741(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_14741,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(t1,lf[103]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14749,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_14749(t6,((C_word*)t0)[2],t1);}

/* for-each-loop2876 in k14739 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void f_14749(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_14749,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14759,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=C_fast_retrieve(lf[166]);
C_trace(C_text("core.scm:1639: g2892"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word av2[4];
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[407];
tp(4,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k14757 in for-each-loop2876 in k14739 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_14759(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_14759,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_14749(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k14784 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_14786(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_14786,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(t1,lf[103]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14794,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_14794(t6,((C_word*)t0)[2],t1);}

/* for-each-loop2901 in k14784 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void f_14794(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_14794,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14804,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=C_fast_retrieve(lf[166]);
C_trace(C_text("core.scm:1642: g2917"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word av2[4];
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[409];
tp(4,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k14802 in for-each-loop2901 in k14784 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_14804(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_14804,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_14794(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k14824 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_14826(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_14826,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14829,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1646: chicken.syntax#strip-syntax"));
t3=C_fast_retrieve(lf[154]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_cadr(((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k14827 in k14824 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_14829(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_14829,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=C_eqp(t1,lf[380]);
if(C_truep(t3)){
t4=C_i_cddr(((C_word*)t2)[2]);
if(C_truep(C_i_nullp(t4))){
t5=C_set_block_item(lf[19] /* chicken.compiler.core#standard-bindings */,0,C_SCHEME_END_OF_LIST);
t6=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t6;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14846,a[2]=((C_word*)t2)[3],tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14850,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
t7=C_u_i_cdr(((C_word*)t2)[2]);
C_trace(C_text("core.scm:1652: globalize-all"));
t8=((C_word*)((C_word*)t2)[4])[1];
f_14226(t8,t6,C_u_i_cdr(t7));}}
else{
t4=C_eqp(t1,lf[381]);
if(C_truep(t4)){
t5=C_i_cddr(((C_word*)t2)[2]);
if(C_truep(C_i_nullp(t5))){
t6=C_set_block_item(lf[20] /* chicken.compiler.core#extended-bindings */,0,C_SCHEME_END_OF_LIST);
t7=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t7;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14874,a[2]=((C_word*)t2)[3],tmp=(C_word)a,a+=3,tmp);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14878,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
t8=C_u_i_cdr(((C_word*)t2)[2]);
C_trace(C_text("core.scm:1658: globalize-all"));
t9=((C_word*)((C_word*)t2)[4])[1];
f_14226(t9,t7,C_u_i_cdr(t8));}}
else{
t5=C_eqp(t1,lf[411]);
if(C_truep(t5)){
t6=C_i_cddr(((C_word*)t2)[2]);
if(C_truep(C_i_nullp(t6))){
t7=C_set_block_item(lf[53] /* chicken.compiler.core#inline-locally */,0,C_SCHEME_FALSE);
t8=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t8;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14906,a[2]=((C_word*)t2)[5],tmp=(C_word)a,a+=3,tmp);
t8=C_u_i_cdr(((C_word*)t2)[2]);
C_trace(C_text("core.scm:1664: globalize-all"));
t9=((C_word*)((C_word*)t2)[4])[1];
f_14226(t9,t7,C_u_i_cdr(t8));}}
else{
t6=C_eqp(t1,lf[382]);
if(C_truep(t6)){
t7=C_i_cddr(((C_word*)t2)[2]);
if(C_truep(C_i_nullp(t7))){
t8=C_set_block_item(lf[19] /* chicken.compiler.core#standard-bindings */,0,C_SCHEME_END_OF_LIST);
t9=C_set_block_item(lf[20] /* chicken.compiler.core#extended-bindings */,0,C_SCHEME_END_OF_LIST);
t10=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t10;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14959,a[2]=((C_word*)t2)[3],a[3]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=4,tmp);
t9=C_u_i_cdr(((C_word*)t2)[2]);
C_trace(C_text("core.scm:1670: globalize-all"));
t10=((C_word*)((C_word*)t2)[4])[1];
f_14226(t10,t8,C_u_i_cdr(t9));}}
else{
t7=C_eqp(t1,lf[414]);
if(C_truep(t7)){
t8=C_set_block_item(lf[54] /* chicken.compiler.core#enable-inline-files */,0,C_SCHEME_TRUE);
t9=C_i_cddr(((C_word*)t2)[2]);
if(C_truep(C_i_pairp(t9))){
t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14995,a[2]=((C_word*)t2)[5],tmp=(C_word)a,a+=3,tmp);
t11=C_u_i_cdr(((C_word*)t2)[2]);
C_trace(C_text("core.scm:1678: globalize-all"));
t12=((C_word*)((C_word*)t2)[4])[1];
f_14226(t12,t10,C_u_i_cdr(t11));}
else{
t10=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t10;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}
else{
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15034,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[2],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1680: check-decl"));
f_14172(t8,((C_word*)t2)[2],C_fix(1),C_a_i_list(&a,1,C_fix(1)));}}}}}}

/* k14844 in k14827 in k14824 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_14846(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14846,c,av);}
t2=C_mutate((C_word*)lf[19]+1 /* (set! chicken.compiler.core#standard-bindings ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14848 in k14827 in k14824 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_14850(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_14850,c,av);}
a=C_alloc(3);
C_trace(C_text("core.scm:1651: lset-difference/eq?"));
f_7620(((C_word*)t0)[2],*((C_word*)lf[89]+1),C_a_i_list(&a,1,t1));}

/* k14872 in k14827 in k14824 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_14874(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14874,c,av);}
t2=C_mutate((C_word*)lf[20]+1 /* (set! chicken.compiler.core#extended-bindings ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14876 in k14827 in k14824 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_14878(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_14878,c,av);}
a=C_alloc(3);
C_trace(C_text("core.scm:1657: lset-difference/eq?"));
f_7620(((C_word*)t0)[2],*((C_word*)lf[88]+1),C_a_i_list(&a,1,t1));}

/* k14904 in k14827 in k14824 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_14906(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_14906,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(t1,lf[103]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14914,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_14914(t6,((C_word*)t0)[2],t1);}

/* for-each-loop2932 in k14904 in k14827 in k14824 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void f_14914(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_14914,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14924,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=C_fast_retrieve(lf[166]);
C_trace(C_text("core.scm:1663: g2948"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word av2[5];
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[412];
av2[4]=lf[413];
tp(5,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k14922 in for-each-loop2932 in k14904 in k14827 in k14824 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_14924(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_14924,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_14914(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k14957 in k14827 in k14824 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_14959(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_14959,c,av);}
a=C_alloc(6);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14963,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1671: lset-difference/eq?"));
f_7620(t3,*((C_word*)lf[89]+1),C_a_i_list(&a,1,((C_word*)t0)[3]));}

/* k14961 in k14957 in k14827 in k14824 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_14963(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_14963,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=C_mutate((C_word*)lf[19]+1 /* (set! chicken.compiler.core#standard-bindings ...) */,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14967,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1672: lset-difference/eq?"));
f_7620(t4,*((C_word*)lf[88]+1),C_a_i_list(&a,1,((C_word*)t2)[3]));}

/* k14965 in k14961 in k14957 in k14827 in k14824 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_14967(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_14967,c,av);}
t2=C_mutate((C_word*)lf[20]+1 /* (set! chicken.compiler.core#extended-bindings ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k14993 in k14827 in k14824 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_14995(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_14995,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(t1,lf[103]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15003,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_15003(t6,((C_word*)t0)[2],t1);}

/* for-each-loop2964 in k14993 in k14827 in k14824 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void f_15003(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_15003,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15013,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=C_fast_retrieve(lf[166]);
C_trace(C_text("core.scm:1677: g2980"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word av2[5];
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[415];
av2[4]=lf[413];
tp(5,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k15011 in for-each-loop2964 in k14993 in k14827 in k14824 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_15013(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_15013,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_15003(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k15032 in k14827 in k14824 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_15034(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_15034,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15037,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1681: chicken.syntax#strip-syntax"));
t3=C_fast_retrieve(lf[154]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_i_cadr(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k15035 in k15032 in k14827 in k14824 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_15037(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_15037,c,av);}
t2=C_eqp(t1,lf[389]);
if(C_truep(t2)){
t3=C_set_block_item(lf[156] /* chicken.compiler.support#unsafe */,0,C_SCHEME_TRUE);
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:1684: chicken.base#warning"));
t3=C_fast_retrieve(lf[137]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[416];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k15084 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_15086(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_15086,c,av);}
a=C_alloc(6);
if(C_truep(C_i_nullp(t1))){
t2=C_set_block_item(lf[26] /* chicken.compiler.core#block-compilation */,0,C_SCHEME_TRUE);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=C_fast_retrieve(lf[165]);
t3=C_i_check_list_2(t1,lf[103]);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15101,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_15101(t7,((C_word*)t0)[3],t1);}}

/* for-each-loop3003 in k15084 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void f_15101(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_15101,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15111,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1691: g3004"));
t4=((C_word*)t0)[3];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k15109 in for-each-loop3003 in k15084 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_15111(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_15111,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_15101(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k15132 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_15134(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_15134,c,av);}
a=C_alloc(6);
t2=C_fast_retrieve(lf[421]);
t3=C_i_check_list_2(t1,lf[103]);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15142,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_15142(t7,((C_word*)t0)[2],t1);}

/* for-each-loop3021 in k15132 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void f_15142(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_15142,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15152,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1695: g3022"));
t4=((C_word*)t0)[3];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k15150 in for-each-loop3021 in k15132 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_15152(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_15152,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_15142(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k15191 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_15193(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_15193,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(t1,lf[103]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15201,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_15201(t6,((C_word*)t0)[2],t1);}

/* for-each-loop3039 in k15191 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void f_15201(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_15201,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15211,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=C_fast_retrieve(lf[166]);
C_trace(C_text("core.scm:1702: g3055"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word av2[4];
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[423];
tp(4,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k15209 in for-each-loop3039 in k15191 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_15211(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_15211,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_15201(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k15233 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_15235(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_15235,c,av);}
t2=C_i_cadr(((C_word*)t0)[2]);
if(C_truep(C_i_numberp(t2))){
t3=C_mutate((C_word*)lf[42]+1 /* (set! chicken.compiler.core#inline-max-size ...) */,t2);
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:1709: chicken.base#warning"));
t3=C_fast_retrieve(lf[137]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[425];
av2[3]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k15255 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_15257(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_15257,c,av);}
t2=C_i_cadr(((C_word*)t0)[2]);
if(C_truep(C_i_numberp(t2))){
t3=C_mutate((C_word*)lf[43]+1 /* (set! chicken.compiler.core#unroll-limit ...) */,t2);
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:1717: chicken.base#warning"));
t3=C_fast_retrieve(lf[137]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=lf[427];
av2[3]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k15277 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_15279(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_15279,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15285,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1722: every"));
f_7120(t3,*((C_word*)lf[109]+1),((C_word*)t0)[4]);}

/* k15283 in k15277 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_15285(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_15285,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15293,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1725: globalize-all"));
t4=((C_word*)((C_word*)t2)[3])[1];
f_14226(t4,t3,((C_word*)t2)[4]);}
else{
C_trace(C_text("core.scm:1726: chicken.compiler.support#quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[126]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=lf[430];
av2[3]=((C_word*)t2)[5];
tp(4,av2);}}}

/* k15291 in k15283 in k15277 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_15293(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_15293,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(t1,lf[103]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15301,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_15301(t6,((C_word*)t0)[2],t1);}

/* for-each-loop3069 in k15291 in k15283 in k15277 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void f_15301(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_15301,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15311,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=C_fast_retrieve(lf[166]);
C_trace(C_text("core.scm:1724: g3085"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word av2[5];
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[429];
av2[4]=C_SCHEME_TRUE;
tp(5,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k15309 in for-each-loop3069 in k15291 in k15283 in k15277 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_15311(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_15311,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_15301(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k15335 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_15337(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_15337,c,av);}
t2=C_mutate((C_word*)lf[47]+1 /* (set! chicken.compiler.core#import-libraries ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k15354 in map-loop3094 in k15411 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_15356(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_15356,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
f_15446(2,av2);}}

/* k15358 in map-loop3094 in k15411 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_15360(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_15360,c,av);}
C_trace(C_text("##sys#string-append"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[261]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[261]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[432];
tp(4,av2);}}

/* k15365 in map-loop3094 in k15411 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void f_15367(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_15367,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
t2=C_i_car(((C_word*)t0)[2]);
t3=C_i_cadr(((C_word*)t0)[2]);
t4=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t4;
av2[1]=C_a_i_cons(&a,2,t2,t3);
f_15446(2,av2);}}
else{
C_trace(C_text("core.scm:1739: chicken.compiler.support#quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word av2[4];
av2[0]=*((C_word*)lf[126]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[433];
av2[3]=((C_word*)t0)[2];
tp(4,av2);}}}

/* k15411 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_15413(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_15413,c,av);}
a=C_alloc(10);
t2=C_i_check_list_2(t1,lf[11]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15419,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15421,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_15421(t7,t3,t1);}

/* k15417 in k15411 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_15419(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_15419,c,av);}
C_trace(C_text("core.scm:1730: scheme#append"));
t2=*((C_word*)lf[6]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=*((C_word*)lf[47]+1);
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* map-loop3094 in k15411 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void f_15421(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){
C_save_and_reclaim_args((void *)trf_15421,3,t0,t1,t2);}
a=C_alloc(13);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15446,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t4=C_slot(t2,C_fix(0));
if(C_truep(C_i_symbolp(t4))){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15356,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15360,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1734: scheme#symbol->string"));
t7=*((C_word*)lf[263]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15367,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_listp(t4))){
t6=C_eqp(C_fix(2),C_u_i_length(t4));
if(C_truep(t6)){
t7=C_i_car(t4);
t8=C_i_symbolp(t7);
t9=t5;
f_15367(t9,(C_truep(t8)?C_i_stringp(C_i_cadr(t4)):C_SCHEME_FALSE));}
else{
t7=t5;
f_15367(t7,C_SCHEME_FALSE);}}
else{
t6=t5;
f_15367(t6,C_SCHEME_FALSE);}}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k15444 in map-loop3094 in k15411 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_15446(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_15446,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_15421(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k15469 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_15471(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_15471,c,av);}
t2=C_mutate((C_word*)lf[61]+1 /* (set! chicken.compiler.core#types-output-file ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k15472 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void f_15474(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_15474,2,t0,t1);}
if(C_truep(t1)){
t2=C_mutate((C_word*)lf[61]+1 /* (set! chicken.compiler.core#types-output-file ...) */,t1);
t3=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=lf[376];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:1746: chicken.compiler.support#quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word av2[4];
av2[0]=*((C_word*)lf[126]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[435];
av2[3]=((C_word*)t0)[4];
tp(4,av2);}}}

/* k15521 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_15523(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_15523,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(t1,lf[103]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15531,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_15531(t6,((C_word*)t0)[2],t1);}

/* for-each-loop3140 in k15521 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void f_15531(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_15531,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15541,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=C_fast_retrieve(lf[166]);
C_trace(C_text("core.scm:1754: g3156"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word av2[4];
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[194];
tp(4,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k15539 in for-each-loop3140 in k15521 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_15541(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_15541,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_15531(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k15575 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_15577(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_15577,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(t1,lf[103]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15585,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_15585(t6,((C_word*)t0)[2],t1);}

/* for-each-loop3171 in k15575 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void f_15585(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_15585,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15595,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=C_fast_retrieve(lf[166]);
C_trace(C_text("core.scm:1761: g3187"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word av2[4];
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[423];
tp(4,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k15593 in for-each-loop3171 in k15575 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_15595(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_15595,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_15585(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k15630 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_15632(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_15632,c,av);}
a=C_alloc(5);
t2=C_i_check_list_2(t1,lf[103]);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15640,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_15640(t6,((C_word*)t0)[2],t1);}

/* for-each-loop3196 in k15630 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void f_15640(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_15640,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15650,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_slot(t2,C_fix(0));
t5=C_fast_retrieve(lf[166]);
C_trace(C_text("core.scm:1768: g3212"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word av2[5];
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[415];
av2[4]=lf[238];
tp(5,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k15648 in for-each-loop3196 in k15630 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_15650(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_15650,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_15640(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* g3224 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void f_15672(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_15672,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+3,t2);
t4=C_mutate(((C_word *)t0)+2,t1);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15679,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_listp(((C_word*)t0)[3]))){
if(C_truep(C_fixnum_greater_or_equal_p(C_u_i_length(((C_word*)t0)[3]),C_fix(2)))){
t6=C_i_car(((C_word*)t0)[3]);
t7=t5;
f_15679(t7,C_i_not(C_i_symbolp(t6)));}
else{
t6=t5;
f_15679(t6,C_SCHEME_TRUE);}}
else{
t6=t5;
f_15679(t6,C_SCHEME_TRUE);}}

/* k15677 in g3224 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void f_15679(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
C_save_and_reclaim_args((void *)trf_15679,2,t0,t1);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15686,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1776: chicken.syntax#strip-syntax"));
t4=C_fast_retrieve(lf[154]);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15689,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[3],a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t2)[5],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:1777: globalize"));
t4=((C_word*)((C_word*)t2)[6])[1];
f_14207(t4,t3,C_i_car(((C_word*)t2)[3]));}}

/* k15684 in k15677 in g3224 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_15686(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_15686,c,av);}
C_trace(C_text("core.scm:1776: chicken.base#warning"));
t2=C_fast_retrieve(lf[137]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[439];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k15687 in k15677 in g3224 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_15689(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_15689,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+5,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15692,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1778: chicken.syntax#strip-syntax"));
t4=C_fast_retrieve(lf[154]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_i_cadr(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k15690 in k15687 in k15677 in g3224 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_15692(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_15692,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15698,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=t1,a[6]=((C_word*)t2)[5],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:1779: local?"));
t4=((C_word*)t2)[6];
f_13339(t4,t3,C_u_i_car(((C_word*)t2)[4]));}

/* k15696 in k15690 in k15687 in k15677 in g3224 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_15698(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
C_save_and_reclaim((void *)f_15698,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
C_trace(C_text("core.scm:1780: note-local"));
f_14232(((C_word*)t0)[3],C_u_i_car(((C_word*)t0)[4]));}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15708,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15714,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1781: ##sys#call-with-values"));{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[3];
av2[2]=t2;
av2[3]=t3;
C_call_with_values(4,av2);}}}

/* a15707 in k15696 in k15690 in k15687 in k15677 in g3224 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void C_ccall f_15708(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_15708,c,av);}
C_trace(C_text("core.scm:1781: chicken.compiler.scrutinizer#validate-type"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[440]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[440]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* a15713 in k15696 in k15690 in k15687 in k15677 in g3224 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void C_ccall f_15714(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_15714,c,av);}
a=C_alloc(8);
if(C_truep(t2)){
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15762,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t3,a[7]=t4,tmp=(C_word)a,a+=8,tmp);
if(C_truep(C_i_pairp(t2))){
t6=C_eqp(lf[445],C_u_i_car(t2));
t7=t5;
f_15762(t7,(C_truep(t6)?C_i_symbolp(C_i_cadr(t2)):C_SCHEME_FALSE));}
else{
t6=t5;
f_15762(t6,C_SCHEME_FALSE);}}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15794,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1803: chicken.syntax#strip-syntax"));
t6=C_fast_retrieve(lf[154]);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}

/* k15722 in k15760 in a15713 in k15696 in k15690 in k15687 in k15677 in g3224 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_15724(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_15724,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15727,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1791: chicken.compiler.support#mark-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[443];
av2[4]=lf[437];
tp(5,av2);}}

/* k15725 in k15722 in k15760 in a15713 in k15696 in k15690 in k15687 in k15677 in g3224 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in ... */
static void C_ccall f_15727(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_15727,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15730,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)t2)[6])){
C_trace(C_text("core.scm:1793: chicken.compiler.support#mark-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=lf[429];
av2[4]=C_SCHEME_TRUE;
tp(5,av2);}}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_15730(2,av2);}}}

/* k15728 in k15725 in k15722 in k15760 in a15713 in k15696 in k15690 in k15687 in k15677 in g3224 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in ... */
static void C_ccall f_15730(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_15730,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15733,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(((C_word*)t0)[5])){
C_trace(C_text("core.scm:1795: chicken.compiler.support#mark-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[442];
av2[4]=((C_word*)t0)[5];
tp(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_15733(2,av2);}}}

/* k15731 in k15728 in k15725 in k15722 in k15760 in a15713 in k15696 in k15690 in k15687 in k15677 in g3224 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in ... */
static void C_ccall f_15733(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_15733,c,av);}
a=C_alloc(4);
t2=C_i_cddr(((C_word*)t0)[2]);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15746,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
t4=C_u_i_cdr(((C_word*)t0)[2]);
C_trace(C_text("core.scm:1799: chicken.syntax#strip-syntax"));
t5=C_fast_retrieve(lf[154]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=C_u_i_cdr(t4);
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k15744 in k15731 in k15728 in k15725 in k15722 in k15760 in a15713 in k15696 in k15690 in k15687 in k15677 in g3224 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in ... */
static void C_ccall f_15746(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_15746,c,av);}
C_trace(C_text("core.scm:1797: chicken.compiler.scrutinizer#install-specializations"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[441]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[441]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* k15760 in a15713 in k15696 in k15690 in k15687 in k15677 in g3224 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in ... */
static void f_15762(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){
C_save_and_reclaim_args((void *)trf_15762,2,t0,t1);}
a=C_alloc(7);
t2=(C_truep(t1)?C_i_set_car(C_i_cdr(((C_word*)t0)[2]),((C_word*)t0)[3]):C_SCHEME_UNDEFINED);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15724,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:1790: chicken.compiler.support#mark-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word av2[5];
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[444];
av2[4]=((C_word*)t0)[2];
tp(5,av2);}}

/* k15792 in a15713 in k15696 in k15690 in k15687 in k15677 in g3224 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in ... */
static void C_ccall f_15794(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_15794,c,av);}
C_trace(C_text("core.scm:1801: chicken.base#warning"));
t2=C_fast_retrieve(lf[137]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[446];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* for-each-loop3223 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void f_15836(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_15836,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15846,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1771: g3224"));
t4=((C_word*)t0)[3];
f_15672(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k15844 in for-each-loop3223 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_15846(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_15846,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_15836(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* g3268 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void f_15864(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_15864,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+4,t2);
t4=C_mutate(((C_word *)t0)+3,t1);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15871,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_i_listp(((C_word*)t0)[4]))){
t6=C_i_car(((C_word*)t0)[4]);
t7=C_i_symbolp(t6);
t8=t5;
f_15871(t8,(C_truep(t7)?C_eqp(C_fix(2),C_i_length(((C_word*)t0)[4])):C_SCHEME_FALSE));}
else{
t6=t5;
f_15871(t6,C_SCHEME_FALSE);}}

/* k15869 in g3268 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void f_15871(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_15871,2,t0,t1);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15874,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t2)[5],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:1809: globalize"));
t4=((C_word*)((C_word*)t2)[6])[1];
f_14207(t4,t3,C_i_car(((C_word*)t2)[4]));}
else{
C_trace(C_text("core.scm:1818: chicken.base#warning"));
t3=C_fast_retrieve(lf[137]);{
C_word av2[4];
av2[0]=t3;
av2[1]=((C_word*)t2)[3];
av2[2]=lf[449];
av2[3]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}

/* k15872 in k15869 in g3268 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_15874(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_15874,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+5,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15877,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1810: chicken.syntax#strip-syntax"));
t4=C_fast_retrieve(lf[154]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_i_cadr(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k15875 in k15872 in k15869 in g3268 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_15877(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_15877,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15883,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=t1,a[6]=((C_word*)t2)[5],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:1811: local?"));
t4=((C_word*)t2)[6];
f_13339(t4,t3,C_u_i_car(((C_word*)t2)[4]));}

/* k15881 in k15875 in k15872 in k15869 in g3268 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_15883(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
C_save_and_reclaim((void *)f_15883,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
C_trace(C_text("core.scm:1812: note-local"));
f_14232(((C_word*)t0)[3],C_u_i_car(((C_word*)t0)[4]));}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15893,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15899,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1813: ##sys#call-with-values"));{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[3];
av2[2]=t2;
av2[3]=t3;
C_call_with_values(4,av2);}}}

/* a15892 in k15881 in k15875 in k15872 in k15869 in g3268 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void C_ccall f_15893(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_15893,c,av);}
C_trace(C_text("core.scm:1813: chicken.compiler.scrutinizer#validate-type"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[440]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[440]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* a15898 in k15881 in k15875 in k15872 in k15869 in g3268 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void C_ccall f_15899(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_15899,c,av);}
t5=(C_truep(t2)?C_i_not(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
C_trace(C_text("core.scm:1815: chicken.compiler.support#mark-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word *av2=av;
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=lf[442];
av2[4]=t2;
tp(5,av2);}}
else{
C_trace(C_text("core.scm:1816: chicken.base#warning"));
t6=C_fast_retrieve(lf[137]);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t1;
av2[2]=lf[448];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}

/* for-each-loop3267 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void f_15958(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_15958,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15968,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1806: g3268"));
t4=((C_word*)t0)[3];
f_15864(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k15966 in for-each-loop3267 in k14265 in k14262 in a14259 in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_15968(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_15968,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_15958(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* chicken.compiler.core#build-toplevel-procedure in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16104(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_16104,c,av);}
a=C_alloc(3);
t3=C_a_i_list1(&a,1,t2);
C_trace(C_text("core.scm:1831: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=t1;
av2[2]=lf[493];
av2[3]=lf[494];
av2[4]=t3;
tp(5,av2);}}

/* chicken.compiler.core#foreign-stub-id in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16136(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16136,c,av);}
t3=C_i_check_structure(t2,lf[496]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(1));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#foreign-stub-return-type in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16154(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16154,c,av);}
t3=C_i_check_structure(t2,lf[496]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(2));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#foreign-stub-name in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16172(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16172,c,av);}
t3=C_i_check_structure(t2,lf[496]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(3));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#foreign-stub-argument-types in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16190(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16190,c,av);}
t3=C_i_check_structure(t2,lf[496]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(4));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#foreign-stub-argument-names in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16208(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16208,c,av);}
t3=C_i_check_structure(t2,lf[496]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(5));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#foreign-stub-body in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16226(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16226,c,av);}
t3=C_i_check_structure(t2,lf[496]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(6));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#foreign-stub-cps in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16244(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16244,c,av);}
t3=C_i_check_structure(t2,lf[496]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(7));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#foreign-stub-callback in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16262(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_16262,c,av);}
t3=C_i_check_structure(t2,lf[496]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(8));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_16271(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8){
C_word tmp;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_16271,8,t1,t2,t3,t4,t5,t6,t7,t8);}
a=C_alloc(9);
t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16358,a[2]=t3,a[3]=t5,a[4]=t6,a[5]=t8,a[6]=t7,a[7]=t1,a[8]=t4,tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:1860: chicken.syntax#strip-syntax"));
t10=C_fast_retrieve(lf[154]);{
C_word av2[3];
av2[0]=t10;
av2[1]=t9;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}

/* loop in map-loop3459 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_16280(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_16280,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_nullp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=lf[510];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep(C_i_listp(t2))){
t3=C_i_car(t2);
t4=C_eqp(t3,lf[338]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16309,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16313,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1855: loop"));
t8=t6;
t9=C_u_i_cdr(t2);
t1=t8;
t2=t9;
goto loop;}
else{
t5=C_eqp(t3,lf[513]);
t6=(C_truep(t5)?t5:C_eqp(t3,lf[514]));
if(C_truep(t6)){
C_trace(C_text("core.scm:1856: loop"));
t8=t1;
t9=C_u_i_cdr(t2);
t1=t8;
t2=t9;
goto loop;}
else{
C_trace(C_text("core.scm:1857: loop"));
t8=t1;
t9=C_u_i_car(t2);
t1=t8;
t2=t9;
goto loop;}}}
else{
t3=C_i_symbolp(t2);
if(C_truep(t3)){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=(C_truep(t3)?t2:lf[510]);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_stringp(t2);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(C_truep(t4)?t2:lf[510]);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}}}

/* k16307 in loop in map-loop3459 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16309(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16309,c,av);}
C_trace(C_text("core.scm:1855: scheme#string->symbol"));
t2=*((C_word*)lf[507]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k16311 in loop in map-loop3459 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16313(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_16313,c,av);}
C_trace(C_text("core.scm:1855: chicken.string#conc"));
t2=C_fast_retrieve(lf[511]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[512];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16358(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_16358,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16361,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:1861: chicken.syntax#strip-syntax"));
t3=C_fast_retrieve(lf[154]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16361(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){
C_save_and_reclaim((void *)f_16361,c,av);}
a=C_alloc(25);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_16364,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=C_SCHEME_UNDEFINED,a[11]=((C_word*)t0)[8],a[12]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=13,tmp);
if(C_truep(((C_word*)t0)[4])){
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=C_i_check_list_2(((C_word*)t0)[4],lf[11]);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16574,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_16574(t11,t2,((C_word*)t0)[4]);}
else{
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=C_i_check_list_2(t1,lf[11]);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16626,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_16626(t11,t2,t1);}}

/* k16362 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16364(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_16364,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+10,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16367,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1865: chicken.base#gensym"));
t4=*((C_word*)lf[112]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[509];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k16365 in k16362 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16367(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_16367,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+2,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16370,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1866: chicken.base#gensym"));
t5=*((C_word*)lf[112]+1);{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k16368 in k16365 in k16362 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16370(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_16370,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+12,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16373,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1867: chicken.compiler.support#estimate-foreign-result-size"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[508]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[508]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}}

/* k16371 in k16368 in k16365 in k16362 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16373(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){
C_save_and_reclaim((void *)f_16373,c,av);}
a=C_alloc(18);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_16376,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=t1,a[11]=((C_word*)t2)[10],a[12]=((C_word*)t2)[11],a[13]=((C_word*)t2)[12],tmp=(C_word)a,a+=14,tmp);
if(C_truep(((C_word*)t2)[4])){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16563,a[2]=t3,a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1868: scheme#string->symbol"));
t5=*((C_word*)lf[507]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_16376(2,av2);}}}

/* k16374 in k16371 in k16368 in k16365 in k16362 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16376(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(60,c,2)))){
C_save_and_reclaim((void *)f_16376,c,av);}
a=C_alloc(60);
t2=C_a_i_record(&a,9,lf[496],((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);
t3=C_a_i_cons(&a,2,t2,*((C_word*)lf[74]+1));
t4=C_mutate((C_word*)lf[74]+1 /* (set! chicken.compiler.core#foreign-lambda-stubs ...) */,t3);
t5=(C_truep(((C_word*)t0)[9])?C_s_a_i_plus(&a,2,((C_word*)t0)[10],C_fix(24)):((C_word*)t0)[10]);
t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16386,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[9],a[6]=t5,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[13],tmp=(C_word)a,a+=9,tmp);
if(C_truep(((C_word*)t0)[8])){
t7=C_a_i_list(&a,2,lf[482],((C_word*)t0)[2]);
t8=t6;
f_16386(t8,C_a_i_list(&a,1,t7));}
else{
t7=t6;
f_16386(t7,C_a_i_list(&a,2,lf[308],((C_word*)t0)[2]));}}

/* k16384 in k16374 in k16371 in k16368 in k16365 in k16362 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_16386(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,0,4)))){
C_save_and_reclaim_args((void *)trf_16386,2,t0,t1);}
a=C_alloc(21);
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=C_i_check_list_2(((C_word*)t0)[2],lf[11]);
t7=C_i_check_list_2(((C_word*)t0)[3],lf[11]);
t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16407,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=t1,a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16493,a[2]=t4,a[3]=t10,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t12=((C_word*)t10)[1];
f_16493(t12,t8,((C_word*)t0)[2],((C_word*)t0)[3]);}

/* k16396 in map-loop3500 in k16384 in k16374 in k16371 in k16368 in k16365 in k16362 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16398(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_16398,c,av);}
C_trace(C_text("core.scm:1876: chicken.compiler.support#foreign-type-check"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[289]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[289]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k16405 in k16384 in k16374 in k16371 in k16368 in k16365 in k16362 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16407(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
C_save_and_reclaim((void *)f_16407,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16418,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(C_truep(((C_word*)t0)[4])?lf[504]:C_SCHEME_END_OF_LIST);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16430,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
if(C_truep(C_i_zerop(((C_word*)t0)[5]))){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16438,a[2]=t4,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
t6=C_a_i_cons(&a,2,lf[505],t1);
C_trace(C_text("core.scm:1881: scheme#append"));
t7=*((C_word*)lf[6]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=t5;
av2[2]=((C_word*)t0)[7];
av2[3]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16445,a[2]=((C_word*)t0)[8],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[6],a[6]=t1,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:1882: chicken.compiler.support#final-foreign-type"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[123]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[123]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}}

/* k16416 in k16405 in k16384 in k16374 in k16371 in k16368 in k16365 in k16362 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16418(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_16418,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_cons(&a,2,lf[100],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k16428 in k16405 in k16384 in k16374 in k16371 in k16368 in k16365 in k16362 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16430(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_16430,c,av);}
a=C_alloc(3);
t2=C_a_i_list(&a,1,t1);
C_trace(C_text("core.scm:1877: ##sys#append"));
t3=*((C_word*)lf[162]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k16436 in k16405 in k16384 in k16374 in k16371 in k16368 in k16365 in k16362 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16438(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_16438,c,av);}
C_trace(C_text("core.scm:1881: chicken.compiler.support#foreign-type-convert-result"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[121]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[121]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k16443 in k16405 in k16384 in k16374 in k16371 in k16368 in k16365 in k16362 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16445(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_16445,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16448,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:1883: chicken.compiler.support#bytes->words"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[348]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[348]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[8];
tp(3,av2);}}

/* k16446 in k16443 in k16405 in k16384 in k16374 in k16371 in k16368 in k16365 in k16362 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_16448(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(75,c,3)))){
C_save_and_reclaim((void *)f_16448,c,av);}
a=C_alloc(75);
t2=C_s_a_i_plus(&a,2,C_fix(2),t1);
t3=C_a_i_list(&a,2,lf[506],t2);
t4=C_a_i_list(&a,2,lf[153],t1);
t5=C_a_i_list(&a,3,lf[309],t3,t4);
t6=C_a_i_list(&a,2,((C_word*)t0)[2],t5);
t7=C_a_i_list(&a,1,t6);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16459,a[2]=t7,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16463,a[2]=t8,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16467,a[2]=t9,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
t11=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[7]);
C_trace(C_text("core.scm:1886: scheme#append"));
t12=*((C_word*)lf[6]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t12;
av2[1]=t10;
av2[2]=((C_word*)t0)[8];
av2[3]=t11;
((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}}

/* k16457 in k16446 in k16443 in k16405 in k16384 in k16374 in k16371 in k16368 in k16365 in k16362 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_16459(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_16459,c,av);}
a=C_alloc(12);
t2=C_a_i_list(&a,3,lf[181],((C_word*)t0)[2],t1);
t3=C_a_i_list(&a,1,t2);
C_trace(C_text("core.scm:1877: ##sys#append"));
t4=*((C_word*)lf[162]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k16461 in k16446 in k16443 in k16405 in k16384 in k16374 in k16371 in k16368 in k16365 in k16362 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_16463(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_16463,c,av);}
C_trace(C_text("core.scm:1885: chicken.compiler.support#foreign-type-convert-result"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[121]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[121]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k16465 in k16446 in k16443 in k16405 in k16384 in k16374 in k16371 in k16368 in k16365 in k16362 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_16467(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_16467,c,av);}
C_trace(C_text("core.scm:1886: chicken.compiler.support#finish-foreign-result"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[122]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[122]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* map-loop3500 in k16384 in k16374 in k16371 in k16368 in k16365 in k16362 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_16493(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){
C_save_and_reclaim_args((void *)trf_16493,4,t0,t1,t2,t3);}
a=C_alloc(11);
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16522,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
t7=C_slot(t2,C_fix(0));
t8=C_slot(t3,C_fix(0));
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16398,a[2]=t6,a[3]=t8,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1876: chicken.compiler.support#foreign-type-convert-argument"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[290]);
C_word av2[4];
av2[0]=*((C_word*)lf[290]+1);
av2[1]=t9;
av2[2]=t7;
av2[3]=t8;
tp(4,av2);}}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* k16520 in map-loop3500 in k16384 in k16374 in k16371 in k16368 in k16365 in k16362 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16522(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_16522,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_16493(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)),C_slot(((C_word*)t0)[6],C_fix(1)));}

/* k16561 in k16371 in k16368 in k16365 in k16362 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16563(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_16563,c,av);}
C_trace(C_text("core.scm:1868: chicken.compiler.support#set-real-name!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[118]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[118]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}

/* map-loop3433 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_16574(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_16574,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16599,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:1863: g3439"));
t4=*((C_word*)lf[112]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k16597 in map-loop3433 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16599(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_16599,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_16574(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k16616 in map-loop3459 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16618(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16618,c,av);}
C_trace(C_text("core.scm:1864: chicken.base#gensym"));
t2=*((C_word*)lf[112]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* map-loop3459 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_16626(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){
C_save_and_reclaim_args((void *)trf_16626,3,t0,t1,t2);}
a=C_alloc(14);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16651,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16618,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16280,a[2]=t7,tmp=(C_word)a,a+=3,tmp));
t9=((C_word*)t7)[1];
f_16280(t9,t5,t4);}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k16649 in map-loop3459 in k16359 in k16356 in chicken.compiler.core#create-foreign-stub in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16651(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_16651,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_16626(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* chicken.compiler.core#expand-foreign-lambda in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_16660(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,8)))){
C_save_and_reclaim_args((void *)trf_16660,3,t1,t2,t3);}
a=C_alloc(8);
t4=C_i_caddr(t2);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16667,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_symbolp(t4))){
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16686,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1891: chicken.syntax#strip-syntax"));
t7=C_fast_retrieve(lf[154]);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=t4;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
if(C_truep(C_i_stringp(t4))){
C_trace(C_text("core.scm:1898: create-foreign-stub"));
f_16271(t1,C_i_cadr(t2),t4,C_i_cdddr(t2),C_SCHEME_FALSE,C_SCHEME_FALSE,t3,t3);}
else{
C_trace(C_text("core.scm:1893: chicken.compiler.support#quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word av2[4];
av2[0]=*((C_word*)lf[126]+1);
av2[1]=t5;
av2[2]=lf[515];
av2[3]=t4;
tp(4,av2);}}}}

/* k16665 in chicken.compiler.core#expand-foreign-lambda in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16667(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_16667,c,av);}
C_trace(C_text("core.scm:1898: create-foreign-stub"));
f_16271(((C_word*)t0)[2],C_i_cadr(((C_word*)t0)[3]),t1,C_i_cdddr(((C_word*)t0)[3]),C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[4]);}

/* k16684 in chicken.compiler.core#expand-foreign-lambda in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16686(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16686,c,av);}
C_trace(C_text("core.scm:1891: scheme#symbol->string"));
t2=*((C_word*)lf[263]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* chicken.compiler.core#expand-foreign-lambda* in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_16697(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_16697,3,t1,t2,t3);}
a=C_alloc(6);
t4=C_i_cadr(t2);
t5=C_i_caddr(t2);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16707,a[2]=t5,a[3]=t1,a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:1903: chicken.string#string-intersperse"));
t7=C_fast_retrieve(lf[325]);{
C_word av2[4];
av2[0]=t7;
av2[1]=t6;
av2[2]=C_i_cdddr(t2);
av2[3]=lf[516];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}

/* k16705 in chicken.compiler.core#expand-foreign-lambda* in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16707(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){
C_save_and_reclaim((void *)f_16707,c,av);}
a=C_alloc(19);
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=C_i_check_list_2(((C_word*)t0)[2],lf[11]);
t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16721,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16772,a[2]=t4,a[3]=t9,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_16772(t11,t7,((C_word*)t0)[2]);}

/* k16719 in k16705 in chicken.compiler.core#expand-foreign-lambda* in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16721(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_16721,c,av);}
a=C_alloc(14);
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16727,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t4,a[8]=t5,tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:1906: chicken.syntax#strip-syntax"));
t7=C_fast_retrieve(lf[154]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[6];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}

/* k16725 in k16719 in k16705 in chicken.compiler.core#expand-foreign-lambda* in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16727(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
C_save_and_reclaim((void *)f_16727,c,av);}
a=C_alloc(14);
t2=C_i_check_list_2(t1,lf[11]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16733,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16738,a[2]=((C_word*)t0)[7],a[3]=t5,a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_16738(t7,t3,t1);}

/* k16731 in k16725 in k16719 in k16705 in chicken.compiler.core#expand-foreign-lambda* in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16733(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_16733,c,av);}
C_trace(C_text("core.scm:1907: create-foreign-stub"));
f_16271(((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_FALSE,((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[6]);}

/* map-loop3590 in k16725 in k16719 in k16705 in chicken.compiler.core#expand-foreign-lambda* in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_16738(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_16738,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_cadr(t3);
t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
t9=t1;
t10=C_slot(t2,C_fix(1));
t1=t9;
t2=t10;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* map-loop3562 in k16705 in chicken.compiler.core#expand-foreign-lambda* in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_16772(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_16772,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_car(t3);
t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
t9=t1;
t10=C_slot(t2,C_fix(1));
t1=t9;
t2=t10;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k16812 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_16814(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_16814,2,t0,t1);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=(C_truep(((C_word*)t0)[4])?C_i_cadr(((C_word*)t0)[5]):lf[323]);
t4=C_mutate(((C_word *)t0)+3,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16820,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t6=(C_truep(((C_word*)t0)[4])?C_i_caddr(((C_word*)t0)[5]):C_i_cadr(((C_word*)t0)[5]));
C_trace(C_text("core.scm:1913: chicken.syntax#strip-syntax"));
t7=C_fast_retrieve(lf[154]);{
C_word av2[3];
av2[0]=t7;
av2[1]=t5;
av2[2]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}

/* k16818 in k16812 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_16820(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_16820,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16823,a[2]=t1,a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
t4=(C_truep(((C_word*)t2)[4])?C_i_cdddr(((C_word*)t2)[5]):C_i_cddr(((C_word*)t2)[5]));
C_trace(C_text("core.scm:1914: chicken.string#string-intersperse"));
t5=C_fast_retrieve(lf[325]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t3;
av2[2]=t4;
av2[3]=lf[326];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k16821 in k16818 in k16812 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_16823(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_16823,c,av);}
a=C_alloc(18);
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=C_i_check_list_2(((C_word*)t0)[2],lf[11]);
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16837,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16888,a[2]=t4,a[3]=t9,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_16888(t11,t7,((C_word*)t0)[2]);}

/* k16835 in k16821 in k16818 in k16812 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_16837(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_16837,c,av);}
a=C_alloc(13);
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16843,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=t4,a[7]=t5,tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("core.scm:1917: chicken.syntax#strip-syntax"));
t7=C_fast_retrieve(lf[154]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}

/* k16841 in k16835 in k16821 in k16818 in k16812 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_16843(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_16843,c,av);}
a=C_alloc(13);
t2=C_i_check_list_2(t1,lf[11]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16849,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16854,a[2]=((C_word*)t0)[6],a[3]=t5,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_16854(t7,t3,t1);}

/* k16847 in k16841 in k16835 in k16821 in k16818 in k16812 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_16849(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_16849,c,av);}
C_trace(C_text("core.scm:1918: create-foreign-stub"));
f_16271(((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_FALSE,((C_word*)t0)[4],t1,((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_TRUE);}

/* map-loop3652 in k16841 in k16835 in k16821 in k16818 in k16812 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void f_16854(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_16854,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_cadr(t3);
t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
t9=t1;
t10=C_slot(t2,C_fix(1));
t1=t9;
t2=t10;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* map-loop3624 in k16821 in k16818 in k16812 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void f_16888(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_16888,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_car(t3);
t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
t9=t1;
t10=C_slot(t2,C_fix(1));
t1=t9;
t2=t10;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16963(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(50,c,6)))){
C_save_and_reclaim((void *)f_16963,c,av);}
a=C_alloc(50);
t3=C_SCHEME_END_OF_LIST;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_SCHEME_UNDEFINED;
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=C_SCHEME_UNDEFINED;
t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp);
t17=C_SCHEME_UNDEFINED;
t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp);
t19=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16966,a[2]=t10,tmp=(C_word)a,a+=3,tmp));
t20=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17017,tmp=(C_word)a,a+=2,tmp));
t21=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17041,a[2]=t10,a[3]=t8,a[4]=t6,a[5]=t14,a[6]=t12,a[7]=t4,tmp=(C_word)a,a+=8,tmp));
t22=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17587,a[2]=C_SCHEME_UNDEFINED,a[3]=C_SCHEME_UNDEFINED,a[4]=C_SCHEME_UNDEFINED,a[5]=t10,a[6]=C_SCHEME_UNDEFINED,a[7]=t16,a[8]=C_SCHEME_UNDEFINED,a[9]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=10,tmp));
t23=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17733,a[2]=t16,tmp=(C_word)a,a+=3,tmp));
t24=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17749,a[2]=t8,a[3]=t10,a[4]=t18,tmp=(C_word)a,a+=5,tmp));
t25=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17851,a[2]=t18,tmp=(C_word)a,a+=3,tmp));
C_trace(C_text("core.scm:2056: walk"));
t26=((C_word*)t10)[1];
f_17041(t26,t1,t2,*((C_word*)lf[108]+1));}

/* cps-lambda in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_16966(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
C_word tmp;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_16966,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(8);
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16970,a[2]=t5,a[3]=t1,a[4]=t3,a[5]=t2,a[6]=t4,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("core.scm:1927: chicken.base#gensym"));
t7=*((C_word*)lf[112]+1);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=lf[520];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}

/* k16968 in cps-lambda in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16970(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){
C_save_and_reclaim((void *)f_16970,c,av);}
a=C_alloc(26);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16977,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=C_a_i_cons(&a,2,t1,((C_word*)t0)[4]);
t4=C_a_i_list4(&a,4,((C_word*)t0)[5],C_SCHEME_TRUE,t3,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16989,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
t6=C_i_car(((C_word*)t0)[6]);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16995,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1930: walk"));
t8=((C_word*)((C_word*)t0)[7])[1];
f_17041(t8,t5,t6,t7);}

/* k16975 in k16968 in cps-lambda in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16977(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_16977,c,av);}
C_trace(C_text("core.scm:1928: k"));
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
((C_proc)C_fast_retrieve_proc(t2))(3,av2);}}

/* k16987 in k16968 in cps-lambda in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16989(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_16989,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
C_trace(C_text("core.scm:1928: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[100];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
tp(5,av2);}}

/* a16994 in k16968 in cps-lambda in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_16995(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_16995,c,av);}
a=C_alloc(8);
t3=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17011,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1932: chicken.compiler.support#varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[519]);
C_word *av2=av;
av2[0]=*((C_word*)lf[519]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}

/* k17009 in a16994 in k16968 in cps-lambda in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17011(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_17011,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]);
C_trace(C_text("core.scm:1932: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[518];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
tp(5,av2);}}

/* node-for-var? in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_17017(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_17017,3,t1,t2,t3);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17039,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1935: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word av2[3];
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}

/* k17033 in k17037 in node-for-var? in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17035(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17035,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_eqp(C_i_car(t1),((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k17037 in node-for-var? in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17039(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_17039,c,av);}
a=C_alloc(4);
t2=C_eqp(t1,lf[521]);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17035,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1936: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_17041(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){
C_save_and_reclaim_args((void *)trf_17041,4,t0,t1,t2,t3);}
a=C_alloc(15);
t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_17045,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=C_SCHEME_UNDEFINED,a[6]=C_SCHEME_UNDEFINED,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[3],a[9]=C_SCHEME_UNDEFINED,a[10]=((C_word*)t0)[4],a[11]=((C_word*)t0)[5],a[12]=C_SCHEME_UNDEFINED,a[13]=((C_word*)t0)[6],a[14]=((C_word*)t0)[7],tmp=(C_word)a,a+=15,tmp);
C_trace(C_text("core.scm:1939: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[525]);
C_word av2[3];
av2[0]=*((C_word*)lf[525]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}

/* k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17045(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17045,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+6,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17048,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1940: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17048(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17048,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+9,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17051,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1941: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[4];
tp(3,av2);}}

/* k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17051(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17051,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+12,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17054,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1942: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[4];
tp(3,av2);}}

/* k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17054(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17054,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+5,t1);
t4=C_eqp(((C_word*)t2)[5],lf[521]);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17063,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t4)){
t6=t5;
f_17063(t6,t4);}
else{
t6=C_eqp(((C_word*)t2)[5],lf[119]);
if(C_truep(t6)){
t7=t5;
f_17063(t7,t6);}
else{
t7=C_eqp(((C_word*)t2)[5],lf[483]);
if(C_truep(t7)){
t8=t5;
f_17063(t8,t7);}
else{
t8=C_eqp(((C_word*)t2)[5],lf[482]);
t9=t5;
f_17063(t9,(C_truep(t8)?t8:C_eqp(((C_word*)t2)[5],lf[170])));}}}}

/* k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_17063(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){
C_save_and_reclaim_args((void *)trf_17063,2,t0,t1);}
a=C_alloc(12);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
C_trace(C_text("core.scm:1944: k"));
t3=((C_word*)t2)[2];{
C_word av2[3];
av2[0]=t3;
av2[1]=((C_word*)t2)[3];
av2[2]=((C_word*)t2)[4];
((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
else{
t3=C_eqp(((C_word*)t2)[5],lf[150]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17075,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[6],a[5]=((C_word*)t2)[7],a[6]=((C_word*)t2)[2],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:1945: chicken.base#gensym"));
t5=*((C_word*)lf[112]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[520];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=C_eqp(((C_word*)t2)[5],lf[182]);
if(C_truep(t4)){
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17184,a[2]=((C_word*)t2)[7],a[3]=((C_word*)t2)[2],a[4]=t6,a[5]=((C_word*)t2)[8],tmp=(C_word)a,a+=6,tmp));
t8=((C_word*)t6)[1];
f_17184(t8,((C_word*)t2)[3],((C_word*)t2)[9],((C_word*)t2)[6]);}
else{
t5=C_eqp(((C_word*)t2)[5],lf[493]);
t6=(C_truep(t5)?t5:C_eqp(((C_word*)t2)[5],lf[100]));
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17271,a[2]=((C_word*)t2)[10],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[9],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[2],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:381: chicken.base#gensym"));
t8=*((C_word*)lf[112]+1);{
C_word av2[3];
av2[0]=t8;
av2[1]=t7;
av2[2]=lf[523];
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}
else{
t7=C_eqp(((C_word*)t2)[5],lf[292]);
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17284,a[2]=((C_word*)t2)[9],a[3]=((C_word*)t2)[6],a[4]=((C_word*)t2)[2],a[5]=((C_word*)t2)[7],a[6]=((C_word*)t2)[3],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:1971: chicken.base#gensym"));
t9=*((C_word*)lf[112]+1);{
C_word av2[3];
av2[0]=t9;
av2[1]=t8;
av2[2]=lf[524];
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
else{
t8=C_eqp(((C_word*)t2)[5],lf[454]);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17355,a[2]=((C_word*)t2)[6],a[3]=((C_word*)t2)[10],a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[2],a[6]=((C_word*)t2)[9],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:381: chicken.base#gensym"));
t10=*((C_word*)lf[112]+1);{
C_word av2[3];
av2[0]=t10;
av2[1]=t9;
av2[2]=lf[523];
((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}
else{
t9=C_eqp(((C_word*)t2)[5],lf[308]);
t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_17385,a[2]=((C_word*)t2)[11],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[12],a[5]=((C_word*)t2)[9],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[2],a[8]=((C_word*)t2)[5],a[9]=((C_word*)t2)[13],a[10]=((C_word*)t2)[14],a[11]=((C_word*)t2)[7],tmp=(C_word)a,a+=12,tmp);
if(C_truep(t9)){
t11=t10;
f_17385(t11,t9);}
else{
t11=C_eqp(((C_word*)t2)[5],lf[309]);
if(C_truep(t11)){
t12=t10;
f_17385(t12,t11);}
else{
t12=C_eqp(((C_word*)t2)[5],lf[120]);
if(C_truep(t12)){
t13=t10;
f_17385(t13,t12);}
else{
t13=C_eqp(((C_word*)t2)[5],lf[288]);
if(C_truep(t13)){
t14=t10;
f_17385(t14,t13);}
else{
t14=C_eqp(((C_word*)t2)[5],lf[124]);
if(C_truep(t14)){
t15=t10;
f_17385(t15,t14);}
else{
t15=C_eqp(((C_word*)t2)[5],lf[291]);
t16=t10;
f_17385(t16,(C_truep(t15)?t15:C_eqp(((C_word*)t2)[5],lf[196])));}}}}}}}}}}}}

/* k17073 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17075(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17075,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17078,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1946: chicken.base#gensym"));
t4=*((C_word*)lf[112]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[471];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k17076 in k17073 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17078(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_17078,c,av);}
a=C_alloc(18);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17079,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
t4=C_a_i_list1(&a,1,((C_word*)t2)[2]);
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17110,a[2]=((C_word*)t2)[3],a[3]=t4,a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=t3,tmp=(C_word)a,a+=7,tmp);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17169,a[2]=t1,a[3]=t5,a[4]=((C_word*)t2)[6],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:381: chicken.base#gensym"));
t7=*((C_word*)lf[112]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=lf[523];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}

/* k1 in k17076 in k17073 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17079(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_17079,c,av);}
a=C_alloc(8);
t3=C_a_i_list1(&a,1,C_SCHEME_TRUE);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17095,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1947: chicken.compiler.support#varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[519]);
C_word *av2=av;
av2[0]=*((C_word*)lf[519]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}

/* k17093 in k1 in k17076 in k17073 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17095(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_17095,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]);
C_trace(C_text("core.scm:1947: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[518];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
tp(5,av2);}}

/* k17108 in k17076 in k17073 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17110(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_17110,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17114,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=C_i_car(((C_word*)t0)[4]);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17120,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1953: walk"));
t5=((C_word*)((C_word*)t0)[5])[1];
f_17041(t5,t2,t3,t4);}

/* k17112 in k17108 in k17076 in k17073 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17114(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_17114,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
C_trace(C_text("core.scm:1948: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[182];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
tp(5,av2);}}

/* a17119 in k17108 in k17076 in k17073 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17120(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_17120,c,av);}
a=C_alloc(7);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17132,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:1957: walk"));
t4=((C_word*)((C_word*)t0)[2])[1];
f_17041(t4,t3,C_i_cadr(((C_word*)t0)[3]),((C_word*)t0)[4]);}

/* k17130 in a17119 in k17108 in k17076 in k17073 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_17132(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_17132,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17136,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1958: walk"));
t3=((C_word*)((C_word*)t0)[4])[1];
f_17041(t3,t2,C_i_caddr(((C_word*)t0)[5]),((C_word*)t0)[6]);}

/* k17134 in k17130 in a17119 in k17108 in k17076 in k17073 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_17136(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_17136,c,av);}
a=C_alloc(9);
t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1);
C_trace(C_text("core.scm:1955: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=lf[150];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t2;
tp(5,av2);}}

/* k17154 in k17167 in k17076 in k17073 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17156(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_17156,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
C_trace(C_text("core.scm:1951: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[100];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
tp(5,av2);}}

/* k17158 in k17167 in k17076 in k17073 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17160(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17160,c,av);}
C_trace(C_text("core.scm:1952: k"));
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
((C_proc)C_fast_retrieve_proc(t2))(3,av2);}}

/* k17167 in k17076 in k17073 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17169(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){
C_save_and_reclaim((void *)f_17169,c,av);}
a=C_alloc(23);
t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);
t3=C_a_i_list4(&a,4,t1,C_SCHEME_FALSE,t2,C_fix(0));
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17156,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17160,a[2]=((C_word*)t0)[4],a[3]=t4,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1952: chicken.compiler.support#varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[519]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[519]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}

/* loop in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_17184(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_17184,4,t0,t1,t2,t3);}
a=C_alloc(6);
if(C_truep(C_i_nullp(t2))){
C_trace(C_text("core.scm:1962: walk"));
t4=((C_word*)((C_word*)t0)[2])[1];
f_17041(t4,t1,C_i_car(t3),((C_word*)t0)[3]);}
else{
t4=C_i_car(t3);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17207,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:1963: walk"));
t6=((C_word*)((C_word*)t0)[2])[1];
f_17041(t6,t1,t4,t5);}}

/* a17206 in loop in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17207(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_17207,c,av);}
a=C_alloc(7);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17214,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:1965: node-for-var?"));
f_17017(t3,t2,C_i_car(((C_word*)t0)[3]));}

/* k17212 in a17206 in loop in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17214(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_17214,c,av);}
a=C_alloc(8);
if(C_truep(t1)){
C_trace(C_text("core.scm:1966: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_17184(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_i_cdr(((C_word*)t0)[5]));}
else{
t2=C_u_i_car(((C_word*)t0)[4]);
t3=C_a_i_list1(&a,1,t2);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17238,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1969: loop"));
t5=((C_word*)((C_word*)t0)[2])[1];
f_17184(t5,t4,C_u_i_cdr(((C_word*)t0)[4]),C_i_cdr(((C_word*)t0)[5]));}}

/* k17236 in k17212 in a17206 in loop in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17238(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_17238,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
C_trace(C_text("core.scm:1967: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[182];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
tp(5,av2);}}

/* k17269 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17271(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_17271,c,av);}
C_trace(C_text("core.scm:1970: cps-lambda"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_16966(t2,((C_word*)t0)[3],t1,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5],((C_word*)t0)[6]);}

/* k17282 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17284(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_17284,c,av);}
a=C_alloc(11);
t2=C_i_cdr(((C_word*)t0)[2]);
t3=C_i_pairp(t2);
t4=(C_truep(t3)?C_i_cadr(((C_word*)t0)[2]):C_SCHEME_FALSE);
t5=C_i_car(((C_word*)t0)[2]);
t6=C_a_i_list2(&a,2,t5,t4);
t7=C_i_car(((C_word*)t0)[3]);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17299,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=t6,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1974: walk"));
t9=((C_word*)((C_word*)t0)[5])[1];
f_17041(t9,((C_word*)t0)[6],t7,t8);}

/* a17298 in k17282 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17299(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_17299,c,av);}
a=C_alloc(12);
t3=C_a_i_list1(&a,1,((C_word*)t0)[2]);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17315,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
t5=C_a_i_list1(&a,1,t2);
C_trace(C_text("core.scm:1977: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=t4;
av2[2]=lf[292];
av2[3]=((C_word*)t0)[4];
av2[4]=t5;
tp(5,av2);}}

/* k17313 in a17298 in k17282 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17315(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_17315,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17319,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17323,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1978: chicken.compiler.support#varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[519]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[519]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}

/* k17317 in k17313 in a17298 in k17282 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17319(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_17319,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
C_trace(C_text("core.scm:1976: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[182];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
tp(5,av2);}}

/* k17321 in k17313 in a17298 in k17282 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17323(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17323,c,av);}
C_trace(C_text("core.scm:1978: k"));
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
((C_proc)C_fast_retrieve_proc(t2))(3,av2);}}

/* k17353 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17355(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_17355,c,av);}
a=C_alloc(7);
t2=C_i_car(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17361,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:1982: chicken.compiler.support#register-foreign-callback-stub!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[526]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[526]+1);
av2[1]=t3;
av2[2]=t1;
av2[3]=((C_word*)t0)[6];
tp(4,av2);}}

/* k17359 in k17353 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17361(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17361,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17376,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1983: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}

/* k17370 in k17374 in k17359 in k17353 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17372(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_17372,c,av);}
C_trace(C_text("core.scm:1983: cps-lambda"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_16966(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,((C_word*)t0)[6]);}

/* k17374 in k17359 in k17353 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17376(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_17376,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=C_i_car(t1);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17372,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=t3,a[6]=((C_word*)t2)[5],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:1983: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[525]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[525]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[6];
tp(3,av2);}}

/* k17383 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_17385(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,0,5)))){
C_save_and_reclaim_args((void *)trf_17385,2,t0,t1);}
a=C_alloc(21);
if(C_truep(t1)){
C_trace(C_text("core.scm:1986: walk-inline-call"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_17733(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}
else{
t2=C_eqp(((C_word*)t0)[8],lf[518]);
if(C_truep(t2)){
C_trace(C_text("core.scm:1987: walk-call"));
t3=((C_word*)((C_word*)t0)[9])[1];
f_17587(t3,((C_word*)t0)[3],C_i_car(((C_word*)t0)[6]),C_u_i_cdr(((C_word*)t0)[6]),((C_word*)t0)[5],((C_word*)t0)[7]);}
else{
t3=C_eqp(((C_word*)t0)[8],lf[171]);
if(C_truep(t3)){
t4=C_i_car(((C_word*)t0)[5]);
if(C_truep(C_i_memq(t4,((C_word*)((C_word*)t0)[10])[1]))){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17425,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1991: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word av2[5];
av2[0]=*((C_word*)lf[492]+1);
av2[1]=t5;
av2[2]=lf[483];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=C_SCHEME_END_OF_LIST;
tp(5,av2);}}
else{
t5=C_a_i_cons(&a,2,t4,((C_word*)((C_word*)t0)[10])[1]);
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_SCHEME_FALSE;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17433,a[2]=t9,a[3]=((C_word*)t0)[10],a[4]=t7,tmp=(C_word)a,a+=5,tmp);
t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17438,a[2]=t4,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp);
t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17444,a[2]=t7,a[3]=((C_word*)t0)[10],a[4]=t9,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1992: ##sys#dynamic-wind"));
t13=*((C_word*)lf[117]+1);{
C_word av2[5];
av2[0]=t13;
av2[1]=((C_word*)t0)[3];
av2[2]=t10;
av2[3]=t11;
av2[4]=t12;
((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}}}
else{
t4=C_eqp(((C_word*)t0)[8],lf[158]);
t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[8],lf[527]));
if(C_truep(t5)){
C_trace(C_text("core.scm:1996: walk"));
t6=((C_word*)((C_word*)t0)[11])[1];
f_17041(t6,((C_word*)t0)[3],C_i_car(((C_word*)t0)[6]),((C_word*)t0)[7]);}
else{
t6=C_eqp(((C_word*)t0)[8],lf[163]);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7526,tmp=(C_word)a,a+=2,tmp);
t8=(
  f_7526(((C_word*)t0)[6])
);
C_trace(C_text("core.scm:1999: walk"));
t9=((C_word*)((C_word*)t0)[11])[1];
f_17041(t9,((C_word*)t0)[3],t8,((C_word*)t0)[7]);}
else{
C_trace(C_text("core.scm:2000: chicken.compiler.support#bomb"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[528]);
C_word av2[3];
av2[0]=*((C_word*)lf[528]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[529];
tp(3,av2);}}}}}}}

/* k17423 in k17383 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17425(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17425,c,av);}
C_trace(C_text("core.scm:1991: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_17041(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);}

/* a17432 in k17383 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17433(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17433,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a17437 in k17383 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17438(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_17438,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17668,a[2]=C_SCHEME_UNDEFINED,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2017: chicken.base#gensym"));
t3=*((C_word*)lf[112]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[520];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* a17443 in k17383 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17444(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_17444,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* walk-call in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_17587(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
C_word tmp;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_17587,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(3);
t6=C_mutate(((C_word *)t0)+9,t5);
t7=C_mutate(((C_word *)t0)+4,t4);
t8=C_mutate(((C_word *)t0)+8,t3);
t9=C_mutate(((C_word *)t0)+6,t2);
t10=C_mutate(((C_word *)t0)+3,t1);
t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17591,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2003: chicken.base#gensym"));
t12=*((C_word*)lf[112]+1);{
C_word av2[3];
av2[0]=t12;
av2[1]=t11;
av2[2]=lf[520];
((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}

/* k17589 in walk-call in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17591(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17591,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+2,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17594,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2004: chicken.base#gensym"));
t5=*((C_word*)lf[112]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[471];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k17592 in k17589 in walk-call in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17594(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){
C_save_and_reclaim((void *)f_17594,c,av);}
a=C_alloc(18);
t2=((C_word*)t0)[2];
t3=C_a_i_list1(&a,1,((C_word*)t2)[2]);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17609,a[2]=((C_word*)t2)[3],a[3]=t3,a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[2],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[8],tmp=(C_word)a,a+=10,tmp);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17658,a[2]=t1,a[3]=t4,a[4]=((C_word*)t2)[9],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:381: chicken.base#gensym"));
t6=*((C_word*)lf[112]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[523];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k17607 in k17592 in k17589 in walk-call in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17609(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_17609,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17613,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17615,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2009: walk-arguments"));
t4=((C_word*)((C_word*)t0)[8])[1];
f_17749(t4,t2,((C_word*)t0)[9],t3);}

/* k17611 in k17607 in k17592 in k17589 in walk-call in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17613(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_17613,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
C_trace(C_text("core.scm:2005: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[182];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
tp(5,av2);}}

/* a17614 in k17607 in k17592 in k17589 in walk-call in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17615(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_17615,c,av);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17621,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2012: walk"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_17041(t4,t1,((C_word*)t0)[5],t3);}

/* a17620 in a17614 in k17607 in k17592 in k17589 in walk-call in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17621(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){
C_save_and_reclaim((void *)f_17621,c,av);}
a=C_alloc(9);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17629,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17633,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2014: chicken.compiler.support#varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[519]);
C_word *av2=av;
av2[0]=*((C_word*)lf[519]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k17627 in a17620 in a17614 in k17607 in k17592 in k17589 in walk-call in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17629(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_17629,c,av);}
C_trace(C_text("core.scm:2014: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[518];
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
tp(5,av2);}}

/* k17631 in a17620 in a17614 in k17607 in k17592 in k17589 in walk-call in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17633(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_17633,c,av);}
a=C_alloc(6);
C_trace(C_text("core.scm:2014: cons*"));
f_7184(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,2,t1,((C_word*)t0)[4]));}

/* k17643 in k17656 in k17592 in k17589 in walk-call in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17645(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_17645,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
C_trace(C_text("core.scm:2007: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[100];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
tp(5,av2);}}

/* k17647 in k17656 in k17592 in k17589 in walk-call in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17649(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17649,c,av);}
C_trace(C_text("core.scm:2008: k"));
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
((C_proc)C_fast_retrieve_proc(t2))(3,av2);}}

/* k17656 in k17592 in k17589 in walk-call in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17658(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){
C_save_and_reclaim((void *)f_17658,c,av);}
a=C_alloc(23);
t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);
t3=C_a_i_list4(&a,4,t1,C_SCHEME_FALSE,t2,C_fix(0));
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17645,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17649,a[2]=((C_word*)t0)[4],a[3]=t4,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2008: chicken.compiler.support#varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[519]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[519]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}

/* k17666 in a17437 in k17383 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17668(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17668,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17671,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2018: chicken.base#gensym"));
t4=*((C_word*)lf[112]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[471];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k17669 in k17666 in a17437 in k17383 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17671(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_17671,c,av);}
a=C_alloc(14);
t2=((C_word*)t0)[2];
t3=C_a_i_list1(&a,1,((C_word*)t2)[2]);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17686,a[2]=((C_word*)t2)[3],a[3]=t3,a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[2],tmp=(C_word)a,a+=6,tmp);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17727,a[2]=t1,a[3]=t4,a[4]=((C_word*)t2)[5],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:381: chicken.base#gensym"));
t6=*((C_word*)lf[112]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[523];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k17684 in k17669 in k17666 in a17437 in k17383 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_17686(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_17686,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17690,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=C_a_i_list1(&a,1,((C_word*)t0)[4]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17702,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2024: chicken.compiler.support#varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[519]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[519]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}

/* k17688 in k17684 in k17669 in k17666 in a17437 in k17383 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_17690(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_17690,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
C_trace(C_text("core.scm:2019: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[182];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
tp(5,av2);}}

/* k17700 in k17684 in k17669 in k17666 in a17437 in k17383 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_17702(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_17702,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
C_trace(C_text("core.scm:2023: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[171];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
tp(5,av2);}}

/* k17712 in k17725 in k17669 in k17666 in a17437 in k17383 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_17714(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_17714,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
C_trace(C_text("core.scm:2021: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[100];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
tp(5,av2);}}

/* k17716 in k17725 in k17669 in k17666 in a17437 in k17383 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_17718(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17718,c,av);}
C_trace(C_text("core.scm:2022: k"));
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
((C_proc)C_fast_retrieve_proc(t2))(3,av2);}}

/* k17725 in k17669 in k17666 in a17437 in k17383 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_17727(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){
C_save_and_reclaim((void *)f_17727,c,av);}
a=C_alloc(23);
t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);
t3=C_a_i_list4(&a,4,t1,C_SCHEME_FALSE,t2,C_fix(0));
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17714,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17718,a[2]=((C_word*)t0)[4],a[3]=t4,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2022: chicken.compiler.support#varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[519]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[519]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}

/* walk-inline-call in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_17733(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
C_word tmp;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_17733,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(5);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17739,a[2]=t5,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2027: walk-arguments"));
t7=((C_word*)((C_word*)t0)[2])[1];
f_17749(t7,t1,t4,t6);}

/* a17738 in walk-inline-call in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17739(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_17739,c,av);}
a=C_alloc(4);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17747,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2030: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
tp(5,av2);}}

/* k17745 in a17738 in walk-inline-call in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17747(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17747,c,av);}
C_trace(C_text("core.scm:2030: k"));
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
((C_proc)C_fast_retrieve_proc(t2))(3,av2);}}

/* walk-arguments in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_17749(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){
C_save_and_reclaim_args((void *)trf_17749,4,t0,t1,t2,t3);}
a=C_alloc(9);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17755,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp));
t7=((C_word*)t5)[1];
f_17755(t7,t1,t2,C_SCHEME_END_OF_LIST);}

/* loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_17755(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_17755,4,t0,t1,t2,t3);}
a=C_alloc(8);
if(C_truep(C_i_nullp(t2))){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17769,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2034: scheme#reverse"));
t5=*((C_word*)lf[267]+1);{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17775,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t1,tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("core.scm:2035: atomic?"));
t5=((C_word*)((C_word*)t0)[6])[1];{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_i_car(t2);
f_17851(3,av2);}}}

/* k17767 in loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17769(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_17769,c,av);}
C_trace(C_text("core.scm:2034: wk"));
t2=((C_word*)t0)[2];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
((C_proc)C_fast_retrieve_proc(t2))(3,av2);}}

/* k17773 in loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17775(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17775,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=C_u_i_car(((C_word*)t0)[2]);
t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]);
C_trace(C_text("core.scm:2036: loop"));
t5=((C_word*)((C_word*)t0)[4])[1];
f_17755(t5,((C_word*)t0)[7],t2,t4);}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17789,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2038: chicken.base#gensym"));
t3=*((C_word*)lf[112]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[510];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}

/* k17787 in k17773 in loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17789(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_17789,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=C_u_i_car(((C_word*)t2)[2]);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17796,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=t1,a[6]=((C_word*)t2)[5],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:2039: walk"));
t5=((C_word*)((C_word*)t2)[6])[1];
f_17041(t5,((C_word*)t2)[7],t3,t4);}

/* a17795 in k17787 in k17773 in loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17796(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_17796,c,av);}
a=C_alloc(8);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17803,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],a[7]=t2,tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("core.scm:2041: node-for-var?"));
f_17017(t3,t2,((C_word*)t0)[5]);}

/* k17801 in a17795 in k17787 in k17773 in loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17803(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_17803,c,av);}
a=C_alloc(14);
if(C_truep(t1)){
t2=C_i_cdr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17818,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2042: chicken.compiler.support#varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[519]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[519]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}
else{
t2=C_a_i_list1(&a,1,((C_word*)t0)[6]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17833,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[5],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=C_i_cdr(((C_word*)t0)[2]);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17845,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2046: chicken.compiler.support#varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[519]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[519]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}}

/* k17816 in k17801 in a17795 in k17787 in k17773 in loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17818(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17818,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
C_trace(C_text("core.scm:2042: loop"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_17755(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}

/* k17831 in k17801 in a17795 in k17787 in k17773 in loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17833(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_17833,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
C_trace(C_text("core.scm:2043: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[182];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
tp(5,av2);}}

/* k17843 in k17801 in a17795 in k17787 in k17773 in loop in walk-arguments in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17845(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_17845,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]);
C_trace(C_text("core.scm:2045: loop"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_17755(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);}

/* atomic? in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17851(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_17851,c,av);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17855,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2049: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2=av;
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k17853 in atomic? in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17855(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_17855,c,av);}
a=C_alloc(4);
t2=C_u_i_memq(t1,lf[530]);
if(C_truep(t2)){
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
if(C_truep((C_truep(C_eqp(t1,lf[309]))?C_SCHEME_TRUE:(C_truep(C_eqp(t1,lf[120]))?C_SCHEME_TRUE:(C_truep(C_eqp(t1,lf[288]))?C_SCHEME_TRUE:(C_truep(C_eqp(t1,lf[124]))?C_SCHEME_TRUE:(C_truep(C_eqp(t1,lf[291]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17872,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2054: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[525]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[525]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}

/* k17870 in k17853 in atomic? in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17872(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_17872,c,av);}
C_trace(C_text("core.scm:2054: every"));
f_7120(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],t1);}

/* chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17877(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_17877,c,av);}
a=C_alloc(4);
t3=C_i_fixnum_max(lf[65],C_fix(1));
t4=C_fixnum_times(t3,C_fix(3));
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17884,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2064: scheme#make-vector"));
t6=*((C_word*)lf[96]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=t4;
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}

/* k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17884(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(47,c,7)))){
C_save_and_reclaim((void *)f_17884,c,av);}
a=C_alloc(47);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_SCHEME_UNDEFINED;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_SCHEME_UNDEFINED;
t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
t16=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17886,tmp=(C_word)a,a+=2,tmp));
t17=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17893,a[2]=t1,a[3]=t15,a[4]=t7,a[5]=t5,a[6]=t13,a[7]=t3,tmp=(C_word)a,a+=8,tmp));
t18=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18537,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t19=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18574,a[2]=t1,tmp=(C_word)a,a+=3,tmp));
t20=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18587,a[2]=t1,tmp=(C_word)a,a+=3,tmp));
t21=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18600,a[2]=t1,a[3]=t9,a[4]=t11,tmp=(C_word)a,a+=5,tmp));
t22=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18910,a[2]=t1,tmp=(C_word)a,a+=3,tmp));
t23=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18931,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2270: chicken.compiler.support#debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[593]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[593]+1);
av2[1]=t23;
av2[2]=lf[601];
av2[3]=lf[603];
tp(4,av2);}}

/* grow in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static C_word f_17886(C_word *a,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_stack_overflow_check;{}
t2=C_s_a_i_plus(&a,2,lf[64],t1);
t3=C_mutate(&lf[64] /* (set! chicken.compiler.core#current-program-size ...) */,t2);
return(t3);}

/* walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_17893(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
C_word tmp;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,0,2)))){
C_save_and_reclaim_args((void *)trf_17893,7,t0,t1,t2,t3,t4,t5,t6);}
a=C_alloc(17);
t7=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_17897,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=C_SCHEME_UNDEFINED,a[5]=t4,a[6]=t3,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[3],a[9]=t2,a[10]=((C_word*)t0)[4],a[11]=C_SCHEME_UNDEFINED,a[12]=t5,a[13]=t6,a[14]=((C_word*)t0)[5],a[15]=((C_word*)t0)[6],a[16]=((C_word*)t0)[7],tmp=(C_word)a,a+=17,tmp);
C_trace(C_text("core.scm:2072: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[525]);
C_word av2[3];
av2[0]=*((C_word*)lf[525]+1);
av2[1]=t7;
av2[2]=t2;
tp(3,av2);}}

/* k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17897(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17897,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+11,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17900,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2073: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[9];
tp(3,av2);}}

/* k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17900(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_17900,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+4,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17903,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2074: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[9];
tp(3,av2);}}

/* k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17903(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,2)))){
C_save_and_reclaim((void *)f_17903,c,av);}
a=C_alloc(32);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+3,t1);
t4=C_s_a_i_plus(&a,2,lf[64],C_fix(1));
t5=C_mutate(&lf[64] /* (set! chicken.compiler.core#current-program-size ...) */,t4);
t6=C_eqp(((C_word*)t2)[3],lf[119]);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17915,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t6)){
t8=t7;
f_17915(t8,t6);}
else{
t8=C_eqp(((C_word*)t2)[3],lf[483]);
if(C_truep(t8)){
t9=t7;
f_17915(t9,t8);}
else{
t9=C_eqp(((C_word*)t2)[3],lf[170]);
t10=t7;
f_17915(t10,(C_truep(t9)?t9:C_eqp(((C_word*)t2)[3],lf[558])));}}}

/* k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_17915(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(47,0,6)))){
C_save_and_reclaim_args((void *)trf_17915,2,t0,t1);}
a=C_alloc(47);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t2)[3],lf[521]);
t4=(C_truep(t3)?t3:C_eqp(((C_word*)t2)[3],lf[532]));
if(C_truep(t4)){
t5=C_i_car(((C_word*)t2)[4]);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17930,a[2]=t5,a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[2],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:2082: ref"));
t7=((C_word*)((C_word*)t2)[8])[1];
f_18910(t7,t6,t5,((C_word*)t2)[9]);}
else{
t5=C_eqp(((C_word*)t2)[3],lf[171]);
t6=(C_truep(t5)?t5:C_eqp(((C_word*)t2)[3],lf[536]));
if(C_truep(t6)){
t7=C_s_a_i_plus(&a,2,lf[64],C_fix(1));
t8=C_mutate(&lf[64] /* (set! chicken.compiler.core#current-program-size ...) */,t7);
C_trace(C_text("core.scm:2092: walkeach"));
t9=((C_word*)((C_word*)t2)[10])[1];
f_18537(t9,((C_word*)t2)[2],((C_word*)t2)[11],((C_word*)t2)[6],((C_word*)t2)[5],((C_word*)t2)[12],((C_word*)t2)[13]);}
else{
t7=C_eqp(((C_word*)t2)[3],lf[518]);
if(C_truep(t7)){
t8=C_s_a_i_plus(&a,2,lf[64],C_fix(1));
t9=C_mutate(&lf[64] /* (set! chicken.compiler.core#current-program-size ...) */,t8);
t10=C_i_car(((C_word*)t2)[11]);
t11=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17991,a[2]=((C_word*)t2)[10],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[11],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[12],a[8]=((C_word*)t2)[13],a[9]=((C_word*)t2)[14],tmp=(C_word)a,a+=10,tmp);
t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18063,a[2]=((C_word*)t2)[13],a[3]=((C_word*)t2)[9],a[4]=t11,a[5]=((C_word*)t2)[7],a[6]=((C_word*)t2)[11],a[7]=t10,tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("core.scm:2097: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word av2[3];
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t12;
av2[2]=t10;
tp(3,av2);}}
else{
t8=C_eqp(((C_word*)t2)[3],lf[182]);
t9=(C_truep(t8)?t8:C_eqp(((C_word*)t2)[3],lf[181]));
if(C_truep(t9)){
t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_18075,a[2]=((C_word*)t2)[14],a[3]=((C_word*)t2)[6],a[4]=((C_word*)t2)[13],a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[12],a[8]=((C_word*)t2)[15],a[9]=((C_word*)t2)[7],a[10]=((C_word*)t2)[2],a[11]=((C_word*)t2)[11],tmp=(C_word)a,a+=12,tmp);
C_trace(C_text("core.scm:2110: scheme#append"));
t11=*((C_word*)lf[6]+1);{
C_word av2[4];
av2[0]=t11;
av2[1]=t10;
av2[2]=((C_word*)t2)[4];
av2[3]=((C_word*)t2)[12];
((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}}
else{
t10=C_eqp(((C_word*)t2)[3],lf[493]);
if(C_truep(t10)){
t11=(
C_trace("core.scm:2122: grow"),
  f_17886(C_a_i(&a,29),C_fix(1))
);
t12=C_i_car(((C_word*)t2)[4]);
t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18138,a[2]=((C_word*)t2)[7],a[3]=((C_word*)t2)[11],a[4]=((C_word*)t2)[14],a[5]=((C_word*)t2)[12],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2123: ##sys#decompose-lambda-list"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[198]);
C_word av2[4];
av2[0]=*((C_word*)lf[198]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=t12;
av2[3]=t13;
tp(4,av2);}}
else{
t11=C_eqp(((C_word*)t2)[3],lf[100]);
t12=(C_truep(t11)?t11:C_eqp(((C_word*)t2)[3],lf[542]));
if(C_truep(t12)){
t13=(
C_trace("core.scm:2135: grow"),
  f_17886(C_a_i(&a,29),C_fix(1))
);
t14=C_i_caddr(((C_word*)t2)[4]);
t15=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_18207,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[7],a[4]=((C_word*)t2)[13],a[5]=((C_word*)t2)[9],a[6]=((C_word*)t2)[11],a[7]=((C_word*)t2)[14],a[8]=((C_word*)t2)[12],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:2136: ##sys#decompose-lambda-list"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[198]);
C_word av2[4];
av2[0]=*((C_word*)lf[198]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=t14;
av2[3]=t15;
tp(4,av2);}}
else{
t13=C_eqp(((C_word*)t2)[3],lf[292]);
t14=(C_truep(t13)?t13:C_eqp(((C_word*)t2)[3],lf[185]));
if(C_truep(t14)){
t15=C_i_car(((C_word*)t2)[4]);
t16=C_i_car(((C_word*)t2)[11]);
t17=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_18345,a[2]=((C_word*)t2)[14],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[11],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[12],a[8]=((C_word*)t2)[13],a[9]=((C_word*)t2)[7],a[10]=t15,a[11]=((C_word*)t2)[15],a[12]=t16,tmp=(C_word)a,a+=13,tmp);
t18=(C_truep(*((C_word*)lf[72]+1))?C_i_not(*((C_word*)lf[56]+1)):C_SCHEME_FALSE);
if(C_truep(t18)){
t19=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18402,a[2]=t17,a[3]=t15,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2166: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[193]);
C_word av2[4];
av2[0]=*((C_word*)lf[193]+1);
av2[1]=t19;
av2[2]=t15;
av2[3]=lf[557];
tp(4,av2);}}
else{
t19=t17;{
C_word av2[2];
av2[0]=t19;
av2[1]=C_SCHEME_UNDEFINED;
f_18345(2,av2);}}}
else{
t15=C_eqp(((C_word*)t2)[3],lf[482]);
t16=(C_truep(t15)?t15:C_eqp(((C_word*)t2)[3],lf[308]));
if(C_truep(t16)){
t17=C_i_car(((C_word*)t2)[4]);
t18=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_18442,a[2]=((C_word*)t2)[10],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[11],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[12],a[8]=((C_word*)t2)[13],tmp=(C_word)a,a+=9,tmp);
t19=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_18448,a[2]=t18,a[3]=t17,a[4]=((C_word*)t2)[13],a[5]=((C_word*)t2)[10],a[6]=((C_word*)t2)[2],a[7]=((C_word*)t2)[11],a[8]=((C_word*)t2)[6],a[9]=((C_word*)t2)[5],a[10]=((C_word*)t2)[12],tmp=(C_word)a,a+=11,tmp);
if(C_truep(*((C_word*)lf[72]+1))){
if(C_truep(((C_word*)t2)[13])){
if(C_truep(C_i_symbolp(t17))){
C_trace(C_text("core.scm:2185: chicken.compiler.support#get-real-name"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[128]);
C_word av2[3];
av2[0]=*((C_word*)lf[128]+1);
av2[1]=t19;
av2[2]=t17;
tp(3,av2);}}
else{
t20=t19;{
C_word av2[2];
av2[0]=t20;
av2[1]=C_SCHEME_FALSE;
f_18448(2,av2);}}}
else{
t20=t19;{
C_word av2[2];
av2[0]=t20;
av2[1]=C_SCHEME_FALSE;
f_18448(2,av2);}}}
else{
t20=t19;{
C_word av2[2];
av2[0]=t20;
av2[1]=C_SCHEME_FALSE;
f_18448(2,av2);}}}
else{
C_trace(C_text("core.scm:2189: walkeach"));
t17=((C_word*)((C_word*)t2)[10])[1];
f_18537(t17,((C_word*)t2)[2],((C_word*)t2)[11],((C_word*)t2)[6],((C_word*)t2)[5],((C_word*)t2)[12],((C_word*)t2)[13]);}}}}}}}}}}

/* k17928 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17930(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(34,c,5)))){
C_save_and_reclaim((void *)f_17930,c,av);}
a=C_alloc(34);
if(C_truep(C_i_memq(((C_word*)t0)[2],((C_word*)t0)[3]))){
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=C_s_a_i_plus(&a,2,lf[64],C_fix(1));
t3=C_mutate(&lf[64] /* (set! chicken.compiler.core#current-program-size ...) */,t2);
if(C_truep(C_i_memq(((C_word*)t0)[2],((C_word*)t0)[5]))){
C_trace(C_text("core.scm:2086: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[2];
av2[4]=lf[534];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17961,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2087: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[2];
av2[4]=lf[98];
tp(5,av2);}}}}

/* k17959 in k17928 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17961(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_17961,c,av);}
if(C_truep(C_i_not(t1))){
C_trace(C_text("core.scm:2088: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[98];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k17989 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17991(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,6)))){
C_save_and_reclaim((void *)f_17991,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17994,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:2106: walk"));
t3=((C_word*)((C_word*)t0)[9])[1];
f_17893(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}

/* k17992 in k17989 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_17994(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_17994,c,av);}
C_trace(C_text("core.scm:2107: walkeach"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_18537(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}

/* k18010 in k18057 in k18061 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18012(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,5)))){
C_save_and_reclaim((void *)f_18012,c,av);}
a=C_alloc(17);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18015,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t1)){
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_18055,a[2]=t3,a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[6],a[5]=((C_word*)t2)[2],a[6]=((C_word*)t2)[3],a[7]=((C_word*)t2)[4],a[8]=((C_word*)t2)[7],a[9]=t1,tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:2101: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t4;
av2[2]=t1;
tp(3,av2);}}
else{
t4=C_a_i_cons(&a,2,((C_word*)t2)[2],((C_word*)t2)[3]);
C_trace(C_text("core.scm:2105: chicken.compiler.support#collect!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[537]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[537]+1);
av2[1]=((C_word*)t2)[4];
av2[2]=((C_word*)t2)[5];
av2[3]=((C_word*)t2)[6];
av2[4]=lf[102];
av2[5]=t4;
tp(6,av2);}}}

/* k18013 in k18010 in k18057 in k18061 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18015(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_18015,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
C_trace(C_text("core.scm:2105: chicken.compiler.support#collect!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[537]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[537]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[5];
av2[3]=((C_word*)t0)[6];
av2[4]=lf[102];
av2[5]=t2;
tp(6,av2);}}

/* k18039 in k18053 in k18010 in k18057 in k18061 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_18041(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_18041,c,av);}
a=C_alloc(3);
if(C_truep(C_i_not(t1))){
C_trace(C_text("core.scm:2104: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[538];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}
else{
t2=C_a_i_cons(&a,2,((C_word*)t0)[5],((C_word*)t0)[6]);
C_trace(C_text("core.scm:2105: chicken.compiler.support#collect!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[537]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[537]+1);
av2[1]=((C_word*)t0)[7];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[102];
av2[5]=t2;
tp(6,av2);}}}

/* k18049 in k18053 in k18010 in k18057 in k18061 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_18051(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_18051,c,av);}
C_trace(C_text("core.scm:2102: chicken.compiler.support#llist-match?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[539]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[539]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_i_caddr(t1);
av2[3]=C_u_i_cdr(((C_word*)t0)[3]);
tp(4,av2);}}

/* k18053 in k18010 in k18057 in k18061 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18055(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){
C_save_and_reclaim((void *)f_18055,c,av);}
a=C_alloc(12);
t2=C_eqp(lf[100],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18041,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18051,a[2]=t3,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2102: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[9];
tp(3,av2);}}
else{
t3=C_a_i_cons(&a,2,((C_word*)t0)[5],((C_word*)t0)[6]);
C_trace(C_text("core.scm:2105: chicken.compiler.support#collect!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[537]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[537]+1);
av2[1]=((C_word*)t0)[7];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[102];
av2[5]=t3;
tp(6,av2);}}}

/* k18057 in k18061 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18059(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_18059,c,av);}
a=C_alloc(3);
t2=C_i_car(t1);
t3=C_mutate(((C_word *)t0)+6,t2);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18012,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2099: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[5];
av2[3]=((C_word*)t0)[6];
av2[4]=lf[99];
tp(5,av2);}}

/* k18061 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18063(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_18063,c,av);}
a=C_alloc(8);
t2=C_eqp(lf[521],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18059,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=C_SCHEME_UNDEFINED,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("core.scm:2098: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[7];
tp(3,av2);}}
else{
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_17991(2,av2);}}}

/* k18073 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18075(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
C_save_and_reclaim((void *)f_18075,c,av);}
a=C_alloc(14);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_18080,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=t3,a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp));
t5=((C_word*)t3)[1];
f_18080(t5,((C_word*)t0)[10],((C_word*)t0)[5],((C_word*)t0)[11]);}

/* loop in k18073 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_18080(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,0,5)))){
C_save_and_reclaim_args((void *)trf_18080,4,t0,t1,t2,t3);}
a=C_alloc(15);
if(C_truep(C_i_nullp(t2))){
t4=C_i_car(t3);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18098,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("core.scm:2113: scheme#append"));
t6=*((C_word*)lf[6]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[7];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
else{
t4=C_i_car(t2);
t5=C_i_car(t3);
t6=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_18107,a[2]=((C_word*)t0)[8],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[2],a[7]=t5,a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[5],a[12]=((C_word*)t0)[10],a[13]=t4,a[14]=((C_word*)t0)[4],tmp=(C_word)a,a+=15,tmp);
C_trace(C_text("core.scm:2116: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word av2[6];
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t6;
av2[2]=((C_word*)t0)[11];
av2[3]=t4;
av2[4]=lf[540];
av2[5]=((C_word*)t0)[5];
tp(6,av2);}}}

/* k18096 in loop in k18073 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18098(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_18098,c,av);}
C_trace(C_text("core.scm:2113: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_17893(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,((C_word*)t0)[6],((C_word*)t0)[7]);}

/* k18105 in loop in k18073 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18107(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){
C_save_and_reclaim((void *)f_18107,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_18110,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp);
C_trace(C_text("core.scm:2117: assign"));
t3=((C_word*)((C_word*)t0)[12])[1];
f_18600(t3,t2,((C_word*)t0)[13],((C_word*)t0)[7],((C_word*)t0)[14],((C_word*)t0)[11]);}

/* k18108 in k18105 in loop in k18073 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18110(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){
C_save_and_reclaim((void *)f_18110,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18113,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2118: walk"));
t3=((C_word*)((C_word*)t0)[6])[1];
f_17893(t3,t2,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);}

/* k18111 in k18108 in k18105 in loop in k18073 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_18113(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_18113,c,av);}
C_trace(C_text("core.scm:2119: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_18080(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]));}

/* a18137 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18138(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){
C_save_and_reclaim((void *)f_18138,c,av);}
a=C_alloc(16);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18140,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t6=C_i_check_list_2(t2,lf[103]);
t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18150,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18165,a[2]=t9,a[3]=t5,tmp=(C_word)a,a+=4,tmp));
t11=((C_word*)t9)[1];
f_18165(t11,t7,t2);}

/* g3903 in a18137 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_18140(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){
C_save_and_reclaim_args((void *)trf_18140,3,t0,t1,t2);}
C_trace(C_text("core.scm:2127: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word av2[6];
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=lf[541];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}

/* k18148 in a18137 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18150(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_18150,c,av);}
a=C_alloc(11);
t2=lf[81];
t3=lf[81] /* chicken.compiler.core#toplevel-scope */ =C_SCHEME_FALSE;;
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18154,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t5=C_i_car(((C_word*)t0)[3]);
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18163,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=t5,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:2131: scheme#append"));
t7=*((C_word*)lf[6]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}

/* k18152 in k18148 in a18137 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18154(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_18154,c,av);}
t2=C_mutate(&lf[81] /* (set! chicken.compiler.core#toplevel-scope ...) */,((C_word*)t0)[2]);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k18161 in k18148 in a18137 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18163(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_18163,c,av);}
C_trace(C_text("core.scm:2131: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_17893(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,C_SCHEME_FALSE);}

/* for-each-loop3902 in a18137 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_18165(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_18165,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18175,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2126: g3903"));
t4=((C_word*)t0)[3];
f_18140(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k18173 in for-each-loop3902 in a18137 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18175(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_18175,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_18165(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* a18206 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18207(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,5)))){
C_save_and_reclaim((void *)f_18207,c,av);}
a=C_alloc(20);
t5=C_i_car(((C_word*)t0)[2]);
t6=lf[64];
t7=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_18214,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=t6,a[6]=t1,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=t5,a[12]=((C_word*)t0)[2],a[13]=t4,tmp=(C_word)a,a+=14,tmp);
if(C_truep(((C_word*)t0)[4])){
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18324,a[2]=t7,a[3]=((C_word*)t0)[3],a[4]=t5,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2142: chicken.compiler.support#collect!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[537]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[537]+1);
av2[1]=t8;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[549];
av2[5]=t5;
tp(6,av2);}}
else{
t8=t7;{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_SCHEME_UNDEFINED;
f_18214(2,av2);}}}

/* k18212 in a18206 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18214(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,3)))){
C_save_and_reclaim((void *)f_18214,c,av);}
a=C_alloc(23);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18215,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=C_i_check_list_2(((C_word*)t0)[4],lf[103]);
t4=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_18228,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[2],a[12]=((C_word*)t0)[13],tmp=(C_word)a,a+=13,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18300,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_18300(t8,t4,((C_word*)t0)[4]);}

/* g3934 in k18212 in a18206 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_18215(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,5)))){
C_save_and_reclaim_args((void *)trf_18215,3,t0,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18219,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2146: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word av2[6];
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=lf[540];
av2[5]=((C_word*)t0)[3];
tp(6,av2);}}

/* k18217 in g3934 in k18212 in a18206 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18219(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_18219,c,av);}
C_trace(C_text("core.scm:2147: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[541];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}

/* k18226 in k18212 in a18206 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18228(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,5)))){
C_save_and_reclaim((void *)f_18228,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_18231,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp);
if(C_truep(((C_word*)t0)[12])){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18291,a[2]=((C_word*)t0)[12],a[3]=t2,a[4]=((C_word*)t0)[11],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2150: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[11];
av2[3]=((C_word*)t0)[12];
av2[4]=lf[546];
av2[5]=lf[547];
tp(6,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_18231(2,av2);}}}

/* k18229 in k18226 in k18212 in a18206 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18231(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){
C_save_and_reclaim((void *)f_18231,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_18234,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18285,a[2]=t2,a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[9],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2152: chicken.compiler.support#simple-lambda-node?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[544]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[544]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k18232 in k18229 in k18226 in k18212 in a18206 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_18234(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_18234,c,av);}
a=C_alloc(3);
t2=lf[81];
t3=C_mutate(((C_word *)t0)+2,t2);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18237,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(lf[82])){
t5=t4;
f_18237(t5,C_SCHEME_UNDEFINED);}
else{
t5=C_mutate(&lf[82] /* (set! chicken.compiler.core#toplevel-lambda-id ...) */,((C_word*)t0)[10]);
t6=t4;
f_18237(t6,t5);}}

/* k18235 in k18232 in k18229 in k18226 in k18212 in a18206 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void f_18237(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){
C_save_and_reclaim_args((void *)trf_18237,2,t0,t1);}
a=C_alloc(11);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_18240,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[10],tmp=(C_word)a,a+=11,tmp);
if(C_truep(C_i_cadr(((C_word*)t2)[11]))){
t4=C_eqp(lf[82],((C_word*)t2)[10]);
if(C_truep(C_i_not(t4))){
t5=lf[81] /* chicken.compiler.core#toplevel-scope */ =C_SCHEME_FALSE;;
t6=t3;
f_18240(t6,t5);}
else{
t5=t3;
f_18240(t5,C_SCHEME_UNDEFINED);}}
else{
t4=t3;
f_18240(t4,C_SCHEME_UNDEFINED);}}

/* k18238 in k18235 in k18232 in k18229 in k18226 in k18212 in a18206 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void f_18240(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){
C_save_and_reclaim_args((void *)trf_18240,2,t0,t1);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18243,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=C_i_car(((C_word*)t0)[6]);
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18267,a[2]=((C_word*)t0)[7],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("core.scm:2157: scheme#append"));
t5=*((C_word*)lf[6]+1);{
C_word av2[4];
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t0)[9];
av2[3]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k18241 in k18238 in k18235 in k18232 in k18229 in k18226 in k18212 in a18206 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_18243(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_18243,c,av);}
a=C_alloc(4);
t2=C_mutate(&lf[81] /* (set! chicken.compiler.core#toplevel-scope ...) */,((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18259,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2160: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}

/* k18257 in k18241 in k18238 in k18235 in k18232 in k18229 in k18226 in k18212 in a18206 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_18259(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
C_save_and_reclaim((void *)f_18259,c,av);}
a=C_alloc(29);
t2=C_i_cdddr(t1);
t3=C_s_a_i_minus(&a,2,lf[64],((C_word*)t0)[2]);
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_set_car(t2,t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k18265 in k18238 in k18235 in k18232 in k18229 in k18226 in k18212 in a18206 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_18267(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_18267,c,av);}
C_trace(C_text("core.scm:2157: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_17893(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[7]);}

/* k18283 in k18229 in k18226 in k18212 in a18206 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_18285(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_18285,c,av);}
if(C_truep(t1)){
C_trace(C_text("core.scm:2152: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[543];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_18234(2,av2);}}}

/* k18289 in k18226 in k18212 in a18206 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18291(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_18291,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],C_fix(0));
C_trace(C_text("core.scm:2151: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[2];
av2[4]=lf[545];
av2[5]=t2;
tp(6,av2);}}

/* for-each-loop3933 in k18212 in a18206 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_18300(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_18300,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18310,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2144: g3934"));
t4=((C_word*)t0)[3];
f_18215(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k18308 in for-each-loop3933 in k18212 in a18206 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18310(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_18310,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_18300(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k18322 in a18206 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18324(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_18324,c,av);}
C_trace(C_text("core.scm:2143: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[548];
av2[5]=((C_word*)t0)[5];
tp(6,av2);}}

/* k18343 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18345(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_18345,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18348,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2171: chicken.compiler.support#collect!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[537]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[537]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
av2[3]=((C_word*)t0)[10];
av2[4]=lf[552];
av2[5]=((C_word*)t0)[12];
tp(6,av2);}}

/* k18346 in k18343 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18348(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(47,c,5)))){
C_save_and_reclaim((void *)f_18348,c,av);}
a=C_alloc(47);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_18351,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[10],a[11]=((C_word*)t2)[11],a[12]=((C_word*)t2)[12],tmp=(C_word)a,a+=13,tmp);
if(C_truep(C_i_memq(((C_word*)t2)[10],((C_word*)t2)[6]))){
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_18351(2,av2);}}
else{
t4=C_s_a_i_plus(&a,2,lf[64],C_fix(1));
t5=C_mutate(&lf[64] /* (set! chicken.compiler.core#current-program-size ...) */,t4);
if(C_truep(C_i_memq(((C_word*)t2)[10],((C_word*)t2)[5]))){
C_trace(C_text("core.scm:2175: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[9];
av2[3]=((C_word*)t2)[10];
av2[4]=lf[534];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}
else{
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18396,a[2]=t3,a[3]=((C_word*)t2)[9],a[4]=((C_word*)t2)[10],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2176: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t6;
av2[2]=((C_word*)t2)[9];
av2[3]=((C_word*)t2)[10];
av2[4]=lf[98];
tp(5,av2);}}}}

/* k18349 in k18346 in k18343 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18351(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){
C_save_and_reclaim((void *)f_18351,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_18354,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
C_trace(C_text("core.scm:2178: assign"));
t3=((C_word*)((C_word*)t0)[11])[1];
f_18600(t3,t2,((C_word*)t0)[10],((C_word*)t0)[12],((C_word*)t0)[7],((C_word*)t0)[8]);}

/* k18352 in k18349 in k18346 in k18343 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18354(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_18354,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18357,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(lf[81])){
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_18357(2,av2);}}
else{
C_trace(C_text("core.scm:2179: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
av2[3]=((C_word*)t0)[10];
av2[4]=lf[551];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}}

/* k18355 in k18352 in k18349 in k18346 in k18343 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_18357(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){
C_save_and_reclaim((void *)f_18357,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_18360,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:2180: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[9];
av2[3]=((C_word*)t2)[10];
av2[4]=lf[550];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}

/* k18358 in k18355 in k18352 in k18349 in k18346 in k18343 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_18360(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_18360,c,av);}
C_trace(C_text("core.scm:2181: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_17893(t2,((C_word*)t0)[3],C_u_i_car(((C_word*)t0)[4]),((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}

/* k18394 in k18346 in k18343 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18396(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_18396,c,av);}
if(C_truep(C_i_not(t1))){
C_trace(C_text("core.scm:2177: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[98];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_18351(2,av2);}}}

/* k18400 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18402(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_18402,c,av);}
t2=C_eqp(t1,lf[553]);
if(C_truep(t2)){
C_trace(C_text("core.scm:2168: chicken.base#warning"));
t3=C_fast_retrieve(lf[137]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[554];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t3=C_eqp(t1,lf[555]);
if(C_truep(t3)){
C_trace(C_text("core.scm:2170: chicken.base#warning"));
t4=C_fast_retrieve(lf[137]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[556];
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
else{
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_18345(2,av2);}}}}

/* k18440 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18442(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_18442,c,av);}
C_trace(C_text("core.scm:2187: walkeach"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_18537(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}

/* k18446 in k17913 in k17901 in k17898 in k17895 in walk in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18448(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_18448,c,av);}
if(C_truep(t1)){
C_trace(C_text("core.scm:2186: chicken.compiler.support#set-real-name!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[118]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[118]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
tp(4,av2);}}
else{
C_trace(C_text("core.scm:2187: walkeach"));
t2=((C_word*)((C_word*)t0)[5])[1];
f_18537(t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[4]);}}

/* walkeach in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_18537(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
C_word tmp;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){
C_save_and_reclaim_args((void *)trf_18537,7,t0,t1,t2,t3,t4,t5,t6);}
a=C_alloc(13);
t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18539,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=t5,a[6]=t6,tmp=(C_word)a,a+=7,tmp);
t8=C_i_check_list_2(t2,lf[103]);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18551,a[2]=t10,a[3]=t7,tmp=(C_word)a,a+=4,tmp));
t12=((C_word*)t10)[1];
f_18551(t12,t1,t2);}

/* g4003 in walkeach in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_18539(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,6)))){
C_save_and_reclaim_args((void *)trf_18539,3,t0,t1,t2);}
C_trace(C_text("core.scm:2192: walk"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_17893(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);}

/* for-each-loop4002 in walkeach in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_18551(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_18551,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18561,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2192: g4003"));
t4=((C_word*)t0)[3];
f_18539(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k18559 in for-each-loop4002 in walkeach in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18561(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_18561,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_18551(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* mark-rest-cdr in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_18574(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){
C_save_and_reclaim_args((void *)trf_18574,5,t0,t1,t2,t3,t4);}
a=C_alloc(9);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18578,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t6=C_a_i_cons(&a,2,t3,t4);
C_trace(C_text("core.scm:2195: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word av2[6];
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=lf[545];
av2[5]=t6;
tp(6,av2);}}

/* k18576 in mark-rest-cdr in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18578(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_18578,c,av);}
C_trace(C_text("core.scm:2196: chicken.compiler.support#collect!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[537]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[537]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[559];
av2[5]=((C_word*)t0)[5];
tp(6,av2);}}

/* mark-rest-null? in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_18587(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){
C_save_and_reclaim_args((void *)trf_18587,5,t0,t1,t2,t3,t4);}
a=C_alloc(9);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18591,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t6=C_a_i_cons(&a,2,t3,t4);
C_trace(C_text("core.scm:2199: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word av2[6];
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=lf[560];
av2[5]=t6;
tp(6,av2);}}

/* k18589 in mark-rest-null? in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18591(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_18591,c,av);}
C_trace(C_text("core.scm:2200: chicken.compiler.support#collect!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[537]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[537]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[559];
av2[5]=((C_word*)t0)[5];
tp(6,av2);}}

/* assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_18600(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
C_word tmp;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_18600,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(10);
t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_18908,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=t3,a[7]=((C_word*)t0)[4],a[8]=t4,a[9]=t5,tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:2204: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word av2[3];
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t6;
av2[2]=t3;
tp(3,av2);}}

/* k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18607(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_18607,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18881,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2208: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[6];
tp(3,av2);}}

/* k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18613(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_18613,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18854,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2212: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}

/* k18623 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_18625(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_18625,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18832,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2218: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word av2[3];
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}}

/* k18647 in k18651 in k18830 in k18623 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_18649(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){
C_save_and_reclaim((void *)f_18649,c,av);}
a=C_alloc(29);
t2=C_i_cadr(t1);
t3=C_s_a_i_plus(&a,2,t2,C_fix(1));
C_trace(C_text("core.scm:2221: mark-rest-cdr"));
t4=((C_word*)((C_word*)t0)[2])[1];
f_18574(t4,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t3);}

/* k18651 in k18830 in k18623 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18653(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_18653,c,av);}
a=C_alloc(6);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18649,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2220: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}

/* k18670 in k18674 in k18826 in k18830 in k18623 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_18672(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_18672,c,av);}
C_trace(C_text("core.scm:2226: mark-rest-null?"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_18587(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],C_i_cadr(t1));}

/* k18674 in k18826 in k18830 in k18623 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_18676(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_18676,c,av);}
a=C_alloc(6);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18672,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2225: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}

/* k18677 in k18826 in k18830 in k18623 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_18679(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_18679,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18682,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18817,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18824,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2234: chicken.base#alist-ref"));
t5=*((C_word*)lf[563]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[569];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}
else{
t3=t2;
f_18682(t3,C_SCHEME_FALSE);}}

/* k18680 in k18677 in k18826 in k18830 in k18623 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void f_18682(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){
C_save_and_reclaim_args((void *)trf_18682,2,t0,t1);}
a=C_alloc(11);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18686,a[2]=((C_word*)t2)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[3],a[5]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2212: g4059"));
t4=t3;
f_18686(t4,((C_word*)t2)[4],t1);}
else{
t3=C_i_memq(((C_word*)t2)[3],((C_word*)t2)[5]);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18710,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[6],a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[7],a[6]=((C_word*)t2)[8],tmp=(C_word)a,a+=7,tmp);
if(C_truep(t3)){
t5=t4;
f_18710(t5,t3);}
else{
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18804,a[2]=t4,a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2242: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[193]);
C_word av2[4];
av2[0]=*((C_word*)lf[193]+1);
av2[1]=t5;
av2[2]=((C_word*)t2)[3];
av2[3]=lf[360];
tp(4,av2);}}}}

/* g4059 in k18680 in k18677 in k18826 in k18830 in k18623 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void f_18686(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_18686,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+5,t2);
t4=C_mutate(((C_word *)t0)+3,t1);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18690,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2237: chicken.base#alist-ref"));
t6=*((C_word*)lf[563]+1);{
C_word av2[4];
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[565];
av2[3]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}

/* k18688 in g4059 in k18680 in k18677 in k18826 in k18830 in k18623 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_18690(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_18690,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18693,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2238: chicken.base#alist-ref"));
t4=*((C_word*)lf[563]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[564];
av2[3]=((C_word*)t2)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k18691 in k18688 in g4059 in k18680 in k18677 in k18826 in k18830 in k18623 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_18693(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){
C_save_and_reclaim((void *)f_18693,c,av);}
a=C_alloc(29);
t2=C_s_a_i_plus(&a,2,t1,C_fix(1));
C_trace(C_text("core.scm:2239: mark-rest-cdr"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_18574(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t2);}

/* k18708 in k18680 in k18677 in k18826 in k18830 in k18623 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void f_18710(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,5)))){
C_save_and_reclaim_args((void *)trf_18710,2,t0,t1);}
a=C_alloc(13);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18713,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("core.scm:2244: chicken.compiler.support#db-get-all"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[566]);
C_word av2[6];
av2[0]=*((C_word*)lf[566]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[541];
av2[5]=lf[99];
tp(6,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18755,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
t3=*((C_word*)lf[52]+1);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18791,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(*((C_word*)lf[52]+1))){
t5=t4;{
C_word av2[2];
av2[0]=t5;
av2[1]=*((C_word*)lf[52]+1);
f_18791(2,av2);}}
else{
C_trace(C_text("core.scm:2253: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[193]);
C_word av2[4];
av2[0]=*((C_word*)lf[193]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[423];
tp(4,av2);}}}}

/* k18711 in k18708 in k18680 in k18677 in k18826 in k18830 in k18623 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_18713(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_18713,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18716,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2245: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[540];
tp(5,av2);}}

/* k18714 in k18711 in k18708 in k18680 in k18677 in k18826 in k18830 in k18623 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_18716(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_18716,c,av);}
t2=((C_word*)t0)[2];
if(C_truep(C_i_assq(lf[541],((C_word*)t2)[2]))){
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
if(C_truep(C_i_assq(lf[99],((C_word*)t2)[2]))){
C_trace(C_text("core.scm:2248: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t2)[3];
av2[2]=((C_word*)t2)[4];
av2[3]=((C_word*)t2)[5];
av2[4]=lf[541];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}
else{
t3=C_i_not(t1);
t4=(C_truep(t3)?t3:C_eqp(((C_word*)t2)[6],t1));
if(C_truep(t4)){
C_trace(C_text("core.scm:2250: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t2)[3];
av2[2]=((C_word*)t2)[4];
av2[3]=((C_word*)t2)[5];
av2[4]=lf[99];
av2[5]=((C_word*)t2)[7];
tp(6,av2);}}
else{
C_trace(C_text("core.scm:2251: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t2)[3];
av2[2]=((C_word*)t2)[4];
av2[3]=((C_word*)t2)[5];
av2[4]=lf[541];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}}}}

/* k18753 in k18708 in k18680 in k18677 in k18826 in k18830 in k18623 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void f_18755(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,5)))){
C_save_and_reclaim_args((void *)trf_18755,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18758,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2255: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word av2[5];
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[540];
tp(5,av2);}}
else{
C_trace(C_text("core.scm:2261: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word av2[6];
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[541];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}}

/* k18756 in k18753 in k18708 in k18680 in k18677 in k18826 in k18830 in k18623 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_18758(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_18758,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+5,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18764,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2256: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[3];
av2[3]=((C_word*)t2)[4];
av2[4]=lf[567];
tp(5,av2);}}

/* k18762 in k18756 in k18753 in k18708 in k18680 in k18677 in k18826 in k18830 in k18623 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_18764(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_18764,c,av);}
t2=((C_word*)t0)[2];
if(C_truep(t1)){
C_trace(C_text("core.scm:2257: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
av2[3]=((C_word*)t2)[4];
av2[4]=lf[541];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}
else{
t3=C_i_not(((C_word*)t2)[5]);
t4=(C_truep(t3)?t3:C_eqp(((C_word*)t2)[6],((C_word*)t2)[5]));
if(C_truep(t4)){
C_trace(C_text("core.scm:2259: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
av2[3]=((C_word*)t2)[4];
av2[4]=lf[567];
av2[5]=((C_word*)t2)[7];
tp(6,av2);}}
else{
C_trace(C_text("core.scm:2260: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
av2[3]=((C_word*)t2)[4];
av2[4]=lf[541];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}}}

/* k18789 in k18708 in k18680 in k18677 in k18826 in k18830 in k18623 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_18791(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_18791,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18798,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2254: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[541];
tp(5,av2);}}
else{
t2=((C_word*)t0)[2];
f_18755(t2,C_SCHEME_FALSE);}}

/* k18796 in k18789 in k18708 in k18680 in k18677 in k18826 in k18830 in k18623 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_18798(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_18798,c,av);}
t2=((C_word*)t0)[2];
f_18755(t2,C_i_not(t1));}

/* k18802 in k18680 in k18677 in k18826 in k18830 in k18623 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_18804(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_18804,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)t0)[2];
f_18710(t2,t1);}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18814,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2243: chicken.compiler.support#variable-visible?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[568]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[568]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=*((C_word*)lf[26]+1);
tp(4,av2);}}}

/* k18812 in k18802 in k18680 in k18677 in k18826 in k18830 in k18623 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_18814(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_18814,c,av);}
t2=((C_word*)t0)[2];
f_18710(t2,C_i_not(t1));}

/* k18815 in k18677 in k18826 in k18830 in k18623 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_18817(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_18817,c,av);}
t2=((C_word*)t0)[2];
f_18682(t2,(C_truep(t1)?((C_word*)t0)[3]:C_SCHEME_FALSE));}

/* k18822 in k18677 in k18826 in k18830 in k18623 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_18824(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_18824,c,av);}
C_trace(C_text("core.scm:2234: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
av2[4]=lf[560];
tp(5,av2);}}

/* k18826 in k18830 in k18623 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18828(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_18828,c,av);}
a=C_alloc(9);
t2=C_eqp(lf[562],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18676,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2224: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_18679,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:2229: chicken.compiler.support#match-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[570]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[570]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
av2[3]=lf[571];
av2[4]=lf[572];
tp(5,av2);}}}

/* k18830 in k18623 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18832(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_18832,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=C_eqp(lf[532],t1);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18653,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2219: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[5];
tp(3,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_18828,a[2]=((C_word*)t2)[6],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[2],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:2223: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[5];
tp(3,av2);}}}

/* k18844 in k18848 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18846(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_18846,c,av);}
t2=((C_word*)t0)[2];
f_18625(t2,C_eqp(((C_word*)t0)[3],C_i_car(t1)));}

/* k18848 in k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18850(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_18850,c,av);}
a=C_alloc(4);
t2=C_eqp(lf[521],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18846,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2215: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}
else{
t3=((C_word*)t0)[2];
f_18625(t3,C_SCHEME_FALSE);}}

/* k18852 in k18611 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18854(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,5)))){
C_save_and_reclaim((void *)f_18854,c,av);}
a=C_alloc(15);
t2=((C_word*)t0)[2];
t3=C_eqp(lf[483],t1);
if(C_truep(t3)){
C_trace(C_text("core.scm:2213: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
av2[3]=((C_word*)t2)[4];
av2[4]=lf[561];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_18625,a[2]=((C_word*)t2)[5],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[3],a[9]=((C_word*)t2)[9],tmp=(C_word)a,a+=10,tmp);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18850,a[2]=t4,a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[6],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2214: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t5;
av2[2]=((C_word*)t2)[6];
tp(3,av2);}}}

/* k18855 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18857(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_18857,c,av);}
if(C_truep(t1)){
C_trace(C_text("core.scm:2210: mark-rest-null?"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_18587(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_i_car(t1),C_u_i_cdr(t1));}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_18613(2,av2);}}}

/* k18875 in k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18877(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_18877,c,av);}
C_trace(C_text("core.scm:2209: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=C_i_car(t1);
av2[4]=lf[560];
tp(5,av2);}}

/* k18879 in k18605 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18881(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){
C_save_and_reclaim((void *)f_18881,c,av);}
a=C_alloc(19);
t2=((C_word*)t0)[2];
t3=C_eqp(lf[521],t1);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_18613,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],tmp=(C_word)a,a+=10,tmp);
if(C_truep(t3)){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18857,a[2]=((C_word*)t2)[7],a[3]=t4,a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18877,a[2]=t5,a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2209: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t6;
av2[2]=((C_word*)t2)[6];
tp(3,av2);}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_FALSE;
f_18613(2,av2);}}}

/* k18882 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18884(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_18884,c,av);}
if(C_truep(t1)){
C_trace(C_text("core.scm:2206: mark-rest-cdr"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_18574(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_i_car(t1),C_u_i_cdr(t1));}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_18607(2,av2);}}}

/* k18902 in k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18904(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_18904,c,av);}
C_trace(C_text("core.scm:2205: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=C_i_car(t1);
av2[4]=lf[545];
tp(5,av2);}}

/* k18906 in assign in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18908(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_18908,c,av);}
a=C_alloc(12);
t2=C_eqp(lf[521],t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18607,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t2)){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18884,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18904,a[2]=t4,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2205: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_18607(2,av2);}}}

/* ref in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_18910(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){
C_save_and_reclaim_args((void *)trf_18910,4,t0,t1,t2,t3);}
C_trace(C_text("core.scm:2264: chicken.compiler.support#collect!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[537]);
C_word av2[6];
av2[0]=*((C_word*)lf[537]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=lf[573];
av2[5]=t3;
tp(6,av2);}}

/* k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18931(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,6)))){
C_save_and_reclaim((void *)f_18931,c,av);}
a=C_alloc(4);
t2=lf[64] /* chicken.compiler.core#current-program-size */ =C_fix(0);;
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18935,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2272: walk"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_17893(t4,t3,((C_word*)t0)[5],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);}

/* k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18935(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_18935,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18938,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2275: chicken.compiler.support#debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[593]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[593]+1);
av2[1]=t2;
av2[2]=lf[601];
av2[3]=lf[602];
tp(4,av2);}}

/* k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18938(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_18938,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=lf[65] /* chicken.compiler.core#current-analysis-database-size */ =C_fix(0);;
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18942,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18948,a[2]=((C_word*)t2)[3],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2277: chicken.internal#hash-table-for-each"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[104]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[104]+1);
av2[1]=t4;
av2[2]=t5;
av2[3]=((C_word*)t2)[3];
tp(4,av2);}}

/* k18940 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18942(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_18942,c,av);}
if(C_truep(lf[63])){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=C_mutate(&lf[63] /* (set! chicken.compiler.core#original-program-size ...) */,lf[64]);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_18948(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word t29;
C_word t30;
C_word t31;
C_word t32;
C_word t33;
C_word t34;
C_word t35;
C_word t36;
C_word t37;
C_word t38;
C_word t39;
C_word t40;
C_word t41;
C_word t42;
C_word t43;
C_word t44;
C_word t45;
C_word t46;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(67,c,2)))){
C_save_and_reclaim((void *)f_18948,c,av);}
a=C_alloc(67);
t4=C_SCHEME_FALSE;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_SCHEME_FALSE;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_SCHEME_FALSE;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_SCHEME_FALSE;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_SCHEME_END_OF_LIST;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_SCHEME_FALSE;
t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
t16=C_SCHEME_END_OF_LIST;
t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp);
t18=C_SCHEME_FALSE;
t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp);
t20=C_SCHEME_FALSE;
t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp);
t22=C_SCHEME_FALSE;
t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp);
t24=C_fix(0);
t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp);
t26=C_SCHEME_FALSE;
t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp);
t28=C_fix(0);
t29=(*a=C_VECTOR_TYPE|1,a[1]=t28,tmp=(C_word)a,a+=2,tmp);
t30=C_fixnum_plus(lf[65],C_fix(1));
t31=lf[65] /* chicken.compiler.core#current-analysis-database-size */ =t30;;
t32=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_18954,a[2]=t5,a[3]=t13,a[4]=t25,a[5]=t15,a[6]=t11,a[7]=t17,a[8]=t29,a[9]=t19,a[10]=t21,a[11]=t23,a[12]=t7,a[13]=t9,a[14]=t27,tmp=(C_word)a,a+=15,tmp);
t33=C_i_check_list_2(t3,lf[103]);
t34=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20009,a[2]=t32,tmp=(C_word)a,a+=3,tmp);
t35=(
  f_20009(t34,t3)
);
t36=C_i_not(((C_word*)t5)[1]);
t37=(C_truep(t36)?((C_word*)t7)[1]:C_SCHEME_FALSE);
t38=C_set_block_item(t7,0,t37);
t39=C_i_not(((C_word*)t5)[1]);
t40=(C_truep(t39)?((C_word*)t9)[1]:C_SCHEME_FALSE);
t41=C_set_block_item(t9,0,t40);
t42=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_19097,a[2]=t9,a[3]=t7,a[4]=t3,a[5]=t1,a[6]=((C_word*)t0)[2],a[7]=t23,a[8]=t19,a[9]=t13,a[10]=t21,a[11]=t27,a[12]=t2,a[13]=t25,a[14]=t29,a[15]=t15,tmp=(C_word)a,a+=16,tmp);
if(C_truep(*((C_word*)lf[72]+1))){
t43=(C_truep(((C_word*)t7)[1])?C_a_i_list1(&a,1,((C_word*)t7)[1]):C_SCHEME_FALSE);
t44=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19940,a[2]=t2,a[3]=t42,tmp=(C_word)a,a+=4,tmp);
if(C_truep(t43)){
t45=t44;
f_19940(t45,t43);}
else{
if(C_truep(((C_word*)t23)[1])){
t45=((C_word*)t11)[1];
t46=t44;
f_19940(t46,t45);}
else{
t45=t44;
f_19940(t45,C_SCHEME_FALSE);}}}
else{
t43=t42;{
C_word *av2=av;
av2[0]=t43;
av2[1]=C_SCHEME_UNDEFINED;
f_19097(2,av2);}}}

/* g4113 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static C_word f_18954(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_stack_overflow_check;{}
t2=C_i_car(t1);
t3=C_eqp(t2,lf[541]);
if(C_truep(t3)){
t4=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE);
return(t4);}
else{
t4=C_eqp(t2,lf[573]);
if(C_truep(t4)){
t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,C_u_i_cdr(t1));
t6=C_i_length(((C_word*)((C_word*)t0)[3])[1]);
t7=C_set_block_item(((C_word*)t0)[4],0,t6);
return(t7);}
else{
t5=C_eqp(t2,lf[534]);
if(C_truep(t5)){
t6=C_set_block_item(((C_word*)t0)[5],0,C_SCHEME_TRUE);
return(t6);}
else{
t6=C_eqp(t2,lf[552]);
if(C_truep(t6)){
t7=C_mutate(((C_word *)((C_word*)t0)[6])+1,C_u_i_cdr(t1));
return(t7);}
else{
t7=C_eqp(t2,lf[102]);
if(C_truep(t7)){
t8=C_mutate(((C_word *)((C_word*)t0)[7])+1,C_u_i_cdr(t1));
t9=C_i_length(((C_word*)((C_word*)t0)[7])[1]);
t10=C_set_block_item(((C_word*)t0)[8],0,t9);
return(t10);}
else{
t8=C_eqp(t2,lf[550]);
if(C_truep(t8)){
t9=C_set_block_item(((C_word*)t0)[9],0,C_SCHEME_TRUE);
return(t9);}
else{
t9=C_eqp(t2,lf[551]);
if(C_truep(t9)){
t10=C_SCHEME_UNDEFINED;
return(t10);}
else{
t10=C_eqp(t2,lf[561]);
if(C_truep(t10)){
t11=C_set_block_item(((C_word*)t0)[10],0,C_SCHEME_TRUE);
return(t11);}
else{
t11=C_eqp(t2,lf[98]);
if(C_truep(t11)){
t12=C_set_block_item(((C_word*)t0)[11],0,C_SCHEME_TRUE);
return(t12);}
else{
t12=C_eqp(t2,lf[99]);
if(C_truep(t12)){
t13=C_mutate(((C_word *)((C_word*)t0)[12])+1,C_u_i_cdr(t1));
return(t13);}
else{
t13=C_eqp(t2,lf[567]);
if(C_truep(t13)){
t14=C_mutate(((C_word *)((C_word*)t0)[13])+1,C_u_i_cdr(t1));
return(t14);}
else{
t14=C_eqp(t2,lf[545]);
if(C_truep(t14)){
t15=C_mutate(((C_word *)((C_word*)t0)[14])+1,C_u_i_cdr(t1));
return(t15);}
else{
return(C_SCHEME_UNDEFINED);}}}}}}}}}}}}}

/* k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_19097(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_19097,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19100,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19866,a[2]=t2,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[12],tmp=(C_word)a,a+=5,tmp);
if(C_truep(*((C_word*)lf[72]+1))){
if(C_truep(((C_word*)((C_word*)t0)[7])[1])){
if(C_truep(C_i_nullp(((C_word*)((C_word*)t0)[9])[1]))){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19934,a[2]=t3,a[3]=((C_word*)t0)[12],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2337: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[193]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[193]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[12];
av2[3]=lf[407];
tp(4,av2);}}
else{
t4=t3;
f_19866(t4,C_SCHEME_FALSE);}}
else{
t4=t3;
f_19866(t4,C_SCHEME_FALSE);}}
else{
t4=t3;
f_19866(t4,C_SCHEME_FALSE);}}

/* k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_19100(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){
C_save_and_reclaim((void *)f_19100,c,av);}
a=C_alloc(21);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_19103,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[10],a[11]=((C_word*)t2)[11],a[12]=((C_word*)t2)[12],a[13]=((C_word*)t2)[13],a[14]=((C_word*)t2)[14],tmp=(C_word)a,a+=15,tmp);
if(C_truep(((C_word*)((C_word*)t2)[8])[1])){
t4=((C_word*)((C_word*)t2)[15])[1];
if(C_truep(t4)){
t5=C_i_cdr(((C_word*)t2)[4]);
t6=C_a_i_cons(&a,2,lf[597],C_SCHEME_TRUE);
t7=C_a_i_cons(&a,2,t6,t5);
t8=t3;
f_19103(t8,C_i_set_cdr(((C_word*)t2)[4],t7));}
else{
t5=t3;
f_19103(t5,C_SCHEME_UNDEFINED);}}
else{
t4=t3;
f_19103(t4,C_SCHEME_UNDEFINED);}}

/* k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_19103(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){
C_save_and_reclaim_args((void *)trf_19103,2,t0,t1);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19106,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)((C_word*)t0)[3])[1])){
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19678,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[13],a[5]=((C_word*)t0)[14],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:2354: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word av2[3];
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t0)[3])[1];
tp(3,av2);}}
else{
if(C_truep(((C_word*)((C_word*)t0)[2])[1])){
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19760,a[2]=((C_word*)t0)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[12],a[7]=t2,tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("core.scm:2366: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word av2[3];
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
tp(3,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19825,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2378: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[193]);
C_word av2[4];
av2[0]=*((C_word*)lf[193]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[12];
av2[3]=lf[415];
tp(4,av2);}}}}

/* k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_19106(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){
C_save_and_reclaim((void *)f_19106,c,av);}
a=C_alloc(12);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19109,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19646,a[2]=((C_word*)t2)[4],a[3]=t3,a[4]=((C_word*)t2)[13],a[5]=((C_word*)t2)[3],tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)((C_word*)t2)[3])[1])){
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19675,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2394: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t5;
av2[2]=((C_word*)((C_word*)t2)[3])[1];
tp(3,av2);}}
else{
t5=t4;
f_19646(t5,C_SCHEME_FALSE);}}

/* k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_19109(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_19109,2,t0,t1);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=((C_word*)((C_word*)t2)[2])[1];
t4=(C_truep(t3)?t3:((C_word*)((C_word*)t2)[3])[1]);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19115,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t4)){
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19643,a[2]=t5,a[3]=((C_word*)t2)[6],a[4]=t4,a[5]=((C_word*)t2)[12],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2401: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word av2[3];
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t6;
av2[2]=t4;
tp(3,av2);}}
else{
t6=t5;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
f_19115(2,av2);}}}

/* k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_19115(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_19115,c,av);}
a=C_alloc(14);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19118,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)((C_word*)t2)[3])[1])){
t4=C_SCHEME_FALSE;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19617,a[2]=((C_word*)t2)[13],a[3]=((C_word*)t2)[14],a[4]=((C_word*)t2)[6],a[5]=t5,a[6]=((C_word*)t2)[12],a[7]=t3,a[8]=((C_word*)t2)[3],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:2414: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t6;
av2[2]=((C_word*)((C_word*)t2)[3])[1];
tp(3,av2);}}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_19118(2,av2);}}}

/* k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_19118(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){
C_save_and_reclaim((void *)f_19118,c,av);}
a=C_alloc(19);
t2=((C_word*)t0)[2];
t3=((C_word*)((C_word*)t2)[2])[1];
t4=(C_truep(t3)?t3:((C_word*)((C_word*)t2)[3])[1]);
t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19124,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[6],a[5]=((C_word*)t2)[3],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],a[9]=((C_word*)t2)[10],a[10]=((C_word*)t2)[11],tmp=(C_word)a,a+=11,tmp);
if(C_truep(t4)){
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19491,a[2]=t5,a[3]=((C_word*)t2)[6],a[4]=((C_word*)t2)[12],a[5]=((C_word*)t2)[13],a[6]=((C_word*)t2)[14],a[7]=t4,tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("core.scm:2446: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t6;
av2[2]=t4;
tp(3,av2);}}
else{
t6=t5;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
f_19124(2,av2);}}}

/* k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_19124(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){
C_save_and_reclaim((void *)f_19124,c,av);}
a=C_alloc(19);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19127,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
if(C_truep(C_i_not(((C_word*)((C_word*)t0)[7])[1]))){
if(C_truep(C_i_nullp(((C_word*)((C_word*)t0)[8])[1]))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19360,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)((C_word*)t0)[5])[1])){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19409,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2468: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t4;
av2[2]=((C_word*)((C_word*)t0)[5])[1];
tp(3,av2);}}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_19360(2,av2);}}}
else{
t3=t2;
f_19127(t3,C_SCHEME_UNDEFINED);}}
else{
t3=t2;
f_19127(t3,C_SCHEME_UNDEFINED);}}

/* k19125 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void f_19127(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){
C_save_and_reclaim_args((void *)trf_19127,2,t0,t1);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19130,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=(C_truep(((C_word*)((C_word*)t0)[5])[1])?C_i_not(((C_word*)((C_word*)t0)[6])[1]):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19339,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:2490: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word av2[3];
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t4;
av2[2]=((C_word*)((C_word*)t0)[5])[1];
tp(3,av2);}}
else{
t4=t2;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_19130(2,av2);}}}

/* k19128 in k19125 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_19130(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_19130,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19136,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(((C_word*)((C_word*)t0)[5])[1])){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19261,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2504: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t0)[5])[1];
tp(3,av2);}}
else{
t3=t2;
f_19136(t3,C_SCHEME_FALSE);}}

/* k19134 in k19128 in k19125 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void f_19136(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_19136,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19139,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2505: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word av2[3];
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t2)[5])[1];
tp(3,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t2)[3];{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k19137 in k19134 in k19128 in k19125 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_19139(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_19139,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=C_i_cadr(t1);
if(C_truep(C_i_not(t3))){
t4=C_i_caddr(t1);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19250,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=t4,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2508: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[525]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[525]+1);
av2[1]=t5;
av2[2]=((C_word*)((C_word*)t2)[5])[1];
tp(3,av2);}}
else{
t4=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k19155 in k19248 in k19137 in k19134 in k19128 in k19125 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in ... */
static void f_19157(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_19157,2,t0,t1);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19160,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2512: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[525]);
C_word av2[3];
av2[0]=*((C_word*)lf[525]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k19158 in k19155 in k19248 in k19137 in k19134 in k19128 in k19125 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in ... */
static void C_ccall f_19160(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_19160,c,av);}
a=C_alloc(11);
t2=C_i_length(t1);
t3=C_eqp(C_fix(2),t2);
if(C_truep(t3)){
t4=C_i_car(t1);
t5=C_i_cadr(t1);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19178,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t4,tmp=(C_word)a,a+=6,tmp);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19223,a[2]=((C_word*)t0)[5],a[3]=t6,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2516: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t7;
av2[2]=t4;
tp(3,av2);}}
else{
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k19176 in k19158 in k19155 in k19248 in k19137 in k19134 in k19128 in k19125 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in ... */
static void f_19178(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_19178,2,t0,t1);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19191,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2519: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word av2[3];
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k19189 in k19176 in k19158 in k19155 in k19248 in k19137 in k19134 in k19128 in k19125 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in ... */
static void C_ccall f_19191(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_19191,c,av);}
a=C_alloc(6);
t2=C_i_car(t1);
t3=C_i_cdr(((C_word*)t0)[2]);
t4=C_a_i_cons(&a,2,lf[574],t2);
t5=C_a_i_cons(&a,2,t4,t3);
t6=C_i_set_cdr(((C_word*)t0)[2],t5);
C_trace(C_text("core.scm:2521: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=t2;
av2[4]=lf[575];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}

/* k19213 in k19217 in k19221 in k19158 in k19155 in k19248 in k19137 in k19134 in k19128 in k19125 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in ... */
static void C_ccall f_19215(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19215,c,av);}
t2=((C_word*)t0)[2];
f_19178(t2,C_eqp(((C_word*)t0)[3],C_i_car(t1)));}

/* k19217 in k19221 in k19158 in k19155 in k19248 in k19137 in k19134 in k19128 in k19125 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in ... */
static void C_ccall f_19219(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_19219,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=C_eqp(lf[521],t1);
if(C_truep(t3)){
t4=C_i_car(((C_word*)t2)[2]);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19215,a[2]=((C_word*)t2)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2518: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t5;
av2[2]=((C_word*)t2)[4];
tp(3,av2);}}
else{
t4=((C_word*)t2)[3];
f_19178(t4,C_SCHEME_FALSE);}}

/* k19221 in k19158 in k19155 in k19248 in k19137 in k19134 in k19128 in k19125 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in ... */
static void C_ccall f_19223(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_19223,c,av);}
a=C_alloc(3);
t2=C_eqp(lf[521],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19219,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2517: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}
else{
t3=((C_word*)t0)[3];
f_19178(t3,C_SCHEME_FALSE);}}

/* k19242 in k19248 in k19137 in k19134 in k19128 in k19125 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in ... */
static void C_ccall f_19244(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19244,c,av);}
t2=((C_word*)t0)[2];
f_19157(t2,C_eqp(lf[518],t1));}

/* k19248 in k19137 in k19134 in k19128 in k19125 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_19250(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_19250,c,av);}
a=C_alloc(10);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19157,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
if(C_truep(C_i_pairp(((C_word*)t0)[5]))){
if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[5])))){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19244,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2511: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}
else{
t4=t3;
f_19157(t4,C_SCHEME_FALSE);}}
else{
t4=t3;
f_19157(t4,C_SCHEME_FALSE);}}

/* k19259 in k19128 in k19125 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_19261(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19261,c,av);}
t2=((C_word*)t0)[2];
f_19136(t2,C_eqp(lf[100],t1));}

/* k19277 in k19333 in k19337 in k19125 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void f_19279(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,5)))){
C_save_and_reclaim_args((void *)trf_19279,2,t0,t1);}
a=C_alloc(6);
if(C_truep(t1)){
t2=C_i_cdr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[574],((C_word*)t0)[3]);
t4=C_a_i_cons(&a,2,t3,t2);
t5=C_i_set_cdr(((C_word*)t0)[2],t4);
C_trace(C_text("core.scm:2500: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word av2[6];
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[5];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[575];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}
else{
t2=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_19130(2,av2);}}}

/* k19289 in k19333 in k19337 in k19125 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_19291(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_19291,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)t0)[2];
f_19279(t2,t1);}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19321,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2495: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[550];
tp(5,av2);}}}

/* k19311 in k19315 in k19319 in k19289 in k19333 in k19337 in k19125 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in ... */
static void C_ccall f_19313(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19313,c,av);}
t2=((C_word*)t0)[2];
f_19279(t2,C_i_not(t1));}

/* k19315 in k19319 in k19289 in k19333 in k19337 in k19125 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in ... */
static void C_ccall f_19317(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_19317,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_i_not(t1);
if(C_truep(t3)){
t4=((C_word*)t2)[2];
f_19279(t4,t3);}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19313,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2498: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[3];
av2[3]=((C_word*)t2)[4];
av2[4]=lf[98];
tp(5,av2);}}}

/* k19319 in k19289 in k19333 in k19337 in k19125 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_19321(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_19321,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(C_i_not(t1))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19317,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2496: chicken.compiler.support#variable-visible?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[568]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[568]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=*((C_word*)lf[26]+1);
tp(4,av2);}}
else{
t3=((C_word*)t2)[2];
f_19279(t3,C_SCHEME_FALSE);}}

/* k19329 in k19333 in k19337 in k19125 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_19331(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_19331,c,av);}
if(C_truep(C_i_not(t1))){
C_trace(C_text("core.scm:2494: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[99];
tp(5,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_19291(2,av2);}}}

/* k19333 in k19337 in k19125 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_19335(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){
C_save_and_reclaim((void *)f_19335,c,av);}
a=C_alloc(16);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19279,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_i_not(((C_word*)((C_word*)t0)[5])[1]))){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19291,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19331,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2493: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[4];
av2[3]=t2;
av2[4]=lf[541];
tp(5,av2);}}
else{
t4=t3;
f_19279(t4,C_SCHEME_FALSE);}}

/* k19337 in k19125 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_19339(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_19339,c,av);}
a=C_alloc(6);
t2=C_eqp(lf[521],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19335,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2491: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t0)[6])[1];
tp(3,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
f_19130(2,av2);}}}

/* k19358 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_19360(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_19360,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
if(C_truep(t1)){
t2=C_i_cdr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[576],C_SCHEME_TRUE);
t4=C_a_i_cons(&a,2,t3,t2);
t5=((C_word*)t0)[3];
f_19127(t5,C_i_set_cdr(((C_word*)t0)[2],t4));}
else{
t2=((C_word*)t0)[3];
f_19127(t2,C_SCHEME_UNDEFINED);}}
else{
t2=((C_word*)((C_word*)t0)[4])[1];
if(C_truep(t2)){
if(C_truep(t2)){
t3=C_i_cdr(((C_word*)t0)[2]);
t4=C_a_i_cons(&a,2,lf[576],C_SCHEME_TRUE);
t5=C_a_i_cons(&a,2,t4,t3);
t6=((C_word*)t0)[3];
f_19127(t6,C_i_set_cdr(((C_word*)t0)[2],t5));}
else{
t3=((C_word*)t0)[3];
f_19127(t3,C_SCHEME_UNDEFINED);}}
else{
t3=((C_word*)((C_word*)t0)[5])[1];
if(C_truep(t3)){
t4=C_i_cdr(((C_word*)t0)[2]);
t5=C_a_i_cons(&a,2,lf[576],C_SCHEME_TRUE);
t6=C_a_i_cons(&a,2,t5,t4);
t7=((C_word*)t0)[3];
f_19127(t7,C_i_set_cdr(((C_word*)t0)[2],t6));}
else{
t4=((C_word*)t0)[3];
f_19127(t4,C_SCHEME_UNDEFINED);}}}}

/* k19382 in k19392 in k19396 in k19407 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_19384(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_19384,c,av);}
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
f_19360(2,av2);}}
else{
C_trace(C_text("core.scm:2472: chicken.compiler.support#intrinsic?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[577]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[577]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
tp(3,av2);}}}

/* k19392 in k19396 in k19407 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_19394(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_19394,c,av);}
a=C_alloc(3);
t2=C_i_not(t1);
if(C_truep(t2)){
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
f_19360(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19384,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2471: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[193]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[193]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
av2[3]=lf[578];
tp(4,av2);}}}

/* k19396 in k19407 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_19398(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_19398,c,av);}
a=C_alloc(4);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19394,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2470: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
av2[3]=t2;
av2[4]=lf[98];
tp(5,av2);}}

/* k19403 in k19407 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_19405(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19405,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_i_not(t1);
f_19360(2,av2);}}

/* k19407 in k19122 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_19409(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_19409,c,av);}
a=C_alloc(4);
t2=C_eqp(lf[521],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19398,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2469: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t0)[4])[1];
tp(3,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19405,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2473: chicken.compiler.support#expression-has-side-effects?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[579]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[579]+1);
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t0)[4])[1];
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}}

/* k19416 in k19489 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_19418(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_19418,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19424,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2448: scheme#="));{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=0;
av2[1]=t2;
av2[2]=C_fix(1);
av2[3]=((C_word*)((C_word*)t0)[5])[1];
av2[4]=((C_word*)((C_word*)t0)[6])[1];
C_nequalp(5,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_19124(2,av2);}}}

/* k19422 in k19416 in k19489 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_19424(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_19424,c,av);}
a=C_alloc(5);
t2=(C_truep(t1)?t1:C_i_not(C_i_cadr(((C_word*)t0)[2])));
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19480,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2450: chicken.base#rassoc"));
t4=*((C_word*)lf[582]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
av2[3]=lf[80];
av2[4]=*((C_word*)lf[583]+1);
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_19124(2,av2);}}}

/* k19437 in k19478 in k19422 in k19416 in k19489 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_19439(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_19439,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_i_car(((C_word*)t2)[4]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19448,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2453: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[3];
av2[3]=t3;
av2[4]=lf[549];
tp(5,av2);}}
else{
t4=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_19124(2,av2);}}}

/* k19446 in k19437 in k19478 in k19422 in k19416 in k19489 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_19448(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_19448,c,av);}
t2=((C_word*)t0)[2];
t3=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST);
if(C_truep(t3)){
t4=C_i_length(t3);
t5=C_eqp(t4,C_fix(1));
if(C_truep(t5)){
C_trace(C_text("core.scm:2459: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
av2[3]=C_i_car(((C_word*)t2)[4]);
av2[4]=lf[580];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}
else{
t6=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
f_19124(2,av2);}}}
else{
t4=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_19124(2,av2);}}}

/* k19478 in k19422 in k19416 in k19489 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_19480(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_19480,c,av);}
a=C_alloc(3);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19439,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2451: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=C_i_car(((C_word*)t0)[4]);
av2[4]=lf[581];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_19124(2,av2);}}}

/* k19489 in k19116 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_19491(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_19491,c,av);}
a=C_alloc(7);
t2=C_eqp(lf[100],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19418,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:2447: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[7];
tp(3,av2);}}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_19124(2,av2);}}}

/* k19498 in k19615 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_19500(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_19500,c,av);}
a=C_alloc(6);
if(C_truep(C_i_cadr(t1))){
t2=C_i_caddr(t1);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19515,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2418: ##sys#decompose-lambda-list"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[198]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[198]+1);
av2[1]=((C_word*)t0)[5];
av2[2]=t2;
av2[3]=t3;
tp(4,av2);}}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_19118(2,av2);}}}

/* a19514 in k19498 in k19615 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_19515(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_19515,c,av);}
a=C_alloc(18);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19519,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t4,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
if(C_truep(t4)){
t6=t5;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_UNDEFINED;
f_19519(2,av2);}}
else{
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19553,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t7=C_i_check_list_2(t2,lf[103]);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19586,a[2]=t9,a[3]=t6,tmp=(C_word)a,a+=4,tmp));
t11=((C_word*)t9)[1];
f_19586(t11,t5,t2);}}

/* k19517 in a19514 in k19498 in k19615 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_19519(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_19519,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19525,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)((C_word*)t0)[6])[1])){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19552,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2431: chicken.base#rassoc"));
t4=*((C_word*)lf[582]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[7];
av2[3]=lf[80];
av2[4]=*((C_word*)lf[583]+1);
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t3=t2;
f_19525(t3,C_SCHEME_FALSE);}}

/* k19523 in k19517 in a19514 in k19498 in k19615 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void f_19525(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,5)))){
C_save_and_reclaim_args((void *)trf_19525,2,t0,t1);}
a=C_alloc(5);
if(C_truep(t1)){
C_trace(C_text("core.scm:2432: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word av2[6];
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=C_i_car(((C_word*)t0)[4]);
av2[4]=lf[584];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}
else{
if(C_truep(((C_word*)t0)[5])){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19538,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2434: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word av2[6];
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=C_i_car(((C_word*)t0)[4]);
av2[4]=lf[586];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}

/* k19536 in k19523 in k19517 in a19514 in k19498 in k19615 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_19538(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_19538,c,av);}
C_trace(C_text("core.scm:2435: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[585];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}

/* k19550 in k19517 in a19514 in k19498 in k19615 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_19552(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19552,c,av);}
t2=((C_word*)t0)[2];
f_19525(t2,C_i_not(t1));}

/* g4259 in a19514 in k19498 in k19615 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void f_19553(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){
C_save_and_reclaim_args((void *)trf_19553,3,t0,t1,t2);}
a=C_alloc(11);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19560,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19578,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2424: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word av2[5];
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[3];
av2[3]=t2;
av2[4]=lf[573];
tp(5,av2);}}

/* k19558 in g4259 in a19514 in k19498 in k19615 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void f_19560(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){
C_save_and_reclaim_args((void *)trf_19560,2,t0,t1);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19563,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2426: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word av2[6];
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[406];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k19561 in k19558 in g4259 in a19514 in k19498 in k19615 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_19563(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19563,c,av);}
t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k19572 in k19576 in g4259 in a19514 in k19498 in k19615 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_19574(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19574,c,av);}
t2=((C_word*)t0)[2];
f_19560(t2,C_i_not(t1));}

/* k19576 in g4259 in a19514 in k19498 in k19615 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_19578(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_19578,c,av);}
a=C_alloc(3);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19574,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2425: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[550];
tp(5,av2);}}
else{
t2=((C_word*)t0)[2];
f_19560(t2,C_SCHEME_FALSE);}}

/* for-each-loop4258 in a19514 in k19498 in k19615 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void f_19586(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_19586,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19596,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2422: g4259"));
t4=((C_word*)t0)[3];
f_19553(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k19594 in for-each-loop4258 in a19514 in k19498 in k19615 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_19596(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_19596,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_19586(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k19615 in k19113 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_19617(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_19617,c,av);}
a=C_alloc(6);
t2=C_eqp(lf[100],t1);
t3=(C_truep(t2)?C_i_nequalp(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]):C_SCHEME_FALSE);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19500,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2416: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t4;
av2[2]=((C_word*)((C_word*)t0)[8])[1];
tp(3,av2);}}
else{
t4=C_SCHEME_UNDEFINED;
t5=((C_word*)t0)[7];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
f_19118(2,av2);}}}

/* k19624 in k19641 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_19626(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_19626,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19632,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2403: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_19115(2,av2);}}}

/* k19630 in k19624 in k19641 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_19632(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_19632,c,av);}
C_trace(C_text("core.scm:2404: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=C_i_car(t1);
av2[4]=lf[587];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}

/* k19641 in k19107 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_19643(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_19643,c,av);}
a=C_alloc(5);
t2=C_eqp(lf[100],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19626,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2402: chicken.base#rassoc"));
t4=*((C_word*)lf[582]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
av2[3]=lf[80];
av2[4]=*((C_word*)lf[583]+1);
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
else{
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_19115(2,av2);}}}

/* k19644 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_19646(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_19646,2,t0,t1);}
a=C_alloc(5);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19668,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2395: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word av2[3];
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[5])[1];
tp(3,av2);}}
else{
t2=((C_word*)t0)[3];
f_19109(t2,C_SCHEME_UNDEFINED);}}

/* k19653 in k19666 in k19644 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_19655(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_19655,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
if(C_truep(t1)){
t3=C_i_cdr(((C_word*)t2)[2]);
t4=C_a_i_cons(&a,2,lf[588],C_SCHEME_TRUE);
t5=C_a_i_cons(&a,2,t4,t3);
t6=((C_word*)t2)[3];
f_19109(t6,C_i_set_cdr(((C_word*)t2)[2],t5));}
else{
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t2)[3];
f_19109(t4,t3);}}
else{
if(C_truep(C_i_nequalp(C_fix(1),((C_word*)((C_word*)t2)[4])[1]))){
t3=C_i_cdr(((C_word*)t2)[2]);
t4=C_a_i_cons(&a,2,lf[588],C_SCHEME_TRUE);
t5=C_a_i_cons(&a,2,t4,t3);
t6=((C_word*)t2)[3];
f_19109(t6,C_i_set_cdr(((C_word*)t2)[2],t5));}
else{
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t2)[3];
f_19109(t4,t3);}}}

/* k19666 in k19644 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_19668(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_19668,c,av);}
a=C_alloc(3);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19655,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2396: chicken.compiler.support#collapsable-literal?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[366]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[366]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k19673 in k19104 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_19675(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19675,c,av);}
t2=((C_word*)t0)[2];
f_19646(t2,C_eqp(lf[119],t1));}

/* k19676 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_19678(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_19678,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19684,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19754,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2355: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t0)[8])[1];
tp(3,av2);}}

/* k19682 in k19676 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_19684(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_19684,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19690,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19712,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2361: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[7];
av2[4]=lf[538];
tp(5,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
f_19106(2,av2);}}}

/* k19688 in k19682 in k19676 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void f_19690(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,1)))){
C_save_and_reclaim_args((void *)trf_19690,2,t0,t1);}
a=C_alloc(6);
if(C_truep(t1)){
t2=C_i_cdr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[589],C_SCHEME_TRUE);
t4=C_a_i_cons(&a,2,t3,t2);
t5=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t5;
av2[1]=C_i_set_cdr(((C_word*)t0)[2],t4);
f_19106(2,av2);}}
else{
t2=C_i_cdr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[590],C_SCHEME_TRUE);
t4=C_a_i_cons(&a,2,t3,t2);
t5=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t5;
av2[1]=C_i_set_cdr(((C_word*)t0)[2],t4);
f_19106(2,av2);}}}

/* k19710 in k19682 in k19676 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_19712(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19712,c,av);}
if(C_truep(C_i_not(t1))){
t2=C_i_nequalp(C_fix(1),((C_word*)((C_word*)t0)[2])[1]);
t3=((C_word*)t0)[3];
f_19690(t3,(C_truep(t2)?C_i_nequalp(C_fix(1),((C_word*)((C_word*)t0)[4])[1]):C_SCHEME_FALSE));}
else{
t2=((C_word*)t0)[3];
f_19690(t2,C_SCHEME_FALSE);}}

/* a19725 in k19752 in k19676 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_19726(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_19726,c,av);}
C_trace(C_text("core.scm:2358: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=lf[98];
tp(5,av2);}}

/* k19732 in k19752 in k19676 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_19734(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_19734,c,av);}
C_trace(C_text("core.scm:2357: every"));
f_7120(((C_word*)t0)[2],((C_word*)t0)[3],t1);}

/* a19735 in k19752 in k19676 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_19736(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_19736,c,av);}
C_trace(C_text("core.scm:2359: chicken.compiler.support#scan-free-variables"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[591]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[591]+1);
av2[1]=t1;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=*((C_word*)lf[26]+1);
tp(4,av2);}}

/* a19741 in k19752 in k19676 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_19742(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){
C_save_and_reclaim((void*)f_19742,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+0);
t2=C_build_rest(&a,c,2,av);
C_word t3;
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_list_ref(t2,C_fix(0));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k19752 in k19676 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_19754(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_19754,c,av);}
a=C_alloc(12);
t2=C_eqp(lf[100],t1);
if(C_truep(t2)){
t3=C_i_cadr(((C_word*)t0)[2]);
t4=C_i_not(t3);
if(C_truep(t4)){
t5=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
f_19684(2,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19726,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19734,a[2]=((C_word*)t0)[3],a[3]=t5,tmp=(C_word)a,a+=4,tmp);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19736,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp);
t8=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_19742,tmp=(C_word)a,a+=2,tmp);
C_trace(C_text("core.scm:2359: ##sys#call-with-values"));{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t6;
av2[2]=t7;
av2[3]=t8;
C_call_with_values(4,av2);}}}
else{
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
f_19684(2,av2);}}}

/* k19758 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_19760(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_19760,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19822,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2367: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t3;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
tp(3,av2);}}

/* a19770 in k19820 in k19758 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_19771(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_19771,c,av);}
C_trace(C_text("core.scm:2368: chicken.compiler.support#scan-free-variables"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[591]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[591]+1);
av2[1]=t1;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=*((C_word*)lf[26]+1);
tp(4,av2);}}

/* a19776 in k19820 in k19758 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_19777(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_19777,c,av);}
a=C_alloc(12);
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19781,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=t2,tmp=(C_word)a,a+=7,tmp);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19815,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t4,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2370: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[98];
tp(5,av2);}}

/* k19779 in a19776 in k19820 in k19758 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void f_19781(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){
C_save_and_reclaim_args((void *)trf_19781,2,t0,t1);}
a=C_alloc(10);
t2=C_i_cadr(((C_word*)t0)[2]);
t3=C_i_not(t2);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19790,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
if(C_truep(t3)){
if(C_truep(t3)){
t5=C_i_cdr(((C_word*)t0)[3]);
t6=C_a_i_cons(&a,2,lf[590],C_SCHEME_TRUE);
t7=C_a_i_cons(&a,2,t6,t5);
t8=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t8;
av2[1]=C_i_set_cdr(((C_word*)t0)[3],t7);
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t5=C_SCHEME_UNDEFINED;
t6=((C_word*)t0)[4];{
C_word av2[2];
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19798,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2374: every"));
f_7120(t4,t5,((C_word*)t0)[6]);}}

/* k19788 in k19779 in a19776 in k19820 in k19758 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_19790(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_19790,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=C_i_cdr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[590],C_SCHEME_TRUE);
t4=C_a_i_cons(&a,2,t3,t2);
t5=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_i_set_cdr(((C_word*)t0)[2],t4);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* a19797 in k19779 in a19776 in k19820 in k19758 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_19798(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_19798,c,av);}
C_trace(C_text("core.scm:2375: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=lf[98];
tp(5,av2);}}

/* k19813 in a19776 in k19820 in k19758 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_19815(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_19815,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
if(C_truep(C_i_pairp(((C_word*)t0)[2]))){
t2=C_i_cdr(((C_word*)t0)[3]);
t3=C_a_i_cons(&a,2,lf[592],C_SCHEME_TRUE);
t4=C_a_i_cons(&a,2,t3,t2);
t5=((C_word*)t0)[4];
f_19781(t5,C_i_set_cdr(((C_word*)t0)[3],t4));}
else{
t2=((C_word*)t0)[4];
f_19781(t2,C_SCHEME_UNDEFINED);}}
else{
t2=((C_word*)t0)[4];
f_19781(t2,C_SCHEME_UNDEFINED);}}

/* k19820 in k19758 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_19822(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_19822,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
t3=C_eqp(lf[100],t1);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19771,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19777,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2368: ##sys#call-with-values"));{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t2)[7];
av2[2]=t4;
av2[3]=t5;
C_call_with_values(4,av2);}}
else{
t4=((C_word*)t2)[7];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_19106(2,av2);}}}

/* k19823 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_19825(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_19825,c,av);}
a=C_alloc(7);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19829,a[2]=((C_word*)t0)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:2353: g4224"));
t3=t2;
f_19829(t3,((C_word*)t0)[5],t1);}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_19106(2,av2);}}}

/* g4224 in k19823 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_19829(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_19829,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+6,t2);
t4=C_mutate(((C_word *)t0)+3,t1);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19836,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2380: chicken.compiler.support#node?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[596]);
C_word av2[3];
av2[0]=*((C_word*)lf[596]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}

/* k19834 in g4224 in k19823 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_19836(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_19836,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
if(C_truep(((C_word*)((C_word*)t2)[2])[1])){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19842,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2382: chicken.compiler.support#debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[593]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[593]+1);
av2[1]=t3;
av2[2]=lf[594];
av2[3]=lf[595];
av2[4]=((C_word*)t2)[4];
tp(5,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19848,a[2]=((C_word*)t2)[5],a[3]=((C_word*)t2)[6],a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2388: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[6];
tp(3,av2);}}}
else{
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k19840 in k19834 in g4224 in k19823 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_19842(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_19842,c,av);}
C_trace(C_text("core.scm:2386: chicken.compiler.support#mark-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[166]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[415];
av2[4]=lf[413];
tp(5,av2);}}

/* k19846 in k19834 in g4224 in k19823 in k19101 in k19098 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_19848(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
C_save_and_reclaim((void *)f_19848,c,av);}
a=C_alloc(12);
t2=C_i_cdr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[590],C_SCHEME_TRUE);
t4=C_a_i_cons(&a,2,t3,t2);
t5=C_i_set_cdr(((C_word*)t0)[2],t4);
t6=C_i_cdr(((C_word*)t0)[2]);
t7=C_a_i_cons(&a,2,lf[567],((C_word*)t0)[3]);
t8=C_a_i_cons(&a,2,t7,t6);
t9=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t9;
av2[1]=C_i_set_cdr(((C_word*)t0)[2],t8);
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}

/* k19864 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_19866(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_19866,2,t0,t1);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19873,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2342: scheme#open-output-string"));
t3=C_fast_retrieve(lf[134]);{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_19100(2,av2);}}}

/* k19871 in k19864 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_19873(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_19873,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+3,t1);
t4=C_i_check_port_2(((C_word*)t2)[3],C_fix(2),C_SCHEME_TRUE,lf[129]);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19879,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2342: ##sys#print"));
t6=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t6;
av2[1]=t5;
av2[2]=lf[599];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}

/* k19877 in k19871 in k19864 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_19879(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_19879,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19882,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2342: ##sys#print"));
t4=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k19880 in k19877 in k19871 in k19864 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_19882(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_19882,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19885,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2342: ##sys#print"));
t3=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[598];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k19883 in k19880 in k19877 in k19871 in k19864 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_19885(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_19885,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19888,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2342: scheme#get-output-string"));
t4=C_fast_retrieve(lf[130]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k19886 in k19883 in k19880 in k19877 in k19871 in k19864 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_19888(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_19888,c,av);}
C_trace(C_text("core.scm:2341: ##sys#notice"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[374]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[374]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k19920 in k19924 in k19928 in k19932 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_19922(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_19922,c,av);}
t2=((C_word*)t0)[2];
f_19866(t2,C_i_not(t1));}

/* k19924 in k19928 in k19932 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_19926(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_19926,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(C_i_not(t1))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19922,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2340: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[193]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[193]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
av2[3]=lf[360];
tp(4,av2);}}
else{
t3=((C_word*)t2)[2];
f_19866(t3,C_SCHEME_FALSE);}}

/* k19928 in k19932 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_19930(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_19930,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(C_i_not(t1))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19926,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2339: chicken.compiler.support#variable-visible?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[568]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[568]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
av2[3]=*((C_word*)lf[26]+1);
tp(4,av2);}}
else{
t3=((C_word*)t2)[2];
f_19866(t3,C_SCHEME_FALSE);}}

/* k19932 in k19095 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_19934(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_19934,c,av);}
a=C_alloc(3);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19930,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2338: chicken.compiler.support#variable-hidden?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[600]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[600]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
else{
t2=((C_word*)t0)[2];
f_19866(t2,C_SCHEME_FALSE);}}

/* k19938 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_19940(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){
C_save_and_reclaim_args((void *)trf_19940,2,t0,t1);}
a=C_alloc(11);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19944,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t0)[2],a[4]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=5,tmp);
t3=C_i_check_list_2(t1,lf[103]);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19974,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_19974(t7,((C_word*)t0)[3],t1);}
else{
t2=((C_word*)t0)[3];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_19097(2,av2);}}}

/* g4162 in k19938 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_19944(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_19944,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+4,t2);
t4=C_mutate(((C_word *)t0)+2,t1);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19966,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2328: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word av2[3];
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k19960 in k19964 in g4162 in k19938 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_19962(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_19962,c,av);}
C_trace(C_text("core.scm:2329: chicken.compiler.support#set-real-name!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[118]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[118]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_i_car(t1);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k19964 in g4162 in k19938 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_19966(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_19966,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=C_eqp(t1,lf[100]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19962,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2329: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[4];
tp(3,av2);}}
else{
t4=C_SCHEME_UNDEFINED;
t5=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* for-each-loop4161 in k19938 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_19974(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_19974,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19984,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2326: g4162"));
t4=((C_word*)t0)[3];
f_19944(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k19982 in for-each-loop4161 in k19938 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_19984(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_19984,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_19974(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* for-each-loop4112 in a18947 in k18936 in k18933 in k18929 in k17882 in chicken.compiler.core#analyze-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static C_word f_20009(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_pairp(t1))){
t2=(
C_trace("core.scm:2296: g4113"),
  f_18954(((C_word*)t0)[2],C_slot(t1,C_fix(0)))
);
t4=C_slot(t1,C_fix(1));
t1=t4;
goto loop;}
else{
t2=C_SCHEME_UNDEFINED;
return(t2);}}

/* chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20036(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word t29;
C_word t30;
C_word t31;
C_word t32;
C_word t33;
C_word t34;
C_word t35;
C_word t36;
C_word t37;
C_word t38;
C_word t39;
C_word t40;
C_word t41;
C_word t42;
C_word t43;
C_word t44;
C_word t45;
C_word t46;
C_word t47;
C_word t48;
C_word t49;
C_word t50;
C_word t51;
C_word t52;
C_word t53;
C_word t54;
C_word t55;
C_word t56;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(112,c,6)))){
C_save_and_reclaim((void *)f_20036,c,av);}
a=C_alloc(112);
t4=C_fix(0);
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_fix(0);
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_fix(0);
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_SCHEME_END_OF_LIST;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_SCHEME_END_OF_LIST;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_SCHEME_END_OF_LIST;
t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
t16=C_SCHEME_UNDEFINED;
t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp);
t18=C_SCHEME_UNDEFINED;
t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp);
t20=C_SCHEME_UNDEFINED;
t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp);
t22=C_SCHEME_UNDEFINED;
t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp);
t24=C_SCHEME_UNDEFINED;
t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp);
t26=C_SCHEME_UNDEFINED;
t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp);
t28=C_SCHEME_UNDEFINED;
t29=(*a=C_VECTOR_TYPE|1,a[1]=t28,tmp=(C_word)a,a+=2,tmp);
t30=C_SCHEME_UNDEFINED;
t31=(*a=C_VECTOR_TYPE|1,a[1]=t30,tmp=(C_word)a,a+=2,tmp);
t32=C_SCHEME_UNDEFINED;
t33=(*a=C_VECTOR_TYPE|1,a[1]=t32,tmp=(C_word)a,a+=2,tmp);
t34=C_SCHEME_UNDEFINED;
t35=(*a=C_VECTOR_TYPE|1,a[1]=t34,tmp=(C_word)a,a+=2,tmp);
t36=C_SCHEME_UNDEFINED;
t37=(*a=C_VECTOR_TYPE|1,a[1]=t36,tmp=(C_word)a,a+=2,tmp);
t38=C_SCHEME_UNDEFINED;
t39=(*a=C_VECTOR_TYPE|1,a[1]=t38,tmp=(C_word)a,a+=2,tmp);
t40=C_SCHEME_UNDEFINED;
t41=(*a=C_VECTOR_TYPE|1,a[1]=t40,tmp=(C_word)a,a+=2,tmp);
t42=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20086,tmp=(C_word)a,a+=2,tmp));
t43=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20163,a[2]=t17,tmp=(C_word)a,a+=3,tmp));
t44=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20189,a[2]=t3,tmp=(C_word)a,a+=3,tmp));
t45=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20195,a[2]=t11,a[3]=C_SCHEME_UNDEFINED,a[4]=t3,a[5]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=6,tmp));
t46=C_set_block_item(t25,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20205,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t47=C_set_block_item(t27,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20214,a[2]=t13,a[3]=t27,a[4]=t23,a[5]=t25,a[6]=t21,a[7]=t17,a[8]=t3,tmp=(C_word)a,a+=9,tmp));
t48=C_set_block_item(t29,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20755,a[2]=t9,a[3]=t3,a[4]=t29,a[5]=t21,a[6]=t15,a[7]=t7,a[8]=t17,tmp=(C_word)a,a+=9,tmp));
t49=C_set_block_item(t31,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21066,a[2]=t9,a[3]=t7,a[4]=t3,a[5]=t19,a[6]=t31,a[7]=t21,tmp=(C_word)a,a+=8,tmp));
t50=C_set_block_item(t33,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21250,a[2]=t21,a[3]=t41,a[4]=t33,a[5]=t35,a[6]=t37,a[7]=t39,a[8]=t3,tmp=(C_word)a,a+=9,tmp));
t51=C_set_block_item(t35,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22511,a[2]=t33,tmp=(C_word)a,a+=3,tmp));
t52=C_set_block_item(t37,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22598,tmp=(C_word)a,a+=2,tmp));
t53=C_set_block_item(t39,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22651,a[2]=t37,tmp=(C_word)a,a+=3,tmp));
t54=C_set_block_item(t41,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22679,tmp=(C_word)a,a+=2,tmp));
t55=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_22720,a[2]=t1,a[3]=t5,a[4]=t33,a[5]=t2,a[6]=t9,a[7]=t7,a[8]=t31,a[9]=t29,a[10]=t11,a[11]=t27,tmp=(C_word)a,a+=12,tmp);
C_trace(C_text("core.scm:3063: chicken.compiler.support#debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[593]);
C_word *av2=av;
av2[0]=*((C_word*)lf[593]+1);
av2[1]=t55;
av2[2]=lf[601];
av2[3]=lf[654];
tp(4,av2);}}

/* k20041 in k20636 in a20616 in k20605 in a20599 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20043(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_20043,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20048,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp));
t6=((C_word*)t4)[1];
f_20048(t6,((C_word*)t2)[2],((C_word*)t2)[3],C_SCHEME_END_OF_LIST);}

/* lp in k20041 in k20636 in a20616 in k20605 in a20599 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void f_20048(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_20048,4,t0,t1,t2,t3);}
a=C_alloc(8);
if(C_truep(C_i_nullp(t2))){
C_trace(C_text("core.scm:2552: scheme#reverse"));
t4=*((C_word*)lf[267]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t1;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t4=C_i_car(t2);
t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20067,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("core.scm:2554: chicken.internal#hash-table-ref"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word av2[4];
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[3];
av2[3]=t4;
tp(4,av2);}}}

/* k20065 in lp in k20041 in k20636 in a20616 in k20605 in a20599 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_20067(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_20067,c,av);}
a=C_alloc(7);
if(C_truep(t1)){
C_trace(C_text("core.scm:2555: lp"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_20048(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),((C_word*)t0)[5]);}
else{
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20075,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:2557: chicken.internal#hash-table-set!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[352]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[352]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[7];
av2[3]=((C_word*)t0)[6];
av2[4]=C_SCHEME_TRUE;
tp(5,av2);}}}

/* k20073 in k20065 in lp in k20041 in k20636 in a20616 in k20605 in a20599 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_20075(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_20075,c,av);}
a=C_alloc(3);
t2=C_u_i_cdr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]);
C_trace(C_text("core.scm:2558: lp"));
t4=((C_word*)((C_word*)t0)[5])[1];
f_20048(t4,((C_word*)t0)[6],t2,t3);}

/* symbolset-difference in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_20086(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_20086,3,t1,t2,t3);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20090,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2563: chicken.internal#make-hash-table"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[605]);
C_word av2[2];
av2[0]=*((C_word*)lf[605]+1);
av2[1]=t4;
tp(2,av2);}}

/* k20088 in symbolset-difference in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20090(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
C_save_and_reclaim((void *)f_20090,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20091,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20129,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20140,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_20140(t7,t3,((C_word*)t0)[4]);}

/* g4418 in k20088 in symbolset-difference in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_20091(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_20091,3,t0,t1,t2);}
a=C_alloc(9);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20093,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=C_i_check_list_2(t2,lf[103]);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20105,a[2]=t6,a[3]=t3,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_20105(t8,t1,t2);}

/* g4431 in g4418 in k20088 in symbolset-difference in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_20093(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_20093,3,t0,t1,t2);}
C_trace(C_text("core.scm:2565: chicken.internal#hash-table-set!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[352]);
C_word av2[5];
av2[0]=*((C_word*)lf[352]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=C_SCHEME_TRUE;
tp(5,av2);}}

/* for-each-loop4430 in g4418 in k20088 in symbolset-difference in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_20105(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_20105,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20115,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2565: g4431"));
t4=((C_word*)t0)[3];
f_20093(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k20113 in for-each-loop4430 in g4418 in k20088 in symbolset-difference in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20115(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_20115,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_20105(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k20127 in k20088 in symbolset-difference in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20129(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_20129,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20134,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7459,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("mini-srfi-1.scm:141: filter"));
f_7360(((C_word*)t0)[3],t3,((C_word*)t0)[4]);}

/* a20133 in k20127 in k20088 in symbolset-difference in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_20134(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_20134,3,t0,t1,t2);}
C_trace(C_text("core.scm:2567: chicken.internal#hash-table-ref"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word av2[4];
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
tp(4,av2);}}

/* for-each-loop4417 in k20088 in symbolset-difference in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_20140(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_20140,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20150,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2564: g4418"));
t4=((C_word*)t0)[3];
f_20091(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k20148 in for-each-loop4417 in k20088 in symbolset-difference in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20150(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_20150,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_20140(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* symbolset= in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_20163(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_20163,4,t0,t1,t2,t3);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20169,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2570: every"));
f_7120(t1,t4,t3);}

/* a20168 in symbolset= in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20169(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_20169,c,av);}
a=C_alloc(9);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20187,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2571: symbolset-difference"));
f_20086(t3,((C_word*)t0)[3],C_a_i_list(&a,1,t2));}

/* k20181 in k20185 in a20168 in symbolset= in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20183(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_20183,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_i_nullp(t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k20185 in a20168 in symbolset= in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20187(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_20187,c,av);}
a=C_alloc(6);
if(C_truep(C_i_nullp(t1))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20183,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2572: symbolset-difference"));
f_20086(t2,((C_word*)t0)[4],C_a_i_list(&a,1,((C_word*)t0)[5]));}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* test in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_20189(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_20189,4,t0,t1,t2,t3);}
C_trace(C_text("core.scm:2575: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word av2[5];
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=t2;
av2[4]=t3;
tp(5,av2);}}

/* register-customizable! in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_20195(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_20195,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=C_mutate(((C_word *)t0)+5,t3);
t5=C_mutate(((C_word *)t0)+3,t1);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20200,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2578: lset-adjoin/eq?"));
f_7579(t6,((C_word*)((C_word*)t0)[2])[1],C_a_i_list(&a,1,t2));}

/* k20198 in register-customizable! in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20200(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_20200,c,av);}
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[2])+1,t1);
C_trace(C_text("core.scm:2579: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t2)[3];
av2[2]=((C_word*)t2)[4];
av2[3]=((C_word*)t2)[5];
av2[4]=lf[606];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}

/* register-direct-call! in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_20205(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(35,0,3)))){
C_save_and_reclaim_args((void *)trf_20205,3,t0,t1,t2);}
a=C_alloc(35);
t3=((C_word*)((C_word*)t0)[2])[1];
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t3,C_fix(1)));
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20212,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2583: lset-adjoin/eq?"));
f_7579(t5,lf[71],C_a_i_list(&a,1,t2));}

/* k20210 in register-direct-call! in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20212(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_20212,c,av);}
t2=C_mutate(&lf[71] /* (set! chicken.compiler.core#direct-call-ids ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_20214(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,0,2)))){
C_save_and_reclaim_args((void *)trf_20214,5,t0,t1,t2,t3,t4);}
a=C_alloc(16);
t5=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_20218,a[2]=t1,a[3]=C_SCHEME_UNDEFINED,a[4]=C_SCHEME_UNDEFINED,a[5]=C_SCHEME_UNDEFINED,a[6]=t4,a[7]=((C_word*)t0)[3],a[8]=t3,a[9]=((C_word*)t0)[2],a[10]=t2,a[11]=((C_word*)t0)[4],a[12]=((C_word*)t0)[5],a[13]=((C_word*)t0)[6],a[14]=((C_word*)t0)[7],a[15]=((C_word*)t0)[8],tmp=(C_word)a,a+=16,tmp);
C_trace(C_text("core.scm:2589: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[525]);
C_word av2[3];
av2[0]=*((C_word*)lf[525]+1);
av2[1]=t5;
av2[2]=t2;
tp(3,av2);}}

/* k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20218(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_20218,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+5,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20221,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2590: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[10];
tp(3,av2);}}

/* k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20221(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_20221,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+4,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20224,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2591: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[10];
tp(3,av2);}}

/* k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20224(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_20224,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+3,t1);
t4=C_eqp(((C_word*)t2)[3],lf[521]);
t5=(C_truep(t4)?t4:C_eqp(((C_word*)t2)[3],lf[532]));
if(C_truep(t5)){
t6=C_i_car(((C_word*)t2)[4]);
t7=C_i_memq(t6,((C_word*)((C_word*)t2)[9])[1]);
t8=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t8;
av2[1]=(C_truep(t7)?C_a_i_list1(&a,1,t6):C_SCHEME_END_OF_LIST);
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t6=C_eqp(((C_word*)t2)[3],lf[119]);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20254,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t6)){
t8=t7;
f_20254(t8,t6);}
else{
t8=C_eqp(((C_word*)t2)[3],lf[483]);
if(C_truep(t8)){
t9=t7;
f_20254(t9,t8);}
else{
t9=C_eqp(((C_word*)t2)[3],lf[170]);
if(C_truep(t9)){
t10=t7;
f_20254(t10,t9);}
else{
t10=C_eqp(((C_word*)t2)[3],lf[558]);
t11=t7;
f_20254(t11,(C_truep(t10)?t10:C_eqp(((C_word*)t2)[3],lf[482])));}}}}}

/* k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_20254(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,0,5)))){
C_save_and_reclaim_args((void *)trf_20254,2,t0,t1);}
a=C_alloc(21);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t2)[3],lf[182]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20263,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],tmp=(C_word)a,a+=8,tmp);
t5=C_i_cdr(((C_word*)t2)[4]);
if(C_truep(C_i_pairp(t5))){
C_trace(C_text("core.scm:2604: chicken.compiler.support#bomb"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[528]);
C_word av2[4];
av2[0]=*((C_word*)lf[528]+1);
av2[1]=t4;
av2[2]=lf[607];
av2[3]=((C_word*)t2)[4];
tp(4,av2);}}
else{
t6=t4;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_SCHEME_UNDEFINED;
f_20263(2,av2);}}}
else{
t4=C_eqp(((C_word*)t2)[3],lf[292]);
if(C_truep(t4)){
t5=C_i_car(((C_word*)t2)[4]);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20314,a[2]=t5,a[3]=((C_word*)t2)[9],a[4]=((C_word*)t2)[2],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2611: gather"));
t7=((C_word*)((C_word*)t2)[7])[1];
f_20214(t7,t6,C_i_car(((C_word*)t2)[5]),((C_word*)t2)[8],((C_word*)t2)[6]);}
else{
t5=C_eqp(((C_word*)t2)[3],lf[518]);
if(C_truep(t5)){
t6=C_i_car(((C_word*)t2)[5]);
t7=C_i_car(((C_word*)t2)[4]);
t8=C_i_cdr(((C_word*)t2)[4]);
t9=C_i_pairp(t8);
t10=(C_truep(t9)?C_i_cadr(((C_word*)t2)[4]):C_SCHEME_FALSE);
t11=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_20572,a[2]=((C_word*)t2)[7],a[3]=((C_word*)t2)[8],a[4]=((C_word*)t2)[6],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[2],a[7]=t10,a[8]=t7,a[9]=((C_word*)t2)[10],a[10]=((C_word*)t2)[11],a[11]=((C_word*)t2)[12],a[12]=((C_word*)t2)[13],a[13]=t6,tmp=(C_word)a,a+=14,tmp);
C_trace(C_text("core.scm:2620: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word av2[3];
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t11;
av2[2]=t6;
tp(3,av2);}}
else{
t6=C_eqp(((C_word*)t2)[3],lf[100]);
t7=(C_truep(t6)?t6:C_eqp(((C_word*)t2)[3],lf[542]));
if(C_truep(t7)){
t8=C_i_caddr(((C_word*)t2)[4]);
t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_20600,a[2]=((C_word*)t2)[8],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[9],a[5]=((C_word*)t2)[14],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[15],a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[5],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:2663: ##sys#decompose-lambda-list"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[198]);
C_word av2[4];
av2[0]=*((C_word*)lf[198]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=t8;
av2[3]=t9;
tp(4,av2);}}
else{
t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t9=t8;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=((C_word*)t10)[1];
t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20658,a[2]=((C_word*)t2)[7],a[3]=((C_word*)t2)[8],a[4]=((C_word*)t2)[6],tmp=(C_word)a,a+=5,tmp);
t13=C_i_check_list_2(((C_word*)t2)[5],lf[11]);
t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20668,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
t15=C_SCHEME_UNDEFINED;
t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp);
t17=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20670,a[2]=t10,a[3]=t16,a[4]=t12,a[5]=t11,tmp=(C_word)a,a+=6,tmp));
t18=((C_word*)t16)[1];
f_20670(t18,t14,((C_word*)t2)[5]);}}}}}}

/* k20261 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20263(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_20263,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20266,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2605: gather"));
t3=((C_word*)((C_word*)t0)[6])[1];
f_20214(t3,t2,C_i_car(((C_word*)t0)[4]),((C_word*)t0)[7],((C_word*)t0)[5]);}

/* k20264 in k20261 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20266(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_20266,c,av);}
a=C_alloc(11);
t2=((C_word*)t0)[2];
t3=C_i_car(((C_word*)t2)[2]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20276,a[2]=((C_word*)t2)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20280,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t6=C_i_cadr(((C_word*)t2)[4]);
t7=C_a_i_cons(&a,2,t3,((C_word*)t2)[5]);
C_trace(C_text("core.scm:2607: gather"));
t8=((C_word*)((C_word*)t2)[6])[1];
f_20214(t8,t5,t6,((C_word*)t2)[7],t7);}

/* k20274 in k20264 in k20261 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20276(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_20276,c,av);}
C_trace(C_text("core.scm:2607: scheme#append"));
t2=*((C_word*)lf[6]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k20278 in k20264 in k20261 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20280(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_20280,c,av);}
C_trace(C_text("core.scm:2607: delete"));
f_7240(((C_word*)t0)[2],((C_word*)t0)[3],t1,*((C_word*)lf[583]+1));}

/* k20312 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20314(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_20314,c,av);}
a=C_alloc(3);
t2=C_i_memq(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(t2)?C_a_i_cons(&a,2,((C_word*)t0)[2],t1):t1);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k20346 in k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20348(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){
C_save_and_reclaim((void *)f_20348,c,av);}
a=C_alloc(21);
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20356,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t7=C_i_check_list_2(((C_word*)t0)[5],lf[11]);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20366,a[2]=((C_word*)t0)[6],tmp=(C_word)a,a+=3,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20368,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp));
t12=((C_word*)t10)[1];
f_20368(t12,t8,((C_word*)t0)[5]);}

/* g4539 in k20346 in k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_20356(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_20356,3,t0,t1,t2);}
C_trace(C_text("core.scm:2660: gather"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_20214(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* k20364 in k20346 in k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20366(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_20366,c,av);}
C_trace(C_text("core.scm:2660: concatenate"));
f_7212(((C_word*)t0)[2],t1);}

/* map-loop4533 in k20346 in k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_20368(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_20368,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20393,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2660: g4539"));
t4=((C_word*)t0)[4];
f_20356(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k20391 in map-loop4533 in k20346 in k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20393(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_20393,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_20368(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k20422 in k20566 in k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20424(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){
C_save_and_reclaim((void *)f_20424,c,av);}
a=C_alloc(15);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_20430,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t1,tmp=(C_word)a,a+=12,tmp);
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20520,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2637: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t3;
av2[2]=t1;
tp(3,av2);}}
else{
t3=t2;
f_20430(t3,C_SCHEME_FALSE);}}

/* k20428 in k20422 in k20566 in k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_20430(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){
C_save_and_reclaim_args((void *)trf_20430,2,t0,t1);}
a=C_alloc(14);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_20433,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=C_SCHEME_UNDEFINED,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=C_SCHEME_UNDEFINED,a[11]=((C_word*)t0)[9],a[12]=C_SCHEME_UNDEFINED,a[13]=((C_word*)t0)[10],tmp=(C_word)a,a+=14,tmp);
C_trace(C_text("core.scm:2638: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word av2[3];
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[11];
tp(3,av2);}}
else{
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],C_SCHEME_END_OF_LIST);
t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2);
C_trace(C_text("core.scm:2621: chicken.compiler.support#node-parameters-set!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[608]);
C_word av2[4];
av2[0]=*((C_word*)lf[608]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[5];
av2[3]=t3;
tp(4,av2);}}}

/* k20431 in k20428 in k20422 in k20566 in k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20433(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_20433,c,av);}
a=C_alloc(3);
t2=C_i_caddr(t1);
t3=C_mutate(((C_word *)t0)+10,t2);
t4=C_i_car(t1);
t5=C_mutate(((C_word *)t0)+6,t4);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20442,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2641: test"));
t7=((C_word*)((C_word*)t0)[13])[1];
f_20189(t7,t6,((C_word*)t0)[8],lf[573]);}

/* k20440 in k20431 in k20428 in k20422 in k20566 in k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_20442(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_20442,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+12,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20445,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2642: test"));
t5=((C_word*)((C_word*)t2)[13])[1];
f_20189(t5,t4,((C_word*)t2)[8],lf[102]);}

/* k20443 in k20440 in k20431 in k20428 in k20422 in k20566 in k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_20445(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_20445,c,av);}
a=C_alloc(18);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_20448,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[10],a[11]=((C_word*)t2)[11],tmp=(C_word)a,a+=12,tmp);
if(C_truep(((C_word*)t2)[12])){
if(C_truep(t1)){
t4=C_i_length(((C_word*)t2)[12]);
t5=C_i_length(t1);
t6=C_eqp(t4,t5);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20492,a[2]=t3,a[3]=((C_word*)t2)[10],a[4]=((C_word*)t2)[13],a[5]=((C_word*)t2)[8],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2646: test"));
t8=((C_word*)((C_word*)t2)[13])[1];
f_20189(t8,t7,((C_word*)t2)[8],lf[99]);}
else{
t7=t3;
f_20448(t7,C_SCHEME_FALSE);}}
else{
t4=t3;
f_20448(t4,C_SCHEME_FALSE);}}
else{
t4=t3;
f_20448(t4,C_SCHEME_FALSE);}}

/* k20446 in k20443 in k20440 in k20431 in k20428 in k20422 in k20566 in k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void f_20448(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){
C_save_and_reclaim_args((void *)trf_20448,2,t0,t1);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_20454,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
if(C_truep(((C_word*)t0)[2])){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20473,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2650: chicken.compiler.support#llist-match?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[539]);
C_word av2[4];
av2[0]=*((C_word*)lf[539]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[10];
av2[3]=C_i_cdr(((C_word*)t0)[11]);
tp(4,av2);}}
else{
t3=t2;
f_20454(t3,C_SCHEME_FALSE);}}

/* k20452 in k20446 in k20443 in k20440 in k20431 in k20428 in k20422 in k20566 in k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void f_20454(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){
C_save_and_reclaim_args((void *)trf_20454,2,t0,t1);}
a=C_alloc(10);
if(C_truep(t1)){
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],C_SCHEME_END_OF_LIST);
t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2);
C_trace(C_text("core.scm:2621: chicken.compiler.support#node-parameters-set!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[608]);
C_word av2[4];
av2[0]=*((C_word*)lf[608]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[5];
av2[3]=t3;
tp(4,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_20457,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:2653: register-direct-call!"));
t3=((C_word*)((C_word*)t0)[10])[1];
f_20205(t3,t2,((C_word*)t0)[6]);}}

/* k20455 in k20452 in k20446 in k20443 in k20440 in k20431 in k20428 in k20422 in k20566 in k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_20457(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){
C_save_and_reclaim((void *)f_20457,c,av);}
a=C_alloc(20);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20460,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
if(C_truep(((C_word*)t0)[3])){
C_trace(C_text("core.scm:2655: register-customizable!"));
t3=((C_word*)((C_word*)t0)[8])[1];
f_20195(t3,t2,((C_word*)t0)[9],((C_word*)t0)[2]);}
else{
t3=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t4=C_a_i_cons(&a,2,((C_word*)t0)[4],t3);
t5=C_a_i_cons(&a,2,((C_word*)t0)[5],t4);
C_trace(C_text("core.scm:2621: chicken.compiler.support#node-parameters-set!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[608]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[608]+1);
av2[1]=((C_word*)t0)[6];
av2[2]=((C_word*)t0)[7];
av2[3]=t5;
tp(4,av2);}}}

/* k20458 in k20455 in k20452 in k20446 in k20443 in k20440 in k20431 in k20428 in k20422 in k20566 in k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_20460(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_20460,c,av);}
a=C_alloc(12);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
t3=C_a_i_cons(&a,2,((C_word*)t0)[4],t2);
t4=C_a_i_cons(&a,2,((C_word*)t0)[5],t3);
C_trace(C_text("core.scm:2621: chicken.compiler.support#node-parameters-set!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[608]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[608]+1);
av2[1]=((C_word*)t0)[6];
av2[2]=((C_word*)t0)[7];
av2[3]=t4;
tp(4,av2);}}

/* k20471 in k20446 in k20443 in k20440 in k20431 in k20428 in k20422 in k20566 in k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_20473(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_20473,c,av);}
t2=((C_word*)t0)[2];
f_20454(t2,C_i_not(t1));}

/* k20490 in k20443 in k20440 in k20431 in k20428 in k20422 in k20566 in k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_20492(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_20492,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20505,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2647: test"));
t3=((C_word*)((C_word*)t0)[4])[1];
f_20189(t3,t2,((C_word*)t0)[5],lf[538]);}
else{
t2=((C_word*)t0)[2];
f_20448(t2,C_SCHEME_FALSE);}}

/* k20503 in k20490 in k20443 in k20440 in k20431 in k20428 in k20422 in k20566 in k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_20505(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_20505,c,av);}
t2=C_i_not(t1);
t3=((C_word*)t0)[2];
f_20448(t3,(C_truep(t2)?C_i_listp(((C_word*)t0)[3]):C_SCHEME_FALSE));}

/* k20518 in k20422 in k20566 in k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20520(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_20520,c,av);}
t2=((C_word*)t0)[2];
f_20430(t2,C_eqp(lf[100],t1));}

/* k20536 in k20546 in k20558 in k20562 in k20566 in k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_20538(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_20538,c,av);}
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
f_20424(2,av2);}}
else{
C_trace(C_text("core.scm:2636: test"));
t3=((C_word*)((C_word*)t2)[3])[1];
f_20189(t3,((C_word*)t2)[2],((C_word*)t2)[4],lf[567]);}}

/* k20546 in k20558 in k20562 in k20566 in k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20548(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_20548,c,av);}
a=C_alloc(3);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20538,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2635: test"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_20189(t3,t2,((C_word*)t0)[4],lf[99]);}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_20424(2,av2);}}}

/* k20550 in k20558 in k20562 in k20566 in k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20552(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_20552,c,av);}
C_trace(C_text("core.scm:2634: chicken.compiler.support#node?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[596]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[596]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k20558 in k20562 in k20566 in k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20560(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_20560,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=C_eqp(lf[413],t1);
if(C_truep(C_i_not(t3))){
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20548,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20552,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2634: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[193]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[193]+1);
av2[1]=t5;
av2[2]=((C_word*)t2)[4];
av2[3]=lf[415];
tp(4,av2);}}
else{
t4=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_20424(2,av2);}}}

/* k20562 in k20566 in k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20564(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_20564,c,av);}
a=C_alloc(3);
if(C_truep(C_i_not(t1))){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20560,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2631: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[193]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[193]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=lf[412];
tp(4,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_20424(2,av2);}}}

/* k20566 in k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20568(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){
C_save_and_reclaim((void *)f_20568,c,av);}
a=C_alloc(16);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_20424,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t2,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20564,a[2]=t3,a[3]=((C_word*)t0)[9],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2628: test"));
t5=((C_word*)((C_word*)t0)[9])[1];
f_20189(t5,t4,t2,lf[541]);}

/* k20570 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20572(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
C_save_and_reclaim((void *)f_20572,c,av);}
a=C_alloc(17);
t2=C_eqp(lf[521],t1);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20348,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
t4=(C_truep(((C_word*)t0)[7])?((C_word*)t0)[7]:t2);
if(C_truep(t4)){
if(C_truep(t2)){
t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_20568,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=t3,a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[12],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:2627: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[13];
tp(3,av2);}}
else{
t5=C_a_i_cons(&a,2,((C_word*)t0)[7],C_SCHEME_END_OF_LIST);
t6=C_a_i_cons(&a,2,((C_word*)t0)[8],t5);
C_trace(C_text("core.scm:2621: chicken.compiler.support#node-parameters-set!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[608]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[608]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[9];
av2[3]=t6;
tp(4,av2);}}}
else{
t5=C_a_i_cons(&a,2,((C_word*)t0)[8],C_SCHEME_END_OF_LIST);
C_trace(C_text("core.scm:2621: chicken.compiler.support#node-parameters-set!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[608]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[608]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[9];
av2[3]=t5;
tp(4,av2);}}}

/* a20599 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20600(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_20600,c,av);}
a=C_alloc(11);
t5=(C_truep(((C_word*)t0)[2])?C_i_car(((C_word*)t0)[3]):lf[609]);
t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_20607,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t2,a[6]=((C_word*)t0)[7],a[7]=t5,a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t1,tmp=(C_word)a,a+=11,tmp);
C_trace(C_text("core.scm:2667: scheme#append"));
t7=*((C_word*)lf[6]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)((C_word*)t0)[4])[1];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}

/* k20605 in a20599 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20607(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){
C_save_and_reclaim((void *)f_20607,c,av);}
a=C_alloc(23);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_FALSE;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20612,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20617,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20644,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t5,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2667: ##sys#dynamic-wind"));
t9=*((C_word*)lf[117]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t9;
av2[1]=((C_word*)t0)[10];
av2[2]=t6;
av2[3]=t7;
av2[4]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}

/* a20611 in k20605 in a20599 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20612(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_20612,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a20616 in k20605 in a20599 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20617(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){
C_save_and_reclaim((void *)f_20617,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20621,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20638,a[2]=t2,a[3]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2668: gather"));
t4=((C_word*)((C_word*)t0)[7])[1];
f_20214(t4,t3,C_i_car(((C_word*)t0)[8]),((C_word*)t0)[6],((C_word*)t0)[4]);}

/* k20619 in a20616 in k20605 in a20599 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20621(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_20621,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20624,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2669: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[7];
av2[3]=((C_word*)t0)[8];
av2[4]=lf[611];
av2[5]=C_i_length(((C_word*)t0)[4]);
tp(6,av2);}}

/* k20622 in k20619 in a20616 in k20605 in a20599 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20624(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){
C_save_and_reclaim((void *)f_20624,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20627,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:2670: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[7];
av2[3]=((C_word*)t2)[8];
av2[4]=lf[610];
av2[5]=((C_word*)t2)[4];
tp(6,av2);}}

/* k20625 in k20622 in k20619 in a20616 in k20605 in a20599 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_20627(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_20627,c,av);}
a=C_alloc(6);
C_trace(C_text("core.scm:2671: symbolset-difference"));
f_20086(((C_word*)t0)[3],((C_word*)t0)[4],C_a_i_list(&a,2,((C_word*)t0)[5],((C_word*)t0)[6]));}

/* k20636 in a20616 in k20605 in a20599 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20638(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_20638,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20043,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2548: chicken.internal#make-hash-table"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[605]);
C_word *av2=av;
av2[0]=*((C_word*)lf[605]+1);
av2[1]=t3;
tp(2,av2);}}

/* a20643 in k20605 in a20599 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20644(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_20644,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* g4587 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_20658(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_20658,3,t0,t1,t2);}
C_trace(C_text("core.scm:2673: gather"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_20214(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* k20666 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20668(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_20668,c,av);}
C_trace(C_text("core.scm:2673: concatenate"));
f_7212(((C_word*)t0)[2],t1);}

/* map-loop4581 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_20670(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_20670,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20695,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2673: g4587"));
t4=((C_word*)t0)[4];
f_20658(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k20693 in map-loop4581 in k20252 in k20222 in k20219 in k20216 in gather in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20695(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_20695,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_20670(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_20755(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){
C_save_and_reclaim_args((void *)trf_20755,4,t0,t1,t2,t3);}
a=C_alloc(13);
t4=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_20759,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=t3,a[12]=t2,tmp=(C_word)a,a+=13,tmp);
C_trace(C_text("core.scm:2681: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[525]);
C_word av2[3];
av2[0]=*((C_word*)lf[525]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}

/* k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20759(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_20759,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+5,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20762,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2682: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[12];
tp(3,av2);}}

/* k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20762(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_20762,c,av);}
a=C_alloc(14);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_20765,a[2]=((C_word*)t2)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=t1,a[5]=((C_word*)t2)[3],a[6]=((C_word*)t2)[4],a[7]=((C_word*)t2)[5],a[8]=((C_word*)t2)[6],a[9]=((C_word*)t2)[7],a[10]=((C_word*)t2)[8],a[11]=((C_word*)t2)[9],a[12]=((C_word*)t2)[10],a[13]=((C_word*)t2)[11],tmp=(C_word)a,a+=14,tmp);
C_trace(C_text("core.scm:2683: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[12];
tp(3,av2);}}

/* k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20765(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_20765,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_eqp(((C_word*)t0)[3],lf[119]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20774,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t3)){
t5=t4;
f_20774(t5,t3);}
else{
t5=C_eqp(((C_word*)t0)[3],lf[483]);
if(C_truep(t5)){
t6=t4;
f_20774(t6,t5);}
else{
t6=C_eqp(((C_word*)t0)[3],lf[170]);
if(C_truep(t6)){
t7=t4;
f_20774(t7,t6);}
else{
t7=C_eqp(((C_word*)t0)[3],lf[558]);
t8=t4;
f_20774(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[3],lf[482])));}}}}

/* k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_20774(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(20,0,5)))){
C_save_and_reclaim_args((void *)trf_20774,2,t0,t1);}
a=C_alloc(20);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t2)[3],lf[100]);
t4=(C_truep(t3)?t3:C_eqp(((C_word*)t2)[3],lf[542]));
if(C_truep(t4)){
t5=C_i_caddr(((C_word*)t2)[4]);
t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_20792,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[6],a[5]=((C_word*)t2)[7],a[6]=((C_word*)t2)[8],a[7]=((C_word*)t2)[9],a[8]=((C_word*)t2)[10],a[9]=((C_word*)t2)[11],a[10]=((C_word*)t2)[12],a[11]=((C_word*)t2)[13],tmp=(C_word)a,a+=12,tmp);
C_trace(C_text("core.scm:2689: ##sys#decompose-lambda-list"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[198]);
C_word av2[4];
av2[0]=*((C_word*)lf[198]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=t5;
av2[3]=t6;
tp(4,av2);}}
else{
t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=((C_word*)t7)[1];
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20982,a[2]=((C_word*)t2)[8],a[3]=((C_word*)t2)[13],tmp=(C_word)a,a+=4,tmp);
t10=C_i_check_list_2(((C_word*)t2)[7],lf[11]);
t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20992,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
t12=C_SCHEME_UNDEFINED;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20994,a[2]=t7,a[3]=t13,a[4]=t9,a[5]=t8,tmp=(C_word)a,a+=6,tmp));
t15=((C_word*)t13)[1];
f_20994(t15,t11,((C_word*)t2)[7]);}}}

/* a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20792(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_20792,c,av);}
a=C_alloc(13);
t5=C_i_car(((C_word*)t0)[2]);
t6=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_20799,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=t5,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
C_trace(C_text("core.scm:2693: test"));
t7=((C_word*)((C_word*)t0)[7])[1];
f_20189(t7,t6,t5,lf[610]);}

/* k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20799(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){
C_save_and_reclaim((void *)f_20799,c,av);}
a=C_alloc(19);
t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST);
t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_20808,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
if(C_truep(((C_word*)t0)[12])){
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20956,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[12],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2695: test"));
t5=((C_word*)((C_word*)t0)[8])[1];
f_20189(t5,t4,((C_word*)t0)[5],lf[581]);}
else{
t4=t3;
f_20808(t4,C_SCHEME_FALSE);}}

/* k20806 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_20808(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){
C_save_and_reclaim_args((void *)trf_20808,2,t0,t1);}
a=C_alloc(14);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20811,a[2]=((C_word*)t0)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
t3=C_i_car(((C_word*)t0)[7]);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20839,a[2]=((C_word*)t0)[8],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2702: test"));
t5=((C_word*)((C_word*)t0)[9])[1];
f_20189(t5,t4,((C_word*)t0)[6],lf[580]);}
else{
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_20845,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[12],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[7],tmp=(C_word)a,a+=12,tmp);
C_trace(C_text("core.scm:2716: test"));
t3=((C_word*)((C_word*)t0)[9])[1];
f_20189(t3,t2,((C_word*)t0)[6],lf[580]);}}

/* k20809 in k20806 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20811(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_20811,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20814,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2704: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[7];
av2[4]=lf[611];
av2[5]=C_fix(1);
tp(6,av2);}}

/* k20812 in k20809 in k20806 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20814(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_20814,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20817,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2705: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[6];
av2[3]=((C_word*)t2)[7];
av2[4]=lf[610];
av2[5]=C_SCHEME_END_OF_LIST;
tp(6,av2);}}

/* k20815 in k20812 in k20809 in k20806 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_20817(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_20817,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20820,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2706: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[6];
av2[3]=((C_word*)t2)[7];
av2[4]=lf[612];
av2[5]=lf[613];
tp(6,av2);}}

/* k20818 in k20815 in k20812 in k20809 in k20806 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_20820(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
C_save_and_reclaim((void *)f_20820,c,av);}
a=C_alloc(29);
t2=((C_word*)((C_word*)t0)[2])[1];
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t2,C_fix(1)));
t4=C_i_nullp(((C_word*)t0)[3]);
t5=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t5;
av2[1]=(C_truep(t4)?((C_word*)t0)[5]:((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* k20837 in k20806 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20839(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_20839,c,av);}
if(C_truep(t1)){
C_trace(C_text("core.scm:2702: merge-shareable"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_20755(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}
else{
C_trace(C_text("core.scm:2702: merge-shareable"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_20755(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE);}}

/* k20843 in k20806 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20845(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_20845,c,av);}
a=C_alloc(9);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20849,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2719: lset-union/eq?"));
f_7665(t2,((C_word*)((C_word*)t0)[2])[1],C_a_i_list(&a,1,((C_word*)t0)[8]));}
else{
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20943,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[11],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2746: lset-union/eq?"));
f_7665(t2,((C_word*)((C_word*)t0)[2])[1],C_a_i_list(&a,1,((C_word*)t0)[8]));}}

/* k20847 in k20843 in k20806 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20849(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(28,c,4)))){
C_save_and_reclaim((void *)f_20849,c,av);}
a=C_alloc(28);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[2])+1,t1);
t4=C_SCHEME_END_OF_LIST;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_SCHEME_FALSE;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20852,a[2]=((C_word*)t2)[3],tmp=(C_word)a,a+=3,tmp);
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20854,a[2]=t7,a[3]=((C_word*)t2)[2],a[4]=t5,tmp=(C_word)a,a+=5,tmp);
t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_20859,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[6],a[5]=((C_word*)t2)[7],a[6]=((C_word*)t2)[2],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],a[9]=((C_word*)t2)[10],a[10]=((C_word*)t2)[11],tmp=(C_word)a,a+=11,tmp);
t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20936,a[2]=t5,a[3]=((C_word*)t2)[2],a[4]=t7,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2721: ##sys#dynamic-wind"));
t12=*((C_word*)lf[117]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t12;
av2[1]=t8;
av2[2]=t9;
av2[3]=t10;
av2[4]=t11;
((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}}

/* k20850 in k20847 in k20843 in k20806 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_20852(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_20852,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* a20853 in k20847 in k20843 in k20806 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_20854(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_20854,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a20858 in k20847 in k20843 in k20806 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_20859(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_20859,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_20863,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],a[7]=((C_word*)t0)[6],a[8]=C_SCHEME_UNDEFINED,a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp);
C_trace(C_text("core.scm:2722: merge-shareable"));
t3=((C_word*)((C_word*)t0)[9])[1];
f_20755(t3,t2,C_i_car(((C_word*)t0)[10]),((C_word*)t0)[7]);}

/* k20861 in a20858 in k20847 in k20843 in k20806 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_20863(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_20863,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+8,t1);
if(C_truep(C_i_nullp(((C_word*)t0)[8]))){
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20872,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2727: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[10];
av2[4]=lf[611];
av2[5]=C_i_length(((C_word*)t0)[8]);
tp(6,av2);}}}

/* k20870 in k20861 in a20858 in k20847 in k20843 in k20806 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_20872(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_20872,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20875,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2728: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
av2[3]=((C_word*)t2)[10];
av2[4]=lf[612];
av2[5]=lf[615];
tp(6,av2);}}

/* k20873 in k20870 in k20861 in a20858 in k20847 in k20843 in k20806 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_20875(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){
C_save_and_reclaim((void *)f_20875,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_20878,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:2729: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
av2[3]=((C_word*)t2)[10];
av2[4]=lf[614];
av2[5]=((C_word*)t2)[8];
tp(6,av2);}}

/* k20876 in k20873 in k20870 in k20861 in a20858 in k20847 in k20843 in k20806 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_20878(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(39,c,3)))){
C_save_and_reclaim((void *)f_20878,c,av);}
a=C_alloc(39);
t2=((C_word*)((C_word*)t0)[2])[1];
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t2,C_fix(1)));
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20883,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:2734: symbolset-difference"));
f_20086(t4,((C_word*)t0)[8],C_a_i_list(&a,1,((C_word*)t0)[9]));}

/* k20881 in k20876 in k20873 in k20870 in k20861 in a20858 in k20847 in k20843 in k20806 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_20883(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_20883,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20886,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2735: symbolset-difference"));
f_20086(t2,t1,C_a_i_list(&a,1,((C_word*)((C_word*)t0)[6])[1]));}

/* k20884 in k20881 in k20876 in k20873 in k20870 in k20861 in a20858 in k20847 in k20843 in k20806 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_20886(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_20886,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20887,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=C_i_check_list_2(t1,lf[103]);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20905,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_20905(t7,((C_word*)t0)[4],t1);}

/* g4666 in k20884 in k20881 in k20876 in k20873 in k20870 in k20861 in a20858 in k20847 in k20843 in k20806 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in ... */
static void f_20887(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_20887,3,t0,t1,t2);}
a=C_alloc(5);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20894,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2737: test"));
t4=((C_word*)((C_word*)t0)[3])[1];
f_20189(t4,t3,t2,lf[597]);}

/* k20892 in g4666 in k20884 in k20881 in k20876 in k20873 in k20870 in k20861 in a20858 in k20847 in k20843 in k20806 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in ... */
static void C_ccall f_20894(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_20894,c,av);}
if(C_truep(t1)){
C_trace(C_text("core.scm:2738: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[597];
av2[5]=C_SCHEME_FALSE;
tp(6,av2);}}
else{
t2=C_SCHEME_UNDEFINED;
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* for-each-loop4665 in k20884 in k20881 in k20876 in k20873 in k20870 in k20861 in a20858 in k20847 in k20843 in k20806 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in ... */
static void f_20905(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_20905,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20915,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2736: g4666"));
t4=((C_word*)t0)[3];
f_20887(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k20913 in for-each-loop4665 in k20884 in k20881 in k20876 in k20873 in k20870 in k20861 in a20858 in k20847 in k20843 in k20806 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in ... */
static void C_ccall f_20915(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_20915,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_20905(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* a20935 in k20847 in k20843 in k20806 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_20936(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_20936,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k20941 in k20843 in k20806 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20943(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_20943,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20946,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2747: merge-shareable"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_20755(t4,t3,C_i_car(((C_word*)t0)[5]),C_SCHEME_FALSE);}

/* k20944 in k20941 in k20843 in k20806 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_20946(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_20946,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k20954 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20956(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_20956,c,av);}
a=C_alloc(7);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20974,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2698: symbolset-difference"));
f_20086(t2,((C_word*)t0)[5],C_a_i_list(&a,1,((C_word*)t0)[3]));}
else{
t2=((C_word*)t0)[2];
f_20808(t2,C_SCHEME_FALSE);}}

/* k20972 in k20954 in k20797 in a20791 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20974(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_20974,c,av);}
t2=C_i_nullp(t1);
t3=((C_word*)t0)[2];
f_20808(t3,(C_truep(t2)?C_fixnum_greaterp(C_i_length(((C_word*)t0)[3]),C_fix(1)):C_SCHEME_FALSE));}

/* g4699 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_20982(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_20982,3,t0,t1,t2);}
C_trace(C_text("core.scm:2750: merge-shareable"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_20755(t3,t1,t2,((C_word*)t0)[3]);}

/* k20990 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_20992(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_20992,c,av);}
C_trace(C_text("core.scm:2750: concatenate"));
f_7212(((C_word*)t0)[2],t1);}

/* map-loop4693 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_20994(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_20994,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21019,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2750: g4699"));
t4=((C_word*)t0)[4];
f_20982(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k21017 in map-loop4693 in k20772 in k20763 in k20760 in k20757 in merge-shareable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21019(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21019,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_20994(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* merge-reusable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_21066(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){
C_save_and_reclaim_args((void *)trf_21066,4,t0,t1,t2,t3);}
a=C_alloc(12);
t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_21070,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t3,a[7]=((C_word*)t0)[5],a[8]=C_SCHEME_UNDEFINED,a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=t2,tmp=(C_word)a,a+=12,tmp);
C_trace(C_text("core.scm:2761: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[525]);
C_word av2[3];
av2[0]=*((C_word*)lf[525]+1);
av2[1]=t4;
av2[2]=t2;
tp(3,av2);}}

/* k21068 in merge-reusable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21070(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21070,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+8,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21073,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2762: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[11];
tp(3,av2);}}

/* k21071 in k21068 in merge-reusable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21073(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_21073,c,av);}
a=C_alloc(13);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21076,a[2]=((C_word*)t2)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=t1,a[5]=((C_word*)t2)[3],a[6]=((C_word*)t2)[4],a[7]=((C_word*)t2)[5],a[8]=((C_word*)t2)[6],a[9]=((C_word*)t2)[7],a[10]=((C_word*)t2)[8],a[11]=((C_word*)t2)[9],a[12]=((C_word*)t2)[10],tmp=(C_word)a,a+=13,tmp);
C_trace(C_text("core.scm:2763: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[11];
tp(3,av2);}}

/* k21074 in k21071 in k21068 in merge-reusable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21076(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21076,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_eqp(((C_word*)t0)[3],lf[119]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21085,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t3)){
t5=t4;
f_21085(t5,t3);}
else{
t5=C_eqp(((C_word*)t0)[3],lf[483]);
if(C_truep(t5)){
t6=t4;
f_21085(t6,t5);}
else{
t6=C_eqp(((C_word*)t0)[3],lf[170]);
if(C_truep(t6)){
t7=t4;
f_21085(t7,t6);}
else{
t7=C_eqp(((C_word*)t0)[3],lf[558]);
t8=t4;
f_21085(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[3],lf[482])));}}}}

/* k21083 in k21074 in k21071 in k21068 in merge-reusable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_21085(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,5)))){
C_save_and_reclaim_args((void *)trf_21085,2,t0,t1);}
a=C_alloc(11);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t2)[3],lf[100]);
t4=(C_truep(t3)?t3:C_eqp(((C_word*)t2)[3],lf[542]));
if(C_truep(t4)){
t5=C_i_caddr(((C_word*)t2)[4]);
t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21103,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[6],a[5]=((C_word*)t2)[7],a[6]=((C_word*)t2)[8],a[7]=((C_word*)t2)[9],a[8]=((C_word*)t2)[10],a[9]=((C_word*)t2)[11],a[10]=((C_word*)t2)[12],tmp=(C_word)a,a+=11,tmp);
C_trace(C_text("core.scm:2769: ##sys#decompose-lambda-list"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[198]);
C_word av2[4];
av2[0]=*((C_word*)lf[198]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=t5;
av2[3]=t6;
tp(4,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21206,a[2]=((C_word*)t2)[11],a[3]=((C_word*)t2)[8],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2816: any"));
f_7154(((C_word*)t2)[2],t5,((C_word*)t2)[10]);}}}

/* a21102 in k21083 in k21074 in k21071 in k21068 in merge-reusable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21103(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_21103,c,av);}
a=C_alloc(12);
t5=C_i_car(((C_word*)t0)[2]);
t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_21110,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=((C_word*)t0)[5],a[6]=t5,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
C_trace(C_text("core.scm:2773: test"));
t7=((C_word*)((C_word*)t0)[10])[1];
f_20189(t7,t6,t5,lf[614]);}

/* k21108 in a21102 in k21083 in k21074 in k21071 in k21068 in merge-reusable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21110(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){
C_save_and_reclaim((void *)f_21110,c,av);}
a=C_alloc(16);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21113,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=C_SCHEME_UNDEFINED,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
if(C_truep(t1)){
t3=t2;
f_21113(t3,t1);}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21198,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2773: test"));
t4=((C_word*)((C_word*)t0)[11])[1];
f_20189(t4,t3,((C_word*)t0)[6],lf[610]);}}

/* k21111 in k21108 in a21102 in k21083 in k21074 in k21071 in k21068 in merge-reusable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_21113(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_21113,2,t0,t1);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+7,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21116,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2774: test"));
t4=((C_word*)((C_word*)t0)[12])[1];
f_20189(t4,t3,((C_word*)t0)[6],lf[612]);}

/* k21114 in k21111 in k21108 in a21102 in k21083 in k21074 in k21071 in k21068 in merge-reusable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21116(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_21116,c,av);}
a=C_alloc(13);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21119,a[2]=((C_word*)t2)[2],a[3]=t1,a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[8],a[10]=((C_word*)t2)[9],a[11]=((C_word*)t2)[10],a[12]=((C_word*)t2)[11],tmp=(C_word)a,a+=13,tmp);
C_trace(C_text("core.scm:2776: test"));
t4=((C_word*)((C_word*)t2)[12])[1];
f_20189(t4,t3,((C_word*)t2)[6],lf[616]);}

/* k21117 in k21114 in k21111 in k21108 in a21102 in k21083 in k21074 in k21071 in k21068 in merge-reusable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21119(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){
C_save_and_reclaim((void *)f_21119,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_21122,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t1,a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
t3=C_i_car(((C_word*)t0)[11]);
if(C_truep(C_i_not(((C_word*)t0)[3]))){
if(C_truep(C_i_not(t1))){
C_trace(C_text("core.scm:2780: merge-reusable"));
t4=((C_word*)((C_word*)t0)[12])[1];
f_21066(t4,t2,t3,((C_word*)t0)[8]);}
else{
C_trace(C_text("core.scm:2780: merge-reusable"));
t4=((C_word*)((C_word*)t0)[12])[1];
f_21066(t4,t2,t3,C_SCHEME_FALSE);}}
else{
C_trace(C_text("core.scm:2780: merge-reusable"));
t4=((C_word*)((C_word*)t0)[12])[1];
f_21066(t4,t2,t3,C_SCHEME_FALSE);}}

/* k21120 in k21117 in k21114 in k21111 in k21108 in a21102 in k21083 in k21074 in k21071 in k21068 in merge-reusable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_21122(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
C_save_and_reclaim((void *)f_21122,c,av);}
a=C_alloc(17);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21128,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
if(C_truep(((C_word*)t0)[9])){
if(C_truep(C_i_not(((C_word*)t0)[10]))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21170,a[2]=t2,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2789: symbolset="));
t4=((C_word*)((C_word*)t0)[11])[1];
f_20163(t4,t3,((C_word*)t0)[9],C_a_i_list(&a,1,((C_word*)t0)[8]));}
else{
t3=t2;
f_21128(t3,C_SCHEME_FALSE);}}
else{
t3=t2;
f_21128(t3,C_SCHEME_FALSE);}}

/* k21126 in k21120 in k21117 in k21114 in k21111 in k21108 in a21102 in k21083 in k21074 in k21071 in k21068 in merge-reusable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void f_21128(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,5)))){
C_save_and_reclaim_args((void *)trf_21128,2,t0,t1);}
a=C_alloc(8);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21131,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("core.scm:2793: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word av2[6];
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[7];
av2[4]=lf[611];
av2[5]=C_fix(1);
tp(6,av2);}}
else{
if(C_truep(((C_word*)t0)[8])){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21153,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[9],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:2807: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word av2[6];
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[7];
av2[4]=lf[612];
av2[5]=lf[615];
tp(6,av2);}}
else{
t2=((C_word*)t0)[5];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}

/* k21129 in k21126 in k21120 in k21117 in k21114 in k21111 in k21108 in a21102 in k21083 in k21074 in k21071 in k21068 in merge-reusable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_21131(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_21131,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21134,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2794: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
av2[3]=((C_word*)t0)[7];
av2[4]=lf[610];
av2[5]=C_SCHEME_END_OF_LIST;
tp(6,av2);}}

/* k21132 in k21129 in k21126 in k21120 in k21117 in k21114 in k21111 in k21108 in a21102 in k21083 in k21074 in k21071 in k21068 in merge-reusable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_21134(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){
C_save_and_reclaim((void *)f_21134,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21137,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2795: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[6];
av2[3]=((C_word*)t2)[7];
av2[4]=lf[612];
av2[5]=lf[613];
tp(6,av2);}}

/* k21135 in k21132 in k21129 in k21126 in k21120 in k21117 in k21114 in k21111 in k21108 in a21102 in k21083 in k21074 in k21071 in k21068 in merge-reusable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_21137(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(58,c,1)))){
C_save_and_reclaim((void *)f_21137,c,av);}
a=C_alloc(58);
t2=((C_word*)((C_word*)t0)[2])[1];
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t2,C_fix(1)));
t4=C_eqp(((C_word*)t0)[3],lf[615]);
if(C_truep(t4)){
t5=((C_word*)((C_word*)t0)[4])[1];
t6=C_mutate(((C_word *)((C_word*)t0)[4])+1,C_s_a_i_minus(&a,2,t5,C_fix(1)));
t7=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t7;
av2[1]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
t5=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_TRUE;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}

/* k21151 in k21126 in k21120 in k21117 in k21114 in k21111 in k21108 in a21102 in k21083 in k21074 in k21071 in k21068 in merge-reusable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_21153(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){
C_save_and_reclaim((void *)f_21153,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21156,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2808: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[614];
av2[5]=((C_word*)t0)[6];
tp(6,av2);}}

/* k21154 in k21151 in k21126 in k21120 in k21117 in k21114 in k21111 in k21108 in a21102 in k21083 in k21074 in k21071 in k21068 in merge-reusable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_21156(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
C_save_and_reclaim((void *)f_21156,c,av);}
a=C_alloc(29);
t2=((C_word*)((C_word*)t0)[2])[1];
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t2,C_fix(1)));
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k21168 in k21120 in k21117 in k21114 in k21111 in k21108 in a21102 in k21083 in k21074 in k21071 in k21068 in merge-reusable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_21170(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_21170,c,av);}
t2=((C_word*)t0)[2];
f_21128(t2,(C_truep(t1)?C_fixnum_greaterp(C_i_length(((C_word*)t0)[3]),C_fix(1)):C_SCHEME_FALSE));}

/* k21196 in k21108 in a21102 in k21083 in k21074 in k21071 in k21068 in merge-reusable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21198(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_21198,c,av);}
t2=((C_word*)t0)[2];
f_21113(t2,(C_truep(t1)?t1:C_SCHEME_END_OF_LIST));}

/* a21205 in k21083 in k21074 in k21071 in k21068 in merge-reusable in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21206(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_21206,c,av);}
C_trace(C_text("core.scm:2816: merge-reusable"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_21066(t3,t1,t2,((C_word*)t0)[3]);}

/* transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_21250(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,0,2)))){
C_save_and_reclaim_args((void *)trf_21250,5,t0,t1,t2,t3,t4);}
a=C_alloc(16);
t5=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_21254,a[2]=t1,a[3]=t2,a[4]=C_SCHEME_UNDEFINED,a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=t3,a[9]=t4,a[10]=((C_word*)t0)[4],a[11]=((C_word*)t0)[5],a[12]=C_SCHEME_UNDEFINED,a[13]=((C_word*)t0)[6],a[14]=((C_word*)t0)[7],a[15]=((C_word*)t0)[8],tmp=(C_word)a,a+=16,tmp);
C_trace(C_text("core.scm:2821: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[525]);
C_word av2[3];
av2[0]=*((C_word*)lf[525]+1);
av2[1]=t5;
av2[2]=t2;
tp(3,av2);}}

/* k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21254(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21254,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+12,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21257,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2822: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21257(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21257,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+5,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21260,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2823: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}}

/* k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21260(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21260,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+4,t1);
t4=C_eqp(((C_word*)t2)[4],lf[119]);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21269,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t4)){
t6=t5;
f_21269(t6,t4);}
else{
t6=C_eqp(((C_word*)t2)[4],lf[483]);
if(C_truep(t6)){
t7=t5;
f_21269(t7,t6);}
else{
t7=C_eqp(((C_word*)t2)[4],lf[170]);
if(C_truep(t7)){
t8=t5;
f_21269(t8,t7);}
else{
t8=C_eqp(((C_word*)t2)[4],lf[558]);
if(C_truep(t8)){
t9=t5;
f_21269(t9,t8);}
else{
t9=C_eqp(((C_word*)t2)[4],lf[644]);
t10=t5;
f_21269(t10,(C_truep(t9)?t9:C_eqp(((C_word*)t2)[4],lf[645])));}}}}}

/* k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_21269(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,0,4)))){
C_save_and_reclaim_args((void *)trf_21269,2,t0,t1);}
a=C_alloc(16);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t2)[4],lf[521]);
if(C_truep(t3)){
t4=C_i_car(((C_word*)t2)[5]);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21281,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[6],a[4]=t4,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2832: ref-var"));
f_22679(t5,((C_word*)t2)[3],((C_word*)t2)[8],((C_word*)t2)[9]);}
else{
t4=C_eqp(((C_word*)t2)[4],lf[532]);
t5=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_21303,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[10],a[4]=((C_word*)t2)[2],a[5]=((C_word*)t2)[8],a[6]=((C_word*)t2)[9],a[7]=((C_word*)t2)[5],a[8]=((C_word*)t2)[3],a[9]=((C_word*)t2)[7],a[10]=((C_word*)t2)[11],a[11]=((C_word*)t2)[12],a[12]=((C_word*)t2)[13],a[13]=((C_word*)t2)[6],a[14]=((C_word*)t2)[14],a[15]=((C_word*)t2)[15],tmp=(C_word)a,a+=16,tmp);
if(C_truep(t4)){
t6=t5;
f_21303(t6,t4);}
else{
t6=C_eqp(((C_word*)t2)[4],lf[642]);
if(C_truep(t6)){
t7=t5;
f_21303(t7,t6);}
else{
t7=C_eqp(((C_word*)t2)[4],lf[562]);
t8=t5;
f_21303(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t2)[4],lf[643])));}}}}}

/* k21279 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21281(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_21281,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21287,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2833: test"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_20189(t3,t2,((C_word*)t0)[4],lf[597]);}

/* k21285 in k21279 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21287(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_21287,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);
C_trace(C_text("core.scm:2834: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[617];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t2;
tp(5,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_21303(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){
C_save_and_reclaim_args((void *)trf_21303,2,t0,t1);}
a=C_alloc(10);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21306,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=C_SCHEME_UNDEFINED,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:2838: ref-var"));
f_22679(t2,((C_word*)t0)[8],((C_word*)t0)[5],((C_word*)t0)[6]);}
else{
t2=C_eqp(((C_word*)t0)[2],lf[150]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21358,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t2)){
t4=t3;
f_21358(t4,t2);}
else{
t4=C_eqp(((C_word*)t0)[2],lf[518]);
if(C_truep(t4)){
t5=t3;
f_21358(t5,t4);}
else{
t5=C_eqp(((C_word*)t0)[2],lf[308]);
if(C_truep(t5)){
t6=t3;
f_21358(t6,t5);}
else{
t6=C_eqp(((C_word*)t0)[2],lf[309]);
if(C_truep(t6)){
t7=t3;
f_21358(t7,t6);}
else{
t7=C_eqp(((C_word*)t0)[2],lf[171]);
if(C_truep(t7)){
t8=t3;
f_21358(t8,t7);}
else{
t8=C_eqp(((C_word*)t0)[2],lf[120]);
if(C_truep(t8)){
t9=t3;
f_21358(t9,t8);}
else{
t9=C_eqp(((C_word*)t0)[2],lf[288]);
if(C_truep(t9)){
t10=t3;
f_21358(t10,t9);}
else{
t10=C_eqp(((C_word*)t0)[2],lf[196]);
if(C_truep(t10)){
t11=t3;
f_21358(t11,t10);}
else{
t11=C_eqp(((C_word*)t0)[2],lf[635]);
if(C_truep(t11)){
t12=t3;
f_21358(t12,t11);}
else{
t12=C_eqp(((C_word*)t0)[2],lf[636]);
if(C_truep(t12)){
t13=t3;
f_21358(t13,t12);}
else{
t13=C_eqp(((C_word*)t0)[2],lf[637]);
if(C_truep(t13)){
t14=t3;
f_21358(t14,t13);}
else{
t14=C_eqp(((C_word*)t0)[2],lf[536]);
if(C_truep(t14)){
t15=t3;
f_21358(t15,t14);}
else{
t15=C_eqp(((C_word*)t0)[2],lf[638]);
if(C_truep(t15)){
t16=t3;
f_21358(t16,t15);}
else{
t16=C_eqp(((C_word*)t0)[2],lf[639]);
if(C_truep(t16)){
t17=t3;
f_21358(t17,t16);}
else{
t17=C_eqp(((C_word*)t0)[2],lf[640]);
if(C_truep(t17)){
t18=t3;
f_21358(t18,t17);}
else{
t18=C_eqp(((C_word*)t0)[2],lf[641]);
if(C_truep(t18)){
t19=t3;
f_21358(t19,t18);}
else{
t19=C_eqp(((C_word*)t0)[2],lf[124]);
t20=t3;
f_21358(t20,(C_truep(t19)?t19:C_eqp(((C_word*)t0)[2],lf[291])));}}}}}}}}}}}}}}}}}}

/* k21304 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21306(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21306,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+8,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21309,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t4=C_eqp(((C_word*)t0)[8],((C_word*)t0)[9]);
if(C_truep(t4)){
C_trace(C_text("core.scm:2839: chicken.compiler.support#varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[519]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[519]+1);
av2[1]=t3;
av2[2]=C_i_car(((C_word*)t0)[7]);
tp(3,av2);}}
else{
t5=t3;{
C_word *av2=av;
av2[0]=t5;
av2[1]=((C_word*)t0)[8];
f_21309(2,av2);}}}

/* k21307 in k21304 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21309(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_21309,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=C_eqp(((C_word*)t2)[2],lf[532]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21322,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2845: chicken.compiler.support#replace-rest-op-with-list-ops"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[618]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[618]+1);
av2[1]=t4;
av2[2]=((C_word*)t2)[2];
av2[3]=t1;
av2[4]=((C_word*)t2)[7];
tp(5,av2);}}
else{
t4=C_eqp(((C_word*)t2)[8],((C_word*)t2)[9]);
if(C_truep(C_i_not(t4))){
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21335,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2850: chicken.compiler.support#replace-rest-op-with-list-ops"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[618]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[618]+1);
av2[1]=t5;
av2[2]=((C_word*)t2)[2];
av2[3]=t1;
av2[4]=((C_word*)t2)[7];
tp(5,av2);}}
else{
t5=((C_word*)t2)[4];{
C_word *av2=av;
av2[0]=t5;
av2[1]=((C_word*)t2)[8];
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}}

/* k21320 in k21307 in k21304 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21322(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_21322,c,av);}
C_trace(C_text("core.scm:2845: transform"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_21250(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k21333 in k21307 in k21304 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21335(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_21335,c,av);}
C_trace(C_text("core.scm:2850: transform"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_21250(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_21358(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,5)))){
C_save_and_reclaim_args((void *)trf_21358,2,t0,t1);}
a=C_alloc(14);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21365,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[7],a[4]=((C_word*)t2)[10],a[5]=((C_word*)t2)[11],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("core.scm:2860: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word av2[3];
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[8];
tp(3,av2);}}
else{
t3=C_eqp(((C_word*)t2)[2],lf[182]);
if(C_truep(t3)){
t4=C_i_car(((C_word*)t2)[7]);
t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21381,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t2)[4],a[4]=t4,a[5]=((C_word*)t2)[12],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[3],a[9]=((C_word*)t2)[11],a[10]=((C_word*)t2)[7],tmp=(C_word)a,a+=11,tmp);
C_trace(C_text("core.scm:2864: test"));
t6=((C_word*)((C_word*)t2)[13])[1];
f_20189(t6,t5,t4,lf[597]);}
else{
t4=C_eqp(((C_word*)t2)[2],lf[100]);
t5=(C_truep(t4)?t4:C_eqp(((C_word*)t2)[2],lf[542]));
if(C_truep(t5)){
t6=C_i_caddr(((C_word*)t2)[7]);
t7=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21486,a[2]=((C_word*)t2)[5],a[3]=((C_word*)t2)[7],a[4]=((C_word*)t2)[9],a[5]=((C_word*)t2)[6],a[6]=t6,a[7]=((C_word*)t2)[2],a[8]=((C_word*)t2)[14],a[9]=((C_word*)t2)[3],a[10]=((C_word*)t2)[11],a[11]=((C_word*)t2)[15],a[12]=((C_word*)t2)[13],tmp=(C_word)a,a+=13,tmp);
C_trace(C_text("core.scm:2883: ##sys#decompose-lambda-list"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[198]);
C_word av2[4];
av2[0]=*((C_word*)lf[198]+1);
av2[1]=((C_word*)t2)[4];
av2[2]=t6;
av2[3]=t7;
tp(4,av2);}}
else{
t6=C_eqp(((C_word*)t2)[2],lf[292]);
if(C_truep(t6)){
t7=C_i_car(((C_word*)t2)[7]);
t8=C_i_car(((C_word*)t2)[11]);
t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22078,a[2]=((C_word*)t2)[3],a[3]=t8,a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[13],a[7]=t7,a[8]=((C_word*)t2)[4],a[9]=((C_word*)t2)[7],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:2981: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word av2[3];
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t9;
av2[2]=t8;
tp(3,av2);}}
else{
t7=C_eqp(((C_word*)t2)[2],lf[482]);
if(C_truep(t7)){
t8=(C_truep(*((C_word*)lf[44]+1))?C_a_i_list1(&a,1,C_fix(2)):C_a_i_list1(&a,1,C_fix(1)));
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22253,a[2]=((C_word*)t2)[4],a[3]=t8,a[4]=((C_word*)t2)[7],tmp=(C_word)a,a+=5,tmp);
t10=C_i_car(((C_word*)t2)[7]);
t11=C_a_i_list2(&a,2,t10,C_SCHEME_TRUE);
C_trace(C_text("core.scm:3012: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word av2[5];
av2[0]=*((C_word*)lf[492]+1);
av2[1]=t9;
av2[2]=lf[558];
av2[3]=t11;
av2[4]=C_SCHEME_END_OF_LIST;
tp(5,av2);}}
else{
t8=C_eqp(((C_word*)t2)[2],lf[626]);
if(C_truep(t8)){
t9=((C_word*)t2)[4];{
C_word av2[2];
av2[0]=t9;
av2[1]=((C_word*)t2)[8];
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:3019: chicken.compiler.support#bomb"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[528]);
C_word av2[3];
av2[0]=*((C_word*)lf[528]+1);
av2[1]=((C_word*)t2)[4];
av2[2]=lf[634];
tp(3,av2);}}}}}}}}

/* k21363 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21365(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_21365,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21369,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2860: maptransform"));
t3=((C_word*)((C_word*)t0)[4])[1];
f_22511(t3,t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}

/* k21367 in k21363 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21369(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_21369,c,av);}
C_trace(C_text("core.scm:2860: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=t1;
tp(5,av2);}}

/* k21379 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21381(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21381,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21384,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2865: chicken.base#gensym"));
t4=*((C_word*)lf[112]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k21382 in k21379 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21384(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){
C_save_and_reclaim((void *)f_21384,c,av);}
a=C_alloc(14);
t2=((C_word*)t0)[2];
if(C_truep(((C_word*)t2)[2])){
t3=C_a_i_list1(&a,1,t1);
t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21402,a[2]=((C_word*)t2)[3],a[3]=t3,a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=t1,tmp=(C_word)a,a+=11,tmp);
C_trace(C_text("core.scm:2869: transform"));
t5=((C_word*)((C_word*)t2)[8])[1];
f_21250(t5,t4,C_i_car(((C_word*)t2)[9]),((C_word*)t2)[6],((C_word*)t2)[7]);}
else{
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21453,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[10],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:2877: transform"));
t4=((C_word*)((C_word*)t2)[8])[1];
f_21250(t4,t3,C_i_car(((C_word*)t2)[9]),((C_word*)t2)[6],((C_word*)t2)[7]);}}

/* k21400 in k21382 in k21379 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21402(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){
C_save_and_reclaim((void *)f_21402,c,av);}
a=C_alloc(21);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21406,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=C_a_i_list1(&a,1,((C_word*)t0)[4]);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21418,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21438,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2872: chicken.compiler.support#varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[519]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[519]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[10];
tp(3,av2);}}

/* k21404 in k21400 in k21382 in k21379 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_21406(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_21406,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
C_trace(C_text("core.scm:2867: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[182];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
tp(5,av2);}}

/* k21416 in k21400 in k21382 in k21379 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_21418(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_21418,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21422,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21426,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:2874: transform"));
t4=((C_word*)((C_word*)t0)[8])[1];
f_21250(t4,t3,C_i_cadr(((C_word*)t0)[9]),((C_word*)t0)[6],((C_word*)t0)[7]);}

/* k21420 in k21416 in k21400 in k21382 in k21379 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_21422(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_21422,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
C_trace(C_text("core.scm:2870: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[182];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
tp(5,av2);}}

/* k21424 in k21416 in k21400 in k21382 in k21379 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_21426(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_21426,c,av);}
C_trace(C_text("core.scm:2873: update-shared-closure-var"));
f_22598(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1);}

/* k21436 in k21400 in k21382 in k21379 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_21438(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_21438,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
C_trace(C_text("core.scm:2872: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[619];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t2;
tp(5,av2);}}

/* k21451 in k21382 in k21379 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21453(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_21453,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21457,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21461,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:2879: transform"));
t4=((C_word*)((C_word*)t0)[8])[1];
f_21250(t4,t3,C_i_cadr(((C_word*)t0)[9]),((C_word*)t0)[6],((C_word*)t0)[7]);}

/* k21455 in k21451 in k21382 in k21379 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_21457(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_21457,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
C_trace(C_text("core.scm:2875: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[182];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
tp(5,av2);}}

/* k21459 in k21451 in k21382 in k21379 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_21461(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_21461,c,av);}
C_trace(C_text("core.scm:2878: update-shared-closure-var"));
f_22598(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1);}

/* a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21486(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){
C_save_and_reclaim((void *)f_21486,c,av);}
a=C_alloc(20);
t5=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_21490,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t1,a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[10],a[14]=t3,a[15]=((C_word*)t0)[11],a[16]=((C_word*)t0)[12],tmp=(C_word)a,a+=17,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22059,a[2]=((C_word*)t0)[12],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2886: filter"));
f_7360(t5,t6,t2);}

/* k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21490(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(37,c,3)))){
C_save_and_reclaim((void *)f_21490,c,av);}
a=C_alloc(37);
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t7=t6;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=((C_word*)t8)[1];
t10=C_i_check_list_2(t1,lf[11]);
t11=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_21502,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=t4,a[19]=t5,tmp=(C_word)a,a+=20,tmp);
t12=C_SCHEME_UNDEFINED;
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22025,a[2]=t8,a[3]=t13,a[4]=t9,tmp=(C_word)a,a+=5,tmp));
t15=((C_word*)t13)[1];
f_22025(t15,t11,t1);}

/* k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_21502(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){
C_save_and_reclaim((void *)f_21502,c,av);}
a=C_alloc(29);
t2=C_i_check_list_2(((C_word*)t0)[2],lf[11]);
t3=C_i_check_list_2(t1,lf[11]);
t4=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_21511,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],a[7]=C_SCHEME_UNDEFINED,a[8]=((C_word*)t0)[6],a[9]=C_SCHEME_UNDEFINED,a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[2],a[12]=C_SCHEME_UNDEFINED,a[13]=((C_word*)t0)[12],a[14]=C_SCHEME_UNDEFINED,a[15]=((C_word*)t0)[13],a[16]=((C_word*)t0)[14],a[17]=((C_word*)t0)[4],a[18]=((C_word*)t0)[3],a[19]=((C_word*)t0)[15],a[20]=((C_word*)t0)[16],a[21]=((C_word*)t0)[17],tmp=(C_word)a,a+=22,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21977,a[2]=((C_word*)t0)[18],a[3]=t6,a[4]=((C_word*)t0)[19],tmp=(C_word)a,a+=5,tmp));
t8=((C_word*)t6)[1];
f_21977(t8,t4,((C_word*)t0)[2],t1);}

/* k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_21511(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21511,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+12,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21514,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2888: chicken.base#gensym"));
t4=*((C_word*)lf[112]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[168];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_21514(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_21514,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+9,t1);
t4=(C_truep(((C_word*)t2)[18])?C_a_i_cons(&a,2,((C_word*)t2)[18],((C_word*)t2)[17]):((C_word*)t2)[17]);
t5=C_mutate(((C_word *)t2)+14,t4);
t6=(C_truep(((C_word*)t2)[2])?C_i_car(((C_word*)t2)[8]):lf[609]);
t7=C_mutate(((C_word *)t2)+7,t6);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21523,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2891: test"));
t9=((C_word*)((C_word*)t2)[21])[1];
f_20189(t9,t8,((C_word*)t2)[7],lf[612]);}

/* k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_21523(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(30,c,3)))){
C_save_and_reclaim((void *)f_21523,c,av);}
a=C_alloc(30);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|26,a[1]=(C_word)f_21526,a[2]=C_SCHEME_UNDEFINED,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[2],a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t2)[3],a[7]=((C_word*)t2)[4],a[8]=t1,a[9]=((C_word*)t2)[5],a[10]=((C_word*)t2)[6],a[11]=((C_word*)t2)[7],a[12]=((C_word*)t2)[8],a[13]=((C_word*)t2)[9],a[14]=((C_word*)t2)[10],a[15]=C_SCHEME_UNDEFINED,a[16]=((C_word*)t2)[11],a[17]=((C_word*)t2)[12],a[18]=((C_word*)t2)[13],a[19]=((C_word*)t2)[14],a[20]=((C_word*)t2)[15],a[21]=((C_word*)t2)[16],a[22]=((C_word*)t2)[17],a[23]=((C_word*)t2)[18],a[24]=((C_word*)t2)[19],a[25]=((C_word*)t2)[20],a[26]=((C_word*)t2)[21],tmp=(C_word)a,a+=27,tmp);
t4=C_eqp(t1,lf[613]);
if(C_truep(t4)){
t5=t3;
f_21526(t5,C_a_i_list1(&a,1,C_SCHEME_FALSE));}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21966,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2894: test"));
t6=((C_word*)((C_word*)t2)[21])[1];
f_20189(t6,t5,((C_word*)t2)[7],lf[610]);}}

/* k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void f_21526(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_21526,2,t0,t1);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+5,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21529,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2895: test"));
t4=((C_word*)((C_word*)t0)[26])[1];
f_20189(t4,t3,((C_word*)t0)[11],lf[611]);}

/* k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_21529(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21529,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(C_truep(t1)?t1:C_fix(0));
t4=C_mutate(((C_word *)t2)+3,t3);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21535,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(*((C_word*)lf[44]+1))){
t6=C_i_cadr(((C_word*)t2)[12]);
t7=t5;
f_21535(t7,(C_truep(t6)?C_i_pairp(((C_word*)t2)[10]):C_SCHEME_FALSE));}
else{
t6=t5;
f_21535(t6,C_SCHEME_FALSE);}}

/* k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void f_21535(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_21535,2,t0,t1);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+2,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21538,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t5=C_eqp(((C_word*)t2)[8],lf[613]);
if(C_truep(t5)){
C_trace(C_text("core.scm:2900: chicken.base#gensym"));
t6=*((C_word*)lf[112]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t4;
av2[2]=lf[628];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t6=t4;{
C_word av2[2];
av2[0]=t6;
av2[1]=((C_word*)t2)[13];
f_21538(2,av2);}}}

/* k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_21538(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_21538,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+15,t1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21541,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t5=C_eqp(((C_word*)t2)[8],lf[615]);
if(C_truep(t5)){
C_trace(C_text("core.scm:2903: test"));
t6=((C_word*)((C_word*)t2)[26])[1];
f_20189(t6,t4,((C_word*)t2)[11],lf[614]);}
else{
t6=C_eqp(((C_word*)t2)[8],lf[613]);
t7=t4;{
C_word *av2=av;
av2[0]=t7;
av2[1]=(C_truep(t6)?((C_word*)t2)[7]:((C_word*)t2)[5]);
f_21541(2,av2);}}}

/* k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in ... */
static void C_ccall f_21541(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(33,c,3)))){
C_save_and_reclaim((void *)f_21541,c,av);}
a=C_alloc(33);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|25,a[1]=(C_word)f_21544,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=t1,a[10]=((C_word*)t2)[9],a[11]=((C_word*)t2)[10],a[12]=((C_word*)t2)[11],a[13]=((C_word*)t2)[12],a[14]=((C_word*)t2)[13],a[15]=((C_word*)t2)[14],a[16]=((C_word*)t2)[15],a[17]=((C_word*)t2)[16],a[18]=((C_word*)t2)[17],a[19]=((C_word*)t2)[18],a[20]=((C_word*)t2)[19],a[21]=((C_word*)t2)[20],a[22]=((C_word*)t2)[21],a[23]=((C_word*)t2)[22],a[24]=((C_word*)t2)[23],a[25]=((C_word*)t2)[24],tmp=(C_word)a,a+=26,tmp);
if(C_truep(((C_word*)t2)[23])){
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21906,a[2]=((C_word*)t2)[23],a[3]=((C_word*)t2)[17],a[4]=t3,a[5]=((C_word*)t2)[25],a[6]=((C_word*)t2)[26],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:2913: test"));
t5=((C_word*)((C_word*)t2)[26])[1];
f_20189(t5,t4,((C_word*)t2)[23],lf[597]);}
else{
t4=t3;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_21544(2,av2);}}}

/* k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in ... */
static void C_ccall f_21544(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(83,c,3)))){
C_save_and_reclaim((void *)f_21544,c,av);}
a=C_alloc(83);
t2=(C_truep(((C_word*)t0)[2])?C_s_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(2)):C_s_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1)));
t3=C_a_i_list1(&a,1,t2);
t4=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_21559,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=t3,a[10]=((C_word*)t0)[2],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp);
t5=C_i_cadr(((C_word*)t0)[13]);
t6=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_21827,a[2]=((C_word*)t0)[14],a[3]=((C_word*)t0)[13],a[4]=((C_word*)t0)[12],a[5]=t5,a[6]=t4,a[7]=((C_word*)t0)[15],a[8]=((C_word*)t0)[16],a[9]=((C_word*)t0)[17],a[10]=((C_word*)t0)[18],a[11]=((C_word*)t0)[19],a[12]=((C_word*)t0)[20],a[13]=((C_word*)t0)[9],a[14]=((C_word*)t0)[21],a[15]=((C_word*)t0)[22],tmp=(C_word)a,a+=16,tmp);
t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t8=t7;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=((C_word*)t9)[1];
t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21832,a[2]=((C_word*)t0)[18],tmp=(C_word)a,a+=3,tmp);
t12=C_i_check_list_2(((C_word*)t0)[23],lf[11]);
t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21848,a[2]=((C_word*)t0)[24],a[3]=((C_word*)t0)[18],a[4]=t6,a[5]=((C_word*)t0)[25],tmp=(C_word)a,a+=6,tmp);
t14=C_SCHEME_UNDEFINED;
t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
t16=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21863,a[2]=t11,a[3]=t9,a[4]=t15,a[5]=t10,tmp=(C_word)a,a+=6,tmp));
t17=((C_word*)t15)[1];
f_21863(t17,t13,((C_word*)t0)[23]);}

/* k21557 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in ... */
static void C_ccall f_21559(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){
C_save_and_reclaim((void *)f_21559,c,av);}
a=C_alloc(27);
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21564,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t7=C_eqp(((C_word*)t0)[6],lf[615]);
t8=(C_truep(t7)?((C_word*)t0)[7]:((C_word*)t0)[3]);
t9=C_i_check_list_2(t8,lf[11]);
t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21599,a[2]=t1,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[12],tmp=(C_word)a,a+=8,tmp);
t11=C_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21642,a[2]=t4,a[3]=t12,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp));
t14=((C_word*)t12)[1];
f_21642(t14,t10,t8);}

/* g5052 in k21557 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in ... */
static void f_21564(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){
C_save_and_reclaim_args((void *)trf_21564,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_not(t2))){
C_trace(C_text("core.scm:2956: chicken.compiler.support#varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[519]);
C_word av2[3];
av2[0]=*((C_word*)lf[519]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}
else{
if(C_truep(C_i_memq(t2,((C_word*)t0)[3]))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21587,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2959: chicken.compiler.support#varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[519]);
C_word av2[3];
av2[0]=*((C_word*)lf[519]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}
else{
C_trace(C_text("core.scm:2963: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word av2[5];
av2[0]=*((C_word*)lf[492]+1);
av2[1]=t1;
av2[2]=lf[483];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=C_SCHEME_END_OF_LIST;
tp(5,av2);}}}}

/* k21585 in g5052 in k21557 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in ... */
static void C_ccall f_21587(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_21587,c,av);}
C_trace(C_text("core.scm:2959: ref-var"));
f_22679(((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5]);}

/* k21597 in k21557 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in ... */
static void C_ccall f_21599(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){
C_save_and_reclaim((void *)f_21599,c,av);}
a=C_alloc(19);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21602,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(((C_word*)t0)[5])){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21613,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21617,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21621,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21629,a[2]=t5,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2973: chicken.compiler.support#real-name"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[625]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[625]+1);
av2[1]=t6;
av2[2]=((C_word*)t0)[7];
tp(3,av2);}}
else{
t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
C_trace(C_text("core.scm:2916: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[620];
av2[3]=((C_word*)t0)[4];
av2[4]=t3;
tp(5,av2);}}}

/* k21600 in k21597 in k21557 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in ... */
static void C_ccall f_21602(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_21602,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
C_trace(C_text("core.scm:2916: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[620];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
tp(5,av2);}}

/* k21611 in k21597 in k21557 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in ... */
static void C_ccall f_21613(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_21613,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
C_trace(C_text("core.scm:2968: scheme#append"));
t3=*((C_word*)lf[6]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k21615 in k21597 in k21557 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in ... */
static void C_ccall f_21617(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_21617,c,av);}
C_trace(C_text("core.scm:2971: chicken.compiler.support#qnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[621]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[621]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k21619 in k21597 in k21557 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in ... */
static void C_ccall f_21621(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_21621,c,av);}
C_trace(C_text("core.scm:2972: ##sys#make-lambda-info"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[622]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[622]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k21627 in k21597 in k21557 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in ... */
static void C_ccall f_21629(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_21629,c,av);}
a=C_alloc(4);
t2=(C_truep(t1)?t1:lf[623]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21636,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2975: chicken.syntax#strip-syntax"));
t4=C_fast_retrieve(lf[154]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_i_cdr(((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k21634 in k21627 in k21597 in k21557 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in ... */
static void C_ccall f_21636(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21636,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
C_trace(C_text("core.scm:2973: chicken.string#->string"));
t3=C_fast_retrieve(lf[624]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* map-loop5046 in k21557 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in ... */
static void f_21642(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_21642,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21667,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2949: g5052"));
t4=((C_word*)t0)[4];
f_21564(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k21665 in map-loop5046 in k21557 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in ... */
static void C_ccall f_21667(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21667,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_21642(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k21687 in k21825 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in ... */
static void C_ccall f_21689(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_21689,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
C_trace(C_text("core.scm:2919: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
tp(5,av2);}}

/* k21691 in k21825 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in ... */
static void C_ccall f_21693(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){
C_save_and_reclaim((void *)f_21693,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21696,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
if(C_truep(C_i_pairp(((C_word*)t0)[8]))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21706,a[2]=((C_word*)t0)[9],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2938: unzip1"));
f_7469(t3,((C_word*)t0)[9]);}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=t1;
f_21696(2,av2);}}}

/* k21694 in k21691 in k21825 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in ... */
static void C_ccall f_21696(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){
C_save_and_reclaim((void *)f_21696,c,av);}
a=C_alloc(15);
t2=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]);
if(C_truep(t2)){
t3=C_a_i_list1(&a,1,t1);
C_trace(C_text("core.scm:2919: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[5];
av2[3]=((C_word*)t0)[6];
av2[4]=t3;
tp(5,av2);}}
else{
t3=C_a_i_list1(&a,1,((C_word*)t0)[3]);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22584,a[2]=t1,a[3]=((C_word*)t0)[7],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=C_a_i_list1(&a,1,C_fix(1));
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22596,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:3032: chicken.compiler.support#varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[519]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[519]+1);
av2[1]=t6;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}}

/* k21704 in k21691 in k21825 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in ... */
static void C_ccall f_21706(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
C_save_and_reclaim((void *)f_21706,c,av);}
a=C_alloc(17);
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=C_i_check_list_2(((C_word*)t0)[2],lf[11]);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21733,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21771,a[2]=t4,a[3]=t9,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_21771(t11,t7,((C_word*)t0)[2]);}

/* k21721 in map-loop5018 in k21704 in k21691 in k21825 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in ... */
static void C_ccall f_21723(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_21723,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
C_trace(C_text("core.scm:2941: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[619];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t2;
tp(5,av2);}}

/* k21731 in k21704 in k21691 in k21825 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in ... */
static void C_ccall f_21733(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_21733,c,av);}
a=C_alloc(6);
t2=C_SCHEME_UNDEFINED;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21735,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp));
t5=((C_word*)t3)[1];
f_21735(t5,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* loop in k21731 in k21704 in k21691 in k21825 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in ... */
static void f_21735(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_21735,4,t0,t1,t2,t3);}
a=C_alloc(8);
if(C_truep(C_i_nullp(t2))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_car(t2);
t5=C_a_i_list1(&a,1,t4);
t6=C_i_car(t3);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21761,a[2]=t6,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2947: loop"));
t9=t7;
t10=C_u_i_cdr(t2);
t11=C_u_i_cdr(t3);
t1=t9;
t2=t10;
t3=t11;
goto loop;}}

/* k21759 in loop in k21731 in k21704 in k21691 in k21825 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in ... */
static void C_ccall f_21761(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_21761,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
C_trace(C_text("core.scm:2945: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[182];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
tp(5,av2);}}

/* map-loop5018 in k21704 in k21691 in k21825 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in ... */
static void f_21771(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_21771,3,t0,t1,t2);}
a=C_alloc(9);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21796,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21723,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2941: chicken.compiler.support#varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[519]);
C_word av2[3];
av2[0]=*((C_word*)lf[519]+1);
av2[1]=t5;
av2[2]=C_i_cdr(t4);
tp(3,av2);}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k21794 in map-loop5018 in k21704 in k21691 in k21825 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in ... */
static void C_ccall f_21796(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_21796,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_21771(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k21805 in k21825 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in ... */
static void C_ccall f_21807(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_21807,c,av);}
C_trace(C_text("core.scm:2935: update-shared-closure-vars"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_22651(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1);}

/* k21825 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in ... */
static void C_ccall f_21827(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(37,c,4)))){
C_save_and_reclaim((void *)f_21827,c,av);}
a=C_alloc(37);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=C_i_cadddr(((C_word*)t0)[3]);
t4=C_a_i_list4(&a,4,((C_word*)t0)[4],((C_word*)t0)[5],t2,t3);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21689,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21693,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=t4,a[7]=t5,a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp);
t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21807,a[2]=((C_word*)t0)[11],a[3]=t6,a[4]=((C_word*)t0)[12],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[13],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:2936: transform"));
t8=((C_word*)((C_word*)t0)[14])[1];
f_21250(t8,t7,C_i_car(((C_word*)t0)[15]),((C_word*)t0)[8],((C_word*)t0)[13]);}

/* g4979 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in ... */
static C_word f_21832(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_stack_overflow_check;{}
t2=C_i_assq(t1,((C_word*)t0)[2]);
return((C_truep(t2)?C_i_cdr(t2):t1));}

/* k21846 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in ... */
static void C_ccall f_21848(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_21848,c,av);}
t2=(C_truep(((C_word*)t0)[2])?C_i_assq(((C_word*)t0)[2],((C_word*)t0)[3]):C_SCHEME_FALSE);
if(C_truep(t2)){
C_trace(C_text("core.scm:2925: chicken.compiler.support#build-lambda-list"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[195]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[195]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=t1;
av2[3]=((C_word*)t0)[5];
av2[4]=C_i_cdr(t2);
tp(5,av2);}}
else{
C_trace(C_text("core.scm:2925: chicken.compiler.support#build-lambda-list"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[195]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[195]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=t1;
av2[3]=((C_word*)t0)[5];
av2[4]=((C_word*)t0)[2];
tp(5,av2);}}}

/* map-loop4973 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in ... */
static void f_21863(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_21863,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=(
C_trace("core.scm:2926: g4979"),
  f_21832(((C_word*)t0)[2],C_slot(t2,C_fix(0)))
);
t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST);
t5=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t4);
t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t4);
t8=t1;
t9=C_slot(t2,C_fix(1));
t1=t8;
t2=t9;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k21904 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in ... */
static void C_ccall f_21906(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_21906,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21912,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2914: test"));
t3=((C_word*)((C_word*)t0)[6])[1];
f_20189(t3,t2,((C_word*)t0)[2],lf[546]);}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_21544(2,av2);}}}

/* k21910 in k21904 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in ... */
static void C_ccall f_21912(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){
C_save_and_reclaim((void *)f_21912,c,av);}
if(C_truep(t1)){
t2=C_i_assq(((C_word*)t0)[2],((C_word*)t0)[3]);
C_trace(C_text("core.scm:2915: chicken.compiler.support#db-put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[533]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[533]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[5];
av2[3]=C_i_cdr(t2);
av2[4]=lf[627];
av2[5]=C_SCHEME_TRUE;
tp(6,av2);}}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_21544(2,av2);}}}

/* k21964 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_21966(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_21966,c,av);}
t2=((C_word*)t0)[2];
f_21526(t2,(C_truep(t1)?t1:C_SCHEME_END_OF_LIST));}

/* map-loop4885 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void f_21977(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_21977,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=C_slot(t2,C_fix(0));
t7=C_slot(t3,C_fix(0));
t8=C_a_i_cons(&a,2,t6,t7);
t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST);
t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9);
t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9);
t13=t1;
t14=C_slot(t2,C_fix(1));
t15=C_slot(t3,C_fix(1));
t1=t13;
t2=t14;
t3=t15;
goto loop;}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* map-loop4906 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_22025(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_22025,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22050,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2887: g4912"));
t4=*((C_word*)lf[112]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k22048 in map-loop4906 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_22050(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_22050,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_22025(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* a22058 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22059(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_22059,c,av);}
C_trace(C_text("core.scm:2886: test"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_20189(t3,t1,t2,lf[597]);}

/* k22076 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22078(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_22078,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22081,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t1,tmp=(C_word)a,a+=11,tmp);
t3=C_eqp(lf[119],t1);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22232,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2982: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
f_22081(2,av2);}}}

/* k22079 in k22076 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22081(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_22081,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22084,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
if(C_truep(t1)){
t3=t2;
f_22084(t3,t1);}
else{
t3=C_i_cdr(((C_word*)t0)[9]);
if(C_truep(C_i_pairp(t3))){
t4=C_i_cadr(((C_word*)t0)[9]);
t5=t2;
f_22084(t5,(C_truep(t4)?t4:C_eqp(lf[483],((C_word*)t0)[10])));}
else{
t4=t2;
f_22084(t4,C_eqp(lf[483],((C_word*)t0)[10]));}}}

/* k22082 in k22079 in k22076 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_22084(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_22084,2,t0,t1);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22087,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:2985: posq"));
f_7963(t3,((C_word*)t0)[8],((C_word*)t0)[6]);}

/* k22085 in k22082 in k22079 in k22076 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_22087(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_22087,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22091,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:2985: g5097"));
t4=t3;
f_22091(t4,((C_word*)t2)[9],t1);}
else{
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22165,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[9],a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[8],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:2999: test"));
t4=((C_word*)((C_word*)t2)[7])[1];
f_20189(t4,t3,((C_word*)t2)[8],lf[597]);}}

/* g5097 in k22085 in k22082 in k22079 in k22076 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void f_22091(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){
C_save_and_reclaim_args((void *)trf_22091,3,t0,t1,t2);}
a=C_alloc(9);
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22098,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=t2,tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:2987: test"));
t4=((C_word*)((C_word*)t0)[7])[1];
f_20189(t4,t3,((C_word*)t0)[8],lf[597]);}

/* k22096 in g5097 in k22085 in k22082 in k22079 in k22076 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_22098(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(44,c,2)))){
C_save_and_reclaim((void *)f_22098,c,av);}
a=C_alloc(44);
if(C_truep(t1)){
t2=(C_truep(((C_word*)t0)[2])?lf[629]:lf[630]);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22113,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
t4=C_s_a_i_plus(&a,2,((C_word*)t0)[8],C_fix(1));
t5=C_a_i_list1(&a,1,t4);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22129,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:2991: chicken.compiler.support#varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[519]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[519]+1);
av2[1]=t6;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}
else{
t2=(C_truep(((C_word*)t0)[2])?lf[631]:lf[632]);
t3=C_s_a_i_plus(&a,2,((C_word*)t0)[8],C_fix(1));
t4=C_a_i_list1(&a,1,t3);
t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22150,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:2997: chicken.compiler.support#varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[519]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[519]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}}

/* k22111 in k22096 in g5097 in k22085 in k22082 in k22079 in k22076 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_22113(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_22113,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22117,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:2992: transform"));
t3=((C_word*)((C_word*)t0)[4])[1];
f_21250(t3,t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}

/* k22115 in k22111 in k22096 in g5097 in k22085 in k22082 in k22079 in k22076 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_22117(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_22117,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
C_trace(C_text("core.scm:2988: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t2;
tp(5,av2);}}

/* k22127 in k22096 in g5097 in k22085 in k22082 in k22079 in k22076 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_22129(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22129,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
C_trace(C_text("core.scm:2991: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[626];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
tp(5,av2);}}

/* k22148 in k22096 in g5097 in k22085 in k22082 in k22079 in k22076 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_22150(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_22150,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22154,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:2998: transform"));
t3=((C_word*)((C_word*)t0)[5])[1];
f_21250(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}

/* k22152 in k22148 in k22096 in g5097 in k22085 in k22082 in k22079 in k22076 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_22154(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_22154,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
C_trace(C_text("core.scm:2994: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=t2;
tp(5,av2);}}

/* k22163 in k22085 in k22082 in k22079 in k22076 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_22165(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_22165,c,av);}
a=C_alloc(10);
if(C_truep(t1)){
t2=(C_truep(((C_word*)t0)[2])?lf[629]:lf[630]);
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22180,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("core.scm:3003: chicken.compiler.support#varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[519]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[519]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[8];
tp(3,av2);}}
else{
t2=C_a_i_list2(&a,2,((C_word*)t0)[8],((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22199,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:3007: transform"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_21250(t4,t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}}

/* k22178 in k22163 in k22085 in k22082 in k22079 in k22076 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_22180(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_22180,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22184,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:3004: transform"));
t3=((C_word*)((C_word*)t0)[4])[1];
f_21250(t3,t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}

/* k22182 in k22178 in k22163 in k22085 in k22082 in k22079 in k22076 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_22184(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_22184,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
C_trace(C_text("core.scm:3000: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=t2;
tp(5,av2);}}

/* k22197 in k22163 in k22085 in k22082 in k22079 in k22076 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_22199(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22199,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
C_trace(C_text("core.scm:3005: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[292];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
tp(5,av2);}}

/* k22230 in k22076 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22232(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_22232,c,av);}
C_trace(C_text("core.scm:2982: chicken.compiler.support#immediate?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[633]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[633]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_i_car(t1);
tp(3,av2);}}

/* k22251 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22253(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_22253,c,av);}
a=C_alloc(11);
if(C_truep(*((C_word*)lf[44]+1))){
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22264,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22268,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22272,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3014: chicken.string#->string"));
t5=C_fast_retrieve(lf[624]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=C_u_i_car(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}
else{
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
C_trace(C_text("core.scm:3010: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[620];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
tp(5,av2);}}}

/* k22262 in k22251 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22264(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_22264,c,av);}
a=C_alloc(6);
t2=C_a_i_list1(&a,1,t1);
t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t2);
C_trace(C_text("core.scm:3010: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[620];
av2[3]=((C_word*)t0)[4];
av2[4]=t3;
tp(5,av2);}}

/* k22266 in k22251 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22268(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_22268,c,av);}
C_trace(C_text("core.scm:3014: chicken.compiler.support#qnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[621]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[621]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k22270 in k22251 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in transform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22272(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_22272,c,av);}
C_trace(C_text("core.scm:3014: ##sys#make-lambda-info"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[622]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[622]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* maptransform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_22511(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){
C_save_and_reclaim_args((void *)trf_22511,5,t0,t1,t2,t3,t4);}
a=C_alloc(18);
t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t6=t5;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=((C_word*)t7)[1];
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22516,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t10=C_i_check_list_2(t2,lf[11]);
t11=C_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22528,a[2]=t7,a[3]=t12,a[4]=t9,a[5]=t8,tmp=(C_word)a,a+=6,tmp));
t14=((C_word*)t12)[1];
f_22528(t14,t1,t2);}

/* g5111 in maptransform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_22516(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,4)))){
C_save_and_reclaim_args((void *)trf_22516,3,t0,t1,t2);}
C_trace(C_text("core.scm:3022: transform"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_21250(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);}

/* map-loop5105 in maptransform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_22528(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_22528,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22553,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:3022: g5111"));
t4=((C_word*)t0)[4];
f_22516(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k22551 in map-loop5105 in maptransform in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22553(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_22553,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_22528(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k22582 in k21694 in k21691 in k21825 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in ... */
static void C_ccall f_22584(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_22584,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]);
C_trace(C_text("core.scm:3030: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[182];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
tp(5,av2);}}

/* k22594 in k21694 in k21691 in k21825 in k21542 in k21539 in k21536 in k21533 in k21527 in k21524 in k21521 in k21512 in k21509 in k21500 in k21488 in a21485 in k21356 in k21301 in k21267 in k21258 in k21255 in k21252 in ... */
static void C_ccall f_22596(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22596,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
C_trace(C_text("core.scm:3031: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[626];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
tp(5,av2);}}

/* update-shared-closure-var in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_22598(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
C_word tmp;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_22598,5,t1,t2,t3,t4,t5);}
a=C_alloc(6);
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22602,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:3039: posq"));
f_7963(t6,t2,t4);}

/* k22600 in update-shared-closure-var in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22602(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_22602,c,av);}
a=C_alloc(7);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22606,a[2]=((C_word*)t0)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:3039: g5143"));
t3=t2;
f_22606(t3,((C_word*)t0)[5],t1);}
else{
t2=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* g5143 in k22600 in update-shared-closure-var in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_22606(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_22606,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+4,t2);
t4=C_mutate(((C_word *)t0)+3,t1);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22646,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3041: chicken.base#gensym"));
t6=*((C_word*)lf[112]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[5];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k22620 in k22644 in g5143 in k22600 in update-shared-closure-var in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22622(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_22622,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,t1,((C_word*)t0)[2]);
C_trace(C_text("core.scm:3041: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[182];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
tp(5,av2);}}

/* k22632 in k22644 in g5143 in k22600 in update-shared-closure-var in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22634(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_22634,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22638,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:3043: chicken.compiler.support#varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[519]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[519]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k22636 in k22632 in k22644 in g5143 in k22600 in update-shared-closure-var in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22638(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_22638,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
C_trace(C_text("core.scm:3042: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[632];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
tp(5,av2);}}

/* k22644 in g5143 in k22600 in update-shared-closure-var in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22646(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(45,c,2)))){
C_save_and_reclaim((void *)f_22646,c,av);}
a=C_alloc(45);
t2=((C_word*)t0)[2];
t3=C_a_i_list1(&a,1,t1);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22622,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t5=C_s_a_i_plus(&a,2,((C_word*)t2)[4],C_fix(1));
t6=C_a_i_list1(&a,1,t5);
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22634,a[2]=t4,a[3]=t6,a[4]=((C_word*)t2)[5],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:3043: chicken.compiler.support#varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[519]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[519]+1);
av2[1]=t7;
av2[2]=((C_word*)t2)[6];
tp(3,av2);}}

/* update-shared-closure-vars in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_22651(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
C_word tmp;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
C_save_and_reclaim_args((void *)trf_22651,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(8);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22657,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp));
t9=((C_word*)t7)[1];
f_22657(t9,t1,t5,t2);}

/* lp in update-shared-closure-vars in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_22657(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,5)))){
C_save_and_reclaim_args((void *)trf_22657,4,t0,t1,t2,t3);}
a=C_alloc(5);
if(C_truep(C_i_nullp(t3))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22671,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:3052: update-shared-closure-var"));
f_22598(t4,C_i_car(t3),((C_word*)t0)[4],((C_word*)t0)[5],t2);}}

/* k22669 in lp in update-shared-closure-vars in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22671(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_22671,c,av);}
C_trace(C_text("core.scm:3052: lp"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_22657(t2,((C_word*)t0)[3],t1,C_u_i_cdr(((C_word*)t0)[4]));}

/* ref-var in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_22679(C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_22679,4,t1,t2,t3,t4);}
a=C_alloc(6);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22717,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:3056: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word av2[3];
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t5;
av2[2]=t2;
tp(3,av2);}}

/* k22684 in k22715 in ref-var in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22686(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_22686,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22690,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3057: g5164"));
t3=t2;
f_22690(t3,((C_word*)t0)[3],t1);}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* g5164 in k22684 in k22715 in ref-var in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_22690(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(36,0,2)))){
C_save_and_reclaim_args((void *)trf_22690,3,t0,t1,t2);}
a=C_alloc(36);
t3=C_s_a_i_plus(&a,2,t2,C_fix(1));
t4=C_a_i_list1(&a,1,t3);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22706,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:3060: chicken.compiler.support#varnode"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[519]);
C_word av2[3];
av2[0]=*((C_word*)lf[519]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}

/* k22704 in g5164 in k22684 in k22715 in ref-var in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22706(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_22706,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
C_trace(C_text("core.scm:3059: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[626];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
tp(5,av2);}}

/* k22715 in ref-var in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22717(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_22717,c,av);}
a=C_alloc(5);
t2=C_i_car(t1);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22686,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:3057: posq"));
f_7963(t3,t2,((C_word*)t0)[5]);}

/* k22718 in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22720(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){
C_save_and_reclaim((void *)f_22720,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22723,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
C_trace(C_text("core.scm:3064: gather"));
t3=((C_word*)((C_word*)t0)[11])[1];
f_20214(t3,t2,((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_END_OF_LIST);}

/* k22721 in k22718 in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22723(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_22723,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22726,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[10])[1]))){
C_trace(C_text("core.scm:3066: chicken.compiler.support#debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[593]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[593]+1);
av2[1]=t2;
av2[2]=lf[646];
av2[3]=lf[653];
av2[4]=((C_word*)((C_word*)t0)[10])[1];
tp(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_22726(2,av2);}}}

/* k22724 in k22721 in k22718 in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22726(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
C_save_and_reclaim((void *)f_22726,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22729,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
if(C_truep(*((C_word*)lf[32]+1))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22768,a[2]=((C_word*)t0)[9],a[3]=t2,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:3068: chicken.compiler.support#debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[593]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[593]+1);
av2[1]=t3;
av2[2]=lf[601];
av2[3]=lf[652];
tp(4,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_22729(2,av2);}}}

/* k22727 in k22724 in k22721 in k22718 in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22729(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){
C_save_and_reclaim((void *)f_22729,c,av);}
a=C_alloc(13);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22732,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
if(C_truep(*((C_word*)lf[31]+1))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22762,a[2]=((C_word*)t0)[8],a[3]=t2,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:3071: chicken.compiler.support#debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[593]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[593]+1);
av2[1]=t3;
av2[2]=lf[601];
av2[3]=lf[651];
tp(4,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_UNDEFINED;
f_22732(2,av2);}}}

/* k22730 in k22727 in k22724 in k22721 in k22718 in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22732(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_22732,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22735,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22751,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp);
t4=((C_word*)((C_word*)t0)[7])[1];
if(C_truep(C_i_zerop(t4))){
t5=((C_word*)((C_word*)t0)[6])[1];
t6=t3;
f_22751(t6,C_i_zerop(t5));}
else{
t5=t3;
f_22751(t5,C_SCHEME_FALSE);}}

/* k22733 in k22730 in k22727 in k22724 in k22721 in k22718 in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22735(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_22735,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22738,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3077: chicken.compiler.support#debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[593]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[593]+1);
av2[1]=t2;
av2[2]=lf[601];
av2[3]=lf[648];
tp(4,av2);}}

/* k22736 in k22733 in k22730 in k22727 in k22724 in k22721 in k22718 in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22738(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_22738,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22741,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:3078: transform"));
t4=((C_word*)((C_word*)t2)[4])[1];
f_21250(t4,t3,((C_word*)t2)[5],C_SCHEME_FALSE,C_SCHEME_END_OF_LIST);}

/* k22739 in k22736 in k22733 in k22730 in k22727 in k22724 in k22721 in k22718 in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22741(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_22741,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22744,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=((C_word*)((C_word*)t0)[3])[1];
if(C_truep(C_i_zerop(t3))){
t4=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:3080: chicken.compiler.support#debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[593]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[593]+1);
av2[1]=t2;
av2[2]=lf[646];
av2[3]=lf[647];
av2[4]=((C_word*)((C_word*)t0)[3])[1];
tp(5,av2);}}}

/* k22742 in k22739 in k22736 in k22733 in k22730 in k22727 in k22724 in k22721 in k22718 in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22744(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_22744,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k22749 in k22730 in k22727 in k22724 in k22721 in k22718 in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_22751(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){
C_save_and_reclaim_args((void *)trf_22751,2,t0,t1);}
a=C_alloc(4);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_SCHEME_UNDEFINED;
f_22735(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22754,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:3075: chicken.compiler.support#debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[593]);
C_word av2[5];
av2[0]=*((C_word*)lf[593]+1);
av2[1]=t2;
av2[2]=lf[646];
av2[3]=lf[650];
av2[4]=((C_word*)((C_word*)t0)[4])[1];
tp(5,av2);}}}

/* k22752 in k22749 in k22730 in k22727 in k22724 in k22721 in k22718 in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22754(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_22754,c,av);}
C_trace(C_text("core.scm:3076: chicken.compiler.support#debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[593]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[593]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[646];
av2[3]=lf[649];
av2[4]=((C_word*)((C_word*)t0)[3])[1];
tp(5,av2);}}

/* k22760 in k22727 in k22724 in k22721 in k22718 in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22762(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_22762,c,av);}
C_trace(C_text("core.scm:3072: merge-reusable"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_21066(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE);}

/* k22766 in k22724 in k22721 in k22718 in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22768(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_22768,c,av);}
C_trace(C_text("core.scm:3069: merge-shareable"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_20755(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE);}

/* chicken.compiler.core#lambda-literal-id in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22801(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_22801,c,av);}
t3=C_i_check_structure(t2,lf[656]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(1));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-external in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22819(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_22819,c,av);}
t3=C_i_check_structure(t2,lf[656]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(2));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-argument-count in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22855(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_22855,c,av);}
t3=C_i_check_structure(t2,lf[656]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(4));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-rest-argument in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22873(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_22873,c,av);}
t3=C_i_check_structure(t2,lf[656]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(5));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-temporaries in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22891(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_22891,c,av);}
t3=C_i_check_structure(t2,lf[656]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(6));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-float-temporaries in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22909(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_22909,c,av);}
t3=C_i_check_structure(t2,lf[656]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(7));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-callee-signatures in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22927(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_22927,c,av);}
t3=C_i_check_structure(t2,lf[656]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(8));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-allocated in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22945(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_22945,c,av);}
t3=C_i_check_structure(t2,lf[656]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(9));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-closure-size in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22981(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_22981,c,av);}
t3=C_i_check_structure(t2,lf[656]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(11));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-looping in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_22999(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_22999,c,av);}
t3=C_i_check_structure(t2,lf[656]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(12));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-customizable in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23017(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_23017,c,av);}
t3=C_i_check_structure(t2,lf[656]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(13));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-rest-argument-mode in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23035(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_23035,c,av);}
t3=C_i_check_structure(t2,lf[656]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(14));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-body in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23053(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_23053,c,av);}
t3=C_i_check_structure(t2,lf[656]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(15));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#lambda-literal-direct in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23071(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_23071,c,av);}
t3=C_i_check_structure(t2,lf[656]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_block_ref(t2,C_fix(16));
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23080(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
C_save_and_reclaim((void *)f_23080,c,av);}
a=C_alloc(17);
t4=C_SCHEME_END_OF_LIST;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_fix(0);
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_SCHEME_END_OF_LIST;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_fix(0);
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_23084,a[2]=t3,a[3]=t11,a[4]=t9,a[5]=t5,a[6]=t7,a[7]=t1,a[8]=t2,tmp=(C_word)a,a+=9,tmp);
t13=C_i_fixnum_max(lf[65],C_fix(1));
C_trace(C_text("core.scm:3112: scheme#make-vector"));
t14=*((C_word*)lf[96]+1);{
C_word *av2=av;
av2[0]=t14;
av2[1]=t12;
av2[2]=C_fixnum_times(t13,C_fix(3));
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}}

/* k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23084(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word t29;
C_word t30;
C_word t31;
C_word t32;
C_word t33;
C_word t34;
C_word t35;
C_word t36;
C_word t37;
C_word t38;
C_word t39;
C_word t40;
C_word t41;
C_word t42;
C_word t43;
C_word t44;
C_word t45;
C_word t46;
C_word t47;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(103,c,7)))){
C_save_and_reclaim((void *)f_23084,c,av);}
a=C_alloc(103);
t2=C_fix(0);
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_END_OF_LIST;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_fix(0);
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_fix(0);
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_SCHEME_END_OF_LIST;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_fix(0);
t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp);
t14=C_fix(0);
t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
t16=C_fix(0);
t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp);
t18=C_fix(0);
t19=(*a=C_VECTOR_TYPE|1,a[1]=t18,tmp=(C_word)a,a+=2,tmp);
t20=C_SCHEME_END_OF_LIST;
t21=(*a=C_VECTOR_TYPE|1,a[1]=t20,tmp=(C_word)a,a+=2,tmp);
t22=C_SCHEME_UNDEFINED;
t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp);
t24=C_SCHEME_UNDEFINED;
t25=(*a=C_VECTOR_TYPE|1,a[1]=t24,tmp=(C_word)a,a+=2,tmp);
t26=C_SCHEME_UNDEFINED;
t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp);
t28=C_SCHEME_UNDEFINED;
t29=(*a=C_VECTOR_TYPE|1,a[1]=t28,tmp=(C_word)a,a+=2,tmp);
t30=C_SCHEME_UNDEFINED;
t31=(*a=C_VECTOR_TYPE|1,a[1]=t30,tmp=(C_word)a,a+=2,tmp);
t32=C_SCHEME_UNDEFINED;
t33=(*a=C_VECTOR_TYPE|1,a[1]=t32,tmp=(C_word)a,a+=2,tmp);
t34=C_SCHEME_UNDEFINED;
t35=(*a=C_VECTOR_TYPE|1,a[1]=t34,tmp=(C_word)a,a+=2,tmp);
t36=C_SCHEME_UNDEFINED;
t37=(*a=C_VECTOR_TYPE|1,a[1]=t36,tmp=(C_word)a,a+=2,tmp);
t38=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23086,a[2]=C_SCHEME_UNDEFINED,a[3]=C_SCHEME_UNDEFINED,a[4]=t31,a[5]=C_SCHEME_UNDEFINED,a[6]=t25,a[7]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=8,tmp));
t39=C_set_block_item(t25,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23135,a[2]=t35,a[3]=t31,a[4]=t15,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp));
t40=C_set_block_item(t27,0,(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_23191,a[2]=t23,a[3]=t7,a[4]=t29,a[5]=t19,a[6]=t21,a[7]=t27,a[8]=t13,a[9]=t31,a[10]=t3,a[11]=t5,a[12]=t11,a[13]=t9,a[14]=t1,a[15]=((C_word*)t0)[2],a[16]=t35,a[17]=t17,a[18]=t37,tmp=(C_word)a,a+=19,tmp));
t41=C_set_block_item(t29,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24401,a[2]=t27,tmp=(C_word)a,a+=3,tmp));
t42=C_set_block_item(t31,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24452,a[2]=t37,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t33,tmp=(C_word)a,a+=8,tmp));
t43=C_set_block_item(t33,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24500,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp));
t44=C_set_block_item(t35,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24509,a[2]=((C_word*)t0)[6],a[3]=t33,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp));
t45=C_set_block_item(t37,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_24553,tmp=(C_word)a,a+=2,tmp));
t46=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24622,a[2]=((C_word*)t0)[7],a[3]=t1,a[4]=t21,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t17,a[8]=t15,a[9]=t13,a[10]=t27,a[11]=((C_word*)t0)[8],tmp=(C_word)a,a+=12,tmp);
C_trace(C_text("core.scm:3453: chicken.compiler.support#debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[593]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[593]+1);
av2[1]=t46;
av2[2]=lf[601];
av2[3]=lf[708];
tp(4,av2);}}

/* walk-var in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_23086(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
C_word tmp;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_23086,6,t0,t1,t2,t3,t4,t5);}
a=C_alloc(3);
t6=C_mutate(((C_word *)t0)+7,t5);
t7=C_mutate(((C_word *)t0)+2,t4);
t8=C_mutate(((C_word *)t0)+5,t2);
t9=C_mutate(((C_word *)t0)+3,t1);
t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23090,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3125: posq"));
f_7963(t10,((C_word*)t0)[5],t3);}

/* k23088 in walk-var in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23090(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_23090,c,av);}
a=C_alloc(7);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23094,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3125: g5398"));
t4=t3;
f_23094(t4,((C_word*)t2)[3],t1);}
else{
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23119,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:3128: chicken.keyword#keyword?"));
t4=C_fast_retrieve(lf[488]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}

/* g5398 in k23088 in walk-var in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_23094(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){
C_save_and_reclaim_args((void *)trf_23094,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_fixnum_plus(t2,C_fix(1));
t4=C_fixnum_difference(((C_word*)t0)[2],t3);
t5=C_a_i_list1(&a,1,t4);
C_trace(C_text("core.scm:3127: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word av2[5];
av2[0]=*((C_word*)lf[492]+1);
av2[1]=t1;
av2[2]=lf[671];
av2[3]=t5;
av2[4]=C_SCHEME_END_OF_LIST;
tp(5,av2);}}

/* k23117 in k23088 in walk-var in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23119(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_23119,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23130,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3128: literal"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_24452(t3,t2,((C_word*)t0)[4]);}
else{
C_trace(C_text("core.scm:3129: walk-global"));
t2=((C_word*)((C_word*)t0)[5])[1];
f_23135(t2,((C_word*)t0)[2],((C_word*)t0)[4],((C_word*)t0)[6]);}}

/* k23128 in k23117 in k23088 in walk-var in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23130(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_23130,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
C_trace(C_text("core.scm:3128: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[672];
av2[3]=t2;
av2[4]=C_SCHEME_END_OF_LIST;
tp(5,av2);}}

/* walk-global in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_23135(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){
C_save_and_reclaim_args((void *)trf_23135,4,t0,t1,t2,t3);}
a=C_alloc(12);
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23139,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp);
if(C_truep(t3)){
t5=t4;{
C_word av2[2];
av2[0]=t5;
av2[1]=t3;
f_23139(2,av2);}}
else{
t5=*((C_word*)lf[34]+1);
if(C_truep(*((C_word*)lf[34]+1))){
t6=*((C_word*)lf[34]+1);
t7=t4;{
C_word av2[2];
av2[0]=t7;
av2[1]=*((C_word*)lf[34]+1);
f_23139(2,av2);}}
else{
t6=C_fast_retrieve(lf[156]);
if(C_truep(C_fast_retrieve(lf[156]))){
t7=t4;{
C_word av2[2];
av2[0]=t7;
av2[1]=C_fast_retrieve(lf[156]);
f_23139(2,av2);}}
else{
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23183,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:3135: chicken.compiler.support#variable-mark"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[193]);
C_word av2[4];
av2[0]=*((C_word*)lf[193]+1);
av2[1]=t7;
av2[2]=t2;
av2[3]=lf[167];
tp(4,av2);}}}}}

/* k23137 in walk-global in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23139(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_23139,c,av);}
a=C_alloc(12);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23142,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23167,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:3137: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[7];
av2[3]=((C_word*)t0)[2];
av2[4]=lf[550];
tp(5,av2);}}

/* k23140 in k23137 in walk-global in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_23142(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(37,0,2)))){
C_save_and_reclaim_args((void *)trf_23142,2,t0,t1);}
a=C_alloc(37);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23145,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
if(C_truep(t1)){
t3=((C_word*)((C_word*)t0)[7])[1];
t4=C_mutate(((C_word *)((C_word*)t0)[7])+1,C_s_a_i_plus(&a,2,t3,C_fix(1)));
t5=t2;
f_23145(t5,t4);}
else{
t3=t2;
f_23145(t3,C_SCHEME_UNDEFINED);}}

/* k23143 in k23140 in k23137 in walk-global in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_23145(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_23145,2,t0,t1);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23156,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)t0)[3])){
C_trace(C_text("core.scm:3143: blockvar-literal"));
t3=((C_word*)((C_word*)t0)[6])[1];
f_24509(t3,t2,((C_word*)t0)[4]);}
else{
C_trace(C_text("core.scm:3144: literal"));
t3=((C_word*)((C_word*)t0)[7])[1];
f_24452(t3,t2,((C_word*)t0)[4]);}}

/* k23154 in k23143 in k23140 in k23137 in walk-global in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23156(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){
C_save_and_reclaim((void *)f_23156,c,av);}
a=C_alloc(12);
t2=C_a_i_list4(&a,4,t1,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]);
C_trace(C_text("core.scm:3140: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[5];
av2[2]=lf[673];
av2[3]=t2;
av2[4]=C_SCHEME_END_OF_LIST;
tp(5,av2);}}

/* k23165 in k23137 in walk-global in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23167(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_23167,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23174,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3138: chicken.compiler.support#variable-visible?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[568]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[568]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
av2[3]=*((C_word*)lf[26]+1);
tp(4,av2);}}
else{
t2=((C_word*)t0)[2];
f_23142(t2,C_SCHEME_FALSE);}}

/* k23172 in k23165 in k23137 in walk-global in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23174(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_23174,c,av);}
t2=((C_word*)t0)[2];
f_23142(t2,C_i_not(t1));}

/* k23181 in walk-global in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23183(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_23183,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
f_23139(2,av2);}}
else{
C_trace(C_text("core.scm:3136: chicken.compiler.support#intrinsic?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[577]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[577]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}}

/* walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_23191(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
C_word tmp;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(28,0,2)))){
C_save_and_reclaim_args((void *)trf_23191,7,t0,t1,t2,t3,t4,t5,t6);}
a=C_alloc(28);
t7=(*a=C_CLOSURE_TYPE|27,a[1]=(C_word)f_23195,a[2]=t1,a[3]=t2,a[4]=C_SCHEME_UNDEFINED,a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t0)[2],a[7]=t3,a[8]=t4,a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[4],a[11]=C_SCHEME_UNDEFINED,a[12]=t5,a[13]=t6,a[14]=((C_word*)t0)[5],a[15]=((C_word*)t0)[6],a[16]=((C_word*)t0)[7],a[17]=((C_word*)t0)[8],a[18]=((C_word*)t0)[9],a[19]=((C_word*)t0)[10],a[20]=((C_word*)t0)[11],a[21]=((C_word*)t0)[12],a[22]=((C_word*)t0)[13],a[23]=((C_word*)t0)[14],a[24]=((C_word*)t0)[15],a[25]=((C_word*)t0)[16],a[26]=((C_word*)t0)[17],a[27]=((C_word*)t0)[18],tmp=(C_word)a,a+=28,tmp);
C_trace(C_text("core.scm:3151: chicken.compiler.support#node-subexpressions"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[525]);
C_word av2[3];
av2[0]=*((C_word*)lf[525]+1);
av2[1]=t7;
av2[2]=t2;
tp(3,av2);}}

/* k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23195(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_23195,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+11,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23198,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3152: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23198(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_23198,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=t1;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_mutate(((C_word *)t2)+5,t4);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23201,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3153: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t6;
av2[2]=((C_word*)t2)[3];
tp(3,av2);}}

/* k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23201(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_23201,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)t2)+4,t1);
t4=C_eqp(((C_word*)t2)[4],lf[483]);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23210,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t4)){
t6=t5;
f_23210(t6,t4);}
else{
t6=C_eqp(((C_word*)t2)[4],lf[558]);
t7=t5;
f_23210(t7,(C_truep(t6)?t6:C_eqp(((C_word*)t2)[4],lf[644])));}}

/* k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_23210(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word t29;
C_word t30;
C_word t31;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(40,0,6)))){
C_save_and_reclaim_args((void *)trf_23210,2,t0,t1);}
a=C_alloc(40);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[2];{
C_word av2[2];
av2[0]=t3;
av2[1]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t2)[4],lf[521]);
if(C_truep(t3)){
t4=((C_word*)((C_word*)t2)[5])[1];
C_trace(C_text("core.scm:3159: walk-var"));
t5=((C_word*)((C_word*)t2)[6])[1];
f_23086(t5,((C_word*)t2)[2],C_i_car(t4),((C_word*)t2)[7],((C_word*)t2)[8],C_SCHEME_FALSE);}
else{
t4=C_eqp(((C_word*)t2)[4],lf[637]);
if(C_truep(t4)){
t5=((C_word*)((C_word*)t2)[5])[1];
t6=C_i_cadr(t5);
t7=((C_word*)((C_word*)t2)[5])[1];
t8=C_i_cadddr(t7);
t9=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_23238,a[2]=((C_word*)t2)[9],a[3]=t8,a[4]=((C_word*)t2)[2],a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[10],a[8]=((C_word*)t2)[11],a[9]=((C_word*)t2)[7],a[10]=((C_word*)t2)[8],a[11]=((C_word*)t2)[12],a[12]=((C_word*)t2)[13],tmp=(C_word)a,a+=13,tmp);
t10=(C_truep(*((C_word*)lf[25]+1))?t6:C_SCHEME_FALSE);
if(C_truep(t10)){
t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23269,a[2]=((C_word*)t2)[14],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[15],a[5]=t9,a[6]=t6,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:3166: chicken.compiler.support#source-info->line"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[676]);
C_word av2[3];
av2[0]=*((C_word*)lf[676]+1);
av2[1]=t11;
av2[2]=t6;
tp(3,av2);}}
else{
t11=C_a_i_cons(&a,2,C_SCHEME_FALSE,((C_word*)((C_word*)t2)[5])[1]);
t12=C_mutate(((C_word *)((C_word*)t2)[5])+1,t11);
t13=t9;
f_23238(t13,t12);}}
else{
t5=C_eqp(((C_word*)t2)[4],lf[309]);
if(C_truep(t5)){
t6=((C_word*)((C_word*)t2)[5])[1];
t7=C_i_cadr(t6);
t8=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t2)[9])[1],t7);
t9=C_mutate(((C_word *)((C_word*)t2)[9])+1,t8);
t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23294,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:3177: mapwalk"));
t11=((C_word*)((C_word*)t2)[10])[1];
f_24401(t11,t10,((C_word*)t2)[11],((C_word*)t2)[7],((C_word*)t2)[8],((C_word*)t2)[12],((C_word*)t2)[13]);}
else{
t6=C_eqp(((C_word*)t2)[4],lf[640]);
if(C_truep(t6)){
t7=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t2)[9])[1],C_fix(4));
t8=C_mutate(((C_word *)((C_word*)t2)[9])+1,t7);
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23315,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:3181: mapwalk"));
t10=((C_word*)((C_word*)t2)[10])[1];
f_24401(t10,t9,((C_word*)t2)[11],((C_word*)t2)[7],((C_word*)t2)[8],((C_word*)t2)[12],((C_word*)t2)[13]);}
else{
t7=C_eqp(((C_word*)t2)[4],lf[120]);
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23332,a[2]=((C_word*)t2)[9],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],tmp=(C_word)a,a+=6,tmp);
t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23336,a[2]=t8,tmp=(C_word)a,a+=3,tmp);
t10=((C_word*)((C_word*)t2)[5])[1];
C_trace(C_text("core.scm:3184: chicken.compiler.support#estimate-foreign-result-size"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[508]);
C_word av2[3];
av2[0]=*((C_word*)lf[508]+1);
av2[1]=t9;
av2[2]=C_i_cadr(t10);
tp(3,av2);}}
else{
t8=C_eqp(((C_word*)t2)[4],lf[124]);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23361,a[2]=((C_word*)t2)[9],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[10],a[7]=((C_word*)t2)[11],a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[8],a[10]=((C_word*)t2)[12],a[11]=((C_word*)t2)[13],tmp=(C_word)a,a+=12,tmp);
t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23365,a[2]=t9,tmp=(C_word)a,a+=3,tmp);
t11=((C_word*)((C_word*)t2)[5])[1];
C_trace(C_text("core.scm:3188: chicken.compiler.support#estimate-foreign-result-size"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[508]);
C_word av2[3];
av2[0]=*((C_word*)lf[508]+1);
av2[1]=t10;
av2[2]=C_i_car(t11);
tp(3,av2);}}
else{
t9=C_eqp(((C_word*)t2)[4],lf[620]);
if(C_truep(t9)){
t10=((C_word*)((C_word*)t2)[5])[1];
t11=C_i_car(t10);
t12=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)va28178,a[2]=((C_word*)t2)[9],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[10],a[6]=((C_word*)t2)[11],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[12],a[10]=((C_word*)t2)[13],tmp=(C_word)a,a+=11,tmp);
t13=t12;
va28178(t13,C_s_a_i_plus(&a,2,((C_word*)((C_word*)t2)[9])[1],t11));}
else{
t10=C_eqp(((C_word*)t2)[4],lf[619]);
if(C_truep(t10)){
t11=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t2)[9])[1],C_fix(2));
t12=C_mutate(((C_word *)((C_word*)t2)[9])+1,t11);
t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23411,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[5],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:3197: walk"));
t14=((C_word*)((C_word*)t2)[16])[1];
f_23191(t14,t13,C_i_car(((C_word*)t2)[11]),((C_word*)t2)[7],((C_word*)t2)[8],((C_word*)t2)[12],((C_word*)t2)[13]);}
else{
t11=C_eqp(((C_word*)t2)[4],lf[630]);
if(C_truep(t11)){
t12=C_i_car(((C_word*)t2)[11]);
t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23427,a[2]=((C_word*)t2)[17],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[13],a[6]=t12,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:3201: mapwalk"));
t14=((C_word*)((C_word*)t2)[10])[1];
f_24401(t14,t13,((C_word*)t2)[11],((C_word*)t2)[7],((C_word*)t2)[8],((C_word*)t2)[12],((C_word*)t2)[13]);}
else{
t12=C_eqp(((C_word*)t2)[4],lf[170]);
if(C_truep(t12)){
t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23466,a[2]=((C_word*)t2)[9],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
t14=((C_word*)((C_word*)t2)[5])[1];
C_trace(C_text("core.scm:3213: literal"));
t15=((C_word*)((C_word*)t2)[18])[1];
f_24452(t15,t13,C_i_car(t14));}
else{
t13=C_eqp(((C_word*)t2)[4],lf[100]);
t14=(C_truep(t13)?t13:C_eqp(((C_word*)t2)[4],lf[542]));
if(C_truep(t14)){
t15=((C_word*)((C_word*)t2)[19])[1];
t16=((C_word*)((C_word*)t2)[20])[1];
t17=((C_word*)((C_word*)t2)[21])[1];
t18=((C_word*)((C_word*)t2)[22])[1];
t19=((C_word*)((C_word*)t2)[9])[1];
t20=C_eqp(((C_word*)t2)[4],lf[542]);
t21=C_set_block_item(((C_word*)t2)[19],0,C_fix(0));
t22=C_set_block_item(((C_word*)t2)[20],0,C_SCHEME_END_OF_LIST);
t23=C_set_block_item(((C_word*)t2)[9],0,C_fix(0));
t24=C_set_block_item(((C_word*)t2)[21],0,C_SCHEME_END_OF_LIST);
t25=C_set_block_item(((C_word*)t2)[22],0,C_fix(0));
t26=((C_word*)((C_word*)t2)[5])[1];
t27=C_i_caddr(t26);
t28=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_23507,a[2]=((C_word*)t2)[5],a[3]=((C_word*)t2)[22],a[4]=t18,a[5]=((C_word*)t2)[19],a[6]=t15,a[7]=((C_word*)t2)[20],a[8]=t16,a[9]=((C_word*)t2)[9],a[10]=t19,a[11]=((C_word*)t2)[21],a[12]=t17,a[13]=t20,a[14]=((C_word*)t2)[23],a[15]=((C_word*)t2)[24],a[16]=((C_word*)t2)[11],a[17]=((C_word*)t2)[16],tmp=(C_word)a,a+=18,tmp);
C_trace(C_text("core.scm:3229: ##sys#decompose-lambda-list"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[198]);
C_word av2[4];
av2[0]=*((C_word*)lf[198]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=t27;
av2[3]=t28;
tp(4,av2);}}
else{
t15=C_eqp(((C_word*)t2)[4],lf[182]);
if(C_truep(t15)){
t16=((C_word*)((C_word*)t2)[5])[1];
t17=C_i_car(t16);
t18=C_i_car(((C_word*)t2)[11]);
t19=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_23739,a[2]=t17,a[3]=((C_word*)t2)[19],a[4]=((C_word*)t2)[2],a[5]=((C_word*)t2)[11],a[6]=((C_word*)t2)[8],a[7]=((C_word*)t2)[16],a[8]=((C_word*)t2)[12],a[9]=((C_word*)t2)[13],a[10]=((C_word*)t2)[7],a[11]=((C_word*)t2)[5],a[12]=t18,tmp=(C_word)a,a+=13,tmp);
C_trace(C_text("core.scm:3288: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word av2[3];
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t19;
av2[2]=t18;
tp(3,av2);}}
else{
t16=C_eqp(((C_word*)t2)[4],lf[639]);
if(C_truep(t16)){
t17=((C_word*)((C_word*)t2)[5])[1];
t18=C_i_car(t17);
t19=C_i_car(((C_word*)t2)[11]);
t20=C_a_i_cons(&a,2,t18,((C_word*)((C_word*)t2)[20])[1]);
t21=C_mutate(((C_word *)((C_word*)t2)[20])+1,t20);
t22=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_23766,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[16],a[5]=((C_word*)t2)[11],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[12],a[9]=((C_word*)t2)[13],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:3303: walk"));
t23=((C_word*)((C_word*)t2)[16])[1];
f_23191(t23,t22,t19,((C_word*)t2)[7],((C_word*)t2)[8],((C_word*)t2)[12],((C_word*)t2)[13]);}
else{
t17=C_eqp(((C_word*)t2)[4],lf[292]);
if(C_truep(t17)){
t18=((C_word*)((C_word*)t2)[5])[1];
t19=C_i_car(t18);
t20=C_i_car(((C_word*)t2)[11]);
t21=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_23789,a[2]=((C_word*)t2)[8],a[3]=((C_word*)t2)[16],a[4]=t20,a[5]=((C_word*)t2)[7],a[6]=((C_word*)t2)[12],a[7]=((C_word*)t2)[13],a[8]=((C_word*)t2)[2],a[9]=t19,a[10]=((C_word*)t2)[11],a[11]=((C_word*)t2)[25],a[12]=((C_word*)t2)[18],a[13]=((C_word*)t2)[26],a[14]=((C_word*)t2)[5],tmp=(C_word)a,a+=15,tmp);
C_trace(C_text("core.scm:3309: posq"));
f_7963(t21,t19,((C_word*)t2)[7]);}
else{
t18=C_eqp(((C_word*)t2)[4],lf[518]);
if(C_truep(t18)){
t19=C_i_cdr(((C_word*)t2)[11]);
t20=C_i_length(t19);
t21=C_i_cdr(((C_word*)((C_word*)t2)[5])[1]);
t22=C_i_pairp(t21);
t23=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_23922,a[2]=((C_word*)t2)[21],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[10],a[7]=((C_word*)t2)[11],a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[8],a[10]=((C_word*)t2)[12],a[11]=((C_word*)t2)[13],a[12]=((C_word*)t2)[14],a[13]=((C_word*)t2)[15],a[14]=((C_word*)t2)[22],a[15]=t20,tmp=(C_word)a,a+=16,tmp);
if(C_truep(t22)){
t24=((C_word*)((C_word*)t2)[5])[1];
t25=t23;
f_23922(t25,C_i_cadr(t24));}
else{
t24=t23;
f_23922(t24,C_SCHEME_FALSE);}}
else{
t19=C_eqp(((C_word*)t2)[4],lf[536]);
if(C_truep(t19)){
t20=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24007,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[10],a[6]=((C_word*)t2)[11],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[12],a[10]=((C_word*)t2)[13],tmp=(C_word)a,a+=11,tmp);
t21=((C_word*)((C_word*)t2)[5])[1];
if(C_truep(C_i_car(t21))){
t22=((C_word*)((C_word*)t2)[22])[1];
t23=C_mutate(((C_word *)((C_word*)t2)[22])+1,C_s_a_i_plus(&a,2,t22,C_fix(1)));
t24=t20;
f_24007(t24,t23);}
else{
t22=t20;
f_24007(t22,C_SCHEME_UNDEFINED);}}
else{
t20=C_eqp(((C_word*)t2)[4],lf[119]);
if(C_truep(t20)){
t21=((C_word*)((C_word*)t2)[5])[1];
t22=C_i_car(t21);
t23=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24034,a[2]=((C_word*)t2)[27],a[3]=((C_word*)t2)[2],a[4]=t22,a[5]=((C_word*)t2)[18],tmp=(C_word)a,a+=6,tmp);
if(C_truep(C_fixnump(t22))){
t24=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24143,a[2]=t23,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3354: chicken.compiler.support#big-fixnum?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[691]);
C_word av2[3];
av2[0]=*((C_word*)lf[691]+1);
av2[1]=t24;
av2[2]=t22;
tp(3,av2);}}
else{
t24=t23;
f_24034(t24,C_SCHEME_FALSE);}}
else{
t21=C_eqp(((C_word*)t2)[4],lf[150]);
t22=(C_truep(t21)?t21:C_eqp(((C_word*)t2)[4],lf[636]));
if(C_truep(t22)){
t23=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_24155,a[2]=((C_word*)t2)[19],a[3]=((C_word*)t2)[9],a[4]=C_SCHEME_UNDEFINED,a[5]=C_SCHEME_UNDEFINED,a[6]=C_SCHEME_UNDEFINED,a[7]=((C_word*)t2)[2],a[8]=((C_word*)t2)[4],a[9]=((C_word*)t2)[5],a[10]=((C_word*)t2)[16],a[11]=((C_word*)t2)[11],a[12]=((C_word*)t2)[7],a[13]=((C_word*)t2)[8],a[14]=((C_word*)t2)[12],a[15]=((C_word*)t2)[13],tmp=(C_word)a,a+=16,tmp);
C_trace(C_text("core.scm:3370: walk"));
t24=((C_word*)((C_word*)t2)[16])[1];
f_23191(t24,t23,C_i_car(((C_word*)t2)[11]),((C_word*)t2)[7],((C_word*)t2)[8],((C_word*)t2)[12],((C_word*)t2)[13]);}
else{
t23=C_eqp(((C_word*)t2)[4],lf[635]);
if(C_truep(t23)){
t24=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24221,a[2]=((C_word*)t2)[9],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[11],a[7]=((C_word*)t2)[16],a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[8],a[10]=((C_word*)t2)[12],a[11]=((C_word*)t2)[13],tmp=(C_word)a,a+=12,tmp);
C_trace(C_text("core.scm:3382: walk"));
t25=((C_word*)((C_word*)t2)[16])[1];
f_23191(t25,t24,C_i_car(((C_word*)t2)[11]),((C_word*)t2)[7],((C_word*)t2)[8],((C_word*)t2)[12],((C_word*)t2)[13]);}
else{
t24=C_eqp(((C_word*)t2)[4],lf[196]);
if(C_truep(t24)){
t25=((C_word*)((C_word*)t2)[14])[1];
t26=C_a_i_cons(&a,2,t25,((C_word*)((C_word*)t2)[5])[1]);
t27=C_a_i_cons(&a,2,t26,((C_word*)((C_word*)t2)[15])[1]);
t28=C_mutate(((C_word *)((C_word*)t2)[15])+1,t27);
t29=((C_word*)((C_word*)t2)[14])[1];
t30=C_mutate(((C_word *)((C_word*)t2)[14])+1,C_s_a_i_plus(&a,2,t29,C_fix(1)));
C_trace(C_text("core.scm:3406: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word av2[5];
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[4];
av2[3]=t26;
av2[4]=C_SCHEME_END_OF_LIST;
tp(5,av2);}}
else{
t25=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24334,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:3408: mapwalk"));
t26=((C_word*)((C_word*)t2)[10])[1];
f_24401(t26,t25,((C_word*)t2)[11],((C_word*)t2)[7],((C_word*)t2)[8],((C_word*)t2)[12],((C_word*)t2)[13]);}}}}}}}}}}}}}}}}}}}}}}

/* k23236 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_23238(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(34,0,6)))){
C_save_and_reclaim_args((void *)trf_23238,2,t0,t1);}
a=C_alloc(34);
t2=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]);
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23249,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:3173: mapwalk"));
t5=((C_word*)((C_word*)t0)[7])[1];
f_24401(t5,t4,((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12]);}

/* k23247 in k23236 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23249(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_23249,c,av);}
C_trace(C_text("core.scm:3173: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)((C_word*)t0)[4])[1];
av2[4]=t1;
tp(5,av2);}}

/* k23267 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23269(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_23269,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23273,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:3167: chicken.compiler.support#source-info->name"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[675]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[675]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}

/* k23271 in k23267 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23273(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(47,c,1)))){
C_save_and_reclaim((void *)f_23273,c,av);}
a=C_alloc(47);
t2=C_a_i_list4(&a,4,((C_word*)((C_word*)t0)[2])[1],lf[674],((C_word*)t0)[3],t1);
t3=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[4])[1]);
t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,t3);
t5=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[5])[1]);
t6=C_mutate(((C_word *)((C_word*)t0)[5])+1,t5);
t7=((C_word*)((C_word*)t0)[2])[1];
t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t7,C_fix(1)));
t9=((C_word*)t0)[6];
f_23238(t9,t8);}

/* k23292 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23294(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_23294,c,av);}
C_trace(C_text("core.scm:3177: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)((C_word*)t0)[4])[1];
av2[4]=t1;
tp(5,av2);}}

/* k23313 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23315(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_23315,c,av);}
C_trace(C_text("core.scm:3181: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)((C_word*)t0)[4])[1];
av2[4]=t1;
tp(5,av2);}}

/* k23330 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23332(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){
C_save_and_reclaim((void *)f_23332,c,av);}
a=C_alloc(29);
t2=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],t1);
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
C_trace(C_text("core.scm:3185: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)((C_word*)t0)[5])[1];
av2[4]=C_SCHEME_END_OF_LIST;
tp(5,av2);}}

/* k23334 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23336(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_23336,c,av);}
C_trace(C_text("core.scm:3184: chicken.compiler.support#bytes->words"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[348]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[348]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k23355 in k23359 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23357(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_23357,c,av);}
C_trace(C_text("core.scm:3189: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)((C_word*)t0)[4])[1];
av2[4]=t1;
tp(5,av2);}}

/* k23359 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23361(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(34,c,6)))){
C_save_and_reclaim((void *)f_23361,c,av);}
a=C_alloc(34);
t2=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],t1);
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23357,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:3189: mapwalk"));
t5=((C_word*)((C_word*)t0)[6])[1];
f_24401(t5,t4,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);}

/* k23363 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23365(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_23365,c,av);}
C_trace(C_text("core.scm:3188: chicken.compiler.support#bytes->words"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[348]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[348]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k23384 */
static void C_ccall f_23386(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_23386,c,av);}
C_trace(C_text("core.scm:3193: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[620];
av2[3]=((C_word*)((C_word*)t0)[3])[1];
av2[4]=t1;
tp(5,av2);}}

/* k23409 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23411(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_23411,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
C_trace(C_text("core.scm:3197: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[619];
av2[3]=((C_word*)((C_word*)t0)[3])[1];
av2[4]=t2;
tp(5,av2);}}

/* k23425 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23427(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_23427,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23437,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23457,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:3203: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}

/* k23435 in k23425 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_23437(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,0,4)))){
C_save_and_reclaim_args((void *)trf_23437,2,t0,t1);}
a=C_alloc(29);
if(C_truep(t1)){
t2=((C_word*)((C_word*)t0)[2])[1];
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t2,C_fix(1)));
C_trace(C_text("core.scm:3202: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word av2[5];
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[629];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=((C_word*)t0)[4];
tp(5,av2);}}
else{
C_trace(C_text("core.scm:3202: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word av2[5];
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[5];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=((C_word*)t0)[4];
tp(5,av2);}}}

/* k23451 in k23455 in k23425 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23453(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_23453,c,av);}
t2=((C_word*)t0)[2];
f_23437(t2,C_i_memq(C_i_car(t1),((C_word*)t0)[3]));}

/* k23455 in k23425 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23457(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_23457,c,av);}
a=C_alloc(4);
t2=C_eqp(lf[521],t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23453,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:3204: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}
else{
t3=((C_word*)t0)[2];
f_23437(t3,C_SCHEME_FALSE);}}

/* k23464 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23466(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,4)))){
C_save_and_reclaim((void *)f_23466,c,av);}
a=C_alloc(32);
t2=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],C_fix(8));
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t4=C_a_i_list1(&a,1,t1);
C_trace(C_text("core.scm:3215: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=t4;
av2[4]=C_SCHEME_END_OF_LIST;
tp(5,av2);}}

/* a23506 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23507(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4=av[4];
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(c!=5) C_bad_argc_2(c,5,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,4)))){
C_save_and_reclaim((void *)f_23507,c,av);}
a=C_alloc(29);
t5=((C_word*)((C_word*)t0)[2])[1];
t6=C_i_car(t5);
t7=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_23514,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[2],a[12]=t1,a[13]=((C_word*)t0)[12],a[14]=t3,a[15]=((C_word*)t0)[13],a[16]=t6,a[17]=t2,a[18]=t4,a[19]=((C_word*)t0)[14],a[20]=((C_word*)t0)[15],a[21]=((C_word*)t0)[16],a[22]=((C_word*)t0)[17],tmp=(C_word)a,a+=23,tmp);
if(C_truep(t4)){
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23642,a[2]=C_SCHEME_UNDEFINED,a[3]=t7,a[4]=((C_word*)t0)[15],a[5]=t4,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:3235: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2=av;
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t8;
av2[2]=((C_word*)t0)[15];
av2[3]=t4;
av2[4]=lf[573];
tp(5,av2);}}
else{
t8=t7;{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_SCHEME_FALSE;
f_23514(2,av2);}}}

/* k23512 in a23506 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23514(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(34,c,2)))){
C_save_and_reclaim((void *)f_23514,c,av);}
a=C_alloc(34);
t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_23517,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=t1,a[20]=C_SCHEME_UNDEFINED,a[21]=((C_word*)t0)[19],a[22]=((C_word*)t0)[20],tmp=(C_word)a,a+=23,tmp);
t3=C_i_car(((C_word*)t0)[21]);
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23612,a[2]=t1,a[3]=((C_word*)t0)[17],a[4]=((C_word*)t0)[22],a[5]=t2,a[6]=t3,a[7]=((C_word*)t0)[16],tmp=(C_word)a,a+=8,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23633,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
t6=C_eqp(lf[679],t1);
if(C_truep(t6)){
C_trace(C_text("core.scm:3243: chicken.base#butlast"));
t7=C_fast_retrieve(lf[682]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t5;
av2[2]=((C_word*)t0)[17];
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
C_trace(C_text("core.scm:3242: ##sys#fast-reverse"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[681]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[681]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[17];
tp(3,av2);}}}

/* k23515 in k23512 in a23506 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23517(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_23517,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+20,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23520,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t4=C_eqp(((C_word*)t0)[19],lf[679]);
if(C_truep(t4)){
C_trace(C_text("core.scm:3251: chicken.compiler.support#debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[593]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[593]+1);
av2[1]=t3;
av2[2]=lf[646];
av2[3]=lf[680];
av2[4]=((C_word*)t0)[18];
av2[5]=((C_word*)t0)[16];
tp(6,av2);}}
else{
t5=t3;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_23520(2,av2);}}}

/* k23518 in k23515 in k23512 in a23506 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23520(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){
C_save_and_reclaim((void *)f_23520,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23523,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t4=(C_truep(((C_word*)t2)[15])?((C_word*)t2)[18]:C_SCHEME_FALSE);
if(C_truep(t4)){
C_trace(C_text("core.scm:3253: chicken.compiler.support#bomb"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[528]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[528]+1);
av2[1]=t3;
av2[2]=lf[678];
av2[3]=((C_word*)t2)[16];
av2[4]=((C_word*)((C_word*)t2)[8])[1];
av2[5]=((C_word*)t2)[18];
tp(6,av2);}}
else{
t5=t3;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_23523(2,av2);}}}

/* k23521 in k23518 in k23515 in k23512 in a23506 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_23523(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(63,c,4)))){
C_save_and_reclaim((void *)f_23523,c,av);}
a=C_alloc(63);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_23526,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[10],a[11]=((C_word*)t2)[11],a[12]=((C_word*)t2)[12],a[13]=((C_word*)t2)[13],a[14]=((C_word*)t2)[14],tmp=(C_word)a,a+=15,tmp);
t4=((C_word*)((C_word*)t2)[11])[1];
t5=C_i_cadr(t4);
t6=((C_word*)((C_word*)t2)[4])[1];
t7=C_s_a_i_plus(&a,2,t6,C_fix(1));
t8=(C_truep(((C_word*)t2)[15])?((C_word*)t2)[15]:C_i_memq(((C_word*)t2)[16],lf[71]));
t9=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_23563,a[2]=((C_word*)t2)[6],a[3]=((C_word*)t2)[10],a[4]=((C_word*)t2)[8],a[5]=((C_word*)t2)[16],a[6]=t5,a[7]=((C_word*)t2)[17],a[8]=((C_word*)t2)[14],a[9]=((C_word*)t2)[18],a[10]=t7,a[11]=t8,a[12]=((C_word*)t2)[19],a[13]=((C_word*)t2)[20],a[14]=((C_word*)t2)[15],a[15]=t3,a[16]=((C_word*)t2)[21],a[17]=((C_word*)t2)[22],a[18]=((C_word*)t2)[2],tmp=(C_word)a,a+=19,tmp);
C_trace(C_text("core.scm:3268: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t9;
av2[2]=((C_word*)t2)[22];
av2[3]=((C_word*)t2)[16];
av2[4]=lf[611];
tp(5,av2);}}

/* k23524 in k23521 in k23518 in k23515 in k23512 in a23506 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_23526(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_23526,c,av);}
a=C_alloc(8);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]);
t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)t0)[7]);
t5=C_mutate(((C_word *)((C_word*)t0)[8])+1,((C_word*)t0)[9]);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23534,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[12],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:3282: lset-adjoin/eq?"));
f_7579(t6,((C_word*)t0)[13],C_a_i_list(&a,1,((C_word*)t0)[14]));}

/* k23532 in k23524 in k23521 in k23518 in k23515 in k23512 in a23506 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_23534(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_23534,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=((C_word*)((C_word*)t0)[3])[1];
t4=C_i_car(t3);
t5=C_a_i_list1(&a,1,t4);
C_trace(C_text("core.scm:3283: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[4];
av2[2]=lf[558];
av2[3]=t5;
av2[4]=C_SCHEME_END_OF_LIST;
tp(5,av2);}}

/* k23561 in k23521 in k23518 in k23515 in k23512 in a23506 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_23563(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,5)))){
C_save_and_reclaim((void *)f_23563,c,av);}
a=C_alloc(22);
t2=(C_truep(t1)?t1:C_fix(0));
t3=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_23570,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t2,a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],tmp=(C_word)a,a+=19,tmp);
if(C_truep(C_i_not(((C_word*)t0)[9]))){
if(C_truep(C_i_greaterp(((C_word*)((C_word*)t0)[18])[1],C_fix(0)))){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23589,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3272: chicken.compiler.support#debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[593]);
C_word *av2;
if(c >= 6) {
  av2=av;
} else {
  av2=C_alloc(6);
}
av2[0]=*((C_word*)lf[593]+1);
av2[1]=t4;
av2[2]=lf[646];
av2[3]=lf[677];
av2[4]=((C_word*)t0)[5];
av2[5]=((C_word*)((C_word*)t0)[18])[1];
tp(6,av2);}}
else{
t4=t3;
f_23570(t4,C_SCHEME_FALSE);}}
else{
t4=t3;
f_23570(t4,C_SCHEME_FALSE);}}

/* k23568 in k23561 in k23521 in k23518 in k23515 in k23512 in a23506 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void f_23570(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,0,4)))){
C_save_and_reclaim_args((void *)trf_23570,2,t0,t1);}
a=C_alloc(19);
t2=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_23574,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=t1,a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],tmp=(C_word)a,a+=19,tmp);
if(C_truep(((C_word*)t0)[15])){
t3=t2;{
C_word av2[2];
av2[0]=t3;
av2[1]=((C_word*)t0)[15];
f_23574(2,av2);}}
else{
C_trace(C_text("core.scm:3274: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word av2[5];
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[18];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[606];
tp(5,av2);}}}

/* k23572 in k23568 in k23561 in k23521 in k23518 in k23515 in k23512 in a23506 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_23574(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){
C_save_and_reclaim((void *)f_23574,c,av);}
a=C_alloc(18);
t2=((C_word*)((C_word*)t0)[2])[1];
t3=((C_word*)((C_word*)t0)[3])[1];
t4=((C_word*)((C_word*)t0)[4])[1];
t5=C_a_i_record(&a,17,lf[656],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],t2,t3,t4,((C_word*)t0)[11],((C_word*)t0)[12],((C_word*)t0)[13],t1,((C_word*)t0)[14],((C_word*)t0)[15],((C_word*)t0)[16]);
C_trace(C_text("core.scm:3254: chicken.internal#hash-table-set!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[352]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[352]+1);
av2[1]=((C_word*)t0)[17];
av2[2]=((C_word*)t0)[18];
av2[3]=((C_word*)t0)[5];
av2[4]=t5;
tp(5,av2);}}

/* k23587 in k23561 in k23521 in k23518 in k23515 in k23512 in a23506 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_23589(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_23589,c,av);}
t2=((C_word*)t0)[2];
f_23570(t2,C_SCHEME_TRUE);}

/* k23610 in k23512 in a23506 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23612(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_23612,c,av);}
t2=C_eqp(lf[679],((C_word*)t0)[2]);
if(C_truep(t2)){
t3=C_i_length(((C_word*)t0)[3]);
C_trace(C_text("core.scm:3240: walk"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_23191(t4,((C_word*)t0)[5],((C_word*)t0)[6],t1,C_fixnum_difference(t3,C_fix(1)),((C_word*)t0)[7],C_SCHEME_END_OF_LIST);}
else{
C_trace(C_text("core.scm:3240: walk"));
t3=((C_word*)((C_word*)t0)[4])[1];
f_23191(t3,((C_word*)t0)[5],((C_word*)t0)[6],t1,C_i_length(((C_word*)t0)[3]),((C_word*)t0)[7],C_SCHEME_END_OF_LIST);}}

/* k23631 in k23512 in a23506 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23633(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_23633,c,av);}
C_trace(C_text("core.scm:3242: ##sys#fast-reverse"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[681]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[681]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
tp(3,av2);}}

/* k23640 in a23506 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23642(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_23642,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23648,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3236: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)t0)[5];
av2[4]=lf[550];
tp(5,av2);}}

/* k23646 in k23640 in a23506 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23648(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_23648,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=lf[547];
f_23514(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23673,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3237: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=((C_word*)t2)[5];
av2[4]=lf[627];
tp(5,av2);}}}

/* k23671 in k23646 in k23640 in a23506 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23673(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_23673,c,av);}
t2=((C_word*)t0)[2];
if(C_truep(C_i_not(t1))){
t3=C_i_not(((C_word*)t2)[2]);
if(C_truep(t3)){
if(C_truep(t3)){
t4=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=lf[679];
f_23514(2,av2);}}
else{
C_trace(C_text("core.scm:3239: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=((C_word*)t2)[3];
av2[2]=((C_word*)t2)[4];
av2[3]=((C_word*)t2)[5];
av2[4]=lf[546];
tp(5,av2);}}}
else{
if(C_truep(C_i_nullp(((C_word*)t2)[2]))){
t4=((C_word*)t2)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=lf[679];
f_23514(2,av2);}}
else{
C_trace(C_text("core.scm:3239: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=((C_word*)t2)[3];
av2[2]=((C_word*)t2)[4];
av2[3]=((C_word*)t2)[5];
av2[4]=lf[546];
tp(5,av2);}}}}
else{
C_trace(C_text("core.scm:3239: chicken.compiler.support#db-get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[535]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[535]+1);
av2[1]=((C_word*)t2)[3];
av2[2]=((C_word*)t2)[4];
av2[3]=((C_word*)t2)[5];
av2[4]=lf[546];
tp(5,av2);}}}

/* k23703 in k23737 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23705(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){
C_save_and_reclaim((void *)f_23705,c,av);}
a=C_alloc(18);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23709,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=C_i_cadr(((C_word*)t0)[4]);
t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_23717,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23729,a[2]=t4,a[3]=((C_word*)t0)[10],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:3294: ##sys#fast-reverse"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[681]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[681]+1);
av2[1]=t5;
av2[2]=((C_word*)((C_word*)t0)[11])[1];
tp(3,av2);}}

/* k23707 in k23703 in k23737 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23709(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_23709,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
C_trace(C_text("core.scm:3290: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[683];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
tp(5,av2);}}

/* k23715 in k23703 in k23737 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23717(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){
C_save_and_reclaim((void *)f_23717,c,av);}
a=C_alloc(8);
t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1));
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23725,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t1,a[6]=t2,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("core.scm:3295: scheme#append"));
t4=*((C_word*)lf[6]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[7];
av2[3]=((C_word*)t0)[8];
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k23723 in k23715 in k23703 in k23737 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23725(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_23725,c,av);}
C_trace(C_text("core.scm:3293: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_23191(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1);}

/* k23727 in k23703 in k23737 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23729(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_23729,c,av);}
C_trace(C_text("core.scm:3294: scheme#append"));
t2=*((C_word*)lf[6]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k23737 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23739(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(47,c,6)))){
C_save_and_reclaim((void *)f_23739,c,av);}
a=C_alloc(47);
t2=C_eqp(lf[619],t1);
t3=(C_truep(t2)?C_a_i_list1(&a,1,((C_word*)t0)[2]):C_SCHEME_END_OF_LIST);
t4=((C_word*)((C_word*)t0)[3])[1];
t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,C_s_a_i_plus(&a,2,t4,C_fix(1)));
t6=C_a_i_list1(&a,1,C_fix(1));
t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23705,a[2]=((C_word*)t0)[4],a[3]=t6,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t3,a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp);
C_trace(C_text("core.scm:3292: walk"));
t8=((C_word*)((C_word*)t0)[7])[1];
f_23191(t8,t7,((C_word*)t0)[12],((C_word*)t0)[10],((C_word*)t0)[6],((C_word*)t0)[8],((C_word*)t0)[9]);}

/* k23764 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23766(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){
C_save_and_reclaim((void *)f_23766,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23770,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:3304: walk"));
t3=((C_word*)((C_word*)t0)[4])[1];
f_23191(t3,t2,C_i_cadr(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);}

/* k23768 in k23764 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23770(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){
C_save_and_reclaim((void *)f_23770,c,av);}
a=C_alloc(6);
t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1);
C_trace(C_text("core.scm:3301: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[639];
av2[3]=((C_word*)((C_word*)t0)[4])[1];
av2[4]=t2;
tp(5,av2);}}

/* k23787 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23789(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){
C_save_and_reclaim((void *)f_23789,c,av);}
a=C_alloc(16);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23793,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("core.scm:3309: g5529"));
t3=t2;
f_23793(t3,((C_word*)t0)[8],t1);}
else{
t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_23823,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=C_SCHEME_UNDEFINED,a[15]=((C_word*)t0)[4],tmp=(C_word)a,a+=16,tmp);
C_trace(C_text("core.scm:3315: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}}

/* g5529 in k23787 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_23793(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,6)))){
C_save_and_reclaim_args((void *)trf_23793,3,t0,t1,t2);}
a=C_alloc(7);
t3=C_fixnum_plus(t2,C_fix(1));
t4=C_fixnum_difference(((C_word*)t0)[2],t3);
t5=C_a_i_list1(&a,1,t4);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23809,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:3313: walk"));
t7=((C_word*)((C_word*)t0)[3])[1];
f_23191(t7,t6,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[2],((C_word*)t0)[6],((C_word*)t0)[7]);}

/* k23807 in g5529 in k23787 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23809(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_23809,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
C_trace(C_text("core.scm:3311: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[684];
av2[3]=((C_word*)t0)[3];
av2[4]=t2;
tp(5,av2);}}

/* k23821 in k23787 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23823(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_23823,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+14,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23907,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3316: chicken.compiler.support#variable-visible?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[568]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[568]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[2];
av2[3]=*((C_word*)lf[26]+1);
tp(4,av2);}}

/* k23827 in k23905 in k23821 in k23787 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23829(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){
C_save_and_reclaim((void *)f_23829,c,av);}
a=C_alloc(14);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_23832,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp);
if(C_truep(t1)){
t3=t2;
f_23832(t3,t1);}
else{
t3=C_i_cdr(((C_word*)((C_word*)t0)[14])[1]);
if(C_truep(C_i_pairp(t3))){
t4=((C_word*)((C_word*)t0)[14])[1];
t5=C_i_cadr(t4);
t6=t2;
f_23832(t6,(C_truep(t5)?t5:C_eqp(lf[483],((C_word*)t0)[15])));}
else{
t4=t2;
f_23832(t4,C_eqp(lf[483],((C_word*)t0)[15]));}}}

/* k23830 in k23827 in k23905 in k23821 in k23787 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void f_23832(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(43,0,2)))){
C_save_and_reclaim_args((void *)trf_23832,2,t0,t1);}
a=C_alloc(43);
t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_23835,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp);
if(C_truep(((C_word*)t0)[2])){
t3=((C_word*)((C_word*)t0)[13])[1];
t4=C_mutate(((C_word *)((C_word*)t0)[13])+1,C_s_a_i_plus(&a,2,t3,C_fix(1)));
t5=t2;
f_23835(t5,t4);}
else{
t3=t2;
f_23835(t3,C_SCHEME_UNDEFINED);}}

/* k23833 in k23830 in k23827 in k23905 in k23821 in k23787 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void f_23835(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){
C_save_and_reclaim_args((void *)trf_23835,2,t0,t1);}
a=C_alloc(12);
t2=(C_truep(((C_word*)t0)[2])?lf[685]:lf[686]);
t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23862,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp);
if(C_truep(((C_word*)t0)[3])){
C_trace(C_text("core.scm:3325: blockvar-literal"));
t4=((C_word*)((C_word*)t0)[12])[1];
f_24509(t4,t3,((C_word*)t0)[4]);}
else{
C_trace(C_text("core.scm:3326: literal"));
t4=((C_word*)((C_word*)t0)[13])[1];
f_24452(t4,t3,((C_word*)t0)[4]);}}

/* k23852 in k23860 in k23833 in k23830 in k23827 in k23905 in k23821 in k23787 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_23854(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_23854,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
C_trace(C_text("core.scm:3322: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=t2;
tp(5,av2);}}

/* k23860 in k23833 in k23830 in k23827 in k23905 in k23821 in k23787 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_23862(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,6)))){
C_save_and_reclaim((void *)f_23862,c,av);}
a=C_alloc(14);
t2=C_a_i_list3(&a,3,t1,((C_word*)t0)[2],((C_word*)t0)[3]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23854,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:3329: walk"));
t4=((C_word*)((C_word*)t0)[6])[1];
f_23191(t4,t3,C_i_car(((C_word*)t0)[7]),((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);}

/* k23901 in k23905 in k23821 in k23787 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23903(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_23903,c,av);}
C_trace(C_text("core.scm:3318: chicken.compiler.support#immediate?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[633]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[633]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=C_i_car(t1);
tp(3,av2);}}

/* k23905 in k23821 in k23787 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23907(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){
C_save_and_reclaim((void *)f_23907,c,av);}
a=C_alloc(19);
t2=((C_word*)t0)[2];
t3=C_i_not(t1);
t4=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_23829,a[2]=t3,a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[8],a[10]=((C_word*)t2)[9],a[11]=((C_word*)t2)[10],a[12]=((C_word*)t2)[11],a[13]=((C_word*)t2)[12],a[14]=((C_word*)t2)[13],a[15]=((C_word*)t2)[14],tmp=(C_word)a,a+=16,tmp);
t5=C_eqp(((C_word*)t2)[14],lf[119]);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23903,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3318: chicken.compiler.support#node-parameters"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[522]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[522]+1);
av2[1]=t6;
av2[2]=((C_word*)t2)[15];
tp(3,av2);}}
else{
t6=t4;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_SCHEME_FALSE;
f_23829(2,av2);}}}

/* k23920 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_23922(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,0,3)))){
C_save_and_reclaim_args((void *)trf_23922,2,t0,t1);}
a=C_alloc(19);
t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_23926,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t1,a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],tmp=(C_word)a,a+=16,tmp);
C_trace(C_text("core.scm:3335: lset-adjoin/eq?"));
f_7579(t2,((C_word*)((C_word*)t0)[2])[1],C_a_i_list(&a,1,((C_word*)t0)[15]));}

/* k23924 in k23920 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23926(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){
C_save_and_reclaim((void *)f_23926,c,av);}
a=C_alloc(18);
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_23929,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],tmp=(C_word)a,a+=14,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23970,a[2]=((C_word*)t0)[15],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t5=C_i_length(((C_word*)((C_word*)t0)[5])[1]);
if(C_truep(C_fixnum_greater_or_equal_p(t5,C_fix(3)))){
t6=((C_word*)((C_word*)t0)[5])[1];
t7=t4;
f_23970(t7,C_eqp(((C_word*)t0)[10],C_i_caddr(t6)));}
else{
t6=t4;
f_23970(t6,C_SCHEME_FALSE);}}

/* k23927 in k23924 in k23920 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_23929(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,0,2)))){
C_save_and_reclaim_args((void *)trf_23929,2,t0,t1);}
a=C_alloc(18);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_23932,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
t3=(C_truep(*((C_word*)lf[25]+1))?((C_word*)t0)[11]:C_SCHEME_FALSE);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23959,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[13],a[5]=t2,a[6]=((C_word*)t0)[11],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:3340: chicken.compiler.support#source-info->line"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[676]);
C_word av2[3];
av2[0]=*((C_word*)lf[676]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[11];
tp(3,av2);}}
else{
t4=C_a_i_cons(&a,2,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[4])[1]);
t5=C_mutate(((C_word *)((C_word*)t0)[4])+1,t4);
t6=t2;
f_23932(t6,t5);}}

/* k23930 in k23927 in k23924 in k23920 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_23932(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,6)))){
C_save_and_reclaim_args((void *)trf_23932,2,t0,t1);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23939,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:3346: mapwalk"));
t3=((C_word*)((C_word*)t0)[5])[1];
f_24401(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);}

/* k23937 in k23930 in k23927 in k23924 in k23920 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_23939(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_23939,c,av);}
C_trace(C_text("core.scm:3346: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)((C_word*)t0)[4])[1];
av2[4]=t1;
tp(5,av2);}}

/* k23957 in k23927 in k23924 in k23920 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_23959(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_23959,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23963,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:3341: chicken.compiler.support#source-info->name"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[675]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[675]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[6];
tp(3,av2);}}

/* k23961 in k23957 in k23927 in k23924 in k23920 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_23963(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(47,c,1)))){
C_save_and_reclaim((void *)f_23963,c,av);}
a=C_alloc(47);
t2=C_a_i_list4(&a,4,((C_word*)((C_word*)t0)[2])[1],lf[674],((C_word*)t0)[3],t1);
t3=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[4])[1]);
t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,t3);
t5=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[5])[1]);
t6=C_mutate(((C_word *)((C_word*)t0)[5])+1,t5);
t7=((C_word*)((C_word*)t0)[2])[1];
t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t7,C_fix(1)));
t9=((C_word*)t0)[6];
f_23932(t9,t8);}

/* k23968 in k23924 in k23920 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_23970(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,0,1)))){
C_save_and_reclaim_args((void *)trf_23970,2,t0,t1);}
a=C_alloc(29);
if(C_truep(t1)){
t2=((C_word*)((C_word*)t0)[2])[1];
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t2,C_fix(1)));
t4=((C_word*)t0)[3];
f_23929(t4,t3);}
else{
t2=((C_word*)t0)[3];
f_23929(t2,C_SCHEME_UNDEFINED);}}

/* k24005 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_24007(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,6)))){
C_save_and_reclaim_args((void *)trf_24007,2,t0,t1);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24014,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:3350: mapwalk"));
t3=((C_word*)((C_word*)t0)[5])[1];
f_24401(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);}

/* k24012 in k24005 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24014(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_24014,c,av);}
C_trace(C_text("core.scm:3350: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)((C_word*)t0)[4])[1];
av2[4]=t1;
tp(5,av2);}}

/* k24032 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_24034(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){
C_save_and_reclaim_args((void *)trf_24034,2,t0,t1);}
a=C_alloc(8);
if(C_truep(t1)){
C_trace(C_text("core.scm:3355: immediate-literal"));
f_24553(((C_word*)t0)[3],((C_word*)t0)[4]);}
else{
if(C_truep(C_i_numberp(((C_word*)t0)[4]))){
t2=C_eqp(lf[385],C_fast_retrieve(lf[384]));
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24055,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_integerp(((C_word*)t0)[4]))){
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24102,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3358: chicken.compiler.support#big-fixnum?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[691]);
C_word av2[3];
av2[0]=*((C_word*)lf[691]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}
else{
t4=t3;
f_24055(t4,C_SCHEME_FALSE);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24113,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3365: literal"));
t4=((C_word*)((C_word*)t0)[5])[1];
f_24452(t4,t3,((C_word*)t0)[4]);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24119,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3366: chicken.compiler.support#immediate?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[633]);
C_word av2[3];
av2[0]=*((C_word*)lf[633]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}}}

/* k24053 in k24032 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_24055(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_24055,2,t0,t1);}
a=C_alloc(8);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24058,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24069,a[2]=t2,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:3360: scheme#open-output-string"));
t4=C_fast_retrieve(lf[134]);{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:3364: chicken.compiler.support#quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word av2[4];
av2[0]=*((C_word*)lf[126]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=lf[690];
av2[3]=((C_word*)t0)[4];
tp(4,av2);}}}

/* k24056 in k24053 in k24032 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24058(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_24058,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24065,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:3363: scheme#inexact->exact"));
t4=*((C_word*)lf[687]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k24063 in k24056 in k24053 in k24032 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24065(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_24065,c,av);}
C_trace(C_text("core.scm:3363: immediate-literal"));
f_24553(((C_word*)t0)[3],t1);}

/* k24067 in k24053 in k24032 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24069(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_24069,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[129]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24075,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3360: ##sys#print"));
t5=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[689];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k24073 in k24067 in k24053 in k24032 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24075(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_24075,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24078,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3360: ##sys#print"));
t4=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k24076 in k24073 in k24067 in k24053 in k24032 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_24078(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_24078,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24081,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3360: ##sys#print"));
t4=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=lf[688];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k24079 in k24076 in k24073 in k24067 in k24053 in k24032 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_24081(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_24081,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24084,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24091,a[2]=t3,a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:3362: scheme#inexact->exact"));
t5=*((C_word*)lf[687]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}

/* k24082 in k24079 in k24076 in k24073 in k24067 in k24053 in k24032 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_24084(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_24084,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24087,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3360: scheme#get-output-string"));
t3=C_fast_retrieve(lf[130]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k24085 in k24082 in k24079 in k24076 in k24073 in k24067 in k24053 in k24032 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_24087(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_24087,c,av);}
C_trace(C_text("core.scm:3359: chicken.base#warning"));
t2=C_fast_retrieve(lf[137]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k24089 in k24079 in k24076 in k24073 in k24067 in k24053 in k24032 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_24091(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_24091,c,av);}
C_trace(C_text("core.scm:3360: ##sys#print"));
t2=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}

/* k24100 in k24032 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24102(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_24102,c,av);}
t2=((C_word*)t0)[2];
f_24055(t2,C_i_not(t1));}

/* k24111 in k24032 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24113(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_24113,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
C_trace(C_text("core.scm:3365: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[672];
av2[3]=t2;
av2[4]=C_SCHEME_END_OF_LIST;
tp(5,av2);}}

/* k24117 in k24032 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24119(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_24119,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
C_trace(C_text("core.scm:3366: immediate-literal"));
f_24553(((C_word*)t2)[3],((C_word*)t2)[4]);}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24133,a[2]=((C_word*)t2)[3],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3367: literal"));
t4=((C_word*)((C_word*)t2)[5])[1];
f_24452(t4,t3,((C_word*)t2)[4]);}}

/* k24131 in k24117 in k24032 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24133(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_24133,c,av);}
a=C_alloc(3);
t2=C_a_i_list1(&a,1,t1);
C_trace(C_text("core.scm:3367: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[672];
av2[3]=t2;
av2[4]=C_SCHEME_END_OF_LIST;
tp(5,av2);}}

/* k24141 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24143(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_24143,c,av);}
t2=((C_word*)t0)[2];
f_24034(t2,C_i_not(t1));}

/* k24153 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24155(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){
C_save_and_reclaim((void *)f_24155,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+6,t1);
t3=((C_word*)((C_word*)t0)[2])[1];
t4=C_mutate(((C_word *)t0)+5,t3);
t5=((C_word*)((C_word*)t0)[3])[1];
t6=C_mutate(((C_word *)t0)+4,t5);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24158,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3373: walk"));
t8=((C_word*)((C_word*)t0)[10])[1];
f_23191(t8,t7,C_i_cadr(((C_word*)t0)[11]),((C_word*)t0)[12],((C_word*)t0)[13],((C_word*)t0)[14],((C_word*)t0)[15]);}

/* k24156 in k24153 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24158(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(13,c,6)))){
C_save_and_reclaim((void *)f_24158,c,av);}
a=C_alloc(13);
t2=((C_word*)t0)[2];
t3=((C_word*)((C_word*)t2)[2])[1];
t4=((C_word*)((C_word*)t2)[3])[1];
t5=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_24161,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[2],a[6]=((C_word*)t2)[6],a[7]=t1,a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[8],a[10]=((C_word*)t2)[9],a[11]=t3,a[12]=t4,tmp=(C_word)a,a+=13,tmp);
C_trace(C_text("core.scm:3376: walk"));
t6=((C_word*)((C_word*)t2)[10])[1];
f_23191(t6,t5,C_i_caddr(((C_word*)t2)[11]),((C_word*)t2)[12],((C_word*)t2)[13],((C_word*)t2)[14],((C_word*)t2)[15]);}

/* k24159 in k24156 in k24153 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24161(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(71,c,3)))){
C_save_and_reclaim((void *)f_24161,c,av);}
a=C_alloc(71);
t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_24192,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t1,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp);
t3=C_s_a_i_minus(&a,2,((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[12]);
t4=C_s_a_i_minus(&a,2,((C_word*)t0)[12],((C_word*)t0)[2]);
C_trace(C_text("core.scm:3377: scheme#max"));
t5=*((C_word*)lf[692]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=t2;
av2[2]=t3;
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* k24178 in k24190 in k24159 in k24156 in k24153 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_24180(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(38,c,4)))){
C_save_and_reclaim((void *)f_24180,c,av);}
a=C_alloc(38);
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],t1);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2);
t4=C_a_i_list3(&a,3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);
C_trace(C_text("core.scm:3379: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[7];
av2[2]=((C_word*)t0)[8];
av2[3]=((C_word*)((C_word*)t0)[9])[1];
av2[4]=t4;
tp(5,av2);}}

/* k24190 in k24159 in k24156 in k24153 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24192(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(97,c,3)))){
C_save_and_reclaim((void *)f_24192,c,av);}
a=C_alloc(97);
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],t1);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2);
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_24180,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],tmp=(C_word)a,a+=10,tmp);
t5=C_s_a_i_minus(&a,2,((C_word*)((C_word*)t0)[5])[1],((C_word*)t0)[12]);
t6=C_s_a_i_minus(&a,2,((C_word*)t0)[12],((C_word*)t0)[4]);
C_trace(C_text("core.scm:3378: scheme#max"));
t7=*((C_word*)lf[692]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=t4;
av2[2]=t5;
av2[3]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}

/* k24219 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24221(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,5)))){
C_save_and_reclaim((void *)f_24221,c,av);}
a=C_alloc(18);
t2=((C_word*)((C_word*)t0)[2])[1];
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24232,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t4=((C_word*)((C_word*)t0)[5])[1];
t5=C_i_car(t4);
t6=C_i_cdr(((C_word*)t0)[6]);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_24242,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],a[9]=t8,tmp=(C_word)a,a+=10,tmp));
t10=((C_word*)t8)[1];
f_24242(t10,t3,t5,t6,C_fix(0));}

/* k24230 in k24219 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24232(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_24232,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
C_trace(C_text("core.scm:3384: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[3];
av2[2]=((C_word*)t0)[4];
av2[3]=((C_word*)((C_word*)t0)[5])[1];
av2[4]=t2;
tp(5,av2);}}

/* loop in k24219 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_24242(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,0,6)))){
C_save_and_reclaim_args((void *)trf_24242,5,t0,t1,t2,t3,t4);}
a=C_alloc(14);
t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
if(C_truep(C_i_zerop(t2))){
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24251,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:3392: walk"));
t7=((C_word*)((C_word*)t0)[4])[1];
f_23191(t7,t6,C_i_car(t3),((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}
else{
t6=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_24273,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=t4,a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[6],a[12]=((C_word*)t0)[7],a[13]=((C_word*)t0)[8],tmp=(C_word)a,a+=14,tmp);
C_trace(C_text("core.scm:3395: walk"));
t7=((C_word*)((C_word*)t0)[4])[1];
f_23191(t7,t6,C_i_car(t3),((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);}}

/* k24249 in loop in k24219 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24251(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(35,c,3)))){
C_save_and_reclaim((void *)f_24251,c,av);}
a=C_alloc(35);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24262,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
t3=C_s_a_i_minus(&a,2,((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[2]);
C_trace(C_text("core.scm:3393: scheme#max"));
t4=*((C_word*)lf[692]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
av2[3]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}

/* k24260 in k24249 in loop in k24219 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24262(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){
C_save_and_reclaim((void *)f_24262,c,av);}
a=C_alloc(32);
t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],t1);
t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2);
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_list1(&a,1,((C_word*)t0)[5]);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k24271 in loop in k24219 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24273(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,6)))){
C_save_and_reclaim((void *)f_24273,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_24276,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:3396: walk"));
t3=((C_word*)((C_word*)t0)[9])[1];
f_23191(t3,t2,C_i_cadr(((C_word*)t0)[4]),((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12],((C_word*)t0)[13]);}

/* k24274 in k24271 in loop in k24219 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24276(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(69,c,3)))){
C_save_and_reclaim((void *)f_24276,c,av);}
a=C_alloc(69);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24283,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t3=C_s_a_i_minus(&a,2,((C_word*)t0)[4],C_fix(1));
t4=C_i_cddr(((C_word*)t0)[5]);
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24293,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp);
t6=C_s_a_i_minus(&a,2,((C_word*)((C_word*)t0)[7])[1],((C_word*)t0)[8]);
C_trace(C_text("core.scm:3399: scheme#max"));
t7=*((C_word*)lf[692]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t7;
av2[1]=t5;
av2[2]=t6;
av2[3]=((C_word*)t0)[9];
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}

/* k24281 in k24274 in k24271 in loop in k24219 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_24283(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_24283,c,av);}
a=C_alloc(6);
C_trace(C_text("core.scm:3397: cons*"));
f_7184(((C_word*)t0)[2],((C_word*)t0)[3],C_a_i_list(&a,2,((C_word*)t0)[4],t1));}

/* k24291 in k24274 in k24271 in loop in k24219 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_24293(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_24293,c,av);}
C_trace(C_text("core.scm:3399: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_24242(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);}

/* k24332 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24334(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_24334,c,av);}
C_trace(C_text("core.scm:3408: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)((C_word*)t0)[4])[1];
av2[4]=t1;
tp(5,av2);}}

/* mapwalk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_24401(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
C_word tmp;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(20,0,3)))){
C_save_and_reclaim_args((void *)trf_24401,7,t0,t1,t2,t3,t4,t5,t6);}
a=C_alloc(20);
t7=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t8=t7;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=((C_word*)t9)[1];
t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24406,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=t5,a[6]=t6,tmp=(C_word)a,a+=7,tmp);
t12=C_i_check_list_2(t2,lf[11]);
t13=C_SCHEME_UNDEFINED;
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24418,a[2]=t9,a[3]=t14,a[4]=t11,a[5]=t10,tmp=(C_word)a,a+=6,tmp));
t16=((C_word*)t14)[1];
f_24418(t16,t1,t2);}

/* g5627 in mapwalk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_24406(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,6)))){
C_save_and_reclaim_args((void *)trf_24406,3,t0,t1,t2);}
C_trace(C_text("core.scm:3411: walk"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_23191(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);}

/* map-loop5621 in mapwalk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_24418(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_24418,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24443,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:3411: g5627"));
t4=((C_word*)t0)[4];
f_24406(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k24441 in map-loop5621 in mapwalk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24443(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_24443,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_24418(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* literal in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_24452(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
C_save_and_reclaim_args((void *)trf_24452,3,t0,t1,t2);}
a=C_alloc(10);
t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_24459,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:3414: chicken.compiler.support#immediate?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[633]);
C_word av2[3];
av2[0]=*((C_word*)lf[633]+1);
av2[1]=t3;
av2[2]=t2;
tp(3,av2);}}

/* k24457 in literal in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24459(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(35,c,3)))){
C_save_and_reclaim((void *)f_24459,c,av);}
a=C_alloc(35);
if(C_truep(t1)){
C_trace(C_text("core.scm:3414: immediate-literal"));
f_24553(((C_word*)t0)[3],((C_word*)t0)[4]);}
else{
t2=(C_truep(C_blockp(((C_word*)t0)[4]))?C_lambdainfop(((C_word*)t0)[4]):C_SCHEME_FALSE);
if(C_truep(t2)){
t3=((C_word*)((C_word*)t0)[5])[1];
t4=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)((C_word*)t0)[6])[1]);
t5=C_mutate(((C_word *)((C_word*)t0)[6])+1,t4);
t6=((C_word*)((C_word*)t0)[5])[1];
t7=C_mutate(((C_word *)((C_word*)t0)[5])+1,C_s_a_i_plus(&a,2,t6,C_fix(1)));
t8=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t8;
av2[1]=C_a_i_vector1(&a,1,t3);
((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}
else{
t3=((C_word*)((C_word*)t0)[7])[1];
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8003,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp);
t5=(
  f_8003(t4,C_fix(0),t3)
);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24484,a[2]=((C_word*)t0)[8],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3414: g5657"));
t7=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t7;
av2[1]=(
C_trace("core.scm:3414: g5657"),
  f_24484(t6,t5)
);
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:3423: new-literal"));
t6=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t6;
av2[1]=(
C_trace("core.scm:3423: new-literal"),
  f_24500(C_a_i(&a,32),((C_word*)((C_word*)t0)[9])[1],((C_word*)t0)[4])
);
((C_proc)C_fast_retrieve_proc(t6))(2,av2);}}}}}

/* g5657 in k24457 in literal in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static C_word f_24484(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_stack_overflow_check;{}
return(C_fixnum_difference(((C_word*)((C_word*)t0)[2])[1],C_fixnum_plus(t1,C_fix(1))));}

/* new-literal in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static C_word f_24500(C_word *a,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_stack_overflow_check;{}
t2=((C_word*)((C_word*)t0)[2])[1];
t3=C_a_i_cons(&a,2,t1,((C_word*)((C_word*)t0)[3])[1]);
t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3);
t5=((C_word*)((C_word*)t0)[2])[1];
t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_s_a_i_plus(&a,2,t5,C_fix(1)));
return(t2);}

/* blockvar-literal in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_24509(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,0,4)))){
C_save_and_reclaim_args((void *)trf_24509,3,t0,t1,t2);}
a=C_alloc(17);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24513,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24537,a[2]=C_SCHEME_UNDEFINED,a[3]=t2,a[4]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=5,tmp);
t5=((C_word*)((C_word*)t0)[4])[1];
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7551,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_7551(t9,t3,C_fix(0),t5);}

/* k24511 in blockvar-literal in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24513(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_24513,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24517,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3432: g5673"));
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(
C_trace("core.scm:3432: g5673"),
  f_24517(t2,t1)
);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24535,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:3438: chicken.compiler.support#make-block-variable-literal"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[693]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[693]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[5];
tp(3,av2);}}}

/* g5673 in k24511 in blockvar-literal in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static C_word f_24517(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_stack_overflow_check;{}
return(C_fixnum_difference(((C_word*)((C_word*)t0)[2])[1],C_fixnum_plus(t1,C_fix(1))));}

/* k24533 in k24511 in blockvar-literal in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24535(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){
C_save_and_reclaim((void *)f_24535,c,av);}
a=C_alloc(32);
C_trace(C_text("core.scm:3438: new-literal"));
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(
C_trace("core.scm:3438: new-literal"),
  f_24500(C_a_i(&a,32),((C_word*)((C_word*)t0)[3])[1],t1)
);
((C_proc)C_fast_retrieve_proc(t2))(2,av2);}}

/* a24536 in blockvar-literal in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_24537(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_24537,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+4,t2);
t4=C_mutate(((C_word *)t0)+2,t1);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24544,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:3434: chicken.compiler.support#block-variable-literal?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[695]);
C_word av2[3];
av2[0]=*((C_word*)lf[695]+1);
av2[1]=t5;
av2[2]=((C_word*)t0)[4];
tp(3,av2);}}

/* k24542 in a24536 in blockvar-literal in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24544(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_24544,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24551,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:3435: chicken.compiler.support#block-variable-literal-name"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[694]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[694]+1);
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
tp(3,av2);}}
else{
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k24549 in k24542 in a24536 in blockvar-literal in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24551(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_24551,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_eqp(((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* immediate-literal in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_24553(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){
C_save_and_reclaim_args((void *)trf_24553,2,t1,t2);}
a=C_alloc(9);
t3=*((C_word*)lf[696]+1);
t4=C_eqp(*((C_word*)lf[696]+1),t2);
if(C_truep(t4)){
C_trace(C_text("core.scm:3442: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word av2[5];
av2[0]=*((C_word*)lf[492]+1);
av2[1]=t1;
av2[2]=lf[483];
av2[3]=C_SCHEME_END_OF_LIST;
av2[4]=C_SCHEME_END_OF_LIST;
tp(5,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24570,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
if(C_truep(C_fixnump(t2))){
t6=C_a_i_list(&a,2,lf[698],t2);
C_trace(C_text("core.scm:3443: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word av2[5];
av2[0]=*((C_word*)lf[492]+1);
av2[1]=t1;
av2[2]=lf[697];
av2[3]=t6;
av2[4]=C_SCHEME_END_OF_LIST;
tp(5,av2);}}
else{
if(C_truep(C_booleanp(t2))){
t6=C_a_i_list(&a,2,lf[699],t2);
C_trace(C_text("core.scm:3443: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word av2[5];
av2[0]=*((C_word*)lf[492]+1);
av2[1]=t1;
av2[2]=lf[697];
av2[3]=t6;
av2[4]=C_SCHEME_END_OF_LIST;
tp(5,av2);}}
else{
if(C_truep(C_charp(t2))){
t6=t5;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_a_i_list(&a,2,lf[700],t2);
f_24570(2,av2);}}
else{
if(C_truep(C_i_nullp(t2))){
C_trace(C_text("core.scm:3443: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word av2[5];
av2[0]=*((C_word*)lf[492]+1);
av2[1]=t1;
av2[2]=lf[697];
av2[3]=lf[701];
av2[4]=C_SCHEME_END_OF_LIST;
tp(5,av2);}}
else{
if(C_truep(C_eofp(t2))){
C_trace(C_text("core.scm:3443: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word av2[5];
av2[0]=*((C_word*)lf[492]+1);
av2[1]=t1;
av2[2]=lf[697];
av2[3]=lf[702];
av2[4]=C_SCHEME_END_OF_LIST;
tp(5,av2);}}
else{
if(C_truep(C_bwpp(t2))){
C_trace(C_text("core.scm:3443: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word av2[5];
av2[0]=*((C_word*)lf[492]+1);
av2[1]=t1;
av2[2]=lf[697];
av2[3]=lf[703];
av2[4]=C_SCHEME_END_OF_LIST;
tp(5,av2);}}
else{
C_trace(C_text("core.scm:3450: chicken.compiler.support#bomb"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[528]);
C_word av2[3];
av2[0]=*((C_word*)lf[528]+1);
av2[1]=t5;
av2[2]=lf[704];
tp(3,av2);}}}}}}}}}

/* k24568 in immediate-literal in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24570(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_24570,c,av);}
C_trace(C_text("core.scm:3443: chicken.compiler.support#make-node"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[492]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[492]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[697];
av2[3]=t1;
av2[4]=C_SCHEME_END_OF_LIST;
tp(5,av2);}}

/* k24620 in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24622(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,6)))){
C_save_and_reclaim((void *)f_24622,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_24625,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:3454: walk"));
t3=((C_word*)((C_word*)t0)[10])[1];
f_23191(t3,t2,((C_word*)t0)[11],C_SCHEME_END_OF_LIST,C_fix(0),C_SCHEME_FALSE,C_SCHEME_END_OF_LIST);}

/* k24623 in k24620 in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24625(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_24625,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_24628,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
t3=((C_word*)((C_word*)t0)[9])[1];
if(C_truep(C_i_positivep(t3))){
C_trace(C_text("core.scm:3456: chicken.compiler.support#debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[593]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[593]+1);
av2[1]=t2;
av2[2]=lf[646];
av2[3]=lf[707];
av2[4]=((C_word*)((C_word*)t0)[9])[1];
tp(5,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_24628(2,av2);}}}

/* k24626 in k24623 in k24620 in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24628(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){
C_save_and_reclaim((void *)f_24628,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_24631,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
t3=((C_word*)((C_word*)t0)[9])[1];
if(C_truep(C_i_positivep(t3))){
C_trace(C_text("core.scm:3458: chicken.compiler.support#debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[593]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[593]+1);
av2[1]=t2;
av2[2]=lf[646];
av2[3]=lf[706];
av2[4]=((C_word*)((C_word*)t0)[9])[1];
tp(5,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_24631(2,av2);}}}

/* k24629 in k24626 in k24623 in k24620 in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24631(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){
C_save_and_reclaim((void *)f_24631,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24634,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
t3=((C_word*)((C_word*)t0)[8])[1];
if(C_truep(C_i_positivep(t3))){
C_trace(C_text("core.scm:3460: chicken.compiler.support#debugging"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[593]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[593]+1);
av2[1]=t2;
av2[2]=lf[646];
av2[3]=lf[705];
av2[4]=((C_word*)((C_word*)t0)[8])[1];
tp(5,av2);}}
else{
t4=t2;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_24634(2,av2);}}}

/* k24632 in k24629 in k24626 in k24623 in k24620 in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24634(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_24634,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24641,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:3462: ##sys#fast-reverse"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[681]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[681]+1);
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[7])[1];
tp(3,av2);}}

/* k24639 in k24632 in k24629 in k24626 in k24623 in k24620 in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24641(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_24641,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24645,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:3463: ##sys#fast-reverse"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[681]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[681]+1);
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[6])[1];
tp(3,av2);}}

/* k24643 in k24639 in k24632 in k24629 in k24626 in k24623 in k24620 in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24645(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_24645,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24649,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);
C_trace(C_text("core.scm:3465: scheme#reverse"));
t3=*((C_word*)lf[267]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[6])[1];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k24647 in k24643 in k24639 in k24632 in k24629 in k24626 in k24623 in k24620 in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_24649(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_24649,c,av);}
C_trace(C_text("core.scm:3461: scheme#values"));{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[4];
av2[4]=((C_word*)t0)[5];
av2[5]=((C_word*)t0)[6];
av2[6]=t1;
C_values(7,av2);}}

/* k6702 */
static void C_ccall f_6704(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6704,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6707,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_eval_toplevel(2,av2);}}

/* k6705 in k6702 */
static void C_ccall f_6707(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6707,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6710,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_extras_toplevel(2,av2);}}

/* k6708 in k6705 in k6702 */
static void C_ccall f_6710(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6710,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6713,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_expand_toplevel(2,av2);}}

/* k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_6713(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6713,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6716,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_data_2dstructures_toplevel(2,av2);}}

/* k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_6716(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6716,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6719,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_scrutinizer_toplevel(2,av2);}}

/* k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_6719(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6719,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6722,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_support_toplevel(2,av2);}}

/* k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_6722(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){
C_save_and_reclaim((void *)f_6722,c,av);}
a=C_alloc(19);
t2=C_a_i_provide(&a,1,lf[0]);
t3=C_a_i_provide(&a,1,lf[1]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6725,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t4;
C_file_toplevel(2,av2);}}

/* k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_6725(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6725,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6728,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_internal_toplevel(2,av2);}}

/* k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_6728(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_6728,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6731,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_pathname_toplevel(2,av2);}}

/* k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_6731(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word t29;
C_word t30;
C_word t31;
C_word t32;
C_word t33;
C_word t34;
C_word t35;
C_word t36;
C_word t37;
C_word t38;
C_word t39;
C_word t40;
C_word t41;
C_word t42;
C_word t43;
C_word t44;
C_word t45;
C_word t46;
C_word t47;
C_word t48;
C_word t49;
C_word t50;
C_word t51;
C_word t52;
C_word t53;
C_word t54;
C_word t55;
C_word t56;
C_word t57;
C_word t58;
C_word t59;
C_word t60;
C_word t61;
C_word t62;
C_word t63;
C_word t64;
C_word t65;
C_word t66;
C_word t67;
C_word t68;
C_word t69;
C_word t70;
C_word t71;
C_word t72;
C_word t73;
C_word t74;
C_word t75;
C_word t76;
C_word t77;
C_word t78;
C_word t79;
C_word t80;
C_word t81;
C_word t82;
C_word t83;
C_word t84;
C_word t85;
C_word t86;
C_word t87;
C_word t88;
C_word t89;
C_word t90;
C_word t91;
C_word t92;
C_word t93;
C_word t94;
C_word t95;
C_word t96;
C_word t97;
C_word t98;
C_word t99;
C_word t100;
C_word t101;
C_word t102;
C_word t103;
C_word t104;
C_word t105;
C_word t106;
C_word t107;
C_word t108;
C_word t109;
C_word t110;
C_word t111;
C_word t112;
C_word t113;
C_word t114;
C_word t115;
C_word t116;
C_word t117;
C_word t118;
C_word t119;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(90,c,9)))){
C_save_and_reclaim((void *)f_6731,c,av);}
a=C_alloc(90);
t2=C_mutate(&lf[2] /* (set! chicken.compiler.core#every ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7120,tmp=(C_word)a,a+=2,tmp));
t3=C_mutate(&lf[3] /* (set! chicken.compiler.core#any ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7154,tmp=(C_word)a,a+=2,tmp));
t4=C_mutate(&lf[4] /* (set! chicken.compiler.core#cons* ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7184,tmp=(C_word)a,a+=2,tmp));
t5=C_mutate(&lf[5] /* (set! chicken.compiler.core#concatenate ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7212,tmp=(C_word)a,a+=2,tmp));
t6=C_mutate(&lf[7] /* (set! chicken.compiler.core#delete ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7240,tmp=(C_word)a,a+=2,tmp));
t7=C_mutate(&lf[8] /* (set! chicken.compiler.core#filter ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7360,tmp=(C_word)a,a+=2,tmp));
t8=C_mutate(&lf[10] /* (set! chicken.compiler.core#unzip1 ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7469,tmp=(C_word)a,a+=2,tmp));
t9=C_mutate(&lf[12] /* (set! chicken.compiler.core#lset-adjoin/eq? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7579,tmp=(C_word)a,a+=2,tmp));
t10=C_mutate(&lf[13] /* (set! chicken.compiler.core#lset-difference/eq? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7620,tmp=(C_word)a,a+=2,tmp));
t11=C_mutate(&lf[14] /* (set! chicken.compiler.core#lset-union/eq? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7665,tmp=(C_word)a,a+=2,tmp));
t12=C_mutate(&lf[16] /* (set! chicken.compiler.core#lset-intersection/eq? ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7744,tmp=(C_word)a,a+=2,tmp));
t13=C_mutate(&lf[17] /* (set! chicken.compiler.core#posq ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_7963,tmp=(C_word)a,a+=2,tmp));
t14=C_set_block_item(lf[18] /* chicken.compiler.core#unit-name */,0,C_SCHEME_FALSE);
t15=C_set_block_item(lf[19] /* chicken.compiler.core#standard-bindings */,0,C_SCHEME_END_OF_LIST);
t16=C_set_block_item(lf[20] /* chicken.compiler.core#extended-bindings */,0,C_SCHEME_END_OF_LIST);
t17=C_set_block_item(lf[21] /* chicken.compiler.core#insert-timer-checks */,0,C_SCHEME_TRUE);
t18=C_set_block_item(lf[22] /* chicken.compiler.core#used-units */,0,C_SCHEME_END_OF_LIST);
t19=C_set_block_item(lf[23] /* chicken.compiler.core#foreign-declarations */,0,C_SCHEME_END_OF_LIST);
t20=C_set_block_item(lf[24] /* chicken.compiler.core#emit-trace-info */,0,C_SCHEME_FALSE);
t21=C_set_block_item(lf[25] /* chicken.compiler.core#emit-debug-info */,0,C_SCHEME_FALSE);
t22=C_set_block_item(lf[26] /* chicken.compiler.core#block-compilation */,0,C_SCHEME_FALSE);
t23=C_set_block_item(lf[27] /* chicken.compiler.core#line-number-database-size */,0,C_fix(997));
t24=C_set_block_item(lf[28] /* chicken.compiler.core#target-heap-size */,0,C_SCHEME_FALSE);
t25=C_set_block_item(lf[29] /* chicken.compiler.core#target-stack-size */,0,C_SCHEME_FALSE);
t26=C_set_block_item(lf[30] /* chicken.compiler.core#optimize-leaf-routines */,0,C_SCHEME_FALSE);
t27=C_set_block_item(lf[31] /* chicken.compiler.core#merge-reusable-closures */,0,C_SCHEME_FALSE);
t28=C_set_block_item(lf[32] /* chicken.compiler.core#merge-shareable-closures */,0,C_SCHEME_FALSE);
t29=C_set_block_item(lf[33] /* chicken.compiler.core#emit-profile */,0,C_SCHEME_FALSE);
t30=C_set_block_item(lf[34] /* chicken.compiler.core#no-bound-checks */,0,C_SCHEME_FALSE);
t31=C_set_block_item(lf[35] /* chicken.compiler.core#no-argc-checks */,0,C_SCHEME_FALSE);
t32=C_set_block_item(lf[36] /* chicken.compiler.core#no-procedure-checks */,0,C_SCHEME_FALSE);
t33=C_set_block_item(lf[37] /* chicken.compiler.core#no-global-procedure-checks */,0,C_SCHEME_FALSE);
t34=lf[38] /* chicken.compiler.core#safe-globals-flag */ =C_SCHEME_FALSE;;
t35=C_set_block_item(lf[39] /* chicken.compiler.core#explicit-use-flag */,0,C_SCHEME_FALSE);
t36=C_set_block_item(lf[40] /* chicken.compiler.core#disable-stack-overflow-checking */,0,C_SCHEME_FALSE);
t37=C_set_block_item(lf[41] /* chicken.compiler.core#external-protos-first */,0,C_SCHEME_FALSE);
t38=C_set_block_item(lf[42] /* chicken.compiler.core#inline-max-size */,0,C_fix(20));
t39=C_set_block_item(lf[43] /* chicken.compiler.core#unroll-limit */,0,C_fix(1));
t40=C_set_block_item(lf[44] /* chicken.compiler.core#emit-closure-info */,0,C_SCHEME_TRUE);
t41=C_set_block_item(lf[45] /* chicken.compiler.core#undefine-shadowed-macros */,0,C_SCHEME_TRUE);
t42=C_set_block_item(lf[46] /* chicken.compiler.core#profiled-procedures */,0,C_SCHEME_FALSE);
t43=C_set_block_item(lf[47] /* chicken.compiler.core#import-libraries */,0,C_SCHEME_END_OF_LIST);
t44=C_set_block_item(lf[48] /* chicken.compiler.core#all-import-libraries */,0,C_SCHEME_FALSE);
t45=C_set_block_item(lf[49] /* chicken.compiler.core#preserve-unchanged-import-libraries */,0,C_SCHEME_TRUE);
t46=C_set_block_item(lf[50] /* chicken.compiler.core#compile-module-registration */,0,C_SCHEME_FALSE);
t47=C_set_block_item(lf[51] /* chicken.compiler.core#standalone-executable */,0,C_SCHEME_TRUE);
t48=C_set_block_item(lf[52] /* chicken.compiler.core#local-definitions */,0,C_SCHEME_FALSE);
t49=C_set_block_item(lf[53] /* chicken.compiler.core#inline-locally */,0,C_SCHEME_FALSE);
t50=C_set_block_item(lf[54] /* chicken.compiler.core#enable-inline-files */,0,C_SCHEME_FALSE);
t51=C_set_block_item(lf[55] /* chicken.compiler.core#compiler-syntax-enabled */,0,C_SCHEME_TRUE);
t52=C_set_block_item(lf[56] /* chicken.compiler.core#bootstrap-mode */,0,C_SCHEME_FALSE);
t53=C_set_block_item(lf[57] /* chicken.compiler.core#strict-variable-types */,0,C_SCHEME_FALSE);
t54=C_set_block_item(lf[58] /* chicken.compiler.core#enable-specialization */,0,C_SCHEME_FALSE);
t55=C_set_block_item(lf[59] /* chicken.compiler.core#static-extensions */,0,C_SCHEME_FALSE);
t56=C_set_block_item(lf[60] /* chicken.compiler.core#emit-link-file */,0,C_SCHEME_FALSE);
t57=C_set_block_item(lf[61] /* chicken.compiler.core#types-output-file */,0,C_SCHEME_FALSE);
t58=C_set_block_item(lf[62] /* chicken.compiler.core#verbose-mode */,0,C_SCHEME_FALSE);
t59=lf[63] /* chicken.compiler.core#original-program-size */ =C_SCHEME_FALSE;;
t60=lf[64] /* chicken.compiler.core#current-program-size */ =C_fix(0);;
t61=lf[65] /* chicken.compiler.core#current-analysis-database-size */ =C_fix(3001);;
t62=C_set_block_item(lf[66] /* chicken.compiler.core#line-number-database-2 */,0,C_SCHEME_FALSE);
t63=C_set_block_item(lf[67] /* chicken.compiler.core#immutable-constants */,0,C_SCHEME_END_OF_LIST);
t64=C_set_block_item(lf[68] /* chicken.compiler.core#inline-table */,0,C_SCHEME_FALSE);
t65=C_set_block_item(lf[69] /* chicken.compiler.core#constant-table */,0,C_SCHEME_FALSE);
t66=C_set_block_item(lf[70] /* chicken.compiler.core#inline-substitutions-enabled */,0,C_SCHEME_FALSE);
t67=lf[71] /* chicken.compiler.core#direct-call-ids */ =C_SCHEME_END_OF_LIST;;
t68=C_set_block_item(lf[72] /* chicken.compiler.core#first-analysis */,0,C_SCHEME_TRUE);
t69=lf[73] /* chicken.compiler.core#foreign-variables */ =C_SCHEME_END_OF_LIST;;
t70=C_set_block_item(lf[74] /* chicken.compiler.core#foreign-lambda-stubs */,0,C_SCHEME_END_OF_LIST);
t71=C_set_block_item(lf[75] /* chicken.compiler.core#external-variables */,0,C_SCHEME_END_OF_LIST);
t72=lf[76] /* chicken.compiler.core#external-to-pointer */ =C_SCHEME_END_OF_LIST;;
t73=lf[77] /* chicken.compiler.core#location-pointer-map */ =C_SCHEME_END_OF_LIST;;
t74=lf[78] /* chicken.compiler.core#pending-canonicalizations */ =C_SCHEME_END_OF_LIST;;
t75=lf[79] /* chicken.compiler.core#defconstant-bindings */ =C_SCHEME_END_OF_LIST;;
t76=lf[80] /* chicken.compiler.core#callback-names */ =C_SCHEME_END_OF_LIST;;
t77=lf[81] /* chicken.compiler.core#toplevel-scope */ =C_SCHEME_TRUE;;
t78=lf[82] /* chicken.compiler.core#toplevel-lambda-id */ =C_SCHEME_FALSE;;
t79=C_set_block_item(lf[83] /* chicken.compiler.core#required-extensions */,0,C_SCHEME_END_OF_LIST);
t80=C_set_block_item(lf[84] /* chicken.compiler.core#linked-libraries */,0,C_SCHEME_END_OF_LIST);
t81=C_set_block_item(lf[85] /* chicken.compiler.core#used-libraries */,0,C_SCHEME_END_OF_LIST);
t82=C_mutate(&lf[86] /* (set! chicken.compiler.core#unlikely-variables ...) */,lf[87]);
t83=C_set_block_item(lf[88] /* chicken.compiler.core#default-extended-bindings */,0,C_SCHEME_END_OF_LIST);
t84=C_set_block_item(lf[89] /* chicken.compiler.core#default-standard-bindings */,0,C_SCHEME_END_OF_LIST);
t85=C_set_block_item(lf[90] /* chicken.compiler.core#internal-bindings */,0,C_SCHEME_END_OF_LIST);
t86=C_mutate((C_word*)lf[91]+1 /* (set! chicken.compiler.core#initialize-compiler ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8101,tmp=(C_word)a,a+=2,tmp));
t87=C_mutate((C_word*)lf[97]+1 /* (set! chicken.compiler.core#compute-database-statistics ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8143,tmp=(C_word)a,a+=2,tmp));
t88=C_mutate((C_word*)lf[105]+1 /* (set! chicken.compiler.core#canonicalize-expression ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8251,tmp=(C_word)a,a+=2,tmp));
t89=C_mutate((C_word*)lf[491]+1 /* (set! chicken.compiler.core#build-toplevel-procedure ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16104,tmp=(C_word)a,a+=2,tmp));
t90=C_mutate((C_word*)lf[495]+1 /* (set! chicken.compiler.core#foreign-stub-id ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16136,tmp=(C_word)a,a+=2,tmp));
t91=C_mutate((C_word*)lf[497]+1 /* (set! chicken.compiler.core#foreign-stub-return-type ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16154,tmp=(C_word)a,a+=2,tmp));
t92=C_mutate((C_word*)lf[498]+1 /* (set! chicken.compiler.core#foreign-stub-name ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16172,tmp=(C_word)a,a+=2,tmp));
t93=C_mutate((C_word*)lf[499]+1 /* (set! chicken.compiler.core#foreign-stub-argument-types ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16190,tmp=(C_word)a,a+=2,tmp));
t94=C_mutate((C_word*)lf[500]+1 /* (set! chicken.compiler.core#foreign-stub-argument-names ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16208,tmp=(C_word)a,a+=2,tmp));
t95=C_mutate((C_word*)lf[501]+1 /* (set! chicken.compiler.core#foreign-stub-body ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16226,tmp=(C_word)a,a+=2,tmp));
t96=C_mutate((C_word*)lf[502]+1 /* (set! chicken.compiler.core#foreign-stub-cps ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16244,tmp=(C_word)a,a+=2,tmp));
t97=C_mutate((C_word*)lf[503]+1 /* (set! chicken.compiler.core#foreign-stub-callback ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16262,tmp=(C_word)a,a+=2,tmp));
t98=C_mutate(&lf[324] /* (set! chicken.compiler.core#create-foreign-stub ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16271,tmp=(C_word)a,a+=2,tmp));
t99=C_mutate(&lf[317] /* (set! chicken.compiler.core#expand-foreign-lambda ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16660,tmp=(C_word)a,a+=2,tmp));
t100=C_mutate(&lf[320] /* (set! chicken.compiler.core#expand-foreign-lambda* ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16697,tmp=(C_word)a,a+=2,tmp));
t101=C_mutate((C_word*)lf[517]+1 /* (set! chicken.compiler.core#perform-cps-conversion ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_16963,tmp=(C_word)a,a+=2,tmp));
t102=C_mutate((C_word*)lf[531]+1 /* (set! chicken.compiler.core#analyze-expression ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_17877,tmp=(C_word)a,a+=2,tmp));
t103=C_mutate((C_word*)lf[604]+1 /* (set! chicken.compiler.core#perform-closure-conversion ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_20036,tmp=(C_word)a,a+=2,tmp));
t104=C_mutate((C_word*)lf[655]+1 /* (set! chicken.compiler.core#lambda-literal-id ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22801,tmp=(C_word)a,a+=2,tmp));
t105=C_mutate((C_word*)lf[657]+1 /* (set! chicken.compiler.core#lambda-literal-external ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22819,tmp=(C_word)a,a+=2,tmp));
t106=C_mutate((C_word*)lf[658]+1 /* (set! chicken.compiler.core#lambda-literal-argument-count ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22855,tmp=(C_word)a,a+=2,tmp));
t107=C_mutate((C_word*)lf[659]+1 /* (set! chicken.compiler.core#lambda-literal-rest-argument ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22873,tmp=(C_word)a,a+=2,tmp));
t108=C_mutate((C_word*)lf[660]+1 /* (set! chicken.compiler.core#lambda-literal-temporaries ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22891,tmp=(C_word)a,a+=2,tmp));
t109=C_mutate((C_word*)lf[661]+1 /* (set! chicken.compiler.core#lambda-literal-float-temporaries ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22909,tmp=(C_word)a,a+=2,tmp));
t110=C_mutate((C_word*)lf[662]+1 /* (set! chicken.compiler.core#lambda-literal-callee-signatures ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22927,tmp=(C_word)a,a+=2,tmp));
t111=C_mutate((C_word*)lf[663]+1 /* (set! chicken.compiler.core#lambda-literal-allocated ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22945,tmp=(C_word)a,a+=2,tmp));
t112=C_mutate((C_word*)lf[664]+1 /* (set! chicken.compiler.core#lambda-literal-closure-size ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22981,tmp=(C_word)a,a+=2,tmp));
t113=C_mutate((C_word*)lf[665]+1 /* (set! chicken.compiler.core#lambda-literal-looping ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_22999,tmp=(C_word)a,a+=2,tmp));
t114=C_mutate((C_word*)lf[666]+1 /* (set! chicken.compiler.core#lambda-literal-customizable ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23017,tmp=(C_word)a,a+=2,tmp));
t115=C_mutate((C_word*)lf[667]+1 /* (set! chicken.compiler.core#lambda-literal-rest-argument-mode ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23035,tmp=(C_word)a,a+=2,tmp));
t116=C_mutate((C_word*)lf[668]+1 /* (set! chicken.compiler.core#lambda-literal-body ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23053,tmp=(C_word)a,a+=2,tmp));
t117=C_mutate((C_word*)lf[669]+1 /* (set! chicken.compiler.core#lambda-literal-direct ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23071,tmp=(C_word)a,a+=2,tmp));
t118=C_mutate((C_word*)lf[670]+1 /* (set! chicken.compiler.core#prepare-for-code-generation ...) */,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_23080,tmp=(C_word)a,a+=2,tmp));
t119=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t119;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t119+1)))(2,av2);}}

/* loop in a13398 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void f_6917(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,4)))){
C_save_and_reclaim_args((void *)trf_6917,5,t0,t1,t2,t3,t4);}
a=C_alloc(4);
if(C_truep(C_fixnum_less_or_equal_p(t2,C_fix(0)))){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6931,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("mini-srfi-1.scm:67: scheme#reverse"));
t6=*((C_word*)lf[267]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=t3;
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t5=C_fixnum_difference(t2,C_fix(1));
t6=C_i_car(t4);
t7=C_a_i_cons(&a,2,t6,t3);
C_trace(C_text("mini-srfi-1.scm:68: loop"));
t9=t1;
t10=t5;
t11=t7;
t12=C_u_i_cdr(t4);
t1=t9;
t2=t10;
t3=t11;
t4=t12;
goto loop;}}

/* k6929 in loop in a13398 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_6931(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_6931,c,av);}
C_trace(C_text("mini-srfi-1.scm:67: scheme#values"));{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
C_values(4,av2);}}

/* chicken.compiler.core#every in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7120(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_7120,3,t1,t2,t3);}
a=C_alloc(6);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7126,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_7126(t7,t1,t3);}

/* loop in chicken.compiler.core#every in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7126(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_7126,3,t0,t1,t2);}
a=C_alloc(5);
t3=C_i_nullp(t2);
if(C_truep(t3)){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7148,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("mini-srfi-1.scm:82: pred"));
t5=((C_word*)t0)[3];{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=C_i_car(t2);
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}}

/* k7146 in loop in chicken.compiler.core#every in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_7148(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7148,c,av);}
if(C_truep(C_i_not(t1))){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
C_trace(C_text("mini-srfi-1.scm:83: loop"));
t2=((C_word*)((C_word*)t0)[3])[1];
f_7126(t2,((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[4]));}}

/* chicken.compiler.core#any in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7154(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_7154,3,t1,t2,t3);}
a=C_alloc(6);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7160,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t7=((C_word*)t5)[1];
f_7160(t7,t1,t3);}

/* loop in chicken.compiler.core#any in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7160(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_7160,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_nullp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7170,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("mini-srfi-1.scm:88: pred"));
t4=((C_word*)t0)[3];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_i_car(t2);
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}}

/* k7168 in loop in chicken.compiler.core#any in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_7170(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_7170,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
C_trace(C_text("mini-srfi-1.scm:89: loop"));
t2=((C_word*)((C_word*)t0)[3])[1];
f_7160(t2,((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[4]));}}

/* chicken.compiler.core#cons* in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7184(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_7184,3,t1,t2,t3);}
a=C_alloc(5);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7190,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_7190(t7,t1,t2,t3);}

/* loop in chicken.compiler.core#cons* in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7190(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
C_save_and_reclaim_args((void *)trf_7190,4,t0,t1,t2,t3);}
a=C_alloc(4);
if(C_truep(C_i_nullp(t3))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7204,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("mini-srfi-1.scm:95: loop"));
t6=t4;
t7=C_i_car(t3);
t8=C_u_i_cdr(t3);
t1=t6;
t2=t7;
t3=t8;
goto loop;}}

/* k7202 in loop in chicken.compiler.core#cons* in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_7204(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_7204,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.compiler.core#concatenate in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7212(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_7212,2,t1,t2);}
a=C_alloc(5);
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7218,a[2]=t4,tmp=(C_word)a,a+=3,tmp));
t6=((C_word*)t4)[1];
f_7218(t6,t1,t2);}

/* loop in chicken.compiler.core#concatenate in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7218(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_7218,3,t0,t1,t2);}
a=C_alloc(4);
if(C_truep(C_i_nullp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_i_car(t2);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7236,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("mini-srfi-1.scm:101: loop"));
t6=t4;
t7=C_u_i_cdr(t2);
t1=t6;
t2=t7;
goto loop;}}

/* k7234 in loop in chicken.compiler.core#concatenate in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_7236(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7236,c,av);}
C_trace(C_text("mini-srfi-1.scm:101: scheme#append"));
t2=*((C_word*)lf[6]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* chicken.compiler.core#delete in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7240(C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_7240,4,t1,t2,t3,t4);}
a=C_alloc(7);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7246,a[2]=t6,a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp));
t8=((C_word*)t6)[1];
f_7246(t8,t1,t3);}

/* loop in chicken.compiler.core#delete in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7246(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
C_save_and_reclaim_args((void *)trf_7246,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_nullp(t2))){
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7259,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("mini-srfi-1.scm:106: test"));
t4=((C_word*)t0)[3];{
C_word av2[4];
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[4];
av2[3]=C_i_car(t2);
((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}}

/* k7257 in loop in chicken.compiler.core#delete in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_7259(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_7259,c,av);}
a=C_alloc(4);
if(C_truep(t1)){
C_trace(C_text("mini-srfi-1.scm:107: loop"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_7246(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));}
else{
t2=C_u_i_car(((C_word*)t0)[4]);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7273,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("mini-srfi-1.scm:109: loop"));
t4=((C_word*)((C_word*)t0)[2])[1];
f_7246(t4,t3,C_u_i_cdr(((C_word*)t0)[4]));}}

/* k7271 in k7257 in loop in chicken.compiler.core#delete in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_7273(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_7273,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.compiler.core#filter in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7360(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_7360,3,t1,t2,t3);}
a=C_alloc(6);
t4=C_i_check_list_2(t3,lf[9]);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7369,a[2]=t2,a[3]=t6,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_7369(t8,t1,t3);}

/* foldr402 in chicken.compiler.core#filter in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7369(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
C_save_and_reclaim_args((void *)trf_7369,3,t0,t1,t2);}
a=C_alloc(8);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7377,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7398,a[2]=t3,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t7=t5;
t8=C_slot(t2,C_fix(1));
t1=t7;
t2=t8;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* g407 in foldr402 in chicken.compiler.core#filter in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7377(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_7377,4,t0,t1,t2,t3);}
a=C_alloc(5);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7384,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("mini-srfi-1.scm:131: pred"));
t5=((C_word*)t0)[2];{
C_word av2[3];
av2[0]=t5;
av2[1]=t4;
av2[2]=t2;
((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}

/* k7382 in g407 in foldr402 in chicken.compiler.core#filter in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_7384(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_7384,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=(C_truep(t1)?C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]):((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k7396 in foldr402 in chicken.compiler.core#filter in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_7398(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7398,c,av);}
C_trace(C_text("mini-srfi-1.scm:131: g407"));
t2=((C_word*)t0)[2];
f_7377(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* foldr420 in globalize-all in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void f_7413(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){
C_save_and_reclaim_args((void *)trf_7413,3,t0,t1,t2);}
a=C_alloc(8);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7421,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t4=C_slot(t2,C_fix(0));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7447,a[2]=t3,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t7=t5;
t8=C_slot(t2,C_fix(1));
t1=t7;
t2=t8;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* g425 in foldr420 in globalize-all in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void f_7421(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_7421,4,t0,t1,t2,t3);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7425,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("mini-srfi-1.scm:135: pred"));
t5=((C_word*)((C_word*)t0)[2])[1];
f_14207(t5,t4,t2);}

/* k7423 in g425 in foldr420 in globalize-all in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_7425(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
C_save_and_reclaim((void *)f_7425,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7429,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("mini-srfi-1.scm:135: g435"));
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(
C_trace("mini-srfi-1.scm:135: g435"),
  f_7429(C_a_i(&a,3),t2,t1)
);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t2=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* g435 in k7423 in g425 in foldr420 in globalize-all in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static C_word f_7429(C_word *a,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_stack_overflow_check;{}
return(C_a_i_cons(&a,2,t1,((C_word*)t0)[2]));}

/* k7445 in foldr420 in globalize-all in g2498 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_7447(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7447,c,av);}
C_trace(C_text("mini-srfi-1.scm:134: g425"));
t2=((C_word*)t0)[2];
f_7421(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* a7458 in k20127 in k20088 in symbolset-difference in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_7459(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_7459,c,av);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7467,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("mini-srfi-1.scm:141: pred"));
t4=((C_word*)t0)[2];
f_20134(t4,t3,t2);}

/* k7465 in a7458 in k20127 in k20088 in symbolset-difference in chicken.compiler.core#perform-closure-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_7467(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7467,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_i_not(t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* chicken.compiler.core#unzip1 in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7469(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){
C_save_and_reclaim_args((void *)trf_7469,2,t1,t2);}
a=C_alloc(12);
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=C_i_check_list_2(t2,lf[11]);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7486,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_7486(t11,t1,t2);}

/* map-loop448 in chicken.compiler.core#unzip1 in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7486(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_7486,3,t0,t1,t2);}
a=C_alloc(3);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_car(t3);
t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST);
t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5);
t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5);
t9=t1;
t10=C_slot(t2,C_fix(1));
t1=t9;
t2=t10;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* loop in k17383 in k17061 in k17052 in k17049 in k17046 in k17043 in walk in chicken.compiler.core#perform-cps-conversion in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static C_word f_7526(C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_stack_overflow_check;
loop:{}
t2=C_i_cdr(t1);
if(C_truep(C_i_nullp(t2))){
return(C_u_i_car(t1));}
else{
t4=C_u_i_cdr(t1);
t1=t4;
goto loop;}}

/* loop in blockvar-literal in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7551(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_7551,4,t0,t1,t2,t3);}
a=C_alloc(6);
if(C_truep(C_i_nullp(t3))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7564,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("mini-srfi-1.scm:154: pred"));
t5=((C_word*)t0)[3];
f_24537(t5,t4,C_i_car(t3));}}

/* k7562 in loop in blockvar-literal in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_7564(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7564,c,av);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
C_trace(C_text("mini-srfi-1.scm:155: loop"));
t2=((C_word*)((C_word*)t0)[4])[1];
f_7551(t2,((C_word*)t0)[2],C_fixnum_plus(((C_word*)t0)[3],C_fix(1)),C_u_i_cdr(((C_word*)t0)[5]));}}

/* chicken.compiler.core#lset-adjoin/eq? in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7579(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_7579,3,t1,t2,t3);}
a=C_alloc(5);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7585,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_7585(t7,t1,t3,t2);}

/* loop in chicken.compiler.core#lset-adjoin/eq? in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7585(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_7585,4,t0,t1,t2,t3);}
a=C_alloc(3);
if(C_truep(C_i_nullp(t2))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=C_i_car(t2);
if(C_truep(C_i_memq(t4,t3))){
C_trace(C_text("mini-srfi-1.scm:160: loop"));
t9=t1;
t10=C_u_i_cdr(t2);
t11=t3;
t1=t9;
t2=t10;
t3=t11;
goto loop;}
else{
t5=C_u_i_cdr(t2);
t6=C_u_i_car(t2);
t7=C_a_i_cons(&a,2,t6,t3);
C_trace(C_text("mini-srfi-1.scm:161: loop"));
t9=t1;
t10=t5;
t11=t7;
t1=t9;
t2=t10;
t3=t11;
goto loop;}}}

/* chicken.compiler.core#lset-difference/eq? in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7620(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_7620,3,t1,t2,t3);}
a=C_alloc(5);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7641,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_7641(t7,t1,t3,t2);}

/* a7627 in foldl509 in chicken.compiler.core#lset-difference/eq? in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_7628(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7628,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_not(C_i_memq(t2,((C_word*)t0)[2]));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* foldl509 in chicken.compiler.core#lset-difference/eq? in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7641(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,0,3)))){
C_save_and_reclaim_args((void *)trf_7641,4,t0,t1,t2,t3);}
a=C_alloc(8);
if(C_truep(C_i_pairp(t2))){
t4=C_slot(t2,C_fix(1));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7659,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t6=C_slot(t2,C_fix(0));
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7628,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("mini-srfi-1.scm:166: filter"));
f_7360(t5,t7,t3);}
else{
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k7657 in foldl509 in chicken.compiler.core#lset-difference/eq? in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_7659(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7659,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_7641(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* chicken.compiler.core#lset-union/eq? in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7665(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_7665,3,t1,t2,t3);}
a=C_alloc(5);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7720,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=((C_word*)t5)[1];
f_7720(t7,t1,t3,t2);}

/* k7674 in foldl543 in foldl531 in chicken.compiler.core#lset-union/eq? in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_7676(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_7676,c,av);}
a=C_alloc(3);
if(C_truep(t1)){
t2=((C_word*)((C_word*)t0)[2])[1];
f_7693(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}
else{
t2=C_a_i_cons(&a,2,((C_word*)t0)[6],((C_word*)t0)[5]);
t3=((C_word*)((C_word*)t0)[2])[1];
f_7693(t3,((C_word*)t0)[3],((C_word*)t0)[4],t2);}}

/* a7680 in foldl543 in foldl531 in chicken.compiler.core#lset-union/eq? in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_7681(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7681,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_eqp(t2,((C_word*)t0)[2]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* foldl543 in foldl531 in chicken.compiler.core#lset-union/eq? in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7693(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){
C_save_and_reclaim_args((void *)trf_7693,4,t0,t1,t2,t3);}
a=C_alloc(10);
if(C_truep(C_i_pairp(t2))){
t4=C_slot(t2,C_fix(1));
t5=C_slot(t2,C_fix(0));
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7676,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,a[5]=t3,a[6]=t5,tmp=(C_word)a,a+=7,tmp);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7681,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("mini-srfi-1.scm:175: any"));
f_7154(t6,t7,t3);}
else{
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* foldl531 in chicken.compiler.core#lset-union/eq? in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7720(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){
C_save_and_reclaim_args((void *)trf_7720,4,t0,t1,t2,t3);}
a=C_alloc(10);
if(C_truep(C_i_pairp(t2))){
t4=C_slot(t2,C_fix(1));
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7738,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t6=C_slot(t2,C_fix(0));
t7=C_i_check_list_2(t6,lf[15]);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7693,a[2]=t9,tmp=(C_word)a,a+=3,tmp));
t11=((C_word*)t9)[1];
f_7693(t11,t5,t6,t3);}
else{
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k7736 in foldl531 in chicken.compiler.core#lset-union/eq? in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_7738(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_7738,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_7720(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* chicken.compiler.core#lset-intersection/eq? in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7744(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_7744,3,t1,t2,t3);}
a=C_alloc(3);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7750,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("mini-srfi-1.scm:182: filter"));
f_7360(t1,t4,t2);}

/* a7749 in chicken.compiler.core#lset-intersection/eq? in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_7750(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_7750,c,av);}
a=C_alloc(3);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7756,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("mini-srfi-1.scm:183: every"));
f_7120(t1,t3,((C_word*)t0)[2]);}

/* a7755 in a7749 in chicken.compiler.core#lset-intersection/eq? in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_7756(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_7756,c,av);}
t3=t1;{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_i_memq(((C_word*)t0)[2],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* chicken.compiler.core#posq in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_7963(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){
C_save_and_reclaim_args((void *)trf_7963,3,t1,t2,t3);}
a=C_alloc(3);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7969,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=(
  f_7969(t4,C_fix(0),t3)
);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}

/* loop in chicken.compiler.core#posq in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static C_word f_7969(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_nullp(t2))){
return(C_SCHEME_FALSE);}
else{
t3=C_i_car(t2);
t4=C_eqp(t3,((C_word*)t0)[2]);
if(C_truep(t4)){
return(t1);}
else{
t6=C_fixnum_plus(t1,C_fix(1));
t7=C_u_i_cdr(t2);
t1=t6;
t2=t7;
goto loop;}}}

/* loop in k24457 in literal in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static C_word f_8003(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_stack_overflow_check;
loop:{}
if(C_truep(C_i_nullp(t2))){
return(C_SCHEME_FALSE);}
else{
t3=C_i_car(t2);
if(C_truep(C_i_eqvp(t3,((C_word*)t0)[2]))){
return(t1);}
else{
t5=C_fixnum_plus(t1,C_fix(1));
t6=C_u_i_cdr(t2);
t1=t5;
t2=t6;
goto loop;}}}

/* chicken.compiler.core#initialize-compiler in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8101(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_8101,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8105,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
if(C_truep(*((C_word*)lf[66]+1))){
C_trace(C_text("core.scm:476: scheme#vector-fill!"));
t3=*((C_word*)lf[95]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=*((C_word*)lf[66]+1);
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8141,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:477: scheme#make-vector"));
t4=*((C_word*)lf[96]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=*((C_word*)lf[27]+1);
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}

/* k8103 in chicken.compiler.core#initialize-compiler in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8105(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_8105,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8108,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(*((C_word*)lf[68]+1))){
C_trace(C_text("core.scm:479: scheme#vector-fill!"));
t3=*((C_word*)lf[95]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=*((C_word*)lf[68]+1);
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8134,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:480: scheme#make-vector"));
t4=*((C_word*)lf[96]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_fix(301);
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}

/* k8106 in k8103 in chicken.compiler.core#initialize-compiler in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8108(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_8108,c,av);}
a=C_alloc(6);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8111,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep(*((C_word*)lf[69]+1))){
C_trace(C_text("core.scm:482: scheme#vector-fill!"));
t3=*((C_word*)lf[95]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=*((C_word*)lf[69]+1);
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8127,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:483: scheme#make-vector"));
t4=*((C_word*)lf[96]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=C_fix(301);
av2[3]=C_SCHEME_END_OF_LIST;
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}

/* k8109 in k8106 in k8103 in chicken.compiler.core#initialize-compiler in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8111(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8111,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8114,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:484: chicken.compiler.support#reset-profile-info-vector-name!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[94]);
C_word *av2=av;
av2[0]=*((C_word*)lf[94]+1);
av2[1]=t2;
tp(2,av2);}}

/* k8112 in k8109 in k8106 in k8103 in chicken.compiler.core#initialize-compiler in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8114(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8114,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8117,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:485: chicken.compiler.support#clear-real-name-table!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[93]);
C_word *av2=av;
av2[0]=*((C_word*)lf[93]+1);
av2[1]=t2;
tp(2,av2);}}

/* k8115 in k8112 in k8109 in k8106 in k8103 in chicken.compiler.core#initialize-compiler in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8117(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8117,c,av);}
C_trace(C_text("core.scm:486: chicken.compiler.support#clear-foreign-type-table!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[92]);
C_word *av2=av;
av2[0]=*((C_word*)lf[92]+1);
av2[1]=((C_word*)t0)[2];
tp(2,av2);}}

/* k8125 in k8106 in k8103 in chicken.compiler.core#initialize-compiler in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8127(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8127,c,av);}
t2=C_mutate((C_word*)lf[69]+1 /* (set! chicken.compiler.core#constant-table ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
f_8111(2,av2);}}

/* k8132 in k8103 in chicken.compiler.core#initialize-compiler in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8134(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8134,c,av);}
t2=C_mutate((C_word*)lf[68]+1 /* (set! chicken.compiler.core#inline-table ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
f_8108(2,av2);}}

/* k8139 in chicken.compiler.core#initialize-compiler in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8141(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8141,c,av);}
t2=C_mutate((C_word*)lf[66]+1 /* (set! chicken.compiler.core#line-number-database-2 ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
f_8105(2,av2);}}

/* chicken.compiler.core#compute-database-statistics in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8143(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(25,c,4)))){
C_save_and_reclaim((void *)f_8143,c,av);}
a=C_alloc(25);
t3=C_fix(0);
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_fix(0);
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_fix(0);
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_fix(0);
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_fix(0);
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8147,a[2]=t1,a[3]=t6,a[4]=t4,a[5]=t8,a[6]=t12,a[7]=t10,tmp=(C_word)a,a+=8,tmp);
t14=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8152,a[2]=t10,a[3]=t8,a[4]=t6,a[5]=t4,a[6]=t12,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:508: chicken.internal#hash-table-for-each"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[104]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[104]+1);
av2[1]=t13;
av2[2]=t14;
av2[3]=t2;
tp(4,av2);}}

/* k8145 in chicken.compiler.core#compute-database-statistics in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8147(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_8147,c,av);}
C_trace(C_text("core.scm:522: scheme#values"));{
C_word *av2;
if(c >= 9) {
  av2=av;
} else {
  av2=C_alloc(9);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[64];
av2[3]=lf[63];
av2[4]=((C_word*)((C_word*)t0)[3])[1];
av2[5]=((C_word*)((C_word*)t0)[4])[1];
av2[6]=((C_word*)((C_word*)t0)[5])[1];
av2[7]=((C_word*)((C_word*)t0)[6])[1];
av2[8]=((C_word*)((C_word*)t0)[7])[1];
C_values(9,av2);}}

/* a8151 in chicken.compiler.core#compute-database-statistics in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8152(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_8152,c,av);}
a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8154,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t5=C_i_check_list_2(t3,lf[103]);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8228,a[2]=t7,a[3]=t4,tmp=(C_word)a,a+=4,tmp));
t9=((C_word*)t7)[1];
f_8228(t9,t1,t3);}

/* g780 in a8151 in chicken.compiler.core#compute-database-statistics in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_8154(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(62,0,2)))){
C_save_and_reclaim_args((void *)trf_8154,3,t0,t1,t2);}
a=C_alloc(62);
t3=((C_word*)t0)[2];
t4=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t3)[2])[1],C_fix(1));
t5=C_mutate(((C_word *)((C_word*)t3)[2])+1,t4);
t6=C_i_car(t2);
t7=C_eqp(t6,lf[98]);
if(C_truep(t7)){
t8=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t3)[3])[1],C_fix(1));
t9=C_mutate(((C_word *)((C_word*)t3)[3])+1,t8);
t10=t1;{
C_word av2[2];
av2[0]=t10;
av2[1]=t9;
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t8=C_eqp(t6,lf[99]);
if(C_truep(t8)){
t9=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t3)[4])[1],C_fix(1));
t10=C_mutate(((C_word *)((C_word*)t3)[4])+1,t9);
t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8196,a[2]=((C_word*)t3)[5],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:517: chicken.compiler.support#node-class"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[101]);
C_word av2[3];
av2[0]=*((C_word*)lf[101]+1);
av2[1]=t11;
av2[2]=C_u_i_cdr(t2);
tp(3,av2);}}
else{
t9=C_eqp(t6,lf[102]);
if(C_truep(t9)){
t10=C_i_length(C_u_i_cdr(t2));
t11=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t3)[6])[1],t10);
t12=C_mutate(((C_word *)((C_word*)t3)[6])+1,t11);
t13=t1;{
C_word av2[2];
av2[0]=t13;
av2[1]=t12;
((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}
else{
t10=C_SCHEME_UNDEFINED;
t11=t1;{
C_word av2[2];
av2[0]=t11;
av2[1]=t10;
((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}}}

/* k8194 in g780 in a8151 in chicken.compiler.core#compute-database-statistics in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8196(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){
C_save_and_reclaim((void *)f_8196,c,av);}
a=C_alloc(29);
t2=C_eqp(lf[100],t1);
if(C_truep(t2)){
t3=C_s_a_i_plus(&a,2,((C_word*)((C_word*)t0)[2])[1],C_fix(1));
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3);
t5=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t5;
av2[1]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* for-each-loop779 in a8151 in chicken.compiler.core#compute-database-statistics in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_8228(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_8228,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8238,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:510: g780"));
t4=((C_word*)t0)[3];
f_8154(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k8236 in for-each-loop779 in a8151 in chicken.compiler.core#compute-database-statistics in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8238(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8238,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_8228(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8251(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word t29;
C_word t30;
C_word t31;
C_word t32;
C_word t33;
C_word t34;
C_word t35;
C_word t36;
C_word t37;
C_word t38;
C_word t39;
C_word t40;
C_word t41;
C_word t42;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(82,c,10)))){
C_save_and_reclaim((void *)f_8251,c,av);}
a=C_alloc(82);
t3=C_SCHEME_END_OF_LIST;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_SCHEME_END_OF_LIST;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_SCHEME_UNDEFINED;
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
t13=C_SCHEME_UNDEFINED;
t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp);
t15=C_SCHEME_UNDEFINED;
t16=(*a=C_VECTOR_TYPE|1,a[1]=t15,tmp=(C_word)a,a+=2,tmp);
t17=C_SCHEME_UNDEFINED;
t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp);
t19=C_SCHEME_UNDEFINED;
t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp);
t21=C_SCHEME_UNDEFINED;
t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp);
t23=C_SCHEME_UNDEFINED;
t24=(*a=C_VECTOR_TYPE|1,a[1]=t23,tmp=(C_word)a,a+=2,tmp);
t25=C_SCHEME_UNDEFINED;
t26=(*a=C_VECTOR_TYPE|1,a[1]=t25,tmp=(C_word)a,a+=2,tmp);
t27=C_SCHEME_UNDEFINED;
t28=(*a=C_VECTOR_TYPE|1,a[1]=t27,tmp=(C_word)a,a+=2,tmp);
t29=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8254,a[2]=t8,tmp=(C_word)a,a+=3,tmp));
t30=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8289,a[2]=t8,tmp=(C_word)a,a+=3,tmp));
t31=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8323,a[2]=C_SCHEME_UNDEFINED,a[3]=t10,a[4]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=5,tmp));
t32=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8336,tmp=(C_word)a,a+=2,tmp));
t33=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8363,a[2]=t14,tmp=(C_word)a,a+=3,tmp));
t34=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_8392,tmp=(C_word)a,a+=2,tmp));
t35=C_set_block_item(t20,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8458,a[2]=t10,tmp=(C_word)a,a+=3,tmp));
t36=C_set_block_item(t22,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8501,a[2]=t26,a[3]=t6,a[4]=t10,tmp=(C_word)a,a+=5,tmp));
t37=C_set_block_item(t24,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8809,a[2]=t26,a[3]=t16,tmp=(C_word)a,a+=4,tmp));
t38=C_set_block_item(t26,0,(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8869,a[2]=t22,a[3]=t26,a[4]=t16,a[5]=t18,a[6]=t6,a[7]=t10,a[8]=t4,a[9]=t24,a[10]=t20,a[11]=t28,a[12]=t12,a[13]=t14,tmp=(C_word)a,a+=14,tmp));
t39=C_set_block_item(t28,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14081,a[2]=t26,tmp=(C_word)a,a+=3,tmp));
t40=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14133,a[2]=t26,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
if(C_truep(C_i_memq(lf[168],C_fast_retrieve(lf[489])))){
t41=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14164,a[2]=t40,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1542: scheme#newline"));
t42=*((C_word*)lf[490]+1);{
C_word *av2=av;
av2[0]=t42;
av2[1]=t41;
((C_proc)(void*)(*((C_word*)t42+1)))(2,av2);}}
else{
t41=t40;{
C_word *av2=av;
av2[0]=t41;
av2[1]=C_SCHEME_UNDEFINED;
f_14133(2,av2);}}}

/* find-id in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_8254(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_8254,4,t0,t1,t2,t3);}
a=C_alloc(6);
if(C_truep(C_i_nullp(t3))){
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=C_SCHEME_FALSE;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8267,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp);
t5=C_i_caar(t3);
t6=C_eqp(t2,t5);
if(C_truep(t6)){
t7=C_u_i_car(t3);
t8=t4;
f_8267(t8,C_i_symbolp(C_u_i_cdr(t7)));}
else{
t7=t4;
f_8267(t7,C_SCHEME_FALSE);}}}

/* k8265 in find-id in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_8267(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
C_save_and_reclaim_args((void *)trf_8267,2,t0,t1);}
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word av2[2];
av2[0]=t2;
av2[1]=C_u_i_cdr(C_u_i_car(((C_word*)t0)[3]));
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:539: find-id"));
t2=((C_word*)((C_word*)t0)[4])[1];
f_8254(t2,((C_word*)t0)[2],((C_word*)t0)[5],C_u_i_cdr(((C_word*)t0)[3]));}}

/* lookup in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_8289(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_8289,3,t0,t1,t2);}
a=C_alloc(9);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8293,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8321,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:542: ##sys#current-environment"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[110]);
C_word av2[2];
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t4;
tp(2,av2);}}

/* k8291 in lookup in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8293(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_8293,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8301,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8307,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:542: ##sys#call-with-values"));{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=t2;
av2[3]=t3;
C_call_with_values(4,av2);}}}

/* a8300 in k8291 in lookup in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8301(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_8301,c,av);}
C_trace(C_text("core.scm:543: ##sys#get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[106]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[106]+1);
av2[1]=t1;
av2[2]=((C_word*)t0)[2];
av2[3]=lf[107];
tp(4,av2);}}

/* a8306 in k8291 in lookup in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8307(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){
C_save_and_reclaim((void*)f_8307,c,av);}
a=C_alloc((c-2)*C_SIZEOF_PAIR+5);
t2=C_build_rest(&a,c,2,av);
C_word t3;
C_word t4;
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8314,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=t3;
av2[2]=*((C_word*)lf[109]+1);
av2[3]=t2;
C_apply(4,av2);}}

/* k8312 in a8306 in k8291 in lookup in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8314(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_8314,c,av);}
if(C_truep(t1)){{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=0;
av2[1]=((C_word*)t0)[2];
av2[2]=*((C_word*)lf[108]+1);
av2[3]=((C_word*)t0)[3];
C_apply(4,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}

/* k8319 in lookup in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8321(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_8321,c,av);}
C_trace(C_text("core.scm:542: find-id"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_8254(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}

/* macro-alias in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_8323(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_8323,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+4,t2);
t4=C_mutate(((C_word *)t0)+2,t1);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8327,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:547: chicken.base#gensym"));
t6=*((C_word*)lf[112]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k8325 in macro-alias in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8327(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_8327,c,av);}
a=C_alloc(8);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8330,a[2]=((C_word*)t2)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8334,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:548: lookup"));
t5=((C_word*)((C_word*)t2)[3])[1];
f_8289(t5,t4,((C_word*)t2)[4]);}

/* k8328 in k8325 in macro-alias in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8330(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8330,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k8332 in k8325 in macro-alias in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8334(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_8334,c,av);}
C_trace(C_text("core.scm:548: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[111]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[111]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[107];
av2[4]=t1;
tp(5,av2);}}

/* handle-expansion-result in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_8336(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,4)))){
C_save_and_reclaim_args((void *)trf_8336,2,t1,t2);}
a=C_alloc(3);
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8338,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* f_8338 in handle-expansion-result in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8338(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_8338,c,av);}
a=C_alloc(10);
t4=C_eqp(t2,t3);
t5=C_i_not(t4);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8345,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
if(C_truep(t5)){
t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8348,a[2]=t6,a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:554: chicken.syntax#get-line-number"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[114]);
C_word *av2=av;
av2[0]=*((C_word*)lf[114]+1);
av2[1]=t7;
av2[2]=t2;
tp(3,av2);}}
else{
t7=t1;{
C_word *av2=av;
av2[0]=t7;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* k8343 */
static void C_ccall f_8345(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8345,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k8346 */
static void C_ccall f_8348(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_8348,c,av);}
if(C_truep(t1)){
if(C_truep(t1)){
C_trace(C_text("core.scm:555: ##sys#update-line-number-database!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[113]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[113]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
tp(4,av2);}}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}
else{
if(C_truep(((C_word*)t0)[5])){
C_trace(C_text("core.scm:555: ##sys#update-line-number-database!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[113]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[113]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=((C_word*)t0)[5];
tp(4,av2);}}
else{
t2=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t2;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}

/* canonicalize-body/ln in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_8363(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_8363,5,t0,t1,t2,t3,t4);}
a=C_alloc(5);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8367,a[2]=t3,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:560: handle-expansion-result"));
f_8336(t5,t2);}

/* k8365 in canonicalize-body/ln in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8367(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){
C_save_and_reclaim((void *)f_8367,c,av);}
a=C_alloc(16);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_FALSE;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8372,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8377,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8387,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:559: ##sys#dynamic-wind"));
t9=*((C_word*)lf[117]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t9;
av2[1]=((C_word*)t0)[4];
av2[2]=t6;
av2[3]=t7;
av2[4]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}

/* a8371 in k8365 in canonicalize-body/ln in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8372(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8372,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_fast_retrieve(lf[115]));
t3=C_mutate((C_word*)lf[115]+1 /* (set! chicken.syntax#expansion-result-hook ...) */,((C_word*)((C_word*)t0)[3])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a8376 in k8365 in canonicalize-body/ln in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8377(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_8377,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8385,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:561: ##sys#current-environment"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[110]);
C_word *av2=av;
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t2;
tp(2,av2);}}

/* k8383 in a8376 in k8365 in canonicalize-body/ln in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8385(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_8385,c,av);}
C_trace(C_text("core.scm:561: ##sys#canonicalize-body"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[116]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[116]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
av2[4]=((C_word*)t0)[4];
tp(5,av2);}}

/* a8386 in k8365 in canonicalize-body/ln in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8387(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8387,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_fast_retrieve(lf[115]));
t3=C_mutate((C_word*)lf[115]+1 /* (set! chicken.syntax#expansion-result-hook ...) */,((C_word*)((C_word*)t0)[3])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* set-real-names! in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_8392(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){
C_save_and_reclaim_args((void *)trf_8392,3,t1,t2,t3);}
a=C_alloc(5);
t4=C_i_check_list_2(t2,lf[103]);
t5=C_i_check_list_2(t3,lf[103]);
t6=C_SCHEME_UNDEFINED;
t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp);
t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8409,a[2]=t7,tmp=(C_word)a,a+=3,tmp));
t9=((C_word*)t7)[1];
f_8409(t9,t1,t2,t3);}

/* for-each-loop872 in set-real-names! in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_8409(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){
C_save_and_reclaim_args((void *)trf_8409,4,t0,t1,t2,t3);}
a=C_alloc(6);
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8419,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:564: chicken.compiler.support#set-real-name!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[118]);
C_word av2[4];
av2[0]=*((C_word*)lf[118]+1);
av2[1]=t6;
av2[2]=C_slot(t2,C_fix(0));
av2[3]=C_slot(t3,C_fix(0));
tp(4,av2);}}
else{
t6=C_SCHEME_UNDEFINED;
t7=t1;{
C_word av2[2];
av2[0]=t7;
av2[1]=t6;
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}

/* k8417 in for-each-loop872 in set-real-names! in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8419(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_8419,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_8409(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)),C_slot(((C_word*)t0)[5],C_fix(1)));}

/* unquotify in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_8458(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
C_save_and_reclaim_args((void *)trf_8458,3,t0,t1,t2);}
a=C_alloc(4);
if(C_truep(C_i_listp(t2))){
t3=C_eqp(C_fix(2),C_u_i_length(t2));
if(C_truep(t3)){
t4=C_i_car(t2);
if(C_truep(C_i_symbolp(t4))){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8490,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:575: lookup"));
t6=((C_word*)((C_word*)t0)[2])[1];
f_8289(t6,t5,C_u_i_car(t2));}
else{
t5=t1;{
C_word av2[2];
av2[0]=t5;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
else{
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k8488 in unquotify in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8490(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8490,c,av);}
t2=C_eqp(lf[119],t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=(C_truep(t2)?C_i_cadr(((C_word*)t0)[3]):((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_8501(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7){
C_word tmp;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,0,2)))){
C_save_and_reclaim_args((void *)trf_8501,8,t0,t1,t2,t3,t4,t5,t6,t7);}
a=C_alloc(17);
t8=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8505,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,a[10]=((C_word*)t0)[3],a[11]=((C_word*)t0)[4],tmp=(C_word)a,a+=12,tmp);
if(C_truep(C_i_memq(t2,lf[86]))){
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8697,a[2]=t8,a[3]=C_SCHEME_UNDEFINED,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:582: scheme#open-output-string"));
t10=C_fast_retrieve(lf[134]);{
C_word av2[2];
av2[0]=t10;
av2[1]=t9;
((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}
else{
t9=t8;{
C_word av2[2];
av2[0]=t9;
av2[1]=C_SCHEME_UNDEFINED;
f_8505(2,av2);}}}

/* k8503 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8505(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){
C_save_and_reclaim((void *)f_8505,c,av);}
a=C_alloc(11);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8508,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
C_trace(C_text("core.scm:583: lookup"));
t3=((C_word*)((C_word*)t0)[11])[1];
f_8289(t3,t2,((C_word*)t0)[3]);}

/* k8506 in k8503 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8508(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
C_save_and_reclaim((void *)f_8508,c,av);}
a=C_alloc(11);
t2=C_i_symbolp(t1);
if(C_truep(C_i_not(t2))){
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8520,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[2],a[8]=t1,a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp);
C_trace(C_text("core.scm:586: chicken.internal#hash-table-ref"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t3;
av2[2]=*((C_word*)lf[69]+1);
av2[3]=t1;
tp(4,av2);}}}

/* k8518 in k8506 in k8503 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8520(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
C_save_and_reclaim((void *)f_8520,c,av);}
a=C_alloc(7);
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8524,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:585: g927"));
t3=t2;
f_8524(t3,((C_word*)t0)[7],t1);}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8534,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:588: chicken.internal#hash-table-ref"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t2;
av2[2]=*((C_word*)lf[68]+1);
av2[3]=((C_word*)t0)[8];
tp(4,av2);}}}

/* g927 in k8518 in k8506 in k8503 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_8524(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,8)))){
C_save_and_reclaim_args((void *)trf_8524,3,t0,t1,t2);}
C_trace(C_text("core.scm:587: walk"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_8869(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE);}

/* k8532 in k8518 in k8506 in k8503 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8534(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_8534,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8538,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:585: g931"));
t4=t3;
f_8538(t4,((C_word*)t2)[7],t1);}
else{
t3=C_i_assq(((C_word*)t2)[8],lf[73]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8552,a[2]=C_SCHEME_UNDEFINED,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[2],a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t2)[3],a[7]=((C_word*)t2)[4],a[8]=((C_word*)t2)[5],a[9]=((C_word*)t2)[6],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:585: g935"));
t5=t4;
f_8552(t5,((C_word*)t2)[7],t3);}
else{
t4=C_i_assq(((C_word*)t2)[8],lf[77]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8591,a[2]=C_SCHEME_UNDEFINED,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[2],a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t2)[3],a[7]=((C_word*)t2)[4],a[8]=((C_word*)t2)[5],a[9]=((C_word*)t2)[6],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:585: g945"));
t6=t5;
f_8591(t6,((C_word*)t2)[7],t4);}
else{
t5=C_i_memq(((C_word*)t2)[8],((C_word*)t2)[3]);
if(C_truep(C_i_not(t5))){
t6=C_a_i_cons(&a,2,((C_word*)t2)[6],((C_word*)t2)[9]);
C_trace(C_text("core.scm:610: ##sys#alias-global-hook"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[125]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[125]+1);
av2[1]=((C_word*)t2)[7];
av2[2]=((C_word*)t2)[8];
av2[3]=C_SCHEME_FALSE;
av2[4]=t6;
tp(5,av2);}}
else{
t6=C_i_assq(((C_word*)t2)[8],((C_word*)((C_word*)t2)[10])[1]);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8643,a[2]=((C_word*)t2)[8],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:585: g955"));
t8=t7;
f_8643(t8,((C_word*)t2)[7],t6);}
else{
t7=((C_word*)t2)[7];{
C_word *av2=av;
av2[0]=t7;
av2[1]=((C_word*)t2)[8];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}}}}}

/* g931 in k8532 in k8518 in k8506 in k8503 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_8538(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,0,8)))){
C_save_and_reclaim_args((void *)trf_8538,3,t0,t1,t2);}
C_trace(C_text("core.scm:589: walk"));
t3=((C_word*)((C_word*)t0)[2])[1];
f_8869(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE);}

/* g935 in k8532 in k8518 in k8506 in k8503 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_8552(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_8552,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+2,t2);
t4=C_mutate(((C_word *)t0)+5,t1);
t5=C_i_cadr(((C_word*)t0)[2]);
t6=C_mutate(((C_word *)t0)+3,t5);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8559,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:593: chicken.compiler.support#final-foreign-type"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[123]);
C_word av2[3];
av2[0]=*((C_word*)lf[123]+1);
av2[1]=t7;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k8557 in g935 in k8532 in k8518 in k8506 in k8503 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8559(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){
C_save_and_reclaim((void *)f_8559,c,av);}
a=C_alloc(24);
t2=((C_word*)t0)[2];
t3=C_i_caddr(((C_word*)t2)[2]);
t4=C_a_i_list(&a,2,t3,((C_word*)t2)[3]);
t5=C_a_i_list(&a,2,lf[120],t4);
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8569,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[6],a[5]=((C_word*)t2)[7],a[6]=((C_word*)t2)[8],a[7]=((C_word*)t2)[9],tmp=(C_word)a,a+=8,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8573,a[2]=t6,a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:597: chicken.compiler.support#finish-foreign-result"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[122]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[122]+1);
av2[1]=t7;
av2[2]=t1;
av2[3]=t5;
tp(4,av2);}}

/* k8567 in k8557 in g935 in k8532 in k8518 in k8506 in k8503 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8569(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_8569,c,av);}
C_trace(C_text("core.scm:595: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_8869(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE,C_SCHEME_FALSE);}

/* k8571 in k8557 in g935 in k8532 in k8518 in k8506 in k8503 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8573(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_8573,c,av);}
C_trace(C_text("core.scm:596: chicken.compiler.support#foreign-type-convert-result"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[121]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[121]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* g945 in k8532 in k8518 in k8506 in k8503 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_8591(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_8591,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+3,t2);
t4=C_mutate(((C_word *)t0)+5,t1);
t5=C_i_caddr(((C_word*)t0)[3]);
t6=C_mutate(((C_word *)t0)+2,t5);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8598,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:603: chicken.compiler.support#final-foreign-type"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[123]);
C_word av2[3];
av2[0]=*((C_word*)lf[123]+1);
av2[1]=t7;
av2[2]=((C_word*)t0)[2];
tp(3,av2);}}

/* k8596 in g945 in k8532 in k8518 in k8506 in k8503 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8598(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){
C_save_and_reclaim((void *)f_8598,c,av);}
a=C_alloc(24);
t2=((C_word*)t0)[2];
t3=C_a_i_list(&a,1,((C_word*)t2)[2]);
t4=C_i_cadr(((C_word*)t2)[3]);
t5=C_a_i_list(&a,3,lf[124],t3,t4);
t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8608,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[6],a[5]=((C_word*)t2)[7],a[6]=((C_word*)t2)[8],a[7]=((C_word*)t2)[9],tmp=(C_word)a,a+=8,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8612,a[2]=t6,a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:607: chicken.compiler.support#finish-foreign-result"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[122]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[122]+1);
av2[1]=t7;
av2[2]=t1;
av2[3]=t5;
tp(4,av2);}}

/* k8606 in k8596 in g945 in k8532 in k8518 in k8506 in k8503 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8608(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_8608,c,av);}
C_trace(C_text("core.scm:605: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_8869(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE,C_SCHEME_FALSE);}

/* k8610 in k8596 in g945 in k8532 in k8518 in k8506 in k8503 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8612(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_8612,c,av);}
C_trace(C_text("core.scm:606: chicken.compiler.support#foreign-type-convert-result"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[121]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[121]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* g955 in k8532 in k8518 in k8506 in k8503 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_8643(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_8643,3,t0,t1,t2);}
a=C_alloc(9);
t3=C_i_cdr(t2);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8654,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
if(C_truep(t3)){
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8661,a[2]=t4,a[3]=C_SCHEME_UNDEFINED,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:616: scheme#open-output-string"));
t6=C_fast_retrieve(lf[134]);{
C_word av2[2];
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
t5=t4;{
C_word av2[2];
av2[0]=t5;
av2[1]=lf[135];
f_8654(2,av2);}}}

/* k8652 in g955 in k8532 in k8518 in k8506 in k8503 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8654(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_8654,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8658,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:617: chicken.compiler.support#get-real-name"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[128]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[128]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k8656 in k8652 in g955 in k8532 in k8518 in k8506 in k8503 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8658(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_8658,c,av);}
C_trace(C_text("core.scm:614: chicken.compiler.support#quit-compiling"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[126]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[126]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[127];
av2[3]=((C_word*)t0)[3];
av2[4]=t1;
tp(5,av2);}}

/* k8659 in g955 in k8532 in k8518 in k8506 in k8503 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8661(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_8661,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[129]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8667,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:616: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[133]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[133]+1);
av2[1]=t4;
av2[2]=C_make_character(40);
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k8665 in k8659 in g955 in k8532 in k8518 in k8506 in k8503 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8667(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_8667,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8670,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:616: ##sys#print"));
t4=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k8668 in k8665 in k8659 in g955 in k8532 in k8518 in k8506 in k8503 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8670(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_8670,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8673,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:616: ##sys#print"));
t3=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[132];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k8671 in k8668 in k8665 in k8659 in g955 in k8532 in k8518 in k8506 in k8503 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8673(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8673,c,av);}
t2=((C_word*)t0)[2];
C_trace(C_text("core.scm:616: scheme#get-output-string"));
t3=C_fast_retrieve(lf[130]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}

/* k8695 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8697(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_8697,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[129]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8703,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:582: ##sys#print"));
t5=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[139];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}

/* k8701 in k8695 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8703(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_8703,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8706,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:582: ##sys#print"));
t4=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
av2[3]=C_SCHEME_TRUE;
av2[4]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k8704 in k8701 in k8695 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8706(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_8706,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8709,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:582: ##sys#print"));
t3=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[138];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k8707 in k8704 in k8701 in k8695 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8709(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8709,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8712,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:582: scheme#get-output-string"));
t4=C_fast_retrieve(lf[130]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k8710 in k8707 in k8704 in k8701 in k8695 in resolve-variable in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8712(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8712,c,av);}
C_trace(C_text("core.scm:581: chicken.base#warning"));
t2=C_fast_retrieve(lf[137]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k8716 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_8718(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
C_save_and_reclaim((void *)f_8718,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8721,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:624: ##sys#compiled-module-registration"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[239]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[239]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[4];
av2[3]=C_SCHEME_FALSE;
tp(4,av2);}}

/* k8719 in k8716 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_8721(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){
C_save_and_reclaim((void *)f_8721,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8724,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8793,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:626: chicken.file#file-exists?"));
t4=C_fast_retrieve(lf[260]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k8722 in k8719 in k8716 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void C_ccall f_8724(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){
C_save_and_reclaim((void *)f_8724,c,av);}
a=C_alloc(5);
t2=C_i_equalp(((C_word*)t0)[2],t1);
t3=(C_truep(t2)?*((C_word*)lf[49]+1):C_SCHEME_FALSE);
if(C_truep(t3)){
if(C_truep(*((C_word*)lf[62]+1))){
C_trace(C_text("core.scm:630: chicken.base#print"));
t4=*((C_word*)lf[244]+1);{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t4;
av2[1]=((C_word*)t0)[3];
av2[2]=lf[245];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[246];
av2[5]=((C_word*)t0)[5];
av2[6]=lf[247];
((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}}
else{
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
f_11390(2,av2);}}}
else{
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8739,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
if(C_truep(*((C_word*)lf[62]+1))){
C_trace(C_text("core.scm:634: chicken.base#print"));
t5=*((C_word*)lf[244]+1);{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[255];
av2[3]=((C_word*)t0)[4];
av2[4]=lf[256];
av2[5]=((C_word*)t0)[5];
av2[6]=lf[257];
((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}}
else{
t5=t4;{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_SCHEME_UNDEFINED;
f_8739(2,av2);}}}}

/* k8737 in k8722 in k8719 in k8716 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in ... */
static void C_ccall f_8739(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
C_save_and_reclaim((void *)f_8739,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8744,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:636: scheme#with-output-to-file"));
t3=C_fast_retrieve(lf[254]);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=((C_word*)t0)[4];
av2[2]=((C_word*)t0)[3];
av2[3]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* a8743 in k8737 in k8722 in k8719 in k8716 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in ... */
static void C_ccall f_8744(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
C_save_and_reclaim((void *)f_8744,c,av);}
a=C_alloc(8);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8748,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8784,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:639: chicken.platform#chicken-version"));
t4=C_fast_retrieve(lf[253]);{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k8746 in a8743 in k8737 in k8722 in k8719 in k8716 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in ... */
static void C_ccall f_8748(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_8748,c,av);}
a=C_alloc(9);
t2=C_fast_retrieve(lf[248]);
t3=C_i_check_list_2(((C_word*)t0)[2],lf[103]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8754,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8759,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp));
t8=((C_word*)t6)[1];
f_8759(t8,t4,((C_word*)t0)[2]);}

/* k8752 in k8746 in a8743 in k8737 in k8722 in k8719 in k8716 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in ... */
static void C_ccall f_8754(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8754,c,av);}
C_trace(C_text("core.scm:641: chicken.base#print"));
t2=*((C_word*)lf[244]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[249];
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* for-each-loop987 in k8746 in a8743 in k8737 in k8722 in k8719 in k8716 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in ... */
static void f_8759(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
C_save_and_reclaim_args((void *)trf_8759,3,t0,t1,t2);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8769,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:640: g988"));
t4=((C_word*)t0)[3];{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=C_SCHEME_UNDEFINED;
t4=t1;{
C_word av2[2];
av2[0]=t4;
av2[1]=t3;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k8767 in for-each-loop987 in k8746 in a8743 in k8737 in k8722 in k8719 in k8716 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in ... */
static void C_ccall f_8769(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_8769,c,av);}
t2=((C_word*)((C_word*)t0)[2])[1];
f_8759(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}

/* k8782 in a8743 in k8737 in k8722 in k8719 in k8716 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in ... */
static void C_ccall f_8784(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){
C_save_and_reclaim((void *)f_8784,c,av);}
C_trace(C_text("core.scm:638: chicken.base#print"));
t2=*((C_word*)lf[244]+1);{
C_word *av2;
if(c >= 7) {
  av2=av;
} else {
  av2=C_alloc(7);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=lf[250];
av2[3]=((C_word*)t0)[3];
av2[4]=lf[251];
av2[5]=t1;
av2[6]=lf[252];
((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}}

/* k8791 in k8719 in k8716 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void C_ccall f_8793(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_8793,c,av);}
if(C_truep(t1)){
C_trace(C_text("core.scm:627: scheme#call-with-input-file"));
t2=*((C_word*)lf[258]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=C_fast_retrieve(lf[259]);
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
else{
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_SCHEME_FALSE;
f_8724(2,av2);}}}

/* k8801 in k11230 in k11227 in k11224 in k11221 in k11218 in k11215 in k11206 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_8803(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_8803,c,av);}
C_trace(C_text("##sys#string-append"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[261]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[261]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=lf[262];
tp(4,av2);}}

/* include-file in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_8809(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8,C_word t9){
C_word tmp;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(11,0,5)))){
C_save_and_reclaim_args((void *)trf_8809,10,t0,t1,t2,t3,t4,t5,t6,t7,t8,t9);}
a=C_alloc(11);
t10=C_i_cadr(t2);
t11=C_i_caddr(t2);
t12=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8823,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t5,a[5]=t6,a[6]=t7,a[7]=t8,a[8]=t9,a[9]=t2,a[10]=((C_word*)t0)[3],tmp=(C_word)a,a+=11,tmp);
C_trace(C_text("core.scm:644: ##sys#include-forms-from-file"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[142]);
C_word av2[6];
av2[0]=*((C_word*)lf[142]+1);
av2[1]=t1;
av2[2]=t10;
av2[3]=t11;
av2[4]=t3;
av2[5]=t12;
tp(6,av2);}}

/* a8822 in include-file in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8823(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3=av[3];
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
if(c!=4) C_bad_argc_2(c,4,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){
C_save_and_reclaim((void *)f_8823,c,av);}
a=C_alloc(16);
t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8827,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=t1,tmp=(C_word)a,a+=11,tmp);
t5=C_i_cdddr(((C_word*)t0)[9]);
if(C_truep(C_i_pairp(t5))){
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8856,a[2]=((C_word*)t0)[10],a[3]=t4,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:650: scheme#append"));
t7=*((C_word*)lf[6]+1);{
C_word *av2=av;
av2[0]=t7;
av2[1]=t6;
av2[2]=t2;
av2[3]=C_i_cadddr(((C_word*)t0)[9]);
((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}
else{
t6=t4;{
C_word *av2=av;
av2[0]=t6;
av2[1]=C_a_i_cons(&a,2,lf[141],t2);
f_8827(2,av2);}}}

/* k8825 in a8822 in include-file in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8827(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){
C_save_and_reclaim((void *)f_8827,c,av);}
a=C_alloc(22);
t2=((C_word*)t0)[2];
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_FALSE;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8832,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8837,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8843,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:653: ##sys#dynamic-wind"));
t9=*((C_word*)lf[117]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t9;
av2[1]=((C_word*)t0)[10];
av2[2]=t6;
av2[3]=t7;
av2[4]=t8;
((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}

/* a8831 in k8825 in a8822 in include-file in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8832(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8832,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_fast_retrieve(lf[140]));
t3=C_mutate((C_word*)lf[140]+1 /* (set! ##sys#current-source-filename ...) */,((C_word*)((C_word*)t0)[3])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* a8836 in k8825 in a8822 in include-file in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8837(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_8837,c,av);}
C_trace(C_text("core.scm:654: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_8869(t2,t1,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);}

/* a8842 in k8825 in a8822 in include-file in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8843(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_8843,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_fast_retrieve(lf[140]));
t3=C_mutate((C_word*)lf[140]+1 /* (set! ##sys#current-source-filename ...) */,((C_word*)((C_word*)t0)[3])[1]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_SCHEME_UNDEFINED;
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* k8854 in a8822 in include-file in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8856(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_8856,c,av);}
C_trace(C_text("core.scm:648: canonicalize-body/ln"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_8363(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,*((C_word*)lf[55]+1));}

/* walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_8869(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6,C_word t7,C_word t8){
C_word tmp;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(22,0,2)))){
C_save_and_reclaim_args((void *)trf_8869,9,t0,t1,t2,t3,t4,t5,t6,t7,t8);}
a=C_alloc(22);
t9=(*a=C_CLOSURE_TYPE|21,a[1]=(C_word)f_8876,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,a[10]=((C_word*)t0)[3],a[11]=t8,a[12]=((C_word*)t0)[4],a[13]=((C_word*)t0)[5],a[14]=((C_word*)t0)[6],a[15]=((C_word*)t0)[7],a[16]=((C_word*)t0)[8],a[17]=((C_word*)t0)[9],a[18]=((C_word*)t0)[10],a[19]=((C_word*)t0)[11],a[20]=((C_word*)t0)[12],a[21]=((C_word*)t0)[13],tmp=(C_word)a,a+=22,tmp);
C_trace(C_text("core.scm:657: chicken.keyword#keyword?"));
t10=C_fast_retrieve(lf[488]);{
C_word av2[3];
av2[0]=t10;
av2[1]=t9;
av2[2]=t2;
((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}

/* k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8876(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,7)))){
C_save_and_reclaim((void *)f_8876,c,av);}
a=C_alloc(23);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,2,lf[119],((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){
C_trace(C_text("core.scm:658: resolve-variable"));
t2=((C_word*)((C_word*)t0)[4])[1];
f_8501(t2,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);}
else{
t2=C_i_pairp(((C_word*)t0)[3]);
if(C_truep(C_i_not(t2))){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8900,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:660: chicken.compiler.support#constant?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[145]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[145]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
else{
t3=C_i_car(((C_word*)t0)[3]);
if(C_truep(C_i_symbolp(t3))){
t4=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_8915,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=C_SCHEME_UNDEFINED,a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[4],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],a[18]=((C_word*)t0)[17],a[19]=((C_word*)t0)[18],a[20]=((C_word*)t0)[19],a[21]=((C_word*)t0)[20],a[22]=((C_word*)t0)[21],tmp=(C_word)a,a+=23,tmp);
C_trace(C_text("core.scm:664: chicken.syntax#get-line-number"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[114]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[114]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}
else{
t4=C_i_listp(((C_word*)t0)[3]);
if(C_truep(C_i_not(t4))){
C_trace(C_text("core.scm:1523: ##sys#syntax-error/context"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[143]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[143]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[486];
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}
else{
t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_14027,a[2]=((C_word*)t0)[19],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],tmp=(C_word)a,a+=12,tmp);
C_trace(C_text("core.scm:1525: chicken.compiler.support#constant?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[145]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[145]+1);
av2[1]=t5;
av2[2]=C_u_i_car(((C_word*)t0)[3]);
tp(3,av2);}}}}}}}

/* k8898 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8900(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_8900,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,2,lf[119],((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:662: ##sys#syntax-error/context"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[143]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[143]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=lf[144];
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}}

/* k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8915(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_8915,c,av);}
a=C_alloc(3);
t2=(C_truep(t1)?t1:((C_word*)t0)[12]);
t3=C_mutate(((C_word *)t0)+9,t2);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8921,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:665: chicken.compiler.support#emit-syntax-trace-info"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[485]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[485]+1);
av2[1]=t4;
av2[2]=((C_word*)t0)[2];
av2[3]=C_SCHEME_FALSE;
tp(4,av2);}}

/* k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8921(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_8921,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];
t3=C_mutate((C_word*)lf[146]+1 /* (set! ##sys#syntax-error-culprit ...) */,((C_word*)t2)[2]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8925,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:667: lookup"));
t5=((C_word*)((C_word*)t2)[16])[1];
f_8289(t5,t4,C_u_i_car(((C_word*)t2)[2]));}

/* k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8925(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){
C_save_and_reclaim((void *)f_8925,c,av);}
a=C_alloc(23);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_8928,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[10],a[11]=t1,a[12]=((C_word*)t2)[11],a[13]=((C_word*)t2)[12],a[14]=((C_word*)t2)[13],a[15]=((C_word*)t2)[14],a[16]=((C_word*)t2)[15],a[17]=((C_word*)t2)[16],a[18]=((C_word*)t2)[17],a[19]=((C_word*)t2)[18],a[20]=((C_word*)t2)[19],a[21]=((C_word*)t2)[20],a[22]=((C_word*)t2)[21],tmp=(C_word)a,a+=23,tmp);
C_trace(C_text("core.scm:670: handle-expansion-result"));
f_8336(t3,((C_word*)t2)[9]);}

/* k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8928(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){
C_save_and_reclaim((void *)f_8928,c,av);}
a=C_alloc(18);
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=C_SCHEME_FALSE;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8931,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13992,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13997,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14007,a[2]=t3,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:669: ##sys#dynamic-wind"));
t10=*((C_word*)lf[117]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t10;
av2[1]=t6;
av2[2]=t7;
av2[3]=t8;
av2[4]=t9;
((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}

/* k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8931(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,8)))){
C_save_and_reclaim((void *)f_8931,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];
t3=C_eqp(((C_word*)t2)[2],t1);
if(C_truep(C_i_not(t3))){
C_trace(C_text("core.scm:673: walk"));
t4=((C_word*)((C_word*)t2)[3])[1];
f_8869(t4,((C_word*)t2)[4],t1,((C_word*)t2)[5],((C_word*)t2)[6],((C_word*)t2)[7],((C_word*)t2)[8],((C_word*)t2)[9],((C_word*)t2)[10]);}
else{
t4=C_i_listp(((C_word*)t2)[2]);
if(C_truep(C_i_not(t4))){
if(C_truep(((C_word*)t2)[9])){
t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8956,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[2],a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t2)[9],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:677: scheme#open-output-string"));
t6=C_fast_retrieve(lf[134]);{
C_word *av2=av;
av2[0]=t6;
av2[1]=t5;
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:678: ##sys#syntax-error/context"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[143]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[143]+1);
av2[1]=((C_word*)t2)[4];
av2[2]=lf[148];
av2[3]=((C_word*)t2)[2];
tp(4,av2);}}}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8977,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:680: chicken.internal#hash-table-ref"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[136]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[136]+1);
av2[1]=t5;
av2[2]=*((C_word*)lf[68]+1);
av2[3]=((C_word*)t2)[11];
tp(4,av2);}}}}

/* k8954 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8956(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_8956,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+4,t1);
t3=C_i_check_port_2(((C_word*)t0)[4],C_fix(2),C_SCHEME_TRUE,lf[129]);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8962,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:677: ##sys#write-char-0"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[133]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[133]+1);
av2[1]=t4;
av2[2]=C_make_character(40);
av2[3]=((C_word*)t0)[4];
tp(4,av2);}}

/* k8960 in k8954 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8962(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_8962,c,av);}
a=C_alloc(5);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8965,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:677: ##sys#print"));
t4=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[5];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}

/* k8963 in k8960 in k8954 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8965(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_8965,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8968,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:677: ##sys#print"));
t3=*((C_word*)lf[131]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=lf[147];
av2[3]=C_SCHEME_FALSE;
av2[4]=((C_word*)t0)[4];
((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}

/* k8966 in k8963 in k8960 in k8954 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_8968(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_8968,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8971,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:677: scheme#get-output-string"));
t4=C_fast_retrieve(lf[130]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t2)[4];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k8969 in k8966 in k8963 in k8960 in k8954 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_8971(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_8971,c,av);}
C_trace(C_text("core.scm:677: ##sys#syntax-error/context"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[143]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[143]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
tp(4,av2);}}

/* k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_8977(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,8)))){
C_save_and_reclaim((void *)f_8977,c,av);}
a=C_alloc(12);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8981,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:672: g1080"));
t4=t3;
f_8981(t4,((C_word*)t2)[4],t1);}
else{
t3=C_eqp(((C_word*)t2)[11],lf[149]);
if(C_truep(t3)){
t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9009,a[2]=((C_word*)t2)[4],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[2],a[5]=((C_word*)t2)[3],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:689: walk"));
t5=((C_word*)((C_word*)t2)[3])[1];
f_8869(t5,t4,C_i_cadr(((C_word*)t2)[2]),((C_word*)t2)[5],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t2)[8],((C_word*)t2)[9],C_SCHEME_FALSE);}
else{
t4=C_eqp(((C_word*)t2)[11],lf[152]);
t5=(C_truep(t4)?t4:C_eqp(((C_word*)t2)[11],lf[153]));
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9055,a[2]=((C_word*)t2)[4],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:696: chicken.syntax#strip-syntax"));
t7=C_fast_retrieve(lf[154]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t7;
av2[1]=t6;
av2[2]=C_i_cadr(((C_word*)t2)[2]);
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
t6=C_eqp(((C_word*)t2)[11],lf[155]);
if(C_truep(t6)){
if(C_truep(C_fast_retrieve(lf[156]))){
t7=((C_word*)t2)[4];{
C_word *av2=av;
av2[0]=t7;
av2[1]=lf[157];
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:701: walk"));
t7=((C_word*)((C_word*)t2)[3])[1];
f_8869(t7,((C_word*)t2)[4],C_i_cadr(((C_word*)t2)[2]),((C_word*)t2)[5],((C_word*)t2)[6],((C_word*)t2)[7],((C_word*)t2)[8],((C_word*)t2)[9],((C_word*)t2)[10]);}}
else{
t7=C_eqp(((C_word*)t2)[11],lf[158]);
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9088,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[10],tmp=(C_word)a,a+=11,tmp);
C_trace(C_text("core.scm:705: chicken.syntax#strip-syntax"));
t9=C_fast_retrieve(lf[154]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t9;
av2[1]=t8;
av2[2]=C_i_cadr(((C_word*)t2)[2]);
((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}
else{
t8=C_eqp(((C_word*)t2)[11],lf[159]);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9113,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[12],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[13],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:710: resolve-variable"));
t10=((C_word*)((C_word*)t2)[12])[1];
f_8501(t10,t9,C_i_cadr(((C_word*)t2)[2]),((C_word*)t2)[5],((C_word*)t2)[6],((C_word*)t2)[7],((C_word*)t2)[8],((C_word*)t2)[13]);}
else{
t9=C_eqp(((C_word*)t2)[11],lf[163]);
if(C_truep(t9)){
t10=(C_truep(((C_word*)t2)[9])?((C_word*)t2)[9]:C_i_cadr(((C_word*)t2)[2]));
t11=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9196,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[6],a[5]=((C_word*)t2)[7],a[6]=((C_word*)t2)[8],a[7]=((C_word*)t2)[9],a[8]=((C_word*)t2)[10],a[9]=((C_word*)t2)[2],a[10]=t10,a[11]=((C_word*)t2)[4],tmp=(C_word)a,a+=12,tmp);
C_trace(C_text("core.scm:724: walk"));
t12=((C_word*)((C_word*)t2)[3])[1];
f_8869(t12,t11,C_i_caddr(((C_word*)t2)[2]),((C_word*)t2)[5],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t2)[8],((C_word*)t2)[9],((C_word*)t2)[10]);}
else{
t10=C_eqp(((C_word*)t2)[11],lf[164]);
if(C_truep(t10)){
t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9280,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:731: scheme#cadadr"));
t12=*((C_word*)lf[169]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t12;
av2[1]=t11;
av2[2]=((C_word*)t2)[2];
((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}
else{
t11=C_eqp(((C_word*)t2)[11],lf[170]);
t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9311,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
if(C_truep(t11)){
t13=t12;
f_9311(t13,t11);}
else{
t13=C_eqp(((C_word*)t2)[11],lf[482]);
t14=t12;
f_9311(t14,(C_truep(t13)?t13:C_eqp(((C_word*)t2)[11],lf[483])));}}}}}}}}}}

/* g1080 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_8981(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,8)))){
C_save_and_reclaim_args((void *)trf_8981,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_i_cdr(((C_word*)t0)[2]);
t4=C_a_i_cons(&a,2,t2,t3);
C_trace(C_text("core.scm:682: walk"));
t5=((C_word*)((C_word*)t0)[3])[1];
f_8869(t5,t1,t4,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* k9007 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_9009(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,8)))){
C_save_and_reclaim((void *)f_9009,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9013,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:690: walk"));
t4=((C_word*)((C_word*)t0)[5])[1];
f_8869(t4,t3,C_i_caddr(((C_word*)t0)[4]),((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* k9011 in k9007 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_9013(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(17,c,8)))){
C_save_and_reclaim((void *)f_9013,c,av);}
a=C_alloc(17);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9017,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t4=C_i_cdddr(((C_word*)t2)[4]);
if(C_truep(C_i_nullp(t4))){
t5=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t5;
av2[1]=C_a_i_list(&a,4,lf[150],((C_word*)t2)[3],t1,lf[151]);
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
else{
C_trace(C_text("core.scm:693: walk"));
t5=((C_word*)((C_word*)t2)[5])[1];
f_8869(t5,t3,C_i_cadddr(((C_word*)t2)[4]),((C_word*)t2)[6],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t2)[7],((C_word*)t2)[8],C_SCHEME_FALSE);}}

/* k9015 in k9011 in k9007 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_9017(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
C_save_and_reclaim((void *)f_9017,c,av);}
a=C_alloc(12);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,4,lf[150],((C_word*)t0)[3],((C_word*)t0)[4],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k9053 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_9055(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_9055,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,2,lf[119],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k9086 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_9088(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,8)))){
C_save_and_reclaim((void *)f_9088,c,av);}
a=C_alloc(5);
t2=C_i_caddr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9096,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:707: walk"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_8869(t4,t3,C_i_cadddr(((C_word*)t0)[2]),((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);}

/* k9094 in k9086 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_9096(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
C_save_and_reclaim((void *)f_9096,c,av);}
a=C_alloc(12);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,4,lf[158],((C_word*)t0)[3],((C_word*)t0)[4],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k9111 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_9113(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,7)))){
C_save_and_reclaim((void *)f_9113,c,av);}
a=C_alloc(7);
t2=C_i_caddr(((C_word*)t0)[2]);
t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9119,a[2]=t2,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:712: resolve-variable"));
t4=((C_word*)((C_word*)t0)[4])[1];
f_8501(t4,t3,t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);}

/* k9117 in k9111 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_9119(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
C_save_and_reclaim((void *)f_9119,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+3,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9122,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:713: ##sys#get"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[106]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[106]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[5];
av2[3]=lf[161];
av2[4]=C_SCHEME_END_OF_LIST;
tp(5,av2);}}

/* k9120 in k9117 in k9111 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_9122(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){
C_save_and_reclaim((void *)f_9122,c,av);}
a=C_alloc(18);
t2=((C_word*)t0)[2];
t3=C_SCHEME_UNDEFINED;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9123,a[2]=t4,a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[3],tmp=(C_word)a,a+=5,tmp);
t6=C_set_block_item(t4,0,t5);
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9155,a[2]=((C_word*)t2)[4],tmp=(C_word)a,a+=3,tmp);
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9159,a[2]=t7,a[3]=((C_word*)t2)[5],tmp=(C_word)a,a+=4,tmp);
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9163,a[2]=t8,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:718: resolve-alias"));
t10=((C_word*)t4)[1];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t10;
av2[1]=t9;
av2[2]=C_i_cdddr(((C_word*)t2)[6]);
((C_proc)C_fast_retrieve_proc(t10))(3,av2);}}

/* resolve-alias1105 in k9120 in k9117 in k9111 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_9123(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2=av[2];
C_word t3;
C_word t4;
C_word *a;
if(c!=3) C_bad_argc_2(c,3,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_9123,c,av);}
a=C_alloc(5);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9137,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:715: resolve-alias"));
t4=((C_word*)((C_word*)t0)[2])[1];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
av2[2]=C_u_i_car(t2);
((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}
else{
t3=C_eqp(t2,((C_word*)t0)[3]);
t4=t1;{
C_word *av2=av;
av2[0]=t4;
av2[1]=(C_truep(t3)?((C_word*)t0)[4]:t2);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}

/* k9135 in resolve-alias1105 in k9120 in k9117 in k9111 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_9137(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
C_save_and_reclaim((void *)f_9137,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9141,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:715: resolve-alias"));
t3=((C_word*)((C_word*)t0)[3])[1];{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=C_u_i_cdr(((C_word*)t0)[4]);
((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}

/* k9139 in k9135 in resolve-alias1105 in k9120 in k9117 in k9111 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_9141(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
C_save_and_reclaim((void *)f_9141,c,av);}
a=C_alloc(3);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k9153 in k9120 in k9117 in k9111 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_9155(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_9155,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[160];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k9157 in k9120 in k9117 in k9111 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_9159(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_9159,c,av);}
C_trace(C_text("core.scm:718: ##sys#put!"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[111]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[111]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=lf[161];
av2[4]=t1;
tp(5,av2);}}

/* k9161 in k9120 in k9117 in k9111 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_9163(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
C_save_and_reclaim((void *)f_9163,c,av);}
C_trace(C_text("core.scm:718: ##sys#append"));
t2=*((C_word*)lf[162]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=((C_word*)t0)[3];
av2[3]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}

/* k9194 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_9196(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){
C_save_and_reclaim((void *)f_9196,c,av);}
a=C_alloc(29);
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9201,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t0)[2],a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp);
t7=C_i_cdddr(((C_word*)t0)[9]);
t8=C_i_check_list_2(t7,lf[11]);
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9230,a[2]=t1,a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[11],tmp=(C_word)a,a+=5,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9232,a[2]=t4,a[3]=t11,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_9232(t13,t9,t7);}

/* g1129 in k9194 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_9201(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){
C_save_and_reclaim_args((void *)trf_9201,3,t0,t1,t2);}
a=C_alloc(3);
t3=C_mutate(((C_word *)t0)+4,t2);
t4=C_mutate(((C_word *)t0)+2,t1);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9209,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:726: chicken.syntax#strip-syntax"));
t6=C_fast_retrieve(lf[154]);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=C_i_car(((C_word*)t0)[4]);
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}

/* k9207 in g1129 in k9194 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_9209(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,8)))){
C_save_and_reclaim((void *)f_9209,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9213,a[2]=((C_word*)t2)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:727: walk"));
t4=((C_word*)((C_word*)t2)[3])[1];
f_8869(t4,t3,C_i_cadr(((C_word*)t2)[4]),((C_word*)t2)[5],((C_word*)t2)[6],((C_word*)t2)[7],((C_word*)t2)[8],((C_word*)t2)[9],((C_word*)t2)[10]);}

/* k9211 in k9207 in g1129 in k9194 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_9213(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_9213,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k9228 in k9194 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_9230(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_9230,c,av);}
a=C_alloc(9);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2);
t4=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_a_i_cons(&a,2,lf[163],t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}

/* map-loop1123 in k9194 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_9232(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_9232,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9257,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:725: g1129"));
t4=((C_word*)t0)[4];
f_9201(t4,t3,C_slot(t2,C_fix(0)));}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k9255 in map-loop1123 in k9194 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_9257(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9257,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_9232(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k9278 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_9280(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9280,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+2,t1);
t3=C_i_assoc(((C_word*)t0)[2],*((C_word*)lf[67]+1));
if(C_truep(t3)){
t4=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t4;
av2[1]=C_i_cdr(t3);
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9292,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:734: chicken.base#gensym"));
t5=*((C_word*)lf[112]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=lf[168];
((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}

/* k9290 in k9278 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_9292(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
C_save_and_reclaim((void *)f_9292,c,av);}
a=C_alloc(10);
t2=((C_word*)t0)[2];
t3=*((C_word*)lf[67]+1);
t4=C_a_i_cons(&a,2,((C_word*)t2)[2],t1);
t5=C_a_i_cons(&a,2,t4,*((C_word*)lf[67]+1));
t6=C_mutate((C_word*)lf[67]+1 /* (set! chicken.compiler.core#immutable-constants ...) */,t5);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9299,a[2]=((C_word*)t2)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:736: chicken.compiler.support#mark-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[166]);
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=*((C_word*)lf[166]+1);
av2[1]=t7;
av2[2]=t1;
av2[3]=lf[167];
tp(4,av2);}}

/* k9297 in k9290 in k9278 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_9299(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9299,c,av);}
a=C_alloc(3);
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9302,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:737: chicken.compiler.support#hide-variable"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[165]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[165]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[3];
tp(3,av2);}}

/* k9300 in k9297 in k9290 in k9278 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_9302(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_9302,c,av);}
t2=((C_word*)t0)[2];
t3=((C_word*)t2)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)t2)[3];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_9311(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word t24;
C_word t25;
C_word t26;
C_word t27;
C_word t28;
C_word t29;
C_word t30;
C_word t31;
C_word t32;
C_word t33;
C_word t34;
C_word t35;
C_word t36;
C_word t37;
C_word t38;
C_word t39;
C_word t40;
C_word t41;
C_word t42;
C_word t43;
C_word t44;
C_word t45;
C_word t46;
C_word t47;
C_word t48;
C_word t49;
C_word t50;
C_word t51;
C_word t52;
C_word t53;
C_word t54;
C_word t55;
C_word t56;
C_word t57;
C_word t58;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(33,0,9)))){
C_save_and_reclaim_args((void *)trf_9311,2,t0,t1);}
a=C_alloc(33);
t2=((C_word*)t0)[2];
if(C_truep(t1)){
t3=((C_word*)t2)[4];{
C_word av2[2];
av2[0]=t3;
av2[1]=((C_word*)t2)[2];
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}
else{
t3=C_eqp(((C_word*)t2)[11],lf[171]);
if(C_truep(t3)){
t4=C_i_cadr(((C_word*)t2)[2]);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9324,a[2]=((C_word*)t2)[4],a[3]=t4,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:744: lset-adjoin/eq?"));
f_7579(t5,*((C_word*)lf[22]+1),C_a_i_list(&a,1,t4));}
else{
t4=C_eqp(((C_word*)t2)[11],lf[120]);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9344,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[2],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:749: scheme#caadr"));
t6=*((C_word*)lf[172]+1);{
C_word av2[3];
av2[0]=t6;
av2[1]=t5;
av2[2]=((C_word*)t2)[2];
((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}
else{
t5=C_eqp(((C_word*)t2)[11],lf[124]);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9365,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[2],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:753: chicken.syntax#strip-syntax"));
t7=C_fast_retrieve(lf[154]);{
C_word av2[3];
av2[0]=t7;
av2[1]=t6;
av2[2]=C_i_cadr(((C_word*)t2)[2]);
((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}
else{
t6=C_eqp(((C_word*)t2)[11],lf[173]);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9386,a[2]=((C_word*)t2)[4],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:757: chicken.load#load-extension"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[175]);
C_word av2[5];
av2[0]=*((C_word*)lf[175]+1);
av2[1]=t7;
av2[2]=C_i_cadr(((C_word*)t2)[2]);
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_FALSE;
tp(5,av2);}}
else{
t7=C_eqp(((C_word*)t2)[11],lf[176]);
if(C_truep(t7)){
t8=C_i_cadr(((C_word*)t2)[2]);
t9=C_u_i_cdr(((C_word*)t2)[2]);
t10=C_i_pairp(C_u_i_cdr(t9));
t11=(C_truep(t10)?C_i_caddr(((C_word*)t2)[2]):C_SCHEME_FALSE);
t12=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9405,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],a[9]=t8,a[10]=t11,tmp=(C_word)a,a+=11,tmp);
t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9425,a[2]=t12,a[3]=t8,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:763: chicken.load#core-library?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[180]);
C_word av2[3];
av2[0]=*((C_word*)lf[180]+1);
av2[1]=t13;
av2[2]=t8;
tp(3,av2);}}
else{
t8=C_eqp(((C_word*)t2)[11],lf[181]);
if(C_truep(t8)){
t9=C_i_cadr(((C_word*)t2)[2]);
t10=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9450,a[2]=((C_word*)t2)[13],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[8],a[6]=t9,a[7]=((C_word*)t2)[4],a[8]=((C_word*)t2)[6],a[9]=((C_word*)t2)[7],a[10]=((C_word*)t2)[14],a[11]=((C_word*)t2)[2],a[12]=((C_word*)t2)[15],tmp=(C_word)a,a+=13,tmp);
C_trace(C_text("core.scm:774: unzip1"));
f_7469(t10,t9);}
else{
t9=C_eqp(((C_word*)t2)[11],lf[184]);
if(C_truep(t9)){
t10=C_i_cadr(((C_word*)t2)[2]);
t11=C_u_i_cdr(((C_word*)t2)[2]);
t12=C_u_i_cdr(t11);
t13=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t14=t13;
t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
t16=((C_word*)t15)[1];
t17=C_i_check_list_2(t10,lf[11]);
t18=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9678,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],a[9]=t12,a[10]=t10,tmp=(C_word)a,a+=11,tmp);
t19=C_SCHEME_UNDEFINED;
t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp);
t21=C_set_block_item(t20,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9750,a[2]=t15,a[3]=t20,a[4]=t16,tmp=(C_word)a,a+=5,tmp));
t22=((C_word*)t20)[1];
f_9750(t22,t18,t10);}
else{
t10=C_eqp(((C_word*)t2)[11],lf[187]);
if(C_truep(t10)){
t11=C_i_cadr(((C_word*)t2)[2]);
t12=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9794,a[2]=((C_word*)t2)[2],a[3]=t11,a[4]=((C_word*)t2)[9],a[5]=((C_word*)t2)[3],a[6]=((C_word*)t2)[4],a[7]=((C_word*)t2)[5],a[8]=((C_word*)t2)[6],a[9]=((C_word*)t2)[7],a[10]=((C_word*)t2)[8],tmp=(C_word)a,a+=11,tmp);
C_trace(C_text("core.scm:805: unzip1"));
f_7469(t12,t11);}
else{
t11=C_eqp(((C_word*)t2)[11],lf[188]);
if(C_truep(t11)){
t12=C_i_caddr(((C_word*)t2)[2]);
t13=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t14=t13;
t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
t16=((C_word*)t15)[1];
t17=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10068,a[2]=t12,a[3]=((C_word*)t2)[12],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[13],tmp=(C_word)a,a+=9,tmp);
t18=C_u_i_cdr(((C_word*)t2)[2]);
t19=C_u_i_car(t18);
t20=C_i_check_list_2(t19,lf[11]);
t21=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10084,a[2]=((C_word*)t2)[16],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[2],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[4],tmp=(C_word)a,a+=11,tmp);
t22=C_SCHEME_UNDEFINED;
t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp);
t24=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10112,a[2]=t15,a[3]=t23,a[4]=t17,a[5]=t16,tmp=(C_word)a,a+=6,tmp));
t25=((C_word*)t23)[1];
f_10112(t25,t21,t19);}
else{
t12=C_eqp(((C_word*)t2)[11],lf[100]);
if(C_truep(t12)){
t13=C_i_cadr(((C_word*)t2)[2]);
t14=t13;
t15=(*a=C_VECTOR_TYPE|1,a[1]=t14,tmp=(C_word)a,a+=2,tmp);
t16=C_u_i_cdr(((C_word*)t2)[2]);
t17=C_u_i_cdr(t16);
t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp);
t19=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_10158,a[2]=((C_word*)t2)[13],a[3]=((C_word*)t2)[6],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[7],a[6]=((C_word*)t2)[15],a[7]=((C_word*)t2)[16],a[8]=((C_word*)t2)[3],a[9]=((C_word*)t2)[14],a[10]=t18,a[11]=((C_word*)t2)[2],a[12]=((C_word*)t2)[4],a[13]=t15,tmp=(C_word)a,a+=14,tmp);
t20=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10370,a[2]=t15,a[3]=t18,a[4]=t19,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:837: ##sys#extended-lambda-list?"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[201]);
C_word av2[3];
av2[0]=*((C_word*)lf[201]+1);
av2[1]=t20;
av2[2]=((C_word*)t15)[1];
tp(3,av2);}}
else{
t13=C_eqp(((C_word*)t2)[11],lf[202]);
if(C_truep(t13)){
t14=C_fast_retrieve(lf[110]);
t15=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10397,a[2]=t14,a[3]=((C_word*)t2)[13],a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[14],a[10]=((C_word*)t2)[2],a[11]=((C_word*)t2)[4],tmp=(C_word)a,a+=12,tmp);
t16=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t17=t16;
t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp);
t19=((C_word*)t18)[1];
t20=C_i_cadr(((C_word*)t2)[2]);
t21=C_i_check_list_2(t20,lf[11]);
t22=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10487,a[2]=t15,a[3]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=4,tmp);
t23=C_SCHEME_UNDEFINED;
t24=(*a=C_VECTOR_TYPE|1,a[1]=t23,tmp=(C_word)a,a+=2,tmp);
t25=C_set_block_item(t24,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10493,a[2]=t18,a[3]=t24,a[4]=t19,tmp=(C_word)a,a+=5,tmp));
t26=((C_word*)t24)[1];
f_10493(t26,t22,t20);}
else{
t14=C_eqp(((C_word*)t2)[11],lf[205]);
if(C_truep(t14)){
t15=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t16=t15;
t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp);
t18=((C_word*)t17)[1];
t19=C_i_cadr(((C_word*)t2)[2]);
t20=C_i_check_list_2(t19,lf[11]);
t21=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10566,a[2]=((C_word*)t2)[13],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[14],a[9]=((C_word*)t2)[2],a[10]=((C_word*)t2)[4],tmp=(C_word)a,a+=11,tmp);
t22=C_SCHEME_UNDEFINED;
t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp);
t24=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10663,a[2]=t17,a[3]=t23,a[4]=t18,tmp=(C_word)a,a+=5,tmp));
t25=((C_word*)t23)[1];
f_10663(t25,t21,t19);}
else{
t15=C_eqp(((C_word*)t2)[11],lf[206]);
if(C_truep(t15)){
t16=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10704,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],a[9]=((C_word*)t2)[17],a[10]=((C_word*)t2)[2],tmp=(C_word)a,a+=11,tmp);
t17=C_u_i_car(((C_word*)t2)[2]);
t18=C_i_cadr(((C_word*)t2)[2]);
t19=C_i_pairp(t18);
t20=(C_truep(t19)?lf[216]:lf[217]);
t21=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10797,a[2]=t16,a[3]=t17,a[4]=((C_word*)t2)[2],a[5]=t20,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:928: ##sys#current-environment"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[110]);
C_word av2[2];
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t21;
tp(2,av2);}}
else{
t16=C_eqp(((C_word*)t2)[11],lf[219]);
if(C_truep(t16)){
t17=C_i_cadr(((C_word*)t2)[2]);
t18=C_i_caddr(((C_word*)t2)[2]);
t19=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10819,a[2]=t18,a[3]=t17,a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[4],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[7],a[9]=((C_word*)t2)[8],a[10]=((C_word*)t2)[9],a[11]=((C_word*)t2)[18],tmp=(C_word)a,a+=12,tmp);
C_trace(C_text("core.scm:951: lookup"));
t20=((C_word*)((C_word*)t2)[17])[1];
f_8289(t20,t19,t17);}
else{
t17=C_eqp(((C_word*)t2)[11],lf[223]);
if(C_truep(t17)){
t18=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t19=t18;
t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp);
t21=((C_word*)t20)[1];
t22=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10899,a[2]=C_SCHEME_UNDEFINED,a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[17],tmp=(C_word)a,a+=5,tmp);
t23=C_i_cadr(((C_word*)t2)[2]);
t24=C_i_check_list_2(t23,lf[11]);
t25=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_10956,a[2]=((C_word*)t2)[13],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[10],a[10]=((C_word*)t2)[14],a[11]=((C_word*)t2)[2],a[12]=((C_word*)t2)[4],tmp=(C_word)a,a+=13,tmp);
t26=C_SCHEME_UNDEFINED;
t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp);
t28=C_set_block_item(t27,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11071,a[2]=t20,a[3]=t27,a[4]=t22,a[5]=t21,tmp=(C_word)a,a+=6,tmp));
t29=((C_word*)t27)[1];
f_11071(t29,t25,t23);}
else{
t18=C_eqp(((C_word*)t2)[11],lf[227]);
if(C_truep(t18)){
C_trace(C_text("core.scm:1016: include-file"));
t19=((C_word*)((C_word*)t2)[19])[1];
f_8809(t19,((C_word*)t2)[4],((C_word*)t2)[2],C_SCHEME_FALSE,((C_word*)t2)[5],((C_word*)t2)[6],((C_word*)t2)[7],((C_word*)t2)[8],((C_word*)t2)[9],((C_word*)t2)[10]);}
else{
t19=C_eqp(((C_word*)t2)[11],lf[228]);
if(C_truep(t19)){
C_trace(C_text("core.scm:1019: include-file"));
t20=((C_word*)((C_word*)t2)[19])[1];
f_8809(t20,((C_word*)t2)[4],((C_word*)t2)[2],C_SCHEME_TRUE,((C_word*)t2)[5],((C_word*)t2)[6],((C_word*)t2)[7],((C_word*)t2)[8],((C_word*)t2)[9],((C_word*)t2)[10]);}
else{
t20=C_eqp(((C_word*)t2)[11],lf[229]);
if(C_truep(t20)){
t21=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t22=t21;
t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp);
t24=((C_word*)t23)[1];
t25=C_i_cadr(((C_word*)t2)[2]);
t26=C_i_check_list_2(t25,lf[11]);
t27=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11151,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],a[9]=((C_word*)t2)[4],tmp=(C_word)a,a+=10,tmp);
t28=C_SCHEME_UNDEFINED;
t29=(*a=C_VECTOR_TYPE|1,a[1]=t28,tmp=(C_word)a,a+=2,tmp);
t30=C_set_block_item(t29,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11167,a[2]=t23,a[3]=t29,a[4]=t24,tmp=(C_word)a,a+=5,tmp));
t31=((C_word*)t29)[1];
f_11167(t31,t27,t25);}
else{
t21=C_eqp(((C_word*)t2)[11],lf[233]);
if(C_truep(t21)){
t22=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11208,a[2]=((C_word*)t2)[18],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[8],a[7]=((C_word*)t2)[9],a[8]=((C_word*)t2)[10],a[9]=C_SCHEME_UNDEFINED,a[10]=C_SCHEME_UNDEFINED,a[11]=((C_word*)t2)[2],tmp=(C_word)a,a+=12,tmp);
C_trace(C_text("core.scm:1031: chicken.syntax#strip-syntax"));
t23=C_fast_retrieve(lf[154]);{
C_word av2[3];
av2[0]=t23;
av2[1]=t22;
av2[2]=C_i_cadr(((C_word*)t2)[2]);
((C_proc)(void*)(*((C_word*)t23+1)))(3,av2);}}
else{
t22=C_eqp(((C_word*)t2)[11],lf[282]);
if(C_truep(t22)){
t23=C_i_cadr(((C_word*)t2)[2]);
t24=C_u_i_cdr(((C_word*)t2)[2]);
t25=C_u_i_cdr(t24);
t26=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t27=t26;
t28=(*a=C_VECTOR_TYPE|1,a[1]=t27,tmp=(C_word)a,a+=2,tmp);
t29=((C_word*)t28)[1];
t30=C_i_check_list_2(t23,lf[11]);
t31=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11784,a[2]=((C_word*)t2)[13],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[15],a[5]=t23,a[6]=((C_word*)t2)[3],a[7]=((C_word*)t2)[6],a[8]=((C_word*)t2)[5],a[9]=((C_word*)t2)[14],a[10]=t25,a[11]=((C_word*)t2)[2],tmp=(C_word)a,a+=12,tmp);
t32=C_SCHEME_UNDEFINED;
t33=(*a=C_VECTOR_TYPE|1,a[1]=t32,tmp=(C_word)a,a+=2,tmp);
t34=C_set_block_item(t33,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11849,a[2]=t28,a[3]=t33,a[4]=t29,tmp=(C_word)a,a+=5,tmp));
t35=((C_word*)t33)[1];
f_11849(t35,t31,t23);}
else{
t23=C_eqp(((C_word*)t2)[11],lf[283]);
if(C_truep(t23)){
t24=C_i_cadr(((C_word*)t2)[2]);
t25=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11893,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[10],a[4]=((C_word*)t2)[2],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1131: lookup"));
t26=((C_word*)((C_word*)t2)[17])[1];
f_8289(t26,t25,t24);}
else{
t24=C_eqp(((C_word*)t2)[11],lf[185]);
if(C_truep(t24)){
t25=C_i_cadr(((C_word*)t2)[2]);
t26=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11939,a[2]=((C_word*)t2)[2],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[8],a[7]=((C_word*)t2)[4],a[8]=t25,a[9]=((C_word*)t2)[6],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:1143: lookup"));
t27=((C_word*)((C_word*)t2)[17])[1];
f_8289(t27,t26,t25);}
else{
t25=C_eqp(((C_word*)t2)[11],lf[196]);
if(C_truep(t25)){
t26=C_i_cadr(((C_word*)t2)[2]);
t27=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t28=t27;
t29=(*a=C_VECTOR_TYPE|1,a[1]=t28,tmp=(C_word)a,a+=2,tmp);
t30=((C_word*)t29)[1];
t31=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12312,a[2]=((C_word*)t2)[20],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[8],a[6]=((C_word*)t2)[9],a[7]=((C_word*)t2)[10],tmp=(C_word)a,a+=8,tmp);
t32=C_u_i_cdr(((C_word*)t2)[2]);
t33=C_u_i_cdr(t32);
t34=C_i_check_list_2(t33,lf[11]);
t35=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12328,a[2]=((C_word*)t2)[9],a[3]=t26,a[4]=((C_word*)t2)[4],tmp=(C_word)a,a+=5,tmp);
t36=C_SCHEME_UNDEFINED;
t37=(*a=C_VECTOR_TYPE|1,a[1]=t36,tmp=(C_word)a,a+=2,tmp);
t38=C_set_block_item(t37,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12330,a[2]=t29,a[3]=t37,a[4]=t31,a[5]=t30,tmp=(C_word)a,a+=6,tmp));
t39=((C_word*)t37)[1];
f_12330(t39,t35,t33);}
else{
t26=C_eqp(((C_word*)t2)[11],lf[308]);
if(C_truep(t26)){
t27=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12379,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[21],a[4]=((C_word*)t2)[2],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[8],a[7]=((C_word*)t2)[9],tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("core.scm:1207: unquotify"));
t28=((C_word*)((C_word*)t2)[20])[1];
f_8458(t28,t27,C_i_cadr(((C_word*)t2)[2]));}
else{
t27=C_eqp(((C_word*)t2)[11],lf[309]);
if(C_truep(t27)){
t28=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t29=t28;
t30=(*a=C_VECTOR_TYPE|1,a[1]=t29,tmp=(C_word)a,a+=2,tmp);
t31=((C_word*)t30)[1];
t32=C_i_cadr(((C_word*)t2)[2]);
t33=C_i_check_list_2(t32,lf[11]);
t34=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12417,a[2]=((C_word*)t2)[4],a[3]=((C_word*)t2)[21],a[4]=((C_word*)t2)[2],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[8],a[7]=((C_word*)t2)[9],tmp=(C_word)a,a+=8,tmp);
t35=C_SCHEME_UNDEFINED;
t36=(*a=C_VECTOR_TYPE|1,a[1]=t35,tmp=(C_word)a,a+=2,tmp);
t37=C_set_block_item(t36,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12427,a[2]=t30,a[3]=t36,a[4]=((C_word*)t2)[20],a[5]=t31,tmp=(C_word)a,a+=6,tmp));
t38=((C_word*)t36)[1];
f_12427(t38,t34,t32);}
else{
t28=C_eqp(((C_word*)t2)[11],lf[288]);
if(C_truep(t28)){
t29=C_i_cadr(((C_word*)t2)[2]);
t30=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12476,a[2]=((C_word*)t2)[4],a[3]=t29,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1215: walk"));
t31=((C_word*)((C_word*)t2)[3])[1];
f_8869(t31,t30,C_i_caddr(((C_word*)t2)[2]),((C_word*)t2)[5],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t2)[8],((C_word*)t2)[9],C_SCHEME_FALSE);}
else{
t29=C_eqp(((C_word*)t2)[11],lf[291]);
if(C_truep(t29)){
t30=C_i_cadr(((C_word*)t2)[2]);
t31=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12497,a[2]=((C_word*)t2)[4],a[3]=t30,a[4]=((C_word*)t2)[3],a[5]=((C_word*)t2)[2],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:1220: walk"));
t32=((C_word*)((C_word*)t2)[3])[1];
f_8869(t32,t31,C_i_caddr(((C_word*)t2)[2]),((C_word*)t2)[5],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t2)[8],((C_word*)t2)[9],C_SCHEME_FALSE);}
else{
t30=C_eqp(((C_word*)t2)[11],lf[310]);
t31=(C_truep(t30)?t30:C_eqp(((C_word*)t2)[11],lf[311]));
if(C_truep(t31)){
t32=C_i_cadr(((C_word*)t2)[2]);
t33=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12524,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=t32,a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],a[9]=((C_word*)t2)[10],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:1225: ##sys#eval/meta"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[204]);
C_word av2[3];
av2[0]=*((C_word*)lf[204]+1);
av2[1]=t33;
av2[2]=t32;
tp(3,av2);}}
else{
t32=C_eqp(((C_word*)t2)[11],lf[312]);
t33=(C_truep(t32)?t32:C_eqp(((C_word*)t2)[11],lf[313]));
if(C_truep(t33)){
t34=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12539,a[2]=((C_word*)t2)[4],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:1229: ##sys#eval/meta"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[204]);
C_word av2[3];
av2[0]=*((C_word*)lf[204]+1);
av2[1]=t34;
av2[2]=C_i_cadr(((C_word*)t2)[2]);
tp(3,av2);}}
else{
t34=C_eqp(((C_word*)t2)[11],lf[141]);
if(C_truep(t34)){
if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t2)[2])))){
t35=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12562,a[2]=((C_word*)t2)[4],tmp=(C_word)a,a+=3,tmp);
t36=C_u_i_cdr(((C_word*)t2)[2]);
t37=C_SCHEME_UNDEFINED;
t38=(*a=C_VECTOR_TYPE|1,a[1]=t37,tmp=(C_word)a,a+=2,tmp);
t39=C_set_block_item(t38,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12566,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[6],a[5]=((C_word*)t2)[7],a[6]=((C_word*)t2)[8],a[7]=((C_word*)t2)[9],a[8]=((C_word*)t2)[10],a[9]=t38,tmp=(C_word)a,a+=10,tmp));
t40=((C_word*)t38)[1];
f_12566(t40,t35,t36);}
else{
t35=((C_word*)t2)[4];{
C_word av2[2];
av2[0]=t35;
av2[1]=lf[315];
((C_proc)(void*)(*((C_word*)t35+1)))(2,av2);}}}
else{
t35=C_eqp(((C_word*)t2)[11],lf[316]);
if(C_truep(t35)){
t36=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12610,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:1244: expand-foreign-lambda"));
f_16660(t36,((C_word*)t2)[2],C_SCHEME_FALSE);}
else{
t36=C_eqp(((C_word*)t2)[11],lf[318]);
if(C_truep(t36)){
t37=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12623,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:1247: expand-foreign-lambda"));
f_16660(t37,((C_word*)t2)[2],C_SCHEME_TRUE);}
else{
t37=C_eqp(((C_word*)t2)[11],lf[319]);
if(C_truep(t37)){
t38=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12636,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:1250: expand-foreign-lambda*"));
f_16697(t38,((C_word*)t2)[2],C_SCHEME_FALSE);}
else{
t38=C_eqp(((C_word*)t2)[11],lf[321]);
if(C_truep(t38)){
t39=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12649,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:1253: expand-foreign-lambda*"));
f_16697(t39,((C_word*)t2)[2],C_SCHEME_TRUE);}
else{
t39=C_eqp(((C_word*)t2)[11],lf[322]);
if(C_truep(t39)){
t40=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12662,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[6],a[6]=((C_word*)t2)[7],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[9],tmp=(C_word)a,a+=9,tmp);
t41=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16814,a[2]=t40,a[3]=C_SCHEME_UNDEFINED,a[4]=C_SCHEME_UNDEFINED,a[5]=((C_word*)t2)[2],tmp=(C_word)a,a+=6,tmp);
t42=C_i_cddr(((C_word*)t2)[2]);
if(C_truep(C_i_pairp(t42))){
t43=C_i_caddr(((C_word*)t2)[2]);
t44=t41;
f_16814(t44,C_i_not(C_i_stringp(t43)));}
else{
t43=t41;
f_16814(t43,C_SCHEME_FALSE);}}
else{
t40=C_eqp(((C_word*)t2)[11],lf[327]);
if(C_truep(t40)){
t41=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12671,a[2]=C_SCHEME_UNDEFINED,a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[2],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:1259: chicken.syntax#strip-syntax"));
t42=C_fast_retrieve(lf[154]);{
C_word av2[3];
av2[0]=t42;
av2[1]=t41;
av2[2]=C_i_cadr(((C_word*)t2)[2]);
((C_proc)(void*)(*((C_word*)t42+1)))(3,av2);}}
else{
t41=C_eqp(((C_word*)t2)[11],lf[329]);
if(C_truep(t41)){
t42=C_i_cadr(((C_word*)t2)[2]);
t43=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12718,a[2]=((C_word*)t2)[2],a[3]=((C_word*)t2)[3],a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[5],a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[10],a[11]=t42,tmp=(C_word)a,a+=12,tmp);
C_trace(C_text("core.scm:1271: chicken.syntax#strip-syntax"));
t44=C_fast_retrieve(lf[154]);{
C_word av2[3];
av2[0]=t44;
av2[1]=t43;
av2[2]=C_i_caddr(((C_word*)t2)[2]);
((C_proc)(void*)(*((C_word*)t44+1)))(3,av2);}}
else{
t42=C_eqp(((C_word*)t2)[11],lf[337]);
if(C_truep(t42)){
t43=C_i_cadr(((C_word*)t2)[2]);
t44=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12840,a[2]=C_SCHEME_UNDEFINED,a[3]=C_SCHEME_UNDEFINED,a[4]=C_SCHEME_UNDEFINED,a[5]=t43,a[6]=((C_word*)t2)[4],a[7]=((C_word*)t2)[2],a[8]=((C_word*)t2)[10],a[9]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:1304: chicken.syntax#get-line-number"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[114]);
C_word av2[3];
av2[0]=*((C_word*)lf[114]+1);
av2[1]=t44;
av2[2]=((C_word*)t2)[2];
tp(3,av2);}}
else{
t43=C_eqp(((C_word*)t2)[11],lf[346]);
if(C_truep(t43)){
t44=C_i_cadr(((C_word*)t2)[2]);
t45=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_12927,a[2]=t44,a[3]=C_SCHEME_UNDEFINED,a[4]=C_SCHEME_UNDEFINED,a[5]=C_SCHEME_UNDEFINED,a[6]=((C_word*)t2)[3],a[7]=((C_word*)t2)[5],a[8]=((C_word*)t2)[6],a[9]=((C_word*)t2)[7],a[10]=((C_word*)t2)[8],a[11]=((C_word*)t2)[9],a[12]=C_SCHEME_UNDEFINED,a[13]=((C_word*)t2)[2],a[14]=C_SCHEME_UNDEFINED,a[15]=((C_word*)t2)[4],tmp=(C_word)a,a+=16,tmp);
C_trace(C_text("core.scm:1324: chicken.syntax#strip-syntax"));
t46=C_fast_retrieve(lf[154]);{
C_word av2[3];
av2[0]=t46;
av2[1]=t45;
av2[2]=C_i_caddr(((C_word*)t2)[2]);
((C_proc)(void*)(*((C_word*)t46+1)))(3,av2);}}
else{
t44=C_eqp(((C_word*)t2)[11],lf[350]);
if(C_truep(t44)){
t45=C_i_cadr(((C_word*)t2)[2]);
t46=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13122,a[2]=((C_word*)t2)[4],a[3]=t45,a[4]=((C_word*)t2)[10],a[5]=((C_word*)t2)[2],tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:1352: scheme#cdaddr"));
t47=*((C_word*)lf[356]+1);{
C_word av2[3];
av2[0]=t47;
av2[1]=t46;
av2[2]=((C_word*)t2)[2];
((C_proc)(void*)(*((C_word*)t47+1)))(3,av2);}}
else{
t45=C_eqp(((C_word*)t2)[11],lf[357]);
if(C_truep(t45)){
t46=C_i_cadr(((C_word*)t2)[2]);
t47=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13134,a[2]=((C_word*)t2)[2],a[3]=t46,a[4]=((C_word*)t2)[4],a[5]=((C_word*)t2)[3],a[6]=((C_word*)t2)[5],a[7]=((C_word*)t2)[8],a[8]=((C_word*)t2)[10],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:1364: chicken.syntax#get-line-number"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[114]);
C_word av2[3];
av2[0]=*((C_word*)lf[114]+1);
av2[1]=t47;
av2[2]=((C_word*)t2)[2];
tp(3,av2);}}
else{
t46=C_eqp(((C_word*)t2)[11],lf[372]);
if(C_truep(t46)){
t47=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t48=t47;
t49=(*a=C_VECTOR_TYPE|1,a[1]=t48,tmp=(C_word)a,a+=2,tmp);
t50=((C_word*)t49)[1];
t51=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13333,a[2]=((C_word*)t2)[5],a[3]=((C_word*)t2)[17],tmp=(C_word)a,a+=4,tmp);
t52=C_u_i_cdr(((C_word*)t2)[2]);
t53=C_i_check_list_2(t52,lf[11]);
t54=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13354,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[8],a[6]=((C_word*)t2)[9],tmp=(C_word)a,a+=7,tmp);
t55=C_SCHEME_UNDEFINED;
t56=(*a=C_VECTOR_TYPE|1,a[1]=t55,tmp=(C_word)a,a+=2,tmp);
t57=C_set_block_item(t56,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13356,a[2]=t49,a[3]=t56,a[4]=t51,a[5]=t50,tmp=(C_word)a,a+=6,tmp));
t58=((C_word*)t56)[1];
f_13356(t58,t54,t52);}
else{
t47=C_eqp(((C_word*)t2)[11],lf[454]);
if(C_truep(t47)){
t48=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13399,a[2]=((C_word*)t2)[2],tmp=(C_word)a,a+=3,tmp);
t49=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13409,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[8],a[5]=((C_word*)t2)[9],a[6]=((C_word*)t2)[22],a[7]=((C_word*)t2)[21],a[8]=((C_word*)t2)[2],a[9]=((C_word*)t2)[6],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:1408: ##sys#call-with-values"));{
C_word av2[4];
av2[0]=0;
av2[1]=((C_word*)t2)[4];
av2[2]=t48;
av2[3]=t49;
C_call_with_values(4,av2);}}
else{
t48=C_eqp(((C_word*)t2)[11],lf[478]);
if(C_truep(t48)){
t49=C_i_cadr(((C_word*)t2)[2]);
if(C_truep(C_i_symbolp(t49))){
t50=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13790,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[5],a[4]=((C_word*)t2)[8],a[5]=((C_word*)t2)[9],a[6]=((C_word*)t2)[4],a[7]=t49,tmp=(C_word)a,a+=8,tmp);
C_trace(C_text("core.scm:1492: lookup"));
t51=((C_word*)((C_word*)t2)[17])[1];
f_8289(t51,t50,t49);}
else{
t50=C_a_i_list(&a,2,lf[153],lf[479]);
t51=C_a_i_list(&a,5,lf[480],t49,C_fix(0),C_SCHEME_FALSE,t50);
C_trace(C_text("core.scm:1505: walk"));
t52=((C_word*)((C_word*)t2)[3])[1];
f_8869(t52,((C_word*)t2)[4],t51,((C_word*)t2)[5],C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t2)[8],((C_word*)t2)[9],C_SCHEME_FALSE);}}
else{
t49=C_a_i_cons(&a,2,((C_word*)t2)[11],C_fast_retrieve(lf[481]));
t50=t49;
t51=(*a=C_VECTOR_TYPE|1,a[1]=t50,tmp=(C_word)a,a+=2,tmp);
t52=C_SCHEME_FALSE;
t53=(*a=C_VECTOR_TYPE|1,a[1]=t52,tmp=(C_word)a,a+=2,tmp);
t54=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13807,a[2]=((C_word*)t2)[4],a[3]=C_SCHEME_UNDEFINED,a[4]=((C_word*)t2)[9],a[5]=((C_word*)t2)[11],a[6]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=7,tmp);
t55=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13836,a[2]=t53,a[3]=t51,tmp=(C_word)a,a+=4,tmp);
t56=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13841,a[2]=((C_word*)t2)[21],a[3]=((C_word*)t2)[2],a[4]=((C_word*)t2)[5],a[5]=((C_word*)t2)[8],a[6]=((C_word*)t2)[9],a[7]=((C_word*)t2)[10],tmp=(C_word)a,a+=8,tmp);
t57=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13847,a[2]=t51,a[3]=t53,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:1510: ##sys#dynamic-wind"));
t58=*((C_word*)lf[117]+1);{
C_word av2[5];
av2[0]=t58;
av2[1]=t54;
av2[2]=t55;
av2[3]=t56;
av2[4]=t57;
((C_proc)(void*)(*((C_word*)t58+1)))(5,av2);}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}

/* k9322 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_9324(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_9324,c,av);}
a=C_alloc(6);
t2=C_mutate((C_word*)lf[22]+1 /* (set! chicken.compiler.core#used-units ...) */,t1);
t3=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list(&a,2,lf[171],((C_word*)t0)[3]);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k9342 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_9344(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){
C_save_and_reclaim((void *)f_9344,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9348,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9352,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:749: scheme#cadadr"));
t4=*((C_word*)lf[169]+1);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t4;
av2[1]=t3;
av2[2]=((C_word*)t0)[3];
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}

/* k9346 in k9342 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_9348(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){
C_save_and_reclaim((void *)f_9348,c,av);}
a=C_alloc(12);
t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=C_a_i_list(&a,2,lf[120],t2);
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* k9350 in k9342 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_9352(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
C_save_and_reclaim((void *)f_9352,c,av);}
C_trace(C_text("core.scm:749: chicken.syntax#strip-syntax"));
t2=C_fast_retrieve(lf[154]);{
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=t2;
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}

/* k9363 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_9365(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,8)))){
C_save_and_reclaim((void *)f_9365,c,av);}
a=C_alloc(4);
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9369,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:754: walk"));
t3=((C_word*)((C_word*)t0)[3])[1];
f_8869(t3,t2,C_i_caddr(((C_word*)t0)[4]),((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);}

/* k9367 in k9363 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_9369(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_9369,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,3,lf[124],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k9384 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_9386(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_9386,c,av);}
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=lf[174];
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k9403 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_9405(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){
C_save_and_reclaim_args((void *)trf_9405,2,t0,t1);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9412,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp);
t3=C_i_memq(((C_word*)t0)[9],*((C_word*)lf[84]+1));
t4=(C_truep(t3)?t3:*((C_word*)lf[59]+1));
if(C_truep(t4)){
C_trace(C_text("core.scm:765: ##sys#process-require"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[177]);
C_word av2[5];
av2[0]=*((C_word*)lf[177]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
av2[3]=((C_word*)t0)[10];
av2[4]=lf[178];
tp(5,av2);}}
else{
C_trace(C_text("core.scm:765: ##sys#process-require"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[177]);
C_word av2[5];
av2[0]=*((C_word*)lf[177]+1);
av2[1]=t2;
av2[2]=((C_word*)t0)[9];
av2[3]=((C_word*)t0)[10];
av2[4]=lf[179];
tp(5,av2);}}}

/* k9410 in k9403 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_9412(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_9412,c,av);}
C_trace(C_text("core.scm:765: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_8869(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* k9423 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_9425(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){
C_save_and_reclaim((void *)f_9425,c,av);}
a=C_alloc(6);
if(C_truep(t1)){
t2=((C_word*)t0)[2];
f_9405(t2,C_SCHEME_UNDEFINED);}
else{
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9429,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:764: lset-adjoin/eq?"));
f_7579(t2,*((C_word*)lf[83]+1),C_a_i_list(&a,1,((C_word*)t0)[3]));}}

/* k9427 in k9423 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_9429(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_9429,c,av);}
t2=C_mutate((C_word*)lf[83]+1 /* (set! chicken.compiler.core#required-extensions ...) */,t1);
t3=((C_word*)t0)[2];
f_9405(t3,t2);}

/* k9448 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_9450(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){
C_save_and_reclaim((void *)f_9450,c,av);}
a=C_alloc(26);
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=C_i_check_list_2(t1,lf[11]);
t7=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_9459,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=t1,tmp=(C_word)a,a+=14,tmp);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9605,a[2]=t4,a[3]=t9,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_9605(t11,t7,t1);}

/* k9457 in k9448 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_9459(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){
C_save_and_reclaim((void *)f_9459,c,av);}
a=C_alloc(21);
t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_9462,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=C_SCHEME_UNDEFINED,a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],a[14]=((C_word*)t0)[12],a[15]=((C_word*)t0)[13],tmp=(C_word)a,a+=16,tmp);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9603,a[2]=t2,a[3]=((C_word*)t0)[13],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:776: ##sys#current-environment"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[110]);
C_word *av2=av;
av2[0]=*((C_word*)lf[110]+1);
av2[1]=t3;
tp(2,av2);}}

/* k9460 in k9457 in k9448 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_9462(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9462,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+8,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9465,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:777: chicken.syntax#get-line-number"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[114]);
C_word *av2;
if(c >= 3) {
  av2=av;
} else {
  av2=C_alloc(3);
}
av2[0]=*((C_word*)lf[114]+1);
av2[1]=t3;
av2[2]=((C_word*)t0)[13];
tp(3,av2);}}

/* k9463 in k9460 in k9457 in k9448 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_9465(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){
C_save_and_reclaim((void *)f_9465,c,av);}
a=C_alloc(14);
t2=((C_word*)t0)[2];
t3=(C_truep(t1)?t1:((C_word*)t2)[2]);
t4=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_9471,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],a[4]=((C_word*)t2)[5],a[5]=t3,a[6]=((C_word*)t2)[6],a[7]=((C_word*)t2)[7],a[8]=((C_word*)t2)[8],a[9]=((C_word*)t2)[9],a[10]=((C_word*)t2)[10],a[11]=((C_word*)t2)[11],a[12]=((C_word*)t2)[12],a[13]=((C_word*)t2)[13],tmp=(C_word)a,a+=14,tmp);
C_trace(C_text("core.scm:778: set-real-names!"));
f_8392(t4,((C_word*)t2)[6],((C_word*)t2)[15]);}

/* k9469 in k9463 in k9460 in k9457 in k9448 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_9471(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(32,c,4)))){
C_save_and_reclaim((void *)f_9471,c,av);}
a=C_alloc(32);
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9479,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t7=C_i_check_list_2(((C_word*)t0)[6],lf[11]);
t8=C_i_check_list_2(((C_word*)t0)[7],lf[11]);
t9=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9502,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[3],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],tmp=(C_word)a,a+=13,tmp);
t10=C_SCHEME_UNDEFINED;
t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp);
t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9553,a[2]=t4,a[3]=t11,a[4]=t6,a[5]=t5,tmp=(C_word)a,a+=6,tmp));
t13=((C_word*)t11)[1];
f_9553(t13,t9,((C_word*)t0)[6],((C_word*)t0)[7]);}

/* g1229 in k9469 in k9463 in k9460 in k9457 in k9448 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void f_9479(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,0,8)))){
C_save_and_reclaim_args((void *)trf_9479,4,t0,t1,t2,t3);}
a=C_alloc(4);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9487,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:781: walk"));
t5=((C_word*)((C_word*)t0)[2])[1];
f_8869(t5,t4,C_i_cadr(t3),((C_word*)t0)[3],C_u_i_car(t3),C_SCHEME_TRUE,((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE);}

/* k9485 in g1229 in k9469 in k9463 in k9460 in k9457 in k9448 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_9487(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){
C_save_and_reclaim((void *)f_9487,c,av);}
a=C_alloc(6);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* k9500 in k9469 in k9463 in k9460 in k9457 in k9448 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void C_ccall f_9502(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(28,c,4)))){
C_save_and_reclaim((void *)f_9502,c,av);}
a=C_alloc(28);
t2=C_fast_retrieve(lf[110]);
t3=((C_word*)t0)[2];
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_SCHEME_TRUE;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9506,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9508,a[2]=t4,a[3]=t6,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9525,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],tmp=(C_word)a,a+=11,tmp);
t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9543,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:783: ##sys#dynamic-wind"));
t11=*((C_word*)lf[117]+1);{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t11;
av2[1]=t7;
av2[2]=t8;
av2[3]=t9;
av2[4]=t10;
((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}}

/* k9504 in k9500 in k9469 in k9463 in k9460 in k9457 in k9448 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_9506(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){
C_save_and_reclaim((void *)f_9506,c,av);}
a=C_alloc(9);
t2=((C_word*)t0)[2];{
C_word *av2=av;
av2[0]=t2;
av2[1]=C_a_i_list(&a,3,lf[182],((C_word*)t0)[3],t1);
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}

/* a9507 in k9500 in k9469 in k9463 in k9460 in k9457 in k9448 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_9508(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
C_save_and_reclaim((void *)f_9508,c,av);}
a=C_alloc(7);
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9512,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=C_SCHEME_UNDEFINED,tmp=(C_word)a,a+=7,tmp);
if(C_truep(((C_word*)((C_word*)t0)[3])[1])){
C_trace(C_text("core.scm:783: ##sys#current-environment1255"));
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_TRUE;
av2[4]=C_SCHEME_FALSE;
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}
else{
t3=t2;{
C_word *av2=av;
av2[0]=t3;
av2[1]=((C_word*)((C_word*)t0)[2])[1];
f_9512(2,av2);}}}

/* k9510 in a9507 in k9500 in k9469 in k9463 in k9460 in k9457 in k9448 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_9512(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9512,c,av);}
a=C_alloc(3);
t2=C_mutate(((C_word *)t0)+6,t1);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9516,a[2]=t0,tmp=(C_word)a,a+=3,tmp);
C_trace(C_text("core.scm:783: ##sys#current-environment1255"));
t4=((C_word*)t0)[5];{
C_word *av2=av;
av2[0]=t4;
av2[1]=t3;
((C_proc)C_fast_retrieve_proc(t4))(2,av2);}}

/* k9514 in k9510 in a9507 in k9500 in k9469 in k9463 in k9460 in k9457 in k9448 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_9516(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){
C_save_and_reclaim((void *)f_9516,c,av);}
a=C_alloc(4);
t2=((C_word*)t0)[2];
t3=C_mutate(((C_word *)((C_word*)t2)[2])+1,t1);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9519,a[2]=((C_word*)t2)[3],a[3]=((C_word*)t2)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:783: ##sys#current-environment1255"));
t5=((C_word*)t2)[5];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t5;
av2[1]=t4;
av2[2]=((C_word*)t2)[6];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t5))(5,av2);}}

/* k9517 in k9514 in k9510 in a9507 in k9500 in k9469 in k9463 in k9460 in k9457 in k9448 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in ... */
static void C_ccall f_9519(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_9519,c,av);}
t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE);
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* a9524 in k9500 in k9469 in k9463 in k9460 in k9457 in k9448 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_9525(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){
C_save_and_reclaim((void *)f_9525,c,av);}
a=C_alloc(10);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9533,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
C_trace(C_text("core.scm:784: canonicalize-body/ln"));
t3=((C_word*)((C_word*)t0)[9])[1];
f_8363(t3,t2,((C_word*)t0)[6],C_i_cddr(((C_word*)t0)[10]),*((C_word*)lf[55]+1));}

/* k9531 in a9524 in k9500 in k9469 in k9463 in k9460 in k9457 in k9448 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_9533(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_9533,c,av);}
a=C_alloc(9);
t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9537,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
C_trace(C_text("core.scm:786: scheme#append"));
t3=*((C_word*)lf[6]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)t0)[8];
av2[3]=((C_word*)t0)[9];
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}

/* k9535 in k9531 in a9524 in k9500 in k9469 in k9463 in k9460 in k9457 in k9448 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_9537(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,8)))){
C_save_and_reclaim((void *)f_9537,c,av);}
C_trace(C_text("core.scm:784: walk"));
t2=((C_word*)((C_word*)t0)[2])[1];
f_8869(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}

/* a9542 in k9500 in k9469 in k9463 in k9460 in k9457 in k9448 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_9543(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(c!=2) C_bad_argc_2(c,2,t0);
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){
C_save_and_reclaim((void *)f_9543,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9547,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:783: ##sys#current-environment1255"));
t3=((C_word*)t0)[3];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)C_fast_retrieve_proc(t3))(2,av2);}}

/* k9545 in a9542 in k9500 in k9469 in k9463 in k9460 in k9457 in k9448 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in ... */
static void C_ccall f_9547(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){
C_save_and_reclaim((void *)f_9547,c,av);}
a=C_alloc(5);
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9550,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
C_trace(C_text("core.scm:783: ##sys#current-environment1255"));
t3=((C_word*)t0)[4];{
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=t3;
av2[1]=t2;
av2[2]=((C_word*)((C_word*)t0)[2])[1];
av2[3]=C_SCHEME_FALSE;
av2[4]=C_SCHEME_TRUE;
((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}

/* k9548 in k9545 in a9542 in k9500 in k9469 in k9463 in k9460 in k9457 in k9448 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in ... */
static void C_ccall f_9550(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
C_save_and_reclaim((void *)f_9550,c,av);}
t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]);
t3=((C_word*)t0)[4];{
C_word *av2=av;
av2[0]=t3;
av2[1]=t2;
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}

/* map-loop1223 in k9469 in k9463 in k9460 in k9457 in k9448 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in ... */
static void f_9553(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){
C_save_and_reclaim_args((void *)trf_9553,4,t0,t1,t2,t3);}
a=C_alloc(7);
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9582,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp);
C_trace(C_text("core.scm:780: g1229"));
t7=((C_word*)t0)[4];
f_9479(t7,t6,C_slot(t2,C_fix(0)),C_slot(t3,C_fix(0)));}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* k9580 in map-loop1223 in k9469 in k9463 in k9460 in k9457 in k9448 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in ... */
static void C_ccall f_9582(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){
C_save_and_reclaim((void *)f_9582,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_9553(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)),C_slot(((C_word*)t0)[6],C_fix(1)));}

/* k9601 in k9457 in k9448 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_9603(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
C_save_and_reclaim((void *)f_9603,c,av);}
C_trace(C_text("core.scm:776: ##sys#extend-se"));
{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[183]);
C_word *av2;
if(c >= 5) {
  av2=av;
} else {
  av2=C_alloc(5);
}
av2[0]=*((C_word*)lf[183]+1);
av2[1]=((C_word*)t0)[2];
av2[2]=t1;
av2[3]=((C_word*)t0)[3];
av2[4]=((C_word*)t0)[4];
tp(5,av2);}}

/* map-loop1189 in k9448 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void f_9605(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
C_save_and_reclaim_args((void *)trf_9605,3,t0,t1,t2);}
a=C_alloc(6);
if(C_truep(C_i_pairp(t2))){
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9630,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp);
C_trace(C_text("core.scm:775: g1195"));
t4=*((C_word*)lf[112]+1);{
C_word av2[3];
av2[0]=t4;
av2[1]=t3;
av2[2]=C_slot(t2,C_fix(0));
((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k9628 in map-loop1189 in k9448 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_9630(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void *)f_9630,c,av);}
a=C_alloc(3);
t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST);
t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2);
t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t5=((C_word*)((C_word*)t0)[3])[1];
f_9605(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}

/* k9676 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_9678(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){
C_save_and_reclaim((void *)f_9678,c,av);}
a=C_alloc(26);
t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9682,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9702,a[2]=((C_word*)t0)[9],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9716,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_9716(t11,t7,((C_word*)t0)[10]);}

/* k9680 in k9676 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_9682(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(6,c,8)))){
C_save_and_reclaim((void *)f_9682,c,av);}
a=C_alloc(6);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=C_a_i_cons(&a,2,lf[181],t2);
C_trace(C_text("core.scm:792: walk"));
t4=((C_word*)((C_word*)t0)[3])[1];
f_8869(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);}

/* k9700 in k9676 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_9702(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_9702,c,av);}
a=C_alloc(9);
t2=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[181],t2);
t4=C_a_i_list(&a,1,t3);
C_trace(C_text("core.scm:793: ##sys#append"));
t5=*((C_word*)lf[162]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* map-loop1304 in k9676 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void f_9716(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){
C_save_and_reclaim_args((void *)trf_9716,3,t0,t1,t2);}
a=C_alloc(12);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_car(t3);
t5=C_i_cadr(t3);
t6=C_a_i_list(&a,3,lf[185],t4,t5);
t7=C_a_i_cons(&a,2,t6,C_SCHEME_END_OF_LIST);
t8=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t7);
t9=C_mutate(((C_word *)((C_word*)t0)[2])+1,t7);
t11=t1;
t12=C_slot(t2,C_fix(1));
t1=t11;
t2=t12;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* map-loop1277 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void f_9750(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_9750,3,t0,t1,t2);}
a=C_alloc(9);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_car(t3);
t5=C_a_i_list2(&a,2,t4,lf[186]);
t6=C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST);
t7=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t6);
t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t6);
t10=t1;
t11=C_slot(t2,C_fix(1));
t1=t10;
t2=t11;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* k9792 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void C_ccall f_9794(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){
C_save_and_reclaim((void *)f_9794,c,av);}
a=C_alloc(24);
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=C_i_check_list_2(t1,lf[11]);
t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9803,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10023,a[2]=t4,a[3]=t9,a[4]=t5,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_10023(t11,t7,t1);}

/* k9801 in k9792 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 in ... */
static void C_ccall f_9803(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(25,c,3)))){
C_save_and_reclaim((void *)f_9803,c,av);}
a=C_alloc(25);
t2=C_i_cddr(((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=C_i_check_list_2(((C_word*)t0)[3],lf[11]);
t8=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9832,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t1,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=t2,a[12]=((C_word*)t0)[3],tmp=(C_word)a,a+=13,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9989,a[2]=t5,a[3]=t10,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t12=((C_word*)t10)[1];
f_9989(t12,t8,((C_word*)t0)[3]);}

/* k9830 in k9801 in k9792 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void C_ccall f_9832(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(30,c,4)))){
C_save_and_reclaim((void *)f_9832,c,av);}
a=C_alloc(30);
t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t3=t2;
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=((C_word*)t4)[1];
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9845,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t7=C_i_check_list_2(((C_word*)t0)[4],lf[11]);
t8=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9863,a[2]=t1,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[2],a[12]=((C_word*)t0)[4],tmp=(C_word)a,a+=13,tmp);
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9941,a[2]=t6,a[3]=t4,a[4]=t10,a[5]=t5,tmp=(C_word)a,a+=6,tmp));
t12=((C_word*)t10)[1];
f_9941(t12,t8,((C_word*)t0)[4],((C_word*)t0)[12]);}

/* g1400 in k9830 in k9801 in k9792 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static C_word f_9845(C_word *a,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_stack_overflow_check;{}
t3=C_i_cadr(t2);
t4=C_a_i_list(&a,4,lf[188],((C_word*)t0)[2],((C_word*)t0)[3],t3);
return(C_a_i_list2(&a,2,t1,t4));}

/* k9861 in k9830 in k9801 in k9792 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void C_ccall f_9863(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){
C_save_and_reclaim((void *)f_9863,c,av);}
a=C_alloc(27);
t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9867,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp);
t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST);
t4=t3;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=((C_word*)t5)[1];
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9879,a[2]=((C_word*)t0)[10],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t8=C_SCHEME_UNDEFINED;
t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp);
t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9893,a[2]=t5,a[3]=t9,a[4]=t6,tmp=(C_word)a,a+=5,tmp));
t11=((C_word*)t9)[1];
f_9893(t11,t7,((C_word*)t0)[11],((C_word*)t0)[12]);}

/* k9865 in k9861 in k9830 in k9801 in k9792 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_9867(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(15,c,8)))){
C_save_and_reclaim((void *)f_9867,c,av);}
a=C_alloc(15);
t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1);
t3=C_a_i_cons(&a,2,lf[181],t2);
t4=C_a_i_list(&a,3,lf[181],((C_word*)t0)[3],t3);
C_trace(C_text("core.scm:808: walk"));
t5=((C_word*)((C_word*)t0)[4])[1];
f_8869(t5,((C_word*)t0)[5],t4,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],C_SCHEME_FALSE);}

/* k9877 in k9861 in k9830 in k9801 in k9792 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void C_ccall f_9879(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
C_save_and_reclaim((void *)f_9879,c,av);}
a=C_alloc(9);
t2=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]);
t3=C_a_i_cons(&a,2,lf[181],t2);
t4=C_a_i_list(&a,1,t3);
C_trace(C_text("core.scm:809: ##sys#append"));
t5=*((C_word*)lf[162]+1);{
C_word *av2;
if(c >= 4) {
  av2=av;
} else {
  av2=C_alloc(4);
}
av2[0]=t5;
av2[1]=((C_word*)t0)[3];
av2[2]=t1;
av2[3]=t4;
((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}

/* map-loop1430 in k9861 in k9830 in k9801 in k9792 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in ... */
static void f_9893(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){
C_save_and_reclaim_args((void *)trf_9893,4,t0,t1,t2,t3);}
a=C_alloc(12);
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=C_slot(t2,C_fix(0));
t7=C_slot(t3,C_fix(0));
t8=C_a_i_list(&a,3,lf[185],t6,t7);
t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST);
t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9);
t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9);
t13=t1;
t14=C_slot(t2,C_fix(1));
t15=C_slot(t3,C_fix(1));
t1=t13;
t2=t14;
t3=t15;
goto loop;}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* map-loop1394 in k9830 in k9801 in k9792 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in ... */
static void f_9941(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){
C_save_and_reclaim_args((void *)trf_9941,4,t0,t1,t2,t3);}
a=C_alloc(21);
t4=C_i_pairp(t2);
t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE);
if(C_truep(t5)){
t6=(
C_trace("core.scm:814: g1400"),
  f_9845(C_a_i(&a,18),((C_word*)t0)[2],C_slot(t2,C_fix(0)),C_slot(t3,C_fix(0)))
);
t7=C_a_i_cons(&a,2,t6,C_SCHEME_END_OF_LIST);
t8=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t7);
t9=C_mutate(((C_word *)((C_word*)t0)[3])+1,t7);
t11=t1;
t12=C_slot(t2,C_fix(1));
t13=C_slot(t3,C_fix(1));
t1=t11;
t2=t12;
t3=t13;
goto loop;}
else{
t6=t1;{
C_word av2[2];
av2[0]=t6;
av2[1]=C_slot(((C_word*)t0)[5],C_fix(1));
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}

/* map-loop1367 in k9801 in k9792 in k9309 in k8975 in k8929 in k8926 in k8923 in k8919 in k8913 in k8874 in walk in chicken.compiler.core#canonicalize-expression in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in ... */
static void f_9989(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a;
loop:
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
C_save_and_reclaim_args((void *)trf_9989,3,t0,t1,t2);}
a=C_alloc(9);
if(C_truep(C_i_pairp(t2))){
t3=C_slot(t2,C_fix(0));
t4=C_i_car(t3);
t5=C_a_i_list2(&a,2,t4,lf[189]);
t6=C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST);
t7=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t6);
t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t6);
t10=t1;
t11=C_slot(t2,C_fix(1));
t1=t10;
t2=t11;
goto loop;}
else{
t3=t1;{
C_word av2[2];
av2[0]=t3;
av2[1]=C_slot(((C_word*)t0)[4],C_fix(1));
((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}

/* toplevel */
static int toplevel_initialized=0;

void C_ccall C_compiler_toplevel(C_word c,C_word *av){
C_word tmp;
C_word t0=av[0];
C_word t1=av[1];
C_word t2;
C_word t3;
C_word *a;
if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);}
else C_toplevel_entry(C_text("compiler"));
C_check_nursery_minimum(C_calculate_demand(3,c,2));
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
C_save_and_reclaim((void*)C_compiler_toplevel,c,av);}
toplevel_initialized=1;
if(C_unlikely(!C_demand_2(4333))){
C_save(t1);
C_rereclaim2(4333*sizeof(C_word),1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,709);
lf[0]=C_h_intern(&lf[0],8, C_text("compiler"));
lf[1]=C_h_intern(&lf[1],22, C_text("chicken.compiler.core#"));
lf[6]=C_h_intern(&lf[6],13, C_text("scheme#append"));
lf[9]=C_h_intern(&lf[9],5, C_text("foldr"));
lf[11]=C_h_intern(&lf[11],3, C_text("map"));
lf[15]=C_h_intern(&lf[15],5, C_text("foldl"));
lf[18]=C_h_intern(&lf[18],31, C_text("chicken.compiler.core#unit-name"));
lf[19]=C_h_intern(&lf[19],39, C_text("chicken.compiler.core#standard-bindings"));
lf[20]=C_h_intern(&lf[20],39, C_text("chicken.compiler.core#extended-bindings"));
lf[21]=C_h_intern(&lf[21],41, C_text("chicken.compiler.core#insert-timer-checks"));
lf[22]=C_h_intern(&lf[22],32, C_text("chicken.compiler.core#used-units"));
lf[23]=C_h_intern(&lf[23],42, C_text("chicken.compiler.core#foreign-declarations"));
lf[24]=C_h_intern(&lf[24],37, C_text("chicken.compiler.core#emit-trace-info"));
lf[25]=C_h_intern(&lf[25],37, C_text("chicken.compiler.core#emit-debug-info"));
lf[26]=C_h_intern(&lf[26],39, C_text("chicken.compiler.core#block-compilation"));
lf[27]=C_h_intern(&lf[27],47, C_text("chicken.compiler.core#line-number-database-size"));
lf[28]=C_h_intern(&lf[28],38, C_text("chicken.compiler.core#target-heap-size"));
lf[29]=C_h_intern(&lf[29],39, C_text("chicken.compiler.core#target-stack-size"));
lf[30]=C_h_intern(&lf[30],44, C_text("chicken.compiler.core#optimize-leaf-routines"));
lf[31]=C_h_intern(&lf[31],45, C_text("chicken.compiler.core#merge-reusable-closures"));
lf[32]=C_h_intern(&lf[32],46, C_text("chicken.compiler.core#merge-shareable-closures"));
lf[33]=C_h_intern(&lf[33],34, C_text("chicken.compiler.core#emit-profile"));
lf[34]=C_h_intern(&lf[34],37, C_text("chicken.compiler.core#no-bound-checks"));
lf[35]=C_h_intern(&lf[35],36, C_text("chicken.compiler.core#no-argc-checks"));
lf[36]=C_h_intern(&lf[36],41, C_text("chicken.compiler.core#no-procedure-checks"));
lf[37]=C_h_intern(&lf[37],48, C_text("chicken.compiler.core#no-global-procedure-checks"));
lf[39]=C_h_intern(&lf[39],39, C_text("chicken.compiler.core#explicit-use-flag"));
lf[40]=C_h_intern(&lf[40],53, C_text("chicken.compiler.core#disable-stack-overflow-checking"));
lf[41]=C_h_intern(&lf[41],43, C_text("chicken.compiler.core#external-protos-first"));
lf[42]=C_h_intern(&lf[42],37, C_text("chicken.compiler.core#inline-max-size"));
lf[43]=C_h_intern(&lf[43],34, C_text("chicken.compiler.core#unroll-limit"));
lf[44]=C_h_intern(&lf[44],39, C_text("chicken.compiler.core#emit-closure-info"));
lf[45]=C_h_intern(&lf[45],46, C_text("chicken.compiler.core#undefine-shadowed-macros"));
lf[46]=C_h_intern(&lf[46],41, C_text("chicken.compiler.core#profiled-procedures"));
lf[47]=C_h_intern(&lf[47],38, C_text("chicken.compiler.core#import-libraries"));
lf[48]=C_h_intern(&lf[48],42, C_text("chicken.compiler.core#all-import-libraries"));
lf[49]=C_h_intern(&lf[49],57, C_text("chicken.compiler.core#preserve-unchanged-import-libraries"));
lf[50]=C_h_intern(&lf[50],49, C_text("chicken.compiler.core#compile-module-registration"));
lf[51]=C_h_intern(&lf[51],43, C_text("chicken.compiler.core#standalone-executable"));
lf[52]=C_h_intern(&lf[52],39, C_text("chicken.compiler.core#local-definitions"));
lf[53]=C_h_intern(&lf[53],36, C_text("chicken.compiler.core#inline-locally"));
lf[54]=C_h_intern(&lf[54],41, C_text("chicken.compiler.core#enable-inline-files"));
lf[55]=C_h_intern(&lf[55],45, C_text("chicken.compiler.core#compiler-syntax-enabled"));
lf[56]=C_h_intern(&lf[56],36, C_text("chicken.compiler.core#bootstrap-mode"));
lf[57]=C_h_intern(&lf[57],43, C_text("chicken.compiler.core#strict-variable-types"));
lf[58]=C_h_intern(&lf[58],43, C_text("chicken.compiler.core#enable-specialization"));
lf[59]=C_h_intern(&lf[59],39, C_text("chicken.compiler.core#static-extensions"));
lf[60]=C_h_intern(&lf[60],36, C_text("chicken.compiler.core#emit-link-file"));
lf[61]=C_h_intern(&lf[61],39, C_text("chicken.compiler.core#types-output-file"));
lf[62]=C_h_intern(&lf[62],34, C_text("chicken.compiler.core#verbose-mode"));
lf[66]=C_h_intern(&lf[66],44, C_text("chicken.compiler.core#line-number-database-2"));
lf[67]=C_h_intern(&lf[67],41, C_text("chicken.compiler.core#immutable-constants"));
lf[68]=C_h_intern(&lf[68],34, C_text("chicken.compiler.core#inline-table"));
lf[69]=C_h_intern(&lf[69],36, C_text("chicken.compiler.core#constant-table"));
lf[70]=C_h_intern(&lf[70],50, C_text("chicken.compiler.core#inline-substitutions-enabled"));
lf[72]=C_h_intern(&lf[72],36, C_text("chicken.compiler.core#first-analysis"));
lf[74]=C_h_intern(&lf[74],42, C_text("chicken.compiler.core#foreign-lambda-stubs"));
lf[75]=C_h_intern(&lf[75],40, C_text("chicken.compiler.core#external-variables"));
lf[83]=C_h_intern(&lf[83],41, C_text("chicken.compiler.core#required-extensions"));
lf[84]=C_h_intern(&lf[84],38, C_text("chicken.compiler.core#linked-libraries"));
lf[85]=C_h_intern(&lf[85],36, C_text("chicken.compiler.core#used-libraries"));
lf[87]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\001\165\156\161\165\157\164\145\376\003\000\000\002\376\001\000\000\020\001\165\156\161\165\157\164\145\055\163\160\154\151\143\151\156\147\376\377\016"));
lf[88]=C_h_intern(&lf[88],47, C_text("chicken.compiler.core#default-extended-bindings"));
lf[89]=C_h_intern(&lf[89],47, C_text("chicken.compiler.core#default-standard-bindings"));
lf[90]=C_h_intern(&lf[90],39, C_text("chicken.compiler.core#internal-bindings"));
lf[91]=C_h_intern(&lf[91],41, C_text("chicken.compiler.core#initialize-compiler"));
lf[92]=C_h_intern(&lf[92],50, C_text("chicken.compiler.support#clear-foreign-type-table!"));
lf[93]=C_h_intern(&lf[93],47, C_text("chicken.compiler.support#clear-real-name-table!"));
lf[94]=C_h_intern(&lf[94],56, C_text("chicken.compiler.support#reset-profile-info-vector-name!"));
lf[95]=C_h_intern(&lf[95],19, C_text("scheme#vector-fill!"));
lf[96]=C_h_intern(&lf[96],18, C_text("scheme#make-vector"));
lf[97]=C_h_intern(&lf[97],49, C_text("chicken.compiler.core#compute-database-statistics"));
lf[98]=C_h_intern(&lf[98],6, C_text("global"));
lf[99]=C_h_intern(&lf[99],5, C_text("value"));
lf[100]=C_h_intern(&lf[100],13, C_text("##core#lambda"));
lf[101]=C_h_intern(&lf[101],35, C_text("chicken.compiler.support#node-class"));
lf[102]=C_h_intern(&lf[102],10, C_text("call-sites"));
lf[103]=C_h_intern(&lf[103],8, C_text("for-each"));
lf[104]=C_h_intern(&lf[104],36, C_text("chicken.internal#hash-table-for-each"));
lf[105]=C_h_intern(&lf[105],45, C_text("chicken.compiler.core#canonicalize-expression"));
lf[106]=C_h_intern(&lf[106],9, C_text("##sys#get"));
lf[107]=C_h_intern(&lf[107],18, C_text("##core#macro-alias"));
lf[108]=C_h_intern(&lf[108],13, C_text("scheme#values"));
lf[109]=C_h_intern(&lf[109],14, C_text("scheme#symbol?"));
lf[110]=C_h_intern(&lf[110],25, C_text("##sys#current-environment"));
lf[111]=C_h_intern(&lf[111],10, C_text("##sys#put!"));
lf[112]=C_h_intern(&lf[112],19, C_text("chicken.base#gensym"));
lf[113]=C_h_intern(&lf[113],34, C_text("##sys#update-line-number-database!"));
lf[114]=C_h_intern(&lf[114],30, C_text("chicken.syntax#get-line-number"));
lf[115]=C_h_intern(&lf[115],36, C_text("chicken.syntax#expansion-result-hook"));
lf[116]=C_h_intern(&lf[116],23, C_text("##sys#canonicalize-body"));
lf[117]=C_h_intern(&lf[117],18, C_text("##sys#dynamic-wind"));
lf[118]=C_h_intern(&lf[118],39, C_text("chicken.compiler.support#set-real-name!"));
lf[119]=C_h_intern(&lf[119],5, C_text("quote"));
lf[120]=C_h_intern(&lf[120],17, C_text("##core#inline_ref"));
lf[121]=C_h_intern(&lf[121],52, C_text("chicken.compiler.support#foreign-type-convert-result"));
lf[122]=C_h_intern(&lf[122],46, C_text("chicken.compiler.support#finish-foreign-result"));
lf[123]=C_h_intern(&lf[123],43, C_text("chicken.compiler.support#final-foreign-type"));
lf[124]=C_h_intern(&lf[124],21, C_text("##core#inline_loc_ref"));
lf[125]=C_h_intern(&lf[125],23, C_text("##sys#alias-global-hook"));
lf[126]=C_h_intern(&lf[126],39, C_text("chicken.compiler.support#quit-compiling"));
lf[127]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\071\176\141\143\171\143\154\151\143\141\154\040\162\145\146\145\162\145\156\143\145\040\151\156\040\114\105\124\122\105\103\040\142\151\156\144\151\156\147\040\146\157\162\040\166\141\162\151\141\142\154\145\040\140\176\141\047\000"));
lf[128]=C_h_intern(&lf[128],38, C_text("chicken.compiler.support#get-real-name"));
lf[129]=C_h_intern(&lf[129],6, C_text("format"));
lf[130]=C_h_intern(&lf[130],24, C_text("scheme#get-output-string"));
lf[131]=C_h_intern(&lf[131],11, C_text("##sys#print"));
lf[132]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\051\040\055\040\000"));
lf[133]=C_h_intern(&lf[133],18, C_text("##sys#write-char-0"));
lf[134]=C_h_intern(&lf[134],25, C_text("scheme#open-output-string"));
lf[135]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[136]=C_h_intern(&lf[136],31, C_text("chicken.internal#hash-table-ref"));
lf[137]=C_h_intern(&lf[137],20, C_text("chicken.base#warning"));
lf[138]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\047\040\160\157\163\163\151\142\154\171\040\165\156\151\156\164\145\156\144\145\144\000"));
lf[139]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\162\145\146\145\162\145\156\143\145\040\164\157\040\166\141\162\151\141\142\154\145\040\140\000"));
lf[140]=C_h_intern(&lf[140],29, C_text("##sys#current-source-filename"));
lf[141]=C_h_intern(&lf[141],12, C_text("##core#begin"));
lf[142]=C_h_intern(&lf[142],29, C_text("##sys#include-forms-from-file"));
lf[143]=C_h_intern(&lf[143],26, C_text("##sys#syntax-error/context"));
lf[144]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\151\154\154\145\147\141\154\040\141\164\157\155\151\143\040\146\157\162\155\000"));
lf[145]=C_h_intern(&lf[145],34, C_text("chicken.compiler.support#constant?"));
lf[146]=C_h_intern(&lf[146],26, C_text("##sys#syntax-error-culprit"));
lf[147]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\051\040\055\040\155\141\154\146\157\162\155\145\144\040\145\170\160\162\145\163\163\151\157\156\000"));
lf[148]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\155\141\154\146\157\162\155\145\144\040\145\170\160\162\145\163\163\151\157\156\000"));
lf[149]=C_h_intern(&lf[149],9, C_text("##core#if"));
lf[150]=C_h_intern(&lf[150],2, C_text("if"));
lf[151]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[152]=C_h_intern(&lf[152],13, C_text("##core#syntax"));
lf[153]=C_h_intern(&lf[153],12, C_text("##core#quote"));
lf[154]=C_h_intern(&lf[154],27, C_text("chicken.syntax#strip-syntax"));
lf[155]=C_h_intern(&lf[155],12, C_text("##core#check"));
lf[156]=C_h_intern(&lf[156],31, C_text("chicken.compiler.support#unsafe"));
lf[157]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001\161\165\157\164\145\376\003\000\000\002\376\377\006\001\376\377\016"));
lf[158]=C_h_intern(&lf[158],10, C_text("##core#the"));
lf[159]=C_h_intern(&lf[159],27, C_text("##core#local-specialization"));
lf[160]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[161]=C_h_intern(&lf[161],32, C_text("##compiler#local-specializations"));
lf[162]=C_h_intern(&lf[162],12, C_text("##sys#append"));
lf[163]=C_h_intern(&lf[163],15, C_text("##core#typecase"));
lf[164]=C_h_intern(&lf[164],16, C_text("##core#immutable"));
lf[165]=C_h_intern(&lf[165],38, C_text("chicken.compiler.support#hide-variable"));
lf[166]=C_h_intern(&lf[166],38, C_text("chicken.compiler.support#mark-variable"));
lf[167]=C_h_intern(&lf[167],23, C_text("##compiler#always-bound"));
lf[168]=C_h_intern(&lf[168],1, C_text("c"));
lf[169]=C_h_intern(&lf[169],13, C_text("scheme#cadadr"));
lf[170]=C_h_intern(&lf[170],14, C_text("##core#provide"));
lf[171]=C_h_intern(&lf[171],15, C_text("##core#callunit"));
lf[172]=C_h_intern(&lf[172],12, C_text("scheme#caadr"));
lf[173]=C_h_intern(&lf[173],25, C_text("##core#require-for-syntax"));
lf[174]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[175]=C_h_intern(&lf[175],27, C_text("chicken.load#load-extension"));
lf[176]=C_h_intern(&lf[176],14, C_text("##core#require"));
lf[177]=C_h_intern(&lf[177],21, C_text("##sys#process-require"));
lf[178]=C_h_intern(&lf[178],6, C_text("static"));
lf[179]=C_h_intern(&lf[179],7, C_text("dynamic"));
lf[180]=C_h_intern(&lf[180],26, C_text("chicken.load#core-library?"));
lf[181]=C_h_intern(&lf[181],10, C_text("##core#let"));
lf[182]=C_h_intern(&lf[182],3, C_text("let"));
lf[183]=C_h_intern(&lf[183],15, C_text("##sys#extend-se"));
lf[184]=C_h_intern(&lf[184],14, C_text("##core#letrec*"));
lf[185]=C_h_intern(&lf[185],11, C_text("##core#set!"));
lf[186]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[187]=C_h_intern(&lf[187],13, C_text("##core#letrec"));
lf[188]=C_h_intern(&lf[188],26, C_text("##core#with-forbidden-refs"));
lf[189]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[190]=C_h_intern(&lf[190],46, C_text("chicken.compiler.support#expand-profile-lambda"));
lf[191]=C_h_intern(&lf[191],3, C_text("all"));
lf[192]=C_h_intern(&lf[192],4, C_text("some"));
lf[193]=C_h_intern(&lf[193],38, C_text("chicken.compiler.support#variable-mark"));
lf[194]=C_h_intern(&lf[194],18, C_text("##compiler#profile"));
lf[195]=C_h_intern(&lf[195],42, C_text("chicken.compiler.support#build-lambda-list"));
lf[196]=C_h_intern(&lf[196],18, C_text("##core#debug-event"));
lf[197]=C_h_intern(&lf[197],13, C_text("C_DEBUG_ENTRY"));
lf[198]=C_h_intern(&lf[198],27, C_text("##sys#decompose-lambda-list"));
lf[199]=C_h_intern(&lf[199],33, C_text("##sys#expand-extended-lambda-list"));
lf[200]=C_h_intern(&lf[200],11, C_text("##sys#error"));
lf[201]=C_h_intern(&lf[201],27, C_text("##sys#extended-lambda-list?"));
lf[202]=C_h_intern(&lf[202],17, C_text("##core#let-syntax"));
lf[203]=C_h_intern(&lf[203],24, C_text("##sys#ensure-transformer"));
lf[204]=C_h_intern(&lf[204],15, C_text("##sys#eval/meta"));
lf[205]=C_h_intern(&lf[205],20, C_text("##core#letrec-syntax"));
lf[206]=C_h_intern(&lf[206],20, C_text("##core#define-syntax"));
lf[207]=C_h_intern(&lf[207],27, C_text("##sys#enable-runtime-macros"));
lf[208]=C_h_intern(&lf[208],30, C_text("##sys#extend-macro-environment"));
lf[209]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[210]=C_h_intern(&lf[210],28, C_text("##sys#register-syntax-export"));
lf[211]=C_h_intern(&lf[211],20, C_text("##sys#current-module"));
lf[212]=C_h_intern(&lf[212],18, C_text("##sys#put/restore!"));
lf[213]=C_h_intern(&lf[213],14, C_text("##sys#override"));
lf[214]=C_h_intern(&lf[214],6, C_text("syntax"));
lf[215]=C_h_intern(&lf[215],12, C_text("scheme#cdadr"));
lf[216]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\001\000\000\013\001\154\141\155\142\144\141\055\154\151\163\164\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001"));
lf[217]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016"));
lf[218]=C_h_intern(&lf[218],18, C_text("##sys#check-syntax"));
lf[219]=C_h_intern(&lf[219],29, C_text("##core#define-compiler-syntax"));
lf[220]=C_h_intern(&lf[220],26, C_text("##compiler#compiler-syntax"));
lf[221]=C_h_intern(&lf[221],10, C_text("##sys#cons"));
lf[222]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[223]=C_h_intern(&lf[223],26, C_text("##core#let-compiler-syntax"));
lf[224]=C_h_intern(&lf[224],19, C_text("let-compiler-syntax"));
lf[225]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\163\171\155\142\157\154\376\000\000\000\003\376\001\000\000\001\001\137\376\377\001\000\000\000\000\376\377\001\000\000\000\001"));
lf[226]=C_h_intern(&lf[226],19, C_text("scheme#dynamic-wind"));
lf[227]=C_h_intern(&lf[227],14, C_text("##core#include"));
lf[228]=C_h_intern(&lf[228],17, C_text("##core#include-ci"));
lf[229]=C_h_intern(&lf[229],23, C_text("##core#let-module-alias"));
lf[230]=C_h_intern(&lf[230],25, C_text("##sys#with-module-aliases"));
lf[231]=C_h_intern(&lf[231],7, C_text("functor"));
lf[232]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\163\171\155\142\157\154\376\003\000\000\002\376\001\000\000\006\001\163\171\155\142\157\154\376\377\016"));
lf[233]=C_h_intern(&lf[233],13, C_text("##core#module"));
lf[234]=C_h_intern(&lf[234],23, C_text("##sys#macro-environment"));
lf[235]=C_h_intern(&lf[235],30, C_text("##sys#module-alias-environment"));
lf[236]=C_h_intern(&lf[236],31, C_text("##sys#initial-macro-environment"));
lf[237]=C_h_intern(&lf[237],48, C_text("chicken.compiler.support#canonicalize-begin-body"));
lf[238]=C_h_intern(&lf[238],3, C_text("yes"));
lf[239]=C_h_intern(&lf[239],34, C_text("##sys#compiled-module-registration"));
lf[240]=C_h_intern(&lf[240],30, C_text("##sys#current-meta-environment"));
lf[241]=C_h_intern(&lf[241],28, C_text("##sys#meta-macro-environment"));
lf[242]=C_h_intern(&lf[242],35, C_text("chicken.internal#module-requirement"));
lf[243]=C_h_intern(&lf[243],13, C_text("scheme#equal?"));
lf[244]=C_h_intern(&lf[244],18, C_text("chicken.base#print"));
lf[245]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\040\156\157\164\040\147\145\156\145\162\141\164\151\156\147\040\151\155\160\157\162\164\040\154\151\142\162\141\162\171\040\140\000"));
lf[246]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\047\040\146\157\162\040\155\157\144\165\154\145\040\140\000"));
lf[247]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\047\040\142\145\143\141\165\163\145\040\151\155\160\157\162\164\163\040\144\151\144\040\156\157\164\040\143\150\141\156\147\145\000"));
lf[248]=C_h_intern(&lf[248],33, C_text("chicken.pretty-print#pretty-print"));
lf[249]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\012\073\073\040\105\116\104\040\117\106\040\106\111\114\105\000"));
lf[250]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\073\073\073\073\040\000"));
lf[251]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\040\055\040\107\105\116\105\122\101\124\105\104\040\102\131\040\103\110\111\103\113\105\116\040\000"));
lf[252]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\040\055\052\055\040\123\143\150\145\155\145\040\055\052\055\012\000"));
lf[253]=C_h_intern(&lf[253],32, C_text("chicken.platform#chicken-version"));
lf[254]=C_h_intern(&lf[254],26, C_text("scheme#with-output-to-file"));
lf[255]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\147\145\156\145\162\141\164\151\156\147\040\151\155\160\157\162\164\040\154\151\142\162\141\162\171\040\140\000"));
lf[256]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\047\040\146\157\162\040\155\157\144\165\154\145\040\140\000"));
lf[257]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\047\040\056\056\056\000"));
lf[258]=C_h_intern(&lf[258],27, C_text("scheme#call-with-input-file"));
lf[259]=C_h_intern(&lf[259],41, C_text("chicken.compiler.support#read-expressions"));
lf[260]=C_h_intern(&lf[260],25, C_text("chicken.file#file-exists?"));
lf[261]=C_h_intern(&lf[261],19, C_text("##sys#string-append"));
lf[262]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\014\056\151\155\160\157\162\164\056\163\143\155\000"));
lf[263]=C_h_intern(&lf[263],21, C_text("scheme#symbol->string"));
lf[264]=C_h_intern(&lf[264],17, C_text("chicken.base#exit"));
lf[265]=C_h_intern(&lf[265],37, C_text("chicken.condition#print-error-message"));
lf[266]=C_h_intern(&lf[266],20, C_text("##sys#standard-error"));
lf[267]=C_h_intern(&lf[267],14, C_text("scheme#reverse"));
lf[268]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\141\040\146\157\162\145\151\147\156\040\166\141\162\151\141\142\154\145\000"));
lf[269]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\141\156\040\151\156\154\151\156\145\144\040\146\165\156\143\164\151\157\156\000"));
lf[270]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\141\040\143\157\156\163\164\141\156\164\000"));
lf[271]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\141\040\164\171\160\145\040\141\142\142\162\145\166\151\141\164\151\157\156\000"));
lf[272]=C_h_intern(&lf[272],28, C_text("##compiler#type-abbreviation"));
lf[273]=C_h_intern(&lf[273],21, C_text("##sys#finalize-module"));
lf[274]=C_h_intern(&lf[274],40, C_text("chicken.condition#with-exception-handler"));
lf[275]=C_h_intern(&lf[275],37, C_text("scheme#call-with-current-continuation"));
lf[276]=C_h_intern(&lf[276],27, C_text("##sys#with-property-restore"));
lf[277]=C_h_intern(&lf[277],18, C_text("##sys#syntax-error"));
lf[278]=C_h_intern(&lf[278],6, C_text("module"));
lf[279]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\032\155\157\144\165\154\145\163\040\155\141\171\040\156\157\164\040\142\145\040\156\145\163\164\145\144\000"));
lf[280]=C_h_intern(&lf[280],21, C_text("##sys#register-module"));
lf[281]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\151\156\166\141\154\151\144\040\145\170\160\157\162\164\040\163\171\156\164\141\170\000"));
lf[282]=C_h_intern(&lf[282],18, C_text("##core#loop-lambda"));
lf[283]=C_h_intern(&lf[283],33, C_text("##core#ensure-toplevel-definition"));
lf[284]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[285]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\066\176\141\164\157\160\154\145\166\145\154\040\144\145\146\151\156\151\164\151\157\156\040\157\146\040\140\176\163\047\040\151\156\040\156\157\156\055\164\157\160\154\145\166\145\154\040\143\157\156\164\145\170\164\000"));
lf[286]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\051\040\055\040\000"));
lf[287]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[288]=C_h_intern(&lf[288],20, C_text("##core#inline_update"));
lf[289]=C_h_intern(&lf[289],43, C_text("chicken.compiler.support#foreign-type-check"));
lf[290]=C_h_intern(&lf[290],54, C_text("chicken.compiler.support#foreign-type-convert-argument"));
lf[291]=C_h_intern(&lf[291],24, C_text("##core#inline_loc_update"));
lf[292]=C_h_intern(&lf[292],4, C_text("set!"));
lf[293]=C_h_intern(&lf[293],30, C_text("##sys#unregister-syntax-export"));
lf[294]=C_h_intern(&lf[294],21, C_text("##sys#undefine-macro!"));
lf[295]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\141\163\163\151\147\156\155\145\156\164\040\164\157\040\163\171\156\164\141\170\040\140\000"));
lf[296]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\051\040\055\040\000"));
lf[297]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[298]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\047\141\163\163\151\147\156\155\145\156\164\040\164\157\040\151\155\160\157\162\164\145\144\040\166\141\154\165\145\040\142\151\156\144\151\156\147\040\140\000"));
lf[299]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\051\040\055\040\000"));
lf[300]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[301]=C_h_intern(&lf[301],12, C_text("##sys#macro?"));
lf[302]=C_h_intern(&lf[302],21, C_text("C_DEBUG_GLOBAL_ASSIGN"));
lf[303]=C_h_intern(&lf[303],36, C_text("##compiler#always-bound-to-procedure"));
lf[304]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\047\040\160\157\163\163\151\142\154\171\040\165\156\151\156\164\145\156\144\145\144\000"));
lf[305]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\141\163\163\151\147\156\155\145\156\164\040\164\157\040\166\141\162\151\141\142\154\145\040\140\000"));
lf[306]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\051\040\055\040\000"));
lf[307]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[308]=C_h_intern(&lf[308],13, C_text("##core#inline"));
lf[309]=C_h_intern(&lf[309],22, C_text("##core#inline_allocate"));
lf[310]=C_h_intern(&lf[310],21, C_text("##core#compiletimetoo"));
lf[311]=C_h_intern(&lf[311],25, C_text("##core#elaborationtimetoo"));
lf[312]=C_h_intern(&lf[312],22, C_text("##core#compiletimeonly"));
lf[313]=C_h_intern(&lf[313],26, C_text("##core#elaborationtimeonly"));
lf[314]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[315]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[316]=C_h_intern(&lf[316],21, C_text("##core#foreign-lambda"));
lf[318]=C_h_intern(&lf[318],26, C_text("##core#foreign-safe-lambda"));
lf[319]=C_h_intern(&lf[319],22, C_text("##core#foreign-lambda*"));
lf[321]=C_h_intern(&lf[321],27, C_text("##core#foreign-safe-lambda*"));
lf[322]=C_h_intern(&lf[322],24, C_text("##core#foreign-primitive"));
lf[323]=C_h_intern(&lf[323],4, C_text("void"));
lf[325]=C_h_intern(&lf[325],33, C_text("chicken.string#string-intersperse"));
lf[326]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\012\000"));
lf[327]=C_h_intern(&lf[327],30, C_text("##core#define-foreign-variable"));
lf[328]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[329]=C_h_intern(&lf[329],26, C_text("##core#define-foreign-type"));
lf[330]=C_h_intern(&lf[330],12, C_text("##sys#values"));
lf[331]=C_h_intern(&lf[331],21, C_text("##sys#register-export"));
lf[332]=C_h_intern(&lf[332],47, C_text("chicken.compiler.support#register-foreign-type!"));
lf[333]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[334]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\072\176\141\144\145\146\151\156\151\164\151\157\156\040\157\146\040\146\157\162\145\151\147\156\040\164\171\160\145\040\140\176\163\047\040\151\156\040\156\157\156\055\164\157\160\154\145\166\145\154\040\143\157\156\164\145\170\164\000"));
lf[335]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\051\040\055\040\000"));
lf[336]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[337]=C_h_intern(&lf[337],31, C_text("##core#define-external-variable"));
lf[338]=C_h_intern(&lf[338],9, C_text("c-pointer"));
lf[339]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[340]=C_h_intern(&lf[340],20, C_text("scheme#string-append"));
lf[341]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\046\000"));
lf[342]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\077\176\141\145\170\164\145\162\156\141\154\040\166\141\162\151\141\142\154\145\040\144\145\146\151\156\151\164\151\157\156\040\157\146\040\140\176\163\047\040\151\156\040\156\157\156\055\164\157\160\154\145\166\145\154\040\143\157\156\164\145\170\164\000"));
lf[343]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\051\040\055\040\000"));
lf[344]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[345]=C_h_intern(&lf[345],41, C_text("chicken.compiler.support#make-random-name"));
lf[346]=C_h_intern(&lf[346],19, C_text("##core#let-location"));
lf[347]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\103\137\141\137\151\137\142\171\164\145\166\145\143\164\157\162\000"));
lf[348]=C_h_intern(&lf[348],37, C_text("chicken.compiler.support#bytes->words"));
lf[349]=C_h_intern(&lf[349],62, C_text("chicken.compiler.support#estimate-foreign-result-location-size"));
lf[350]=C_h_intern(&lf[350],20, C_text("##core#define-inline"));
lf[351]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[352]=C_h_intern(&lf[352],32, C_text("chicken.internal#hash-table-set!"));
lf[353]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\064\176\141\151\156\154\151\156\145\040\144\145\146\151\156\151\164\151\157\156\040\157\146\040\140\176\163\047\040\151\156\040\156\157\156\055\164\157\160\154\145\166\145\154\040\143\157\156\164\145\170\164\000"));
lf[354]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\051\040\055\040\000"));
lf[355]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[356]=C_h_intern(&lf[356],13, C_text("scheme#cdaddr"));
lf[357]=C_h_intern(&lf[357],22, C_text("##core#define-constant"));
lf[358]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[359]=C_h_intern(&lf[359],6, C_text("define"));
lf[360]=C_h_intern(&lf[360],19, C_text("##compiler#constant"));
lf[361]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\143\157\156\163\164\141\156\164\000"));
lf[362]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\065\176\141\151\156\166\141\154\151\144\040\143\157\155\160\151\154\145\055\164\151\155\145\040\166\141\154\165\145\040\146\157\162\040\156\141\155\145\144\040\143\157\156\163\164\141\156\164\040\140\176\123\047\000"));
lf[363]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\051\040\055\040\000"));
lf[364]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[365]=C_h_intern(&lf[365],39, C_text("chicken.compiler.support#basic-literal?"));
lf[366]=C_h_intern(&lf[366],45, C_text("chicken.compiler.support#collapsable-literal?"));
lf[367]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\066\176\141\143\157\156\163\164\141\156\164\040\144\145\146\151\156\151\164\151\157\156\040\157\146\040\140\176\163\047\040\151\156\040\156\157\156\055\164\157\160\154\145\166\145\154\040\143\157\156\164\145\170\164\000"));
lf[368]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\051\040\055\040\000"));
lf[369]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[370]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\073\145\162\162\157\162\040\151\156\040\143\157\156\163\164\141\156\164\040\145\166\141\154\165\141\164\151\157\156\040\157\146\040\176\123\040\146\157\162\040\156\141\155\145\144\040\143\157\156\163\164\141\156\164\040\140\176\123\047\000"));
lf[371]=C_h_intern(&lf[371],11, C_text("scheme#eval"));
lf[372]=C_h_intern(&lf[372],14, C_text("##core#declare"));
lf[373]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\151\156\166\141\154\151\144\040\144\145\143\154\141\162\141\164\151\157\156\000"));
lf[374]=C_h_intern(&lf[374],12, C_text("##sys#notice"));
lf[375]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\062\151\147\156\157\162\151\156\147\040\144\145\143\154\141\162\141\164\151\157\156\040\146\157\162\040\154\157\143\141\154\154\171\040\142\157\165\156\144\040\166\141\162\151\141\142\154\145\040\140\000"));
lf[376]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[377]=C_h_intern(&lf[377],4, C_text("uses"));
lf[378]=C_h_intern(&lf[378],4, C_text("unit"));
lf[379]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\064\165\156\151\164\040\167\141\163\040\141\154\162\145\141\144\171\040\147\151\166\145\156\040\141\040\156\141\155\145\040\050\156\145\167\040\156\141\155\145\040\151\163\040\151\147\156\157\162\145\144\051\000"));
lf[380]=C_h_intern(&lf[380],17, C_text("standard-bindings"));
lf[381]=C_h_intern(&lf[381],17, C_text("extended-bindings"));
lf[382]=C_h_intern(&lf[382],18, C_text("usual-integrations"));
lf[383]=C_h_intern(&lf[383],11, C_text("number-type"));
lf[384]=C_h_intern(&lf[384],36, C_text("chicken.compiler.support#number-type"));
lf[385]=C_h_intern(&lf[385],6, C_text("fixnum"));
lf[386]=C_h_intern(&lf[386],17, C_text("fixnum-arithmetic"));
lf[387]=C_h_intern(&lf[387],7, C_text("generic"));
lf[388]=C_h_intern(&lf[388],6, C_text("unsafe"));
lf[389]=C_h_intern(&lf[389],4, C_text("safe"));
lf[390]=C_h_intern(&lf[390],15, C_text("no-bound-checks"));
lf[391]=C_h_intern(&lf[391],14, C_text("no-argc-checks"));
lf[392]=C_h_intern(&lf[392],19, C_text("no-procedure-checks"));
lf[393]=C_h_intern(&lf[393],18, C_text("disable-interrupts"));
lf[394]=C_h_intern(&lf[394],12, C_text("always-bound"));
lf[395]=C_h_intern(&lf[395],12, C_text("safe-globals"));
lf[396]=C_h_intern(&lf[396],38, C_text("no-procedure-checks-for-usual-bindings"));
lf[397]=C_h_intern(&lf[397],41, C_text("no-procedure-checks-for-toplevel-bindings"));
lf[398]=C_h_intern(&lf[398],18, C_text("bound-to-procedure"));
lf[399]=C_h_intern(&lf[399],15, C_text("foreign-declare"));
lf[400]=C_h_intern(&lf[400],7, C_text("declare"));
lf[401]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\151\156\166\141\154\151\144\040\144\145\143\154\141\162\141\164\151\157\156\000"));
lf[402]=C_h_intern(&lf[402],14, C_text("scheme#string?"));
lf[403]=C_h_intern(&lf[403],5, C_text("block"));
lf[404]=C_h_intern(&lf[404],8, C_text("separate"));
lf[405]=C_h_intern(&lf[405],20, C_text("keep-shadowed-macros"));
lf[406]=C_h_intern(&lf[406],6, C_text("unused"));
lf[407]=C_h_intern(&lf[407],17, C_text("##compiler#unused"));
lf[408]=C_h_intern(&lf[408],22, C_text("enforce-argument-types"));
lf[409]=C_h_intern(&lf[409],18, C_text("##compiler#enforce"));
lf[410]=C_h_intern(&lf[410],3, C_text("not"));
lf[411]=C_h_intern(&lf[411],6, C_text("inline"));
lf[412]=C_h_intern(&lf[412],17, C_text("##compiler#inline"));
lf[413]=C_h_intern(&lf[413],2, C_text("no"));
lf[414]=C_h_intern(&lf[414],13, C_text("inline-global"));
lf[415]=C_h_intern(&lf[415],24, C_text("##compiler#inline-global"));
lf[416]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\165\156\163\165\160\160\157\162\164\145\144\040\144\145\143\154\141\162\141\164\151\157\156\040\163\160\145\143\151\146\151\145\162\000"));
lf[417]=C_h_intern(&lf[417],14, C_text("compile-syntax"));
lf[418]=C_h_intern(&lf[418],12, C_text("block-global"));
lf[419]=C_h_intern(&lf[419],4, C_text("hide"));
lf[420]=C_h_intern(&lf[420],6, C_text("export"));
lf[421]=C_h_intern(&lf[421],40, C_text("chicken.compiler.support#export-variable"));
lf[422]=C_h_intern(&lf[422],30, C_text("emit-external-prototypes-first"));
lf[423]=C_h_intern(&lf[423],16, C_text("##compiler#local"));
lf[424]=C_h_intern(&lf[424],12, C_text("inline-limit"));
lf[425]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\057\151\156\166\141\154\151\144\040\141\162\147\165\155\145\156\164\040\164\157\040\140\151\156\154\151\156\145\055\154\151\155\151\164\047\040\144\145\143\154\141\162\141\164\151\157\156\000"));
lf[426]=C_h_intern(&lf[426],12, C_text("unroll-limit"));
lf[427]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\057\151\156\166\141\154\151\144\040\141\162\147\165\155\145\156\164\040\164\157\040\140\165\156\162\157\154\154\055\154\151\155\151\164\047\040\144\145\143\154\141\162\141\164\151\157\156\000"));
lf[428]=C_h_intern(&lf[428],4, C_text("pure"));
lf[429]=C_h_intern(&lf[429],15, C_text("##compiler#pure"));
lf[430]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\054\151\156\166\141\154\151\144\040\141\162\147\165\155\145\156\164\163\040\164\157\040\140\160\165\162\145\047\040\144\145\143\154\141\162\141\164\151\157\156\072\040\176\123\000"));
lf[431]=C_h_intern(&lf[431],19, C_text("emit-import-library"));
lf[432]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\014\056\151\155\160\157\162\164\056\163\143\155\000"));
lf[433]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\053\151\156\166\141\154\151\144\040\140\151\155\160\157\162\164\055\154\151\142\162\141\162\171\047\040\163\160\145\143\151\146\151\143\141\164\151\157\156\072\040\176\123\000"));
lf[434]=C_h_intern(&lf[434],15, C_text("emit-types-file"));
lf[435]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\052\151\156\166\141\154\151\144\040\140\145\155\151\164\055\164\171\160\145\163\055\146\151\154\145\047\040\144\145\143\154\141\162\141\164\151\157\156\072\040\176\123\000"));
lf[436]=C_h_intern(&lf[436],7, C_text("profile"));
lf[437]=C_h_intern(&lf[437],5, C_text("local"));
lf[438]=C_h_intern(&lf[438],4, C_text("type"));
lf[439]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\151\154\154\145\147\141\154\040\164\171\160\145\040\144\145\143\154\141\162\141\164\151\157\156\000"));
lf[440]=C_h_intern(&lf[440],42, C_text("chicken.compiler.scrutinizer#validate-type"));
lf[441]=C_h_intern(&lf[441],52, C_text("chicken.compiler.scrutinizer#install-specializations"));
lf[442]=C_h_intern(&lf[442],20, C_text("##compiler#predicate"));
lf[443]=C_h_intern(&lf[443],22, C_text("##compiler#type-source"));
lf[444]=C_h_intern(&lf[444],15, C_text("##compiler#type"));
lf[445]=C_h_intern(&lf[445],9, C_text("procedure"));
lf[446]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\151\154\154\145\147\141\154\040\140\164\171\160\145\047\040\144\145\143\154\141\162\141\164\151\157\156\000"));
lf[447]=C_h_intern(&lf[447],9, C_text("predicate"));
lf[448]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\040\151\154\154\145\147\141\154\040\140\160\162\145\144\151\143\141\164\145\047\040\144\145\143\154\141\162\141\164\151\157\156\000"));
lf[449]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\040\151\154\154\145\147\141\154\040\140\164\171\160\145\047\040\144\145\143\154\141\162\141\164\151\157\156\040\151\164\145\155\000"));
lf[450]=C_h_intern(&lf[450],10, C_text("specialize"));
lf[451]=C_h_intern(&lf[451],12, C_text("strict-types"));
lf[452]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\036\165\156\153\156\157\167\156\040\144\145\143\154\141\162\141\164\151\157\156\040\163\160\145\143\151\146\151\145\162\000"));
lf[453]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\151\156\166\141\154\151\144\040\144\145\143\154\141\162\141\164\151\157\156\040\163\160\145\143\151\146\151\143\141\164\151\157\156\000"));
lf[454]=C_h_intern(&lf[454],31, C_text("##core#foreign-callback-wrapper"));
lf[455]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001\143\157\156\163\164\376\003\000\000\002\376\001\000\000\020\001\156\157\156\156\165\154\154\055\143\055\163\164\162\151\156\147\376\377\016"));
lf[456]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001\143\157\156\163\164\376\003\000\000\002\376\001\000\000\031\001\156\157\156\156\165\154\154\055\165\156\163\151\147\156\145\144\055\143\055\163\164\162\151\156\147\376\377\016"));
lf[457]=C_h_intern(&lf[457],25, C_text("nonnull-unsigned-c-string"));
lf[458]=C_h_intern(&lf[458],16, C_text("nonnull-c-string"));
lf[459]=C_h_intern(&lf[459],19, C_text("##sys#make-c-string"));
lf[460]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001\143\157\156\163\164\376\003\000\000\002\376\001\000\000\011\001\143\055\163\164\162\151\156\147\052\376\377\016"));
lf[461]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001\143\157\156\163\164\376\003\000\000\002\376\001\000\000\022\001\165\156\163\151\147\156\145\144\055\143\055\163\164\162\151\156\147\052\376\377\016"));
lf[462]=C_h_intern(&lf[462],18, C_text("unsigned-c-string*"));
lf[463]=C_h_intern(&lf[463],9, C_text("c-string*"));
lf[464]=C_h_intern(&lf[464],13, C_text("c-string-list"));
lf[465]=C_h_intern(&lf[465],14, C_text("c-string-list*"));
lf[466]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\060\156\157\164\040\141\040\166\141\154\151\144\040\162\145\163\165\154\164\040\164\171\160\145\040\146\157\162\040\143\141\154\154\142\141\143\153\040\160\162\157\143\145\144\165\162\145\163\000"));
lf[467]=C_h_intern(&lf[467],8, C_text("c-string"));
lf[468]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001\143\157\156\163\164\376\003\000\000\002\376\001\000\000\021\001\165\156\163\151\147\156\145\144\055\143\055\163\164\162\151\156\147\376\377\016"));
lf[469]=C_h_intern(&lf[469],17, C_text("unsigned-c-string"));
lf[470]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001\143\157\156\163\164\376\003\000\000\002\376\001\000\000\010\001\143\055\163\164\162\151\156\147\376\377\016"));
lf[471]=C_h_intern(&lf[471],1, C_text("r"));
lf[472]=C_h_intern(&lf[472],3, C_text("and"));
lf[473]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\102\156\157\156\055\155\141\164\143\150\151\156\147\040\157\162\040\151\156\166\141\154\151\144\040\141\162\147\165\155\145\156\164\040\154\151\163\164\040\164\157\040\146\157\162\145\151\147\156\040\143\141\154\154\142\141\143\153\055\167\162\141\160\160\145\162\000"));
lf[474]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\077\176\141\156\141\155\145\040\140\176\123\047\040\157\146\040\145\170\164\145\162\156\141\154\040\144\145\146\151\156\151\164\151\157\156\040\151\163\040\156\157\164\040\141\040\166\141\154\151\144\040\103\040\151\144\145\156\164\151\146\151\145\162\000"));
lf[475]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\051\040\055\040\000"));
lf[476]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000"));
lf[477]=C_h_intern(&lf[477],44, C_text("chicken.compiler.support#valid-c-identifier?"));
lf[478]=C_h_intern(&lf[478],15, C_text("##core#location"));
lf[479]=C_h_intern(&lf[479],8, C_text("location"));
lf[480]=C_h_intern(&lf[480],19, C_text("##sys#make-locative"));
lf[481]=C_h_intern(&lf[481],20, C_text("##sys#syntax-context"));
lf[482]=C_h_intern(&lf[482],16, C_text("##core#primitive"));
lf[483]=C_h_intern(&lf[483],16, C_text("##core#undefined"));
lf[484]=C_h_intern(&lf[484],21, C_text("chicken.syntax#expand"));
lf[485]=C_h_intern(&lf[485],47, C_text("chicken.compiler.support#emit-syntax-trace-info"));
lf[486]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\155\141\154\146\157\162\155\145\144\040\145\170\160\162\145\163\163\151\157\156\000"));
lf[487]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\035\154\151\164\145\162\141\154\040\151\156\040\157\160\145\162\141\164\157\162\040\160\157\163\151\164\151\157\156\000"));
lf[488]=C_h_intern(&lf[488],24, C_text("chicken.keyword#keyword?"));
lf[489]=C_h_intern(&lf[489],42, C_text("chicken.compiler.support#debugging-chicken"));
lf[490]=C_h_intern(&lf[490],14, C_text("scheme#newline"));
lf[491]=C_h_intern(&lf[491],46, C_text("chicken.compiler.core#build-toplevel-procedure"));
lf[492]=C_h_intern(&lf[492],34, C_text("chicken.compiler.support#make-node"));
lf[493]=C_h_intern(&lf[493],6, C_text("lambda"));
lf[494]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\016\376\377\016"));
lf[495]=C_h_intern(&lf[495],37, C_text("chicken.compiler.core#foreign-stub-id"));
lf[496]=C_h_intern(&lf[496],34, C_text("chicken.compiler.core#foreign-stub"));
lf[497]=C_h_intern(&lf[497],46, C_text("chicken.compiler.core#foreign-stub-return-type"));
lf[498]=C_h_intern(&lf[498],39, C_text("chicken.compiler.core#foreign-stub-name"));
lf[499]=C_h_intern(&lf[499],49, C_text("chicken.compiler.core#foreign-stub-argument-types"));
lf[500]=C_h_intern(&lf[500],49, C_text("chicken.compiler.core#foreign-stub-argument-names"));
lf[501]=C_h_intern(&lf[501],39, C_text("chicken.compiler.core#foreign-stub-body"));
lf[502]=C_h_intern(&lf[502],38, C_text("chicken.compiler.core#foreign-stub-cps"));
lf[503]=C_h_intern(&lf[503],43, C_text("chicken.compiler.core#foreign-stub-callback"));
lf[504]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\043\043\163\171\163\043\147\143\376\003\000\000\002\376\377\006\000\376\377\016\376\377\016"));
lf[505]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[506]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\103\137\141\137\151\137\142\171\164\145\166\145\143\164\157\162\000"));
lf[507]=C_h_intern(&lf[507],21, C_text("scheme#string->symbol"));
lf[508]=C_h_intern(&lf[508],53, C_text("chicken.compiler.support#estimate-foreign-result-size"));
lf[509]=C_h_intern(&lf[509],4, C_text("stub"));
lf[510]=C_h_intern(&lf[510],1, C_text("a"));
lf[511]=C_h_intern(&lf[511],19, C_text("chicken.string#conc"));
lf[512]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\052\000"));
lf[513]=C_h_intern(&lf[513],5, C_text("const"));
lf[514]=C_h_intern(&lf[514],6, C_text("struct"));
lf[515]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\056\156\141\155\145\040\140\176\163\047\040\157\146\040\146\157\162\145\151\147\156\040\160\162\157\143\145\144\165\162\145\040\150\141\163\040\167\162\157\156\147\040\164\171\160\145\000"));
lf[516]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\012\000"));
lf[517]=C_h_intern(&lf[517],44, C_text("chicken.compiler.core#perform-cps-conversion"));
lf[518]=C_h_intern(&lf[518],11, C_text("##core#call"));
lf[519]=C_h_intern(&lf[519],32, C_text("chicken.compiler.support#varnode"));
lf[520]=C_h_intern(&lf[520],1, C_text("k"));
lf[521]=C_h_intern(&lf[521],15, C_text("##core#variable"));
lf[522]=C_h_intern(&lf[522],40, C_text("chicken.compiler.support#node-parameters"));
lf[523]=C_h_intern(&lf[523],2, C_text("f_"));
lf[524]=C_h_intern(&lf[524],1, C_text("t"));
lf[525]=C_h_intern(&lf[525],44, C_text("chicken.compiler.support#node-subexpressions"));
lf[526]=C_h_intern(&lf[526],56, C_text("chicken.compiler.support#register-foreign-callback-stub!"));
lf[527]=C_h_intern(&lf[527],17, C_text("##core#the/result"));
lf[528]=C_h_intern(&lf[528],29, C_text("chicken.compiler.support#bomb"));
lf[529]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\142\141\144\040\156\157\144\145\040\050\143\160\163\051\000"));
lf[530]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001\161\165\157\164\145\376\003\000\000\002\376\001\000\000\017\001\043\043\143\157\162\145\043\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016"));
lf[531]=C_h_intern(&lf[531],40, C_text("chicken.compiler.core#analyze-expression"));
lf[532]=C_h_intern(&lf[532],15, C_text("##core#rest-cdr"));
lf[533]=C_h_intern(&lf[533],32, C_text("chicken.compiler.support#db-put!"));
lf[534]=C_h_intern(&lf[534],8, C_text("captured"));
lf[535]=C_h_intern(&lf[535],31, C_text("chicken.compiler.support#db-get"));
lf[536]=C_h_intern(&lf[536],14, C_text("##core#recurse"));
lf[537]=C_h_intern(&lf[537],33, C_text("chicken.compiler.support#collect!"));
lf[538]=C_h_intern(&lf[538],13, C_text("has-bad-calls"));
lf[539]=C_h_intern(&lf[539],37, C_text("chicken.compiler.support#llist-match?"));
lf[540]=C_h_intern(&lf[540],4, C_text("home"));
lf[541]=C_h_intern(&lf[541],7, C_text("unknown"));
lf[542]=C_h_intern(&lf[542],20, C_text("##core#direct_lambda"));
lf[543]=C_h_intern(&lf[543],6, C_text("simple"));
lf[544]=C_h_intern(&lf[544],44, C_text("chicken.compiler.support#simple-lambda-node?"));
lf[545]=C_h_intern(&lf[545],8, C_text("rest-cdr"));
lf[546]=C_h_intern(&lf[546],14, C_text("rest-parameter"));
lf[547]=C_h_intern(&lf[547],4, C_text("list"));
lf[548]=C_h_intern(&lf[548],12, C_text("contained-in"));
lf[549]=C_h_intern(&lf[549],8, C_text("contains"));
lf[550]=C_h_intern(&lf[550],8, C_text("assigned"));
lf[551]=C_h_intern(&lf[551],16, C_text("assigned-locally"));
lf[552]=C_h_intern(&lf[552],16, C_text("potential-values"));
lf[553]=C_h_intern(&lf[553],8, C_text("standard"));
lf[554]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\162\145\144\145\146\151\156\151\164\151\157\156\040\157\146\040\163\164\141\156\144\141\162\144\040\142\151\156\144\151\156\147\000"));
lf[555]=C_h_intern(&lf[555],8, C_text("extended"));
lf[556]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\162\145\144\145\146\151\156\151\164\151\157\156\040\157\146\040\145\170\164\145\156\144\145\144\040\142\151\156\144\151\156\147\000"));
lf[557]=C_h_intern(&lf[557],20, C_text("##compiler#intrinsic"));
lf[558]=C_h_intern(&lf[558],11, C_text("##core#proc"));
lf[559]=C_h_intern(&lf[559],17, C_text("derived-rest-vars"));
lf[560]=C_h_intern(&lf[560],10, C_text("rest-null?"));
lf[561]=C_h_intern(&lf[561],9, C_text("undefined"));
lf[562]=C_h_intern(&lf[562],17, C_text("##core#rest-null?"));
lf[563]=C_h_intern(&lf[563],22, C_text("chicken.base#alist-ref"));
lf[564]=C_h_intern(&lf[564],5, C_text("depth"));
lf[565]=C_h_intern(&lf[565],4, C_text("rvar"));
lf[566]=C_h_intern(&lf[566],35, C_text("chicken.compiler.support#db-get-all"));
lf[567]=C_h_intern(&lf[567],11, C_text("local-value"));
lf[568]=C_h_intern(&lf[568],42, C_text("chicken.compiler.support#variable-visible?"));
lf[569]=C_h_intern(&lf[569],8, C_text("test-var"));
lf[570]=C_h_intern(&lf[570],35, C_text("chicken.compiler.support#match-node"));
lf[571]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\013\001\043\043\143\157\162\145\043\143\157\156\144\376\003\000\000\002\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001\043\043\143\157\162\145\043\166\141\162\151\141\142\154\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\164\145\163\164\055\166\141\162\376\377\016\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\161\165\157\164\145\376\003\000\000\002\376\003\000\000\002\376\377\016\376\377\016\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001\043\043\143\157\162\145\043\162\145\163\164\055\143\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\162\166\141\162\376\003\000\000\002\376\001\000\000\005\001\144\145\160\164\150\376\377\016\376\377\016\376\377\016"));
lf[572]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\010\001\164\145\163\164\055\166\141\162\376\003\000\000\002\376\001\000\000\004\001\162\166\141\162\376\003\000\000\002\376\001\000\000\005\001\144\145\160\164\150\376\377\016"));
lf[573]=C_h_intern(&lf[573],10, C_text("references"));
lf[574]=C_h_intern(&lf[574],10, C_text("replacable"));
lf[575]=C_h_intern(&lf[575],9, C_text("replacing"));
lf[576]=C_h_intern(&lf[576],9, C_text("removable"));
lf[577]=C_h_intern(&lf[577],35, C_text("chicken.compiler.support#intrinsic?"));
lf[578]=C_h_intern(&lf[578],19, C_text("##core#always-bound"));
lf[579]=C_h_intern(&lf[579],53, C_text("chicken.compiler.support#expression-has-side-effects?"));
lf[580]=C_h_intern(&lf[580],19, C_text("shareable-container"));
lf[581]=C_h_intern(&lf[581],14, C_text("shareable-user"));
lf[582]=C_h_intern(&lf[582],19, C_text("chicken.base#rassoc"));
lf[583]=C_h_intern(&lf[583],10, C_text("scheme#eq?"));
lf[584]=C_h_intern(&lf[584],21, C_text("has-unused-parameters"));
lf[585]=C_h_intern(&lf[585],15, C_text("consed-rest-arg"));
lf[586]=C_h_intern(&lf[586],13, C_text("explicit-rest"));
lf[587]=C_h_intern(&lf[587],8, C_text("callback"));
lf[588]=C_h_intern(&lf[588],11, C_text("collapsable"));
lf[589]=C_h_intern(&lf[589],12, C_text("contractable"));
lf[590]=C_h_intern(&lf[590],9, C_text("inlinable"));
lf[591]=C_h_intern(&lf[591],44, C_text("chicken.compiler.support#scan-free-variables"));
lf[592]=C_h_intern(&lf[592],11, C_text("hidden-refs"));
lf[593]=C_h_intern(&lf[593],34, C_text("chicken.compiler.support#debugging"));
lf[594]=C_h_intern(&lf[594],1, C_text("i"));
lf[595]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\077\147\154\157\142\141\154\040\151\156\154\151\156\151\156\147\040\143\141\156\144\151\144\141\164\145\040\167\141\163\040\141\163\163\151\147\156\145\144\040\141\156\144\040\167\151\154\154\040\156\157\164\040\142\145\040\151\156\154\151\156\145\144\000"));
lf[596]=C_h_intern(&lf[596],30, C_text("chicken.compiler.support#node?"));
lf[597]=C_h_intern(&lf[597],5, C_text("boxed"));
lf[598]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\047\040\151\163\040\157\156\154\171\040\154\157\143\141\154\154\171\040\166\151\163\151\142\154\145\040\141\156\144\040\156\145\166\145\162\040\165\163\145\144\000"));
lf[599]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\147\154\157\142\141\154\040\166\141\162\151\141\142\154\145\040\140\000"));
lf[600]=C_h_intern(&lf[600],41, C_text("chicken.compiler.support#variable-hidden?"));
lf[601]=C_h_intern(&lf[601],1, C_text("p"));
lf[602]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\141\156\141\154\171\163\151\163\040\147\141\164\150\145\162\151\156\147\040\160\150\141\163\145\056\056\056\000"));
lf[603]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\141\156\141\154\171\163\151\163\040\164\162\141\166\145\162\163\141\154\040\160\150\141\163\145\056\056\056\000"));
lf[604]=C_h_intern(&lf[604],48, C_text("chicken.compiler.core#perform-closure-conversion"));
lf[605]=C_h_intern(&lf[605],32, C_text("chicken.internal#make-hash-table"));
lf[606]=C_h_intern(&lf[606],12, C_text("customizable"));
lf[607]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\154\145\164\055\156\157\144\145\040\150\141\163\040\151\156\166\141\154\151\144\040\146\157\162\155\141\164\000"));
lf[608]=C_h_intern(&lf[608],45, C_text("chicken.compiler.support#node-parameters-set!"));
lf[609]=C_h_intern(&lf[609],8, C_text("toplevel"));
lf[610]=C_h_intern(&lf[610],18, C_text("captured-variables"));
lf[611]=C_h_intern(&lf[611],12, C_text("closure-size"));
lf[612]=C_h_intern(&lf[612],12, C_text("sharing-mode"));
lf[613]=C_h_intern(&lf[613],4, C_text("user"));
lf[614]=C_h_intern(&lf[614],14, C_text("shared-closure"));
lf[615]=C_h_intern(&lf[615],9, C_text("container"));
lf[616]=C_h_intern(&lf[616],26, C_text("##compiler#callback-lambda"));
lf[617]=C_h_intern(&lf[617],12, C_text("##core#unbox"));
lf[618]=C_h_intern(&lf[618],54, C_text("chicken.compiler.support#replace-rest-op-with-list-ops"));
lf[619]=C_h_intern(&lf[619],10, C_text("##core#box"));
lf[620]=C_h_intern(&lf[620],14, C_text("##core#closure"));
lf[621]=C_h_intern(&lf[621],30, C_text("chicken.compiler.support#qnode"));
lf[622]=C_h_intern(&lf[622],22, C_text("##sys#make-lambda-info"));
lf[623]=C_h_intern(&lf[623],1, C_text("?"));
lf[624]=C_h_intern(&lf[624],23, C_text("chicken.string#->string"));
lf[625]=C_h_intern(&lf[625],34, C_text("chicken.compiler.support#real-name"));
lf[626]=C_h_intern(&lf[626],10, C_text("##core#ref"));
lf[627]=C_h_intern(&lf[627],10, C_text("boxed-rest"));
lf[628]=C_h_intern(&lf[628],3, C_text("scc"));
lf[629]=C_h_intern(&lf[629],18, C_text("##core#updatebox_i"));
lf[630]=C_h_intern(&lf[630],16, C_text("##core#updatebox"));
lf[631]=C_h_intern(&lf[631],15, C_text("##core#update_i"));
lf[632]=C_h_intern(&lf[632],13, C_text("##core#update"));
lf[633]=C_h_intern(&lf[633],35, C_text("chicken.compiler.support#immediate?"));
lf[634]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\142\141\144\040\156\157\144\145\040\050\143\154\157\163\165\162\145\062\051\000"));
lf[635]=C_h_intern(&lf[635],13, C_text("##core#switch"));
lf[636]=C_h_intern(&lf[636],11, C_text("##core#cond"));
lf[637]=C_h_intern(&lf[637],18, C_text("##core#direct_call"));
lf[638]=C_h_intern(&lf[638],13, C_text("##core#return"));
lf[639]=C_h_intern(&lf[639],16, C_text("##core#let_float"));
lf[640]=C_h_intern(&lf[640],16, C_text("##core#box_float"));
lf[641]=C_h_intern(&lf[641],18, C_text("##core#unbox_float"));
lf[642]=C_h_intern(&lf[642],15, C_text("##core#rest-car"));
lf[643]=C_h_intern(&lf[643],18, C_text("##core#rest-length"));
lf[644]=C_h_intern(&lf[644],12, C_text("##core#float"));
lf[645]=C_h_intern(&lf[645],21, C_text("##core#float-variable"));
lf[646]=C_h_intern(&lf[646],1, C_text("o"));
lf[647]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\143\141\154\154\163\040\164\157\040\153\156\157\167\156\040\164\141\162\147\145\164\163\000"));
lf[648]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\053\143\154\157\163\165\162\145\040\143\157\156\166\145\162\163\151\157\156\040\164\162\141\156\163\146\157\162\155\141\164\151\157\156\040\160\150\141\163\145\056\056\056\000"));
lf[649]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\163\150\141\162\145\144\040\143\154\157\163\165\162\145\040\165\163\145\162\163\000"));
lf[650]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\032\163\150\141\162\145\144\040\143\154\157\163\165\162\145\040\143\157\156\164\141\151\156\145\162\163\000"));
lf[651]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\061\143\154\157\163\165\162\145\040\143\157\156\166\145\162\163\151\157\156\040\155\145\162\147\151\156\147\040\157\146\040\162\145\165\163\141\142\154\145\163\040\160\150\141\163\145\056\056\056\000"));
lf[652]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\062\143\154\157\163\165\162\145\040\143\157\156\166\145\162\163\151\157\156\040\155\145\162\147\151\156\147\040\157\146\040\163\150\141\162\145\141\142\154\145\163\040\160\150\141\163\145\056\056\056\000"));
lf[653]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\143\165\163\164\157\155\151\172\141\142\154\145\040\160\162\157\143\145\144\165\162\145\163\000"));
lf[654]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\046\143\154\157\163\165\162\145\040\143\157\156\166\145\162\163\151\157\156\040\147\141\164\150\145\162\151\156\147\040\160\150\141\163\145\056\056\056\000"));
lf[655]=C_h_intern(&lf[655],39, C_text("chicken.compiler.core#lambda-literal-id"));
lf[656]=C_h_intern(&lf[656],36, C_text("chicken.compiler.core#lambda-literal"));
lf[657]=C_h_intern(&lf[657],45, C_text("chicken.compiler.core#lambda-literal-external"));
lf[658]=C_h_intern(&lf[658],51, C_text("chicken.compiler.core#lambda-literal-argument-count"));
lf[659]=C_h_intern(&lf[659],50, C_text("chicken.compiler.core#lambda-literal-rest-argument"));
lf[660]=C_h_intern(&lf[660],48, C_text("chicken.compiler.core#lambda-literal-temporaries"));
lf[661]=C_h_intern(&lf[661],54, C_text("chicken.compiler.core#lambda-literal-float-temporaries"));
lf[662]=C_h_intern(&lf[662],54, C_text("chicken.compiler.core#lambda-literal-callee-signatures"));
lf[663]=C_h_intern(&lf[663],46, C_text("chicken.compiler.core#lambda-literal-allocated"));
lf[664]=C_h_intern(&lf[664],49, C_text("chicken.compiler.core#lambda-literal-closure-size"));
lf[665]=C_h_intern(&lf[665],44, C_text("chicken.compiler.core#lambda-literal-looping"));
lf[666]=C_h_intern(&lf[666],49, C_text("chicken.compiler.core#lambda-literal-customizable"));
lf[667]=C_h_intern(&lf[667],55, C_text("chicken.compiler.core#lambda-literal-rest-argument-mode"));
lf[668]=C_h_intern(&lf[668],41, C_text("chicken.compiler.core#lambda-literal-body"));
lf[669]=C_h_intern(&lf[669],43, C_text("chicken.compiler.core#lambda-literal-direct"));
lf[670]=C_h_intern(&lf[670],49, C_text("chicken.compiler.core#prepare-for-code-generation"));
lf[671]=C_h_intern(&lf[671],12, C_text("##core#local"));
lf[672]=C_h_intern(&lf[672],14, C_text("##core#literal"));
lf[673]=C_h_intern(&lf[673],13, C_text("##core#global"));
lf[674]=C_h_intern(&lf[674],12, C_text("C_DEBUG_CALL"));
lf[675]=C_h_intern(&lf[675],42, C_text("chicken.compiler.support#source-info->name"));
lf[676]=C_h_intern(&lf[676],42, C_text("chicken.compiler.support#source-info->line"));
lf[677]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\151\144\145\156\164\151\146\151\145\144\040\144\151\162\145\143\164\040\162\145\143\165\162\163\151\166\145\040\143\141\154\154\163\000"));
lf[678]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\142\141\144\040\144\151\162\145\143\164\040\154\141\155\142\144\141\000"));
lf[679]=C_h_intern(&lf[679],4, C_text("none"));
lf[680]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\165\156\165\163\145\144\040\162\145\163\164\040\141\162\147\165\155\145\156\164\000"));
lf[681]=C_h_intern(&lf[681],18, C_text("##sys#fast-reverse"));
lf[682]=C_h_intern(&lf[682],20, C_text("chicken.base#butlast"));
lf[683]=C_h_intern(&lf[683],11, C_text("##core#bind"));
lf[684]=C_h_intern(&lf[684],15, C_text("##core#setlocal"));
lf[685]=C_h_intern(&lf[685],18, C_text("##core#setglobal_i"));
lf[686]=C_h_intern(&lf[686],16, C_text("##core#setglobal"));
lf[687]=C_h_intern(&lf[687],21, C_text("scheme#inexact->exact"));
lf[688]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\047\040\164\157\040\146\151\170\156\165\155\040\000"));
lf[689]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\143\157\145\162\143\145\144\040\151\156\145\170\141\143\164\040\154\151\164\145\162\141\154\040\156\165\155\142\145\162\040\140\000"));
lf[690]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\055\143\141\156\156\157\164\040\143\157\145\162\143\145\040\151\156\145\170\141\143\164\040\154\151\164\145\162\141\154\040\140\176\123\047\040\164\157\040\146\151\170\156\165\155\000"));
lf[691]=C_h_intern(&lf[691],36, C_text("chicken.compiler.support#big-fixnum?"));
lf[692]=C_h_intern(&lf[692],10, C_text("scheme#max"));
lf[693]=C_h_intern(&lf[693],52, C_text("chicken.compiler.support#make-block-variable-literal"));
lf[694]=C_h_intern(&lf[694],52, C_text("chicken.compiler.support#block-variable-literal-name"));
lf[695]=C_h_intern(&lf[695],48, C_text("chicken.compiler.support#block-variable-literal?"));
lf[696]=C_h_intern(&lf[696],21, C_text("##sys#undefined-value"));
lf[697]=C_h_intern(&lf[697],16, C_text("##core#immediate"));
lf[698]=C_h_intern(&lf[698],3, C_text("fix"));
lf[699]=C_h_intern(&lf[699],4, C_text("bool"));
lf[700]=C_h_intern(&lf[700],4, C_text("char"));
lf[701]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\156\151\154\376\377\016"));
lf[702]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\157\146\376\377\016"));
lf[703]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\142\167\160\376\377\016"));
lf[704]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\142\141\144\040\151\155\155\145\144\151\141\164\145\040\050\160\162\145\160\141\162\145\051\000"));
lf[705]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\146\141\163\164\040\147\154\157\142\141\154\040\141\163\163\151\147\156\155\145\156\164\163\000"));
lf[706]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\146\141\163\164\040\147\154\157\142\141\154\040\162\145\146\145\162\145\156\143\145\163\000"));
lf[707]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\146\141\163\164\040\142\157\170\040\151\156\151\164\151\141\154\151\172\141\164\151\157\156\163\000"));
lf[708]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\160\162\145\160\141\162\141\164\151\157\156\040\160\150\141\163\145\056\056\056\000"));
C_register_lf2(lf,709,create_ptable());{}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6704,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{
C_word *av2=av;
av2[0]=C_SCHEME_UNDEFINED;
av2[1]=t2;
C_library_toplevel(2,av2);}}

/* va28178 in k23208 in k23199 in k23196 in k23193 in walk in k23082 in chicken.compiler.core#prepare-for-code-generation in k6729 in k6726 in k6723 in k6720 in k6717 in k6714 in k6711 in k6708 in k6705 in k6702 */
static void va28178(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
C_check_for_interrupt;
if(C_unlikely(!C_demand(C_calculate_demand(33,0,6)))){
C_save_and_reclaim_args((void *)trva28178,2,t0,t1);}
a=C_alloc(33);
t2=C_s_a_i_plus(&a,2,t1,C_fix(1));
t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23386,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
C_trace(C_text("core.scm:3193: mapwalk"));
t5=((C_word*)((C_word*)t0)[5])[1];
f_24401(t5,t4,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);}

#ifdef C_ENABLE_PTABLES
static C_PTABLE_ENTRY ptable[1609] = {
{C_text("f26538:core_2escm"),(void*)f26538},
{C_text("f27239:core_2escm"),(void*)f27239},
{C_text("f_10023:core_2escm"),(void*)f_10023},
{C_text("f_10048:core_2escm"),(void*)f_10048},
{C_text("f_10068:core_2escm"),(void*)f_10068},
{C_text("f_10076:core_2escm"),(void*)f_10076},
{C_text("f_10084:core_2escm"),(void*)f_10084},
{C_text("f_10087:core_2escm"),(void*)f_10087},
{C_text("f_10092:core_2escm"),(void*)f_10092},
{C_text("f_10097:core_2escm"),(void*)f_10097},
{C_text("f_10107:core_2escm"),(void*)f_10107},
{C_text("f_10112:core_2escm"),(void*)f_10112},
{C_text("f_10137:core_2escm"),(void*)f_10137},
{C_text("f_10158:core_2escm"),(void*)f_10158},
{C_text("f_10163:core_2escm"),(void*)f_10163},
{C_text("f_10173:core_2escm"),(void*)f_10173},
{C_text("f_10176:core_2escm"),(void*)f_10176},
{C_text("f_10182:core_2escm"),(void*)f_10182},
{C_text("f_10185:core_2escm"),(void*)f_10185},
{C_text("f_10188:core_2escm"),(void*)f_10188},
{C_text("f_10194:core_2escm"),(void*)f_10194},
{C_text("f_10203:core_2escm"),(void*)f_10203},
{C_text("f_10209:core_2escm"),(void*)f_10209},
{C_text("f_10216:core_2escm"),(void*)f_10216},
{C_text("f_10247:core_2escm"),(void*)f_10247},
{C_text("f_10258:core_2escm"),(void*)f_10258},
{C_text("f_10260:core_2escm"),(void*)f_10260},
{C_text("f_10264:core_2escm"),(void*)f_10264},
{C_text("f_10268:core_2escm"),(void*)f_10268},
{C_text("f_10271:core_2escm"),(void*)f_10271},
{C_text("f_10277:core_2escm"),(void*)f_10277},
{C_text("f_10281:core_2escm"),(void*)f_10281},
{C_text("f_10286:core_2escm"),(void*)f_10286},
{C_text("f_10291:core_2escm"),(void*)f_10291},
{C_text("f_10299:core_2escm"),(void*)f_10299},
{C_text("f_10303:core_2escm"),(void*)f_10303},
{C_text("f_10316:core_2escm"),(void*)f_10316},
{C_text("f_10321:core_2escm"),(void*)f_10321},
{C_text("f_10325:core_2escm"),(void*)f_10325},
{C_text("f_10328:core_2escm"),(void*)f_10328},
{C_text("f_10333:core_2escm"),(void*)f_10333},
{C_text("f_10335:core_2escm"),(void*)f_10335},
{C_text("f_10360:core_2escm"),(void*)f_10360},
{C_text("f_10370:core_2escm"),(void*)f_10370},
{C_text("f_10375:core_2escm"),(void*)f_10375},
{C_text("f_10383:core_2escm"),(void*)f_10383},
{C_text("f_10385:core_2escm"),(void*)f_10385},
{C_text("f_10397:core_2escm"),(void*)f_10397},
{C_text("f_10402:core_2escm"),(void*)f_10402},
{C_text("f_10406:core_2escm"),(void*)f_10406},
{C_text("f_10410:core_2escm"),(void*)f_10410},
{C_text("f_10413:core_2escm"),(void*)f_10413},
{C_text("f_10419:core_2escm"),(void*)f_10419},
{C_text("f_10423:core_2escm"),(void*)f_10423},
{C_text("f_10433:core_2escm"),(void*)f_10433},
{C_text("f_10439:core_2escm"),(void*)f_10439},
{C_text("f_10443:core_2escm"),(void*)f_10443},
{C_text("f_10446:core_2escm"),(void*)f_10446},
{C_text("f_10464:core_2escm"),(void*)f_10464},
{C_text("f_10468:core_2escm"),(void*)f_10468},
{C_text("f_10472:core_2escm"),(void*)f_10472},
{C_text("f_10487:core_2escm"),(void*)f_10487},
{C_text("f_10491:core_2escm"),(void*)f_10491},
{C_text("f_10493:core_2escm"),(void*)f_10493},
{C_text("f_10547:core_2escm"),(void*)f_10547},
{C_text("f_10551:core_2escm"),(void*)f_10551},
{C_text("f_10566:core_2escm"),(void*)f_10566},
{C_text("f_10569:core_2escm"),(void*)f_10569},
{C_text("f_10572:core_2escm"),(void*)f_10572},
{C_text("f_10576:core_2escm"),(void*)f_10576},
{C_text("f_10595:core_2escm"),(void*)f_10595},
{C_text("f_10599:core_2escm"),(void*)f_10599},
{C_text("f_10603:core_2escm"),(void*)f_10603},
{C_text("f_10606:core_2escm"),(void*)f_10606},
{C_text("f_10612:core_2escm"),(void*)f_10612},
{C_text("f_10620:core_2escm"),(void*)f_10620},
{C_text("f_10626:core_2escm"),(void*)f_10626},
{C_text("f_10630:core_2escm"),(void*)f_10630},
{C_text("f_10633:core_2escm"),(void*)f_10633},
{C_text("f_10636:core_2escm"),(void*)f_10636},
{C_text("f_10661:core_2escm"),(void*)f_10661},
{C_text("f_10663:core_2escm"),(void*)f_10663},
{C_text("f_10704:core_2escm"),(void*)f_10704},
{C_text("f_10707:core_2escm"),(void*)f_10707},
{C_text("f_10710:core_2escm"),(void*)f_10710},
{C_text("f_10713:core_2escm"),(void*)f_10713},
{C_text("f_10716:core_2escm"),(void*)f_10716},
{C_text("f_10719:core_2escm"),(void*)f_10719},
{C_text("f_10722:core_2escm"),(void*)f_10722},
{C_text("f_10744:core_2escm"),(void*)f_10744},
{C_text("f_10748:core_2escm"),(void*)f_10748},
{C_text("f_10752:core_2escm"),(void*)f_10752},
{C_text("f_10766:core_2escm"),(void*)f_10766},
{C_text("f_10797:core_2escm"),(void*)f_10797},
{C_text("f_10819:core_2escm"),(void*)f_10819},
{C_text("f_10822:core_2escm"),(void*)f_10822},
{C_text("f_10825:core_2escm"),(void*)f_10825},
{C_text("f_10873:core_2escm"),(void*)f_10873},
{C_text("f_10877:core_2escm"),(void*)f_10877},
{C_text("f_10881:core_2escm"),(void*)f_10881},
{C_text("f_10889:core_2escm"),(void*)f_10889},
{C_text("f_10899:core_2escm"),(void*)f_10899},
{C_text("f_10903:core_2escm"),(void*)f_10903},
{C_text("f_10906:core_2escm"),(void*)f_10906},
{C_text("f_10913:core_2escm"),(void*)f_10913},
{C_text("f_10917:core_2escm"),(void*)f_10917},
{C_text("f_10927:core_2escm"),(void*)f_10927},
{C_text("f_10931:core_2escm"),(void*)f_10931},
{C_text("f_10935:core_2escm"),(void*)f_10935},
{C_text("f_10956:core_2escm"),(void*)f_10956},
{C_text("f_10959:core_2escm"),(void*)f_10959},
{C_text("f_10967:core_2escm"),(void*)f_10967},
{C_text("f_10989:core_2escm"),(void*)f_10989},
{C_text("f_10999:core_2escm"),(void*)f_10999},
{C_text("f_11012:core_2escm"),(void*)f_11012},
{C_text("f_11020:core_2escm"),(void*)f_11020},
{C_text("f_11026:core_2escm"),(void*)f_11026},
{C_text("f_11048:core_2escm"),(void*)f_11048},
{C_text("f_11058:core_2escm"),(void*)f_11058},
{C_text("f_11071:core_2escm"),(void*)f_11071},
{C_text("f_11096:core_2escm"),(void*)f_11096},
{C_text("f_11139:core_2escm"),(void*)f_11139},
{C_text("f_11151:core_2escm"),(void*)f_11151},
{C_text("f_11153:core_2escm"),(void*)f_11153},
{C_text("f_11167:core_2escm"),(void*)f_11167},
{C_text("f_11192:core_2escm"),(void*)f_11192},
{C_text("f_11208:core_2escm"),(void*)f_11208},
{C_text("f_11217:core_2escm"),(void*)f_11217},
{C_text("f_11220:core_2escm"),(void*)f_11220},
{C_text("f_11223:core_2escm"),(void*)f_11223},
{C_text("f_11226:core_2escm"),(void*)f_11226},
{C_text("f_11229:core_2escm"),(void*)f_11229},
{C_text("f_11232:core_2escm"),(void*)f_11232},
{C_text("f_11235:core_2escm"),(void*)f_11235},
{C_text("f_11242:core_2escm"),(void*)f_11242},
{C_text("f_11250:core_2escm"),(void*)f_11250},
{C_text("f_11256:core_2escm"),(void*)f_11256},
{C_text("f_11259:core_2escm"),(void*)f_11259},
{C_text("f_11262:core_2escm"),(void*)f_11262},
{C_text("f_11267:core_2escm"),(void*)f_11267},
{C_text("f_11271:core_2escm"),(void*)f_11271},
{C_text("f_11274:core_2escm"),(void*)f_11274},
{C_text("f_11278:core_2escm"),(void*)f_11278},
{C_text("f_11282:core_2escm"),(void*)f_11282},
{C_text("f_11285:core_2escm"),(void*)f_11285},
{C_text("f_11288:core_2escm"),(void*)f_11288},
{C_text("f_11297:core_2escm"),(void*)f_11297},
{C_text("f_11302:core_2escm"),(void*)f_11302},
{C_text("f_11309:core_2escm"),(void*)f_11309},
{C_text("f_11317:core_2escm"),(void*)f_11317},
{C_text("f_11342:core_2escm"),(void*)f_11342},
{C_text("f_11355:core_2escm"),(void*)f_11355},
{C_text("f_11359:core_2escm"),(void*)f_11359},
{C_text("f_11362:core_2escm"),(void*)f_11362},
{C_text("f_11365:core_2escm"),(void*)f_11365},
{C_text("f_11368:core_2escm"),(void*)f_11368},
{C_text("f_11387:core_2escm"),(void*)f_11387},
{C_text("f_11390:core_2escm"),(void*)f_11390},
{C_text("f_11400:core_2escm"),(void*)f_11400},
{C_text("f_11402:core_2escm"),(void*)f_11402},
{C_text("f_11413:core_2escm"),(void*)f_11413},
{C_text("f_11427:core_2escm"),(void*)f_11427},
{C_text("f_11431:core_2escm"),(void*)f_11431},
{C_text("f_11434:core_2escm"),(void*)f_11434},
{C_text("f_11437:core_2escm"),(void*)f_11437},
{C_text("f_11440:core_2escm"),(void*)f_11440},
{C_text("f_11444:core_2escm"),(void*)f_11444},
{C_text("f_11448:core_2escm"),(void*)f_11448},
{C_text("f_11452:core_2escm"),(void*)f_11452},
{C_text("f_11456:core_2escm"),(void*)f_11456},
{C_text("f_11459:core_2escm"),(void*)f_11459},
{C_text("f_11462:core_2escm"),(void*)f_11462},
{C_text("f_11465:core_2escm"),(void*)f_11465},
{C_text("f_11468:core_2escm"),(void*)f_11468},
{C_text("f_11483:core_2escm"),(void*)f_11483},
{C_text("f_11489:core_2escm"),(void*)f_11489},
{C_text("f_11499:core_2escm"),(void*)f_11499},
{C_text("f_11509:core_2escm"),(void*)f_11509},
{C_text("f_11514:core_2escm"),(void*)f_11514},
{C_text("f_11520:core_2escm"),(void*)f_11520},
{C_text("f_11526:core_2escm"),(void*)f_11526},
{C_text("f_11530:core_2escm"),(void*)f_11530},
{C_text("f_11535:core_2escm"),(void*)f_11535},
{C_text("f_11537:core_2escm"),(void*)f_11537},
{C_text("f_11541:core_2escm"),(void*)f_11541},
{C_text("f_11546:core_2escm"),(void*)f_11546},
{C_text("f_11559:core_2escm"),(void*)f_11559},
{C_text("f_11565:core_2escm"),(void*)f_11565},
{C_text("f_11571:core_2escm"),(void*)f_11571},
{C_text("f_11572:core_2escm"),(void*)f_11572},
{C_text("f_11578:core_2escm"),(void*)f_11578},
{C_text("f_11589:core_2escm"),(void*)f_11589},
{C_text("f_11604:core_2escm"),(void*)f_11604},
{C_text("f_11608:core_2escm"),(void*)f_11608},
{C_text("f_11612:core_2escm"),(void*)f_11612},
{C_text("f_11615:core_2escm"),(void*)f_11615},
{C_text("f_11618:core_2escm"),(void*)f_11618},
{C_text("f_11621:core_2escm"),(void*)f_11621},
{C_text("f_11624:core_2escm"),(void*)f_11624},
{C_text("f_11627:core_2escm"),(void*)f_11627},
{C_text("f_11630:core_2escm"),(void*)f_11630},
{C_text("f_11633:core_2escm"),(void*)f_11633},
{C_text("f_11640:core_2escm"),(void*)f_11640},
{C_text("f_11650:core_2escm"),(void*)f_11650},
{C_text("f_11654:core_2escm"),(void*)f_11654},
{C_text("f_11667:core_2escm"),(void*)f_11667},
{C_text("f_11678:core_2escm"),(void*)f_11678},
{C_text("f_11703:core_2escm"),(void*)f_11703},
{C_text("f_11711:core_2escm"),(void*)f_11711},
{C_text("f_11736:core_2escm"),(void*)f_11736},
{C_text("f_11784:core_2escm"),(void*)f_11784},
{C_text("f_11787:core_2escm"),(void*)f_11787},
{C_text("f_11790:core_2escm"),(void*)f_11790},
{C_text("f_11796:core_2escm"),(void*)f_11796},
{C_text("f_11799:core_2escm"),(void*)f_11799},
{C_text("f_11804:core_2escm"),(void*)f_11804},
{C_text("f_11808:core_2escm"),(void*)f_11808},
{C_text("f_11812:core_2escm"),(void*)f_11812},
{C_text("f_11815:core_2escm"),(void*)f_11815},
{C_text("f_11821:core_2escm"),(void*)f_11821},
{C_text("f_11829:core_2escm"),(void*)f_11829},
{C_text("f_11833:core_2escm"),(void*)f_11833},
{C_text("f_11835:core_2escm"),(void*)f_11835},
{C_text("f_11839:core_2escm"),(void*)f_11839},
{C_text("f_11842:core_2escm"),(void*)f_11842},
{C_text("f_11847:core_2escm"),(void*)f_11847},
{C_text("f_11849:core_2escm"),(void*)f_11849},
{C_text("f_11874:core_2escm"),(void*)f_11874},
{C_text("f_11893:core_2escm"),(void*)f_11893},
{C_text("f_11896:core_2escm"),(void*)f_11896},
{C_text("f_11899:core_2escm"),(void*)f_11899},
{C_text("f_11902:core_2escm"),(void*)f_11902},
{C_text("f_11909:core_2escm"),(void*)f_11909},
{C_text("f_11912:core_2escm"),(void*)f_11912},
{C_text("f_11918:core_2escm"),(void*)f_11918},
{C_text("f_11921:core_2escm"),(void*)f_11921},
{C_text("f_11924:core_2escm"),(void*)f_11924},
{C_text("f_11939:core_2escm"),(void*)f_11939},
{C_text("f_11942:core_2escm"),(void*)f_11942},
{C_text("f_11948:core_2escm"),(void*)f_11948},
{C_text("f_11955:core_2escm"),(void*)f_11955},
{C_text("f_11962:core_2escm"),(void*)f_11962},
{C_text("f_11985:core_2escm"),(void*)f_11985},
{C_text("f_11997:core_2escm"),(void*)f_11997},
{C_text("f_12007:core_2escm"),(void*)f_12007},
{C_text("f_12014:core_2escm"),(void*)f_12014},
{C_text("f_12041:core_2escm"),(void*)f_12041},
{C_text("f_12049:core_2escm"),(void*)f_12049},
{C_text("f_12055:core_2escm"),(void*)f_12055},
{C_text("f_12062:core_2escm"),(void*)f_12062},
{C_text("f_12073:core_2escm"),(void*)f_12073},
{C_text("f_12076:core_2escm"),(void*)f_12076},
{C_text("f_12079:core_2escm"),(void*)f_12079},
{C_text("f_12085:core_2escm"),(void*)f_12085},
{C_text("f_12088:core_2escm"),(void*)f_12088},
{C_text("f_12094:core_2escm"),(void*)f_12094},
{C_text("f_12101:core_2escm"),(void*)f_12101},
{C_text("f_12105:core_2escm"),(void*)f_12105},
{C_text("f_12111:core_2escm"),(void*)f_12111},
{C_text("f_12114:core_2escm"),(void*)f_12114},
{C_text("f_12117:core_2escm"),(void*)f_12117},
{C_text("f_12120:core_2escm"),(void*)f_12120},
{C_text("f_12123:core_2escm"),(void*)f_12123},
{C_text("f_12127:core_2escm"),(void*)f_12127},
{C_text("f_12130:core_2escm"),(void*)f_12130},
{C_text("f_12136:core_2escm"),(void*)f_12136},
{C_text("f_12139:core_2escm"),(void*)f_12139},
{C_text("f_12142:core_2escm"),(void*)f_12142},
{C_text("f_12158:core_2escm"),(void*)f_12158},
{C_text("f_12164:core_2escm"),(void*)f_12164},
{C_text("f_12167:core_2escm"),(void*)f_12167},
{C_text("f_12170:core_2escm"),(void*)f_12170},
{C_text("f_12173:core_2escm"),(void*)f_12173},
{C_text("f_12176:core_2escm"),(void*)f_12176},
{C_text("f_12180:core_2escm"),(void*)f_12180},
{C_text("f_12183:core_2escm"),(void*)f_12183},
{C_text("f_12189:core_2escm"),(void*)f_12189},
{C_text("f_12192:core_2escm"),(void*)f_12192},
{C_text("f_12195:core_2escm"),(void*)f_12195},
{C_text("f_12202:core_2escm"),(void*)f_12202},
{C_text("f_12206:core_2escm"),(void*)f_12206},
{C_text("f_12222:core_2escm"),(void*)f_12222},
{C_text("f_12233:core_2escm"),(void*)f_12233},
{C_text("f_12246:core_2escm"),(void*)f_12246},
{C_text("f_12252:core_2escm"),(void*)f_12252},
{C_text("f_12255:core_2escm"),(void*)f_12255},
{C_text("f_12258:core_2escm"),(void*)f_12258},
{C_text("f_12261:core_2escm"),(void*)f_12261},
{C_text("f_12264:core_2escm"),(void*)f_12264},
{C_text("f_12268:core_2escm"),(void*)f_12268},
{C_text("f_12271:core_2escm"),(void*)f_12271},
{C_text("f_12277:core_2escm"),(void*)f_12277},
{C_text("f_12280:core_2escm"),(void*)f_12280},
{C_text("f_12283:core_2escm"),(void*)f_12283},
{C_text("f_12312:core_2escm"),(void*)f_12312},
{C_text("f_12320:core_2escm"),(void*)f_12320},
{C_text("f_12328:core_2escm"),(void*)f_12328},
{C_text("f_12330:core_2escm"),(void*)f_12330},
{C_text("f_12355:core_2escm"),(void*)f_12355},
{C_text("f_12379:core_2escm"),(void*)f_12379},
{C_text("f_12383:core_2escm"),(void*)f_12383},
{C_text("f_12417:core_2escm"),(void*)f_12417},
{C_text("f_12421:core_2escm"),(void*)f_12421},
{C_text("f_12427:core_2escm"),(void*)f_12427},
{C_text("f_12452:core_2escm"),(void*)f_12452},
{C_text("f_12476:core_2escm"),(void*)f_12476},
{C_text("f_12497:core_2escm"),(void*)f_12497},
{C_text("f_12501:core_2escm"),(void*)f_12501},
{C_text("f_12524:core_2escm"),(void*)f_12524},
{C_text("f_12539:core_2escm"),(void*)f_12539},
{C_text("f_12562:core_2escm"),(void*)f_12562},
{C_text("f_12566:core_2escm"),(void*)f_12566},
{C_text("f_12584:core_2escm"),(void*)f_12584},
{C_text("f_12591:core_2escm"),(void*)f_12591},
{C_text("f_12595:core_2escm"),(void*)f_12595},
{C_text("f_12610:core_2escm"),(void*)f_12610},
{C_text("f_12623:core_2escm"),(void*)f_12623},
{C_text("f_12636:core_2escm"),(void*)f_12636},
{C_text("f_12649:core_2escm"),(void*)f_12649},
{C_text("f_12662:core_2escm"),(void*)f_12662},
{C_text("f_12671:core_2escm"),(void*)f_12671},
{C_text("f_12674:core_2escm"),(void*)f_12674},
{C_text("f_12677:core_2escm"),(void*)f_12677},
{C_text("f_12718:core_2escm"),(void*)f_12718},
{C_text("f_12724:core_2escm"),(void*)f_12724},
{C_text("f_12733:core_2escm"),(void*)f_12733},
{C_text("f_12736:core_2escm"),(void*)f_12736},
{C_text("f_12739:core_2escm"),(void*)f_12739},
{C_text("f_12742:core_2escm"),(void*)f_12742},
{C_text("f_12745:core_2escm"),(void*)f_12745},
{C_text("f_12748:core_2escm"),(void*)f_12748},
{C_text("f_12751:core_2escm"),(void*)f_12751},
{C_text("f_12754:core_2escm"),(void*)f_12754},
{C_text("f_12757:core_2escm"),(void*)f_12757},
{C_text("f_12772:core_2escm"),(void*)f_12772},
{C_text("f_12792:core_2escm"),(void*)f_12792},
{C_text("f_12796:core_2escm"),(void*)f_12796},
{C_text("f_12799:core_2escm"),(void*)f_12799},
{C_text("f_12806:core_2escm"),(void*)f_12806},
{C_text("f_12809:core_2escm"),(void*)f_12809},
{C_text("f_12815:core_2escm"),(void*)f_12815},
{C_text("f_12818:core_2escm"),(void*)f_12818},
{C_text("f_12821:core_2escm"),(void*)f_12821},
{C_text("f_12840:core_2escm"),(void*)f_12840},
{C_text("f_12843:core_2escm"),(void*)f_12843},
{C_text("f_12852:core_2escm"),(void*)f_12852},
{C_text("f_12855:core_2escm"),(void*)f_12855},
{C_text("f_12858:core_2escm"),(void*)f_12858},
{C_text("f_12878:core_2escm"),(void*)f_12878},
{C_text("f_12886:core_2escm"),(void*)f_12886},
{C_text("f_12897:core_2escm"),(void*)f_12897},
{C_text("f_12900:core_2escm"),(void*)f_12900},
{C_text("f_12906:core_2escm"),(void*)f_12906},
{C_text("f_12909:core_2escm"),(void*)f_12909},
{C_text("f_12912:core_2escm"),(void*)f_12912},
{C_text("f_12927:core_2escm"),(void*)f_12927},
{C_text("f_12930:core_2escm"),(void*)f_12930},
{C_text("f_12933:core_2escm"),(void*)f_12933},
{C_text("f_12939:core_2escm"),(void*)f_12939},
{C_text("f_12951:core_2escm"),(void*)f_12951},
{C_text("f_12955:core_2escm"),(void*)f_12955},
{C_text("f_12959:core_2escm"),(void*)f_12959},
{C_text("f_12962:core_2escm"),(void*)f_12962},
{C_text("f_12968:core_2escm"),(void*)f_12968},
{C_text("f_12988:core_2escm"),(void*)f_12988},
{C_text("f_12992:core_2escm"),(void*)f_12992},
{C_text("f_13017:core_2escm"),(void*)f_13017},
{C_text("f_13040:core_2escm"),(void*)f_13040},
{C_text("f_13042:core_2escm"),(void*)f_13042},
{C_text("f_13046:core_2escm"),(void*)f_13046},
{C_text("f_13049:core_2escm"),(void*)f_13049},
{C_text("f_13054:core_2escm"),(void*)f_13054},
{C_text("f_13087:core_2escm"),(void*)f_13087},
{C_text("f_13090:core_2escm"),(void*)f_13090},
{C_text("f_13093:core_2escm"),(void*)f_13093},
{C_text("f_13100:core_2escm"),(void*)f_13100},
{C_text("f_13103:core_2escm"),(void*)f_13103},
{C_text("f_13109:core_2escm"),(void*)f_13109},
{C_text("f_13112:core_2escm"),(void*)f_13112},
{C_text("f_13115:core_2escm"),(void*)f_13115},
{C_text("f_13122:core_2escm"),(void*)f_13122},
{C_text("f_13134:core_2escm"),(void*)f_13134},
{C_text("f_13140:core_2escm"),(void*)f_13140},
{C_text("f_13143:core_2escm"),(void*)f_13143},
{C_text("f_13146:core_2escm"),(void*)f_13146},
{C_text("f_13156:core_2escm"),(void*)f_13156},
{C_text("f_13159:core_2escm"),(void*)f_13159},
{C_text("f_13169:core_2escm"),(void*)f_13169},
{C_text("f_13172:core_2escm"),(void*)f_13172},
{C_text("f_13175:core_2escm"),(void*)f_13175},
{C_text("f_13178:core_2escm"),(void*)f_13178},
{C_text("f_13181:core_2escm"),(void*)f_13181},
{C_text("f_13184:core_2escm"),(void*)f_13184},
{C_text("f_13202:core_2escm"),(void*)f_13202},
{C_text("f_13205:core_2escm"),(void*)f_13205},
{C_text("f_13211:core_2escm"),(void*)f_13211},
{C_text("f_13214:core_2escm"),(void*)f_13214},
{C_text("f_13217:core_2escm"),(void*)f_13217},
{C_text("f_13235:core_2escm"),(void*)f_13235},
{C_text("f_13238:core_2escm"),(void*)f_13238},
{C_text("f_13244:core_2escm"),(void*)f_13244},
{C_text("f_13247:core_2escm"),(void*)f_13247},
{C_text("f_13250:core_2escm"),(void*)f_13250},
{C_text("f_13255:core_2escm"),(void*)f_13255},
{C_text("f_13261:core_2escm"),(void*)f_13261},
{C_text("f_13267:core_2escm"),(void*)f_13267},
{C_text("f_13273:core_2escm"),(void*)f_13273},
{C_text("f_13279:core_2escm"),(void*)f_13279},
{C_text("f_13286:core_2escm"),(void*)f_13286},
{C_text("f_13305:core_2escm"),(void*)f_13305},
{C_text("f_13311:core_2escm"),(void*)f_13311},
{C_text("f_13333:core_2escm"),(void*)f_13333},
{C_text("f_13339:core_2escm"),(void*)f_13339},
{C_text("f_13347:core_2escm"),(void*)f_13347},
{C_text("f_13354:core_2escm"),(void*)f_13354},
{C_text("f_13356:core_2escm"),(void*)f_13356},
{C_text("f_13381:core_2escm"),(void*)f_13381},
{C_text("f_13399:core_2escm"),(void*)f_13399},
{C_text("f_13409:core_2escm"),(void*)f_13409},
{C_text("f_13419:core_2escm"),(void*)f_13419},
{C_text("f_13431:core_2escm"),(void*)f_13431},
{C_text("f_13434:core_2escm"),(void*)f_13434},
{C_text("f_13441:core_2escm"),(void*)f_13441},
{C_text("f_13445:core_2escm"),(void*)f_13445},
{C_text("f_13453:core_2escm"),(void*)f_13453},
{C_text("f_13465:core_2escm"),(void*)f_13465},
{C_text("f_13469:core_2escm"),(void*)f_13469},
{C_text("f_13481:core_2escm"),(void*)f_13481},
{C_text("f_13541:core_2escm"),(void*)f_13541},
{C_text("f_13570:core_2escm"),(void*)f_13570},
{C_text("f_13594:core_2escm"),(void*)f_13594},
{C_text("f_13602:core_2escm"),(void*)f_13602},
{C_text("f_13606:core_2escm"),(void*)f_13606},
{C_text("f_13610:core_2escm"),(void*)f_13610},
{C_text("f_13651:core_2escm"),(void*)f_13651},
{C_text("f_13662:core_2escm"),(void*)f_13662},
{C_text("f_13669:core_2escm"),(void*)f_13669},
{C_text("f_13672:core_2escm"),(void*)f_13672},
{C_text("f_13678:core_2escm"),(void*)f_13678},
{C_text("f_13681:core_2escm"),(void*)f_13681},
{C_text("f_13684:core_2escm"),(void*)f_13684},
{C_text("f_13721:core_2escm"),(void*)f_13721},
{C_text("f_13747:core_2escm"),(void*)f_13747},
{C_text("f_13775:core_2escm"),(void*)f_13775},
{C_text("f_13790:core_2escm"),(void*)f_13790},
{C_text("f_13807:core_2escm"),(void*)f_13807},
{C_text("f_13813:core_2escm"),(void*)f_13813},
{C_text("f_13816:core_2escm"),(void*)f_13816},
{C_text("f_13836:core_2escm"),(void*)f_13836},
{C_text("f_13841:core_2escm"),(void*)f_13841},
{C_text("f_13847:core_2escm"),(void*)f_13847},
{C_text("f_13992:core_2escm"),(void*)f_13992},
{C_text("f_13997:core_2escm"),(void*)f_13997},
{C_text("f_14005:core_2escm"),(void*)f_14005},
{C_text("f_14007:core_2escm"),(void*)f_14007},
{C_text("f_14027:core_2escm"),(void*)f_14027},
{C_text("f_14030:core_2escm"),(void*)f_14030},
{C_text("f_14033:core_2escm"),(void*)f_14033},
{C_text("f_14039:core_2escm"),(void*)f_14039},
{C_text("f_14042:core_2escm"),(void*)f_14042},
{C_text("f_14081:core_2escm"),(void*)f_14081},
{C_text("f_14086:core_2escm"),(void*)f_14086},
{C_text("f_14098:core_2escm"),(void*)f_14098},
{C_text("f_14123:core_2escm"),(void*)f_14123},
{C_text("f_14133:core_2escm"),(void*)f_14133},
{C_text("f_14144:core_2escm"),(void*)f_14144},
{C_text("f_14148:core_2escm"),(void*)f_14148},
{C_text("f_14158:core_2escm"),(void*)f_14158},
{C_text("f_14164:core_2escm"),(void*)f_14164},
{C_text("f_14172:core_2escm"),(void*)f_14172},
{C_text("f_14207:core_2escm"),(void*)f_14207},
{C_text("f_14214:core_2escm"),(void*)f_14214},
{C_text("f_14217:core_2escm"),(void*)f_14217},
{C_text("f_14224:core_2escm"),(void*)f_14224},
{C_text("f_14226:core_2escm"),(void*)f_14226},
{C_text("f_14232:core_2escm"),(void*)f_14232},
{C_text("f_14240:core_2escm"),(void*)f_14240},
{C_text("f_14246:core_2escm"),(void*)f_14246},
{C_text("f_14249:core_2escm"),(void*)f_14249},
{C_text("f_14252:core_2escm"),(void*)f_14252},
{C_text("f_14255:core_2escm"),(void*)f_14255},
{C_text("f_14260:core_2escm"),(void*)f_14260},
{C_text("f_14264:core_2escm"),(void*)f_14264},
{C_text("f_14267:core_2escm"),(void*)f_14267},
{C_text("f_14270:core_2escm"),(void*)f_14270},
{C_text("f_14276:core_2escm"),(void*)f_14276},
{C_text("f_14280:core_2escm"),(void*)f_14280},
{C_text("f_14284:core_2escm"),(void*)f_14284},
{C_text("f_14295:core_2escm"),(void*)f_14295},
{C_text("f_14298:core_2escm"),(void*)f_14298},
{C_text("f_14301:core_2escm"),(void*)f_14301},
{C_text("f_14337:core_2escm"),(void*)f_14337},
{C_text("f_14341:core_2escm"),(void*)f_14341},
{C_text("f_14362:core_2escm"),(void*)f_14362},
{C_text("f_14366:core_2escm"),(void*)f_14366},
{C_text("f_14387:core_2escm"),(void*)f_14387},
{C_text("f_14391:core_2escm"),(void*)f_14391},
{C_text("f_14395:core_2escm"),(void*)f_14395},
{C_text("f_14408:core_2escm"),(void*)f_14408},
{C_text("f_14412:core_2escm"),(void*)f_14412},
{C_text("f_14495:core_2escm"),(void*)f_14495},
{C_text("f_14505:core_2escm"),(void*)f_14505},
{C_text("f_14537:core_2escm"),(void*)f_14537},
{C_text("f_14543:core_2escm"),(void*)f_14543},
{C_text("f_14551:core_2escm"),(void*)f_14551},
{C_text("f_14559:core_2escm"),(void*)f_14559},
{C_text("f_14569:core_2escm"),(void*)f_14569},
{C_text("f_14582:core_2escm"),(void*)f_14582},
{C_text("f_14592:core_2escm"),(void*)f_14592},
{C_text("f_14619:core_2escm"),(void*)f_14619},
{C_text("f_14630:core_2escm"),(void*)f_14630},
{C_text("f_14640:core_2escm"),(void*)f_14640},
{C_text("f_14650:core_2escm"),(void*)f_14650},
{C_text("f_14663:core_2escm"),(void*)f_14663},
{C_text("f_14673:core_2escm"),(void*)f_14673},
{C_text("f_14699:core_2escm"),(void*)f_14699},
{C_text("f_14703:core_2escm"),(void*)f_14703},
{C_text("f_14741:core_2escm"),(void*)f_14741},
{C_text("f_14749:core_2escm"),(void*)f_14749},
{C_text("f_14759:core_2escm"),(void*)f_14759},
{C_text("f_14786:core_2escm"),(void*)f_14786},
{C_text("f_14794:core_2escm"),(void*)f_14794},
{C_text("f_14804:core_2escm"),(void*)f_14804},
{C_text("f_14826:core_2escm"),(void*)f_14826},
{C_text("f_14829:core_2escm"),(void*)f_14829},
{C_text("f_14846:core_2escm"),(void*)f_14846},
{C_text("f_14850:core_2escm"),(void*)f_14850},
{C_text("f_14874:core_2escm"),(void*)f_14874},
{C_text("f_14878:core_2escm"),(void*)f_14878},
{C_text("f_14906:core_2escm"),(void*)f_14906},
{C_text("f_14914:core_2escm"),(void*)f_14914},
{C_text("f_14924:core_2escm"),(void*)f_14924},
{C_text("f_14959:core_2escm"),(void*)f_14959},
{C_text("f_14963:core_2escm"),(void*)f_14963},
{C_text("f_14967:core_2escm"),(void*)f_14967},
{C_text("f_14995:core_2escm"),(void*)f_14995},
{C_text("f_15003:core_2escm"),(void*)f_15003},
{C_text("f_15013:core_2escm"),(void*)f_15013},
{C_text("f_15034:core_2escm"),(void*)f_15034},
{C_text("f_15037:core_2escm"),(void*)f_15037},
{C_text("f_15086:core_2escm"),(void*)f_15086},
{C_text("f_15101:core_2escm"),(void*)f_15101},
{C_text("f_15111:core_2escm"),(void*)f_15111},
{C_text("f_15134:core_2escm"),(void*)f_15134},
{C_text("f_15142:core_2escm"),(void*)f_15142},
{C_text("f_15152:core_2escm"),(void*)f_15152},
{C_text("f_15193:core_2escm"),(void*)f_15193},
{C_text("f_15201:core_2escm"),(void*)f_15201},
{C_text("f_15211:core_2escm"),(void*)f_15211},
{C_text("f_15235:core_2escm"),(void*)f_15235},
{C_text("f_15257:core_2escm"),(void*)f_15257},
{C_text("f_15279:core_2escm"),(void*)f_15279},
{C_text("f_15285:core_2escm"),(void*)f_15285},
{C_text("f_15293:core_2escm"),(void*)f_15293},
{C_text("f_15301:core_2escm"),(void*)f_15301},
{C_text("f_15311:core_2escm"),(void*)f_15311},
{C_text("f_15337:core_2escm"),(void*)f_15337},
{C_text("f_15356:core_2escm"),(void*)f_15356},
{C_text("f_15360:core_2escm"),(void*)f_15360},
{C_text("f_15367:core_2escm"),(void*)f_15367},
{C_text("f_15413:core_2escm"),(void*)f_15413},
{C_text("f_15419:core_2escm"),(void*)f_15419},
{C_text("f_15421:core_2escm"),(void*)f_15421},
{C_text("f_15446:core_2escm"),(void*)f_15446},
{C_text("f_15471:core_2escm"),(void*)f_15471},
{C_text("f_15474:core_2escm"),(void*)f_15474},
{C_text("f_15523:core_2escm"),(void*)f_15523},
{C_text("f_15531:core_2escm"),(void*)f_15531},
{C_text("f_15541:core_2escm"),(void*)f_15541},
{C_text("f_15577:core_2escm"),(void*)f_15577},
{C_text("f_15585:core_2escm"),(void*)f_15585},
{C_text("f_15595:core_2escm"),(void*)f_15595},
{C_text("f_15632:core_2escm"),(void*)f_15632},
{C_text("f_15640:core_2escm"),(void*)f_15640},
{C_text("f_15650:core_2escm"),(void*)f_15650},
{C_text("f_15672:core_2escm"),(void*)f_15672},
{C_text("f_15679:core_2escm"),(void*)f_15679},
{C_text("f_15686:core_2escm"),(void*)f_15686},
{C_text("f_15689:core_2escm"),(void*)f_15689},
{C_text("f_15692:core_2escm"),(void*)f_15692},
{C_text("f_15698:core_2escm"),(void*)f_15698},
{C_text("f_15708:core_2escm"),(void*)f_15708},
{C_text("f_15714:core_2escm"),(void*)f_15714},
{C_text("f_15724:core_2escm"),(void*)f_15724},
{C_text("f_15727:core_2escm"),(void*)f_15727},
{C_text("f_15730:core_2escm"),(void*)f_15730},
{C_text("f_15733:core_2escm"),(void*)f_15733},
{C_text("f_15746:core_2escm"),(void*)f_15746},
{C_text("f_15762:core_2escm"),(void*)f_15762},
{C_text("f_15794:core_2escm"),(void*)f_15794},
{C_text("f_15836:core_2escm"),(void*)f_15836},
{C_text("f_15846:core_2escm"),(void*)f_15846},
{C_text("f_15864:core_2escm"),(void*)f_15864},
{C_text("f_15871:core_2escm"),(void*)f_15871},
{C_text("f_15874:core_2escm"),(void*)f_15874},
{C_text("f_15877:core_2escm"),(void*)f_15877},
{C_text("f_15883:core_2escm"),(void*)f_15883},
{C_text("f_15893:core_2escm"),(void*)f_15893},
{C_text("f_15899:core_2escm"),(void*)f_15899},
{C_text("f_15958:core_2escm"),(void*)f_15958},
{C_text("f_15968:core_2escm"),(void*)f_15968},
{C_text("f_16104:core_2escm"),(void*)f_16104},
{C_text("f_16136:core_2escm"),(void*)f_16136},
{C_text("f_16154:core_2escm"),(void*)f_16154},
{C_text("f_16172:core_2escm"),(void*)f_16172},
{C_text("f_16190:core_2escm"),(void*)f_16190},
{C_text("f_16208:core_2escm"),(void*)f_16208},
{C_text("f_16226:core_2escm"),(void*)f_16226},
{C_text("f_16244:core_2escm"),(void*)f_16244},
{C_text("f_16262:core_2escm"),(void*)f_16262},
{C_text("f_16271:core_2escm"),(void*)f_16271},
{C_text("f_16280:core_2escm"),(void*)f_16280},
{C_text("f_16309:core_2escm"),(void*)f_16309},
{C_text("f_16313:core_2escm"),(void*)f_16313},
{C_text("f_16358:core_2escm"),(void*)f_16358},
{C_text("f_16361:core_2escm"),(void*)f_16361},
{C_text("f_16364:core_2escm"),(void*)f_16364},
{C_text("f_16367:core_2escm"),(void*)f_16367},
{C_text("f_16370:core_2escm"),(void*)f_16370},
{C_text("f_16373:core_2escm"),(void*)f_16373},
{C_text("f_16376:core_2escm"),(void*)f_16376},
{C_text("f_16386:core_2escm"),(void*)f_16386},
{C_text("f_16398:core_2escm"),(void*)f_16398},
{C_text("f_16407:core_2escm"),(void*)f_16407},
{C_text("f_16418:core_2escm"),(void*)f_16418},
{C_text("f_16430:core_2escm"),(void*)f_16430},
{C_text("f_16438:core_2escm"),(void*)f_16438},
{C_text("f_16445:core_2escm"),(void*)f_16445},
{C_text("f_16448:core_2escm"),(void*)f_16448},
{C_text("f_16459:core_2escm"),(void*)f_16459},
{C_text("f_16463:core_2escm"),(void*)f_16463},
{C_text("f_16467:core_2escm"),(void*)f_16467},
{C_text("f_16493:core_2escm"),(void*)f_16493},
{C_text("f_16522:core_2escm"),(void*)f_16522},
{C_text("f_16563:core_2escm"),(void*)f_16563},
{C_text("f_16574:core_2escm"),(void*)f_16574},
{C_text("f_16599:core_2escm"),(void*)f_16599},
{C_text("f_16618:core_2escm"),(void*)f_16618},
{C_text("f_16626:core_2escm"),(void*)f_16626},
{C_text("f_16651:core_2escm"),(void*)f_16651},
{C_text("f_16660:core_2escm"),(void*)f_16660},
{C_text("f_16667:core_2escm"),(void*)f_16667},
{C_text("f_16686:core_2escm"),(void*)f_16686},
{C_text("f_16697:core_2escm"),(void*)f_16697},
{C_text("f_16707:core_2escm"),(void*)f_16707},
{C_text("f_16721:core_2escm"),(void*)f_16721},
{C_text("f_16727:core_2escm"),(void*)f_16727},
{C_text("f_16733:core_2escm"),(void*)f_16733},
{C_text("f_16738:core_2escm"),(void*)f_16738},
{C_text("f_16772:core_2escm"),(void*)f_16772},
{C_text("f_16814:core_2escm"),(void*)f_16814},
{C_text("f_16820:core_2escm"),(void*)f_16820},
{C_text("f_16823:core_2escm"),(void*)f_16823},
{C_text("f_16837:core_2escm"),(void*)f_16837},
{C_text("f_16843:core_2escm"),(void*)f_16843},
{C_text("f_16849:core_2escm"),(void*)f_16849},
{C_text("f_16854:core_2escm"),(void*)f_16854},
{C_text("f_16888:core_2escm"),(void*)f_16888},
{C_text("f_16963:core_2escm"),(void*)f_16963},
{C_text("f_16966:core_2escm"),(void*)f_16966},
{C_text("f_16970:core_2escm"),(void*)f_16970},
{C_text("f_16977:core_2escm"),(void*)f_16977},
{C_text("f_16989:core_2escm"),(void*)f_16989},
{C_text("f_16995:core_2escm"),(void*)f_16995},
{C_text("f_17011:core_2escm"),(void*)f_17011},
{C_text("f_17017:core_2escm"),(void*)f_17017},
{C_text("f_17035:core_2escm"),(void*)f_17035},
{C_text("f_17039:core_2escm"),(void*)f_17039},
{C_text("f_17041:core_2escm"),(void*)f_17041},
{C_text("f_17045:core_2escm"),(void*)f_17045},
{C_text("f_17048:core_2escm"),(void*)f_17048},
{C_text("f_17051:core_2escm"),(void*)f_17051},
{C_text("f_17054:core_2escm"),(void*)f_17054},
{C_text("f_17063:core_2escm"),(void*)f_17063},
{C_text("f_17075:core_2escm"),(void*)f_17075},
{C_text("f_17078:core_2escm"),(void*)f_17078},
{C_text("f_17079:core_2escm"),(void*)f_17079},
{C_text("f_17095:core_2escm"),(void*)f_17095},
{C_text("f_17110:core_2escm"),(void*)f_17110},
{C_text("f_17114:core_2escm"),(void*)f_17114},
{C_text("f_17120:core_2escm"),(void*)f_17120},
{C_text("f_17132:core_2escm"),(void*)f_17132},
{C_text("f_17136:core_2escm"),(void*)f_17136},
{C_text("f_17156:core_2escm"),(void*)f_17156},
{C_text("f_17160:core_2escm"),(void*)f_17160},
{C_text("f_17169:core_2escm"),(void*)f_17169},
{C_text("f_17184:core_2escm"),(void*)f_17184},
{C_text("f_17207:core_2escm"),(void*)f_17207},
{C_text("f_17214:core_2escm"),(void*)f_17214},
{C_text("f_17238:core_2escm"),(void*)f_17238},
{C_text("f_17271:core_2escm"),(void*)f_17271},
{C_text("f_17284:core_2escm"),(void*)f_17284},
{C_text("f_17299:core_2escm"),(void*)f_17299},
{C_text("f_17315:core_2escm"),(void*)f_17315},
{C_text("f_17319:core_2escm"),(void*)f_17319},
{C_text("f_17323:core_2escm"),(void*)f_17323},
{C_text("f_17355:core_2escm"),(void*)f_17355},
{C_text("f_17361:core_2escm"),(void*)f_17361},
{C_text("f_17372:core_2escm"),(void*)f_17372},
{C_text("f_17376:core_2escm"),(void*)f_17376},
{C_text("f_17385:core_2escm"),(void*)f_17385},
{C_text("f_17425:core_2escm"),(void*)f_17425},
{C_text("f_17433:core_2escm"),(void*)f_17433},
{C_text("f_17438:core_2escm"),(void*)f_17438},
{C_text("f_17444:core_2escm"),(void*)f_17444},
{C_text("f_17587:core_2escm"),(void*)f_17587},
{C_text("f_17591:core_2escm"),(void*)f_17591},
{C_text("f_17594:core_2escm"),(void*)f_17594},
{C_text("f_17609:core_2escm"),(void*)f_17609},
{C_text("f_17613:core_2escm"),(void*)f_17613},
{C_text("f_17615:core_2escm"),(void*)f_17615},
{C_text("f_17621:core_2escm"),(void*)f_17621},
{C_text("f_17629:core_2escm"),(void*)f_17629},
{C_text("f_17633:core_2escm"),(void*)f_17633},
{C_text("f_17645:core_2escm"),(void*)f_17645},
{C_text("f_17649:core_2escm"),(void*)f_17649},
{C_text("f_17658:core_2escm"),(void*)f_17658},
{C_text("f_17668:core_2escm"),(void*)f_17668},
{C_text("f_17671:core_2escm"),(void*)f_17671},
{C_text("f_17686:core_2escm"),(void*)f_17686},
{C_text("f_17690:core_2escm"),(void*)f_17690},
{C_text("f_17702:core_2escm"),(void*)f_17702},
{C_text("f_17714:core_2escm"),(void*)f_17714},
{C_text("f_17718:core_2escm"),(void*)f_17718},
{C_text("f_17727:core_2escm"),(void*)f_17727},
{C_text("f_17733:core_2escm"),(void*)f_17733},
{C_text("f_17739:core_2escm"),(void*)f_17739},
{C_text("f_17747:core_2escm"),(void*)f_17747},
{C_text("f_17749:core_2escm"),(void*)f_17749},
{C_text("f_17755:core_2escm"),(void*)f_17755},
{C_text("f_17769:core_2escm"),(void*)f_17769},
{C_text("f_17775:core_2escm"),(void*)f_17775},
{C_text("f_17789:core_2escm"),(void*)f_17789},
{C_text("f_17796:core_2escm"),(void*)f_17796},
{C_text("f_17803:core_2escm"),(void*)f_17803},
{C_text("f_17818:core_2escm"),(void*)f_17818},
{C_text("f_17833:core_2escm"),(void*)f_17833},
{C_text("f_17845:core_2escm"),(void*)f_17845},
{C_text("f_17851:core_2escm"),(void*)f_17851},
{C_text("f_17855:core_2escm"),(void*)f_17855},
{C_text("f_17872:core_2escm"),(void*)f_17872},
{C_text("f_17877:core_2escm"),(void*)f_17877},
{C_text("f_17884:core_2escm"),(void*)f_17884},
{C_text("f_17886:core_2escm"),(void*)f_17886},
{C_text("f_17893:core_2escm"),(void*)f_17893},
{C_text("f_17897:core_2escm"),(void*)f_17897},
{C_text("f_17900:core_2escm"),(void*)f_17900},
{C_text("f_17903:core_2escm"),(void*)f_17903},
{C_text("f_17915:core_2escm"),(void*)f_17915},
{C_text("f_17930:core_2escm"),(void*)f_17930},
{C_text("f_17961:core_2escm"),(void*)f_17961},
{C_text("f_17991:core_2escm"),(void*)f_17991},
{C_text("f_17994:core_2escm"),(void*)f_17994},
{C_text("f_18012:core_2escm"),(void*)f_18012},
{C_text("f_18015:core_2escm"),(void*)f_18015},
{C_text("f_18041:core_2escm"),(void*)f_18041},
{C_text("f_18051:core_2escm"),(void*)f_18051},
{C_text("f_18055:core_2escm"),(void*)f_18055},
{C_text("f_18059:core_2escm"),(void*)f_18059},
{C_text("f_18063:core_2escm"),(void*)f_18063},
{C_text("f_18075:core_2escm"),(void*)f_18075},
{C_text("f_18080:core_2escm"),(void*)f_18080},
{C_text("f_18098:core_2escm"),(void*)f_18098},
{C_text("f_18107:core_2escm"),(void*)f_18107},
{C_text("f_18110:core_2escm"),(void*)f_18110},
{C_text("f_18113:core_2escm"),(void*)f_18113},
{C_text("f_18138:core_2escm"),(void*)f_18138},
{C_text("f_18140:core_2escm"),(void*)f_18140},
{C_text("f_18150:core_2escm"),(void*)f_18150},
{C_text("f_18154:core_2escm"),(void*)f_18154},
{C_text("f_18163:core_2escm"),(void*)f_18163},
{C_text("f_18165:core_2escm"),(void*)f_18165},
{C_text("f_18175:core_2escm"),(void*)f_18175},
{C_text("f_18207:core_2escm"),(void*)f_18207},
{C_text("f_18214:core_2escm"),(void*)f_18214},
{C_text("f_18215:core_2escm"),(void*)f_18215},
{C_text("f_18219:core_2escm"),(void*)f_18219},
{C_text("f_18228:core_2escm"),(void*)f_18228},
{C_text("f_18231:core_2escm"),(void*)f_18231},
{C_text("f_18234:core_2escm"),(void*)f_18234},
{C_text("f_18237:core_2escm"),(void*)f_18237},
{C_text("f_18240:core_2escm"),(void*)f_18240},
{C_text("f_18243:core_2escm"),(void*)f_18243},
{C_text("f_18259:core_2escm"),(void*)f_18259},
{C_text("f_18267:core_2escm"),(void*)f_18267},
{C_text("f_18285:core_2escm"),(void*)f_18285},
{C_text("f_18291:core_2escm"),(void*)f_18291},
{C_text("f_18300:core_2escm"),(void*)f_18300},
{C_text("f_18310:core_2escm"),(void*)f_18310},
{C_text("f_18324:core_2escm"),(void*)f_18324},
{C_text("f_18345:core_2escm"),(void*)f_18345},
{C_text("f_18348:core_2escm"),(void*)f_18348},
{C_text("f_18351:core_2escm"),(void*)f_18351},
{C_text("f_18354:core_2escm"),(void*)f_18354},
{C_text("f_18357:core_2escm"),(void*)f_18357},
{C_text("f_18360:core_2escm"),(void*)f_18360},
{C_text("f_18396:core_2escm"),(void*)f_18396},
{C_text("f_18402:core_2escm"),(void*)f_18402},
{C_text("f_18442:core_2escm"),(void*)f_18442},
{C_text("f_18448:core_2escm"),(void*)f_18448},
{C_text("f_18537:core_2escm"),(void*)f_18537},
{C_text("f_18539:core_2escm"),(void*)f_18539},
{C_text("f_18551:core_2escm"),(void*)f_18551},
{C_text("f_18561:core_2escm"),(void*)f_18561},
{C_text("f_18574:core_2escm"),(void*)f_18574},
{C_text("f_18578:core_2escm"),(void*)f_18578},
{C_text("f_18587:core_2escm"),(void*)f_18587},
{C_text("f_18591:core_2escm"),(void*)f_18591},
{C_text("f_18600:core_2escm"),(void*)f_18600},
{C_text("f_18607:core_2escm"),(void*)f_18607},
{C_text("f_18613:core_2escm"),(void*)f_18613},
{C_text("f_18625:core_2escm"),(void*)f_18625},
{C_text("f_18649:core_2escm"),(void*)f_18649},
{C_text("f_18653:core_2escm"),(void*)f_18653},
{C_text("f_18672:core_2escm"),(void*)f_18672},
{C_text("f_18676:core_2escm"),(void*)f_18676},
{C_text("f_18679:core_2escm"),(void*)f_18679},
{C_text("f_18682:core_2escm"),(void*)f_18682},
{C_text("f_18686:core_2escm"),(void*)f_18686},
{C_text("f_18690:core_2escm"),(void*)f_18690},
{C_text("f_18693:core_2escm"),(void*)f_18693},
{C_text("f_18710:core_2escm"),(void*)f_18710},
{C_text("f_18713:core_2escm"),(void*)f_18713},
{C_text("f_18716:core_2escm"),(void*)f_18716},
{C_text("f_18755:core_2escm"),(void*)f_18755},
{C_text("f_18758:core_2escm"),(void*)f_18758},
{C_text("f_18764:core_2escm"),(void*)f_18764},
{C_text("f_18791:core_2escm"),(void*)f_18791},
{C_text("f_18798:core_2escm"),(void*)f_18798},
{C_text("f_18804:core_2escm"),(void*)f_18804},
{C_text("f_18814:core_2escm"),(void*)f_18814},
{C_text("f_18817:core_2escm"),(void*)f_18817},
{C_text("f_18824:core_2escm"),(void*)f_18824},
{C_text("f_18828:core_2escm"),(void*)f_18828},
{C_text("f_18832:core_2escm"),(void*)f_18832},
{C_text("f_18846:core_2escm"),(void*)f_18846},
{C_text("f_18850:core_2escm"),(void*)f_18850},
{C_text("f_18854:core_2escm"),(void*)f_18854},
{C_text("f_18857:core_2escm"),(void*)f_18857},
{C_text("f_18877:core_2escm"),(void*)f_18877},
{C_text("f_18881:core_2escm"),(void*)f_18881},
{C_text("f_18884:core_2escm"),(void*)f_18884},
{C_text("f_18904:core_2escm"),(void*)f_18904},
{C_text("f_18908:core_2escm"),(void*)f_18908},
{C_text("f_18910:core_2escm"),(void*)f_18910},
{C_text("f_18931:core_2escm"),(void*)f_18931},
{C_text("f_18935:core_2escm"),(void*)f_18935},
{C_text("f_18938:core_2escm"),(void*)f_18938},
{C_text("f_18942:core_2escm"),(void*)f_18942},
{C_text("f_18948:core_2escm"),(void*)f_18948},
{C_text("f_18954:core_2escm"),(void*)f_18954},
{C_text("f_19097:core_2escm"),(void*)f_19097},
{C_text("f_19100:core_2escm"),(void*)f_19100},
{C_text("f_19103:core_2escm"),(void*)f_19103},
{C_text("f_19106:core_2escm"),(void*)f_19106},
{C_text("f_19109:core_2escm"),(void*)f_19109},
{C_text("f_19115:core_2escm"),(void*)f_19115},
{C_text("f_19118:core_2escm"),(void*)f_19118},
{C_text("f_19124:core_2escm"),(void*)f_19124},
{C_text("f_19127:core_2escm"),(void*)f_19127},
{C_text("f_19130:core_2escm"),(void*)f_19130},
{C_text("f_19136:core_2escm"),(void*)f_19136},
{C_text("f_19139:core_2escm"),(void*)f_19139},
{C_text("f_19157:core_2escm"),(void*)f_19157},
{C_text("f_19160:core_2escm"),(void*)f_19160},
{C_text("f_19178:core_2escm"),(void*)f_19178},
{C_text("f_19191:core_2escm"),(void*)f_19191},
{C_text("f_19215:core_2escm"),(void*)f_19215},
{C_text("f_19219:core_2escm"),(void*)f_19219},
{C_text("f_19223:core_2escm"),(void*)f_19223},
{C_text("f_19244:core_2escm"),(void*)f_19244},
{C_text("f_19250:core_2escm"),(void*)f_19250},
{C_text("f_19261:core_2escm"),(void*)f_19261},
{C_text("f_19279:core_2escm"),(void*)f_19279},
{C_text("f_19291:core_2escm"),(void*)f_19291},
{C_text("f_19313:core_2escm"),(void*)f_19313},
{C_text("f_19317:core_2escm"),(void*)f_19317},
{C_text("f_19321:core_2escm"),(void*)f_19321},
{C_text("f_19331:core_2escm"),(void*)f_19331},
{C_text("f_19335:core_2escm"),(void*)f_19335},
{C_text("f_19339:core_2escm"),(void*)f_19339},
{C_text("f_19360:core_2escm"),(void*)f_19360},
{C_text("f_19384:core_2escm"),(void*)f_19384},
{C_text("f_19394:core_2escm"),(void*)f_19394},
{C_text("f_19398:core_2escm"),(void*)f_19398},
{C_text("f_19405:core_2escm"),(void*)f_19405},
{C_text("f_19409:core_2escm"),(void*)f_19409},
{C_text("f_19418:core_2escm"),(void*)f_19418},
{C_text("f_19424:core_2escm"),(void*)f_19424},
{C_text("f_19439:core_2escm"),(void*)f_19439},
{C_text("f_19448:core_2escm"),(void*)f_19448},
{C_text("f_19480:core_2escm"),(void*)f_19480},
{C_text("f_19491:core_2escm"),(void*)f_19491},
{C_text("f_19500:core_2escm"),(void*)f_19500},
{C_text("f_19515:core_2escm"),(void*)f_19515},
{C_text("f_19519:core_2escm"),(void*)f_19519},
{C_text("f_19525:core_2escm"),(void*)f_19525},
{C_text("f_19538:core_2escm"),(void*)f_19538},
{C_text("f_19552:core_2escm"),(void*)f_19552},
{C_text("f_19553:core_2escm"),(void*)f_19553},
{C_text("f_19560:core_2escm"),(void*)f_19560},
{C_text("f_19563:core_2escm"),(void*)f_19563},
{C_text("f_19574:core_2escm"),(void*)f_19574},
{C_text("f_19578:core_2escm"),(void*)f_19578},
{C_text("f_19586:core_2escm"),(void*)f_19586},
{C_text("f_19596:core_2escm"),(void*)f_19596},
{C_text("f_19617:core_2escm"),(void*)f_19617},
{C_text("f_19626:core_2escm"),(void*)f_19626},
{C_text("f_19632:core_2escm"),(void*)f_19632},
{C_text("f_19643:core_2escm"),(void*)f_19643},
{C_text("f_19646:core_2escm"),(void*)f_19646},
{C_text("f_19655:core_2escm"),(void*)f_19655},
{C_text("f_19668:core_2escm"),(void*)f_19668},
{C_text("f_19675:core_2escm"),(void*)f_19675},
{C_text("f_19678:core_2escm"),(void*)f_19678},
{C_text("f_19684:core_2escm"),(void*)f_19684},
{C_text("f_19690:core_2escm"),(void*)f_19690},
{C_text("f_19712:core_2escm"),(void*)f_19712},
{C_text("f_19726:core_2escm"),(void*)f_19726},
{C_text("f_19734:core_2escm"),(void*)f_19734},
{C_text("f_19736:core_2escm"),(void*)f_19736},
{C_text("f_19742:core_2escm"),(void*)f_19742},
{C_text("f_19754:core_2escm"),(void*)f_19754},
{C_text("f_19760:core_2escm"),(void*)f_19760},
{C_text("f_19771:core_2escm"),(void*)f_19771},
{C_text("f_19777:core_2escm"),(void*)f_19777},
{C_text("f_19781:core_2escm"),(void*)f_19781},
{C_text("f_19790:core_2escm"),(void*)f_19790},
{C_text("f_19798:core_2escm"),(void*)f_19798},
{C_text("f_19815:core_2escm"),(void*)f_19815},
{C_text("f_19822:core_2escm"),(void*)f_19822},
{C_text("f_19825:core_2escm"),(void*)f_19825},
{C_text("f_19829:core_2escm"),(void*)f_19829},
{C_text("f_19836:core_2escm"),(void*)f_19836},
{C_text("f_19842:core_2escm"),(void*)f_19842},
{C_text("f_19848:core_2escm"),(void*)f_19848},
{C_text("f_19866:core_2escm"),(void*)f_19866},
{C_text("f_19873:core_2escm"),(void*)f_19873},
{C_text("f_19879:core_2escm"),(void*)f_19879},
{C_text("f_19882:core_2escm"),(void*)f_19882},
{C_text("f_19885:core_2escm"),(void*)f_19885},
{C_text("f_19888:core_2escm"),(void*)f_19888},
{C_text("f_19922:core_2escm"),(void*)f_19922},
{C_text("f_19926:core_2escm"),(void*)f_19926},
{C_text("f_19930:core_2escm"),(void*)f_19930},
{C_text("f_19934:core_2escm"),(void*)f_19934},
{C_text("f_19940:core_2escm"),(void*)f_19940},
{C_text("f_19944:core_2escm"),(void*)f_19944},
{C_text("f_19962:core_2escm"),(void*)f_19962},
{C_text("f_19966:core_2escm"),(void*)f_19966},
{C_text("f_19974:core_2escm"),(void*)f_19974},
{C_text("f_19984:core_2escm"),(void*)f_19984},
{C_text("f_20009:core_2escm"),(void*)f_20009},
{C_text("f_20036:core_2escm"),(void*)f_20036},
{C_text("f_20043:core_2escm"),(void*)f_20043},
{C_text("f_20048:core_2escm"),(void*)f_20048},
{C_text("f_20067:core_2escm"),(void*)f_20067},
{C_text("f_20075:core_2escm"),(void*)f_20075},
{C_text("f_20086:core_2escm"),(void*)f_20086},
{C_text("f_20090:core_2escm"),(void*)f_20090},
{C_text("f_20091:core_2escm"),(void*)f_20091},
{C_text("f_20093:core_2escm"),(void*)f_20093},
{C_text("f_20105:core_2escm"),(void*)f_20105},
{C_text("f_20115:core_2escm"),(void*)f_20115},
{C_text("f_20129:core_2escm"),(void*)f_20129},
{C_text("f_20134:core_2escm"),(void*)f_20134},
{C_text("f_20140:core_2escm"),(void*)f_20140},
{C_text("f_20150:core_2escm"),(void*)f_20150},
{C_text("f_20163:core_2escm"),(void*)f_20163},
{C_text("f_20169:core_2escm"),(void*)f_20169},
{C_text("f_20183:core_2escm"),(void*)f_20183},
{C_text("f_20187:core_2escm"),(void*)f_20187},
{C_text("f_20189:core_2escm"),(void*)f_20189},
{C_text("f_20195:core_2escm"),(void*)f_20195},
{C_text("f_20200:core_2escm"),(void*)f_20200},
{C_text("f_20205:core_2escm"),(void*)f_20205},
{C_text("f_20212:core_2escm"),(void*)f_20212},
{C_text("f_20214:core_2escm"),(void*)f_20214},
{C_text("f_20218:core_2escm"),(void*)f_20218},
{C_text("f_20221:core_2escm"),(void*)f_20221},
{C_text("f_20224:core_2escm"),(void*)f_20224},
{C_text("f_20254:core_2escm"),(void*)f_20254},
{C_text("f_20263:core_2escm"),(void*)f_20263},
{C_text("f_20266:core_2escm"),(void*)f_20266},
{C_text("f_20276:core_2escm"),(void*)f_20276},
{C_text("f_20280:core_2escm"),(void*)f_20280},
{C_text("f_20314:core_2escm"),(void*)f_20314},
{C_text("f_20348:core_2escm"),(void*)f_20348},
{C_text("f_20356:core_2escm"),(void*)f_20356},
{C_text("f_20366:core_2escm"),(void*)f_20366},
{C_text("f_20368:core_2escm"),(void*)f_20368},
{C_text("f_20393:core_2escm"),(void*)f_20393},
{C_text("f_20424:core_2escm"),(void*)f_20424},
{C_text("f_20430:core_2escm"),(void*)f_20430},
{C_text("f_20433:core_2escm"),(void*)f_20433},
{C_text("f_20442:core_2escm"),(void*)f_20442},
{C_text("f_20445:core_2escm"),(void*)f_20445},
{C_text("f_20448:core_2escm"),(void*)f_20448},
{C_text("f_20454:core_2escm"),(void*)f_20454},
{C_text("f_20457:core_2escm"),(void*)f_20457},
{C_text("f_20460:core_2escm"),(void*)f_20460},
{C_text("f_20473:core_2escm"),(void*)f_20473},
{C_text("f_20492:core_2escm"),(void*)f_20492},
{C_text("f_20505:core_2escm"),(void*)f_20505},
{C_text("f_20520:core_2escm"),(void*)f_20520},
{C_text("f_20538:core_2escm"),(void*)f_20538},
{C_text("f_20548:core_2escm"),(void*)f_20548},
{C_text("f_20552:core_2escm"),(void*)f_20552},
{C_text("f_20560:core_2escm"),(void*)f_20560},
{C_text("f_20564:core_2escm"),(void*)f_20564},
{C_text("f_20568:core_2escm"),(void*)f_20568},
{C_text("f_20572:core_2escm"),(void*)f_20572},
{C_text("f_20600:core_2escm"),(void*)f_20600},
{C_text("f_20607:core_2escm"),(void*)f_20607},
{C_text("f_20612:core_2escm"),(void*)f_20612},
{C_text("f_20617:core_2escm"),(void*)f_20617},
{C_text("f_20621:core_2escm"),(void*)f_20621},
{C_text("f_20624:core_2escm"),(void*)f_20624},
{C_text("f_20627:core_2escm"),(void*)f_20627},
{C_text("f_20638:core_2escm"),(void*)f_20638},
{C_text("f_20644:core_2escm"),(void*)f_20644},
{C_text("f_20658:core_2escm"),(void*)f_20658},
{C_text("f_20668:core_2escm"),(void*)f_20668},
{C_text("f_20670:core_2escm"),(void*)f_20670},
{C_text("f_20695:core_2escm"),(void*)f_20695},
{C_text("f_20755:core_2escm"),(void*)f_20755},
{C_text("f_20759:core_2escm"),(void*)f_20759},
{C_text("f_20762:core_2escm"),(void*)f_20762},
{C_text("f_20765:core_2escm"),(void*)f_20765},
{C_text("f_20774:core_2escm"),(void*)f_20774},
{C_text("f_20792:core_2escm"),(void*)f_20792},
{C_text("f_20799:core_2escm"),(void*)f_20799},
{C_text("f_20808:core_2escm"),(void*)f_20808},
{C_text("f_20811:core_2escm"),(void*)f_20811},
{C_text("f_20814:core_2escm"),(void*)f_20814},
{C_text("f_20817:core_2escm"),(void*)f_20817},
{C_text("f_20820:core_2escm"),(void*)f_20820},
{C_text("f_20839:core_2escm"),(void*)f_20839},
{C_text("f_20845:core_2escm"),(void*)f_20845},
{C_text("f_20849:core_2escm"),(void*)f_20849},
{C_text("f_20852:core_2escm"),(void*)f_20852},
{C_text("f_20854:core_2escm"),(void*)f_20854},
{C_text("f_20859:core_2escm"),(void*)f_20859},
{C_text("f_20863:core_2escm"),(void*)f_20863},
{C_text("f_20872:core_2escm"),(void*)f_20872},
{C_text("f_20875:core_2escm"),(void*)f_20875},
{C_text("f_20878:core_2escm"),(void*)f_20878},
{C_text("f_20883:core_2escm"),(void*)f_20883},
{C_text("f_20886:core_2escm"),(void*)f_20886},
{C_text("f_20887:core_2escm"),(void*)f_20887},
{C_text("f_20894:core_2escm"),(void*)f_20894},
{C_text("f_20905:core_2escm"),(void*)f_20905},
{C_text("f_20915:core_2escm"),(void*)f_20915},
{C_text("f_20936:core_2escm"),(void*)f_20936},
{C_text("f_20943:core_2escm"),(void*)f_20943},
{C_text("f_20946:core_2escm"),(void*)f_20946},
{C_text("f_20956:core_2escm"),(void*)f_20956},
{C_text("f_20974:core_2escm"),(void*)f_20974},
{C_text("f_20982:core_2escm"),(void*)f_20982},
{C_text("f_20992:core_2escm"),(void*)f_20992},
{C_text("f_20994:core_2escm"),(void*)f_20994},
{C_text("f_21019:core_2escm"),(void*)f_21019},
{C_text("f_21066:core_2escm"),(void*)f_21066},
{C_text("f_21070:core_2escm"),(void*)f_21070},
{C_text("f_21073:core_2escm"),(void*)f_21073},
{C_text("f_21076:core_2escm"),(void*)f_21076},
{C_text("f_21085:core_2escm"),(void*)f_21085},
{C_text("f_21103:core_2escm"),(void*)f_21103},
{C_text("f_21110:core_2escm"),(void*)f_21110},
{C_text("f_21113:core_2escm"),(void*)f_21113},
{C_text("f_21116:core_2escm"),(void*)f_21116},
{C_text("f_21119:core_2escm"),(void*)f_21119},
{C_text("f_21122:core_2escm"),(void*)f_21122},
{C_text("f_21128:core_2escm"),(void*)f_21128},
{C_text("f_21131:core_2escm"),(void*)f_21131},
{C_text("f_21134:core_2escm"),(void*)f_21134},
{C_text("f_21137:core_2escm"),(void*)f_21137},
{C_text("f_21153:core_2escm"),(void*)f_21153},
{C_text("f_21156:core_2escm"),(void*)f_21156},
{C_text("f_21170:core_2escm"),(void*)f_21170},
{C_text("f_21198:core_2escm"),(void*)f_21198},
{C_text("f_21206:core_2escm"),(void*)f_21206},
{C_text("f_21250:core_2escm"),(void*)f_21250},
{C_text("f_21254:core_2escm"),(void*)f_21254},
{C_text("f_21257:core_2escm"),(void*)f_21257},
{C_text("f_21260:core_2escm"),(void*)f_21260},
{C_text("f_21269:core_2escm"),(void*)f_21269},
{C_text("f_21281:core_2escm"),(void*)f_21281},
{C_text("f_21287:core_2escm"),(void*)f_21287},
{C_text("f_21303:core_2escm"),(void*)f_21303},
{C_text("f_21306:core_2escm"),(void*)f_21306},
{C_text("f_21309:core_2escm"),(void*)f_21309},
{C_text("f_21322:core_2escm"),(void*)f_21322},
{C_text("f_21335:core_2escm"),(void*)f_21335},
{C_text("f_21358:core_2escm"),(void*)f_21358},
{C_text("f_21365:core_2escm"),(void*)f_21365},
{C_text("f_21369:core_2escm"),(void*)f_21369},
{C_text("f_21381:core_2escm"),(void*)f_21381},
{C_text("f_21384:core_2escm"),(void*)f_21384},
{C_text("f_21402:core_2escm"),(void*)f_21402},
{C_text("f_21406:core_2escm"),(void*)f_21406},
{C_text("f_21418:core_2escm"),(void*)f_21418},
{C_text("f_21422:core_2escm"),(void*)f_21422},
{C_text("f_21426:core_2escm"),(void*)f_21426},
{C_text("f_21438:core_2escm"),(void*)f_21438},
{C_text("f_21453:core_2escm"),(void*)f_21453},
{C_text("f_21457:core_2escm"),(void*)f_21457},
{C_text("f_21461:core_2escm"),(void*)f_21461},
{C_text("f_21486:core_2escm"),(void*)f_21486},
{C_text("f_21490:core_2escm"),(void*)f_21490},
{C_text("f_21502:core_2escm"),(void*)f_21502},
{C_text("f_21511:core_2escm"),(void*)f_21511},
{C_text("f_21514:core_2escm"),(void*)f_21514},
{C_text("f_21523:core_2escm"),(void*)f_21523},
{C_text("f_21526:core_2escm"),(void*)f_21526},
{C_text("f_21529:core_2escm"),(void*)f_21529},
{C_text("f_21535:core_2escm"),(void*)f_21535},
{C_text("f_21538:core_2escm"),(void*)f_21538},
{C_text("f_21541:core_2escm"),(void*)f_21541},
{C_text("f_21544:core_2escm"),(void*)f_21544},
{C_text("f_21559:core_2escm"),(void*)f_21559},
{C_text("f_21564:core_2escm"),(void*)f_21564},
{C_text("f_21587:core_2escm"),(void*)f_21587},
{C_text("f_21599:core_2escm"),(void*)f_21599},
{C_text("f_21602:core_2escm"),(void*)f_21602},
{C_text("f_21613:core_2escm"),(void*)f_21613},
{C_text("f_21617:core_2escm"),(void*)f_21617},
{C_text("f_21621:core_2escm"),(void*)f_21621},
{C_text("f_21629:core_2escm"),(void*)f_21629},
{C_text("f_21636:core_2escm"),(void*)f_21636},
{C_text("f_21642:core_2escm"),(void*)f_21642},
{C_text("f_21667:core_2escm"),(void*)f_21667},
{C_text("f_21689:core_2escm"),(void*)f_21689},
{C_text("f_21693:core_2escm"),(void*)f_21693},
{C_text("f_21696:core_2escm"),(void*)f_21696},
{C_text("f_21706:core_2escm"),(void*)f_21706},
{C_text("f_21723:core_2escm"),(void*)f_21723},
{C_text("f_21733:core_2escm"),(void*)f_21733},
{C_text("f_21735:core_2escm"),(void*)f_21735},
{C_text("f_21761:core_2escm"),(void*)f_21761},
{C_text("f_21771:core_2escm"),(void*)f_21771},
{C_text("f_21796:core_2escm"),(void*)f_21796},
{C_text("f_21807:core_2escm"),(void*)f_21807},
{C_text("f_21827:core_2escm"),(void*)f_21827},
{C_text("f_21832:core_2escm"),(void*)f_21832},
{C_text("f_21848:core_2escm"),(void*)f_21848},
{C_text("f_21863:core_2escm"),(void*)f_21863},
{C_text("f_21906:core_2escm"),(void*)f_21906},
{C_text("f_21912:core_2escm"),(void*)f_21912},
{C_text("f_21966:core_2escm"),(void*)f_21966},
{C_text("f_21977:core_2escm"),(void*)f_21977},
{C_text("f_22025:core_2escm"),(void*)f_22025},
{C_text("f_22050:core_2escm"),(void*)f_22050},
{C_text("f_22059:core_2escm"),(void*)f_22059},
{C_text("f_22078:core_2escm"),(void*)f_22078},
{C_text("f_22081:core_2escm"),(void*)f_22081},
{C_text("f_22084:core_2escm"),(void*)f_22084},
{C_text("f_22087:core_2escm"),(void*)f_22087},
{C_text("f_22091:core_2escm"),(void*)f_22091},
{C_text("f_22098:core_2escm"),(void*)f_22098},
{C_text("f_22113:core_2escm"),(void*)f_22113},
{C_text("f_22117:core_2escm"),(void*)f_22117},
{C_text("f_22129:core_2escm"),(void*)f_22129},
{C_text("f_22150:core_2escm"),(void*)f_22150},
{C_text("f_22154:core_2escm"),(void*)f_22154},
{C_text("f_22165:core_2escm"),(void*)f_22165},
{C_text("f_22180:core_2escm"),(void*)f_22180},
{C_text("f_22184:core_2escm"),(void*)f_22184},
{C_text("f_22199:core_2escm"),(void*)f_22199},
{C_text("f_22232:core_2escm"),(void*)f_22232},
{C_text("f_22253:core_2escm"),(void*)f_22253},
{C_text("f_22264:core_2escm"),(void*)f_22264},
{C_text("f_22268:core_2escm"),(void*)f_22268},
{C_text("f_22272:core_2escm"),(void*)f_22272},
{C_text("f_22511:core_2escm"),(void*)f_22511},
{C_text("f_22516:core_2escm"),(void*)f_22516},
{C_text("f_22528:core_2escm"),(void*)f_22528},
{C_text("f_22553:core_2escm"),(void*)f_22553},
{C_text("f_22584:core_2escm"),(void*)f_22584},
{C_text("f_22596:core_2escm"),(void*)f_22596},
{C_text("f_22598:core_2escm"),(void*)f_22598},
{C_text("f_22602:core_2escm"),(void*)f_22602},
{C_text("f_22606:core_2escm"),(void*)f_22606},
{C_text("f_22622:core_2escm"),(void*)f_22622},
{C_text("f_22634:core_2escm"),(void*)f_22634},
{C_text("f_22638:core_2escm"),(void*)f_22638},
{C_text("f_22646:core_2escm"),(void*)f_22646},
{C_text("f_22651:core_2escm"),(void*)f_22651},
{C_text("f_22657:core_2escm"),(void*)f_22657},
{C_text("f_22671:core_2escm"),(void*)f_22671},
{C_text("f_22679:core_2escm"),(void*)f_22679},
{C_text("f_22686:core_2escm"),(void*)f_22686},
{C_text("f_22690:core_2escm"),(void*)f_22690},
{C_text("f_22706:core_2escm"),(void*)f_22706},
{C_text("f_22717:core_2escm"),(void*)f_22717},
{C_text("f_22720:core_2escm"),(void*)f_22720},
{C_text("f_22723:core_2escm"),(void*)f_22723},
{C_text("f_22726:core_2escm"),(void*)f_22726},
{C_text("f_22729:core_2escm"),(void*)f_22729},
{C_text("f_22732:core_2escm"),(void*)f_22732},
{C_text("f_22735:core_2escm"),(void*)f_22735},
{C_text("f_22738:core_2escm"),(void*)f_22738},
{C_text("f_22741:core_2escm"),(void*)f_22741},
{C_text("f_22744:core_2escm"),(void*)f_22744},
{C_text("f_22751:core_2escm"),(void*)f_22751},
{C_text("f_22754:core_2escm"),(void*)f_22754},
{C_text("f_22762:core_2escm"),(void*)f_22762},
{C_text("f_22768:core_2escm"),(void*)f_22768},
{C_text("f_22801:core_2escm"),(void*)f_22801},
{C_text("f_22819:core_2escm"),(void*)f_22819},
{C_text("f_22855:core_2escm"),(void*)f_22855},
{C_text("f_22873:core_2escm"),(void*)f_22873},
{C_text("f_22891:core_2escm"),(void*)f_22891},
{C_text("f_22909:core_2escm"),(void*)f_22909},
{C_text("f_22927:core_2escm"),(void*)f_22927},
{C_text("f_22945:core_2escm"),(void*)f_22945},
{C_text("f_22981:core_2escm"),(void*)f_22981},
{C_text("f_22999:core_2escm"),(void*)f_22999},
{C_text("f_23017:core_2escm"),(void*)f_23017},
{C_text("f_23035:core_2escm"),(void*)f_23035},
{C_text("f_23053:core_2escm"),(void*)f_23053},
{C_text("f_23071:core_2escm"),(void*)f_23071},
{C_text("f_23080:core_2escm"),(void*)f_23080},
{C_text("f_23084:core_2escm"),(void*)f_23084},
{C_text("f_23086:core_2escm"),(void*)f_23086},
{C_text("f_23090:core_2escm"),(void*)f_23090},
{C_text("f_23094:core_2escm"),(void*)f_23094},
{C_text("f_23119:core_2escm"),(void*)f_23119},
{C_text("f_23130:core_2escm"),(void*)f_23130},
{C_text("f_23135:core_2escm"),(void*)f_23135},
{C_text("f_23139:core_2escm"),(void*)f_23139},
{C_text("f_23142:core_2escm"),(void*)f_23142},
{C_text("f_23145:core_2escm"),(void*)f_23145},
{C_text("f_23156:core_2escm"),(void*)f_23156},
{C_text("f_23167:core_2escm"),(void*)f_23167},
{C_text("f_23174:core_2escm"),(void*)f_23174},
{C_text("f_23183:core_2escm"),(void*)f_23183},
{C_text("f_23191:core_2escm"),(void*)f_23191},
{C_text("f_23195:core_2escm"),(void*)f_23195},
{C_text("f_23198:core_2escm"),(void*)f_23198},
{C_text("f_23201:core_2escm"),(void*)f_23201},
{C_text("f_23210:core_2escm"),(void*)f_23210},
{C_text("f_23238:core_2escm"),(void*)f_23238},
{C_text("f_23249:core_2escm"),(void*)f_23249},
{C_text("f_23269:core_2escm"),(void*)f_23269},
{C_text("f_23273:core_2escm"),(void*)f_23273},
{C_text("f_23294:core_2escm"),(void*)f_23294},
{C_text("f_23315:core_2escm"),(void*)f_23315},
{C_text("f_23332:core_2escm"),(void*)f_23332},
{C_text("f_23336:core_2escm"),(void*)f_23336},
{C_text("f_23357:core_2escm"),(void*)f_23357},
{C_text("f_23361:core_2escm"),(void*)f_23361},
{C_text("f_23365:core_2escm"),(void*)f_23365},
{C_text("f_23386:core_2escm"),(void*)f_23386},
{C_text("f_23411:core_2escm"),(void*)f_23411},
{C_text("f_23427:core_2escm"),(void*)f_23427},
{C_text("f_23437:core_2escm"),(void*)f_23437},
{C_text("f_23453:core_2escm"),(void*)f_23453},
{C_text("f_23457:core_2escm"),(void*)f_23457},
{C_text("f_23466:core_2escm"),(void*)f_23466},
{C_text("f_23507:core_2escm"),(void*)f_23507},
{C_text("f_23514:core_2escm"),(void*)f_23514},
{C_text("f_23517:core_2escm"),(void*)f_23517},
{C_text("f_23520:core_2escm"),(void*)f_23520},
{C_text("f_23523:core_2escm"),(void*)f_23523},
{C_text("f_23526:core_2escm"),(void*)f_23526},
{C_text("f_23534:core_2escm"),(void*)f_23534},
{C_text("f_23563:core_2escm"),(void*)f_23563},
{C_text("f_23570:core_2escm"),(void*)f_23570},
{C_text("f_23574:core_2escm"),(void*)f_23574},
{C_text("f_23589:core_2escm"),(void*)f_23589},
{C_text("f_23612:core_2escm"),(void*)f_23612},
{C_text("f_23633:core_2escm"),(void*)f_23633},
{C_text("f_23642:core_2escm"),(void*)f_23642},
{C_text("f_23648:core_2escm"),(void*)f_23648},
{C_text("f_23673:core_2escm"),(void*)f_23673},
{C_text("f_23705:core_2escm"),(void*)f_23705},
{C_text("f_23709:core_2escm"),(void*)f_23709},
{C_text("f_23717:core_2escm"),(void*)f_23717},
{C_text("f_23725:core_2escm"),(void*)f_23725},
{C_text("f_23729:core_2escm"),(void*)f_23729},
{C_text("f_23739:core_2escm"),(void*)f_23739},
{C_text("f_23766:core_2escm"),(void*)f_23766},
{C_text("f_23770:core_2escm"),(void*)f_23770},
{C_text("f_23789:core_2escm"),(void*)f_23789},
{C_text("f_23793:core_2escm"),(void*)f_23793},
{C_text("f_23809:core_2escm"),(void*)f_23809},
{C_text("f_23823:core_2escm"),(void*)f_23823},
{C_text("f_23829:core_2escm"),(void*)f_23829},
{C_text("f_23832:core_2escm"),(void*)f_23832},
{C_text("f_23835:core_2escm"),(void*)f_23835},
{C_text("f_23854:core_2escm"),(void*)f_23854},
{C_text("f_23862:core_2escm"),(void*)f_23862},
{C_text("f_23903:core_2escm"),(void*)f_23903},
{C_text("f_23907:core_2escm"),(void*)f_23907},
{C_text("f_23922:core_2escm"),(void*)f_23922},
{C_text("f_23926:core_2escm"),(void*)f_23926},
{C_text("f_23929:core_2escm"),(void*)f_23929},
{C_text("f_23932:core_2escm"),(void*)f_23932},
{C_text("f_23939:core_2escm"),(void*)f_23939},
{C_text("f_23959:core_2escm"),(void*)f_23959},
{C_text("f_23963:core_2escm"),(void*)f_23963},
{C_text("f_23970:core_2escm"),(void*)f_23970},
{C_text("f_24007:core_2escm"),(void*)f_24007},
{C_text("f_24014:core_2escm"),(void*)f_24014},
{C_text("f_24034:core_2escm"),(void*)f_24034},
{C_text("f_24055:core_2escm"),(void*)f_24055},
{C_text("f_24058:core_2escm"),(void*)f_24058},
{C_text("f_24065:core_2escm"),(void*)f_24065},
{C_text("f_24069:core_2escm"),(void*)f_24069},
{C_text("f_24075:core_2escm"),(void*)f_24075},
{C_text("f_24078:core_2escm"),(void*)f_24078},
{C_text("f_24081:core_2escm"),(void*)f_24081},
{C_text("f_24084:core_2escm"),(void*)f_24084},
{C_text("f_24087:core_2escm"),(void*)f_24087},
{C_text("f_24091:core_2escm"),(void*)f_24091},
{C_text("f_24102:core_2escm"),(void*)f_24102},
{C_text("f_24113:core_2escm"),(void*)f_24113},
{C_text("f_24119:core_2escm"),(void*)f_24119},
{C_text("f_24133:core_2escm"),(void*)f_24133},
{C_text("f_24143:core_2escm"),(void*)f_24143},
{C_text("f_24155:core_2escm"),(void*)f_24155},
{C_text("f_24158:core_2escm"),(void*)f_24158},
{C_text("f_24161:core_2escm"),(void*)f_24161},
{C_text("f_24180:core_2escm"),(void*)f_24180},
{C_text("f_24192:core_2escm"),(void*)f_24192},
{C_text("f_24221:core_2escm"),(void*)f_24221},
{C_text("f_24232:core_2escm"),(void*)f_24232},
{C_text("f_24242:core_2escm"),(void*)f_24242},
{C_text("f_24251:core_2escm"),(void*)f_24251},
{C_text("f_24262:core_2escm"),(void*)f_24262},
{C_text("f_24273:core_2escm"),(void*)f_24273},
{C_text("f_24276:core_2escm"),(void*)f_24276},
{C_text("f_24283:core_2escm"),(void*)f_24283},
{C_text("f_24293:core_2escm"),(void*)f_24293},
{C_text("f_24334:core_2escm"),(void*)f_24334},
{C_text("f_24401:core_2escm"),(void*)f_24401},
{C_text("f_24406:core_2escm"),(void*)f_24406},
{C_text("f_24418:core_2escm"),(void*)f_24418},
{C_text("f_24443:core_2escm"),(void*)f_24443},
{C_text("f_24452:core_2escm"),(void*)f_24452},
{C_text("f_24459:core_2escm"),(void*)f_24459},
{C_text("f_24484:core_2escm"),(void*)f_24484},
{C_text("f_24500:core_2escm"),(void*)f_24500},
{C_text("f_24509:core_2escm"),(void*)f_24509},
{C_text("f_24513:core_2escm"),(void*)f_24513},
{C_text("f_24517:core_2escm"),(void*)f_24517},
{C_text("f_24535:core_2escm"),(void*)f_24535},
{C_text("f_24537:core_2escm"),(void*)f_24537},
{C_text("f_24544:core_2escm"),(void*)f_24544},
{C_text("f_24551:core_2escm"),(void*)f_24551},
{C_text("f_24553:core_2escm"),(void*)f_24553},
{C_text("f_24570:core_2escm"),(void*)f_24570},
{C_text("f_24622:core_2escm"),(void*)f_24622},
{C_text("f_24625:core_2escm"),(void*)f_24625},
{C_text("f_24628:core_2escm"),(void*)f_24628},
{C_text("f_24631:core_2escm"),(void*)f_24631},
{C_text("f_24634:core_2escm"),(void*)f_24634},
{C_text("f_24641:core_2escm"),(void*)f_24641},
{C_text("f_24645:core_2escm"),(void*)f_24645},
{C_text("f_24649:core_2escm"),(void*)f_24649},
{C_text("f_6704:core_2escm"),(void*)f_6704},
{C_text("f_6707:core_2escm"),(void*)f_6707},
{C_text("f_6710:core_2escm"),(void*)f_6710},
{C_text("f_6713:core_2escm"),(void*)f_6713},
{C_text("f_6716:core_2escm"),(void*)f_6716},
{C_text("f_6719:core_2escm"),(void*)f_6719},
{C_text("f_6722:core_2escm"),(void*)f_6722},
{C_text("f_6725:core_2escm"),(void*)f_6725},
{C_text("f_6728:core_2escm"),(void*)f_6728},
{C_text("f_6731:core_2escm"),(void*)f_6731},
{C_text("f_6917:core_2escm"),(void*)f_6917},
{C_text("f_6931:core_2escm"),(void*)f_6931},
{C_text("f_7120:core_2escm"),(void*)f_7120},
{C_text("f_7126:core_2escm"),(void*)f_7126},
{C_text("f_7148:core_2escm"),(void*)f_7148},
{C_text("f_7154:core_2escm"),(void*)f_7154},
{C_text("f_7160:core_2escm"),(void*)f_7160},
{C_text("f_7170:core_2escm"),(void*)f_7170},
{C_text("f_7184:core_2escm"),(void*)f_7184},
{C_text("f_7190:core_2escm"),(void*)f_7190},
{C_text("f_7204:core_2escm"),(void*)f_7204},
{C_text("f_7212:core_2escm"),(void*)f_7212},
{C_text("f_7218:core_2escm"),(void*)f_7218},
{C_text("f_7236:core_2escm"),(void*)f_7236},
{C_text("f_7240:core_2escm"),(void*)f_7240},
{C_text("f_7246:core_2escm"),(void*)f_7246},
{C_text("f_7259:core_2escm"),(void*)f_7259},
{C_text("f_7273:core_2escm"),(void*)f_7273},
{C_text("f_7360:core_2escm"),(void*)f_7360},
{C_text("f_7369:core_2escm"),(void*)f_7369},
{C_text("f_7377:core_2escm"),(void*)f_7377},
{C_text("f_7384:core_2escm"),(void*)f_7384},
{C_text("f_7398:core_2escm"),(void*)f_7398},
{C_text("f_7413:core_2escm"),(void*)f_7413},
{C_text("f_7421:core_2escm"),(void*)f_7421},
{C_text("f_7425:core_2escm"),(void*)f_7425},
{C_text("f_7429:core_2escm"),(void*)f_7429},
{C_text("f_7447:core_2escm"),(void*)f_7447},
{C_text("f_7459:core_2escm"),(void*)f_7459},
{C_text("f_7467:core_2escm"),(void*)f_7467},
{C_text("f_7469:core_2escm"),(void*)f_7469},
{C_text("f_7486:core_2escm"),(void*)f_7486},
{C_text("f_7526:core_2escm"),(void*)f_7526},
{C_text("f_7551:core_2escm"),(void*)f_7551},
{C_text("f_7564:core_2escm"),(void*)f_7564},
{C_text("f_7579:core_2escm"),(void*)f_7579},
{C_text("f_7585:core_2escm"),(void*)f_7585},
{C_text("f_7620:core_2escm"),(void*)f_7620},
{C_text("f_7628:core_2escm"),(void*)f_7628},
{C_text("f_7641:core_2escm"),(void*)f_7641},
{C_text("f_7659:core_2escm"),(void*)f_7659},
{C_text("f_7665:core_2escm"),(void*)f_7665},
{C_text("f_7676:core_2escm"),(void*)f_7676},
{C_text("f_7681:core_2escm"),(void*)f_7681},
{C_text("f_7693:core_2escm"),(void*)f_7693},
{C_text("f_7720:core_2escm"),(void*)f_7720},
{C_text("f_7738:core_2escm"),(void*)f_7738},
{C_text("f_7744:core_2escm"),(void*)f_7744},
{C_text("f_7750:core_2escm"),(void*)f_7750},
{C_text("f_7756:core_2escm"),(void*)f_7756},
{C_text("f_7963:core_2escm"),(void*)f_7963},
{C_text("f_7969:core_2escm"),(void*)f_7969},
{C_text("f_8003:core_2escm"),(void*)f_8003},
{C_text("f_8101:core_2escm"),(void*)f_8101},
{C_text("f_8105:core_2escm"),(void*)f_8105},
{C_text("f_8108:core_2escm"),(void*)f_8108},
{C_text("f_8111:core_2escm"),(void*)f_8111},
{C_text("f_8114:core_2escm"),(void*)f_8114},
{C_text("f_8117:core_2escm"),(void*)f_8117},
{C_text("f_8127:core_2escm"),(void*)f_8127},
{C_text("f_8134:core_2escm"),(void*)f_8134},
{C_text("f_8141:core_2escm"),(void*)f_8141},
{C_text("f_8143:core_2escm"),(void*)f_8143},
{C_text("f_8147:core_2escm"),(void*)f_8147},
{C_text("f_8152:core_2escm"),(void*)f_8152},
{C_text("f_8154:core_2escm"),(void*)f_8154},
{C_text("f_8196:core_2escm"),(void*)f_8196},
{C_text("f_8228:core_2escm"),(void*)f_8228},
{C_text("f_8238:core_2escm"),(void*)f_8238},
{C_text("f_8251:core_2escm"),(void*)f_8251},
{C_text("f_8254:core_2escm"),(void*)f_8254},
{C_text("f_8267:core_2escm"),(void*)f_8267},
{C_text("f_8289:core_2escm"),(void*)f_8289},
{C_text("f_8293:core_2escm"),(void*)f_8293},
{C_text("f_8301:core_2escm"),(void*)f_8301},
{C_text("f_8307:core_2escm"),(void*)f_8307},
{C_text("f_8314:core_2escm"),(void*)f_8314},
{C_text("f_8321:core_2escm"),(void*)f_8321},
{C_text("f_8323:core_2escm"),(void*)f_8323},
{C_text("f_8327:core_2escm"),(void*)f_8327},
{C_text("f_8330:core_2escm"),(void*)f_8330},
{C_text("f_8334:core_2escm"),(void*)f_8334},
{C_text("f_8336:core_2escm"),(void*)f_8336},
{C_text("f_8338:core_2escm"),(void*)f_8338},
{C_text("f_8345:core_2escm"),(void*)f_8345},
{C_text("f_8348:core_2escm"),(void*)f_8348},
{C_text("f_8363:core_2escm"),(void*)f_8363},
{C_text("f_8367:core_2escm"),(void*)f_8367},
{C_text("f_8372:core_2escm"),(void*)f_8372},
{C_text("f_8377:core_2escm"),(void*)f_8377},
{C_text("f_8385:core_2escm"),(void*)f_8385},
{C_text("f_8387:core_2escm"),(void*)f_8387},
{C_text("f_8392:core_2escm"),(void*)f_8392},
{C_text("f_8409:core_2escm"),(void*)f_8409},
{C_text("f_8419:core_2escm"),(void*)f_8419},
{C_text("f_8458:core_2escm"),(void*)f_8458},
{C_text("f_8490:core_2escm"),(void*)f_8490},
{C_text("f_8501:core_2escm"),(void*)f_8501},
{C_text("f_8505:core_2escm"),(void*)f_8505},
{C_text("f_8508:core_2escm"),(void*)f_8508},
{C_text("f_8520:core_2escm"),(void*)f_8520},
{C_text("f_8524:core_2escm"),(void*)f_8524},
{C_text("f_8534:core_2escm"),(void*)f_8534},
{C_text("f_8538:core_2escm"),(void*)f_8538},
{C_text("f_8552:core_2escm"),(void*)f_8552},
{C_text("f_8559:core_2escm"),(void*)f_8559},
{C_text("f_8569:core_2escm"),(void*)f_8569},
{C_text("f_8573:core_2escm"),(void*)f_8573},
{C_text("f_8591:core_2escm"),(void*)f_8591},
{C_text("f_8598:core_2escm"),(void*)f_8598},
{C_text("f_8608:core_2escm"),(void*)f_8608},
{C_text("f_8612:core_2escm"),(void*)f_8612},
{C_text("f_8643:core_2escm"),(void*)f_8643},
{C_text("f_8654:core_2escm"),(void*)f_8654},
{C_text("f_8658:core_2escm"),(void*)f_8658},
{C_text("f_8661:core_2escm"),(void*)f_8661},
{C_text("f_8667:core_2escm"),(void*)f_8667},
{C_text("f_8670:core_2escm"),(void*)f_8670},
{C_text("f_8673:core_2escm"),(void*)f_8673},
{C_text("f_8697:core_2escm"),(void*)f_8697},
{C_text("f_8703:core_2escm"),(void*)f_8703},
{C_text("f_8706:core_2escm"),(void*)f_8706},
{C_text("f_8709:core_2escm"),(void*)f_8709},
{C_text("f_8712:core_2escm"),(void*)f_8712},
{C_text("f_8718:core_2escm"),(void*)f_8718},
{C_text("f_8721:core_2escm"),(void*)f_8721},
{C_text("f_8724:core_2escm"),(void*)f_8724},
{C_text("f_8739:core_2escm"),(void*)f_8739},
{C_text("f_8744:core_2escm"),(void*)f_8744},
{C_text("f_8748:core_2escm"),(void*)f_8748},
{C_text("f_8754:core_2escm"),(void*)f_8754},
{C_text("f_8759:core_2escm"),(void*)f_8759},
{C_text("f_8769:core_2escm"),(void*)f_8769},
{C_text("f_8784:core_2escm"),(void*)f_8784},
{C_text("f_8793:core_2escm"),(void*)f_8793},
{C_text("f_8803:core_2escm"),(void*)f_8803},
{C_text("f_8809:core_2escm"),(void*)f_8809},
{C_text("f_8823:core_2escm"),(void*)f_8823},
{C_text("f_8827:core_2escm"),(void*)f_8827},
{C_text("f_8832:core_2escm"),(void*)f_8832},
{C_text("f_8837:core_2escm"),(void*)f_8837},
{C_text("f_8843:core_2escm"),(void*)f_8843},
{C_text("f_8856:core_2escm"),(void*)f_8856},
{C_text("f_8869:core_2escm"),(void*)f_8869},
{C_text("f_8876:core_2escm"),(void*)f_8876},
{C_text("f_8900:core_2escm"),(void*)f_8900},
{C_text("f_8915:core_2escm"),(void*)f_8915},
{C_text("f_8921:core_2escm"),(void*)f_8921},
{C_text("f_8925:core_2escm"),(void*)f_8925},
{C_text("f_8928:core_2escm"),(void*)f_8928},
{C_text("f_8931:core_2escm"),(void*)f_8931},
{C_text("f_8956:core_2escm"),(void*)f_8956},
{C_text("f_8962:core_2escm"),(void*)f_8962},
{C_text("f_8965:core_2escm"),(void*)f_8965},
{C_text("f_8968:core_2escm"),(void*)f_8968},
{C_text("f_8971:core_2escm"),(void*)f_8971},
{C_text("f_8977:core_2escm"),(void*)f_8977},
{C_text("f_8981:core_2escm"),(void*)f_8981},
{C_text("f_9009:core_2escm"),(void*)f_9009},
{C_text("f_9013:core_2escm"),(void*)f_9013},
{C_text("f_9017:core_2escm"),(void*)f_9017},
{C_text("f_9055:core_2escm"),(void*)f_9055},
{C_text("f_9088:core_2escm"),(void*)f_9088},
{C_text("f_9096:core_2escm"),(void*)f_9096},
{C_text("f_9113:core_2escm"),(void*)f_9113},
{C_text("f_9119:core_2escm"),(void*)f_9119},
{C_text("f_9122:core_2escm"),(void*)f_9122},
{C_text("f_9123:core_2escm"),(void*)f_9123},
{C_text("f_9137:core_2escm"),(void*)f_9137},
{C_text("f_9141:core_2escm"),(void*)f_9141},
{C_text("f_9155:core_2escm"),(void*)f_9155},
{C_text("f_9159:core_2escm"),(void*)f_9159},
{C_text("f_9163:core_2escm"),(void*)f_9163},
{C_text("f_9196:core_2escm"),(void*)f_9196},
{C_text("f_9201:core_2escm"),(void*)f_9201},
{C_text("f_9209:core_2escm"),(void*)f_9209},
{C_text("f_9213:core_2escm"),(void*)f_9213},
{C_text("f_9230:core_2escm"),(void*)f_9230},
{C_text("f_9232:core_2escm"),(void*)f_9232},
{C_text("f_9257:core_2escm"),(void*)f_9257},
{C_text("f_9280:core_2escm"),(void*)f_9280},
{C_text("f_9292:core_2escm"),(void*)f_9292},
{C_text("f_9299:core_2escm"),(void*)f_9299},
{C_text("f_9302:core_2escm"),(void*)f_9302},
{C_text("f_9311:core_2escm"),(void*)f_9311},
{C_text("f_9324:core_2escm"),(void*)f_9324},
{C_text("f_9344:core_2escm"),(void*)f_9344},
{C_text("f_9348:core_2escm"),(void*)f_9348},
{C_text("f_9352:core_2escm"),(void*)f_9352},
{C_text("f_9365:core_2escm"),(void*)f_9365},
{C_text("f_9369:core_2escm"),(void*)f_9369},
{C_text("f_9386:core_2escm"),(void*)f_9386},
{C_text("f_9405:core_2escm"),(void*)f_9405},
{C_text("f_9412:core_2escm"),(void*)f_9412},
{C_text("f_9425:core_2escm"),(void*)f_9425},
{C_text("f_9429:core_2escm"),(void*)f_9429},
{C_text("f_9450:core_2escm"),(void*)f_9450},
{C_text("f_9459:core_2escm"),(void*)f_9459},
{C_text("f_9462:core_2escm"),(void*)f_9462},
{C_text("f_9465:core_2escm"),(void*)f_9465},
{C_text("f_9471:core_2escm"),(void*)f_9471},
{C_text("f_9479:core_2escm"),(void*)f_9479},
{C_text("f_9487:core_2escm"),(void*)f_9487},
{C_text("f_9502:core_2escm"),(void*)f_9502},
{C_text("f_9506:core_2escm"),(void*)f_9506},
{C_text("f_9508:core_2escm"),(void*)f_9508},
{C_text("f_9512:core_2escm"),(void*)f_9512},
{C_text("f_9516:core_2escm"),(void*)f_9516},
{C_text("f_9519:core_2escm"),(void*)f_9519},
{C_text("f_9525:core_2escm"),(void*)f_9525},
{C_text("f_9533:core_2escm"),(void*)f_9533},
{C_text("f_9537:core_2escm"),(void*)f_9537},
{C_text("f_9543:core_2escm"),(void*)f_9543},
{C_text("f_9547:core_2escm"),(void*)f_9547},
{C_text("f_9550:core_2escm"),(void*)f_9550},
{C_text("f_9553:core_2escm"),(void*)f_9553},
{C_text("f_9582:core_2escm"),(void*)f_9582},
{C_text("f_9603:core_2escm"),(void*)f_9603},
{C_text("f_9605:core_2escm"),(void*)f_9605},
{C_text("f_9630:core_2escm"),(void*)f_9630},
{C_text("f_9678:core_2escm"),(void*)f_9678},
{C_text("f_9682:core_2escm"),(void*)f_9682},
{C_text("f_9702:core_2escm"),(void*)f_9702},
{C_text("f_9716:core_2escm"),(void*)f_9716},
{C_text("f_9750:core_2escm"),(void*)f_9750},
{C_text("f_9794:core_2escm"),(void*)f_9794},
{C_text("f_9803:core_2escm"),(void*)f_9803},
{C_text("f_9832:core_2escm"),(void*)f_9832},
{C_text("f_9845:core_2escm"),(void*)f_9845},
{C_text("f_9863:core_2escm"),(void*)f_9863},
{C_text("f_9867:core_2escm"),(void*)f_9867},
{C_text("f_9879:core_2escm"),(void*)f_9879},
{C_text("f_9893:core_2escm"),(void*)f_9893},
{C_text("f_9941:core_2escm"),(void*)f_9941},
{C_text("f_9989:core_2escm"),(void*)f_9989},
{C_text("toplevel:core_2escm"),(void*)C_compiler_toplevel},
{C_text("va28178:core_2escm"),(void*)va28178},
{NULL,NULL}};
#endif

static C_PTABLE_ENTRY *create_ptable(void){
#ifdef C_ENABLE_PTABLES
return ptable;
#else
return NULL;
#endif
}

/*
o|hiding unexported module binding: chicken.compiler.core#d 
o|hiding unexported module binding: chicken.compiler.core#d 
o|hiding unexported module binding: chicken.compiler.core#partition 
o|hiding unexported module binding: chicken.compiler.core#span 
o|hiding unexported module binding: chicken.compiler.core#take 
o|hiding unexported module binding: chicken.compiler.core#drop 
o|hiding unexported module binding: chicken.compiler.core#split-at 
o|hiding unexported module binding: chicken.compiler.core#append-map 
o|hiding unexported module binding: chicken.compiler.core#every 
o|hiding unexported module binding: chicken.compiler.core#any 
o|hiding unexported module binding: chicken.compiler.core#cons* 
o|hiding unexported module binding: chicken.compiler.core#concatenate 
o|hiding unexported module binding: chicken.compiler.core#delete 
o|hiding unexported module binding: chicken.compiler.core#first 
o|hiding unexported module binding: chicken.compiler.core#second 
o|hiding unexported module binding: chicken.compiler.core#third 
o|hiding unexported module binding: chicken.compiler.core#fourth 
o|hiding unexported module binding: chicken.compiler.core#fifth 
o|hiding unexported module binding: chicken.compiler.core#delete-duplicates 
o|hiding unexported module binding: chicken.compiler.core#alist-cons 
o|hiding unexported module binding: chicken.compiler.core#filter 
o|hiding unexported module binding: chicken.compiler.core#filter-map 
o|hiding unexported module binding: chicken.compiler.core#remove 
o|hiding unexported module binding: chicken.compiler.core#unzip1 
o|hiding unexported module binding: chicken.compiler.core#last 
o|hiding unexported module binding: chicken.compiler.core#list-index 
o|hiding unexported module binding: chicken.compiler.core#lset-adjoin/eq? 
o|hiding unexported module binding: chicken.compiler.core#lset-difference/eq? 
o|hiding unexported module binding: chicken.compiler.core#lset-union/eq? 
o|hiding unexported module binding: chicken.compiler.core#lset-intersection/eq? 
o|hiding unexported module binding: chicken.compiler.core#list-tabulate 
o|hiding unexported module binding: chicken.compiler.core#lset<=/eq? 
o|hiding unexported module binding: chicken.compiler.core#lset=/eq? 
o|hiding unexported module binding: chicken.compiler.core#length+ 
o|hiding unexported module binding: chicken.compiler.core#find 
o|hiding unexported module binding: chicken.compiler.core#find-tail 
o|hiding unexported module binding: chicken.compiler.core#iota 
o|hiding unexported module binding: chicken.compiler.core#make-list 
o|hiding unexported module binding: chicken.compiler.core#posq 
o|hiding unexported module binding: chicken.compiler.core#posv 
o|hiding unexported module binding: chicken.compiler.core#safe-globals-flag 
o|hiding unexported module binding: chicken.compiler.core#original-program-size 
o|hiding unexported module binding: chicken.compiler.core#current-program-size 
o|hiding unexported module binding: chicken.compiler.core#current-analysis-database-size 
o|hiding unexported module binding: chicken.compiler.core#direct-call-ids 
o|hiding unexported module binding: chicken.compiler.core#foreign-variables 
o|hiding unexported module binding: chicken.compiler.core#external-to-pointer 
o|hiding unexported module binding: chicken.compiler.core#location-pointer-map 
o|hiding unexported module binding: chicken.compiler.core#pending-canonicalizations 
o|hiding unexported module binding: chicken.compiler.core#defconstant-bindings 
o|hiding unexported module binding: chicken.compiler.core#callback-names 
o|hiding unexported module binding: chicken.compiler.core#toplevel-scope 
o|hiding unexported module binding: chicken.compiler.core#toplevel-lambda-id 
o|hiding unexported module binding: chicken.compiler.core#unlikely-variables 
o|hiding unexported module binding: chicken.compiler.core#process-declaration 
o|hiding unexported module binding: chicken.compiler.core#foreign-stub 
o|hiding unexported module binding: chicken.compiler.core#make-foreign-stub 
o|hiding unexported module binding: chicken.compiler.core#foreign-stub? 
o|hiding unexported module binding: chicken.compiler.core#foreign-stub-id-set! 
o|hiding unexported module binding: chicken.compiler.core#foreign-stub-return-type-set! 
o|hiding unexported module binding: chicken.compiler.core#foreign-stub-name-set! 
o|hiding unexported module binding: chicken.compiler.core#foreign-stub-argument-types-set! 
o|hiding unexported module binding: chicken.compiler.core#foreign-stub-argument-names-set! 
o|hiding unexported module binding: chicken.compiler.core#foreign-stub-body-set! 
o|hiding unexported module binding: chicken.compiler.core#foreign-stub-cps-set! 
o|hiding unexported module binding: chicken.compiler.core#foreign-stub-callback-set! 
o|hiding unexported module binding: chicken.compiler.core#create-foreign-stub 
o|hiding unexported module binding: chicken.compiler.core#expand-foreign-lambda 
o|hiding unexported module binding: chicken.compiler.core#expand-foreign-lambda* 
o|hiding unexported module binding: chicken.compiler.core#expand-foreign-primitive 
o|hiding unexported module binding: chicken.compiler.core#lambda-literal 
o|hiding unexported module binding: chicken.compiler.core#make-lambda-literal 
o|hiding unexported module binding: chicken.compiler.core#lambda-literal? 
o|hiding unexported module binding: chicken.compiler.core#lambda-literal-id-set! 
o|hiding unexported module binding: chicken.compiler.core#lambda-literal-external-set! 
o|hiding unexported module binding: chicken.compiler.core#lambda-literal-arguments-set! 
o|hiding unexported module binding: chicken.compiler.core#lambda-literal-arguments 
o|hiding unexported module binding: chicken.compiler.core#lambda-literal-argument-count-set! 
o|hiding unexported module binding: chicken.compiler.core#lambda-literal-rest-argument-set! 
o|hiding unexported module binding: chicken.compiler.core#lambda-literal-temporaries-set! 
o|hiding unexported module binding: chicken.compiler.core#lambda-literal-float-temporaries-set! 
o|hiding unexported module binding: chicken.compiler.core#lambda-literal-callee-signatures-set! 
o|hiding unexported module binding: chicken.compiler.core#lambda-literal-allocated-set! 
o|hiding unexported module binding: chicken.compiler.core#lambda-literal-directly-called-set! 
o|hiding unexported module binding: chicken.compiler.core#lambda-literal-directly-called 
o|hiding unexported module binding: chicken.compiler.core#lambda-literal-closure-size-set! 
o|hiding unexported module binding: chicken.compiler.core#lambda-literal-looping-set! 
o|hiding unexported module binding: chicken.compiler.core#lambda-literal-customizable-set! 
o|hiding unexported module binding: chicken.compiler.core#lambda-literal-rest-argument-mode-set! 
o|hiding unexported module binding: chicken.compiler.core#lambda-literal-body-set! 
o|hiding unexported module binding: chicken.compiler.core#lambda-literal-direct-set! 
S|applied compiler syntax:
S|  chicken.base#o		1
S|  chicken.format#sprintf		19
S|  scheme#for-each		33
S|  chicken.base#foldl		3
S|  scheme#map		43
S|  chicken.base#foldr		3
o|eliminated procedure checks: 535 
o|specializations:
o|  3 (scheme#positive? *)
o|  1 (scheme#integer? *)
o|  2 (chicken.base#sub1 *)
o|  2 (scheme#> fixnum fixnum)
o|  21 (chicken.base#add1 *)
o|  2 (scheme#memq * list)
o|  5 (scheme#zero? *)
o|  2 (scheme#>= fixnum fixnum)
o|  1 (##sys#call-with-values (procedure () *) *)
o|  1 (chicken.base#current-error-port)
o|  1 (scheme#caddr (pair * (pair * pair)))
o|  4 (scheme#cadr (pair * pair))
o|  13 (scheme#cddr (pair * pair))
o|  2 (scheme#string-append string string)
o|  19 (##sys#check-output-port * * *)
o|  7 (scheme#= fixnum fixnum)
o|  3 (scheme#length list)
o|  3 (scheme#cdar (pair pair *))
o|  257 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword))
o|  1 (scheme#eqv? * *)
o|  9 (##sys#check-list (or pair list) *)
o|  88 (scheme#cdr pair)
o|  29 (scheme#car pair)
o|  1 (##sys#debug-mode?)
(o e)|safe calls: 2341 
(o e)|assignments to immediate values: 41 
o|safe globals: (chicken.compiler.core#prepare-for-code-generation chicken.compiler.core#lambda-literal-direct chicken.compiler.core#lambda-literal-direct-set! chicken.compiler.core#lambda-literal-body chicken.compiler.core#lambda-literal-body-set! chicken.compiler.core#lambda-literal-rest-argument-mode chicken.compiler.core#lambda-literal-rest-argument-mode-set! chicken.compiler.core#lambda-literal-customizable chicken.compiler.core#lambda-literal-customizable-set! chicken.compiler.core#lambda-literal-looping chicken.compiler.core#lambda-literal-looping-set! chicken.compiler.core#lambda-literal-closure-size chicken.compiler.core#lambda-literal-closure-size-set! chicken.compiler.core#lambda-literal-directly-called chicken.compiler.core#lambda-literal-directly-called-set! chicken.compiler.core#lambda-literal-allocated chicken.compiler.core#lambda-literal-allocated-set! chicken.compiler.core#lambda-literal-callee-signatures chicken.compiler.core#lambda-literal-callee-signatures-set! chicken.compiler.core#lambda-literal-float-temporaries chicken.compiler.core#lambda-literal-float-temporaries-set! chicken.compiler.core#lambda-literal-temporaries chicken.compiler.core#lambda-literal-temporaries-set! chicken.compiler.core#lambda-literal-rest-argument chicken.compiler.core#lambda-literal-rest-argument-set! chicken.compiler.core#lambda-literal-argument-count chicken.compiler.core#lambda-literal-argument-count-set! chicken.compiler.core#lambda-literal-arguments chicken.compiler.core#lambda-literal-arguments-set! chicken.compiler.core#lambda-literal-external chicken.compiler.core#lambda-literal-external-set! chicken.compiler.core#lambda-literal-id chicken.compiler.core#lambda-literal-id-set! chicken.compiler.core#lambda-literal? chicken.compiler.core#make-lambda-literal chicken.compiler.core#lambda-literal chicken.compiler.core#perform-closure-conversion chicken.compiler.core#analyze-expression chicken.compiler.core#perform-cps-conversion chicken.compiler.core#expand-foreign-primitive chicken.compiler.core#expand-foreign-lambda* chicken.compiler.core#expand-foreign-lambda chicken.compiler.core#create-foreign-stub chicken.compiler.core#foreign-stub-callback chicken.compiler.core#foreign-stub-callback-set! chicken.compiler.core#foreign-stub-cps chicken.compiler.core#foreign-stub-cps-set! chicken.compiler.core#foreign-stub-body chicken.compiler.core#foreign-stub-body-set! chicken.compiler.core#foreign-stub-argument-names chicken.compiler.core#foreign-stub-argument-names-set! chicken.compiler.core#foreign-stub-argument-types chicken.compiler.core#foreign-stub-argument-types-set! chicken.compiler.core#foreign-stub-name chicken.compiler.core#foreign-stub-name-set! chicken.compiler.core#foreign-stub-return-type chicken.compiler.core#foreign-stub-return-type-set! chicken.compiler.core#foreign-stub-id chicken.compiler.core#foreign-stub-id-set! chicken.compiler.core#foreign-stub? chicken.compiler.core#make-foreign-stub chicken.compiler.core#foreign-stub chicken.compiler.core#build-toplevel-procedure chicken.compiler.core#process-declaration chicken.compiler.core#canonicalize-expression chicken.compiler.core#compute-database-statistics chicken.compiler.core#initialize-compiler chicken.compiler.core#internal-bindings chicken.compiler.core#default-standard-bindings chicken.compiler.core#default-extended-bindings chicken.compiler.core#unlikely-variables chicken.compiler.core#used-libraries chicken.compiler.core#linked-libraries chicken.compiler.core#required-extensions chicken.compiler.core#toplevel-lambda-id chicken.compiler.core#toplevel-scope chicken.compiler.core#callback-names chicken.compiler.core#defconstant-bindings chicken.compiler.core#pending-canonicalizations chicken.compiler.core#location-pointer-map chicken.compiler.core#external-to-pointer chicken.compiler.core#external-variables chicken.compiler.core#foreign-lambda-stubs chicken.compiler.core#foreign-variables chicken.compiler.core#first-analysis chicken.compiler.core#direct-call-ids chicken.compiler.core#inline-substitutions-enabled chicken.compiler.core#constant-table chicken.compiler.core#inline-table chicken.compiler.core#immutable-constants chicken.compiler.core#line-number-database-2 chicken.compiler.core#current-analysis-database-size chicken.compiler.core#current-program-size chicken.compiler.core#original-program-size chicken.compiler.core#verbose-mode chicken.compiler.core#types-output-file chicken.compiler.core#emit-link-file chicken.compiler.core#static-extensions chicken.compiler.core#enable-specialization chicken.compiler.core#strict-variable-types chicken.compiler.core#bootstrap-mode chicken.compiler.core#compiler-syntax-enabled chicken.compiler.core#enable-inline-files chicken.compiler.core#inline-locally chicken.compiler.core#local-definitions chicken.compiler.core#standalone-executable chicken.compiler.core#compile-module-registration chicken.compiler.core#preserve-unchanged-import-libraries chicken.compiler.core#all-import-libraries chicken.compiler.core#import-libraries chicken.compiler.core#profiled-procedures chicken.compiler.core#undefine-shadowed-macros chicken.compiler.core#emit-closure-info chicken.compiler.core#unroll-limit chicken.compiler.core#inline-max-size chicken.compiler.core#external-protos-first chicken.compiler.core#disable-stack-overflow-checking chicken.compiler.core#explicit-use-flag chicken.compiler.core#safe-globals-flag chicken.compiler.core#no-global-procedure-checks chicken.compiler.core#no-procedure-checks chicken.compiler.core#no-argc-checks chicken.compiler.core#no-bound-checks chicken.compiler.core#emit-profile chicken.compiler.core#merge-shareable-closures chicken.compiler.core#merge-reusable-closures chicken.compiler.core#optimize-leaf-routines chicken.compiler.core#target-stack-size chicken.compiler.core#target-heap-size chicken.compiler.core#line-number-database-size chicken.compiler.core#block-compilation chicken.compiler.core#emit-debug-info chicken.compiler.core#emit-trace-info chicken.compiler.core#foreign-declarations chicken.compiler.core#used-units chicken.compiler.core#insert-timer-checks chicken.compiler.core#extended-bindings chicken.compiler.core#standard-bindings chicken.compiler.core#unit-name chicken.compiler.core#posv chicken.compiler.core#posq chicken.compiler.core#make-list chicken.compiler.core#iota chicken.compiler.core#find-tail chicken.compiler.core#find chicken.compiler.core#length+ chicken.compiler.core#lset=/eq? chicken.compiler.core#lset<=/eq? chicken.compiler.core#list-tabulate chicken.compiler.core#lset-intersection/eq? chicken.compiler.core#lset-union/eq? chicken.compiler.core#lset-difference/eq? chicken.compiler.core#lset-adjoin/eq? chicken.compiler.core#list-index chicken.compiler.core#last chicken.compiler.core#unzip1 chicken.compiler.core#remove chicken.compiler.core#filter-map chicken.compiler.core#filter chicken.compiler.core#alist-cons chicken.compiler.core#delete-duplicates chicken.compiler.core#fifth chicken.compiler.core#fourth chicken.compiler.core#third chicken.compiler.core#second chicken.compiler.core#first chicken.compiler.core#delete chicken.compiler.core#concatenate chicken.compiler.core#cons* chicken.compiler.core#any chicken.compiler.core#every chicken.compiler.core#append-map chicken.compiler.core#split-at chicken.compiler.core#drop chicken.compiler.core#take chicken.compiler.core#span chicken.compiler.core#partition chicken.compiler.core#d) 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#d 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#partition 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#span 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#drop 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#append-map 
o|inlining procedure: k7131 
o|inlining procedure: k7131 
o|inlining procedure: k7162 
o|inlining procedure: k7162 
o|merged explicitly consed rest parameter: xs351 
o|inlining procedure: k7192 
o|inlining procedure: k7192 
o|inlining procedure: k7220 
o|inlining procedure: k7220 
o|inlining procedure: k7248 
o|inlining procedure: k7248 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#delete-duplicates 
o|inlining procedure: k7379 
o|inlining procedure: k7379 
o|inlining procedure: k7371 
o|inlining procedure: k7371 
o|inlining procedure: k7488 
o|contracted procedure: "(mini-srfi-1.scm:143) g454463" 
o|inlining procedure: k7488 
o|merged explicitly consed rest parameter: vals491 
o|inlining procedure: k7587 
o|inlining procedure: k7587 
o|merged explicitly consed rest parameter: lss502 
o|inlining procedure: k7643 
o|contracted procedure: "(mini-srfi-1.scm:164) g507512" 
o|inlining procedure: k7643 
o|merged explicitly consed rest parameter: lss524 
o|inlining procedure: k7722 
o|contracted procedure: "(mini-srfi-1.scm:171) g529534" 
o|inlining procedure: k7695 
o|contracted procedure: "(mini-srfi-1.scm:173) g541546" 
o|inlining procedure: k7671 
o|inlining procedure: k7671 
o|inlining procedure: k7695 
o|inlining procedure: k7722 
o|merged explicitly consed rest parameter: lss564 
o|inlining procedure: k7770 
o|inlining procedure: k7770 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lset<=/eq? 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lset=/eq? 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#length+ 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#find 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#find-tail 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#iota 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#make-list 
o|inlining procedure: k7971 
o|inlining procedure: k7971 
o|inlining procedure: k8163 
o|inlining procedure: k8163 
o|inlining procedure: k8183 
o|inlining procedure: k8183 
o|inlining procedure: k8199 
o|inlining procedure: k8199 
o|substituted constant variable: a8216 
o|substituted constant variable: a8218 
o|substituted constant variable: a8220 
o|inlining procedure: k8230 
o|inlining procedure: k8230 
o|inlining procedure: k8256 
o|inlining procedure: k8256 
o|inlining procedure: k8294 
o|inlining procedure: k8294 
o|inlining procedure: k8309 
o|inlining procedure: k8309 
o|inlining procedure: k8343 
o|inlining procedure: k8343 
o|inlining procedure: k8411 
o|contracted procedure: "(core.scm:564) g873881" 
o|inlining procedure: k8411 
o|removed side-effect free assignment to unused variable: write-to-string814 
o|inlining procedure: k8460 
o|inlining procedure: k8460 
o|inlining procedure: k8472 
o|inlining procedure: k8472 
o|substituted constant variable: a8497 
o|inlining procedure: k8512 
o|inlining procedure: k8512 
o|inlining procedure: k8535 
o|inlining procedure: k8535 
o|inlining procedure: "(core.scm:594) chicken.compiler.core#third" 
o|inlining procedure: "(core.scm:592) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:604) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:602) chicken.compiler.core#third" 
o|inlining procedure: k8588 
o|inlining procedure: k8588 
o|substituted constant variable: a8663 
o|substituted constant variable: a8664 
o|inlining procedure: k8640 
o|inlining procedure: k8640 
o|substituted constant variable: a8699 
o|substituted constant variable: a8700 
o|inlining procedure: k8871 
o|inlining procedure: k8871 
o|inlining procedure: k8889 
o|inlining procedure: k8889 
o|inlining procedure: k8932 
o|inlining procedure: k8932 
o|inlining procedure: k8947 
o|substituted constant variable: a8958 
o|substituted constant variable: a8959 
o|inlining procedure: k8947 
o|inlining procedure: k8978 
o|inlining procedure: k8978 
o|inlining procedure: k9015 
o|inlining procedure: k9015 
o|inlining procedure: k9040 
o|inlining procedure: k9040 
o|inlining procedure: k9066 
o|inlining procedure: k9066 
o|inlining procedure: k9076 
o|inlining procedure: k9076 
o|inlining procedure: k9125 
o|inlining procedure: k9125 
o|inlining procedure: k9172 
o|inlining procedure: k9234 
o|inlining procedure: k9234 
o|inlining procedure: k9172 
o|inlining procedure: k9284 
o|inlining procedure: k9284 
o|inlining procedure: k9303 
o|inlining procedure: k9303 
o|consed rest parameter at call site: "(core.scm:744) chicken.compiler.core#lset-adjoin/eq?" 2 
o|inlining procedure: k9328 
o|inlining procedure: k9328 
o|inlining procedure: k9378 
o|inlining procedure: k9378 
o|inlining procedure: k9414 
o|inlining procedure: k9414 
o|consed rest parameter at call site: "(core.scm:764) chicken.compiler.core#lset-adjoin/eq?" 2 
o|inlining procedure: k9439 
o|inlining procedure: k9555 
o|inlining procedure: k9555 
o|inlining procedure: k9607 
o|inlining procedure: k9607 
o|inlining procedure: k9439 
o|inlining procedure: k9718 
o|contracted procedure: "(core.scm:797) g13101319" 
o|inlining procedure: k9718 
o|inlining procedure: k9752 
o|contracted procedure: "(core.scm:794) g12831292" 
o|inlining procedure: k9752 
o|inlining procedure: k9783 
o|inlining procedure: k9895 
o|contracted procedure: "(core.scm:818) g14361446" 
o|inlining procedure: k9895 
o|inlining procedure: k9943 
o|inlining procedure: k9943 
o|inlining procedure: k9991 
o|contracted procedure: "(core.scm:810) g13731382" 
o|inlining procedure: k9991 
o|inlining procedure: k10025 
o|inlining procedure: k10025 
o|inlining procedure: k9783 
o|inlining procedure: k10114 
o|inlining procedure: k10114 
o|inlining procedure: k10145 
o|inlining procedure: k10195 
o|inlining procedure: k10195 
o|inlining procedure: k10214 
o|inlining procedure: k10214 
o|inlining procedure: k10226 
o|inlining procedure: k10226 
o|inlining procedure: k10238 
o|inlining procedure: k10238 
o|inlining procedure: k10249 
o|inlining procedure: k10249 
o|inlining procedure: k10337 
o|inlining procedure: k10337 
o|inlining procedure: k10145 
o|inlining procedure: k10495 
o|contracted procedure: "(core.scm:886) g16141623" 
o|inlining procedure: k10495 
o|inlining procedure: k10526 
o|inlining procedure: k10638 
o|inlining procedure: k10638 
o|inlining procedure: k10665 
o|contracted procedure: "(core.scm:902) g16531662" 
o|inlining procedure: k10665 
o|inlining procedure: k10526 
o|inlining procedure: k10805 
o|inlining procedure: k10845 
o|inlining procedure: k10845 
o|inlining procedure: k10864 
o|inlining procedure: k10864 
o|inlining procedure: k10805 
o|inlining procedure: k10991 
o|contracted procedure: "(core.scm:998) g17751782" 
o|inlining procedure: k10991 
o|inlining procedure: k11050 
o|contracted procedure: "(core.scm:1008) g17931800" 
o|inlining procedure: k11050 
o|inlining procedure: k11073 
o|inlining procedure: k11073 
o|inlining procedure: k11104 
o|inlining procedure: k11104 
o|inlining procedure: k11122 
o|inlining procedure: k11169 
o|contracted procedure: "(core.scm:1023) g18161825" 
o|inlining procedure: k11169 
o|inlining procedure: k11122 
o|substituted constant variable: saved190219031921 
o|inlining procedure: k11248 
o|inlining procedure: k11319 
o|inlining procedure: k11319 
o|inlining procedure: k11351 
o|inlining procedure: k11351 
o|inlining procedure: k11248 
o|inlining procedure: k11371 
o|inlining procedure: k11371 
o|inlining procedure: k11391 
o|inlining procedure: k11391 
o|contracted procedure: "(core.scm:1093) emit-import-lib817" 
o|inlining procedure: k8725 
o|inlining procedure: k8725 
o|inlining procedure: k8761 
o|inlining procedure: k8761 
o|substituted constant variable: a8804 
o|inlining procedure: k11404 
o|inlining procedure: k11404 
o|inlining procedure: k11501 
o|inlining procedure: k11548 
o|inlining procedure: k11548 
o|inlining procedure: k11560 
o|inlining procedure: k11560 
o|merged explicitly consed rest parameter: args19451958 
o|consed rest parameter at call site: tmp26225 1 
o|inlining procedure: k11501 
o|inlining procedure: k11648 
o|inlining procedure: k11656 
o|inlining procedure: k11656 
o|inlining procedure: k11683 
o|inlining procedure: k11683 
o|inlining procedure: k11648 
o|inlining procedure: k11713 
o|inlining procedure: k11713 
o|inlining procedure: k11755 
o|propagated global variable: tmp18471849 chicken.compiler.core#unit-name 
o|propagated global variable: tmp18471849 chicken.compiler.core#unit-name 
o|inlining procedure: k11755 
o|inlining procedure: k11765 
o|inlining procedure: k11851 
o|inlining procedure: k11851 
o|inlining procedure: k11765 
o|substituted constant variable: a11914 
o|substituted constant variable: a11915 
o|inlining procedure: k11907 
o|inlining procedure: k11907 
o|inlining procedure: k11928 
o|inlining procedure: "(core.scm:1158) chicken.compiler.core#third" 
o|inlining procedure: "(core.scm:1153) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:1169) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:1163) chicken.compiler.core#third" 
o|inlining procedure: k12004 
o|inlining procedure: k12004 
o|inlining procedure: k12080 
o|substituted constant variable: a12107 
o|substituted constant variable: a12108 
o|substituted constant variable: a12132 
o|substituted constant variable: a12133 
o|inlining procedure: k12125 
o|inlining procedure: k12125 
o|inlining procedure: k12080 
o|substituted constant variable: a12160 
o|substituted constant variable: a12161 
o|substituted constant variable: a12185 
o|substituted constant variable: a12186 
o|inlining procedure: k12178 
o|inlining procedure: k12178 
o|substituted constant variable: a12248 
o|substituted constant variable: a12249 
o|substituted constant variable: a12273 
o|substituted constant variable: a12274 
o|inlining procedure: k12266 
o|inlining procedure: k12266 
o|inlining procedure: k11928 
o|inlining procedure: k12332 
o|inlining procedure: k12332 
o|inlining procedure: k12363 
o|inlining procedure: k12363 
o|inlining procedure: k12429 
o|inlining procedure: k12429 
o|inlining procedure: "(core.scm:1211) chicken.compiler.core#second" 
o|inlining procedure: k12460 
o|inlining procedure: k12460 
o|inlining procedure: k12510 
o|inlining procedure: k12510 
o|inlining procedure: k12544 
o|inlining procedure: k12572 
o|inlining procedure: k12572 
o|inlining procedure: k12544 
o|inlining procedure: k12611 
o|inlining procedure: k12611 
o|inlining procedure: k12637 
o|inlining procedure: k12637 
o|contracted procedure: "(core.scm:1256) chicken.compiler.core#expand-foreign-primitive" 
o|inlining procedure: k16856 
o|inlining procedure: k16856 
o|inlining procedure: k16890 
o|contracted procedure: "(core.scm:1915) g36303639" 
o|inlining procedure: k16890 
o|inlining procedure: k16922 
o|inlining procedure: k16922 
o|inlining procedure: k16932 
o|inlining procedure: "(core.scm:1913) chicken.compiler.core#third" 
o|inlining procedure: k16932 
o|inlining procedure: "(core.scm:1913) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:1912) chicken.compiler.core#second" 
o|inlining procedure: k12663 
o|inlining procedure: "(core.scm:1262) chicken.compiler.core#fourth" 
o|inlining procedure: "(core.scm:1260) chicken.compiler.core#third" 
o|inlining procedure: "(core.scm:1259) chicken.compiler.core#second" 
o|inlining procedure: k12663 
o|inlining procedure: k12725 
o|inlining procedure: k12774 
o|inlining procedure: "(core.scm:1296) chicken.compiler.core#second" 
o|inlining procedure: k12774 
o|inlining procedure: "(core.scm:1293) chicken.compiler.core#first" 
o|inlining procedure: k12725 
o|substituted constant variable: a12811 
o|substituted constant variable: a12812 
o|inlining procedure: k12804 
o|inlining procedure: k12804 
o|inlining procedure: "(core.scm:1271) chicken.compiler.core#third" 
o|inlining procedure: "(core.scm:1270) chicken.compiler.core#second" 
o|inlining procedure: k12829 
o|substituted constant variable: a12902 
o|substituted constant variable: a12903 
o|inlining procedure: k12895 
o|inlining procedure: k12895 
o|inlining procedure: "(core.scm:1307) chicken.compiler.core#fourth" 
o|inlining procedure: "(core.scm:1306) chicken.compiler.core#third" 
o|inlining procedure: "(core.scm:1303) chicken.compiler.core#second" 
o|inlining procedure: k12829 
o|inlining procedure: k12998 
o|inlining procedure: k12998 
o|inlining procedure: "(core.scm:1346) chicken.compiler.core#fourth" 
o|inlining procedure: "(core.scm:1327) chicken.compiler.core#fourth" 
o|inlining procedure: "(core.scm:1324) chicken.compiler.core#third" 
o|inlining procedure: "(core.scm:1323) chicken.compiler.core#second" 
o|inlining procedure: k13073 
o|substituted constant variable: a13105 
o|substituted constant variable: a13106 
o|inlining procedure: k13098 
o|inlining procedure: k13098 
o|inlining procedure: "(core.scm:1351) chicken.compiler.core#second" 
o|inlining procedure: k13073 
o|inlining procedure: k13151 
o|inlining procedure: k13151 
o|substituted constant variable: a13207 
o|substituted constant variable: a13208 
o|inlining procedure: k13200 
o|inlining procedure: k13200 
o|substituted constant variable: a13240 
o|substituted constant variable: a13241 
o|inlining procedure: k13233 
o|inlining procedure: k13233 
o|inlining procedure: k13281 
o|inlining procedure: k13281 
o|inlining procedure: "(core.scm:1365) chicken.compiler.core#third" 
o|inlining procedure: "(core.scm:1363) chicken.compiler.core#second" 
o|inlining procedure: k13316 
o|contracted procedure: "(core.scm:1403) chicken.compiler.core#process-declaration" 
o|merged explicitly consed rest parameter: maxlen2691 
o|inlining procedure: k14177 
o|inlining procedure: k14177 
o|inlining procedure: k14193 
o|inlining procedure: k14193 
o|inlining procedure: k14209 
o|inlining procedure: k14209 
o|contracted procedure: "(core.scm:1567) chicken.compiler.core#filter-map" 
o|inlining procedure: k7426 
o|inlining procedure: k7426 
o|inlining procedure: k7415 
o|inlining procedure: k7415 
o|substituted constant variable: a14242 
o|substituted constant variable: a14243 
o|inlining procedure: k14268 
o|consed rest parameter at call site: "(core.scm:1579) chicken.compiler.core#lset-union/eq?" 2 
o|consed rest parameter at call site: "(core.scm:1578) chicken.compiler.core#lset-union/eq?" 2 
o|inlining procedure: k14268 
o|inlining procedure: k14299 
o|inlining procedure: k14299 
o|consed rest parameter at call site: "(core.scm:1581) check-decl2685" 3 
o|inlining procedure: k14321 
o|inlining procedure: k14321 
o|inlining procedure: k14352 
o|inlining procedure: k14352 
o|inlining procedure: k14371 
o|consed rest parameter at call site: "(core.scm:1602) chicken.compiler.core#lset-intersection/eq?" 2 
o|consed rest parameter at call site: "(core.scm:1601) chicken.compiler.core#lset-intersection/eq?" 2 
o|inlining procedure: k14371 
o|consed rest parameter at call site: "(core.scm:1604) check-decl2685" 3 
o|inlining procedure: k14417 
o|inlining procedure: k14417 
o|inlining procedure: k14434 
o|inlining procedure: k14434 
o|inlining procedure: k14448 
o|inlining procedure: k14448 
o|inlining procedure: k14462 
o|inlining procedure: k14462 
o|inlining procedure: k14476 
o|inlining procedure: k14497 
o|contracted procedure: "(core.scm:1615) g27482755" 
o|propagated global variable: g27632764 chicken.compiler.support#mark-variable 
o|inlining procedure: k14497 
o|inlining procedure: k14476 
o|inlining procedure: k14524 
o|inlining procedure: k14561 
o|contracted procedure: "(core.scm:1621) g27982805" 
o|propagated global variable: g28132814 chicken.compiler.support#mark-variable 
o|inlining procedure: k14561 
o|inlining procedure: k14584 
o|contracted procedure: "(core.scm:1618) g27732780" 
o|propagated global variable: g27882789 chicken.compiler.support#mark-variable 
o|inlining procedure: k14584 
o|inlining procedure: k14524 
o|inlining procedure: k14611 
o|inlining procedure: k14642 
o|contracted procedure: "(core.scm:1629) g28352857" 
o|propagated global variable: g28652866 chicken.compiler.support#mark-variable 
o|inlining procedure: k14642 
o|inlining procedure: k14665 
o|contracted procedure: "(core.scm:1628) g28252842" 
o|propagated global variable: g28502851 chicken.compiler.support#mark-variable 
o|inlining procedure: k14665 
o|inlining procedure: k14611 
o|inlining procedure: k14694 
o|inlining procedure: k14694 
o|inlining procedure: k14707 
o|inlining procedure: k14707 
o|inlining procedure: k14721 
o|inlining procedure: k14721 
o|inlining procedure: k14751 
o|contracted procedure: "(core.scm:1639) g28772884" 
o|propagated global variable: g28922893 chicken.compiler.support#mark-variable 
o|inlining procedure: k14751 
o|inlining procedure: k14773 
o|inlining procedure: k14796 
o|contracted procedure: "(core.scm:1641) g29022909" 
o|propagated global variable: g29172918 chicken.compiler.support#mark-variable 
o|inlining procedure: k14796 
o|inlining procedure: k14773 
o|inlining procedure: k14830 
o|consed rest parameter at call site: "(core.scm:1651) chicken.compiler.core#lset-difference/eq?" 2 
o|inlining procedure: k14830 
o|inlining procedure: k14864 
o|inlining procedure: k14864 
o|consed rest parameter at call site: "(core.scm:1657) chicken.compiler.core#lset-difference/eq?" 2 
o|inlining procedure: k14886 
o|inlining procedure: k14916 
o|contracted procedure: "(core.scm:1662) g29332940" 
o|propagated global variable: g29482949 chicken.compiler.support#mark-variable 
o|inlining procedure: k14916 
o|inlining procedure: k14886 
o|inlining procedure: k14949 
o|inlining procedure: k14949 
o|consed rest parameter at call site: "(core.scm:1672) chicken.compiler.core#lset-difference/eq?" 2 
o|consed rest parameter at call site: "(core.scm:1671) chicken.compiler.core#lset-difference/eq?" 2 
o|inlining procedure: k14975 
o|inlining procedure: k15005 
o|contracted procedure: "(core.scm:1676) g29652972" 
o|propagated global variable: g29802981 chicken.compiler.support#mark-variable 
o|inlining procedure: k15005 
o|inlining procedure: k14975 
o|substituted constant variable: a15049 
o|consed rest parameter at call site: "(core.scm:1680) check-decl2685" 3 
o|substituted constant variable: a15055 
o|substituted constant variable: a15057 
o|substituted constant variable: a15059 
o|substituted constant variable: a15061 
o|substituted constant variable: a15063 
o|inlining procedure: "(core.scm:1646) chicken.compiler.core#second" 
o|consed rest parameter at call site: "(core.scm:1645) check-decl2685" 3 
o|inlining procedure: k15068 
o|inlining procedure: k15068 
o|inlining procedure: k15087 
o|inlining procedure: k15087 
o|inlining procedure: k15103 
o|inlining procedure: k15103 
o|inlining procedure: k15125 
o|inlining procedure: k15144 
o|inlining procedure: k15144 
o|inlining procedure: k15125 
o|inlining procedure: k15173 
o|inlining procedure: k15203 
o|contracted procedure: "(core.scm:1701) g30403047" 
o|propagated global variable: g30553056 chicken.compiler.support#mark-variable 
o|inlining procedure: k15203 
o|inlining procedure: k15173 
o|inlining procedure: k15239 
o|inlining procedure: k15239 
o|consed rest parameter at call site: "(core.scm:1705) check-decl2685" 3 
o|inlining procedure: k15249 
o|consed rest parameter at call site: "(core.scm:1713) check-decl2685" 3 
o|inlining procedure: k15249 
o|inlining procedure: k15280 
o|inlining procedure: k15303 
o|contracted procedure: "(core.scm:1723) g30703077" 
o|propagated global variable: g30853086 chicken.compiler.support#mark-variable 
o|inlining procedure: k15303 
o|inlining procedure: k15280 
o|inlining procedure: k15328 
o|inlining procedure: k15423 
o|contracted procedure: "(core.scm:1732) g31003109" 
o|inlining procedure: k15344 
o|substituted constant variable: a15361 
o|inlining procedure: k15344 
o|inlining procedure: k15385 
o|inlining procedure: k15385 
o|substituted constant variable: a15408 
o|inlining procedure: k15423 
o|inlining procedure: k15328 
o|inlining procedure: k15462 
o|inlining procedure: k15462 
o|inlining procedure: k15475 
o|inlining procedure: k15475 
o|inlining procedure: k15484 
o|inlining procedure: k15484 
o|inlining procedure: k15501 
o|inlining procedure: k15533 
o|contracted procedure: "(core.scm:1753) g31413148" 
o|propagated global variable: g31563157 chicken.compiler.support#mark-variable 
o|inlining procedure: k15533 
o|inlining procedure: k15501 
o|inlining procedure: k15563 
o|inlining procedure: k15563 
o|inlining procedure: k15587 
o|contracted procedure: "(core.scm:1760) g31723179" 
o|propagated global variable: g31873188 chicken.compiler.support#mark-variable 
o|inlining procedure: k15587 
o|inlining procedure: k15611 
o|inlining procedure: k15642 
o|contracted procedure: "(core.scm:1767) g31973204" 
o|propagated global variable: g32123213 chicken.compiler.support#mark-variable 
o|inlining procedure: k15642 
o|inlining procedure: k15611 
o|inlining procedure: k15674 
o|inlining procedure: k15674 
o|inlining procedure: k15716 
o|inlining procedure: k15773 
o|inlining procedure: k15773 
o|inlining procedure: k15716 
o|inlining procedure: k15806 
o|substituted constant variable: a15827 
o|inlining procedure: k15806 
o|inlining procedure: k15838 
o|inlining procedure: k15838 
o|inlining procedure: k15866 
o|inlining procedure: k15901 
o|inlining procedure: k15901 
o|inlining procedure: k15866 
o|inlining procedure: k15932 
o|substituted constant variable: a15941 
o|inlining procedure: k15932 
o|inlining procedure: k15858 
o|inlining procedure: k15960 
o|inlining procedure: k15960 
o|inlining procedure: k15858 
o|inlining procedure: k15987 
o|inlining procedure: k15987 
o|substituted constant variable: a15998 
o|substituted constant variable: a16000 
o|substituted constant variable: a16002 
o|substituted constant variable: a16004 
o|substituted constant variable: a16006 
o|substituted constant variable: a16008 
o|substituted constant variable: a16010 
o|substituted constant variable: a16012 
o|substituted constant variable: a16014 
o|substituted constant variable: a16016 
o|substituted constant variable: a16018 
o|substituted constant variable: a16020 
o|substituted constant variable: a16022 
o|substituted constant variable: a16024 
o|substituted constant variable: a16026 
o|substituted constant variable: a16031 
o|substituted constant variable: a16033 
o|substituted constant variable: a16035 
o|substituted constant variable: a16037 
o|substituted constant variable: a16039 
o|substituted constant variable: a16041 
o|substituted constant variable: a16043 
o|substituted constant variable: a16045 
o|substituted constant variable: a16047 
o|substituted constant variable: a16049 
o|substituted constant variable: a16051 
o|substituted constant variable: a16053 
o|substituted constant variable: a16055 
o|substituted constant variable: a16057 
o|substituted constant variable: a16059 
o|substituted constant variable: a16061 
o|substituted constant variable: a16063 
o|substituted constant variable: a16065 
o|substituted constant variable: a16067 
o|substituted constant variable: a16069 
o|substituted constant variable: a16071 
o|substituted constant variable: a16073 
o|substituted constant variable: a16078 
o|substituted constant variable: a16080 
o|substituted constant variable: a16082 
o|substituted constant variable: a16084 
o|substituted constant variable: a16086 
o|substituted constant variable: a16088 
o|substituted constant variable: a16090 
o|substituted constant variable: a16092 
o|inlining procedure: k13358 
o|inlining procedure: k13358 
o|inlining procedure: k13316 
o|contracted procedure: "(core.scm:1408) chicken.compiler.core#split-at" 
o|inlining procedure: k6919 
o|inlining procedure: k6919 
o|inlining procedure: k13479 
o|inlining procedure: k13479 
o|inlining procedure: k13517 
o|inlining procedure: k13517 
o|inlining procedure: k13572 
o|inlining procedure: k13572 
o|inlining procedure: k13623 
o|inlining procedure: k13623 
o|substituted constant variable: a13674 
o|substituted constant variable: a13675 
o|inlining procedure: k13667 
o|inlining procedure: k13667 
o|inlining procedure: "(core.scm:1414) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:1413) chicken.compiler.core#fourth" 
o|inlining procedure: "(core.scm:1412) chicken.compiler.core#third" 
o|inlining procedure: "(core.scm:1410) chicken.compiler.core#first" 
o|inlining procedure: k13700 
o|inlining procedure: "(core.scm:1495) chicken.compiler.core#second" 
o|inlining procedure: k13718 
o|inlining procedure: k13718 
o|inlining procedure: k13759 
o|inlining procedure: k13759 
o|inlining procedure: k13700 
o|inlining procedure: k13829 
o|inlining procedure: k13829 
o|substituted constant variable: a13852 
o|substituted constant variable: a13854 
o|substituted constant variable: a13856 
o|substituted constant variable: a13858 
o|substituted constant variable: a13860 
o|substituted constant variable: a13862 
o|substituted constant variable: a13864 
o|substituted constant variable: a13866 
o|substituted constant variable: a13868 
o|substituted constant variable: a13870 
o|substituted constant variable: a13872 
o|substituted constant variable: a13874 
o|substituted constant variable: a13876 
o|substituted constant variable: a13878 
o|substituted constant variable: a13880 
o|substituted constant variable: a13885 
o|substituted constant variable: a13887 
o|substituted constant variable: a13892 
o|substituted constant variable: a13894 
o|substituted constant variable: a13896 
o|substituted constant variable: a13898 
o|substituted constant variable: a13900 
o|substituted constant variable: a13902 
o|substituted constant variable: a13904 
o|substituted constant variable: a13906 
o|substituted constant variable: a13908 
o|substituted constant variable: a13910 
o|substituted constant variable: a13912 
o|substituted constant variable: a13914 
o|substituted constant variable: a13916 
o|substituted constant variable: a13918 
o|substituted constant variable: a13920 
o|substituted constant variable: a13922 
o|substituted constant variable: a13924 
o|substituted constant variable: a13926 
o|substituted constant variable: a13928 
o|substituted constant variable: a13930 
o|substituted constant variable: a13932 
o|substituted constant variable: a13934 
o|substituted constant variable: a13936 
o|substituted constant variable: a13938 
o|substituted constant variable: a13940 
o|substituted constant variable: a13942 
o|substituted constant variable: a13944 
o|substituted constant variable: a13946 
o|substituted constant variable: a13948 
o|inlining procedure: k13952 
o|inlining procedure: k13952 
o|substituted constant variable: a13959 
o|substituted constant variable: a13961 
o|substituted constant variable: a13963 
o|substituted constant variable: a13965 
o|substituted constant variable: a13967 
o|substituted constant variable: a13969 
o|substituted constant variable: a13971 
o|substituted constant variable: a13973 
o|substituted constant variable: a13978 
o|substituted constant variable: a13980 
o|substituted constant variable: a13982 
o|inlining procedure: k14013 
o|inlining procedure: k14013 
o|inlining procedure: k14100 
o|inlining procedure: k14100 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#foreign-stub 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#foreign-stub? 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#foreign-stub-id-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#foreign-stub-return-type-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#foreign-stub-name-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#foreign-stub-argument-types-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#foreign-stub-argument-names-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#foreign-stub-body-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#foreign-stub-cps-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#foreign-stub-callback-set! 
o|inlining procedure: k16428 
o|inlining procedure: k16428 
o|inlining procedure: k16495 
o|contracted procedure: "(core.scm:1876) g35063516" 
o|inlining procedure: k16495 
o|contracted procedure: "(core.scm:1870) chicken.compiler.core#make-foreign-stub" 
o|inlining procedure: k16576 
o|inlining procedure: k16576 
o|contracted procedure: "(core.scm:1864) type->symbol3407" 
o|inlining procedure: k16282 
o|inlining procedure: k16282 
o|inlining procedure: k16297 
o|inlining procedure: k16297 
o|substituted constant variable: a16339 
o|substituted constant variable: a16341 
o|substituted constant variable: a16343 
o|inlining procedure: k16344 
o|inlining procedure: k16344 
o|inlining procedure: k16628 
o|inlining procedure: k16628 
o|inlining procedure: "(core.scm:1896) chicken.compiler.core#second" 
o|inlining procedure: k16687 
o|inlining procedure: k16687 
o|inlining procedure: "(core.scm:1890) chicken.compiler.core#third" 
o|inlining procedure: k16740 
o|inlining procedure: k16740 
o|inlining procedure: k16774 
o|contracted procedure: "(core.scm:1904) g35683577" 
o|inlining procedure: k16774 
o|inlining procedure: "(core.scm:1902) chicken.compiler.core#third" 
o|inlining procedure: "(core.scm:1901) chicken.compiler.core#second" 
o|inlining procedure: k17019 
o|inlining procedure: k17019 
o|inlining procedure: k17055 
o|inlining procedure: k17055 
o|contracted procedure: "(core.scm:1951) g37233724" 
o|inlining procedure: k17174 
o|inlining procedure: k17186 
o|inlining procedure: k17186 
o|inlining procedure: k17209 
o|inlining procedure: k17209 
o|inlining procedure: k17174 
o|inlining procedure: "(core.scm:1970) chicken.compiler.core#first" 
o|contracted procedure: "(core.scm:1970) g37343735" 
o|inlining procedure: k17276 
o|inlining procedure: "(core.scm:1973) chicken.compiler.core#first" 
o|inlining procedure: k17276 
o|inlining procedure: "(core.scm:1983) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:1981) chicken.compiler.core#first" 
o|contracted procedure: "(core.scm:1980) g37433744" 
o|inlining procedure: k17377 
o|inlining procedure: k17377 
o|inlining procedure: k17404 
o|contracted procedure: "(core.scm:1993) walk-call-unit3683" 
o|contracted procedure: "(core.scm:2021) g37923793" 
o|inlining procedure: "(core.scm:1989) chicken.compiler.core#first" 
o|inlining procedure: k17404 
o|inlining procedure: k17464 
o|contracted procedure: "(core.scm:1999) chicken.compiler.core#last" 
o|inlining procedure: k7528 
o|inlining procedure: k7528 
o|inlining procedure: k17464 
o|substituted constant variable: a17481 
o|substituted constant variable: a17486 
o|substituted constant variable: a17488 
o|substituted constant variable: a17490 
o|substituted constant variable: a17492 
o|inlining procedure: k17496 
o|inlining procedure: k17496 
o|inlining procedure: k17508 
o|inlining procedure: k17508 
o|inlining procedure: k17520 
o|inlining procedure: k17520 
o|substituted constant variable: a17527 
o|substituted constant variable: a17529 
o|substituted constant variable: a17531 
o|substituted constant variable: a17533 
o|substituted constant variable: a17535 
o|substituted constant variable: a17537 
o|substituted constant variable: a17539 
o|substituted constant variable: a17541 
o|substituted constant variable: a17543 
o|substituted constant variable: a17548 
o|substituted constant variable: a17550 
o|substituted constant variable: a17552 
o|substituted constant variable: a17554 
o|inlining procedure: k17558 
o|inlining procedure: k17558 
o|inlining procedure: k17570 
o|inlining procedure: k17570 
o|substituted constant variable: a17577 
o|substituted constant variable: a17579 
o|substituted constant variable: a17581 
o|substituted constant variable: a17583 
o|substituted constant variable: a17585 
o|consed rest parameter at call site: "(core.scm:2014) chicken.compiler.core#cons*" 2 
o|contracted procedure: "(core.scm:2007) g37843785" 
o|inlining procedure: k17757 
o|inlining procedure: k17757 
o|inlining procedure: k17798 
o|inlining procedure: k17798 
o|substituted constant variable: a17857 
o|inlining procedure: k17858 
o|inlining procedure: k17858 
o|substituted constant variable: a17865 
o|inlining procedure: k17907 
o|inlining procedure: k17907 
o|inlining procedure: k17931 
o|inlining procedure: k17931 
o|inlining procedure: k17949 
o|inlining procedure: k17949 
o|inlining procedure: "(core.scm:2081) chicken.compiler.core#first" 
o|inlining procedure: k17962 
o|inlining procedure: k17962 
o|inlining procedure: "(core.scm:2106) chicken.compiler.core#first" 
o|inlining procedure: k18029 
o|inlining procedure: "(core.scm:2102) chicken.compiler.core#third" 
o|inlining procedure: k18029 
o|inlining procedure: "(core.scm:2098) chicken.compiler.core#first" 
o|inlining procedure: k18064 
o|inlining procedure: k18082 
o|inlining procedure: k18082 
o|inlining procedure: k18064 
o|inlining procedure: k18167 
o|inlining procedure: k18167 
o|inlining procedure: "(core.scm:2124) chicken.compiler.core#first" 
o|inlining procedure: k18187 
o|inlining procedure: k18268 
o|inlining procedure: k18268 
o|inlining procedure: "(core.scm:2155) chicken.compiler.core#second" 
o|inlining procedure: k18302 
o|inlining procedure: k18302 
o|inlining procedure: "(core.scm:2139) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2137) chicken.compiler.core#third" 
o|inlining procedure: k18187 
o|inlining procedure: k18375 
o|inlining procedure: k18375 
o|inlining procedure: k18403 
o|inlining procedure: k18403 
o|substituted constant variable: a18422 
o|substituted constant variable: a18424 
o|inlining procedure: "(core.scm:2163) chicken.compiler.core#first" 
o|inlining procedure: k18428 
o|inlining procedure: k18452 
o|inlining procedure: k18452 
o|inlining procedure: "(core.scm:2184) chicken.compiler.core#first" 
o|inlining procedure: k18428 
o|substituted constant variable: a18471 
o|substituted constant variable: a18473 
o|substituted constant variable: a18478 
o|substituted constant variable: a18480 
o|substituted constant variable: a18485 
o|substituted constant variable: a18487 
o|substituted constant variable: a18489 
o|substituted constant variable: a18494 
o|substituted constant variable: a18496 
o|substituted constant variable: a18498 
o|substituted constant variable: a18503 
o|substituted constant variable: a18505 
o|substituted constant variable: a18510 
o|substituted constant variable: a18512 
o|inlining procedure: k18516 
o|inlining procedure: k18516 
o|substituted constant variable: a18529 
o|substituted constant variable: a18531 
o|substituted constant variable: a18533 
o|substituted constant variable: a18535 
o|inlining procedure: k18553 
o|inlining procedure: k18553 
o|inlining procedure: k18614 
o|inlining procedure: k18614 
o|inlining procedure: k18629 
o|inlining procedure: k18629 
o|inlining procedure: k18683 
o|inlining procedure: k18683 
o|inlining procedure: k18717 
o|inlining procedure: k18717 
o|inlining procedure: k18732 
o|inlining procedure: k18732 
o|inlining procedure: k18750 
o|inlining procedure: k18768 
o|inlining procedure: k18768 
o|inlining procedure: k18750 
o|propagated global variable: tmp40764078 chicken.compiler.core#local-definitions 
o|propagated global variable: tmp40764078 chicken.compiler.core#local-definitions 
o|inlining procedure: k18805 
o|inlining procedure: k18805 
o|inlining procedure: k18818 
o|inlining procedure: k18818 
o|inlining procedure: "(core.scm:2215) chicken.compiler.core#first" 
o|inlining procedure: k18858 
o|inlining procedure: k18858 
o|inlining procedure: "(core.scm:2209) chicken.compiler.core#first" 
o|inlining procedure: k18885 
o|inlining procedure: k18885 
o|inlining procedure: "(core.scm:2205) chicken.compiler.core#first" 
o|inlining procedure: k18943 
o|inlining procedure: k18943 
o|inlining procedure: k18959 
o|inlining procedure: k18959 
o|inlining procedure: k18978 
o|inlining procedure: k18978 
o|inlining procedure: k18993 
o|inlining procedure: k18993 
o|removed side-effect free assignment to unused variable: assigned-locally4104 
o|inlining procedure: k19012 
o|inlining procedure: k19012 
o|inlining procedure: k19026 
o|inlining procedure: k19026 
o|inlining procedure: k19041 
o|inlining procedure: k19041 
o|substituted constant variable: a19058 
o|substituted constant variable: a19060 
o|substituted constant variable: a19062 
o|substituted constant variable: a19064 
o|substituted constant variable: a19066 
o|substituted constant variable: a19068 
o|substituted constant variable: a19070 
o|substituted constant variable: a19072 
o|substituted constant variable: a19074 
o|substituted constant variable: a19076 
o|substituted constant variable: a19078 
o|substituted constant variable: a19080 
o|inlining procedure: k19131 
o|inlining procedure: k19152 
o|inlining procedure: k19173 
o|inlining procedure: "(core.scm:2519) chicken.compiler.core#first" 
o|inlining procedure: k19173 
o|inlining procedure: k19195 
o|inlining procedure: "(core.scm:2518) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2518) chicken.compiler.core#first" 
o|inlining procedure: k19195 
o|inlining procedure: "(core.scm:2515) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:2514) chicken.compiler.core#first" 
o|substituted constant variable: a19224 
o|inlining procedure: k19152 
o|inlining procedure: k19232 
o|inlining procedure: k19232 
o|inlining procedure: "(core.scm:2508) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2507) chicken.compiler.core#third" 
o|inlining procedure: "(core.scm:2506) chicken.compiler.core#second" 
o|inlining procedure: k19131 
o|inlining procedure: k19265 
o|inlining procedure: k19292 
o|inlining procedure: k19292 
o|inlining procedure: k19304 
o|inlining procedure: k19304 
o|inlining procedure: "(core.scm:2491) chicken.compiler.core#first" 
o|inlining procedure: k19265 
o|inlining procedure: k19352 
o|inlining procedure: k19364 
o|inlining procedure: k19364 
o|inlining procedure: k19367 
o|inlining procedure: k19385 
o|inlining procedure: k19385 
o|inlining procedure: "(core.scm:2469) chicken.compiler.core#first" 
o|inlining procedure: k19367 
o|inlining procedure: k19352 
o|inlining procedure: k19413 
o|inlining procedure: k19428 
o|inlining procedure: k19443 
o|inlining procedure: k19458 
o|inlining procedure: "(core.scm:2459) chicken.compiler.core#first" 
o|inlining procedure: k19458 
o|substituted constant variable: a19472 
o|inlining procedure: k19443 
o|inlining procedure: "(core.scm:2452) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2451) chicken.compiler.core#first" 
o|inlining procedure: k19428 
o|inlining procedure: "(core.scm:2449) chicken.compiler.core#second" 
o|inlining procedure: k19413 
o|inlining procedure: k19492 
o|inlining procedure: k19520 
o|inlining procedure: "(core.scm:2432) chicken.compiler.core#first" 
o|inlining procedure: k19520 
o|inlining procedure: "(core.scm:2434) chicken.compiler.core#first" 
o|inlining procedure: k19555 
o|inlining procedure: k19555 
o|inlining procedure: k19588 
o|inlining procedure: k19588 
o|inlining procedure: "(core.scm:2419) chicken.compiler.core#third" 
o|inlining procedure: "(core.scm:2417) chicken.compiler.core#second" 
o|inlining procedure: k19492 
o|inlining procedure: k19621 
o|inlining procedure: "(core.scm:2404) chicken.compiler.core#first" 
o|inlining procedure: k19621 
o|inlining procedure: k19650 
o|inlining procedure: k19650 
o|inlining procedure: "(core.scm:2395) chicken.compiler.core#first" 
o|inlining procedure: k19679 
o|inlining procedure: k19700 
o|inlining procedure: k19700 
o|inlining procedure: k19679 
o|inlining procedure: k19719 
o|inlining procedure: k19719 
o|inlining procedure: "(core.scm:2356) chicken.compiler.core#second" 
o|inlining procedure: k19755 
o|inlining procedure: k19782 
o|inlining procedure: k19782 
o|inlining procedure: "(core.scm:2373) chicken.compiler.core#second" 
o|inlining procedure: k19755 
o|inlining procedure: k19831 
o|inlining procedure: k19831 
o|substituted constant variable: a19875 
o|substituted constant variable: a19876 
o|inlining procedure: k19889 
o|inlining procedure: k19898 
o|inlining procedure: k19910 
o|inlining procedure: k19910 
o|inlining procedure: k19898 
o|inlining procedure: k19889 
o|inlining procedure: k19946 
o|inlining procedure: "(core.scm:2329) chicken.compiler.core#first" 
o|inlining procedure: k19946 
o|inlining procedure: k19941 
o|inlining procedure: k19976 
o|inlining procedure: k19976 
o|inlining procedure: k19941 
o|inlining procedure: k19996 
o|inlining procedure: k19996 
o|inlining procedure: k20011 
o|inlining procedure: k20011 
o|merged explicitly consed rest parameter: lss4413 
o|inlining procedure: k20107 
o|inlining procedure: k20107 
o|contracted procedure: "(core.scm:2567) chicken.compiler.core#remove" 
o|inlining procedure: k20142 
o|inlining procedure: k20142 
o|merged explicitly consed rest parameter: lss4454 
o|inlining procedure: k20171 
o|consed rest parameter at call site: "(core.scm:2572) symbolset-difference4386" 2 
o|inlining procedure: k20171 
o|consed rest parameter at call site: "(core.scm:2571) symbolset-difference4386" 2 
o|consed rest parameter at call site: "(core.scm:2578) chicken.compiler.core#lset-adjoin/eq?" 2 
o|consed rest parameter at call site: "(core.scm:2583) chicken.compiler.core#lset-adjoin/eq?" 2 
o|inlining procedure: k20225 
o|inlining procedure: "(core.scm:2594) chicken.compiler.core#first" 
o|inlining procedure: k20225 
o|inlining procedure: k20255 
o|inlining procedure: "(core.scm:2607) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:2606) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2605) chicken.compiler.core#first" 
o|inlining procedure: k20255 
o|inlining procedure: k20315 
o|inlining procedure: k20315 
o|inlining procedure: "(core.scm:2611) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2610) chicken.compiler.core#first" 
o|inlining procedure: k20328 
o|inlining procedure: k20370 
o|inlining procedure: k20370 
o|inlining procedure: k20406 
o|inlining procedure: k20416 
o|inlining procedure: k20449 
o|inlining procedure: k20449 
o|inlining procedure: k20478 
o|inlining procedure: k20487 
o|inlining procedure: k20487 
o|inlining procedure: k20478 
o|inlining procedure: "(core.scm:2640) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2639) chicken.compiler.core#third" 
o|inlining procedure: k20524 
o|inlining procedure: k20539 
o|inlining procedure: k20539 
o|inlining procedure: k20524 
o|inlining procedure: "(core.scm:2627) chicken.compiler.core#first" 
o|inlining procedure: k20416 
o|inlining procedure: k20406 
o|inlining procedure: "(core.scm:2619) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:2618) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2617) chicken.compiler.core#first" 
o|inlining procedure: k20328 
o|consed rest parameter at call site: "(core.scm:2671) symbolset-difference4386" 2 
o|contracted procedure: "(core.scm:2668) delete-duplicate-symbols4385" 
o|inlining procedure: k20050 
o|inlining procedure: k20050 
o|inlining procedure: "(core.scm:2668) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2666) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2664) chicken.compiler.core#third" 
o|inlining procedure: k20672 
o|inlining procedure: k20672 
o|substituted constant variable: a20707 
o|substituted constant variable: a20709 
o|substituted constant variable: a20711 
o|substituted constant variable: a20713 
o|substituted constant variable: a20715 
o|inlining procedure: k20719 
o|inlining procedure: k20719 
o|inlining procedure: k20731 
o|inlining procedure: k20731 
o|substituted constant variable: a20738 
o|substituted constant variable: a20740 
o|substituted constant variable: a20742 
o|substituted constant variable: a20744 
o|substituted constant variable: a20746 
o|substituted constant variable: a20751 
o|substituted constant variable: a20753 
o|inlining procedure: k20766 
o|inlining procedure: k20766 
o|inlining procedure: k20803 
o|inlining procedure: k20834 
o|inlining procedure: k20834 
o|inlining procedure: "(core.scm:2702) chicken.compiler.core#first" 
o|inlining procedure: k20803 
o|inlining procedure: k20864 
o|inlining procedure: k20889 
o|inlining procedure: k20889 
o|inlining procedure: k20864 
o|inlining procedure: k20907 
o|inlining procedure: k20907 
o|consed rest parameter at call site: "(core.scm:2735) symbolset-difference4386" 2 
o|consed rest parameter at call site: "(core.scm:2734) symbolset-difference4386" 2 
o|inlining procedure: "(core.scm:2722) chicken.compiler.core#first" 
o|consed rest parameter at call site: "(core.scm:2719) chicken.compiler.core#lset-union/eq?" 2 
o|inlining procedure: "(core.scm:2747) chicken.compiler.core#first" 
o|consed rest parameter at call site: "(core.scm:2746) chicken.compiler.core#lset-union/eq?" 2 
o|inlining procedure: k20951 
o|substituted constant variable: a20970 
o|consed rest parameter at call site: "(core.scm:2698) symbolset-difference4386" 2 
o|inlining procedure: k20951 
o|inlining procedure: "(core.scm:2692) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2690) chicken.compiler.core#third" 
o|inlining procedure: k20996 
o|inlining procedure: k20996 
o|substituted constant variable: a21031 
o|substituted constant variable: a21033 
o|inlining procedure: k21037 
o|inlining procedure: k21037 
o|inlining procedure: k21049 
o|inlining procedure: k21049 
o|substituted constant variable: a21056 
o|substituted constant variable: a21058 
o|substituted constant variable: a21060 
o|substituted constant variable: a21062 
o|substituted constant variable: a21064 
o|inlining procedure: k21077 
o|inlining procedure: k21077 
o|inlining procedure: k21123 
o|inlining procedure: k21123 
o|inlining procedure: k21159 
o|substituted constant variable: a21178 
o|consed rest parameter at call site: "(core.scm:2789) symbolset=4387" 2 
o|inlining procedure: k21159 
o|inlining procedure: k21184 
o|inlining procedure: k21184 
o|inlining procedure: "(core.scm:2780) chicken.compiler.core#first" 
o|inlining procedure: k21199 
o|inlining procedure: k21199 
o|inlining procedure: "(core.scm:2772) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2770) chicken.compiler.core#third" 
o|substituted constant variable: a21215 
o|substituted constant variable: a21217 
o|inlining procedure: k21221 
o|inlining procedure: k21221 
o|inlining procedure: k21233 
o|inlining procedure: k21233 
o|substituted constant variable: a21240 
o|substituted constant variable: a21242 
o|substituted constant variable: a21244 
o|substituted constant variable: a21246 
o|substituted constant variable: a21248 
o|inlining procedure: k21261 
o|inlining procedure: k21261 
o|inlining procedure: k21282 
o|inlining procedure: k21282 
o|inlining procedure: "(core.scm:2831) chicken.compiler.core#first" 
o|inlining procedure: k21295 
o|inlining procedure: k21323 
o|inlining procedure: k21323 
o|inlining procedure: "(core.scm:2839) chicken.compiler.core#first" 
o|inlining procedure: k21295 
o|inlining procedure: k21370 
o|inlining procedure: "(core.scm:2874) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:2869) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2879) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:2877) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2863) chicken.compiler.core#first" 
o|inlining procedure: k21370 
o|inlining procedure: k21566 
o|inlining procedure: k21566 
o|inlining procedure: k21600 
o|inlining procedure: k21600 
o|inlining procedure: k21644 
o|inlining procedure: k21644 
o|contracted procedure: "(core.scm:2934) wrap-crefvar4396" 
o|inlining procedure: k22564 
o|inlining procedure: k22564 
o|inlining procedure: k21737 
o|inlining procedure: k21737 
o|inlining procedure: k21773 
o|contracted procedure: "(core.scm:2940) g50245033" 
o|inlining procedure: k21773 
o|inlining procedure: "(core.scm:2933) chicken.compiler.core#fourth" 
o|inlining procedure: k21837 
o|inlining procedure: k21837 
o|inlining procedure: k21853 
o|inlining procedure: k21853 
o|inlining procedure: k21865 
o|inlining procedure: k21865 
o|inlining procedure: "(core.scm:2922) chicken.compiler.core#second" 
o|inlining procedure: k21901 
o|inlining procedure: k21901 
o|inlining procedure: k21907 
o|inlining procedure: k21907 
o|inlining procedure: k21933 
o|inlining procedure: k21933 
o|substituted constant variable: a21940 
o|substituted constant variable: a21942 
o|inlining procedure: k21949 
o|inlining procedure: k21949 
o|inlining procedure: "(core.scm:2896) chicken.compiler.core#second" 
o|inlining procedure: k21967 
o|inlining procedure: k21967 
o|inlining procedure: "(core.scm:2890) chicken.compiler.core#first" 
o|inlining procedure: k21979 
o|inlining procedure: k21979 
o|inlining procedure: k22027 
o|inlining procedure: k22027 
o|inlining procedure: "(core.scm:2882) chicken.compiler.core#third" 
o|inlining procedure: k22064 
o|inlining procedure: k22093 
o|inlining procedure: k22093 
o|inlining procedure: k22160 
o|inlining procedure: k22160 
o|inlining procedure: k22203 
o|inlining procedure: k22203 
o|inlining procedure: "(core.scm:2983) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:2982) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2980) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:2979) chicken.compiler.core#first" 
o|inlining procedure: k22064 
o|inlining procedure: k22255 
o|inlining procedure: k22255 
o|inlining procedure: k22284 
o|inlining procedure: k22284 
o|inlining procedure: k22287 
o|inlining procedure: k22287 
o|substituted constant variable: a22297 
o|substituted constant variable: a22299 
o|substituted constant variable: a22301 
o|substituted constant variable: a22306 
o|substituted constant variable: a22308 
o|substituted constant variable: a22310 
o|inlining procedure: k22314 
o|inlining procedure: k22314 
o|inlining procedure: k22326 
o|inlining procedure: k22326 
o|inlining procedure: k22338 
o|inlining procedure: k22338 
o|inlining procedure: k22350 
o|inlining procedure: k22350 
o|inlining procedure: k22362 
o|inlining procedure: k22362 
o|inlining procedure: k22374 
o|inlining procedure: k22374 
o|inlining procedure: k22386 
o|inlining procedure: k22386 
o|inlining procedure: k22398 
o|inlining procedure: k22398 
o|substituted constant variable: a22411 
o|substituted constant variable: a22413 
o|substituted constant variable: a22415 
o|substituted constant variable: a22417 
o|substituted constant variable: a22419 
o|substituted constant variable: a22421 
o|substituted constant variable: a22423 
o|substituted constant variable: a22425 
o|substituted constant variable: a22427 
o|substituted constant variable: a22429 
o|substituted constant variable: a22431 
o|substituted constant variable: a22433 
o|substituted constant variable: a22435 
o|substituted constant variable: a22437 
o|substituted constant variable: a22439 
o|substituted constant variable: a22441 
o|substituted constant variable: a22443 
o|substituted constant variable: a22445 
o|inlining procedure: k22449 
o|inlining procedure: k22449 
o|substituted constant variable: a22462 
o|substituted constant variable: a22464 
o|substituted constant variable: a22466 
o|substituted constant variable: a22468 
o|substituted constant variable: a22470 
o|inlining procedure: k22474 
o|inlining procedure: k22474 
o|inlining procedure: k22486 
o|inlining procedure: k22486 
o|substituted constant variable: a22499 
o|substituted constant variable: a22501 
o|substituted constant variable: a22503 
o|substituted constant variable: a22505 
o|substituted constant variable: a22507 
o|substituted constant variable: a22509 
o|inlining procedure: k22530 
o|inlining procedure: k22530 
o|inlining procedure: k22603 
o|inlining procedure: k22603 
o|inlining procedure: k22659 
o|inlining procedure: k22659 
o|inlining procedure: k22687 
o|inlining procedure: k22687 
o|inlining procedure: "(core.scm:3056) chicken.compiler.core#first" 
o|inlining procedure: k22742 
o|inlining procedure: k22742 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal? 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal-id-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal-external-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal-arguments-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal-arguments 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal-argument-count-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal-rest-argument-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal-temporaries-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal-float-temporaries-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal-callee-signatures-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal-allocated-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal-directly-called-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal-directly-called 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal-closure-size-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal-looping-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal-customizable-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal-rest-argument-mode-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal-body-set! 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#lambda-literal-direct-set! 
o|inlining procedure: k23091 
o|inlining procedure: k23091 
o|inlining procedure: k23154 
o|inlining procedure: k23154 
o|propagated global variable: tmp54075409 chicken.compiler.core#no-bound-checks 
o|inlining procedure: k23175 
o|propagated global variable: tmp54075409 chicken.compiler.core#no-bound-checks 
o|inlining procedure: k23175 
o|propagated global variable: tmp54105412 chicken.compiler.support#unsafe 
o|propagated global variable: tmp54105412 chicken.compiler.support#unsafe 
o|inlining procedure: k23184 
o|inlining procedure: k23184 
o|inlining procedure: k23202 
o|inlining procedure: k23202 
o|inlining procedure: "(core.scm:3159) chicken.compiler.core#first" 
o|inlining procedure: k23224 
o|inlining procedure: "(core.scm:3163) chicken.compiler.core#fourth" 
o|inlining procedure: "(core.scm:3162) chicken.compiler.core#second" 
o|inlining procedure: k23224 
o|inlining procedure: "(core.scm:3176) chicken.compiler.core#second" 
o|inlining procedure: k23299 
o|inlining procedure: k23299 
o|inlining procedure: "(core.scm:3184) chicken.compiler.core#second" 
o|inlining procedure: k23341 
o|inlining procedure: "(core.scm:3188) chicken.compiler.core#first" 
o|inlining procedure: k23341 
o|inlining procedure: "(core.scm:3192) chicken.compiler.core#first" 
o|inlining procedure: k23391 
o|inlining procedure: "(core.scm:3197) chicken.compiler.core#first" 
o|inlining procedure: k23391 
o|inlining procedure: k23432 
o|inlining procedure: k23432 
o|inlining procedure: "(core.scm:3204) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:3200) chicken.compiler.core#first" 
o|inlining procedure: k23458 
o|inlining procedure: "(core.scm:3213) chicken.compiler.core#first" 
o|inlining procedure: k23458 
o|inlining procedure: "(core.scm:3283) chicken.compiler.core#first" 
o|consed rest parameter at call site: "(core.scm:3282) chicken.compiler.core#lset-adjoin/eq?" 2 
o|contracted procedure: "(core.scm:3257) chicken.compiler.core#make-lambda-literal" 
o|inlining procedure: k23581 
o|inlining procedure: k23581 
o|inlining procedure: "(core.scm:3259) chicken.compiler.core#second" 
o|inlining procedure: k23614 
o|inlining procedure: k23614 
o|inlining procedure: k23631 
o|inlining procedure: k23631 
o|inlining procedure: k23643 
o|inlining procedure: k23643 
o|inlining procedure: k23664 
o|inlining procedure: k23664 
o|inlining procedure: "(core.scm:3232) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:3230) chicken.compiler.core#third" 
o|inlining procedure: k23674 
o|inlining procedure: "(core.scm:3293) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:3287) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:3286) chicken.compiler.core#first" 
o|inlining procedure: k23674 
o|inlining procedure: "(core.scm:3304) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:3299) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:3298) chicken.compiler.core#first" 
o|inlining procedure: k23775 
o|inlining procedure: k23860 
o|inlining procedure: k23860 
o|inlining procedure: k23874 
o|inlining procedure: k23874 
o|inlining procedure: "(core.scm:3319) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:3318) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:3308) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:3307) chicken.compiler.core#first" 
o|inlining procedure: k23775 
o|inlining procedure: "(core.scm:3336) chicken.compiler.core#third" 
o|substituted constant variable: a23987 
o|consed rest parameter at call site: "(core.scm:3335) chicken.compiler.core#lset-adjoin/eq?" 2 
o|inlining procedure: "(core.scm:3334) chicken.compiler.core#second" 
o|inlining procedure: k23999 
o|inlining procedure: "(core.scm:3349) chicken.compiler.core#first" 
o|inlining procedure: k23999 
o|inlining procedure: k24029 
o|inlining procedure: k24029 
o|inlining procedure: k24044 
o|substituted constant variable: a24071 
o|substituted constant variable: a24072 
o|inlining procedure: k24044 
o|inlining procedure: k24114 
o|inlining procedure: k24114 
o|inlining procedure: "(core.scm:3353) chicken.compiler.core#first" 
o|inlining procedure: k24144 
o|inlining procedure: "(core.scm:3376) chicken.compiler.core#third" 
o|inlining procedure: "(core.scm:3373) chicken.compiler.core#second" 
o|inlining procedure: "(core.scm:3370) chicken.compiler.core#first" 
o|inlining procedure: k24144 
o|inlining procedure: k24245 
o|inlining procedure: k24245 
o|consed rest parameter at call site: "(core.scm:3397) chicken.compiler.core#cons*" 2 
o|inlining procedure: "(core.scm:3389) chicken.compiler.core#first" 
o|inlining procedure: "(core.scm:3382) chicken.compiler.core#first" 
o|inlining procedure: k24310 
o|inlining procedure: k24310 
o|substituted constant variable: a24336 
o|substituted constant variable: a24338 
o|substituted constant variable: a24343 
o|substituted constant variable: a24345 
o|substituted constant variable: a24347 
o|substituted constant variable: a24349 
o|substituted constant variable: a24351 
o|substituted constant variable: a24353 
o|substituted constant variable: a24355 
o|substituted constant variable: a24357 
o|substituted constant variable: a24362 
o|substituted constant variable: a24364 
o|substituted constant variable: a24366 
o|substituted constant variable: a24368 
o|substituted constant variable: a24370 
o|substituted constant variable: a24372 
o|substituted constant variable: a24374 
o|substituted constant variable: a24376 
o|substituted constant variable: a24378 
o|substituted constant variable: a24380 
o|substituted constant variable: a24382 
o|substituted constant variable: a24384 
o|inlining procedure: k24388 
o|inlining procedure: k24388 
o|substituted constant variable: a24395 
o|substituted constant variable: a24397 
o|substituted constant variable: a24399 
o|inlining procedure: k24420 
o|inlining procedure: k24420 
o|inlining procedure: k24454 
o|inlining procedure: k24454 
o|inlining procedure: k24481 
o|inlining procedure: k24481 
o|contracted procedure: "(core.scm:3422) chicken.compiler.core#posv" 
o|inlining procedure: k8005 
o|inlining procedure: k8005 
o|inlining procedure: k24514 
o|inlining procedure: k24514 
o|inlining procedure: k24539 
o|inlining procedure: k24539 
o|contracted procedure: "(core.scm:3433) chicken.compiler.core#list-index" 
o|inlining procedure: k7553 
o|inlining procedure: k7553 
o|inlining procedure: k24555 
o|inlining procedure: k24555 
o|inlining procedure: k24568 
o|inlining procedure: k24568 
o|inlining procedure: k24586 
o|inlining procedure: k24586 
o|inlining procedure: k24601 
o|inlining procedure: k24601 
o|simplifications: ((if . 1)) 
o|replaced variables: 5454 
o|removed binding forms: 1078 
o|substituted constant variable: r716324672 
o|substituted constant variable: r722124676 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#first 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#second 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#third 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#fourth 
o|substituted constant variable: r737224683 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#list-tabulate 
o|substituted constant variable: r797224698 
o|substituted constant variable: r825724708 
o|inlining procedure: k8343 
o|substituted constant variable: r847324723 
o|removed call to pure procedure with unused result: "(core.scm:584) chicken.base#void" 
o|substituted constant variable: r901624762 
o|substituted constant variable: r901624762 
o|substituted constant variable: r906724768 
o|substituted constant variable: r937924784 
o|substituted constant variable: r941524786 
o|substituted constant variable: r941524786 
o|substituted constant variable: r941524788 
o|substituted constant variable: r941524788 
o|substituted constant variable: r1025024825 
o|substituted constant variable: r1025024825 
o|substituted constant variable: r1084624841 
o|substituted constant variable: r1084624841 
o|substituted constant variable: r1086524845 
o|substituted constant variable: r1086524845 
o|substituted constant variable: r1135224864 
o|substituted constant variable: r1135224864 
o|substituted constant variable: r1135224866 
o|substituted constant variable: r1135224866 
o|substituted constant variable: r1124924868 
o|substituted constant variable: r1124924868 
o|substituted constant variable: r1137224871 
o|substituted constant variable: r1154924881 
o|substituted constant variable: r1156124883 
o|substituted constant variable: r1175624897 
o|inlining procedure: k11894 
o|substituted constant variable: r1190824904 
o|substituted constant variable: r1190824904 
o|substituted constant variable: r1212624932 
o|substituted constant variable: r1212624932 
o|substituted constant variable: r1217924937 
o|substituted constant variable: r1217924937 
o|substituted constant variable: r1226724941 
o|substituted constant variable: r1226724941 
o|substituted constant variable: r1266424994 
o|substituted constant variable: r1277525019 
o|substituted constant variable: r1277525019 
o|substituted constant variable: r1272625026 
o|substituted constant variable: r1280525029 
o|substituted constant variable: r1280525029 
o|substituted constant variable: r1283025041 
o|substituted constant variable: r1289625044 
o|substituted constant variable: r1289625044 
o|substituted constant variable: r1307425086 
o|substituted constant variable: r1309925089 
o|substituted constant variable: r1309925089 
o|substituted constant variable: r1315225097 
o|substituted constant variable: r1320125101 
o|substituted constant variable: r1320125101 
o|substituted constant variable: r1323425105 
o|substituted constant variable: r1323425105 
o|substituted constant variable: r1419425122 
o|substituted constant variable: r1419425122 
o|substituted constant variable: r1421025126 
o|substituted constant variable: r741625131 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|substituted constant variable: r1538625234 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|substituted constant variable: r1548525242 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|substituted constant variable: r1577425259 
o|inlining procedure: k15806 
o|substituted constant variable: r1580725263 
o|substituted constant variable: r1580725263 
o|folded constant expression: (scheme#not (quote #f)) 
o|substituted constant variable: r1593325272 
o|inlining procedure: k14268 
o|inlining procedure: k14268 
o|substituted constant variable: n241 
o|substituted constant variable: r1357325290 
o|substituted constant variable: r1366825296 
o|substituted constant variable: r1366825296 
o|substituted constant variable: r1383025331 
o|substituted constant variable: r1383025331 
o|inlining procedure: k13814 
o|contracted procedure: "(core.scm:1864) g34653474" 
o|substituted constant variable: r1628325347 
o|substituted constant variable: r1634525352 
o|inlining procedure: k16350 
o|substituted constant variable: r1702025382 
o|substituted constant variable: r1790825443 
o|substituted constant variable: r1803025467 
o|substituted constant variable: r1826925487 
o|substituted constant variable: r1845325518 
o|substituted constant variable: r1881925546 
o|substituted constant variable: r1885925553 
o|substituted constant variable: r1888625560 
o|substituted constant variable: r1919625602 
o|substituted constant variable: r1923325615 
o|substituted constant variable: r1935325655 
o|substituted constant variable: r1945925665 
o|substituted constant variable: r1944425666 
o|substituted constant variable: r1942925677 
o|substituted constant variable: r1941425683 
o|substituted constant variable: r1955625697 
o|substituted constant variable: r1955625698 
o|substituted constant variable: r1962225718 
o|substituted constant variable: r1970125728 
o|substituted constant variable: r1991125751 
o|substituted constant variable: r1989925752 
o|substituted constant variable: r1989025753 
o|substituted constant variable: r1994225764 
o|substituted constant variable: r1999725766 
o|substituted constant variable: r2017225774 
o|inlining procedure: k20416 
o|substituted constant variable: r2045025818 
o|substituted constant variable: r2048825822 
o|substituted constant variable: r2047925823 
o|inlining procedure: k20416 
o|substituted constant variable: r2052525837 
o|substituted constant variable: r2041725843 
o|substituted constant variable: r2041725843 
o|substituted constant variable: r2040725845 
o|substituted constant variable: r2040725845 
o|substituted constant variable: r2076725886 
o|substituted constant variable: r2083525891 
o|substituted constant variable: r2083525891 
o|substituted constant variable: r2095225916 
o|substituted constant variable: r2107825933 
o|substituted constant variable: r2112425935 
o|inlining procedure: k21140 
o|inlining procedure: k21140 
o|substituted constant variable: r2116025938 
o|inlining procedure: k21184 
o|inlining procedure: k21184 
o|substituted constant variable: r2118525941 
o|substituted constant variable: r2118525941 
o|substituted constant variable: r2120025949 
o|substituted constant variable: r2190226041 
o|substituted constant variable: r2190226041 
o|substituted constant variable: r2190226043 
o|substituted constant variable: r2190226043 
o|substituted constant variable: r2190826046 
o|substituted constant variable: r2195026050 
o|substituted constant variable: r2196826057 
o|substituted constant variable: r2225626102 
o|substituted constant variable: r2225626102 
o|substituted constant variable: r2228526104 
o|substituted constant variable: r2228526104 
o|substituted constant variable: r2228526106 
o|substituted constant variable: r2228526106 
o|propagated global variable: r2317626155 chicken.compiler.core#no-bound-checks 
o|substituted constant variable: r2343326209 
o|substituted constant variable: r2343326209 
o|substituted constant variable: r2358226235 
o|substituted constant variable: r2358226236 
o|substituted constant variable: r2364426250 
o|substituted constant variable: r800626391 
o|substituted constant variable: r2454026396 
o|substituted constant variable: r755426397 
o|inlining procedure: k24568 
o|inlining procedure: k24568 
o|substituted constant variable: r2460226407 
o|inlining procedure: k24568 
o|replaced variables: 810 
o|removed binding forms: 4216 
o|removed conditional forms: 1 
o|inlining procedure: k7709 
o|inlining procedure: k8349 
o|inlining procedure: k8349 
o|inlining procedure: k8463 
o|inlining procedure: k8463 
o|inlining procedure: k8463 
o|contracted procedure: k8509 
o|inlining procedure: "(core.scm:735) chicken.compiler.core#alist-cons" 
o|inlining procedure: k10727 
o|inlining procedure: k10830 
o|inlining procedure: "(core.scm:954) chicken.compiler.core#alist-cons" 
o|inlining procedure: "(core.scm:1319) chicken.compiler.core#alist-cons" 
o|inlining procedure: "(core.scm:1314) chicken.compiler.core#fifth" 
o|inlining procedure: "(core.scm:1346) chicken.compiler.core#fifth" 
o|inlining procedure: "(core.scm:1332) chicken.compiler.core#alist-cons" 
o|inlining procedure: k14183 
o|inlining procedure: k15469 
o|inlining procedure: k15469 
o|substituted constant variable: r1580726662 
o|folded constant expression: (scheme#not (quote #f)) 
o|inlining procedure: k13614 
o|inlining procedure: k13614 
o|inlining procedure: "(core.scm:1519) chicken.compiler.core#alist-cons" 
o|inlining procedure: "(core.scm:1519) chicken.compiler.core#alist-cons" 
o|substituted constant variable: r163452535226696 
o|inlining procedure: k18023 
o|inlining procedure: k18023 
o|inlining procedure: k18440 
o|inlining procedure: "(core.scm:2267) chicken.compiler.core#alist-cons" 
o|inlining procedure: k19343 
o|inlining procedure: k19343 
o|inlining procedure: k19343 
o|inlining procedure: k19343 
o|inlining procedure: k19656 
o|inlining procedure: k19788 
o|inlining procedure: k19807 
o|inlining procedure: k19858 
o|inlining procedure: k19858 
o|inlining procedure: k20458 
o|substituted constant variable: r211242593526772 
o|substituted constant variable: r211242593526774 
o|substituted constant variable: r2118526777 
o|inlining procedure: k21687 
o|inlining procedure: k22200 
o|inlining procedure: k23652 
o|inlining procedure: k23652 
o|inlining procedure: k23871 
o|replaced variables: 6 
o|removed binding forms: 914 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#fifth 
o|removed side-effect free assignment to unused variable: chicken.compiler.core#alist-cons 
o|substituted constant variable: r846426856 
o|substituted constant variable: r846426858 
o|substituted constant variable: r846426860 
o|substituted constant variable: r1072826897 
o|substituted constant variable: r1083126898 
o|inlining procedure: k13088 
o|substituted constant variable: z39427036 
o|substituted constant variable: r1802427068 
o|substituted constant variable: r1802427069 
o|contracted procedure: k19343 
o|substituted constant variable: r1934427088 
o|substituted constant variable: r1934427089 
o|substituted constant variable: r1980827096 
o|substituted constant variable: r1985927098 
o|substituted constant variable: r2041726753 
o|substituted constant variable: r2041726755 
o|substituted constant variable: r2220127131 
o|substituted constant variable: r2220127131 
o|substituted constant variable: r2365327138 
o|substituted constant variable: r2387227139 
o|substituted constant variable: r2387227139 
o|substituted constant variable: r2456926817 
o|substituted constant variable: r2456926819 
o|substituted constant variable: r2456926821 
o|replaced variables: 44 
o|removed binding forms: 29 
o|removed conditional forms: 12 
o|replaced variables: 1 
o|removed binding forms: 65 
o|removed binding forms: 1 
o|simplifications: ((if . 115) (##core#call . 1941) (let . 97)) 
o|  call simplifications:
o|    chicken.base#void
o|    scheme#boolean?
o|    scheme#char?
o|    scheme#eof-object?
o|    chicken.base#bwp-object?
o|    chicken.base#fixnum?	2
o|    chicken.fixnum#fx>	2
o|    chicken.fixnum#fxmax	2
o|    chicken.fixnum#fx*	2
o|    scheme#=	5
o|    scheme#set-cdr!
o|    scheme#-	7
o|    ##sys#make-structure	2
o|    ##sys#check-structure	22
o|    ##sys#block-ref	22
o|    scheme#member	3
o|    chicken.fixnum#fx<=
o|    chicken.fixnum#fx-	6
o|    scheme#call-with-current-continuation
o|    chicken.fixnum#fx>=	2
o|    scheme#number?	3
o|    scheme#<
o|    scheme#>	3
o|    scheme#cddddr	3
o|    scheme#vector	2
o|    scheme#string?	5
o|    scheme#equal?
o|    scheme#set-car!	3
o|    scheme#list-ref	2
o|    scheme#cddr	20
o|    scheme#assoc
o|    scheme#list	112
o|    scheme#cdddr	11
o|    ##sys#cons	37
o|    scheme#cadddr	12
o|    scheme#assq	17
o|    scheme#cdr	31
o|    scheme#caddr	42
o|    ##sys#list	110
o|    scheme#list?	10
o|    scheme#cadr	105
o|    ##sys#call-with-values	8
o|    ##sys#apply	4
o|    scheme#caar	2
o|    scheme#symbol?	17
o|    scheme#length	19
o|    scheme#+	24
o|    scheme#values	3
o|    chicken.fixnum#fx+	9
o|    scheme#eq?	334
o|    scheme#memq	23
o|    ##sys#setslot	41
o|    ##sys#check-list	77
o|    scheme#pair?	117
o|    ##sys#slot	211
o|    scheme#cons	163
o|    scheme#null?	47
o|    scheme#car	154
o|    scheme#not	72
o|contracted procedure: k7128 
o|contracted procedure: k7137 
o|contracted procedure: k7150 
o|contracted procedure: k7165 
o|contracted procedure: k7180 
o|contracted procedure: k7195 
o|contracted procedure: k7206 
o|contracted procedure: k7223 
o|contracted procedure: k7230 
o|contracted procedure: k7251 
o|contracted procedure: k7277 
o|contracted procedure: k7362 
o|contracted procedure: k7374 
o|contracted procedure: k7392 
o|contracted procedure: k7400 
o|contracted procedure: k7471 
o|contracted procedure: k7479 
o|contracted procedure: k7491 
o|contracted procedure: k7513 
o|contracted procedure: k7509 
o|contracted procedure: k7494 
o|contracted procedure: k7497 
o|contracted procedure: k7505 
o|contracted procedure: k7590 
o|contracted procedure: k7616 
o|contracted procedure: k7596 
o|contracted procedure: k7610 
o|contracted procedure: k7646 
o|contracted procedure: k7653 
o|contracted procedure: k7661 
o|contracted procedure: k7634 
o|contracted procedure: k7725 
o|contracted procedure: k7732 
o|contracted procedure: k7740 
o|contracted procedure: k7686 
o|contracted procedure: k7698 
o|contracted procedure: k7705 
o|contracted procedure: k7713 
o|contracted procedure: k7709 
o|contracted procedure: k7974 
o|contracted procedure: k7993 
o|contracted procedure: k7980 
o|contracted procedure: k7987 
o|contracted procedure: k8157 
o|contracted procedure: k8160 
o|contracted procedure: k8166 
o|contracted procedure: k8170 
o|contracted procedure: k8176 
o|contracted procedure: k8180 
o|contracted procedure: k8186 
o|contracted procedure: k8190 
o|contracted procedure: k8202 
o|contracted procedure: k8210 
o|contracted procedure: k8206 
o|contracted procedure: k8221 
o|contracted procedure: k8233 
o|contracted procedure: k8243 
o|contracted procedure: k8247 
o|contracted procedure: k8259 
o|contracted procedure: k8285 
o|contracted procedure: k8275 
o|contracted procedure: k8359 
o|contracted procedure: k8340 
o|contracted procedure: k8399 
o|contracted procedure: k8402 
o|contracted procedure: k8439 
o|contracted procedure: k8414 
o|contracted procedure: k8424 
o|contracted procedure: k8428 
o|contracted procedure: k8432 
o|contracted procedure: k8436 
o|contracted procedure: k8469 
o|contracted procedure: k8475 
o|contracted procedure: k8494 
o|contracted procedure: k8481 
o|contracted procedure: k8463 
o|contracted procedure: k8685 
o|contracted procedure: k8515 
o|contracted procedure: k8546 
o|contracted procedure: k8554 
o|contracted procedure: k8579 
o|contracted procedure: k8575 
o|contracted procedure: k8560 
o|contracted procedure: k8585 
o|contracted procedure: k8593 
o|contracted procedure: k8614 
o|contracted procedure: k8618 
o|contracted procedure: k8599 
o|contracted procedure: k8681 
o|contracted procedure: k8627 
o|contracted procedure: k8634 
o|contracted procedure: k8637 
o|contracted procedure: k8645 
o|contracted procedure: k8688 
o|contracted procedure: k8815 
o|contracted procedure: k8819 
o|contracted procedure: k8865 
o|contracted procedure: k8847 
o|contracted procedure: k8858 
o|contracted procedure: k8883 
o|contracted procedure: k14077 
o|contracted procedure: k8892 
o|contracted procedure: k14073 
o|contracted procedure: k8910 
o|contracted procedure: k8916 
o|contracted procedure: k13988 
o|contracted procedure: k8935 
o|contracted procedure: k13984 
o|contracted procedure: k8944 
o|contracted procedure: k8991 
o|contracted procedure: k8987 
o|contracted procedure: k9000 
o|contracted procedure: k9029 
o|contracted procedure: k9018 
o|contracted procedure: k9025 
o|contracted procedure: k9033 
o|contracted procedure: k9037 
o|contracted procedure: k9043 
o|contracted procedure: k9046 
o|contracted procedure: k9057 
o|contracted procedure: k9063 
o|contracted procedure: k9073 
o|contracted procedure: k9079 
o|contracted procedure: k9090 
o|contracted procedure: k9098 
o|contracted procedure: k9102 
o|contracted procedure: k9108 
o|contracted procedure: k9114 
o|contracted procedure: k9128 
o|contracted procedure: k9149 
o|contracted procedure: k9165 
o|contracted procedure: k9169 
o|contracted procedure: k9175 
o|contracted procedure: k9186 
o|contracted procedure: k9198 
o|contracted procedure: k9215 
o|contracted procedure: k9219 
o|contracted procedure: k9222 
o|contracted procedure: k9225 
o|contracted procedure: k9190 
o|contracted procedure: k9182 
o|contracted procedure: k9237 
o|contracted procedure: k9240 
o|contracted procedure: k9243 
o|contracted procedure: k9251 
o|contracted procedure: k9259 
o|contracted procedure: k9266 
o|contracted procedure: k9275 
o|contracted procedure: k9281 
o|contracted procedure: k735626870 
o|contracted procedure: k9294 
o|propagated global variable: z39426867 chicken.compiler.core#immutable-constants 
o|contracted procedure: k9306 
o|contracted procedure: k9315 
o|contracted procedure: k9318 
o|contracted procedure: k9331 
o|contracted procedure: k9338 
o|contracted procedure: k9356 
o|contracted procedure: k9371 
o|contracted procedure: k9375 
o|contracted procedure: k9381 
o|contracted procedure: k9388 
o|contracted procedure: k9394 
o|contracted procedure: k9397 
o|contracted procedure: k9430 
o|contracted procedure: k9400 
o|contracted procedure: k9417 
o|contracted procedure: k9420 
o|contracted procedure: k9442 
o|contracted procedure: k9445 
o|contracted procedure: k9451 
o|contracted procedure: k9454 
o|contracted procedure: k9466 
o|contracted procedure: k9476 
o|contracted procedure: k9489 
o|contracted procedure: k9494 
o|contracted procedure: k9497 
o|contracted procedure: k9539 
o|contracted procedure: k9594 
o|contracted procedure: k9558 
o|contracted procedure: k9561 
o|contracted procedure: k9564 
o|contracted procedure: k9572 
o|contracted procedure: k9576 
o|contracted procedure: k9584 
o|contracted procedure: k9588 
o|contracted procedure: k9610 
o|contracted procedure: k9613 
o|contracted procedure: k9616 
o|contracted procedure: k9624 
o|contracted procedure: k9632 
o|contracted procedure: k9641 
o|contracted procedure: k9644 
o|contracted procedure: k9661 
o|contracted procedure: k9673 
o|contracted procedure: k9657 
o|contracted procedure: k9653 
o|contracted procedure: k9684 
o|contracted procedure: k9712 
o|contracted procedure: k9708 
o|contracted procedure: k9704 
o|contracted procedure: k9721 
o|contracted procedure: k9743 
o|contracted procedure: k9693 
o|contracted procedure: k9697 
o|contracted procedure: k9739 
o|contracted procedure: k9724 
o|contracted procedure: k9727 
o|contracted procedure: k9735 
o|contracted procedure: k9755 
o|contracted procedure: k9777 
o|contracted procedure: k9670 
o|contracted procedure: k9773 
o|contracted procedure: k9758 
o|contracted procedure: k9761 
o|contracted procedure: k9769 
o|contracted procedure: k9786 
o|contracted procedure: k9789 
o|contracted procedure: k9795 
o|contracted procedure: k9798 
o|contracted procedure: k9804 
o|contracted procedure: k9815 
o|contracted procedure: k9827 
o|contracted procedure: k9842 
o|contracted procedure: k9855 
o|contracted procedure: k9851 
o|contracted procedure: k9858 
o|contracted procedure: k9838 
o|contracted procedure: k9834 
o|contracted procedure: k9811 
o|contracted procedure: k9869 
o|contracted procedure: k9889 
o|contracted procedure: k9885 
o|contracted procedure: k9881 
o|contracted procedure: k9934 
o|contracted procedure: k9898 
o|contracted procedure: k9924 
o|contracted procedure: k9928 
o|contracted procedure: k9920 
o|contracted procedure: k9901 
o|contracted procedure: k9904 
o|contracted procedure: k9912 
o|contracted procedure: k9916 
o|contracted procedure: k9982 
o|contracted procedure: k9946 
o|contracted procedure: k9949 
o|contracted procedure: k9952 
o|contracted procedure: k9960 
o|contracted procedure: k9964 
o|contracted procedure: k9972 
o|contracted procedure: k9976 
o|contracted procedure: k9994 
o|contracted procedure: k10016 
o|contracted procedure: k9824 
o|contracted procedure: k10012 
o|contracted procedure: k9997 
o|contracted procedure: k10000 
o|contracted procedure: k10008 
o|contracted procedure: k10028 
o|contracted procedure: k10031 
o|contracted procedure: k10034 
o|contracted procedure: k10042 
o|contracted procedure: k10050 
o|contracted procedure: k10059 
o|contracted procedure: k10062 
o|contracted procedure: k10065 
o|contracted procedure: k10079 
o|contracted procedure: k10103 
o|contracted procedure: k10117 
o|contracted procedure: k10120 
o|contracted procedure: k10123 
o|contracted procedure: k10131 
o|contracted procedure: k10139 
o|contracted procedure: k10148 
o|contracted procedure: k10151 
o|contracted procedure: k10165 
o|contracted procedure: k10168 
o|contracted procedure: k10177 
o|contracted procedure: k10189 
o|contracted procedure: k10198 
o|contracted procedure: k10217 
o|contracted procedure: k10223 
o|contracted procedure: k10232 
o|contracted procedure: k10249 
o|contracted procedure: k10312 
o|contracted procedure: k10308 
o|contracted procedure: k10340 
o|contracted procedure: k10343 
o|contracted procedure: k10346 
o|contracted procedure: k10354 
o|contracted procedure: k10362 
o|contracted procedure: k10392 
o|contracted procedure: k10424 
o|contracted procedure: k10435 
o|contracted procedure: k10449 
o|contracted procedure: k10479 
o|contracted procedure: k10482 
o|contracted procedure: k10498 
o|contracted procedure: k10520 
o|contracted procedure: k10458 
o|contracted procedure: k10516 
o|contracted procedure: k10501 
o|contracted procedure: k10504 
o|contracted procedure: k10512 
o|contracted procedure: k10476 
o|contracted procedure: k10529 
o|contracted procedure: k10532 
o|contracted procedure: k10558 
o|contracted procedure: k10561 
o|contracted procedure: k10573 
o|contracted procedure: k10582 
o|contracted procedure: k10585 
o|contracted procedure: k10622 
o|contracted procedure: k10641 
o|contracted procedure: k10651 
o|contracted procedure: k10655 
o|contracted procedure: k10668 
o|contracted procedure: k10690 
o|contracted procedure: k10541 
o|contracted procedure: k10686 
o|contracted procedure: k10671 
o|contracted procedure: k10674 
o|contracted procedure: k10682 
o|contracted procedure: k10555 
o|contracted procedure: k10699 
o|contracted procedure: k10734 
o|contracted procedure: k10738 
o|contracted procedure: k10727 
o|contracted procedure: k10753 
o|contracted procedure: k10760 
o|contracted procedure: k10785 
o|contracted procedure: k10776 
o|contracted procedure: k10802 
o|contracted procedure: k10798 
o|contracted procedure: k10791 
o|contracted procedure: k10808 
o|contracted procedure: k10811 
o|contracted procedure: k10814 
o|contracted procedure: k10837 
o|contracted procedure: k10841 
o|contracted procedure: k10860 
o|contracted procedure: k10852 
o|contracted procedure: k10856 
o|contracted procedure: k10845 
o|inlining procedure: k10830 
o|contracted procedure: k10864 
o|contracted procedure: k735626905 
o|contracted procedure: k10883 
o|contracted procedure: k10893 
o|contracted procedure: k10896 
o|contracted procedure: k10918 
o|contracted procedure: k10939 
o|contracted procedure: k10945 
o|contracted procedure: k10948 
o|contracted procedure: k10951 
o|contracted procedure: k10960 
o|contracted procedure: k10982 
o|contracted procedure: k10994 
o|contracted procedure: k11004 
o|contracted procedure: k11008 
o|contracted procedure: k10975 
o|contracted procedure: k10979 
o|contracted procedure: k11022 
o|contracted procedure: k11041 
o|contracted procedure: k11053 
o|contracted procedure: k11063 
o|contracted procedure: k11067 
o|contracted procedure: k11034 
o|contracted procedure: k11038 
o|contracted procedure: k11076 
o|contracted procedure: k11079 
o|contracted procedure: k11082 
o|contracted procedure: k11090 
o|contracted procedure: k11098 
o|contracted procedure: k11107 
o|contracted procedure: k11116 
o|contracted procedure: k11125 
o|contracted procedure: k11132 
o|contracted procedure: k11143 
o|contracted procedure: k11146 
o|contracted procedure: k11163 
o|contracted procedure: k11159 
o|contracted procedure: k11172 
o|contracted procedure: k11175 
o|contracted procedure: k11178 
o|contracted procedure: k11186 
o|contracted procedure: k11194 
o|contracted procedure: k11203 
o|contracted procedure: k11209 
o|contracted procedure: k11212 
o|contracted procedure: k11381 
o|contracted procedure: k11244 
o|contracted procedure: k11251 
o|contracted procedure: k11299 
o|contracted procedure: k11310 
o|contracted procedure: k11322 
o|contracted procedure: k11325 
o|contracted procedure: k11328 
o|contracted procedure: k11336 
o|contracted procedure: k11344 
o|contracted procedure: k11374 
o|contracted procedure: k11394 
o|contracted procedure: k8788 
o|contracted procedure: k8728 
o|contracted procedure: k8749 
o|contracted procedure: k8764 
o|contracted procedure: k8774 
o|contracted procedure: k8778 
o|contracted procedure: k11407 
o|contracted procedure: k11420 
o|contracted procedure: k11495 
o|contracted procedure: k11504 
o|contracted procedure: k11551 
o|contracted procedure: k11594 
o|contracted procedure: k11598 
o|contracted procedure: k11749 
o|contracted procedure: k11645 
o|contracted procedure: k11651 
o|contracted procedure: k11659 
o|contracted procedure: k11671 
o|contracted procedure: k11680 
o|contracted procedure: k11698 
o|contracted procedure: k11689 
o|contracted procedure: k11704 
o|contracted procedure: k11716 
o|contracted procedure: k11719 
o|contracted procedure: k11722 
o|contracted procedure: k11730 
o|contracted procedure: k11738 
o|contracted procedure: k11752 
o|contracted procedure: k11762 
o|contracted procedure: k11768 
o|contracted procedure: k11771 
o|contracted procedure: k11776 
o|contracted procedure: k11779 
o|contracted procedure: k11791 
o|contracted procedure: k11854 
o|contracted procedure: k11857 
o|contracted procedure: k11860 
o|contracted procedure: k11868 
o|contracted procedure: k11876 
o|contracted procedure: k11885 
o|contracted procedure: k11888 
o|contracted procedure: k11931 
o|contracted procedure: k11934 
o|contracted procedure: k11943 
o|contracted procedure: k11949 
o|contracted procedure: k11957 
o|contracted procedure: k11991 
o|contracted procedure: k11971 
o|contracted procedure: k11987 
o|contracted procedure: k11979 
o|contracted procedure: k11975 
o|contracted procedure: k11967 
o|contracted procedure: k12001 
o|contracted procedure: k12009 
o|contracted procedure: k12043 
o|contracted procedure: k12023 
o|contracted procedure: k12031 
o|contracted procedure: k12035 
o|contracted procedure: k12027 
o|contracted procedure: k12019 
o|contracted procedure: k12064 
o|contracted procedure: k12067 
o|contracted procedure: k12149 
o|contracted procedure: k12228 
o|contracted procedure: k12224 
o|contracted procedure: k12216 
o|contracted procedure: k12212 
o|contracted procedure: k12208 
o|contracted procedure: k12237 
o|contracted procedure: k12290 
o|contracted procedure: k12301 
o|contracted procedure: k12309 
o|contracted procedure: k12323 
o|contracted procedure: k12305 
o|contracted procedure: k12297 
o|contracted procedure: k12335 
o|contracted procedure: k12338 
o|contracted procedure: k12341 
o|contracted procedure: k12349 
o|contracted procedure: k12357 
o|contracted procedure: k12366 
o|contracted procedure: k12373 
o|contracted procedure: k12385 
o|contracted procedure: k12389 
o|contracted procedure: k12395 
o|contracted procedure: k12406 
o|contracted procedure: k12409 
o|contracted procedure: k12412 
o|contracted procedure: k12402 
o|contracted procedure: k12423 
o|contracted procedure: k12432 
o|contracted procedure: k12435 
o|contracted procedure: k12438 
o|contracted procedure: k12446 
o|contracted procedure: k12454 
o|contracted procedure: k12463 
o|contracted procedure: k12470 
o|contracted procedure: k12478 
o|contracted procedure: k12484 
o|contracted procedure: k12491 
o|contracted procedure: k12503 
o|contracted procedure: k12507 
o|contracted procedure: k12513 
o|contracted procedure: k12516 
o|contracted procedure: k12519 
o|contracted procedure: k12531 
o|contracted procedure: k12534 
o|contracted procedure: k12541 
o|contracted procedure: k12547 
o|contracted procedure: k12553 
o|contracted procedure: k12568 
o|contracted procedure: k12575 
o|contracted procedure: k12601 
o|contracted procedure: k12614 
o|contracted procedure: k12627 
o|contracted procedure: k12640 
o|contracted procedure: k12653 
o|contracted procedure: k16815 
o|contracted procedure: k16824 
o|contracted procedure: k16832 
o|contracted procedure: k16838 
o|contracted procedure: k16844 
o|contracted procedure: k16859 
o|contracted procedure: k16881 
o|contracted procedure: k16877 
o|contracted procedure: k16862 
o|contracted procedure: k16865 
o|contracted procedure: k16873 
o|contracted procedure: k16893 
o|contracted procedure: k16915 
o|contracted procedure: k16911 
o|contracted procedure: k16896 
o|contracted procedure: k16899 
o|contracted procedure: k16907 
o|contracted procedure: k16922 
o|contracted procedure: k16932 
o|contracted procedure: k16959 
o|contracted procedure: k16944 
o|contracted procedure: k16955 
o|contracted procedure: k16951 
o|contracted procedure: k12666 
o|contracted procedure: k12683 
o|contracted procedure: k12679 
o|contracted procedure: k12696 
o|contracted procedure: k12686 
o|contracted procedure: k12700 
o|contracted procedure: k12704 
o|contracted procedure: k12710 
o|contracted procedure: k12713 
o|contracted procedure: k12719 
o|contracted procedure: k12728 
o|contracted procedure: k12786 
o|contracted procedure: k12766 
o|contracted procedure: k12762 
o|contracted procedure: k12777 
o|contracted procedure: k12774 
o|contracted procedure: k12826 
o|contracted procedure: k12832 
o|contracted procedure: k12835 
o|contracted procedure: k12844 
o|contracted procedure: k12847 
o|contracted procedure: k12880 
o|contracted procedure: k12860 
o|contracted procedure: k12872 
o|contracted procedure: k12864 
o|contracted procedure: k735626944 
o|contracted procedure: k12868 
o|propagated global variable: z39426941 chicken.compiler.core#external-to-pointer 
o|contracted procedure: k731126949 
o|contracted procedure: k12888 
o|contracted procedure: k12919 
o|contracted procedure: k12922 
o|contracted procedure: k13066 
o|contracted procedure: k13059 
o|contracted procedure: k12934 
o|contracted procedure: k13056 
o|contracted procedure: k12941 
o|contracted procedure: k735626961 
o|contracted procedure: k12944 
o|contracted procedure: k13034 
o|contracted procedure: k13026 
o|contracted procedure: k13030 
o|contracted procedure: k13022 
o|contracted procedure: k13018 
o|contracted procedure: k12978 
o|contracted procedure: k12982 
o|contracted procedure: k12974 
o|contracted procedure: k12994 
o|contracted procedure: k731126954 
o|contracted procedure: k13011 
o|contracted procedure: k13070 
o|contracted procedure: k13076 
o|contracted procedure: k13079 
o|contracted procedure: k13082 
o|contracted procedure: k13126 
o|contracted procedure: k13129 
o|contracted procedure: k13135 
o|contracted procedure: k13226 
o|contracted procedure: k13222 
o|contracted procedure: k13148 
o|contracted procedure: k13161 
o|contracted procedure: k13193 
o|contracted procedure: k13189 
o|contracted procedure: k13291 
o|contracted procedure: k13301 
o|contracted procedure: k13294 
o|contracted procedure: k13319 
o|contracted procedure: k13330 
o|contracted procedure: k14203 
o|contracted procedure: k14174 
o|contracted procedure: k14180 
o|contracted procedure: k14196 
o|inlining procedure: k14183 
o|contracted procedure: k14193 
o|inlining procedure: k14183 
o|contracted procedure: k7406 
o|contracted procedure: k7418 
o|contracted procedure: k7441 
o|contracted procedure: k7449 
o|removed unused formal parameters: (return2720) 
o|contracted procedure: k14271 
o|contracted procedure: k14290 
o|contracted procedure: k14314 
o|contracted procedure: k14318 
o|contracted procedure: k14324 
o|contracted procedure: k14330 
o|contracted procedure: k14349 
o|contracted procedure: k14355 
o|contracted procedure: k14374 
o|contracted procedure: k14380 
o|contracted procedure: k14403 
o|contracted procedure: k14414 
o|contracted procedure: k14420 
o|contracted procedure: k14423 
o|contracted procedure: k14430 
o|contracted procedure: k14437 
o|contracted procedure: k14444 
o|contracted procedure: k14451 
o|contracted procedure: k14458 
o|contracted procedure: k14465 
o|contracted procedure: k14472 
o|contracted procedure: k14479 
o|contracted procedure: k14488 
o|contracted procedure: k14500 
o|contracted procedure: k14510 
o|contracted procedure: k14514 
o|contracted procedure: k14520 
o|contracted procedure: k14527 
o|contracted procedure: k14538 
o|contracted procedure: k14552 
o|contracted procedure: k14564 
o|contracted procedure: k14574 
o|contracted procedure: k14578 
o|contracted procedure: k14587 
o|contracted procedure: k14597 
o|contracted procedure: k14601 
o|contracted procedure: k14607 
o|contracted procedure: k14614 
o|contracted procedure: k14625 
o|contracted procedure: k14645 
o|contracted procedure: k14655 
o|contracted procedure: k14659 
o|contracted procedure: k14668 
o|contracted procedure: k14678 
o|contracted procedure: k14682 
o|contracted procedure: k14690 
o|contracted procedure: k14710 
o|contracted procedure: k14717 
o|contracted procedure: k14724 
o|contracted procedure: k14731 
o|contracted procedure: k14742 
o|contracted procedure: k14754 
o|contracted procedure: k14764 
o|contracted procedure: k14768 
o|contracted procedure: k14776 
o|contracted procedure: k14787 
o|contracted procedure: k14799 
o|contracted procedure: k14809 
o|contracted procedure: k14813 
o|contracted procedure: k14821 
o|contracted procedure: k14833 
o|contracted procedure: k14855 
o|contracted procedure: k14839 
o|contracted procedure: k14861 
o|contracted procedure: k14883 
o|contracted procedure: k14867 
o|contracted procedure: k14889 
o|contracted procedure: k14940 
o|contracted procedure: k14895 
o|contracted procedure: k14907 
o|contracted procedure: k14919 
o|contracted procedure: k14929 
o|contracted procedure: k14933 
o|contracted procedure: k14946 
o|contracted procedure: k14972 
o|contracted procedure: k14952 
o|contracted procedure: k14978 
o|contracted procedure: k15029 
o|contracted procedure: k14985 
o|contracted procedure: k14996 
o|contracted procedure: k15008 
o|contracted procedure: k15018 
o|contracted procedure: k15022 
o|contracted procedure: k15041 
o|contracted procedure: k15051 
o|contracted procedure: k15065 
o|contracted procedure: k15071 
o|contracted procedure: k15078 
o|contracted procedure: k15081 
o|contracted procedure: k15090 
o|contracted procedure: k15094 
o|contracted procedure: k15106 
o|contracted procedure: k15116 
o|contracted procedure: k15120 
o|contracted procedure: k15128 
o|contracted procedure: k15135 
o|contracted procedure: k15147 
o|contracted procedure: k15157 
o|contracted procedure: k15161 
o|contracted procedure: k15169 
o|contracted procedure: k15176 
o|contracted procedure: k15182 
o|contracted procedure: k15194 
o|contracted procedure: k15206 
o|contracted procedure: k15216 
o|contracted procedure: k15220 
o|contracted procedure: k15230 
o|contracted procedure: k15236 
o|contracted procedure: k15242 
o|contracted procedure: k15252 
o|contracted procedure: k15258 
o|contracted procedure: k15264 
o|contracted procedure: k15274 
o|contracted procedure: k15294 
o|contracted procedure: k15306 
o|contracted procedure: k15316 
o|contracted procedure: k15320 
o|contracted procedure: k15331 
o|contracted procedure: k15339 
o|contracted procedure: k15414 
o|contracted procedure: k15426 
o|contracted procedure: k15429 
o|contracted procedure: k15432 
o|contracted procedure: k15440 
o|contracted procedure: k15448 
o|contracted procedure: k15347 
o|contracted procedure: k15372 
o|contracted procedure: k15376 
o|contracted procedure: k15382 
o|contracted procedure: k15388 
o|contracted procedure: k15405 
o|contracted procedure: k15394 
o|contracted procedure: k15401 
o|contracted procedure: k15459 
o|contracted procedure: k15466 
o|contracted procedure: k15496 
o|contracted procedure: k15481 
o|contracted procedure: k15487 
o|contracted procedure: k15504 
o|contracted procedure: k15511 
o|contracted procedure: k15524 
o|contracted procedure: k15536 
o|contracted procedure: k15546 
o|contracted procedure: k15550 
o|contracted procedure: k15560 
o|contracted procedure: k15566 
o|contracted procedure: k15578 
o|contracted procedure: k15590 
o|contracted procedure: k15600 
o|contracted procedure: k15604 
o|contracted procedure: k15614 
o|contracted procedure: k15622 
o|contracted procedure: k15633 
o|contracted procedure: k15645 
o|contracted procedure: k15655 
o|contracted procedure: k15659 
o|contracted procedure: k15669 
o|contracted procedure: k15751 
o|contracted procedure: k15737 
o|contracted procedure: k15767 
o|contracted procedure: k15770 
o|contracted procedure: k15776 
o|contracted procedure: k15783 
o|contracted procedure: k15798 
o|contracted procedure: k15802 
o|contracted procedure: k15809 
o|contracted procedure: k15815 
o|contracted procedure: k15822 
o|contracted procedure: k15806 
o|contracted procedure: k15829 
o|contracted procedure: k15841 
o|contracted procedure: k15851 
o|contracted procedure: k15855 
o|contracted procedure: k15861 
o|contracted procedure: k15904 
o|contracted procedure: k15919 
o|contracted procedure: k15923 
o|contracted procedure: k15929 
o|contracted procedure: k15947 
o|contracted procedure: k15935 
o|contracted procedure: k15943 
o|contracted procedure: k15951 
o|contracted procedure: k15963 
o|contracted procedure: k15973 
o|contracted procedure: k15977 
o|contracted procedure: k15983 
o|contracted procedure: k15990 
o|contracted procedure: k16094 
o|contracted procedure: k16097 
o|removed unused parameter to known procedure: return2720 a14259 
o|contracted procedure: k13349 
o|contracted procedure: k13326 
o|contracted procedure: k13361 
o|contracted procedure: k13364 
o|contracted procedure: k13367 
o|contracted procedure: k13375 
o|contracted procedure: k13383 
o|contracted procedure: k13392 
o|contracted procedure: k13405 
o|contracted procedure: k6922 
o|contracted procedure: k6936 
o|contracted procedure: k6946 
o|contracted procedure: k6940 
o|contracted procedure: k13411 
o|contracted procedure: k13697 
o|contracted procedure: k13414 
o|contracted procedure: k13693 
o|contracted procedure: k13420 
o|contracted procedure: k13689 
o|contracted procedure: k13423 
o|contracted procedure: k13426 
o|contracted procedure: k13447 
o|contracted procedure: k13459 
o|contracted procedure: k13455 
o|contracted procedure: k13475 
o|contracted procedure: k13471 
o|contracted procedure: k13482 
o|contracted procedure: k13505 
o|contracted procedure: k13501 
o|contracted procedure: k13493 
o|contracted procedure: k13497 
o|contracted procedure: k13489 
o|contracted procedure: k13511 
o|contracted procedure: k13520 
o|contracted procedure: k13563 
o|contracted procedure: k13559 
o|contracted procedure: k13555 
o|contracted procedure: k13551 
o|contracted procedure: k13531 
o|contracted procedure: k13547 
o|contracted procedure: k13543 
o|contracted procedure: k13535 
o|contracted procedure: k13527 
o|contracted procedure: k13575 
o|contracted procedure: k13578 
o|contracted procedure: k13581 
o|contracted procedure: k13588 
o|contracted procedure: k13646 
o|contracted procedure: k13611 
o|contracted procedure: k13642 
o|contracted procedure: k13620 
o|contracted procedure: k13634 
o|contracted procedure: k13638 
o|contracted procedure: k13630 
o|contracted procedure: k13614 
o|contracted procedure: k13657 
o|contracted procedure: k13653 
o|contracted procedure: k13703 
o|contracted procedure: k13706 
o|contracted procedure: k13712 
o|contracted procedure: k13715 
o|contracted procedure: k13731 
o|contracted procedure: k13735 
o|contracted procedure: k13727 
o|contracted procedure: k13741 
o|contracted procedure: k13753 
o|contracted procedure: k13762 
o|contracted procedure: k13769 
o|contracted procedure: k13784 
o|contracted procedure: k13780 
o|contracted procedure: k13799 
o|contracted procedure: k13795 
o|contracted procedure: k13802 
o|contracted procedure: k13808 
o|contracted procedure: k13821 
o|contracted procedure: k13829 
o|contracted procedure: k735627032 
o|contracted procedure: k735627039 
o|contracted procedure: k13949 
o|contracted procedure: k14069 
o|contracted procedure: k14016 
o|contracted procedure: k14061 
o|contracted procedure: k14051 
o|contracted procedure: k14055 
o|contracted procedure: k14047 
o|contracted procedure: k14083 
o|contracted procedure: k14091 
o|contracted procedure: k14103 
o|contracted procedure: k14106 
o|contracted procedure: k14109 
o|contracted procedure: k14117 
o|contracted procedure: k14125 
o|contracted procedure: k14138 
o|contracted procedure: k14151 
o|contracted procedure: k14159 
o|contracted procedure: k16110 
o|contracted procedure: k16138 
o|contracted procedure: k16156 
o|contracted procedure: k16174 
o|contracted procedure: k16192 
o|contracted procedure: k16210 
o|contracted procedure: k16228 
o|contracted procedure: k16246 
o|contracted procedure: k16264 
o|contracted procedure: k16554 
o|contracted procedure: k16378 
o|contracted procedure: k16381 
o|contracted procedure: k16387 
o|contracted procedure: k16399 
o|contracted procedure: k16402 
o|contracted procedure: k16412 
o|contracted procedure: k16420 
o|contracted procedure: k16424 
o|contracted procedure: k16440 
o|contracted procedure: k16489 
o|contracted procedure: k16481 
o|contracted procedure: k16485 
o|contracted procedure: k16477 
o|contracted procedure: k16473 
o|contracted procedure: k16453 
o|contracted procedure: k16469 
o|contracted procedure: k16534 
o|contracted procedure: k16498 
o|contracted procedure: k16501 
o|contracted procedure: k16504 
o|contracted procedure: k16512 
o|contracted procedure: k16516 
o|contracted procedure: k16524 
o|contracted procedure: k16528 
o|contracted procedure: k16544 
o|contracted procedure: k16564 
o|contracted procedure: k16567 
o|contracted procedure: k16579 
o|contracted procedure: k16582 
o|contracted procedure: k16585 
o|contracted procedure: k16593 
o|contracted procedure: k16601 
o|contracted procedure: k16607 
o|contracted procedure: k16619 
o|contracted procedure: k16631 
o|contracted procedure: k16634 
o|contracted procedure: k16637 
o|contracted procedure: k16645 
o|contracted procedure: k16653 
o|contracted procedure: k16285 
o|contracted procedure: k16291 
o|contracted procedure: k16294 
o|contracted procedure: k16300 
o|contracted procedure: k16319 
o|contracted procedure: k16322 
o|contracted procedure: k16347 
o|contracted procedure: k16350 
o|contracted procedure: k16662 
o|contracted procedure: k16668 
o|contracted procedure: k16671 
o|contracted procedure: k16677 
o|contracted procedure: k16690 
o|contracted procedure: k16699 
o|contracted procedure: k16702 
o|contracted procedure: k16708 
o|contracted procedure: k16716 
o|contracted procedure: k16722 
o|contracted procedure: k16728 
o|contracted procedure: k16743 
o|contracted procedure: k16765 
o|contracted procedure: k16761 
o|contracted procedure: k16746 
o|contracted procedure: k16749 
o|contracted procedure: k16757 
o|contracted procedure: k16777 
o|contracted procedure: k16799 
o|contracted procedure: k16795 
o|contracted procedure: k16780 
o|contracted procedure: k16783 
o|contracted procedure: k16791 
o|contracted procedure: k16806 
o|contracted procedure: k17013 
o|contracted procedure: k16979 
o|contracted procedure: k16983 
o|contracted procedure: k16991 
o|contracted procedure: k17001 
o|contracted procedure: k17005 
o|contracted procedure: k17022 
o|contracted procedure: k17029 
o|contracted procedure: k17058 
o|contracted procedure: k17070 
o|contracted procedure: k17085 
o|contracted procedure: k17089 
o|contracted procedure: k17100 
o|contracted procedure: k17104 
o|contracted procedure: k17116 
o|contracted procedure: k17126 
o|contracted procedure: k17138 
o|contracted procedure: k17142 
o|contracted procedure: k17171 
o|contracted procedure: k17146 
o|contracted procedure: k17150 
o|contracted procedure: k17177 
o|contracted procedure: k17189 
o|contracted procedure: k17196 
o|contracted procedure: k17203 
o|contracted procedure: k17221 
o|contracted procedure: k17228 
o|contracted procedure: k17232 
o|contracted procedure: k17242 
o|contracted procedure: k17248 
o|contracted procedure: k17254 
o|contracted procedure: k17257 
o|contracted procedure: k17273 
o|contracted procedure: k17279 
o|contracted procedure: k17339 
o|contracted procedure: k17332 
o|contracted procedure: k17285 
o|contracted procedure: k17329 
o|contracted procedure: k17288 
o|contracted procedure: k17295 
o|contracted procedure: k17305 
o|contracted procedure: k17309 
o|contracted procedure: k17325 
o|contracted procedure: k17345 
o|contracted procedure: k17356 
o|contracted procedure: k17366 
o|contracted procedure: k17380 
o|contracted procedure: k17392 
o|contracted procedure: k17399 
o|contracted procedure: k17407 
o|contracted procedure: k17410 
o|contracted procedure: k17416 
o|contracted procedure: k17426 
o|contracted procedure: k17676 
o|contracted procedure: k17680 
o|contracted procedure: k17692 
o|contracted procedure: k17696 
o|contracted procedure: k17729 
o|contracted procedure: k17704 
o|contracted procedure: k17708 
o|contracted procedure: k17451 
o|contracted procedure: k17454 
o|contracted procedure: k17461 
o|contracted procedure: k17467 
o|contracted procedure: k7541 
o|contracted procedure: k7531 
o|contracted procedure: k17493 
o|contracted procedure: k17499 
o|contracted procedure: k17505 
o|contracted procedure: k17511 
o|contracted procedure: k17517 
o|contracted procedure: k17555 
o|contracted procedure: k17561 
o|contracted procedure: k17567 
o|contracted procedure: k17599 
o|contracted procedure: k17603 
o|contracted procedure: k17660 
o|contracted procedure: k17635 
o|contracted procedure: k17639 
o|contracted procedure: k17760 
o|contracted procedure: k17782 
o|contracted procedure: k17808 
o|contracted procedure: k17812 
o|contracted procedure: k17823 
o|contracted procedure: k17827 
o|contracted procedure: k17835 
o|contracted procedure: k17839 
o|contracted procedure: k17847 
o|contracted procedure: k20032 
o|contracted procedure: k17879 
o|contracted procedure: k17889 
o|contracted procedure: k17910 
o|contracted procedure: k17919 
o|contracted procedure: k17922 
o|contracted procedure: k17925 
o|contracted procedure: k17934 
o|contracted procedure: k17943 
o|contracted procedure: k17952 
o|contracted procedure: k17965 
o|contracted procedure: k17968 
o|contracted procedure: k17980 
o|contracted procedure: k17986 
o|contracted procedure: k18001 
o|contracted procedure: k18004 
o|contracted procedure: k18007 
o|contracted procedure: k18020 
o|contracted procedure: k18032 
o|contracted procedure: k18023 
o|contracted procedure: k18043 
o|contracted procedure: k18067 
o|contracted procedure: k18070 
o|contracted procedure: k18085 
o|contracted procedure: k18092 
o|contracted procedure: k18099 
o|contracted procedure: k18102 
o|contracted procedure: k18124 
o|contracted procedure: k18134 
o|contracted procedure: k18145 
o|contracted procedure: k18157 
o|contracted procedure: k18170 
o|contracted procedure: k18180 
o|contracted procedure: k18184 
o|contracted procedure: k18190 
o|contracted procedure: k18193 
o|contracted procedure: k18203 
o|contracted procedure: k18209 
o|contracted procedure: k18223 
o|contracted procedure: k18249 
o|contracted procedure: k18253 
o|contracted procedure: k18261 
o|contracted procedure: k18272 
o|contracted procedure: k18279 
o|contracted procedure: k18268 
o|contracted procedure: k18296 
o|contracted procedure: k18305 
o|contracted procedure: k18315 
o|contracted procedure: k18319 
o|contracted procedure: k18331 
o|contracted procedure: k18334 
o|contracted procedure: k18337 
o|contracted procedure: k18340 
o|contracted procedure: k18369 
o|contracted procedure: k18378 
o|contracted procedure: k18387 
o|contracted procedure: k18397 
o|contracted procedure: k18406 
o|contracted procedure: k18415 
o|contracted procedure: k18431 
o|contracted procedure: k18434 
o|contracted procedure: k18437 
o|contracted procedure: k18458 
o|contracted procedure: k18513 
o|contracted procedure: k18519 
o|contracted procedure: k18544 
o|contracted procedure: k18556 
o|contracted procedure: k18566 
o|contracted procedure: k18570 
o|contracted procedure: k18583 
o|contracted procedure: k18596 
o|contracted procedure: k18602 
o|contracted procedure: k18608 
o|contracted procedure: k18617 
o|contracted procedure: k18632 
o|contracted procedure: k18635 
o|contracted procedure: k18638 
o|contracted procedure: k18657 
o|contracted procedure: k18660 
o|contracted procedure: k18663 
o|contracted procedure: k18705 
o|contracted procedure: k18720 
o|contracted procedure: k18726 
o|contracted procedure: k18735 
o|contracted procedure: k18738 
o|contracted procedure: k18771 
o|contracted procedure: k18774 
o|contracted procedure: k18833 
o|contracted procedure: k18840 
o|contracted procedure: k18865 
o|contracted procedure: k18871 
o|contracted procedure: k18892 
o|contracted procedure: k18898 
o|contracted procedure: k18926 
o|contracted procedure: k735627085 
o|contracted procedure: k18922 
o|contracted procedure: k18951 
o|contracted procedure: k18956 
o|contracted procedure: k18962 
o|contracted procedure: k18969 
o|contracted procedure: k18975 
o|contracted procedure: k18981 
o|contracted procedure: k18988 
o|contracted procedure: k18996 
o|contracted procedure: k19002 
o|contracted procedure: k19008 
o|contracted procedure: k19015 
o|contracted procedure: k19022 
o|contracted procedure: k19029 
o|contracted procedure: k19036 
o|contracted procedure: k19044 
o|contracted procedure: k19052 
o|contracted procedure: k19081 
o|contracted procedure: k20005 
o|contracted procedure: k19088 
o|contracted procedure: k20002 
o|contracted procedure: k19092 
o|contracted procedure: k19110 
o|contracted procedure: k19119 
o|contracted procedure: k19252 
o|contracted procedure: k19143 
o|contracted procedure: k19146 
o|contracted procedure: k19149 
o|contracted procedure: k19226 
o|contracted procedure: k19164 
o|contracted procedure: k19167 
o|contracted procedure: k19170 
o|contracted procedure: k19179 
o|contracted procedure: k19192 
o|contracted procedure: k19198 
o|contracted procedure: k19205 
o|contracted procedure: k19209 
o|contracted procedure: k19229 
o|contracted procedure: k19235 
o|contracted procedure: k19262 
o|contracted procedure: k19268 
o|contracted procedure: k19271 
o|contracted procedure: k19286 
o|contracted procedure: k19298 
o|contracted procedure: k19301 
o|contracted procedure: k19322 
o|contracted procedure: k19349 
o|contracted procedure: k19355 
o|contracted procedure: k19370 
o|contracted procedure: k19373 
o|contracted procedure: k19376 
o|contracted procedure: k19410 
o|contracted procedure: k19431 
o|contracted procedure: k19440 
o|contracted procedure: k19449 
o|contracted procedure: k19469 
o|contracted procedure: k19455 
o|contracted procedure: k19465 
o|contracted procedure: k19474 
o|contracted procedure: k19485 
o|contracted procedure: k19608 
o|contracted procedure: k19495 
o|contracted procedure: k19504 
o|contracted procedure: k19511 
o|contracted procedure: k19530 
o|contracted procedure: k19543 
o|contracted procedure: k19565 
o|contracted procedure: k19579 
o|contracted procedure: k19591 
o|contracted procedure: k19601 
o|contracted procedure: k19605 
o|contracted procedure: k19618 
o|contracted procedure: k19637 
o|contracted procedure: k19647 
o|contracted procedure: k19656 
o|contracted procedure: k19697 
o|contracted procedure: k19703 
o|contracted procedure: k19713 
o|contracted procedure: k19748 
o|contracted procedure: k19716 
o|contracted procedure: k19764 
o|contracted procedure: k19804 
o|contracted procedure: k19785 
o|contracted procedure: k19807 
o|contracted procedure: k19895 
o|contracted procedure: k19901 
o|contracted procedure: k19907 
o|contracted procedure: k19913 
o|contracted procedure: k19935 
o|contracted procedure: k19949 
o|contracted procedure: k19956 
o|contracted procedure: k19967 
o|contracted procedure: k19979 
o|contracted procedure: k19989 
o|contracted procedure: k19993 
o|contracted procedure: k20014 
o|contracted procedure: k20024 
o|contracted procedure: k20028 
o|contracted procedure: k20098 
o|contracted procedure: k20110 
o|contracted procedure: k20120 
o|contracted procedure: k20124 
o|contracted procedure: k20145 
o|contracted procedure: k20155 
o|contracted procedure: k20159 
o|contracted procedure: k20174 
o|contracted procedure: k20228 
o|contracted procedure: k20231 
o|contracted procedure: k20234 
o|contracted procedure: k20240 
o|contracted procedure: k20249 
o|contracted procedure: k20258 
o|contracted procedure: k20267 
o|contracted procedure: k20282 
o|contracted procedure: k20286 
o|contracted procedure: k20290 
o|contracted procedure: k20300 
o|contracted procedure: k20293 
o|contracted procedure: k20306 
o|contracted procedure: k20309 
o|contracted procedure: k20318 
o|contracted procedure: k20325 
o|contracted procedure: k20331 
o|contracted procedure: k20334 
o|contracted procedure: k20337 
o|contracted procedure: k20580 
o|contracted procedure: k20573 
o|contracted procedure: k20340 
o|contracted procedure: k20343 
o|contracted procedure: k20353 
o|contracted procedure: k20361 
o|contracted procedure: k20373 
o|contracted procedure: k20376 
o|contracted procedure: k20379 
o|contracted procedure: k20387 
o|contracted procedure: k20395 
o|inlining procedure: k20402 
o|contracted procedure: k20409 
o|contracted procedure: k20419 
o|contracted procedure: k20434 
o|contracted procedure: k20437 
o|inlining procedure: k20416 
o|inlining procedure: k20416 
o|contracted procedure: k20475 
o|contracted procedure: k20507 
o|contracted procedure: k20511 
o|contracted procedure: k20484 
o|contracted procedure: k20496 
o|contracted procedure: k20521 
o|contracted procedure: k20554 
o|contracted procedure: k20527 
o|contracted procedure: k20533 
o|inlining procedure: k20402 
o|contracted procedure: k20586 
o|contracted procedure: k20589 
o|contracted procedure: k20596 
o|contracted procedure: k20602 
o|contracted procedure: k20632 
o|contracted procedure: k20053 
o|contracted procedure: k20059 
o|contracted procedure: k20082 
o|contracted procedure: k20640 
o|contracted procedure: k20655 
o|contracted procedure: k20663 
o|contracted procedure: k20675 
o|contracted procedure: k20678 
o|contracted procedure: k20681 
o|contracted procedure: k20689 
o|contracted procedure: k20697 
o|contracted procedure: k20716 
o|contracted procedure: k20722 
o|contracted procedure: k20728 
o|contracted procedure: k20769 
o|contracted procedure: k20778 
o|contracted procedure: k20781 
o|contracted procedure: k20788 
o|contracted procedure: k20794 
o|contracted procedure: k20800 
o|contracted procedure: k20826 
o|contracted procedure: k20830 
o|contracted procedure: k20867 
o|contracted procedure: k20898 
o|contracted procedure: k20910 
o|contracted procedure: k20920 
o|contracted procedure: k20924 
o|contracted procedure: k20928 
o|contracted procedure: k20932 
o|contracted procedure: k20948 
o|contracted procedure: k20960 
o|contracted procedure: k20967 
o|contracted procedure: k20979 
o|contracted procedure: k20987 
o|contracted procedure: k20999 
o|contracted procedure: k21002 
o|contracted procedure: k21005 
o|contracted procedure: k21013 
o|contracted procedure: k21021 
o|contracted procedure: k21034 
o|contracted procedure: k21040 
o|contracted procedure: k21046 
o|contracted procedure: k21080 
o|contracted procedure: k21089 
o|contracted procedure: k21092 
o|contracted procedure: k21099 
o|contracted procedure: k21105 
o|contracted procedure: k21143 
o|contracted procedure: k21162 
o|contracted procedure: k21175 
o|contracted procedure: k21180 
o|contracted procedure: k21187 
o|contracted procedure: k21193 
o|contracted procedure: k21218 
o|contracted procedure: k21224 
o|contracted procedure: k21230 
o|contracted procedure: k21264 
o|contracted procedure: k21273 
o|contracted procedure: k21276 
o|contracted procedure: k21292 
o|contracted procedure: k21298 
o|contracted procedure: k21313 
o|contracted procedure: k21337 
o|contracted procedure: k21326 
o|contracted procedure: k21340 
o|contracted procedure: k21347 
o|contracted procedure: k21353 
o|contracted procedure: k21373 
o|contracted procedure: k21376 
o|contracted procedure: k21392 
o|contracted procedure: k21396 
o|contracted procedure: k21408 
o|contracted procedure: k21412 
o|contracted procedure: k21428 
o|contracted procedure: k21432 
o|contracted procedure: k21440 
o|contracted procedure: k21447 
o|contracted procedure: k21463 
o|contracted procedure: k21467 
o|contracted procedure: k21473 
o|contracted procedure: k21476 
o|contracted procedure: k21479 
o|contracted procedure: k21491 
o|contracted procedure: k21494 
o|contracted procedure: k21497 
o|contracted procedure: k21503 
o|contracted procedure: k21506 
o|contracted procedure: k21515 
o|contracted procedure: k21518 
o|contracted procedure: k21530 
o|contracted procedure: k21897 
o|contracted procedure: k21549 
o|contracted procedure: k21561 
o|contracted procedure: k21569 
o|contracted procedure: k21578 
o|contracted procedure: k21675 
o|contracted procedure: k21591 
o|contracted procedure: k21594 
o|inlining procedure: k21553 
o|contracted procedure: k21607 
o|contracted procedure: k21630 
o|contracted procedure: k21623 
o|contracted procedure: k21638 
o|inlining procedure: k21553 
o|contracted procedure: k21647 
o|contracted procedure: k21650 
o|contracted procedure: k21653 
o|contracted procedure: k21661 
o|contracted procedure: k21669 
o|contracted procedure: k21813 
o|contracted procedure: k21817 
o|contracted procedure: k21821 
o|contracted procedure: k21679 
o|inlining procedure: k21683 
o|contracted procedure: k22567 
o|inlining procedure: k21683 
o|contracted procedure: k22574 
o|contracted procedure: k22578 
o|contracted procedure: k22586 
o|contracted procedure: k22590 
o|contracted procedure: k21697 
o|contracted procedure: k21708 
o|contracted procedure: k21728 
o|contracted procedure: k21740 
o|contracted procedure: k21767 
o|contracted procedure: k21747 
o|contracted procedure: k21755 
o|contracted procedure: k21751 
o|contracted procedure: k21776 
o|contracted procedure: k21779 
o|contracted procedure: k21782 
o|contracted procedure: k21790 
o|contracted procedure: k21798 
o|contracted procedure: k21717 
o|contracted procedure: k21725 
o|contracted procedure: k21809 
o|contracted procedure: k21829 
o|contracted procedure: k21834 
o|contracted procedure: k21843 
o|contracted procedure: k21850 
o|contracted procedure: k21853 
o|contracted procedure: k21868 
o|contracted procedure: k21871 
o|contracted procedure: k21874 
o|contracted procedure: k21882 
o|contracted procedure: k21890 
o|contracted procedure: k21924 
o|contracted procedure: k21920 
o|contracted procedure: k21927 
o|contracted procedure: k21936 
o|contracted procedure: k21943 
o|contracted procedure: k21952 
o|contracted procedure: k21958 
o|contracted procedure: k22018 
o|contracted procedure: k21982 
o|contracted procedure: k22008 
o|contracted procedure: k22012 
o|contracted procedure: k22004 
o|contracted procedure: k21985 
o|contracted procedure: k21988 
o|contracted procedure: k21996 
o|contracted procedure: k22000 
o|contracted procedure: k22030 
o|contracted procedure: k22033 
o|contracted procedure: k22036 
o|contracted procedure: k22044 
o|contracted procedure: k22052 
o|contracted procedure: k22067 
o|contracted procedure: k22070 
o|contracted procedure: k22073 
o|contracted procedure: k22103 
o|contracted procedure: k22107 
o|contracted procedure: k22119 
o|contracted procedure: k22123 
o|contracted procedure: k22136 
o|contracted procedure: k22140 
o|contracted procedure: k22144 
o|contracted procedure: k22170 
o|contracted procedure: k22174 
o|contracted procedure: k22189 
o|contracted procedure: k22193 
o|contracted procedure: k22216 
o|contracted procedure: k22209 
o|contracted procedure: k22200 
o|contracted procedure: k22219 
o|contracted procedure: k22226 
o|contracted procedure: k22236 
o|contracted procedure: k22243 
o|contracted procedure: k22255 
o|inlining procedure: k22247 
o|inlining procedure: k22247 
o|contracted procedure: k22280 
o|contracted procedure: k22276 
o|contracted procedure: k22290 
o|contracted procedure: k22311 
o|contracted procedure: k22317 
o|contracted procedure: k22323 
o|contracted procedure: k22329 
o|contracted procedure: k22335 
o|contracted procedure: k22341 
o|contracted procedure: k22347 
o|contracted procedure: k22353 
o|contracted procedure: k22359 
o|contracted procedure: k22365 
o|contracted procedure: k22371 
o|contracted procedure: k22377 
o|contracted procedure: k22383 
o|contracted procedure: k22389 
o|contracted procedure: k22395 
o|contracted procedure: k22401 
o|contracted procedure: k22446 
o|contracted procedure: k22452 
o|contracted procedure: k22471 
o|contracted procedure: k22477 
o|contracted procedure: k22483 
o|contracted procedure: k22489 
o|contracted procedure: k22513 
o|contracted procedure: k22521 
o|contracted procedure: k22533 
o|contracted procedure: k22536 
o|contracted procedure: k22539 
o|contracted procedure: k22547 
o|contracted procedure: k22555 
o|contracted procedure: k22612 
o|contracted procedure: k22616 
o|contracted procedure: k22640 
o|contracted procedure: k22624 
o|contracted procedure: k22628 
o|contracted procedure: k22662 
o|contracted procedure: k22675 
o|contracted procedure: k22681 
o|contracted procedure: k22708 
o|contracted procedure: k22696 
o|contracted procedure: k22700 
o|contracted procedure: k22772 
o|contracted procedure: k22803 
o|contracted procedure: k22821 
o|contracted procedure: k22857 
o|contracted procedure: k22875 
o|contracted procedure: k22893 
o|contracted procedure: k22911 
o|contracted procedure: k22929 
o|contracted procedure: k22947 
o|contracted procedure: k22983 
o|contracted procedure: k23001 
o|contracted procedure: k23019 
o|contracted procedure: k23037 
o|contracted procedure: k23055 
o|contracted procedure: k23073 
o|contracted procedure: k23108 
o|contracted procedure: k23104 
o|contracted procedure: k23100 
o|contracted procedure: k23124 
o|contracted procedure: k23150 
o|contracted procedure: k23205 
o|contracted procedure: k23214 
o|contracted procedure: k23221 
o|contracted procedure: k23227 
o|contracted procedure: k23230 
o|contracted procedure: k23233 
o|contracted procedure: k23240 
o|contracted procedure: k23250 
o|contracted procedure: k23253 
o|contracted procedure: k23257 
o|contracted procedure: k23261 
o|contracted procedure: k23275 
o|contracted procedure: k23281 
o|contracted procedure: k23296 
o|contracted procedure: k23285 
o|contracted procedure: k23302 
o|contracted procedure: k23306 
o|contracted procedure: k23319 
o|contracted procedure: k23323 
o|contracted procedure: k23338 
o|contracted procedure: k23344 
o|contracted procedure: k23348 
o|contracted procedure: k23367 
o|contracted procedure: k23373 
o|contracted procedure: k23388 
o|contracted procedure: k23394 
o|contracted procedure: k23398 
o|contracted procedure: k23405 
o|contracted procedure: k23413 
o|contracted procedure: k23419 
o|contracted procedure: k23422 
o|contracted procedure: k23440 
o|contracted procedure: k23447 
o|contracted procedure: k23461 
o|contracted procedure: k23468 
o|contracted procedure: k23475 
o|contracted procedure: k23479 
o|contracted procedure: k23485 
o|contracted procedure: k23488 
o|contracted procedure: k23491 
o|contracted procedure: k23503 
o|contracted procedure: k23509 
o|contracted procedure: k23543 
o|contracted procedure: k23539 
o|contracted procedure: k23551 
o|contracted procedure: k23557 
o|contracted procedure: k23564 
o|contracted procedure: k23547 
o|contracted procedure: k23578 
o|contracted procedure: k23584 
o|contracted procedure: k23593 
o|contracted procedure: k23599 
o|contracted procedure: k23606 
o|contracted procedure: k23617 
o|contracted procedure: k23624 
o|inlining procedure: k23614 
o|inlining procedure: k23614 
o|contracted procedure: k23634 
o|contracted procedure: k23658 
o|contracted procedure: k23661 
o|contracted procedure: k23652 
o|contracted procedure: k23677 
o|contracted procedure: k23680 
o|contracted procedure: k23683 
o|contracted procedure: k23730 
o|contracted procedure: k23686 
o|contracted procedure: k23695 
o|contracted procedure: k23699 
o|contracted procedure: k23711 
o|contracted procedure: k23719 
o|contracted procedure: k23743 
o|contracted procedure: k23746 
o|contracted procedure: k23749 
o|contracted procedure: k23753 
o|contracted procedure: k23760 
o|contracted procedure: k23772 
o|contracted procedure: k23778 
o|contracted procedure: k23781 
o|contracted procedure: k23784 
o|contracted procedure: k23815 
o|contracted procedure: k23811 
o|contracted procedure: k23799 
o|contracted procedure: k23803 
o|contracted procedure: k23824 
o|contracted procedure: k23840 
o|contracted procedure: k23844 
o|contracted procedure: k23848 
o|contracted procedure: k23856 
o|contracted procedure: k23887 
o|contracted procedure: k23880 
o|contracted procedure: k23871 
o|contracted procedure: k23890 
o|contracted procedure: k23897 
o|contracted procedure: k23911 
o|contracted procedure: k23996 
o|contracted procedure: k23914 
o|contracted procedure: k23992 
o|contracted procedure: k23917 
o|contracted procedure: k23940 
o|contracted procedure: k23943 
o|contracted procedure: k23947 
o|contracted procedure: k23951 
o|contracted procedure: k23965 
o|contracted procedure: k23984 
o|contracted procedure: k23973 
o|contracted procedure: k23980 
o|contracted procedure: k24002 
o|contracted procedure: k24015 
o|contracted procedure: k24023 
o|contracted procedure: k24026 
o|contracted procedure: k24041 
o|contracted procedure: k24047 
o|contracted procedure: k24107 
o|contracted procedure: k24127 
o|contracted procedure: k24134 
o|contracted procedure: k24147 
o|contracted procedure: k24150 
o|contracted procedure: k24163 
o|contracted procedure: k24167 
o|contracted procedure: k24174 
o|contracted procedure: k24182 
o|contracted procedure: k24186 
o|contracted procedure: k24194 
o|contracted procedure: k24198 
o|contracted procedure: k24202 
o|contracted procedure: k24206 
o|contracted procedure: k24210 
o|contracted procedure: k24216 
o|contracted procedure: k24226 
o|contracted procedure: k24234 
o|contracted procedure: k24238 
o|contracted procedure: k24253 
o|contracted procedure: k24264 
o|contracted procedure: k24268 
o|contracted procedure: k24287 
o|contracted procedure: k24295 
o|contracted procedure: k24299 
o|contracted procedure: k24303 
o|contracted procedure: k24307 
o|contracted procedure: k24313 
o|contracted procedure: k24316 
o|contracted procedure: k24320 
o|contracted procedure: k24385 
o|contracted procedure: k24403 
o|contracted procedure: k24411 
o|contracted procedure: k24423 
o|contracted procedure: k24426 
o|contracted procedure: k24429 
o|contracted procedure: k24437 
o|contracted procedure: k24445 
o|contracted procedure: k24466 
o|contracted procedure: k24470 
o|contracted procedure: k24490 
o|contracted procedure: k8008 
o|contracted procedure: k8015 
o|contracted procedure: k8023 
o|contracted procedure: k24503 
o|contracted procedure: k24523 
o|contracted procedure: k7556 
o|contracted procedure: k7569 
o|contracted procedure: k7575 
o|contracted procedure: k24617 
o|contracted procedure: k24558 
o|propagated global variable: r24618 ##sys#undefined-value 
o|contracted procedure: k24571 
o|inlining procedure: k24568 
o|contracted procedure: k24580 
o|inlining procedure: k24568 
o|contracted procedure: k24589 
o|contracted procedure: k24598 
o|contracted procedure: k24604 
o|contracted procedure: k24610 
o|contracted procedure: k24667 
o|contracted procedure: k24663 
o|simplifications: ((##core#call . 2) (if . 12) (let . 498)) 
o|  call simplifications:
o|    scheme#+	2
o|removed binding forms: 1735 
o|contracted procedure: k10830 
o|contracted procedure: k12998 
o|contracted procedure: k14304 
o|contracted procedure: k15719 
o|inlining procedure: k13479 
o|inlining procedure: k13479 
o|inlining procedure: k13479 
o|inlining procedure: k13825 
o|inlining procedure: k13825 
o|inlining procedure: k16428 
o|inlining procedure: k16665 
o|inlining procedure: "(core.scm:2084) grow3829" 
o|inlining procedure: "(core.scm:2091) grow3829" 
o|inlining procedure: k18013 
o|inlining procedure: k18013 
o|inlining procedure: k18013 
o|inlining procedure: "(core.scm:2095) grow3829" 
o|inlining procedure: "(core.scm:2173) grow3829" 
o|inlining procedure: "(core.scm:2075) grow3829" 
o|inlining procedure: "(core.scm:2520) quick-put!3836" 
o|inlining procedure: "(core.scm:2499) quick-put!3836" 
o|inlining procedure: "(core.scm:2476) quick-put!3836" 
o|inlining procedure: "(core.scm:2476) quick-put!3836" 
o|contracted procedure: k19425 
o|inlining procedure: "(core.scm:2398) quick-put!3836" 
o|inlining procedure: "(core.scm:2398) quick-put!3836" 
o|inlining procedure: "(core.scm:2362) quick-put!3836" 
o|inlining procedure: "(core.scm:2363) quick-put!3836" 
o|inlining procedure: "(core.scm:2377) quick-put!3836" 
o|inlining procedure: "(core.scm:2377) quick-put!3836" 
o|inlining procedure: "(core.scm:2372) quick-put!3836" 
o|inlining procedure: "(core.scm:2390) quick-put!3836" 
o|inlining procedure: "(core.scm:2389) quick-put!3836" 
o|inlining procedure: "(core.scm:2347) quick-put!3836" 
o|inlining procedure: k20406 
o|inlining procedure: k20406 
o|inlining procedure: k20406 
o|inlining procedure: k20406 
o|inlining procedure: k20406 
o|contracted procedure: k23377 
o|simplifications: ((let . 4)) 
o|replaced variables: 14 
o|removed binding forms: 13 
o|substituted constant variable: n383728590 
o|substituted constant variable: n383728594 
o|substituted constant variable: n383728604 
o|substituted constant variable: n383728614 
o|substituted constant variable: n383728618 
o|substituted constant variable: prop409228625 
o|substituted constant variable: prop409228632 
o|substituted constant variable: prop409228639 
o|substituted constant variable: val409328640 
o|substituted constant variable: prop409228646 
o|substituted constant variable: val409328647 
o|contracted procedure: "(core.scm:2476) quick-put!3836" 
o|substituted constant variable: prop409228655 
o|substituted constant variable: val409328656 
o|substituted constant variable: prop409228662 
o|substituted constant variable: val409328663 
o|substituted constant variable: prop409228669 
o|substituted constant variable: val409328670 
o|substituted constant variable: prop409228676 
o|substituted constant variable: val409328677 
o|substituted constant variable: prop409228683 
o|substituted constant variable: val409328684 
o|substituted constant variable: prop409228690 
o|substituted constant variable: val409328691 
o|substituted constant variable: prop409228697 
o|substituted constant variable: val409328698 
o|substituted constant variable: prop409228704 
o|substituted constant variable: prop409228711 
o|substituted constant variable: val409328712 
o|substituted constant variable: prop409228718 
o|substituted constant variable: val409328719 
o|replaced variables: 51 
o|removed binding forms: 9 
o|inlining procedure: k17971 
o|inlining procedure: k19182 
o|inlining procedure: k19280 
o|substituted constant variable: prop4092 
o|substituted constant variable: val4093 
o|replaced variables: 3 
o|removed binding forms: 68 
o|contracted procedure: k17904 
o|contracted procedure: k17937 
o|contracted procedure: k17983 
o|contracted procedure: k18372 
o|contracted procedure: k19849 
o|removed binding forms: 13 
o|removed binding forms: 4 
o|direct leaf routine/allocation: loop634 0 
o|direct leaf routine/allocation: g14001410 18 
o|direct leaf routine/allocation: g16801693 0 
o|direct leaf routine/allocation: loop1879 0 
o|direct leaf routine/allocation: g435436 3 
o|direct leaf routine/allocation: loop475 0 
o|direct leaf routine/allocation: grow3829 29 
o|direct leaf routine/allocation: g41134135 0 
o|direct leaf routine/allocation: g49794988 0 
o|direct leaf routine/allocation: g56575658 0 
o|direct leaf routine/allocation: loop645 0 
o|direct leaf routine/allocation: new-literal5385 32 
o|direct leaf routine/allocation: g56735674 0 
o|converted assignments to bindings: (loop634) 
o|contracted procedure: "(core.scm:814) k9968" 
o|contracted procedure: "(core.scm:912) k10644" 
o|converted assignments to bindings: (loop1879) 
o|contracted procedure: k17474 
o|converted assignments to bindings: (loop475) 
o|contracted procedure: "(core.scm:2122) k18127" 
o|contracted procedure: "(core.scm:2135) k18196" 
o|contracted procedure: "(core.scm:2296) k20017" 
o|contracted procedure: "(core.scm:2926) k21886" 
o|contracted procedure: k24478 
o|converted assignments to bindings: (loop645) 
o|simplifications: ((let . 4)) 
o|removed binding forms: 8 
o|direct leaf routine/allocation: for-each-loop16791696 0 
o|direct leaf routine/allocation: for-each-loop41124146 0 
o|contracted procedure: k10588 
o|converted assignments to bindings: (for-each-loop16791696) 
o|contracted procedure: k19084 
o|converted assignments to bindings: (for-each-loop41124146) 
o|simplifications: ((let . 2)) 
o|removed binding forms: 2 
o|customizable procedures: (a24536 loop481 g56275636 map-loop56215639 k23208 loop5600 k24032 k24053 immediate-literal5387 k24005 k23920 k23968 k23927 k23930 k23830 k23833 g55295530 k23568 k23435 walk5382 va28178 k23236 mapwalk5383 walk-var5380 k23140 k23143 blockvar-literal5386 walk-global5381 literal5384 g53985399 k22749 g51645165 lp5150 g51435144 g51115120 map-loop51055123 k21267 k21301 k21356 k22082 g50975098 map-loop49064923 map-loop48854930 k21524 k21533 map-loop49734997 update-shared-closure-vars4398 map-loop50185036 loop5012 g50525061 map-loop50465068 update-shared-closure-var4397 maptransform4395 transform4394 ref-var4399 k21083 k21111 merge-reusable4393 symbolset=4387 k21126 k20772 g46994708 map-loop46934711 k20806 g46664673 for-each-loop46654676 merge-shareable4392 k20252 g45874596 map-loop45814599 lp4402 k20428 test4388 k20446 k20452 register-direct-call!4390 register-customizable!4389 g45394548 map-loop45334551 chicken.compiler.core#concatenate gather4391 symbolset-difference4386 g44184425 for-each-loop44174446 a20133 g44314438 for-each-loop44304441 k19938 g41624169 for-each-loop41614172 k19864 k19101 g42244225 k19779 k19688 k19644 k19107 g42594266 for-each-loop42584276 k19558 k19523 k19125 k19277 k19134 k19155 k19176 k18623 k18680 k18708 k18753 g40594060 mark-rest-null?3833 mark-rest-cdr3832 g40034010 for-each-loop40024013 k17913 g39343942 for-each-loop39333946 k18235 k18238 g39033910 for-each-loop39023913 assign3834 loop3888 walk3830 walkeach3831 ref3835 loop3801 walk-arguments3685 chicken.compiler.core#cons* k17061 k17383 walk-call3682 walk-inline-call3684 cps-lambda3679 node-for-var?3680 loop3726 walk3681 map-loop35623580 map-loop35903607 loop3409 map-loop34593479 map-loop34333450 k16384 map-loop35003521 g26402649 map-loop26342652 k9309 g25922593 g25852586 loop2557 macro-alias810 loop242 g24982507 map-loop24922511 a14259 g32683275 for-each-loop32673299 k15869 g32243231 for-each-loop32233260 k15677 k15760 for-each-loop31963214 for-each-loop31713189 for-each-loop31403158 k15472 k15365 map-loop30943119 for-each-loop30693087 for-each-loop30393057 for-each-loop30213031 for-each-loop30033013 for-each-loop29642982 for-each-loop29322950 chicken.compiler.core#lset-difference/eq? for-each-loop29012919 for-each-loop28762894 for-each-loop28242852 for-each-loop28342867 for-each-loop27722790 for-each-loop27972815 for-each-loop27472765 chicken.compiler.core#lset-intersection/eq? globalize-all2687 check-decl2685 chicken.compiler.core#lset-union/eq? foldr420423 g425426 globalize2686 a13338 note-local2688 k12990 k12856 k12770 k16812 map-loop36243642 map-loop36523669 chicken.compiler.core#create-foreign-stub chicken.compiler.core#expand-foreign-lambda* chicken.compiler.core#expand-foreign-lambda fold2308 map-loop22692286 mapwalk820 g22422251 map-loop22362254 unquotify815 k12077 g21552156 g21462147 map-loop20452062 k11215 g18621871 map-loop18561886 k11665 loop1941 tmp16224 tmp26225 doloop19711972 for-each-loop987997 chicken.compiler.core#delete k11233 k11254 g20132022 map-loop20072025 map-loop18101829 include-file818 g17471756 map-loop17411762 for-each-loop17921803 for-each-loop17741785 k10911 k10820 k10708 map-loop16471665 map-loop16081626 map-loop15161533 k10297 chicken.compiler.core#posq k10201 g14741483 map-loop14681486 map-loop13371354 map-loop13671385 map-loop13941418 map-loop14301454 map-loop12771295 map-loop13041325 chicken.compiler.core#unzip1 map-loop11891206 set-real-names!813 g12291239 map-loop12231244 k9403 chicken.compiler.core#lset-adjoin/eq? g11291138 map-loop11231141 g10801081 resolve-variable816 canonicalize-body/ln812 g955956 g945946 g935936 g931932 g927928 walk819 for-each-loop872886 handle-expansion-result811 lookup809 k8265 find-id808 g780787 for-each-loop779798 chicken.compiler.core#every chicken.compiler.core#any foldl543551 foldl531557 chicken.compiler.core#filter foldl509517 loop492 map-loop448466 foldr402405 g407408 loop365 loop358 loop352 loop339 loop326) 
o|shared closure containers: 182 
o|shared closure users: 239 
o|calls to known targets: 957 
o|identified direct recursive calls: f_7190 1 
o|identified direct recursive calls: f_7218 1 
o|identified direct recursive calls: f_7369 1 
o|identified direct recursive calls: f_7486 1 
o|identified direct recursive calls: f_7585 2 
o|identified direct recursive calls: f_7969 1 
o|identified direct recursive calls: f_9716 1 
o|identified direct recursive calls: f_9750 1 
o|identified direct recursive calls: f_9893 1 
o|identified direct recursive calls: f_9941 1 
o|identified direct recursive calls: f_9989 1 
o|identified direct recursive calls: f_10636 1 
o|identified direct recursive calls: f_11678 1 
o|identified direct recursive calls: f_16854 1 
o|identified direct recursive calls: f_16888 1 
o|identified direct recursive calls: f_7413 1 
o|identified direct recursive calls: f_6917 1 
o|identified direct recursive calls: f_16280 3 
o|identified direct recursive calls: f_16738 1 
o|identified direct recursive calls: f_16772 1 
o|identified direct recursive calls: f_7526 1 
o|identified direct recursive calls: f_20009 1 
o|identified direct recursive calls: f_21735 1 
o|identified direct recursive calls: f_21863 1 
o|identified direct recursive calls: f_21977 1 
o|identified direct recursive calls: f_8003 1 
o|fast box initializations: 150 
o|fast global references: 98 
o|fast global assignments: 53 
o|dropping unused closure argument: f_11678 
o|dropping unused closure argument: f_14172 
o|dropping unused closure argument: f_14232 
o|dropping unused closure argument: f_16271 
o|dropping unused closure argument: f_16660 
o|dropping unused closure argument: f_16697 
o|dropping unused closure argument: f_17017 
o|dropping unused closure argument: f_17886 
o|dropping unused closure argument: f_20086 
o|dropping unused closure argument: f_22598 
o|dropping unused closure argument: f_22679 
o|dropping unused closure argument: f_24553 
o|dropping unused closure argument: f_7120 
o|dropping unused closure argument: f_7154 
o|dropping unused closure argument: f_7184 
o|dropping unused closure argument: f_7212 
o|dropping unused closure argument: f_7240 
o|dropping unused closure argument: f_7360 
o|dropping unused closure argument: f_7469 
o|dropping unused closure argument: f_7526 
o|dropping unused closure argument: f_7579 
o|dropping unused closure argument: f_7620 
o|dropping unused closure argument: f_7665 
o|dropping unused closure argument: f_7744 
o|dropping unused closure argument: f_7963 
o|dropping unused closure argument: f_8336 
o|dropping unused closure argument: f_8392 
*/
/* end of file */
