/*===========================================================================*/
/*   (Cgen/cgen.scm)                                                         */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -q -afile .afile -fsharing -fno-reflection -cc gcc-2.95 -lib-dir /users/serrano/prgm/project/bigloo/lib/2.6b -unsafev -no-hello -O2 -rm -unsafe -s -indent Cgen/cgen.scm)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>


/* Object type definitions */
typedef struct BgL_typez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   obj_t BgL_siza7eza7;
   obj_t BgL_classz00;
   obj_t BgL_coercezd2tozd2;
   obj_t BgL_parentsz00;
   bool_t BgL_initzf3zf3;
   bool_t BgL_magiczf3zf3;
   obj_t BgL_z42z42;
   obj_t BgL_aliasz00;
   obj_t BgL_pointedzd2tozd2byz00;
   obj_t BgL_tvectorz00;
   obj_t BgL_locationz00;
   obj_t BgL_importzd2locationzd2;
} *BgL_typez00_bglt;

typedef struct BgL_valuez00_bgl {
   header_t header;
   obj_t widening;
} *BgL_valuez00_bglt;

typedef struct BgL_variablez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_valuez00_bgl * BgL_valuez00;
   obj_t BgL_accessz00;
   obj_t BgL_fastzd2alphazd2;
   obj_t BgL_removablez00;
   long BgL_occurrencez00;
} *BgL_variablez00_bglt;

typedef struct BgL_globalz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_valuez00_bgl * BgL_valuez00;
   obj_t BgL_accessz00;
   obj_t BgL_fastzd2alphazd2;
   obj_t BgL_removablez00;
   long BgL_occurrencez00;
   obj_t BgL_modulez00;
   obj_t BgL_importz00;
   bool_t BgL_evaluablezf3zf3;
   bool_t BgL_libraryzf3zf3;
   bool_t BgL_userzf3zf3;
   obj_t BgL_pragmaz00;
   obj_t BgL_srcz00;
   obj_t BgL_jvmzd2typezd2namez00;
} *BgL_globalz00_bglt;

typedef struct BgL_localz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_valuez00_bgl * BgL_valuez00;
   obj_t BgL_accessz00;
   obj_t BgL_fastzd2alphazd2;
   obj_t BgL_removablez00;
   long BgL_occurrencez00;
   bool_t BgL_userzf3zf3;
   long BgL_keyz00;
} *BgL_localz00_bglt;

typedef struct BgL_funz00_bgl {
   header_t header;
   obj_t widening;
   long BgL_arityz00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_predicatezd2ofzd2;
   obj_t BgL_stackzd2allocatorzd2;
   bool_t BgL_topzf3zf3;
   obj_t BgL_thezd2closurezd2;
   obj_t BgL_effectz00;
} *BgL_funz00_bglt;

typedef struct BgL_sfunz00_bgl {
   header_t header;
   obj_t widening;
   long BgL_arityz00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_predicatezd2ofzd2;
   obj_t BgL_stackzd2allocatorzd2;
   bool_t BgL_topzf3zf3;
   obj_t BgL_thezd2closurezd2;
   obj_t BgL_effectz00;
   obj_t BgL_propertyz00;
   obj_t BgL_argsz00;
   obj_t BgL_bodyz00;
   obj_t BgL_classz00;
   obj_t BgL_dssslzd2keywordszd2;
   obj_t BgL_locz00;
} *BgL_sfunz00_bglt;

typedef struct BgL_cfunz00_bgl {
   header_t header;
   obj_t widening;
   long BgL_arityz00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_predicatezd2ofzd2;
   obj_t BgL_stackzd2allocatorzd2;
   bool_t BgL_topzf3zf3;
   obj_t BgL_thezd2closurezd2;
   obj_t BgL_effectz00;
   obj_t BgL_argszd2typezd2;
   bool_t BgL_macrozf3zf3;
   bool_t BgL_infixzf3zf3;
   obj_t BgL_methodz00;
} *BgL_cfunz00_bglt;

typedef struct BgL_svarz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
} *BgL_svarz00_bglt;

typedef struct BgL_scnstz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_nodez00;
   obj_t BgL_classz00;
   obj_t BgL_locz00;
} *BgL_scnstz00_bglt;

typedef struct BgL_cvarz00_bgl {
   header_t header;
   obj_t widening;
   bool_t BgL_macrozf3zf3;
} *BgL_cvarz00_bglt;

typedef struct BgL_sexitz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_handlerz00;
   bool_t BgL_detachedzf3zf3;
} *BgL_sexitz00_bglt;

typedef struct BgL_feffectz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_readz00;
   obj_t BgL_writez00;
} *BgL_feffectz00_bglt;

typedef struct BgL_nodez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
} *BgL_nodez00_bglt;

typedef struct BgL_nodezf2effectzf2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
} *BgL_nodezf2effectzf2_bglt;

typedef struct BgL_atomz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_valuez00;
} *BgL_atomz00_bglt;

typedef struct BgL_varz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_variablez00_bgl * BgL_variablez00;
} *BgL_varz00_bglt;

typedef struct BgL_closurez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_variablez00_bgl * BgL_variablez00;
} *BgL_closurez00_bglt;

typedef struct BgL_kwotez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_valuez00;
} *BgL_kwotez00_bglt;

typedef struct BgL_sequencez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_nodesz00;
} *BgL_sequencez00_bglt;

typedef struct BgL_appz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_varz00_bgl * BgL_funz00;
   obj_t BgL_argsz00;
} *BgL_appz00_bglt;

typedef struct BgL_appzd2lyzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_funz00;
   struct BgL_nodez00_bgl * BgL_argz00;
} *BgL_appzd2lyzd2_bglt;

typedef struct BgL_funcallz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_funz00;
   obj_t BgL_argsz00;
   obj_t BgL_strengthz00;
} *BgL_funcallz00_bglt;

typedef struct BgL_externz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
} *BgL_externz00_bglt;

typedef struct BgL_pragmaz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_formatz00;
} *BgL_pragmaz00_bglt;

typedef struct BgL_getfieldz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_fnamez00;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
} *BgL_getfieldz00_bglt;

typedef struct BgL_setfieldz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_fnamez00;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
} *BgL_setfieldz00_bglt;

typedef struct BgL_newz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
} *BgL_newz00_bglt;

typedef struct BgL_vallocz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2heapzd2formatz00;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
} *BgL_vallocz00_bglt;

typedef struct BgL_vrefz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vrefz00_bglt;

typedef struct BgL_vsetz12z12_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vsetz12z12_bglt;

typedef struct BgL_vlengthz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vlengthz00_bglt;

typedef struct BgL_isaz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   struct BgL_typez00_bgl * BgL_classz00;
} *BgL_isaz00_bglt;

typedef struct BgL_castz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_argz00;
} *BgL_castz00_bglt;

typedef struct BgL_setqz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_varz00_bgl * BgL_varz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_setqz00_bglt;

typedef struct BgL_conditionalz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_testz00;
   struct BgL_nodez00_bgl * BgL_truez00;
   struct BgL_nodez00_bgl * BgL_falsez00;
} *BgL_conditionalz00_bglt;

typedef struct BgL_failz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_procz00;
   struct BgL_nodez00_bgl * BgL_msgz00;
   struct BgL_nodez00_bgl * BgL_objz00;
} *BgL_failz00_bglt;

typedef struct BgL_selectz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_testz00;
   obj_t BgL_clausesz00;
   struct BgL_typez00_bgl * BgL_itemzd2typezd2;
} *BgL_selectz00_bglt;

typedef struct BgL_letzd2funzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_localsz00;
   struct BgL_nodez00_bgl * BgL_bodyz00;
} *BgL_letzd2funzd2_bglt;

typedef struct BgL_letzd2varzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_bindingsz00;
   struct BgL_nodez00_bgl * BgL_bodyz00;
   bool_t BgL_removablezf3zf3;
} *BgL_letzd2varzd2_bglt;

typedef struct BgL_setzd2exzd2itz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_varz00_bgl * BgL_varz00;
   struct BgL_nodez00_bgl * BgL_bodyz00;
} *BgL_setzd2exzd2itz00_bglt;

typedef struct BgL_jumpzd2exzd2itz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_exitz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_jumpzd2exzd2itz00_bglt;

typedef struct BgL_makezd2boxzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_makezd2boxzd2_bglt;

typedef struct BgL_boxzd2refzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_varz00_bgl * BgL_varz00;
} *BgL_boxzd2refzd2_bglt;

typedef struct BgL_boxzd2setz12zc0_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_varz00_bgl * BgL_varz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_boxzd2setz12zc0_bglt;

typedef struct BgL_copz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
} *BgL_copz00_bglt;

typedef struct BgL_clabelz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   obj_t BgL_namez00;
   bool_t BgL_usedzf3zf3;
   obj_t BgL_bodyz00;
} *BgL_clabelz00_bglt;

typedef struct BgL_cgotoz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_clabelz00_bgl * BgL_labelz00;
} *BgL_cgotoz00_bglt;

typedef struct BgL_blockz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_bodyz00;
} *BgL_blockz00_bglt;

typedef struct BgL_creturnz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_valuez00;
} *BgL_creturnz00_bglt;

typedef struct BgL_cvoidz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_valuez00;
} *BgL_cvoidz00_bglt;

typedef struct BgL_catomz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   obj_t BgL_valuez00;
} *BgL_catomz00_bglt;

typedef struct BgL_varcz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_variablez00_bgl * BgL_variablez00;
} *BgL_varcz00_bglt;

typedef struct BgL_cpragmaz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   obj_t BgL_formatz00;
   obj_t BgL_argsz00;
} *BgL_cpragmaz00_bglt;

typedef struct BgL_ccastz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_copz00_bgl * BgL_argz00;
} *BgL_ccastz00_bglt;

typedef struct BgL_csequencez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   bool_t BgL_czd2expzf3z21;
   obj_t BgL_copsz00;
} *BgL_csequencez00_bglt;

typedef struct BgL_nopz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
} *BgL_nopz00_bglt;

typedef struct BgL_stopz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_valuez00;
} *BgL_stopz00_bglt;

typedef struct BgL_csetqz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_varcz00_bgl * BgL_varz00;
   struct BgL_copz00_bgl * BgL_valuez00;
} *BgL_csetqz00_bglt;

typedef struct BgL_cifz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_testz00;
   struct BgL_copz00_bgl * BgL_truez00;
   struct BgL_copz00_bgl * BgL_falsez00;
} *BgL_cifz00_bglt;

typedef struct BgL_localzd2varzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   obj_t BgL_varsz00;
} *BgL_localzd2varzd2_bglt;

typedef struct BgL_cfuncallz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_funz00;
   obj_t BgL_argsz00;
   obj_t BgL_strengthz00;
} *BgL_cfuncallz00_bglt;

typedef struct BgL_capplyz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_funz00;
   struct BgL_copz00_bgl * BgL_argz00;
} *BgL_capplyz00_bglt;

typedef struct BgL_cappz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_funz00;
   obj_t BgL_argsz00;
} *BgL_cappz00_bglt;

typedef struct BgL_cfailz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_procz00;
   struct BgL_copz00_bgl * BgL_msgz00;
   struct BgL_copz00_bgl * BgL_objz00;
} *BgL_cfailz00_bglt;

typedef struct BgL_cswitchz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_testz00;
   obj_t BgL_clausesz00;
} *BgL_cswitchz00_bglt;

typedef struct BgL_cmakezd2boxzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_valuez00;
} *BgL_cmakezd2boxzd2_bglt;

typedef struct BgL_cboxzd2refzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_varz00;
} *BgL_cboxzd2refzd2_bglt;

typedef struct BgL_cboxzd2setz12zc0_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_varz00;
   struct BgL_copz00_bgl * BgL_valuez00;
} *BgL_cboxzd2setz12zc0_bglt;

typedef struct BgL_csetzd2exzd2itz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_exitz00;
   struct BgL_copz00_bgl * BgL_jumpzd2valuezd2;
   struct BgL_copz00_bgl * BgL_bodyz00;
} *BgL_csetzd2exzd2itz00_bglt;

typedef struct BgL_cjumpzd2exzd2itz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_exitz00;
   struct BgL_copz00_bgl * BgL_valuez00;
} *BgL_cjumpzd2exzd2itz00_bglt;

typedef struct BgL_sfunzf2czf2_bgl {
   struct BgL_clabelz00_bgl * BgL_labelz00;
   bool_t BgL_integratedz00;
} *BgL_sfunzf2czf2_bglt;

typedef struct BgL_bdbzd2blockzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_bodyz00;
} *BgL_bdbzd2blockzd2_bglt;

typedef struct BgL_backendz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_languagez00;
   obj_t BgL_namez00;
   obj_t BgL_externzd2variableszd2;
   obj_t BgL_externzd2functionszd2;
   obj_t BgL_externzd2typeszd2;
   obj_t BgL_variablesz00;
   obj_t BgL_functionsz00;
   obj_t BgL_typesz00;
} *BgL_backendz00_bglt;

typedef struct BgL_cvmz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_languagez00;
   obj_t BgL_namez00;
   obj_t BgL_externzd2variableszd2;
   obj_t BgL_externzd2functionszd2;
   obj_t BgL_externzd2typeszd2;
   obj_t BgL_variablesz00;
   obj_t BgL_functionsz00;
   obj_t BgL_typesz00;
} *BgL_cvmz00_bglt;

typedef struct BgL_sawcz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_languagez00;
   obj_t BgL_namez00;
   obj_t BgL_externzd2variableszd2;
   obj_t BgL_externzd2functionszd2;
   obj_t BgL_externzd2typeszd2;
   obj_t BgL_variablesz00;
   obj_t BgL_functionsz00;
   obj_t BgL_typesz00;
} *BgL_sawcz00_bglt;

typedef struct BgL_cgenz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_languagez00;
   obj_t BgL_namez00;
   obj_t BgL_externzd2variableszd2;
   obj_t BgL_externzd2functionszd2;
   obj_t BgL_externzd2typeszd2;
   obj_t BgL_variablesz00;
   obj_t BgL_functionsz00;
   obj_t BgL_typesz00;
} *BgL_cgenz00_bglt;

typedef struct BgL_jvmz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_languagez00;
   obj_t BgL_namez00;
   obj_t BgL_externzd2variableszd2;
   obj_t BgL_externzd2functionszd2;
   obj_t BgL_externzd2typeszd2;
   obj_t BgL_variablesz00;
   obj_t BgL_functionsz00;
   obj_t BgL_typesz00;
   obj_t BgL_qnamez00;
   obj_t BgL_classesz00;
   obj_t BgL_currentzd2classzd2;
   obj_t BgL_declarationsz00;
   obj_t BgL_fieldsz00;
   obj_t BgL_methodsz00;
   obj_t BgL_currentzd2methodzd2;
   obj_t BgL_codez00;
} *BgL_jvmz00_bglt;

typedef struct BgL_dotnetz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_languagez00;
   obj_t BgL_namez00;
   obj_t BgL_externzd2variableszd2;
   obj_t BgL_externzd2functionszd2;
   obj_t BgL_externzd2typeszd2;
   obj_t BgL_variablesz00;
   obj_t BgL_functionsz00;
   obj_t BgL_typesz00;
   obj_t BgL_outz00;
   obj_t BgL_qnamez00;
} *BgL_dotnetz00_bglt;


static obj_t BGl_nodezd2ze3copzd2vsetz123693zf1zzcgen_cgenz00(obj_t, obj_t, obj_t);
extern obj_t BGl_vrefz00zzast_nodez00;
extern BgL_cboxzd2setz12zc0_bglt BGl_makezd2cboxzd2setz12z12zzcgen_copz00(obj_t, BgL_copz00_bglt, BgL_copz00_bglt);
static obj_t BGl_methodzd2initzd2zzcgen_cgenz00();
static obj_t BGl_nodezd2ze3copzd2pragma3683ze3zzcgen_cgenz00(obj_t, obj_t, obj_t);
extern BgL_clabelz00_bglt BGl_makezd2clabelzd2zzcgen_copz00(obj_t, obj_t, bool_t, obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl_nodezd2ze3copzd2vref3691ze3zzcgen_cgenz00(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2ze3copzd2boxzd2setz123719z23zzcgen_cgenz00(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2ze3copzd2kwote3675ze3zzcgen_cgenz00(obj_t, obj_t, obj_t);
BGL_IMPORT long BGl_classzd2numzd2zz__objectz00(obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
static obj_t BGl_zc3anonymousza33746ze3z83zzcgen_cgenz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza33747ze3z83zzcgen_cgenz00(obj_t, obj_t);
static obj_t BGl_nodezd2ze3copzd2setq3699ze3zzcgen_cgenz00(obj_t, obj_t, obj_t);
extern BgL_cfailz00_bglt BGl_makezd2cfailzd2zzcgen_copz00(obj_t, BgL_copz00_bglt, BgL_copz00_bglt, BgL_copz00_bglt);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
extern BgL_catomz00_bglt BGl_makezd2catomzd2zzcgen_copz00(obj_t, obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl_nodezd2ze3copzd2setfield3687ze3zzcgen_cgenz00(obj_t, obj_t, obj_t);
extern bool_t BGl_emitzd2copzd2zzcgen_emitzd2copzd2(BgL_copz00_bglt);
extern BgL_ccastz00_bglt BGl_makezd2ccastzd2zzcgen_copz00(obj_t, BgL_typez00_bglt, BgL_copz00_bglt);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
extern obj_t BGl_pragmaz00zzast_nodez00;
BGL_IMPORT obj_t string_to_bstring(char *);
extern BgL_blockz00_bglt BGl_makezd2blockzd2zzcgen_copz00(obj_t, BgL_copz00_bglt);
extern obj_t BGl_kwotez00zzast_nodez00;
extern obj_t BGl_za2_za2z00zztype_cachez00;
extern obj_t BGl_za2procedureza2z00zztype_cachez00;
extern BgL_typez00_bglt BGl_typeofz00zztype_typeofz00(BgL_nodez00_bglt);
BGL_EXPORTED_DEF obj_t BGl_za2stopzd2kontza2zd2zzcgen_cgenz00 = BUNSPEC;
extern obj_t BGl_za2voidza2z00zztype_cachez00;
extern BgL_csequencez00_bglt BGl_makezd2csequencezd2zzcgen_copz00(obj_t, bool_t, obj_t);
static obj_t BGl_nodezd2ze3copzd2atom3673ze3zzcgen_cgenz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
extern obj_t BGl_castz00zzast_nodez00;
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
extern obj_t BGl_enterzd2functionzd2zztools_errorz00(obj_t);
extern obj_t BGl_varz00zzast_nodez00;
BGL_EXPORTED_DECL BgL_localz00_bglt BGl_makezd2localzd2svarzf2namezf2zzcgen_cgenz00(obj_t, BgL_typez00_bglt);
extern obj_t BGl_za2bdbzd2debugza2zd2zzengine_paramz00;
extern obj_t BGl_csetqz00zzcgen_copz00;
static obj_t BGl_cnstzd2initzd2zzcgen_cgenz00();
static obj_t BGl_sfunzd2ze3cz31zzcgen_cgenz00(BgL_sfunz00_bglt, BgL_globalz00_bglt);
static obj_t BGl_zc3anonymousza35799ze3z83zzcgen_cgenz00(obj_t, obj_t);
extern BgL_csetzd2exzd2itz00_bglt BGl_makezd2csetzd2exzd2itzd2zzcgen_copz00(obj_t, BgL_copz00_bglt, BgL_copz00_bglt, BgL_copz00_bglt);
extern obj_t BGl_atomz00zzast_nodez00;
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_leavezd2functionzd2zztools_errorz00();
extern BgL_nopz00_bglt BGl_makezd2nopzd2zzcgen_copz00(obj_t);
BGL_IMPORT obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
static BgL_cvoidz00_bglt BGl_za2voidzd2kontza2zd2zzcgen_cgenz00(obj_t);
static obj_t BGl_nodezd2ze3copzd2jumpzd2exzd2it3713ze3zzcgen_cgenz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
extern obj_t BGl_za2unspecza2z00zztype_cachez00;
static obj_t BGl_importedzd2moduleszd2initz00zzcgen_cgenz00();
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
extern BgL_cifz00_bglt BGl_makezd2cifzd2zzcgen_copz00(obj_t, BgL_copz00_bglt, BgL_copz00_bglt, BgL_copz00_bglt);
static obj_t BGl_zc3anonymousza33934ze3z83zzcgen_cgenz00(obj_t, obj_t);
static obj_t BGl_nodezd2ze3copzd2getfield3685ze3zzcgen_cgenz00(obj_t, obj_t, obj_t);
extern obj_t BGl_getfieldz00zzast_nodez00;
static obj_t BGl_nodezd2ze3copzd2makezd2box3715z31zzcgen_cgenz00(obj_t, obj_t, obj_t);
extern BgL_csetqz00_bglt BGl_makezd2csetqzd2zzcgen_copz00(obj_t, BgL_varcz00_bglt, BgL_copz00_bglt);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(obj_t);
extern BgL_cjumpzd2exzd2itz00_bglt BGl_makezd2cjumpzd2exzd2itzd2zzcgen_copz00(obj_t, BgL_copz00_bglt, BgL_copz00_bglt);
extern obj_t BGl_stringzd2sanszd2z42z42zztype_toolsz00(obj_t);
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl__nodezd2ze3cop6058z31zzcgen_cgenz00(obj_t, obj_t, obj_t);
extern obj_t BGl_setzd2variablezd2namez12z12zzbackend_c_prototypez00(obj_t);
extern obj_t BGl_vallocz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzcgen_cgenz00();
static obj_t BGl__blockzd2kontzd2zzcgen_cgenz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t string_append_3(obj_t, obj_t, obj_t);
extern obj_t BGl_sfunzf2Czf2zzcgen_copz00;
static obj_t BGl_zc3anonymousza35131ze3z83zzcgen_cgenz00(obj_t, obj_t);
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
BGL_IMPORT bool_t BGl_2ze3ze3zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzcgen_cgenz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_toolsz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typeofz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_localz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzeffect_effectz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcgen_copz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcgen_emitzd2copzd2(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcgen_cappz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzbackend_c_emitz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzbackend_c_prototypez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzbackend_backendz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
extern bool_t BGl_sidezd2effectzf3z21zzeffect_effectz00(BgL_nodez00_bglt);
static obj_t BGl_nodezd2ze3copzd2fail3703ze3zzcgen_cgenz00(obj_t, obj_t, obj_t);
static obj_t BGl_externzd2ze3copz31zzcgen_cgenz00(obj_t, BgL_externz00_bglt, obj_t);
extern BgL_cpragmaz00_bglt BGl_makezd2cpragmazd2zzcgen_copz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_copz00_bglt BGl_bdbzd2letzd2varz00zzcgen_cgenz00(BgL_copz00_bglt, obj_t);
static obj_t BGl_nodezd2ze3copzd2letzd2var3709z31zzcgen_cgenz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cgenzd2functionzd2zzcgen_cgenz00(BgL_globalz00_bglt);
extern obj_t BGl_blockz00zzcgen_copz00;
static obj_t BGl_nodezd2ze3copzd2setzd2exzd2it3711ze3zzcgen_cgenz00(obj_t, obj_t, obj_t);
extern BgL_bdbzd2blockzd2_bglt BGl_makezd2bdbzd2blockz00zzcgen_copz00(obj_t, BgL_copz00_bglt);
extern obj_t BGl_wideningzd2sfunzf2Cz20zzcgen_copz00(BgL_clabelz00_bglt, bool_t);
extern BgL_pragmaz00_bglt BGl_makezd2pragmazd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t);
extern BgL_localzd2varzd2_bglt BGl_makezd2localzd2varz00zzcgen_copz00(obj_t, obj_t);
extern BgL_varcz00_bglt BGl_makezd2varczd2zzcgen_copz00(obj_t, BgL_variablez00_bglt);
static obj_t BGl_nozd2bdbzd2newlinez00zzcgen_cgenz00();
BGL_IMPORT obj_t string_append(obj_t, obj_t);
extern BgL_cvoidz00_bglt BGl_makezd2cvoidzd2zzcgen_copz00(obj_t, BgL_copz00_bglt);
static obj_t BGl_nodezd2ze3copzd2closure3679ze3zzcgen_cgenz00(obj_t, obj_t, obj_t);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
static obj_t BGl_nodezd2ze3copzd2vlength3689ze3zzcgen_cgenz00(obj_t, obj_t, obj_t);
extern obj_t BGl_shapez00zztools_shapez00(obj_t);
extern obj_t BGl_catomz00zzcgen_copz00;
extern obj_t BGl_cfailz00zzcgen_copz00;
extern obj_t BGl_za2boolza2z00zztype_cachez00;
static obj_t BGl_nodezd2ze3copzd2letzd2fun3707z31zzcgen_cgenz00(obj_t, obj_t, obj_t);
extern obj_t BGl_za2czd2portza2zd2zzbackend_c_emitz00;
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
static obj_t BGl_nodezd2ze3copzd2valloc3695ze3zzcgen_cgenz00(obj_t, obj_t, obj_t);
extern obj_t BGl_cpragmaz00zzcgen_copz00;
static obj_t BGl_nodezd2ze3copzd2conditional3701ze3zzcgen_cgenz00(obj_t, obj_t, obj_t);
extern obj_t BGl_conditionalz00zzast_nodez00;
extern BgL_localz00_bglt BGl_makezd2localzd2svarz00zzast_localz00(obj_t, BgL_typez00_bglt);
extern obj_t BGl_sequencez00zzast_nodez00;
BGL_IMPORT obj_t display_string(obj_t, obj_t);
static obj_t BGl_nodezd2ze3copzd2var3677ze3zzcgen_cgenz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza33977ze3z83zzcgen_cgenz00(obj_t, obj_t);
static obj_t BGl__nodezd2setq6069zd2zzcgen_cgenz00(obj_t, obj_t, obj_t);
static obj_t BGl__nodezd2ze3copzd2default3670ze3zzcgen_cgenz00(obj_t, obj_t, obj_t);
static obj_t BGl_loopz00zzcgen_cgenz00(obj_t);
extern obj_t BGl_internalzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_blockzd2kontzd2zzcgen_cgenz00(obj_t, obj_t);
extern obj_t BGl_varcz00zzcgen_copz00;
extern BgL_setqz00_bglt BGl_makezd2setqzd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_varz00_bglt, BgL_nodez00_bglt);
extern obj_t BGl_closurez00zzast_nodez00;
extern BgL_creturnz00_bglt BGl_makezd2creturnzd2zzcgen_copz00(obj_t, BgL_copz00_bglt);
extern obj_t BGl_vlengthz00zzast_nodez00;
static BgL_copz00_bglt BGl_nodezd2ze3copzd2default3670ze3zzcgen_cgenz00(BgL_nodez00_bglt, obj_t);
static obj_t BGl_nodezd2ze3copzd2cast3697ze3zzcgen_cgenz00(obj_t, obj_t, obj_t);
extern obj_t BGl_setfieldz00zzast_nodez00;
static obj_t BGl_zc3anonymousza34937ze3z83zzcgen_cgenz00(obj_t, obj_t);
extern BgL_varz00_bglt BGl_makezd2varzd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_variablez00_bglt);
extern obj_t BGl_makezd2typedzd2declarationz00zztype_toolsz00(BgL_typez00_bglt, obj_t);
static obj_t BGl_nodezd2ze3copzd2boxzd2ref3717z31zzcgen_cgenz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_za2returnzd2kontza2zd2zzcgen_cgenz00 = BUNSPEC;
BGL_IMPORT obj_t bgl_append2(obj_t, obj_t);
extern obj_t BGl_za2objza2z00zztype_cachez00;
BGL_EXPORTED_DEF obj_t BGl_za2idzd2kontza2zd2zzcgen_cgenz00 = BUNSPEC;
extern BgL_cswitchz00_bglt BGl_makezd2cswitchzd2zzcgen_copz00(obj_t, BgL_copz00_bglt, obj_t);
BGL_EXPORTED_DECL BgL_setqz00_bglt BGl_nodezd2setqzd2zzcgen_cgenz00(BgL_variablez00_bglt, BgL_nodez00_bglt);
static obj_t BGl_zc3anonymousza33721ze3z83zzcgen_cgenz00(obj_t, obj_t);
static obj_t BGl__bdbzd2letzd2var6067z00zzcgen_cgenz00(obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzcgen_cgenz00 = BUNSPEC;
static obj_t BGl_nodezd2argszd2ze3copze3zzcgen_cgenz00(obj_t, obj_t, obj_t);
extern BgL_cmakezd2boxzd2_bglt BGl_makezd2cmakezd2boxz00zzcgen_copz00(obj_t, BgL_copz00_bglt);
extern obj_t BGl_getzd2currentzd2bdbzd2loczd2zzcgen_emitzd2copzd2();
static obj_t BGl_zc3anonymousza35887ze3z83zzcgen_cgenz00(obj_t, obj_t);
static obj_t BGl__makezd2localzd2svarzf2name6071zf2zzcgen_cgenz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_copz00_bglt BGl_nodezd2ze3copz31zzcgen_cgenz00(BgL_nodez00_bglt, obj_t);
extern BgL_stopz00_bglt BGl_makezd2stopzd2zzcgen_copz00(obj_t, BgL_copz00_bglt);
static obj_t BGl_nodezd2ze3copzd2sequence3681ze3zzcgen_cgenz00(obj_t, obj_t, obj_t);
extern obj_t BGl_resetzd2bdbzd2locz12z12zzcgen_emitzd2copzd2();
static obj_t BGl_libraryzd2moduleszd2initz00zzcgen_cgenz00();
static obj_t BGl__za2voidzd2kontza2zd2zzcgen_cgenz00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_za2thezd2globalza2zd2zzcgen_cgenz00 = BUNSPEC;
static obj_t BGl_nodezd2ze3copzd2select3705ze3zzcgen_cgenz00(obj_t, obj_t, obj_t);
extern obj_t BGl_vsetz12z12zzast_nodez00;
static obj_t BGl_makezd2setqzd2kontz00zzcgen_cgenz00(BgL_variablez00_bglt, obj_t, obj_t);
static obj_t BGl_zc3anonymousza35904ze3z83zzcgen_cgenz00(obj_t, obj_t);
extern BgL_cboxzd2refzd2_bglt BGl_makezd2cboxzd2refz00zzcgen_copz00(obj_t, BgL_copz00_bglt);
static obj_t BGl__cgenzd2function6055zd2zzcgen_cgenz00(obj_t, obj_t);
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t __cnst[ 8 ] ;


DEFINE_EXPORT_GENERIC( BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_bgl__nodeza7d2za7e3cop6058za731za7za7cgen_cgenza7007026z00, BGl__nodezd2ze3cop6058z31zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6947z00zzcgen_cgenz00, BgL_bgl_za7c3anonymousza7a33721za7e3za783za7za7cgen_cgenza7007027za7, BGl_zc3anonymousza33721ze3z83zzcgen_cgenz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6948z00zzcgen_cgenz00, BgL_bgl_za7c3anonymousza7a33746za7e3za783za7za7cgen_cgenza7007028za7, BGl_zc3anonymousza33746ze3z83zzcgen_cgenz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6949z00zzcgen_cgenz00, BgL_bgl_za7c3anonymousza7a33747za7e3za783za7za7cgen_cgenza7007029za7, BGl_zc3anonymousza33747ze3z83zzcgen_cgenz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6962z00zzcgen_cgenz00, BgL_bgl_nodeza7d2za7e3copza7d2atom3673za7e3za7za7cgen_cgenza7007030za7, BGl_nodezd2ze3copzd2atom3673ze3zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6963z00zzcgen_cgenz00, BgL_bgl_nodeza7d2za7e3copza7d2kwote3675za7e3za7za7cgen_cgenza7007031za7, BGl_nodezd2ze3copzd2kwote3675ze3zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6964z00zzcgen_cgenz00, BgL_bgl_nodeza7d2za7e3copza7d2var3677za7e3za7za7cgen_cgenza7007032za7, BGl_nodezd2ze3copzd2var3677ze3zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6965z00zzcgen_cgenz00, BgL_bgl_nodeza7d2za7e3copza7d2closure3679za7e3za7za7cgen_cgenza7007033za7, BGl_nodezd2ze3copzd2closure3679ze3zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6966z00zzcgen_cgenz00, BgL_bgl_nodeza7d2za7e3copza7d2sequence3681za7e3za7za7cgen_cgenza7007034za7, BGl_nodezd2ze3copzd2sequence3681ze3zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6967z00zzcgen_cgenz00, BgL_bgl_nodeza7d2za7e3copza7d2pragma3683za7e3za7za7cgen_cgenza7007035za7, BGl_nodezd2ze3copzd2pragma3683ze3zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6968z00zzcgen_cgenz00, BgL_bgl_nodeza7d2za7e3copza7d2getfield3685za7e3za7za7cgen_cgenza7007036za7, BGl_nodezd2ze3copzd2getfield3685ze3zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6970z00zzcgen_cgenz00, BgL_bgl_nodeza7d2za7e3copza7d2vlength3689za7e3za7za7cgen_cgenza7007037za7, BGl_nodezd2ze3copzd2vlength3689ze3zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6969z00zzcgen_cgenz00, BgL_bgl_nodeza7d2za7e3copza7d2setfield3687za7e3za7za7cgen_cgenza7007038za7, BGl_nodezd2ze3copzd2setfield3687ze3zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6971z00zzcgen_cgenz00, BgL_bgl_nodeza7d2za7e3copza7d2vref3691za7e3za7za7cgen_cgenza7007039za7, BGl_nodezd2ze3copzd2vref3691ze3zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6972z00zzcgen_cgenz00, BgL_bgl_nodeza7d2za7e3copza7d2vsetza7123693za7f1za7za7cgen_cgenza7007040z00, BGl_nodezd2ze3copzd2vsetz123693zf1zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6973z00zzcgen_cgenz00, BgL_bgl_nodeza7d2za7e3copza7d2valloc3695za7e3za7za7cgen_cgenza7007041za7, BGl_nodezd2ze3copzd2valloc3695ze3zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6974z00zzcgen_cgenz00, BgL_bgl_nodeza7d2za7e3copza7d2cast3697za7e3za7za7cgen_cgenza7007042za7, BGl_nodezd2ze3copzd2cast3697ze3zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6975z00zzcgen_cgenz00, BgL_bgl_nodeza7d2za7e3copza7d2setq3699za7e3za7za7cgen_cgenza7007043za7, BGl_nodezd2ze3copzd2setq3699ze3zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6976z00zzcgen_cgenz00, BgL_bgl_nodeza7d2za7e3copza7d2conditional3701za7e3za7za7cgen_cgenza7007044za7, BGl_nodezd2ze3copzd2conditional3701ze3zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6977z00zzcgen_cgenz00, BgL_bgl_nodeza7d2za7e3copza7d2fail3703za7e3za7za7cgen_cgenza7007045za7, BGl_nodezd2ze3copzd2fail3703ze3zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6978z00zzcgen_cgenz00, BgL_bgl_nodeza7d2za7e3copza7d2select3705za7e3za7za7cgen_cgenza7007046za7, BGl_nodezd2ze3copzd2select3705ze3zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6980z00zzcgen_cgenz00, BgL_bgl_nodeza7d2za7e3copza7d2letza7d2var3709za731za7za7cgen_cgenza7007047z00, BGl_nodezd2ze3copzd2letzd2var3709z31zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6979z00zzcgen_cgenz00, BgL_bgl_nodeza7d2za7e3copza7d2letza7d2fun3707za731za7za7cgen_cgenza7007048z00, BGl_nodezd2ze3copzd2letzd2fun3707z31zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6981z00zzcgen_cgenz00, BgL_bgl_nodeza7d2za7e3copza7d2setza7d2exza7d2it3711za7e3za7za7cgen_cgenza7007049za7, BGl_nodezd2ze3copzd2setzd2exzd2it3711ze3zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6982z00zzcgen_cgenz00, BgL_bgl_nodeza7d2za7e3copza7d2jumpza7d2exza7d2it3713za7e3za7za7cgen_cgenza7007050za7, BGl_nodezd2ze3copzd2jumpzd2exzd2it3713ze3zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6983z00zzcgen_cgenz00, BgL_bgl_nodeza7d2za7e3copza7d2makeza7d2box3715za731za7za7cgen_cgenza7007051z00, BGl_nodezd2ze3copzd2makezd2box3715z31zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6984z00zzcgen_cgenz00, BgL_bgl_nodeza7d2za7e3copza7d2boxza7d2ref3717za731za7za7cgen_cgenza7007052z00, BGl_nodezd2ze3copzd2boxzd2ref3717z31zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6985z00zzcgen_cgenz00, BgL_bgl_nodeza7d2za7e3copza7d2boxza7d2setza7123719za723za7za7cgen_cgenza7007053za7, BGl_nodezd2ze3copzd2boxzd2setz123719z23zzcgen_cgenz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2localzd2svarzf2namezd2envz20zzcgen_cgenz00, BgL_bgl__makeza7d2localza7d2svarza7f2name6071za7f2za7za7cgen_cgenza7007054za7, BGl__makezd2localzd2svarzf2name6071zf2zzcgen_cgenz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_blockzd2kontzd2envz00zzcgen_cgenz00, BgL_bgl__blockza7d2kontza7d2za7za7cgen_cgenza7007055za7, BGl__blockzd2kontzd2zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_nodezd2ze3copzd2default3670zd2envz31zzcgen_cgenz00, BgL_bgl__nodeza7d2za7e3copza7d2default3670za7e3za7za7cgen_cgenza7007056za7, BGl__nodezd2ze3copzd2default3670ze3zzcgen_cgenz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_za2voidzd2kontza2zd2envz00zzcgen_cgenz00, BgL_bgl__za7a2voidza7d2kontza7a2za7d2za7za7cgen_cgenza7007057za7, BGl__za2voidzd2kontza2zd2zzcgen_cgenz00, 0L, 1 );
DEFINE_STRING( BGl_string6996z00zzcgen_cgenz00, BgL_bgl_string6996za700za7za7cgen_cgenza7007058z00, "node->cop-default3670 test exit cellval aux export location (if (>fx *bdb-debug* 0) (let loop ((cop cop)) (cond ((block? cop) (cop-loc-set! cop #unspecified) (loop (block-body cop))) ((csequence? cop) (with-access::csequence cop (c-exp? cops) (if (and (not c-exp?) (pair? cops)) (begin (cop-loc-set! (car cops) #unspecified) (loop (car cops)))))) ((clabel? cop) (with-access::clabel cop (used? body loc) (if (not used?) (begin (set! loc #unspecified) (loop body)))))))) ", 470 );
DEFINE_STRING( BGl_string6995z00zzcgen_cgenz00, BgL_bgl_string6995za700za7za7cgen_cgenza7007059z00, "No method for this object", 25 );
DEFINE_STRING( BGl_string6994z00zzcgen_cgenz00, BgL_bgl_string6994za700za7za7cgen_cgenza7007060z00, "Unexpected `kwote' node", 23 );
DEFINE_STRING( BGl_string6993z00zzcgen_cgenz00, BgL_bgl_string6993za700za7za7cgen_cgenza7007061z00, "Unexpected `closure' node", 25 );
DEFINE_STRING( BGl_string6992z00zzcgen_cgenz00, BgL_bgl_string6992za700za7za7cgen_cgenza7007062z00, "node->cop", 9 );
DEFINE_STRING( BGl_string6991z00zzcgen_cgenz00, BgL_bgl_string6991za700za7za7cgen_cgenza7007063z00, "(((", 3 );
DEFINE_STRING( BGl_string6990z00zzcgen_cgenz00, BgL_bgl_string6990za700za7za7cgen_cgenza7007064z00, "((((", 4 );
DEFINE_STRING( BGl_string6989z00zzcgen_cgenz00, BgL_bgl_string6989za700za7za7cgen_cgenza7007065z00, ")CREF($1))->", 12 );
DEFINE_STRING( BGl_string6988z00zzcgen_cgenz00, BgL_bgl_string6988za700za7za7cgen_cgenza7007066z00, ") = ((", 6 );
DEFINE_STRING( BGl_string6987z00zzcgen_cgenz00, BgL_bgl_string6987za700za7za7cgen_cgenza7007067z00, ")$2), BUNSPEC)", 14 );
DEFINE_STRING( BGl_string6986z00zzcgen_cgenz00, BgL_bgl_string6986za700za7za7cgen_cgenza7007068z00, ")jmpbuf", 7 );
DEFINE_STRING( BGl_string6961z00zzcgen_cgenz00, BgL_bgl_string6961za700za7za7cgen_cgenza7007069z00, "Illegal local name", 18 );
DEFINE_STRING( BGl_string6960z00zzcgen_cgenz00, BgL_bgl_string6960za700za7za7cgen_cgenza7007070z00, "make-local-svar/name", 20 );
DEFINE_STRING( BGl_string6959z00zzcgen_cgenz00, BgL_bgl_string6959za700za7za7cgen_cgenza7007071z00, ", ", 2 );
DEFINE_STRING( BGl_string6958z00zzcgen_cgenz00, BgL_bgl_string6958za700za7za7cgen_cgenza7007072z00, ")", 1 );
DEFINE_STRING( BGl_string6957z00zzcgen_cgenz00, BgL_bgl_string6957za700za7za7cgen_cgenza7007073z00, "(", 1 );
DEFINE_STRING( BGl_string6956z00zzcgen_cgenz00, BgL_bgl_string6956za700za7za7cgen_cgenza7007074z00, "()", 2 );
DEFINE_STRING( BGl_string6955z00zzcgen_cgenz00, BgL_bgl_string6955za700za7za7cgen_cgenza7007075z00, "BGL_EXPORTED_DEF ", 17 );
DEFINE_STRING( BGl_string6954z00zzcgen_cgenz00, BgL_bgl_string6954za700za7za7cgen_cgenza7007076z00, "}", 1 );
DEFINE_STRING( BGl_string6953z00zzcgen_cgenz00, BgL_bgl_string6953za700za7za7cgen_cgenza7007077z00, "{ obj_t ___ = BUNSPEC; } /* bdb dummy init stmt */", 50 );
DEFINE_STRING( BGl_string6952z00zzcgen_cgenz00, BgL_bgl_string6952za700za7za7cgen_cgenza7007078z00, "{ AN_OBJECT;", 12 );
DEFINE_STRING( BGl_string6951z00zzcgen_cgenz00, BgL_bgl_string6951za700za7za7cgen_cgenza7007079z00, " */", 3 );
DEFINE_STRING( BGl_string6950z00zzcgen_cgenz00, BgL_bgl_string6950za700za7za7cgen_cgenza7007080z00, "/* ", 3 );
DEFINE_EXPORT_PROCEDURE( BGl_nodezd2setqzd2envz00zzcgen_cgenz00, BgL_bgl__nodeza7d2setq6069za7d2za7za7cgen_cgenza7007081za7, BGl__nodezd2setq6069zd2zzcgen_cgenz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_cgenzd2functionzd2envz00zzcgen_cgenz00, BgL_bgl__cgenza7d2function6055za7d2za7za7cgen_cgenza7007082za7, BGl__cgenzd2function6055zd2zzcgen_cgenz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_bdbzd2letzd2varzd2envzd2zzcgen_cgenz00, BgL_bgl__bdbza7d2letza7d2var6067za700za7za7cgen_cgenza7007083z00, BGl__bdbzd2letzd2var6067z00zzcgen_cgenz00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzcgen_cgenz00(long BgL_checksumz00_3753, char * BgL_fromz00_3754)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzcgen_cgenz00))
{ 
BGl_requirezd2initializa7ationz75zzcgen_cgenz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzcgen_cgenz00(); 
BGl_cnstzd2initzd2zzcgen_cgenz00(); 
BGl_importedzd2moduleszd2initz00zzcgen_cgenz00(); 
BGl_methodzd2initzd2zzcgen_cgenz00(); 
BGl_toplevelzd2initzd2zzcgen_cgenz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzcgen_cgenz00()
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 15 */
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "cgen_cgen"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "cgen_cgen"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "cgen_cgen"); 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)0), "cgen_cgen"); 
BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(((long)0), "cgen_cgen"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long)0), "cgen_cgen"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzcgen_cgenz00()
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 15 */
{ /* ./Cgen/cgen.scm 15 */
obj_t BgL_cportz00_3743;
BgL_cportz00_3743 = 
open_input_string(BGl_string6996z00zzcgen_cgenz00); 
{ 
long BgL_iz00_3744;
BgL_iz00_3744 = ((long)7); 
BgL_loopz00_3745:
{ /* ./Cgen/cgen.scm 15 */
bool_t BgL_test6998z00_3746;
BgL_test6998z00_3746 = 
(BgL_iz00_3744==((long)-1)); 
if(BgL_test6998z00_3746)
{ /* ./Cgen/cgen.scm 15 */
return BUNSPEC;}  else 
{ /* ./Cgen/cgen.scm 15 */
{ /* ./Cgen/cgen.scm 15 */
obj_t BgL_arg7000z00_3747;
{ /* ./Cgen/cgen.scm 15 */
obj_t BgL_list7003z00_3748;
BgL_list7003z00_3748 = 
MAKE_PAIR(BgL_cportz00_3743, BNIL); 
BgL_arg7000z00_3747 = 
BGl_readz00zz__readerz00(BgL_list7003z00_3748); } 
{ /* ./Cgen/cgen.scm 15 */
int BgL_auxz00_3774;
BgL_auxz00_3774 = 
(int)(BgL_iz00_3744); 
CNST_TABLE_SET(BgL_auxz00_3774, BgL_arg7000z00_3747); } } 
{ /* ./Cgen/cgen.scm 15 */
int BgL_auxz00_3749;
{ /* ./Cgen/cgen.scm 15 */
long BgL_auxz00_3777;
BgL_auxz00_3777 = 
(BgL_iz00_3744-((long)1)); 
BgL_auxz00_3749 = 
(int)(BgL_auxz00_3777); } 
{ 
long BgL_iz00_3780;
BgL_iz00_3780 = 
(long)(BgL_auxz00_3749); 
BgL_iz00_3744 = BgL_iz00_3780; 
goto BgL_loopz00_3745;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzcgen_cgenz00()
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 15 */
BGl_za2thezd2globalza2zd2zzcgen_cgenz00 = BUNSPEC; 
BGl_za2returnzd2kontza2zd2zzcgen_cgenz00 = BGl_proc6947z00zzcgen_cgenz00; 
BGl_za2idzd2kontza2zd2zzcgen_cgenz00 = BGl_proc6948z00zzcgen_cgenz00; 
BGl_za2stopzd2kontza2zd2zzcgen_cgenz00 = BGl_proc6949z00zzcgen_cgenz00; 
return BUNSPEC;} 
}



/* <anonymous:3747> */
obj_t BGl_zc3anonymousza33747ze3z83zzcgen_cgenz00(obj_t BgL_envz00_3582, obj_t BgL_copz00_3583)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 188 */
{ 
obj_t BgL_copz00_1051;
{ /* ./Cgen/cgen.scm 190 */
BgL_stopz00_bglt BgL_auxz00_3782;
BgL_copz00_1051 = BgL_copz00_3583; 
{ /* ./Cgen/cgen.scm 190 */
obj_t BgL_arg3749z00_2409;
BgL_arg3749z00_2409 = BgL_copz00_1051; 
BgL_auxz00_3782 = 
BGl_makezd2stopzd2zzcgen_copz00(BFALSE, 
(BgL_copz00_bglt)(BgL_arg3749z00_2409)); } 
return 
(obj_t)(BgL_auxz00_3782);} } } 
}



/* <anonymous:3746> */
obj_t BGl_zc3anonymousza33746ze3z83zzcgen_cgenz00(obj_t BgL_envz00_3584, obj_t BgL_copz00_3585)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 176 */
return BgL_copz00_3585;} 
}



/* <anonymous:3721> */
obj_t BGl_zc3anonymousza33721ze3z83zzcgen_cgenz00(obj_t BgL_envz00_3586, obj_t BgL_copz00_3587)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 159 */
{ 
obj_t BgL_copz00_1037;
{ /* ./Cgen/cgen.scm 162 */
BgL_creturnz00_bglt BgL_auxz00_3786;
BgL_copz00_1037 = BgL_copz00_3587; 
{ /* ./Cgen/cgen.scm 162 */
obj_t BgL_arg3723z00_1039;obj_t BgL_arg3724z00_1040;
{ /* ./Cgen/cgen.scm 162 */
BgL_copz00_bglt BgL_obj2662z00_2404;
BgL_obj2662z00_2404 = 
(BgL_copz00_bglt)(BgL_copz00_1037); 
BgL_arg3723z00_1039 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_2404))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 164 */
bool_t BgL_test3727z00_1041;
BgL_test3727z00_1041 = 
BGl_iszd2azf3z21zz__objectz00(BgL_copz00_1037, BGl_csetqz00zzcgen_copz00); 
if(BgL_test3727z00_1041)
{ /* ./Cgen/cgen.scm 164 */
{ /* ./Cgen/cgen.scm 166 */
obj_t BgL_arg3729z00_1042;bool_t BgL_arg3730z00_1043;obj_t BgL_arg3731z00_1044;
{ /* ./Cgen/cgen.scm 166 */
BgL_copz00_bglt BgL_obj2662z00_2406;
BgL_obj2662z00_2406 = 
(BgL_copz00_bglt)(BgL_copz00_1037); 
BgL_arg3729z00_1042 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_2406))->BgL_locz00); } 
BgL_arg3730z00_1043 = ((bool_t)1); 
{ /* ./Cgen/cgen.scm 169 */
BgL_catomz00_bglt BgL_arg3735z00_1045;
{ /* ./Cgen/cgen.scm 169 */
obj_t BgL_arg3743z00_1048;
BgL_arg3743z00_1048 = BUNSPEC; 
BgL_arg3735z00_1045 = 
BGl_makezd2catomzd2zzcgen_copz00(BFALSE, BgL_arg3743z00_1048); } 
{ /* ./Cgen/cgen.scm 168 */
obj_t BgL_list3737z00_1046;
{ /* ./Cgen/cgen.scm 168 */
obj_t BgL_arg3739z00_1047;
{ /* ./Cgen/cgen.scm 168 */
obj_t BgL_auxz00_3794;
BgL_auxz00_3794 = 
(obj_t)(BgL_arg3735z00_1045); 
BgL_arg3739z00_1047 = 
MAKE_PAIR(BgL_auxz00_3794, BNIL); } 
BgL_list3737z00_1046 = 
MAKE_PAIR(BgL_copz00_1037, BgL_arg3739z00_1047); } 
BgL_arg3731z00_1044 = BgL_list3737z00_1046; } } 
{ /* ./Cgen/cgen.scm 165 */
BgL_csequencez00_bglt BgL_auxz00_3798;
BgL_auxz00_3798 = 
BGl_makezd2csequencezd2zzcgen_copz00(BgL_arg3729z00_1042, BgL_arg3730z00_1043, BgL_arg3731z00_1044); 
BgL_arg3724z00_1040 = 
(obj_t)(BgL_auxz00_3798); } } }  else 
{ /* ./Cgen/cgen.scm 164 */
BgL_arg3724z00_1040 = BgL_copz00_1037; } } 
BgL_auxz00_3786 = 
BGl_makezd2creturnzd2zzcgen_copz00(BgL_arg3723z00_1039, 
(BgL_copz00_bglt)(BgL_arg3724z00_1040)); } 
return 
(obj_t)(BgL_auxz00_3786);} } } 
}



/* cgen-function */
BGL_EXPORTED_DEF obj_t BGl_cgenzd2functionzd2zzcgen_cgenz00(BgL_globalz00_bglt BgL_globalz00_15)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 49 */
{ /* ./Cgen/cgen.scm 50 */
obj_t BgL_arg3785z00_1064;
{ /* ./Cgen/cgen.scm 50 */
BgL_variablez00_bglt BgL_obj1093z00_2425;
BgL_obj1093z00_2425 = 
(BgL_variablez00_bglt)(BgL_globalz00_15); 
BgL_arg3785z00_1064 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1093z00_2425))->BgL_idz00); } 
BGl_enterzd2functionzd2zztools_errorz00(BgL_arg3785z00_1064); } 
BGl_za2thezd2globalza2zd2zzcgen_cgenz00 = 
(obj_t)(BgL_globalz00_15); 
{ /* ./Cgen/cgen.scm 55 */
obj_t BgL_shz00_1065;
BgL_shz00_1065 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_globalz00_15)); BUNSPEC; } 
{ /* ./Cgen/cgen.scm 57 */
BgL_sfunz00_bglt BgL_sfunz00_1066;
{ /* ./Cgen/cgen.scm 57 */
BgL_sfunz00_bglt BgL_obj3516z00_1081;
{ 
BgL_sfunz00_bglt BgL_auxz00_3810;
{ /* ./Cgen/cgen.scm 57 */
BgL_valuez00_bglt BgL_auxz00_3811;
{ /* ./Cgen/cgen.scm 57 */
BgL_variablez00_bglt BgL_obj1100z00_3751;
BgL_obj1100z00_3751 = 
(BgL_variablez00_bglt)(BgL_globalz00_15); 
BgL_auxz00_3811 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_3751))->BgL_valuez00); } 
BgL_auxz00_3810 = 
(BgL_sfunz00_bglt)(BgL_auxz00_3811); } 
BgL_obj3516z00_1081 = 
((BgL_sfunz00_bglt)BgL_auxz00_3810); } 
{ /* ./Cgen/cgen.scm 59 */
obj_t BgL_arg3837z00_1082;
{ /* ./Cgen/cgen.scm 59 */
BgL_clabelz00_bglt BgL_arg3840z00_1083;bool_t BgL_arg3841z00_1084;
{ /* ./Cgen/cgen.scm 59 */
obj_t BgL_arg3844z00_1085;obj_t BgL_arg3845z00_1086;
{ /* ./Cgen/cgen.scm 59 */
BgL_sfunz00_bglt BgL_obj1380z00_2428;
{ /* ./Cgen/cgen.scm 59 */
BgL_valuez00_bglt BgL_auxz00_3816;
{ /* ./Cgen/cgen.scm 59 */
BgL_variablez00_bglt BgL_obj1100z00_2427;
BgL_obj1100z00_2427 = 
(BgL_variablez00_bglt)(BgL_globalz00_15); 
BgL_auxz00_3816 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2427))->BgL_valuez00); } 
BgL_obj1380z00_2428 = 
(BgL_sfunz00_bglt)(BgL_auxz00_3816); } 
BgL_arg3844z00_1085 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1380z00_2428))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 60 */
BgL_variablez00_bglt BgL_obj1094z00_2429;
BgL_obj1094z00_2429 = 
(BgL_variablez00_bglt)(BgL_globalz00_15); 
BgL_arg3845z00_1086 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1094z00_2429))->BgL_namez00); } 
BgL_arg3840z00_1083 = 
BGl_makezd2clabelzd2zzcgen_copz00(BgL_arg3844z00_1085, BgL_arg3845z00_1086, ((bool_t)0), BUNSPEC); } 
BgL_arg3841z00_1084 = ((bool_t)1); 
BgL_arg3837z00_1082 = 
BGl_wideningzd2sfunzf2Cz20zzcgen_copz00(BgL_arg3840z00_1083, BgL_arg3841z00_1084); } 
{ /* ./Cgen/cgen.scm 57 */
BgL_objectz00_bglt BgL_auxz00_3825;
BgL_auxz00_3825 = 
(BgL_objectz00_bglt)(BgL_obj3516z00_1081); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3825, BgL_arg3837z00_1082); } } 
{ /* ./Cgen/cgen.scm 57 */
long BgL_arg3853z00_1088;
BgL_arg3853z00_1088 = 
BGl_classzd2numzd2zz__objectz00(BGl_sfunzf2Czf2zzcgen_copz00); 
{ /* ./Cgen/cgen.scm 57 */
BgL_objectz00_bglt BgL_objz00_2430;
BgL_objz00_2430 = 
(BgL_objectz00_bglt)(BgL_obj3516z00_1081); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2430, BgL_arg3853z00_1088); } } 
{ /* ./Cgen/cgen.scm 57 */
obj_t BgL_objz00_2432;
BgL_objz00_2432 = 
(obj_t)(BgL_obj3516z00_1081); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2432); BUNSPEC; } 
BgL_sfunz00_1066 = BgL_obj3516z00_1081; } 
{ /* ./Cgen/cgen.scm 57 */
obj_t BgL_locz00_1067;
BgL_locz00_1067 = 
(((BgL_sfunz00_bglt)CREF(BgL_sfunz00_1066))->BgL_locz00); 
{ /* ./Cgen/cgen.scm 62 */
BgL_copz00_bglt BgL_copz00_1068;
{ /* ./Cgen/cgen.scm 63 */
obj_t BgL_arg3826z00_1077;obj_t BgL_arg3827z00_1078;
BgL_arg3826z00_1077 = 
(((BgL_sfunz00_bglt)CREF(BgL_sfunz00_1066))->BgL_bodyz00); 
{ /* ./Cgen/cgen.scm 64 */
bool_t BgL_test3830z00_1079;
{ /* ./Cgen/cgen.scm 64 */
BgL_typez00_bglt BgL_arg3832z00_1080;
{ /* ./Cgen/cgen.scm 64 */
BgL_variablez00_bglt BgL_obj1097z00_2435;
BgL_obj1097z00_2435 = 
(BgL_variablez00_bglt)(BgL_globalz00_15); 
BgL_arg3832z00_1080 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_2435))->BgL_typez00); } 
{ /* ./Cgen/cgen.scm 64 */
obj_t BgL_auxz00_3837;
BgL_auxz00_3837 = 
(obj_t)(BgL_arg3832z00_1080); 
BgL_test3830z00_1079 = 
(BgL_auxz00_3837==BGl_za2voidza2z00zztype_cachez00); } } 
if(BgL_test3830z00_1079)
{ /* ./Cgen/cgen.scm 64 */
BgL_arg3827z00_1078 = BGl_za2voidzd2kontza2zd2envz00zzcgen_cgenz00; }  else 
{ /* ./Cgen/cgen.scm 64 */
BgL_arg3827z00_1078 = BGl_za2returnzd2kontza2zd2zzcgen_cgenz00; } } 
{ /* ./Cgen/cgen.scm 63 */
BgL_copz00_bglt BgL_res5954z00_2463;
{ /* ./Cgen/cgen.scm 63 */
BgL_nodez00_bglt BgL_nodez00_2436;
BgL_nodez00_2436 = 
(BgL_nodez00_bglt)(BgL_arg3826z00_1077); 
{ /* ./Cgen/cgen.scm 63 */
obj_t BgL_method3671z00_2438;
{ /* ./Cgen/cgen.scm 63 */
BgL_objectz00_bglt BgL_objz00_2439;
BgL_objz00_2439 = 
(BgL_objectz00_bglt)(BgL_nodez00_2436); 
{ /* ./Cgen/cgen.scm 63 */
long BgL_objzd2classzd2numz00_2440;
BgL_objzd2classzd2numz00_2440 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2439); 
{ /* ./Cgen/cgen.scm 63 */
obj_t BgL_arg2017z00_2441;
{ /* ./Cgen/cgen.scm 63 */
int BgL_auxz00_3844;
BgL_auxz00_3844 = 
(int)(((long)1)); 
BgL_arg2017z00_2441 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_3844); } 
{ /* ./Cgen/cgen.scm 63 */
int BgL_offsetz00_2444;
BgL_offsetz00_2444 = 
(int)(BgL_objzd2classzd2numz00_2440); 
{ /* ./Cgen/cgen.scm 63 */
long BgL_offsetz00_2445;
{ /* ./Cgen/cgen.scm 63 */
long BgL_auxz00_3848;
BgL_auxz00_3848 = 
(long)(BgL_offsetz00_2444); 
BgL_offsetz00_2445 = 
(BgL_auxz00_3848-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 63 */
long BgL_modz00_2446;
{ /* ./Cgen/cgen.scm 63 */
int BgL_arg2028z00_2447;
BgL_arg2028z00_2447 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 63 */
long BgL_n2z00_2455;
BgL_n2z00_2455 = 
(long)(BgL_arg2028z00_2447); 
BgL_modz00_2446 = 
(BgL_offsetz00_2445/BgL_n2z00_2455); } } 
{ /* ./Cgen/cgen.scm 63 */
long BgL_restz00_2448;
{ /* ./Cgen/cgen.scm 63 */
int BgL_arg2024z00_2449;
BgL_arg2024z00_2449 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 63 */
long BgL_n2z00_2458;
BgL_n2z00_2458 = 
(long)(BgL_arg2024z00_2449); 
BgL_restz00_2448 = 
(BgL_offsetz00_2445%BgL_n2z00_2458); } } 
{ /* ./Cgen/cgen.scm 63 */

{ /* ./Cgen/cgen.scm 63 */
obj_t BgL_bucketz00_2450;
{ /* ./Cgen/cgen.scm 63 */
int BgL_kz00_2460;
BgL_kz00_2460 = 
(int)(BgL_modz00_2446); 
BgL_bucketz00_2450 = 
VECTOR_REF(BgL_arg2017z00_2441,BgL_kz00_2460); } 
{ /* ./Cgen/cgen.scm 63 */
int BgL_kz00_2462;
BgL_kz00_2462 = 
(int)(BgL_restz00_2448); 
BgL_method3671z00_2438 = 
VECTOR_REF(BgL_bucketz00_2450,BgL_kz00_2462); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 63 */
obj_t BgL_auxz00_3861;
BgL_auxz00_3861 = 
PROCEDURE_ENTRY(BgL_method3671z00_2438)(BgL_method3671z00_2438, 
(obj_t)(BgL_nodez00_2436), BgL_arg3827z00_1078, BEOA); 
BgL_res5954z00_2463 = 
(BgL_copz00_bglt)(BgL_auxz00_3861); } } } 
BgL_copz00_1068 = BgL_res5954z00_2463; } } 
{ /* ./Cgen/cgen.scm 63 */

BGl_resetzd2bdbzd2locz12z12zzcgen_emitzd2copzd2(); 
{ /* ./Cgen/cgen.scm 68 */
obj_t BgL_portz00_2464;
BgL_portz00_2464 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_2464); } 
{ /* ./Cgen/cgen.scm 69 */
obj_t BgL_portz00_2465;
BgL_portz00_2465 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_2465); } 
display_string(BGl_string6950z00zzcgen_cgenz00, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/cgen.scm 71 */
obj_t BgL_arg3794z00_1069;
BgL_arg3794z00_1069 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_globalz00_15)); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3794z00_1069, BGl_za2czd2portza2zd2zzbackend_c_emitz00); } 
display_string(BGl_string6951z00zzcgen_cgenz00, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BFALSE); 
BGl_resetzd2bdbzd2locz12z12zzcgen_emitzd2copzd2(); 
{ /* ./Cgen/cgen.scm 81 */
BgL_clabelz00_bglt BgL_arg3801z00_1070;
{ /* ./Cgen/cgen.scm 81 */
BgL_sfunzf2czf2_bglt BgL_obj3129z00_2466;
BgL_obj3129z00_2466 = 
(BgL_sfunzf2czf2_bglt)(BgL_sfunz00_1066); 
{ 
obj_t BgL_auxz00_3877;
{ /* ./Cgen/cgen.scm 81 */
BgL_objectz00_bglt BgL_auxz00_3878;
BgL_auxz00_3878 = 
(BgL_objectz00_bglt)(BgL_obj3129z00_2466); 
BgL_auxz00_3877 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3878); } 
BgL_arg3801z00_1070 = 
(((BgL_sfunzf2czf2_bglt)CREF(BgL_auxz00_3877))->BgL_labelz00); } } 
{ /* ./Cgen/cgen.scm 81 */
BgL_clabelz00_bglt BgL_obj2683z00_2467;obj_t BgL_val2681z00_2468;
BgL_obj2683z00_2467 = BgL_arg3801z00_1070; 
BgL_val2681z00_2468 = 
(obj_t)(BgL_copz00_1068); 
((((BgL_clabelz00_bglt)CREF(BgL_obj2683z00_2467))->BgL_bodyz00) = ((obj_t)BgL_val2681z00_2468), BUNSPEC); } } 
BGl_sfunzd2ze3cz31zzcgen_cgenz00(BgL_sfunz00_1066, BgL_globalz00_15); 
{ /* ./Cgen/cgen.scm 83 */
obj_t BgL_copz00_1071;
{ /* ./Cgen/cgen.scm 83 */
BgL_clabelz00_bglt BgL_arg3820z00_1076;
{ /* ./Cgen/cgen.scm 83 */
BgL_sfunzf2czf2_bglt BgL_obj3129z00_2469;
BgL_obj3129z00_2469 = 
(BgL_sfunzf2czf2_bglt)(BgL_sfunz00_1066); 
{ 
obj_t BgL_auxz00_3886;
{ /* ./Cgen/cgen.scm 83 */
BgL_objectz00_bglt BgL_auxz00_3887;
BgL_auxz00_3887 = 
(BgL_objectz00_bglt)(BgL_obj3129z00_2469); 
BgL_auxz00_3886 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3887); } 
BgL_arg3820z00_1076 = 
(((BgL_sfunzf2czf2_bglt)CREF(BgL_auxz00_3886))->BgL_labelz00); } } 
{ /* ./Cgen/cgen.scm 83 */
obj_t BgL_copz00_2470;
BgL_copz00_2470 = 
(obj_t)(BgL_arg3820z00_1076); 
{ /* ./Cgen/cgen.scm 83 */
bool_t BgL_test3928z00_2472;
BgL_test3928z00_2472 = 
BGl_iszd2azf3z21zz__objectz00(BgL_copz00_2470, BGl_blockz00zzcgen_copz00); 
if(BgL_test3928z00_2472)
{ /* ./Cgen/cgen.scm 83 */
BgL_copz00_1071 = BgL_copz00_2470; }  else 
{ /* ./Cgen/cgen.scm 83 */
{ /* ./Cgen/cgen.scm 83 */
obj_t BgL_arg3930z00_2473;obj_t BgL_arg3931z00_2474;
BgL_arg3930z00_2473 = BgL_locz00_1067; 
BgL_arg3931z00_2474 = BgL_copz00_2470; 
{ /* ./Cgen/cgen.scm 83 */
BgL_blockz00_bglt BgL_auxz00_3894;
BgL_auxz00_3894 = 
BGl_makezd2blockzd2zzcgen_copz00(BgL_arg3930z00_2473, 
(BgL_copz00_bglt)(BgL_arg3931z00_2474)); 
BgL_copz00_1071 = 
(obj_t)(BgL_auxz00_3894); } } } } } } 
CNST_TABLE_REF(((long)0)); 
display_string(BGl_string6952z00zzcgen_cgenz00, BGl_za2czd2portza2zd2zzbackend_c_emitz00); 
{ /* ./Cgen/cgen.scm 107 */
bool_t BgL_test3806z00_1072;
{ /* ./Cgen/cgen.scm 107 */
bool_t BgL_test3809z00_1073;
BgL_test3809z00_1073 = 
BGl_2ze3ze3zz__r4_numbers_6_5z00(BGl_za2bdbzd2debugza2zd2zzengine_paramz00, 
BINT(((long)0))); 
if(BgL_test3809z00_1073)
{ /* ./Cgen/cgen.scm 107 */
if(
STRUCTP(BgL_locz00_1067))
{ /* ./Cgen/cgen.scm 107 */
obj_t BgL_auxz00_3907;obj_t BgL_auxz00_3905;
BgL_auxz00_3907 = 
CNST_TABLE_REF(((long)1)); 
BgL_auxz00_3905 = 
STRUCT_KEY(BgL_locz00_1067); 
BgL_test3806z00_1072 = 
(BgL_auxz00_3905==BgL_auxz00_3907); }  else 
{ /* ./Cgen/cgen.scm 107 */
BgL_test3806z00_1072 = ((bool_t)0); } }  else 
{ /* ./Cgen/cgen.scm 107 */
BgL_test3806z00_1072 = ((bool_t)0); } } 
if(BgL_test3806z00_1072)
{ /* ./Cgen/cgen.scm 107 */
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_locz00_1067); 
display_string(BGl_string6953z00zzcgen_cgenz00, BGl_za2czd2portza2zd2zzbackend_c_emitz00); }  else 
{ /* ./Cgen/cgen.scm 107 */BFALSE; } } 
BGl_emitzd2copzd2zzcgen_emitzd2copzd2(
(BgL_copz00_bglt)(BgL_copz00_1071)); 
{ /* ./Cgen/cgen.scm 115 */
obj_t BgL_arg3814z00_1074;
BgL_arg3814z00_1074 = 
BGl_getzd2currentzd2bdbzd2loczd2zzcgen_emitzd2copzd2(); 
BGl_emitzd2bdbzd2locz00zzcgen_emitzd2copzd2(BgL_arg3814z00_1074); } 
{ /* ./Cgen/cgen.scm 117 */
obj_t BgL_port3518z00_1075;
BgL_port3518z00_1075 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
display_string(BGl_string6954z00zzcgen_cgenz00, BgL_port3518z00_1075); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3518z00_1075); } } 
BGl_nozd2bdbzd2newlinez00zzcgen_cgenz00(); 
return 
BGl_leavezd2functionzd2zztools_errorz00();} } } } } 
}



/* _cgen-function6055 */
obj_t BGl__cgenzd2function6055zd2zzcgen_cgenz00(obj_t BgL_envz00_3588, obj_t BgL_globalz00_3589)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 49 */
return 
BGl_cgenzd2functionzd2zzcgen_cgenz00(
(BgL_globalz00_bglt)(BgL_globalz00_3589));} 
}



/* sfun->c */
obj_t BGl_sfunzd2ze3cz31zzcgen_cgenz00(BgL_sfunz00_bglt BgL_sfunz00_16, BgL_globalz00_bglt BgL_variablez00_17)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 131 */
{ /* ./Cgen/cgen.scm 133 */
bool_t BgL_test3858z00_1090;
{ /* ./Cgen/cgen.scm 133 */
obj_t BgL_auxz00_3925;obj_t BgL_auxz00_3923;
BgL_auxz00_3925 = 
CNST_TABLE_REF(((long)2)); 
BgL_auxz00_3923 = 
(((BgL_globalz00_bglt)CREF(BgL_variablez00_17))->BgL_importz00); 
BgL_test3858z00_1090 = 
(BgL_auxz00_3923==BgL_auxz00_3925); } 
if(BgL_test3858z00_1090)
{ /* ./Cgen/cgen.scm 133 */
display_string(BGl_string6955z00zzcgen_cgenz00, BGl_za2czd2portza2zd2zzbackend_c_emitz00); }  else 
{ /* ./Cgen/cgen.scm 133 */BFALSE; } } 
{ /* ./Cgen/cgen.scm 135 */
obj_t BgL_arg3866z00_1093;
{ /* ./Cgen/cgen.scm 135 */
BgL_typez00_bglt BgL_arg3869z00_1094;obj_t BgL_arg3870z00_1095;
{ /* ./Cgen/cgen.scm 135 */
BgL_variablez00_bglt BgL_obj1097z00_2485;
BgL_obj1097z00_2485 = 
(BgL_variablez00_bglt)(BgL_variablez00_17); 
BgL_arg3869z00_1094 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_2485))->BgL_typez00); } 
{ /* ./Cgen/cgen.scm 137 */
obj_t BgL_arg3874z00_1096;obj_t BgL_arg3875z00_1097;
{ /* ./Cgen/cgen.scm 137 */
BgL_variablez00_bglt BgL_obj1094z00_2486;
BgL_obj1094z00_2486 = 
(BgL_variablez00_bglt)(BgL_variablez00_17); 
BgL_arg3874z00_1096 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1094z00_2486))->BgL_namez00); } 
{ /* ./Cgen/cgen.scm 139 */
bool_t BgL_test3878z00_1098;
{ /* ./Cgen/cgen.scm 139 */
obj_t BgL_auxz00_3934;
BgL_auxz00_3934 = 
(((BgL_sfunz00_bglt)CREF(BgL_sfunz00_16))->BgL_argsz00); 
BgL_test3878z00_1098 = 
NULLP(BgL_auxz00_3934); } 
if(BgL_test3878z00_1098)
{ /* ./Cgen/cgen.scm 139 */
BgL_arg3875z00_1097 = BGl_string6956z00zzcgen_cgenz00; }  else 
{ /* ./Cgen/cgen.scm 141 */
obj_t BgL_arg3881z00_1100;
{ /* ./Cgen/cgen.scm 143 */
obj_t BgL_arg3885z00_1103;
BgL_arg3885z00_1103 = 
(((BgL_sfunz00_bglt)CREF(BgL_sfunz00_16))->BgL_argsz00); 
BgL_arg3881z00_1100 = 
BGl_loopz00zzcgen_cgenz00(BgL_arg3885z00_1103); } 
BgL_arg3875z00_1097 = 
string_append(BGl_string6957z00zzcgen_cgenz00, BgL_arg3881z00_1100); } } 
BgL_arg3870z00_1095 = 
string_append(BgL_arg3874z00_1096, BgL_arg3875z00_1097); } 
BgL_arg3866z00_1093 = 
BGl_makezd2typedzd2declarationz00zztype_toolsz00(BgL_arg3869z00_1094, BgL_arg3870z00_1095); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3866z00_1093, BGl_za2czd2portza2zd2zzbackend_c_emitz00); } 
return 
BGl_nozd2bdbzd2newlinez00zzcgen_cgenz00();} 
}



/* loop */
obj_t BGl_loopz00zzcgen_cgenz00(obj_t BgL_argsz00_1101)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 143 */
{ /* ./Cgen/cgen.scm 144 */
bool_t BgL_test3888z00_1104;
{ /* ./Cgen/cgen.scm 144 */
obj_t BgL_auxz00_3945;
BgL_auxz00_3945 = 
CDR(BgL_argsz00_1101); 
BgL_test3888z00_1104 = 
NULLP(BgL_auxz00_3945); } 
if(BgL_test3888z00_1104)
{ /* ./Cgen/cgen.scm 145 */
obj_t BgL_instance3521z00_1105;
BgL_instance3521z00_1105 = 
CAR(BgL_argsz00_1101); 
{ /* ./Cgen/cgen.scm 147 */
obj_t BgL_arg3890z00_1106;
{ /* ./Cgen/cgen.scm 147 */
BgL_typez00_bglt BgL_arg3894z00_1108;obj_t BgL_arg3895z00_1109;
{ /* ./Cgen/cgen.scm 147 */
BgL_variablez00_bglt BgL_obj1097z00_2493;
BgL_obj1097z00_2493 = 
(BgL_variablez00_bglt)(BgL_instance3521z00_1105); 
BgL_arg3894z00_1108 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_2493))->BgL_typez00); } 
{ /* ./Cgen/cgen.scm 147 */
BgL_variablez00_bglt BgL_obj1094z00_2494;
BgL_obj1094z00_2494 = 
(BgL_variablez00_bglt)(BgL_instance3521z00_1105); 
BgL_arg3895z00_1109 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1094z00_2494))->BgL_namez00); } 
BgL_arg3890z00_1106 = 
BGl_makezd2typedzd2declarationz00zztype_toolsz00(BgL_arg3894z00_1108, BgL_arg3895z00_1109); } 
return 
string_append(BgL_arg3890z00_1106, BGl_string6958z00zzcgen_cgenz00);} }  else 
{ /* ./Cgen/cgen.scm 148 */
obj_t BgL_instance3523z00_1110;
BgL_instance3523z00_1110 = 
CAR(BgL_argsz00_1101); 
{ /* ./Cgen/cgen.scm 150 */
obj_t BgL_arg3901z00_1111;obj_t BgL_arg3903z00_1113;
{ /* ./Cgen/cgen.scm 150 */
BgL_typez00_bglt BgL_arg3906z00_1114;obj_t BgL_arg3907z00_1115;
{ /* ./Cgen/cgen.scm 150 */
BgL_variablez00_bglt BgL_obj1097z00_2496;
BgL_obj1097z00_2496 = 
(BgL_variablez00_bglt)(BgL_instance3523z00_1110); 
BgL_arg3906z00_1114 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_2496))->BgL_typez00); } 
{ /* ./Cgen/cgen.scm 150 */
BgL_variablez00_bglt BgL_obj1094z00_2497;
BgL_obj1094z00_2497 = 
(BgL_variablez00_bglt)(BgL_instance3523z00_1110); 
BgL_arg3907z00_1115 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1094z00_2497))->BgL_namez00); } 
BgL_arg3901z00_1111 = 
BGl_makezd2typedzd2declarationz00zztype_toolsz00(BgL_arg3906z00_1114, BgL_arg3907z00_1115); } 
{ /* ./Cgen/cgen.scm 152 */
obj_t BgL_arg3912z00_1116;
BgL_arg3912z00_1116 = 
CDR(BgL_argsz00_1101); 
BgL_arg3903z00_1113 = 
BGl_loopz00zzcgen_cgenz00(BgL_arg3912z00_1116); } 
return 
string_append_3(BgL_arg3901z00_1111, BGl_string6959z00zzcgen_cgenz00, BgL_arg3903z00_1113);} } } } 
}



/* *void-kont* */
BgL_cvoidz00_bglt BGl_za2voidzd2kontza2zd2zzcgen_cgenz00(obj_t BgL_copz00_18)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 181 */
{ /* ./Cgen/cgen.scm 183 */
obj_t BgL_arg3926z00_2499;
BgL_arg3926z00_2499 = BgL_copz00_18; 
return 
BGl_makezd2cvoidzd2zzcgen_copz00(BFALSE, 
(BgL_copz00_bglt)(BgL_arg3926z00_2499));} } 
}



/* _*void-kont* */
obj_t BGl__za2voidzd2kontza2zd2zzcgen_cgenz00(obj_t BgL_envz00_3590, obj_t BgL_copz00_3591)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 181 */
{ /* ./Cgen/cgen.scm 183 */
BgL_cvoidz00_bglt BgL_auxz00_3967;
BgL_auxz00_3967 = 
BGl_za2voidzd2kontza2zd2zzcgen_cgenz00(BgL_copz00_3591); 
return 
(obj_t)(BgL_auxz00_3967);} } 
}



/* block-kont */
BGL_EXPORTED_DEF obj_t BGl_blockzd2kontzd2zzcgen_cgenz00(obj_t BgL_copz00_19, obj_t BgL_locz00_20)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 195 */
{ /* ./Cgen/cgen.scm 197 */
bool_t BgL_test3928z00_2500;
BgL_test3928z00_2500 = 
BGl_iszd2azf3z21zz__objectz00(BgL_copz00_19, BGl_blockz00zzcgen_copz00); 
if(BgL_test3928z00_2500)
{ /* ./Cgen/cgen.scm 197 */
return BgL_copz00_19;}  else 
{ /* ./Cgen/cgen.scm 197 */
{ /* ./Cgen/cgen.scm 197 */
obj_t BgL_arg3930z00_2501;obj_t BgL_arg3931z00_2502;
BgL_arg3930z00_2501 = BgL_locz00_20; 
BgL_arg3931z00_2502 = BgL_copz00_19; 
{ /* ./Cgen/cgen.scm 197 */
BgL_blockz00_bglt BgL_auxz00_3972;
BgL_auxz00_3972 = 
BGl_makezd2blockzd2zzcgen_copz00(BgL_arg3930z00_2501, 
(BgL_copz00_bglt)(BgL_arg3931z00_2502)); 
return 
(obj_t)(BgL_auxz00_3972);} } } } } 
}



/* _block-kont */
obj_t BGl__blockzd2kontzd2zzcgen_cgenz00(obj_t BgL_envz00_3595, obj_t BgL_copz00_3596, obj_t BgL_locz00_3597)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 195 */
return 
BGl_blockzd2kontzd2zzcgen_cgenz00(BgL_copz00_3596, BgL_locz00_3597);} 
}



/* make-setq-kont */
obj_t BGl_makezd2setqzd2kontz00zzcgen_cgenz00(BgL_variablez00_bglt BgL_varz00_23, obj_t BgL_locz00_24, obj_t BgL_kontz00_25)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 217 */
{ /* ./Cgen/cgen.scm 218 */
obj_t BgL_zc3anonymousza33934ze3z83_3598;
{ 
int BgL_auxz00_3979;int BgL_auxz00_3977;
BgL_auxz00_3979 = 
(int)(((long)3)); 
BgL_auxz00_3977 = 
(int)(((long)1)); 
BgL_zc3anonymousza33934ze3z83_3598 = 
make_fx_procedure(BGl_zc3anonymousza33934ze3z83zzcgen_cgenz00, BgL_auxz00_3977, BgL_auxz00_3979); } 
{ /* ./Cgen/cgen.scm 218 */
int BgL_auxz00_3982;
BgL_auxz00_3982 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza33934ze3z83_3598, BgL_auxz00_3982, BgL_locz00_24); } 
{ /* ./Cgen/cgen.scm 218 */
obj_t BgL_auxz00_3987;int BgL_auxz00_3985;
BgL_auxz00_3987 = 
(obj_t)(BgL_varz00_23); 
BgL_auxz00_3985 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza33934ze3z83_3598, BgL_auxz00_3985, BgL_auxz00_3987); } 
{ /* ./Cgen/cgen.scm 218 */
int BgL_auxz00_3990;
BgL_auxz00_3990 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza33934ze3z83_3598, BgL_auxz00_3990, BgL_kontz00_25); } 
return BgL_zc3anonymousza33934ze3z83_3598;} } 
}



/* <anonymous:3934> */
obj_t BGl_zc3anonymousza33934ze3z83zzcgen_cgenz00(obj_t BgL_envz00_3599, obj_t BgL_copz00_3603)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 218 */
{ /* ./Cgen/cgen.scm 219 */
obj_t BgL_locz00_3600;obj_t BgL_varz00_3601;obj_t BgL_kontz00_3602;
{ /* ./Cgen/cgen.scm 219 */
int BgL_auxz00_3993;
BgL_auxz00_3993 = 
(int)(((long)0)); 
BgL_locz00_3600 = 
PROCEDURE_REF(BgL_envz00_3599, BgL_auxz00_3993); } 
{ /* ./Cgen/cgen.scm 219 */
int BgL_auxz00_3996;
BgL_auxz00_3996 = 
(int)(((long)1)); 
BgL_varz00_3601 = 
PROCEDURE_REF(BgL_envz00_3599, BgL_auxz00_3996); } 
{ /* ./Cgen/cgen.scm 219 */
int BgL_auxz00_3999;
BgL_auxz00_3999 = 
(int)(((long)2)); 
BgL_kontz00_3602 = 
PROCEDURE_REF(BgL_envz00_3599, BgL_auxz00_3999); } 
{ 
obj_t BgL_copz00_1123;
BgL_copz00_1123 = BgL_copz00_3603; 
{ /* ./Cgen/cgen.scm 219 */
bool_t BgL_test3935z00_1125;
BgL_test3935z00_1125 = 
BGl_iszd2azf3z21zz__objectz00(BgL_copz00_1123, BGl_cfailz00zzcgen_copz00); 
if(BgL_test3935z00_1125)
{ /* ./Cgen/cgen.scm 219 */
return BgL_copz00_1123;}  else 
{ /* ./Cgen/cgen.scm 234 */
BgL_csetqz00_bglt BgL_arg3937z00_1126;
{ /* ./Cgen/cgen.scm 234 */
obj_t BgL_arg3940z00_1127;BgL_varcz00_bglt BgL_arg3941z00_1128;obj_t BgL_arg3943z00_1129;
BgL_arg3940z00_1127 = BgL_locz00_3600; 
{ /* ./Cgen/cgen.scm 222 */
obj_t BgL_arg3946z00_1130;
BgL_arg3946z00_1130 = BgL_varz00_3601; 
BgL_arg3941z00_1128 = 
BGl_makezd2varczd2zzcgen_copz00(BFALSE, 
(BgL_variablez00_bglt)(BgL_arg3946z00_1130)); } 
{ /* ./Cgen/cgen.scm 224 */
bool_t BgL_test3948z00_1131;
BgL_test3948z00_1131 = 
BGl_iszd2azf3z21zz__objectz00(BgL_copz00_1123, BGl_csetqz00zzcgen_copz00); 
if(BgL_test3948z00_1131)
{ /* ./Cgen/cgen.scm 224 */
{ /* ./Cgen/cgen.scm 226 */
obj_t BgL_arg3950z00_1132;bool_t BgL_arg3951z00_1133;obj_t BgL_arg3952z00_1134;
{ /* ./Cgen/cgen.scm 226 */
BgL_copz00_bglt BgL_obj2662z00_2506;
BgL_obj2662z00_2506 = 
(BgL_copz00_bglt)(BgL_copz00_1123); 
BgL_arg3950z00_1132 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_2506))->BgL_locz00); } 
BgL_arg3951z00_1133 = ((bool_t)1); 
{ /* ./Cgen/cgen.scm 230 */
BgL_catomz00_bglt BgL_arg3956z00_1135;
{ /* ./Cgen/cgen.scm 230 */
obj_t BgL_arg3964z00_1138;obj_t BgL_arg3965z00_1139;
{ /* ./Cgen/cgen.scm 230 */
BgL_copz00_bglt BgL_obj2662z00_2507;
BgL_obj2662z00_2507 = 
(BgL_copz00_bglt)(BgL_copz00_1123); 
BgL_arg3964z00_1138 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_2507))->BgL_locz00); } 
BgL_arg3965z00_1139 = BUNSPEC; 
BgL_arg3956z00_1135 = 
BGl_makezd2catomzd2zzcgen_copz00(BgL_arg3964z00_1138, BgL_arg3965z00_1139); } 
{ /* ./Cgen/cgen.scm 228 */
obj_t BgL_list3958z00_1136;
{ /* ./Cgen/cgen.scm 228 */
obj_t BgL_arg3960z00_1137;
{ /* ./Cgen/cgen.scm 228 */
obj_t BgL_auxz00_4013;
BgL_auxz00_4013 = 
(obj_t)(BgL_arg3956z00_1135); 
BgL_arg3960z00_1137 = 
MAKE_PAIR(BgL_auxz00_4013, BNIL); } 
BgL_list3958z00_1136 = 
MAKE_PAIR(BgL_copz00_1123, BgL_arg3960z00_1137); } 
BgL_arg3952z00_1134 = BgL_list3958z00_1136; } } 
{ /* ./Cgen/cgen.scm 225 */
BgL_csequencez00_bglt BgL_auxz00_4017;
BgL_auxz00_4017 = 
BGl_makezd2csequencezd2zzcgen_copz00(BgL_arg3950z00_1132, BgL_arg3951z00_1133, BgL_arg3952z00_1134); 
BgL_arg3943z00_1129 = 
(obj_t)(BgL_auxz00_4017); } } }  else 
{ /* ./Cgen/cgen.scm 224 */
BgL_arg3943z00_1129 = BgL_copz00_1123; } } 
BgL_arg3937z00_1126 = 
BGl_makezd2csetqzd2zzcgen_copz00(BgL_arg3940z00_1127, BgL_arg3941z00_1128, 
(BgL_copz00_bglt)(BgL_arg3943z00_1129)); } 
return 
PROCEDURE_ENTRY(BgL_kontz00_3602)(BgL_kontz00_3602, 
(obj_t)(BgL_arg3937z00_1126), BEOA);} } } } } 
}



/* extern->cop */
obj_t BGl_externzd2ze3copz31zzcgen_cgenz00(obj_t BgL_formatz00_40, BgL_externz00_bglt BgL_nodez00_41, obj_t BgL_kontz00_42)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 320 */
{ /* ./Cgen/cgen.scm 325 */
obj_t BgL_arg3971z00_1141;obj_t BgL_arg3972z00_1142;
BgL_arg3971z00_1141 = 
(((BgL_externz00_bglt)CREF(BgL_nodez00_41))->BgL_exprza2za2); 
{ /* ./Cgen/cgen.scm 325 */
BgL_nodez00_bglt BgL_obj1560z00_2511;
BgL_obj1560z00_2511 = 
(BgL_nodez00_bglt)(BgL_nodez00_41); 
BgL_arg3972z00_1142 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2511))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 329 */
obj_t BgL_zc3anonymousza33977ze3z83_3604;
{ 
int BgL_auxz00_4028;
BgL_auxz00_4028 = 
(int)(((long)3)); 
BgL_zc3anonymousza33977ze3z83_3604 = 
MAKE_L_PROCEDURE(BGl_zc3anonymousza33977ze3z83zzcgen_cgenz00, BgL_auxz00_4028); } 
{ /* ./Cgen/cgen.scm 329 */
obj_t BgL_auxz00_4033;int BgL_auxz00_4031;
BgL_auxz00_4033 = 
(obj_t)(BgL_nodez00_41); 
BgL_auxz00_4031 = 
(int)(((long)0)); 
PROCEDURE_L_SET(BgL_zc3anonymousza33977ze3z83_3604, BgL_auxz00_4031, BgL_auxz00_4033); } 
{ /* ./Cgen/cgen.scm 329 */
int BgL_auxz00_4036;
BgL_auxz00_4036 = 
(int)(((long)1)); 
PROCEDURE_L_SET(BgL_zc3anonymousza33977ze3z83_3604, BgL_auxz00_4036, BgL_formatz00_40); } 
{ /* ./Cgen/cgen.scm 329 */
int BgL_auxz00_4039;
BgL_auxz00_4039 = 
(int)(((long)2)); 
PROCEDURE_L_SET(BgL_zc3anonymousza33977ze3z83_3604, BgL_auxz00_4039, BgL_kontz00_42); } 
return 
BGl_nodezd2argszd2ze3copze3zzcgen_cgenz00(BgL_arg3971z00_1141, BgL_arg3972z00_1142, BgL_zc3anonymousza33977ze3z83_3604);} } } 
}



/* <anonymous:3977> */
obj_t BGl_zc3anonymousza33977ze3z83zzcgen_cgenz00(obj_t BgL_envz00_3605, obj_t BgL_newzd2argszd2_3609)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 327 */
{ /* ./Cgen/cgen.scm 329 */
obj_t BgL_instance3546z00_3606;obj_t BgL_formatz00_3607;obj_t BgL_kontz00_3608;
{ /* ./Cgen/cgen.scm 329 */
int BgL_auxz00_4043;
BgL_auxz00_4043 = 
(int)(((long)0)); 
BgL_instance3546z00_3606 = 
PROCEDURE_L_REF(BgL_envz00_3605, BgL_auxz00_4043); } 
{ /* ./Cgen/cgen.scm 329 */
int BgL_auxz00_4046;
BgL_auxz00_4046 = 
(int)(((long)1)); 
BgL_formatz00_3607 = 
PROCEDURE_L_REF(BgL_envz00_3605, BgL_auxz00_4046); } 
{ /* ./Cgen/cgen.scm 329 */
int BgL_auxz00_4049;
BgL_auxz00_4049 = 
(int)(((long)2)); 
BgL_kontz00_3608 = 
PROCEDURE_L_REF(BgL_envz00_3605, BgL_auxz00_4049); } 
{ 
obj_t BgL_newzd2argszd2_1144;
BgL_newzd2argszd2_1144 = BgL_newzd2argszd2_3609; 
{ /* ./Cgen/cgen.scm 329 */
BgL_cpragmaz00_bglt BgL_arg3979z00_1146;
{ /* ./Cgen/cgen.scm 329 */
obj_t BgL_arg3982z00_1147;obj_t BgL_arg3983z00_1148;obj_t BgL_arg3984z00_1149;
{ /* ./Cgen/cgen.scm 329 */
BgL_nodez00_bglt BgL_obj1560z00_2512;
BgL_obj1560z00_2512 = 
(BgL_nodez00_bglt)(BgL_instance3546z00_3606); 
BgL_arg3982z00_1147 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2512))->BgL_locz00); } 
BgL_arg3983z00_1148 = BgL_formatz00_3607; 
BgL_arg3984z00_1149 = BgL_newzd2argszd2_1144; 
BgL_arg3979z00_1146 = 
BGl_makezd2cpragmazd2zzcgen_copz00(BgL_arg3982z00_1147, BgL_arg3983z00_1148, BgL_arg3984z00_1149); } 
return 
PROCEDURE_ENTRY(BgL_kontz00_3608)(BgL_kontz00_3608, 
(obj_t)(BgL_arg3979z00_1146), BEOA);} } } } 
}



/* bdb-let-var */
BGL_EXPORTED_DEF BgL_copz00_bglt BGl_bdbzd2letzd2varz00zzcgen_cgenz00(BgL_copz00_bglt BgL_copz00_71, obj_t BgL_locz00_72)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 593 */
{ /* ./Cgen/cgen.scm 594 */
bool_t BgL_test3987z00_1151;
{ /* ./Cgen/cgen.scm 594 */
bool_t BgL_test3992z00_1154;
{ /* ./Cgen/cgen.scm 594 */
long BgL_n1z00_2513;
BgL_n1z00_2513 = 
(long)CINT(BGl_za2bdbzd2debugza2zd2zzengine_paramz00); 
BgL_test3992z00_1154 = 
(BgL_n1z00_2513>((long)0)); } 
if(BgL_test3992z00_1154)
{ /* ./Cgen/cgen.scm 594 */
if(
STRUCTP(BgL_locz00_72))
{ /* ./Cgen/cgen.scm 594 */
obj_t BgL_auxz00_4065;obj_t BgL_auxz00_4063;
BgL_auxz00_4065 = 
CNST_TABLE_REF(((long)1)); 
BgL_auxz00_4063 = 
STRUCT_KEY(BgL_locz00_72); 
BgL_test3987z00_1151 = 
(BgL_auxz00_4063==BgL_auxz00_4065); }  else 
{ /* ./Cgen/cgen.scm 594 */
BgL_test3987z00_1151 = ((bool_t)0); } }  else 
{ /* ./Cgen/cgen.scm 594 */
BgL_test3987z00_1151 = ((bool_t)0); } } 
if(BgL_test3987z00_1151)
{ /* ./Cgen/cgen.scm 596 */
obj_t BgL_arg3989z00_1152;BgL_copz00_bglt BgL_arg3990z00_1153;
BgL_arg3989z00_1152 = BgL_locz00_72; 
BgL_arg3990z00_1153 = BgL_copz00_71; 
{ /* ./Cgen/cgen.scm 595 */
BgL_bdbzd2blockzd2_bglt BgL_auxz00_4069;
BgL_auxz00_4069 = 
BGl_makezd2bdbzd2blockz00zzcgen_copz00(BgL_arg3989z00_1152, BgL_arg3990z00_1153); 
return 
(BgL_copz00_bglt)(BgL_auxz00_4069);} }  else 
{ /* ./Cgen/cgen.scm 594 */
return BgL_copz00_71;} } } 
}



/* _bdb-let-var6067 */
obj_t BGl__bdbzd2letzd2var6067z00zzcgen_cgenz00(obj_t BgL_envz00_3610, obj_t BgL_copz00_3611, obj_t BgL_locz00_3612)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 593 */
{ /* ./Cgen/cgen.scm 594 */
BgL_copz00_bglt BgL_auxz00_4072;
BgL_auxz00_4072 = 
BGl_bdbzd2letzd2varz00zzcgen_cgenz00(
(BgL_copz00_bglt)(BgL_copz00_3611), BgL_locz00_3612); 
return 
(obj_t)(BgL_auxz00_4072);} } 
}



/* node-setq */
BGL_EXPORTED_DEF BgL_setqz00_bglt BGl_nodezd2setqzd2zzcgen_cgenz00(BgL_variablez00_bglt BgL_variablez00_83, BgL_nodez00_bglt BgL_valuez00_84)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 792 */
{ /* ./Cgen/cgen.scm 794 */
obj_t BgL_arg3996z00_1155;obj_t BgL_arg3997z00_1156;BgL_varz00_bglt BgL_arg3998z00_1157;BgL_nodez00_bglt BgL_arg3999z00_1158;
BgL_arg3996z00_1155 = 
(((BgL_nodez00_bglt)CREF(BgL_valuez00_84))->BgL_locz00); 
BgL_arg3997z00_1156 = BGl_za2unspecza2z00zztype_cachez00; 
{ /* ./Cgen/cgen.scm 797 */
bool_t BgL_arg4003z00_1159;BgL_typez00_bglt BgL_arg4004z00_1160;BgL_variablez00_bglt BgL_arg4005z00_1161;
BgL_arg4003z00_1159 = ((bool_t)0); 
BgL_arg4004z00_1160 = 
(((BgL_variablez00_bglt)CREF(BgL_variablez00_83))->BgL_typez00); 
BgL_arg4005z00_1161 = BgL_variablez00_83; 
BgL_arg3998z00_1157 = 
BGl_makezd2varzd2zzast_nodez00(
BBOOL(BgL_arg4003z00_1159), BgL_arg4004z00_1160, BgL_arg4005z00_1161); } 
BgL_arg3999z00_1158 = BgL_valuez00_84; 
return 
BGl_makezd2setqzd2zzast_nodez00(BgL_arg3996z00_1155, 
(BgL_typez00_bglt)(BgL_arg3997z00_1156), BgL_arg3998z00_1157, BgL_arg3999z00_1158);} } 
}



/* _node-setq6069 */
obj_t BGl__nodezd2setq6069zd2zzcgen_cgenz00(obj_t BgL_envz00_3613, obj_t BgL_variablez00_3614, obj_t BgL_valuez00_3615)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 792 */
{ /* ./Cgen/cgen.scm 794 */
BgL_setqz00_bglt BgL_auxz00_4082;
BgL_auxz00_4082 = 
BGl_nodezd2setqzd2zzcgen_cgenz00(
(BgL_variablez00_bglt)(BgL_variablez00_3614), 
(BgL_nodez00_bglt)(BgL_valuez00_3615)); 
return 
(obj_t)(BgL_auxz00_4082);} } 
}



/* make-local-svar/name */
BGL_EXPORTED_DEF BgL_localz00_bglt BGl_makezd2localzd2svarzf2namezf2zzcgen_cgenz00(obj_t BgL_idz00_85, BgL_typez00_bglt BgL_typez00_86)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 805 */
{ /* ./Cgen/cgen.scm 806 */
BgL_localz00_bglt BgL_localz00_1162;
BgL_localz00_1162 = 
BGl_makezd2localzd2svarz00zzast_localz00(BgL_idz00_85, BgL_typez00_86); 
{ /* ./Cgen/cgen.scm 807 */
bool_t BgL_test4008z00_1163;
{ /* ./Cgen/cgen.scm 807 */
obj_t BgL_auxz00_4088;
{ /* ./Cgen/cgen.scm 807 */
BgL_variablez00_bglt BgL_obj1094z00_2524;
BgL_obj1094z00_2524 = 
(BgL_variablez00_bglt)(BgL_localz00_1162); 
BgL_auxz00_4088 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1094z00_2524))->BgL_namez00); } 
BgL_test4008z00_1163 = 
STRINGP(BgL_auxz00_4088); } 
if(BgL_test4008z00_1163)
{ /* ./Cgen/cgen.scm 807 */((bool_t)0); }  else 
{ /* ./Cgen/cgen.scm 808 */
obj_t BgL_objectz00_2528;
BgL_objectz00_2528 = 
(obj_t)(BgL_localz00_1162); 
FAILURE(BGl_string6960z00zzcgen_cgenz00,BGl_string6961z00zzcgen_cgenz00,BgL_objectz00_2528);} } 
return BgL_localz00_1162;} } 
}



/* _make-local-svar/name6071 */
obj_t BGl__makezd2localzd2svarzf2name6071zf2zzcgen_cgenz00(obj_t BgL_envz00_3616, obj_t BgL_idz00_3617, obj_t BgL_typez00_3618)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 805 */
{ /* ./Cgen/cgen.scm 806 */
BgL_localz00_bglt BgL_auxz00_4095;
BgL_auxz00_4095 = 
BGl_makezd2localzd2svarzf2namezf2zzcgen_cgenz00(BgL_idz00_3617, 
(BgL_typez00_bglt)(BgL_typez00_3618)); 
return 
(obj_t)(BgL_auxz00_4095);} } 
}



/* no-bdb-newline */
obj_t BGl_nozd2bdbzd2newlinez00zzcgen_cgenz00()
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 816 */
{ /* ./Cgen/cgen.scm 817 */
bool_t BgL_test4015z00_1165;
{ /* ./Cgen/cgen.scm 817 */
obj_t BgL_auxz00_4099;
BgL_auxz00_4099 = 
BINT(((long)0)); 
BgL_test4015z00_1165 = 
(BGl_za2bdbzd2debugza2zd2zzengine_paramz00==BgL_auxz00_4099); } 
if(BgL_test4015z00_1165)
{ /* ./Cgen/cgen.scm 818 */
obj_t BgL_portz00_2529;
BgL_portz00_2529 = BGl_za2czd2portza2zd2zzbackend_c_emitz00; 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_2529);}  else 
{ /* ./Cgen/cgen.scm 817 */
return BFALSE;} } } 
}



/* node-args->cop */
obj_t BGl_nodezd2argszd2ze3copze3zzcgen_cgenz00(obj_t BgL_argsz00_87, obj_t BgL_locz00_88, obj_t BgL_kontz00_89)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 823 */
{ 
obj_t BgL_oldzd2actualszd2_1166;obj_t BgL_newzd2actualszd2_1167;BgL_localz00_bglt BgL_auxz00_1168;obj_t BgL_auxsz00_1169;obj_t BgL_expsz00_1170;
{ /* ./Cgen/cgen.scm 825 */
BgL_localz00_bglt BgL_arg4020z00_1173;
BgL_arg4020z00_1173 = 
BGl_makezd2localzd2svarzf2namezf2zzcgen_cgenz00(
CNST_TABLE_REF(((long)3)), 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00)); 
BgL_oldzd2actualszd2_1166 = BgL_argsz00_87; 
BgL_newzd2actualszd2_1167 = BNIL; 
BgL_auxz00_1168 = BgL_arg4020z00_1173; 
BgL_auxsz00_1169 = BNIL; 
BgL_expsz00_1170 = BNIL; 
BgL_loopz00_1171:
{ /* ./Cgen/cgen.scm 829 */
bool_t BgL_test4025z00_1176;
BgL_test4025z00_1176 = 
NULLP(BgL_oldzd2actualszd2_1166); 
if(BgL_test4025z00_1176)
{ /* ./Cgen/cgen.scm 830 */
bool_t BgL_test4026z00_1177;
BgL_test4026z00_1177 = 
NULLP(BgL_auxsz00_1169); 
if(BgL_test4026z00_1177)
{ /* ./Cgen/cgen.scm 831 */
obj_t BgL_arg4028z00_1178;
BgL_arg4028z00_1178 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_newzd2actualszd2_1167); 
return 
PROCEDURE_L_ENTRY(BgL_kontz00_89)(BgL_kontz00_89, BgL_arg4028z00_1178);}  else 
{ /* ./Cgen/cgen.scm 834 */
BgL_csequencez00_bglt BgL_arg4032z00_1179;
{ /* ./Cgen/cgen.scm 834 */
obj_t BgL_arg4035z00_1180;obj_t BgL_arg4036z00_1181;
BgL_arg4035z00_1180 = BgL_locz00_88; 
{ /* ./Cgen/cgen.scm 838 */
BgL_localzd2varzd2_bglt BgL_arg4039z00_1182;BgL_csequencez00_bglt BgL_arg4040z00_1183;obj_t BgL_arg4041z00_1184;
{ /* ./Cgen/cgen.scm 838 */
obj_t BgL_arg4052z00_1188;obj_t BgL_arg4053z00_1189;
BgL_arg4052z00_1188 = BgL_locz00_88; 
BgL_arg4053z00_1189 = BgL_auxsz00_1169; 
BgL_arg4039z00_1182 = 
BGl_makezd2localzd2varz00zzcgen_copz00(BgL_arg4052z00_1188, BgL_arg4053z00_1189); } 
{ /* ./Cgen/cgen.scm 839 */
obj_t BgL_arg4056z00_1190;
BgL_arg4056z00_1190 = BgL_expsz00_1170; 
BgL_arg4040z00_1183 = 
BGl_makezd2csequencezd2zzcgen_copz00(BFALSE, ((bool_t)0), BgL_arg4056z00_1190); } 
{ /* ./Cgen/cgen.scm 840 */
obj_t BgL_arg4059z00_1191;
BgL_arg4059z00_1191 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_newzd2actualszd2_1167); 
BgL_arg4041z00_1184 = 
PROCEDURE_L_ENTRY(BgL_kontz00_89)(BgL_kontz00_89, BgL_arg4059z00_1191); } 
{ /* ./Cgen/cgen.scm 835 */
obj_t BgL_list4043z00_1185;
{ /* ./Cgen/cgen.scm 835 */
obj_t BgL_arg4045z00_1186;
{ /* ./Cgen/cgen.scm 835 */
obj_t BgL_arg4048z00_1187;
BgL_arg4048z00_1187 = 
MAKE_PAIR(BgL_arg4041z00_1184, BNIL); 
{ /* ./Cgen/cgen.scm 835 */
obj_t BgL_auxz00_4120;
BgL_auxz00_4120 = 
(obj_t)(BgL_arg4040z00_1183); 
BgL_arg4045z00_1186 = 
MAKE_PAIR(BgL_auxz00_4120, BgL_arg4048z00_1187); } } 
{ /* ./Cgen/cgen.scm 835 */
obj_t BgL_auxz00_4123;
BgL_auxz00_4123 = 
(obj_t)(BgL_arg4039z00_1182); 
BgL_list4043z00_1185 = 
MAKE_PAIR(BgL_auxz00_4123, BgL_arg4045z00_1186); } } 
BgL_arg4036z00_1181 = BgL_list4043z00_1185; } } 
BgL_arg4032z00_1179 = 
BGl_makezd2csequencezd2zzcgen_copz00(BgL_arg4035z00_1180, ((bool_t)0), BgL_arg4036z00_1181); } 
{ /* ./Cgen/cgen.scm 832 */
BgL_blockz00_bglt BgL_auxz00_4127;
BgL_auxz00_4127 = 
BGl_makezd2blockzd2zzcgen_copz00(BFALSE, 
(BgL_copz00_bglt)(BgL_arg4032z00_1179)); 
return 
(obj_t)(BgL_auxz00_4127);} } }  else 
{ /* ./Cgen/cgen.scm 841 */
BgL_copz00_bglt BgL_copz00_1192;
{ /* ./Cgen/cgen.scm 841 */
BgL_setqz00_bglt BgL_arg4121z00_1216;
{ /* ./Cgen/cgen.scm 841 */
obj_t BgL_arg4124z00_1217;
BgL_arg4124z00_1217 = 
CAR(BgL_oldzd2actualszd2_1166); 
BgL_arg4121z00_1216 = 
BGl_nodezd2setqzd2zzcgen_cgenz00(
(BgL_variablez00_bglt)(BgL_auxz00_1168), 
(BgL_nodez00_bglt)(BgL_arg4124z00_1217)); } 
{ /* ./Cgen/cgen.scm 841 */
BgL_copz00_bglt BgL_res5961z00_2562;
{ /* ./Cgen/cgen.scm 841 */
BgL_nodez00_bglt BgL_nodez00_2535;obj_t BgL_kontz00_2536;
BgL_nodez00_2535 = 
(BgL_nodez00_bglt)(BgL_arg4121z00_1216); 
BgL_kontz00_2536 = BGl_za2idzd2kontza2zd2zzcgen_cgenz00; 
{ /* ./Cgen/cgen.scm 841 */
obj_t BgL_method3671z00_2537;
{ /* ./Cgen/cgen.scm 841 */
BgL_objectz00_bglt BgL_objz00_2538;
BgL_objz00_2538 = 
(BgL_objectz00_bglt)(BgL_nodez00_2535); 
{ /* ./Cgen/cgen.scm 841 */
long BgL_objzd2classzd2numz00_2539;
BgL_objzd2classzd2numz00_2539 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2538); 
{ /* ./Cgen/cgen.scm 841 */
obj_t BgL_arg2017z00_2540;
{ /* ./Cgen/cgen.scm 841 */
int BgL_auxz00_4138;
BgL_auxz00_4138 = 
(int)(((long)1)); 
BgL_arg2017z00_2540 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_4138); } 
{ /* ./Cgen/cgen.scm 841 */
int BgL_offsetz00_2543;
BgL_offsetz00_2543 = 
(int)(BgL_objzd2classzd2numz00_2539); 
{ /* ./Cgen/cgen.scm 841 */
long BgL_offsetz00_2544;
{ /* ./Cgen/cgen.scm 841 */
long BgL_auxz00_4142;
BgL_auxz00_4142 = 
(long)(BgL_offsetz00_2543); 
BgL_offsetz00_2544 = 
(BgL_auxz00_4142-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 841 */
long BgL_modz00_2545;
{ /* ./Cgen/cgen.scm 841 */
int BgL_arg2028z00_2546;
BgL_arg2028z00_2546 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 841 */
long BgL_n2z00_2554;
BgL_n2z00_2554 = 
(long)(BgL_arg2028z00_2546); 
BgL_modz00_2545 = 
(BgL_offsetz00_2544/BgL_n2z00_2554); } } 
{ /* ./Cgen/cgen.scm 841 */
long BgL_restz00_2547;
{ /* ./Cgen/cgen.scm 841 */
int BgL_arg2024z00_2548;
BgL_arg2024z00_2548 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 841 */
long BgL_n2z00_2557;
BgL_n2z00_2557 = 
(long)(BgL_arg2024z00_2548); 
BgL_restz00_2547 = 
(BgL_offsetz00_2544%BgL_n2z00_2557); } } 
{ /* ./Cgen/cgen.scm 841 */

{ /* ./Cgen/cgen.scm 841 */
obj_t BgL_bucketz00_2549;
{ /* ./Cgen/cgen.scm 841 */
int BgL_kz00_2559;
BgL_kz00_2559 = 
(int)(BgL_modz00_2545); 
BgL_bucketz00_2549 = 
VECTOR_REF(BgL_arg2017z00_2540,BgL_kz00_2559); } 
{ /* ./Cgen/cgen.scm 841 */
int BgL_kz00_2561;
BgL_kz00_2561 = 
(int)(BgL_restz00_2547); 
BgL_method3671z00_2537 = 
VECTOR_REF(BgL_bucketz00_2549,BgL_kz00_2561); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 841 */
obj_t BgL_auxz00_4155;
BgL_auxz00_4155 = 
PROCEDURE_ENTRY(BgL_method3671z00_2537)(BgL_method3671z00_2537, 
(obj_t)(BgL_nodez00_2535), BgL_kontz00_2536, BEOA); 
BgL_res5961z00_2562 = 
(BgL_copz00_bglt)(BgL_auxz00_4155); } } } 
BgL_copz00_1192 = BgL_res5961z00_2562; } } 
{ /* ./Cgen/cgen.scm 842 */
bool_t BgL_test4063z00_1193;
{ /* ./Cgen/cgen.scm 842 */
bool_t BgL_test4098z00_1207;
{ /* ./Cgen/cgen.scm 842 */
obj_t BgL_obj2881z00_2563;
BgL_obj2881z00_2563 = 
(obj_t)(BgL_copz00_1192); 
BgL_test4098z00_1207 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2881z00_2563, BGl_csetqz00zzcgen_copz00); } 
if(BgL_test4098z00_1207)
{ /* ./Cgen/cgen.scm 843 */
bool_t BgL_test4099z00_1208;
{ /* ./Cgen/cgen.scm 843 */
obj_t BgL_auxz00_4169;obj_t BgL_auxz00_4163;
BgL_auxz00_4169 = 
(obj_t)(BgL_auxz00_1168); 
{ /* ./Cgen/cgen.scm 843 */
BgL_variablez00_bglt BgL_auxz00_4164;
{ /* ./Cgen/cgen.scm 843 */
BgL_varcz00_bglt BgL_arg4116z00_1215;
{ /* ./Cgen/cgen.scm 843 */
BgL_csetqz00_bglt BgL_obj2867z00_2564;
BgL_obj2867z00_2564 = 
(BgL_csetqz00_bglt)(BgL_copz00_1192); 
BgL_arg4116z00_1215 = 
(((BgL_csetqz00_bglt)CREF(BgL_obj2867z00_2564))->BgL_varz00); } 
BgL_auxz00_4164 = 
(((BgL_varcz00_bglt)CREF(BgL_arg4116z00_1215))->BgL_variablez00); } 
BgL_auxz00_4163 = 
(obj_t)(BgL_auxz00_4164); } 
BgL_test4099z00_1208 = 
(BgL_auxz00_4163==BgL_auxz00_4169); } 
if(BgL_test4099z00_1208)
{ /* ./Cgen/cgen.scm 844 */
bool_t BgL__ortest_3667z00_1209;
{ /* ./Cgen/cgen.scm 844 */
BgL_copz00_bglt BgL_arg4109z00_1213;
{ /* ./Cgen/cgen.scm 844 */
BgL_csetqz00_bglt BgL_obj2868z00_2566;
BgL_obj2868z00_2566 = 
(BgL_csetqz00_bglt)(BgL_copz00_1192); 
BgL_arg4109z00_1213 = 
(((BgL_csetqz00_bglt)CREF(BgL_obj2868z00_2566))->BgL_valuez00); } 
{ /* ./Cgen/cgen.scm 844 */
obj_t BgL_obj2770z00_2567;
BgL_obj2770z00_2567 = 
(obj_t)(BgL_arg4109z00_1213); 
BgL__ortest_3667z00_1209 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2770z00_2567, BGl_catomz00zzcgen_copz00); } } 
if(BgL__ortest_3667z00_1209)
{ /* ./Cgen/cgen.scm 844 */
BgL_test4063z00_1193 = BgL__ortest_3667z00_1209; }  else 
{ /* ./Cgen/cgen.scm 845 */
bool_t BgL__ortest_3668z00_1210;
{ /* ./Cgen/cgen.scm 845 */
BgL_copz00_bglt BgL_arg4105z00_1212;
{ /* ./Cgen/cgen.scm 845 */
BgL_csetqz00_bglt BgL_obj2868z00_2568;
BgL_obj2868z00_2568 = 
(BgL_csetqz00_bglt)(BgL_copz00_1192); 
BgL_arg4105z00_1212 = 
(((BgL_csetqz00_bglt)CREF(BgL_obj2868z00_2568))->BgL_valuez00); } 
{ /* ./Cgen/cgen.scm 845 */
obj_t BgL_obj2784z00_2569;
BgL_obj2784z00_2569 = 
(obj_t)(BgL_arg4105z00_1212); 
BgL__ortest_3668z00_1210 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2784z00_2569, BGl_varcz00zzcgen_copz00); } } 
if(BgL__ortest_3668z00_1210)
{ /* ./Cgen/cgen.scm 845 */
BgL_test4063z00_1193 = BgL__ortest_3668z00_1210; }  else 
{ /* ./Cgen/cgen.scm 846 */
BgL_copz00_bglt BgL_arg4101z00_1211;
{ /* ./Cgen/cgen.scm 846 */
BgL_csetqz00_bglt BgL_obj2868z00_2570;
BgL_obj2868z00_2570 = 
(BgL_csetqz00_bglt)(BgL_copz00_1192); 
BgL_arg4101z00_1211 = 
(((BgL_csetqz00_bglt)CREF(BgL_obj2868z00_2570))->BgL_valuez00); } 
{ /* ./Cgen/cgen.scm 846 */
obj_t BgL_obj2802z00_2571;
BgL_obj2802z00_2571 = 
(obj_t)(BgL_arg4101z00_1211); 
BgL_test4063z00_1193 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2802z00_2571, BGl_cpragmaz00zzcgen_copz00); } } } }  else 
{ /* ./Cgen/cgen.scm 843 */
BgL_test4063z00_1193 = ((bool_t)0); } }  else 
{ /* ./Cgen/cgen.scm 842 */
BgL_test4063z00_1193 = ((bool_t)0); } } 
if(BgL_test4063z00_1193)
{ /* ./Cgen/cgen.scm 847 */
obj_t BgL_arg4065z00_1194;obj_t BgL_arg4066z00_1195;
BgL_arg4065z00_1194 = 
CDR(BgL_oldzd2actualszd2_1166); 
{ /* ./Cgen/cgen.scm 848 */
BgL_copz00_bglt BgL_arg4070z00_1196;
{ /* ./Cgen/cgen.scm 848 */
BgL_csetqz00_bglt BgL_obj2868z00_2573;
BgL_obj2868z00_2573 = 
(BgL_csetqz00_bglt)(BgL_copz00_1192); 
BgL_arg4070z00_1196 = 
(((BgL_csetqz00_bglt)CREF(BgL_obj2868z00_2573))->BgL_valuez00); } 
{ /* ./Cgen/cgen.scm 848 */
obj_t BgL_auxz00_4191;
BgL_auxz00_4191 = 
(obj_t)(BgL_arg4070z00_1196); 
BgL_arg4066z00_1195 = 
MAKE_PAIR(BgL_auxz00_4191, BgL_newzd2actualszd2_1167); } } 
{ 
obj_t BgL_newzd2actualszd2_4195;obj_t BgL_oldzd2actualszd2_4194;
BgL_oldzd2actualszd2_4194 = BgL_arg4065z00_1194; 
BgL_newzd2actualszd2_4195 = BgL_arg4066z00_1195; 
BgL_newzd2actualszd2_1167 = BgL_newzd2actualszd2_4195; 
BgL_oldzd2actualszd2_1166 = BgL_oldzd2actualszd2_4194; 
goto BgL_loopz00_1171;} }  else 
{ /* ./Cgen/cgen.scm 842 */
{ /* ./Cgen/cgen.scm 853 */
BgL_typez00_bglt BgL_arg4074z00_1197;
{ /* ./Cgen/cgen.scm 853 */
obj_t BgL_arg4077z00_1198;
BgL_arg4077z00_1198 = 
CAR(BgL_oldzd2actualszd2_1166); 
BgL_arg4074z00_1197 = 
BGl_typeofz00zztype_typeofz00(
(BgL_nodez00_bglt)(BgL_arg4077z00_1198)); } 
{ /* ./Cgen/cgen.scm 853 */
BgL_variablez00_bglt BgL_obj1099z00_2575;BgL_typez00_bglt BgL_val1098z00_2576;
BgL_obj1099z00_2575 = 
(BgL_variablez00_bglt)(BgL_auxz00_1168); 
BgL_val1098z00_2576 = BgL_arg4074z00_1197; 
((((BgL_variablez00_bglt)CREF(BgL_obj1099z00_2575))->BgL_typez00) = ((BgL_typez00_bglt)BgL_val1098z00_2576), BUNSPEC); } } 
{ /* ./Cgen/cgen.scm 854 */
obj_t BgL_arg4081z00_1199;obj_t BgL_arg4082z00_1200;BgL_localz00_bglt BgL_arg4083z00_1201;obj_t BgL_arg4084z00_1202;obj_t BgL_arg4085z00_1203;
BgL_arg4081z00_1199 = 
CDR(BgL_oldzd2actualszd2_1166); 
{ /* ./Cgen/cgen.scm 857 */
BgL_varcz00_bglt BgL_arg4089z00_1204;
{ /* ./Cgen/cgen.scm 857 */
obj_t BgL_arg4092z00_1205;BgL_localz00_bglt BgL_arg4093z00_1206;
BgL_arg4092z00_1205 = BgL_locz00_88; 
BgL_arg4093z00_1206 = BgL_auxz00_1168; 
BgL_arg4089z00_1204 = 
BGl_makezd2varczd2zzcgen_copz00(BgL_arg4092z00_1205, 
(BgL_variablez00_bglt)(BgL_arg4093z00_1206)); } 
{ /* ./Cgen/cgen.scm 855 */
obj_t BgL_auxz00_4204;
BgL_auxz00_4204 = 
(obj_t)(BgL_arg4089z00_1204); 
BgL_arg4082z00_1200 = 
MAKE_PAIR(BgL_auxz00_4204, BgL_newzd2actualszd2_1167); } } 
BgL_arg4083z00_1201 = 
BGl_makezd2localzd2svarzf2namezf2zzcgen_cgenz00(
CNST_TABLE_REF(((long)3)), 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00)); 
{ /* ./Cgen/cgen.scm 860 */
obj_t BgL_auxz00_4210;
BgL_auxz00_4210 = 
(obj_t)(BgL_auxz00_1168); 
BgL_arg4084z00_1202 = 
MAKE_PAIR(BgL_auxz00_4210, BgL_auxsz00_1169); } 
{ /* ./Cgen/cgen.scm 861 */
obj_t BgL_auxz00_4213;
BgL_auxz00_4213 = 
(obj_t)(BgL_copz00_1192); 
BgL_arg4085z00_1203 = 
MAKE_PAIR(BgL_auxz00_4213, BgL_expsz00_1170); } 
{ 
obj_t BgL_expsz00_4220;obj_t BgL_auxsz00_4219;BgL_localz00_bglt BgL_auxz00_4218;obj_t BgL_newzd2actualszd2_4217;obj_t BgL_oldzd2actualszd2_4216;
BgL_oldzd2actualszd2_4216 = BgL_arg4081z00_1199; 
BgL_newzd2actualszd2_4217 = BgL_arg4082z00_1200; 
BgL_auxz00_4218 = BgL_arg4083z00_1201; 
BgL_auxsz00_4219 = BgL_arg4084z00_1202; 
BgL_expsz00_4220 = BgL_arg4085z00_1203; 
BgL_expsz00_1170 = BgL_expsz00_4220; 
BgL_auxsz00_1169 = BgL_auxsz00_4219; 
BgL_auxz00_1168 = BgL_auxz00_4218; 
BgL_newzd2actualszd2_1167 = BgL_newzd2actualszd2_4217; 
BgL_oldzd2actualszd2_1166 = BgL_oldzd2actualszd2_4216; 
goto BgL_loopz00_1171;} } } } } } } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzcgen_cgenz00()
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 15 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_nodezd2ze3copzd2default3670zd2envz31zzcgen_cgenz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_atomz00zzast_nodez00, BGl_proc6962z00zzcgen_cgenz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_kwotez00zzast_nodez00, BGl_proc6963z00zzcgen_cgenz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_varz00zzast_nodez00, BGl_proc6964z00zzcgen_cgenz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_closurez00zzast_nodez00, BGl_proc6965z00zzcgen_cgenz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_sequencez00zzast_nodez00, BGl_proc6966z00zzcgen_cgenz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_pragmaz00zzast_nodez00, BGl_proc6967z00zzcgen_cgenz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_getfieldz00zzast_nodez00, BGl_proc6968z00zzcgen_cgenz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_setfieldz00zzast_nodez00, BGl_proc6969z00zzcgen_cgenz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_vlengthz00zzast_nodez00, BGl_proc6970z00zzcgen_cgenz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_vrefz00zzast_nodez00, BGl_proc6971z00zzcgen_cgenz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_vsetz12z12zzast_nodez00, BGl_proc6972z00zzcgen_cgenz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_vallocz00zzast_nodez00, BGl_proc6973z00zzcgen_cgenz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_castz00zzast_nodez00, BGl_proc6974z00zzcgen_cgenz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_setqz00zzast_nodez00, BGl_proc6975z00zzcgen_cgenz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_conditionalz00zzast_nodez00, BGl_proc6976z00zzcgen_cgenz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_failz00zzast_nodez00, BGl_proc6977z00zzcgen_cgenz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_selectz00zzast_nodez00, BGl_proc6978z00zzcgen_cgenz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_letzd2funzd2zzast_nodez00, BGl_proc6979z00zzcgen_cgenz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_letzd2varzd2zzast_nodez00, BGl_proc6980z00zzcgen_cgenz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc6981z00zzcgen_cgenz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc6982z00zzcgen_cgenz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_makezd2boxzd2zzast_nodez00, BGl_proc6983z00zzcgen_cgenz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_boxzd2refzd2zzast_nodez00, BGl_proc6984z00zzcgen_cgenz00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc6985z00zzcgen_cgenz00);} 
}



/* node->cop-box-set!3719 */
obj_t BGl_nodezd2ze3copzd2boxzd2setz123719z23zzcgen_cgenz00(obj_t BgL_envz00_3648, obj_t BgL_nodez00_3649, obj_t BgL_kontz00_3650)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 775 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_2382;obj_t BgL_kontz00_2383;
{ /* ./Tools/trace.sch 42 */
BgL_copz00_bglt BgL_auxz00_4246;
BgL_nodez00_2382 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_3649); 
BgL_kontz00_2383 = BgL_kontz00_3650; 
{ /* ./Cgen/cgen.scm 780 */
BgL_variablez00_bglt BgL_vz00_2387;
{ /* ./Cgen/cgen.scm 780 */
BgL_varz00_bglt BgL_arg5920z00_2399;
BgL_arg5920z00_2399 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_2382))->BgL_varz00); 
BgL_vz00_2387 = 
(((BgL_varz00_bglt)CREF(BgL_arg5920z00_2399))->BgL_variablez00); } 
{ /* ./Cgen/cgen.scm 781 */
BgL_nodez00_bglt BgL_arg5900z00_2388;
BgL_arg5900z00_2388 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_2382))->BgL_valuez00); 
{ /* ./Cgen/cgen.scm 783 */
obj_t BgL_zc3anonymousza35904ze3z83_3619;
{ 
int BgL_auxz00_4252;int BgL_auxz00_4250;
BgL_auxz00_4252 = 
(int)(((long)3)); 
BgL_auxz00_4250 = 
(int)(((long)1)); 
BgL_zc3anonymousza35904ze3z83_3619 = 
make_fx_procedure(BGl_zc3anonymousza35904ze3z83zzcgen_cgenz00, BgL_auxz00_4250, BgL_auxz00_4252); } 
{ /* ./Cgen/cgen.scm 783 */
obj_t BgL_auxz00_4257;int BgL_auxz00_4255;
BgL_auxz00_4257 = 
(obj_t)(BgL_nodez00_2382); 
BgL_auxz00_4255 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza35904ze3z83_3619, BgL_auxz00_4255, BgL_auxz00_4257); } 
{ /* ./Cgen/cgen.scm 783 */
obj_t BgL_auxz00_4262;int BgL_auxz00_4260;
BgL_auxz00_4262 = 
(obj_t)(BgL_vz00_2387); 
BgL_auxz00_4260 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza35904ze3z83_3619, BgL_auxz00_4260, BgL_auxz00_4262); } 
{ /* ./Cgen/cgen.scm 783 */
int BgL_auxz00_4265;
BgL_auxz00_4265 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza35904ze3z83_3619, BgL_auxz00_4265, BgL_kontz00_2383); } 
{ /* ./Cgen/cgen.scm 781 */
BgL_copz00_bglt BgL_res6052z00_3548;
{ /* ./Cgen/cgen.scm 781 */
obj_t BgL_method3671z00_3523;
{ /* ./Cgen/cgen.scm 781 */
BgL_objectz00_bglt BgL_objz00_3524;
BgL_objz00_3524 = 
(BgL_objectz00_bglt)(BgL_arg5900z00_2388); 
{ /* ./Cgen/cgen.scm 781 */
long BgL_objzd2classzd2numz00_3525;
BgL_objzd2classzd2numz00_3525 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3524); 
{ /* ./Cgen/cgen.scm 781 */
obj_t BgL_arg2017z00_3526;
{ /* ./Cgen/cgen.scm 781 */
int BgL_auxz00_4270;
BgL_auxz00_4270 = 
(int)(((long)1)); 
BgL_arg2017z00_3526 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_4270); } 
{ /* ./Cgen/cgen.scm 781 */
int BgL_offsetz00_3529;
BgL_offsetz00_3529 = 
(int)(BgL_objzd2classzd2numz00_3525); 
{ /* ./Cgen/cgen.scm 781 */
long BgL_offsetz00_3530;
{ /* ./Cgen/cgen.scm 781 */
long BgL_auxz00_4274;
BgL_auxz00_4274 = 
(long)(BgL_offsetz00_3529); 
BgL_offsetz00_3530 = 
(BgL_auxz00_4274-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 781 */
long BgL_modz00_3531;
{ /* ./Cgen/cgen.scm 781 */
int BgL_arg2028z00_3532;
BgL_arg2028z00_3532 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 781 */
long BgL_n2z00_3540;
BgL_n2z00_3540 = 
(long)(BgL_arg2028z00_3532); 
BgL_modz00_3531 = 
(BgL_offsetz00_3530/BgL_n2z00_3540); } } 
{ /* ./Cgen/cgen.scm 781 */
long BgL_restz00_3533;
{ /* ./Cgen/cgen.scm 781 */
int BgL_arg2024z00_3534;
BgL_arg2024z00_3534 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 781 */
long BgL_n2z00_3543;
BgL_n2z00_3543 = 
(long)(BgL_arg2024z00_3534); 
BgL_restz00_3533 = 
(BgL_offsetz00_3530%BgL_n2z00_3543); } } 
{ /* ./Cgen/cgen.scm 781 */

{ /* ./Cgen/cgen.scm 781 */
obj_t BgL_bucketz00_3535;
{ /* ./Cgen/cgen.scm 781 */
int BgL_kz00_3545;
BgL_kz00_3545 = 
(int)(BgL_modz00_3531); 
BgL_bucketz00_3535 = 
VECTOR_REF(BgL_arg2017z00_3526,BgL_kz00_3545); } 
{ /* ./Cgen/cgen.scm 781 */
int BgL_kz00_3547;
BgL_kz00_3547 = 
(int)(BgL_restz00_3533); 
BgL_method3671z00_3523 = 
VECTOR_REF(BgL_bucketz00_3535,BgL_kz00_3547); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 781 */
obj_t BgL_auxz00_4287;
BgL_auxz00_4287 = 
PROCEDURE_ENTRY(BgL_method3671z00_3523)(BgL_method3671z00_3523, 
(obj_t)(BgL_arg5900z00_2388), BgL_zc3anonymousza35904ze3z83_3619, BEOA); 
BgL_res6052z00_3548 = 
(BgL_copz00_bglt)(BgL_auxz00_4287); } } 
BgL_auxz00_4246 = BgL_res6052z00_3548; } } } } 
return 
(obj_t)(BgL_auxz00_4246);} } } 
}



/* <anonymous:5904> */
obj_t BGl_zc3anonymousza35904ze3z83zzcgen_cgenz00(obj_t BgL_envz00_3651, obj_t BgL_vlz00_3655)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 782 */
{ /* ./Cgen/cgen.scm 783 */
obj_t BgL_instance3657z00_3652;obj_t BgL_vz00_3653;obj_t BgL_kontz00_3654;
{ /* ./Cgen/cgen.scm 783 */
int BgL_auxz00_4294;
BgL_auxz00_4294 = 
(int)(((long)0)); 
BgL_instance3657z00_3652 = 
PROCEDURE_REF(BgL_envz00_3651, BgL_auxz00_4294); } 
{ /* ./Cgen/cgen.scm 783 */
int BgL_auxz00_4297;
BgL_auxz00_4297 = 
(int)(((long)1)); 
BgL_vz00_3653 = 
PROCEDURE_REF(BgL_envz00_3651, BgL_auxz00_4297); } 
{ /* ./Cgen/cgen.scm 783 */
int BgL_auxz00_4300;
BgL_auxz00_4300 = 
(int)(((long)2)); 
BgL_kontz00_3654 = 
PROCEDURE_REF(BgL_envz00_3651, BgL_auxz00_4300); } 
{ 
obj_t BgL_vlz00_2390;
BgL_vlz00_2390 = BgL_vlz00_3655; 
{ /* ./Cgen/cgen.scm 783 */
BgL_cboxzd2setz12zc0_bglt BgL_arg5906z00_2392;
{ /* ./Cgen/cgen.scm 783 */
obj_t BgL_arg5909z00_2393;BgL_varcz00_bglt BgL_arg5910z00_2394;obj_t BgL_arg5911z00_2395;
{ /* ./Cgen/cgen.scm 783 */
BgL_nodez00_bglt BgL_obj1560z00_3549;
BgL_obj1560z00_3549 = 
(BgL_nodez00_bglt)(BgL_instance3657z00_3652); 
BgL_arg5909z00_2393 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3549))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 785 */
obj_t BgL_arg5915z00_2396;obj_t BgL_arg5916z00_2397;
{ /* ./Cgen/cgen.scm 785 */
BgL_nodez00_bglt BgL_obj1560z00_3550;
BgL_obj1560z00_3550 = 
(BgL_nodez00_bglt)(BgL_instance3657z00_3652); 
BgL_arg5915z00_2396 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3550))->BgL_locz00); } 
BgL_arg5916z00_2397 = BgL_vz00_3653; 
BgL_arg5910z00_2394 = 
BGl_makezd2varczd2zzcgen_copz00(BgL_arg5915z00_2396, 
(BgL_variablez00_bglt)(BgL_arg5916z00_2397)); } 
BgL_arg5911z00_2395 = BgL_vlz00_2390; 
BgL_arg5906z00_2392 = 
BGl_makezd2cboxzd2setz12z12zzcgen_copz00(BgL_arg5909z00_2393, 
(BgL_copz00_bglt)(BgL_arg5910z00_2394), 
(BgL_copz00_bglt)(BgL_arg5911z00_2395)); } 
return 
PROCEDURE_ENTRY(BgL_kontz00_3654)(BgL_kontz00_3654, 
(obj_t)(BgL_arg5906z00_2392), BEOA);} } } } 
}



/* node->cop-box-ref3717 */
obj_t BGl_nodezd2ze3copzd2boxzd2ref3717z31zzcgen_cgenz00(obj_t BgL_envz00_3656, obj_t BgL_nodez00_3657, obj_t BgL_kontz00_3658)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 763 */
{ 
BgL_boxzd2refzd2_bglt BgL_nodez00_2367;obj_t BgL_kontz00_2368;
BgL_nodez00_2367 = 
(BgL_boxzd2refzd2_bglt)(BgL_nodez00_3657); 
BgL_kontz00_2368 = BgL_kontz00_3658; 
{ /* ./Cgen/cgen.scm 768 */
BgL_copz00_bglt BgL_arg5880z00_2372;
{ /* ./Cgen/cgen.scm 768 */
BgL_varz00_bglt BgL_arg5883z00_2373;
BgL_arg5883z00_2373 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_nodez00_2367))->BgL_varz00); 
{ /* ./Cgen/cgen.scm 769 */
obj_t BgL_zc3anonymousza35887ze3z83_3621;
{ 
int BgL_auxz00_4318;int BgL_auxz00_4316;
BgL_auxz00_4318 = 
(int)(((long)1)); 
BgL_auxz00_4316 = 
(int)(((long)1)); 
BgL_zc3anonymousza35887ze3z83_3621 = 
make_fx_procedure(BGl_zc3anonymousza35887ze3z83zzcgen_cgenz00, BgL_auxz00_4316, BgL_auxz00_4318); } 
{ /* ./Cgen/cgen.scm 769 */
obj_t BgL_auxz00_4323;int BgL_auxz00_4321;
BgL_auxz00_4323 = 
(obj_t)(BgL_nodez00_2367); 
BgL_auxz00_4321 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza35887ze3z83_3621, BgL_auxz00_4321, BgL_auxz00_4323); } 
{ /* ./Cgen/cgen.scm 768 */
BgL_copz00_bglt BgL_res6049z00_3515;
{ /* ./Cgen/cgen.scm 768 */
BgL_nodez00_bglt BgL_nodez00_3489;
BgL_nodez00_3489 = 
(BgL_nodez00_bglt)(BgL_arg5883z00_2373); 
{ /* ./Cgen/cgen.scm 768 */
obj_t BgL_method3671z00_3490;
{ /* ./Cgen/cgen.scm 768 */
BgL_objectz00_bglt BgL_objz00_3491;
BgL_objz00_3491 = 
(BgL_objectz00_bglt)(BgL_nodez00_3489); 
{ /* ./Cgen/cgen.scm 768 */
long BgL_objzd2classzd2numz00_3492;
BgL_objzd2classzd2numz00_3492 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3491); 
{ /* ./Cgen/cgen.scm 768 */
obj_t BgL_arg2017z00_3493;
{ /* ./Cgen/cgen.scm 768 */
int BgL_auxz00_4329;
BgL_auxz00_4329 = 
(int)(((long)1)); 
BgL_arg2017z00_3493 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_4329); } 
{ /* ./Cgen/cgen.scm 768 */
int BgL_offsetz00_3496;
BgL_offsetz00_3496 = 
(int)(BgL_objzd2classzd2numz00_3492); 
{ /* ./Cgen/cgen.scm 768 */
long BgL_offsetz00_3497;
{ /* ./Cgen/cgen.scm 768 */
long BgL_auxz00_4333;
BgL_auxz00_4333 = 
(long)(BgL_offsetz00_3496); 
BgL_offsetz00_3497 = 
(BgL_auxz00_4333-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 768 */
long BgL_modz00_3498;
{ /* ./Cgen/cgen.scm 768 */
int BgL_arg2028z00_3499;
BgL_arg2028z00_3499 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 768 */
long BgL_n2z00_3507;
BgL_n2z00_3507 = 
(long)(BgL_arg2028z00_3499); 
BgL_modz00_3498 = 
(BgL_offsetz00_3497/BgL_n2z00_3507); } } 
{ /* ./Cgen/cgen.scm 768 */
long BgL_restz00_3500;
{ /* ./Cgen/cgen.scm 768 */
int BgL_arg2024z00_3501;
BgL_arg2024z00_3501 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 768 */
long BgL_n2z00_3510;
BgL_n2z00_3510 = 
(long)(BgL_arg2024z00_3501); 
BgL_restz00_3500 = 
(BgL_offsetz00_3497%BgL_n2z00_3510); } } 
{ /* ./Cgen/cgen.scm 768 */

{ /* ./Cgen/cgen.scm 768 */
obj_t BgL_bucketz00_3502;
{ /* ./Cgen/cgen.scm 768 */
int BgL_kz00_3512;
BgL_kz00_3512 = 
(int)(BgL_modz00_3498); 
BgL_bucketz00_3502 = 
VECTOR_REF(BgL_arg2017z00_3493,BgL_kz00_3512); } 
{ /* ./Cgen/cgen.scm 768 */
int BgL_kz00_3514;
BgL_kz00_3514 = 
(int)(BgL_restz00_3500); 
BgL_method3671z00_3490 = 
VECTOR_REF(BgL_bucketz00_3502,BgL_kz00_3514); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 768 */
obj_t BgL_auxz00_4346;
BgL_auxz00_4346 = 
PROCEDURE_ENTRY(BgL_method3671z00_3490)(BgL_method3671z00_3490, 
(obj_t)(BgL_nodez00_3489), BgL_zc3anonymousza35887ze3z83_3621, BEOA); 
BgL_res6049z00_3515 = 
(BgL_copz00_bglt)(BgL_auxz00_4346); } } } 
BgL_arg5880z00_2372 = BgL_res6049z00_3515; } } } 
return 
PROCEDURE_ENTRY(BgL_kontz00_2368)(BgL_kontz00_2368, 
(obj_t)(BgL_arg5880z00_2372), BEOA);} } } 
}



/* <anonymous:5887> */
obj_t BGl_zc3anonymousza35887ze3z83zzcgen_cgenz00(obj_t BgL_envz00_3659, obj_t BgL_vz00_3661)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 768 */
{ /* ./Cgen/cgen.scm 769 */
obj_t BgL_instance3654z00_3660;
{ /* ./Cgen/cgen.scm 769 */
int BgL_auxz00_4355;
BgL_auxz00_4355 = 
(int)(((long)0)); 
BgL_instance3654z00_3660 = 
PROCEDURE_REF(BgL_envz00_3659, BgL_auxz00_4355); } 
{ 
obj_t BgL_vz00_2375;
{ /* ./Cgen/cgen.scm 769 */
BgL_cboxzd2refzd2_bglt BgL_auxz00_4358;
BgL_vz00_2375 = BgL_vz00_3661; 
{ /* ./Cgen/cgen.scm 769 */
obj_t BgL_arg5889z00_3516;obj_t BgL_arg5890z00_3517;
{ /* ./Cgen/cgen.scm 769 */
BgL_nodez00_bglt BgL_obj1560z00_3518;
BgL_obj1560z00_3518 = 
(BgL_nodez00_bglt)(BgL_instance3654z00_3660); 
BgL_arg5889z00_3516 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3518))->BgL_locz00); } 
BgL_arg5890z00_3517 = BgL_vz00_2375; 
BgL_auxz00_4358 = 
BGl_makezd2cboxzd2refz00zzcgen_copz00(BgL_arg5889z00_3516, 
(BgL_copz00_bglt)(BgL_arg5890z00_3517)); } 
return 
(obj_t)(BgL_auxz00_4358);} } } } 
}



/* node->cop-make-box3715 */
obj_t BGl_nodezd2ze3copzd2makezd2box3715z31zzcgen_cgenz00(obj_t BgL_envz00_3662, obj_t BgL_nodez00_3663, obj_t BgL_kontz00_3664)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 732 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_2325;obj_t BgL_kontz00_2326;
BgL_nodez00_2325 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_3663); 
BgL_kontz00_2326 = BgL_kontz00_3664; 
{ /* ./Cgen/cgen.scm 737 */
bool_t BgL_test5793z00_2330;
{ /* ./Cgen/cgen.scm 737 */
bool_t BgL_test5859z00_2360;
{ /* ./Cgen/cgen.scm 737 */
BgL_nodez00_bglt BgL_arg5870z00_2364;
BgL_arg5870z00_2364 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_2325))->BgL_valuez00); 
{ /* ./Cgen/cgen.scm 737 */
obj_t BgL_obj1640z00_3416;
BgL_obj1640z00_3416 = 
(obj_t)(BgL_arg5870z00_2364); 
BgL_test5859z00_2360 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1640z00_3416, BGl_varz00zzast_nodez00); } } 
if(BgL_test5859z00_2360)
{ /* ./Cgen/cgen.scm 737 */
BgL_test5793z00_2330 = ((bool_t)1); }  else 
{ /* ./Cgen/cgen.scm 737 */
bool_t BgL_test5860z00_2361;
{ /* ./Cgen/cgen.scm 737 */
BgL_nodez00_bglt BgL_arg5866z00_2363;
BgL_arg5866z00_2363 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_2325))->BgL_valuez00); 
{ /* ./Cgen/cgen.scm 737 */
obj_t BgL_obj1619z00_3418;
BgL_obj1619z00_3418 = 
(obj_t)(BgL_arg5866z00_2363); 
BgL_test5860z00_2361 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1619z00_3418, BGl_atomz00zzast_nodez00); } } 
if(BgL_test5860z00_2361)
{ /* ./Cgen/cgen.scm 737 */
BgL_test5793z00_2330 = ((bool_t)1); }  else 
{ /* ./Cgen/cgen.scm 737 */
BgL_nodez00_bglt BgL_arg5862z00_2362;
BgL_arg5862z00_2362 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_2325))->BgL_valuez00); 
{ /* ./Cgen/cgen.scm 737 */
obj_t BgL_obj1678z00_3420;
BgL_obj1678z00_3420 = 
(obj_t)(BgL_arg5862z00_2362); 
BgL_test5793z00_2330 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1678z00_3420, BGl_kwotez00zzast_nodez00); } } } } 
if(BgL_test5793z00_2330)
{ /* ./Cgen/cgen.scm 738 */
BgL_nodez00_bglt BgL_arg5795z00_2331;
BgL_arg5795z00_2331 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_2325))->BgL_valuez00); 
{ /* ./Cgen/cgen.scm 740 */
obj_t BgL_zc3anonymousza35799ze3z83_3623;
{ 
int BgL_auxz00_4379;int BgL_auxz00_4377;
BgL_auxz00_4379 = 
(int)(((long)2)); 
BgL_auxz00_4377 = 
(int)(((long)1)); 
BgL_zc3anonymousza35799ze3z83_3623 = 
make_fx_procedure(BGl_zc3anonymousza35799ze3z83zzcgen_cgenz00, BgL_auxz00_4377, BgL_auxz00_4379); } 
{ /* ./Cgen/cgen.scm 740 */
obj_t BgL_auxz00_4384;int BgL_auxz00_4382;
BgL_auxz00_4384 = 
(obj_t)(BgL_nodez00_2325); 
BgL_auxz00_4382 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza35799ze3z83_3623, BgL_auxz00_4382, BgL_auxz00_4384); } 
{ /* ./Cgen/cgen.scm 740 */
int BgL_auxz00_4387;
BgL_auxz00_4387 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza35799ze3z83_3623, BgL_auxz00_4387, BgL_kontz00_2326); } 
{ /* ./Cgen/cgen.scm 738 */
BgL_copz00_bglt BgL_res6041z00_3448;
{ /* ./Cgen/cgen.scm 738 */
obj_t BgL_method3671z00_3423;
{ /* ./Cgen/cgen.scm 738 */
BgL_objectz00_bglt BgL_objz00_3424;
BgL_objz00_3424 = 
(BgL_objectz00_bglt)(BgL_arg5795z00_2331); 
{ /* ./Cgen/cgen.scm 738 */
long BgL_objzd2classzd2numz00_3425;
BgL_objzd2classzd2numz00_3425 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3424); 
{ /* ./Cgen/cgen.scm 738 */
obj_t BgL_arg2017z00_3426;
{ /* ./Cgen/cgen.scm 738 */
int BgL_auxz00_4392;
BgL_auxz00_4392 = 
(int)(((long)1)); 
BgL_arg2017z00_3426 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_4392); } 
{ /* ./Cgen/cgen.scm 738 */
int BgL_offsetz00_3429;
BgL_offsetz00_3429 = 
(int)(BgL_objzd2classzd2numz00_3425); 
{ /* ./Cgen/cgen.scm 738 */
long BgL_offsetz00_3430;
{ /* ./Cgen/cgen.scm 738 */
long BgL_auxz00_4396;
BgL_auxz00_4396 = 
(long)(BgL_offsetz00_3429); 
BgL_offsetz00_3430 = 
(BgL_auxz00_4396-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 738 */
long BgL_modz00_3431;
{ /* ./Cgen/cgen.scm 738 */
int BgL_arg2028z00_3432;
BgL_arg2028z00_3432 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 738 */
long BgL_n2z00_3440;
BgL_n2z00_3440 = 
(long)(BgL_arg2028z00_3432); 
BgL_modz00_3431 = 
(BgL_offsetz00_3430/BgL_n2z00_3440); } } 
{ /* ./Cgen/cgen.scm 738 */
long BgL_restz00_3433;
{ /* ./Cgen/cgen.scm 738 */
int BgL_arg2024z00_3434;
BgL_arg2024z00_3434 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 738 */
long BgL_n2z00_3443;
BgL_n2z00_3443 = 
(long)(BgL_arg2024z00_3434); 
BgL_restz00_3433 = 
(BgL_offsetz00_3430%BgL_n2z00_3443); } } 
{ /* ./Cgen/cgen.scm 738 */

{ /* ./Cgen/cgen.scm 738 */
obj_t BgL_bucketz00_3435;
{ /* ./Cgen/cgen.scm 738 */
int BgL_kz00_3445;
BgL_kz00_3445 = 
(int)(BgL_modz00_3431); 
BgL_bucketz00_3435 = 
VECTOR_REF(BgL_arg2017z00_3426,BgL_kz00_3445); } 
{ /* ./Cgen/cgen.scm 738 */
int BgL_kz00_3447;
BgL_kz00_3447 = 
(int)(BgL_restz00_3433); 
BgL_method3671z00_3423 = 
VECTOR_REF(BgL_bucketz00_3435,BgL_kz00_3447); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 738 */
obj_t BgL_auxz00_4409;
BgL_auxz00_4409 = 
PROCEDURE_ENTRY(BgL_method3671z00_3423)(BgL_method3671z00_3423, 
(obj_t)(BgL_arg5795z00_2331), BgL_zc3anonymousza35799ze3z83_3623, BEOA); 
BgL_res6041z00_3448 = 
(BgL_copz00_bglt)(BgL_auxz00_4409); } } 
return 
(obj_t)(BgL_res6041z00_3448);} } }  else 
{ /* ./Cgen/cgen.scm 742 */
BgL_localz00_bglt BgL_auxz00_2339;
BgL_auxz00_2339 = 
BGl_makezd2localzd2svarzf2namezf2zzcgen_cgenz00(
CNST_TABLE_REF(((long)4)), 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00)); 
{ /* ./Cgen/cgen.scm 742 */
BgL_copz00_bglt BgL_cvalz00_2340;
{ /* ./Cgen/cgen.scm 743 */
BgL_setqz00_bglt BgL_arg5852z00_2358;
{ /* ./Cgen/cgen.scm 743 */
BgL_nodez00_bglt BgL_arg5855z00_2359;
BgL_arg5855z00_2359 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_2325))->BgL_valuez00); 
BgL_arg5852z00_2358 = 
BGl_nodezd2setqzd2zzcgen_cgenz00(
(BgL_variablez00_bglt)(BgL_auxz00_2339), BgL_arg5855z00_2359); } 
{ /* ./Cgen/cgen.scm 743 */
BgL_copz00_bglt BgL_res6044z00_3478;
{ /* ./Cgen/cgen.scm 743 */
BgL_nodez00_bglt BgL_nodez00_3451;obj_t BgL_kontz00_3452;
BgL_nodez00_3451 = 
(BgL_nodez00_bglt)(BgL_arg5852z00_2358); 
BgL_kontz00_3452 = BGl_za2idzd2kontza2zd2zzcgen_cgenz00; 
{ /* ./Cgen/cgen.scm 743 */
obj_t BgL_method3671z00_3453;
{ /* ./Cgen/cgen.scm 743 */
BgL_objectz00_bglt BgL_objz00_3454;
BgL_objz00_3454 = 
(BgL_objectz00_bglt)(BgL_nodez00_3451); 
{ /* ./Cgen/cgen.scm 743 */
long BgL_objzd2classzd2numz00_3455;
BgL_objzd2classzd2numz00_3455 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3454); 
{ /* ./Cgen/cgen.scm 743 */
obj_t BgL_arg2017z00_3456;
{ /* ./Cgen/cgen.scm 743 */
int BgL_auxz00_4424;
BgL_auxz00_4424 = 
(int)(((long)1)); 
BgL_arg2017z00_3456 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_4424); } 
{ /* ./Cgen/cgen.scm 743 */
int BgL_offsetz00_3459;
BgL_offsetz00_3459 = 
(int)(BgL_objzd2classzd2numz00_3455); 
{ /* ./Cgen/cgen.scm 743 */
long BgL_offsetz00_3460;
{ /* ./Cgen/cgen.scm 743 */
long BgL_auxz00_4428;
BgL_auxz00_4428 = 
(long)(BgL_offsetz00_3459); 
BgL_offsetz00_3460 = 
(BgL_auxz00_4428-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 743 */
long BgL_modz00_3461;
{ /* ./Cgen/cgen.scm 743 */
int BgL_arg2028z00_3462;
BgL_arg2028z00_3462 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 743 */
long BgL_n2z00_3470;
BgL_n2z00_3470 = 
(long)(BgL_arg2028z00_3462); 
BgL_modz00_3461 = 
(BgL_offsetz00_3460/BgL_n2z00_3470); } } 
{ /* ./Cgen/cgen.scm 743 */
long BgL_restz00_3463;
{ /* ./Cgen/cgen.scm 743 */
int BgL_arg2024z00_3464;
BgL_arg2024z00_3464 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 743 */
long BgL_n2z00_3473;
BgL_n2z00_3473 = 
(long)(BgL_arg2024z00_3464); 
BgL_restz00_3463 = 
(BgL_offsetz00_3460%BgL_n2z00_3473); } } 
{ /* ./Cgen/cgen.scm 743 */

{ /* ./Cgen/cgen.scm 743 */
obj_t BgL_bucketz00_3465;
{ /* ./Cgen/cgen.scm 743 */
int BgL_kz00_3475;
BgL_kz00_3475 = 
(int)(BgL_modz00_3461); 
BgL_bucketz00_3465 = 
VECTOR_REF(BgL_arg2017z00_3456,BgL_kz00_3475); } 
{ /* ./Cgen/cgen.scm 743 */
int BgL_kz00_3477;
BgL_kz00_3477 = 
(int)(BgL_restz00_3463); 
BgL_method3671z00_3453 = 
VECTOR_REF(BgL_bucketz00_3465,BgL_kz00_3477); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 743 */
obj_t BgL_auxz00_4441;
BgL_auxz00_4441 = 
PROCEDURE_ENTRY(BgL_method3671z00_3453)(BgL_method3671z00_3453, 
(obj_t)(BgL_nodez00_3451), BgL_kontz00_3452, BEOA); 
BgL_res6044z00_3478 = 
(BgL_copz00_bglt)(BgL_auxz00_4441); } } } 
BgL_cvalz00_2340 = BgL_res6044z00_3478; } } 
{ /* ./Cgen/cgen.scm 743 */

{ /* ./Cgen/cgen.scm 745 */
obj_t BgL_arg5809z00_2341;BgL_csequencez00_bglt BgL_arg5810z00_2342;
{ /* ./Cgen/cgen.scm 745 */
BgL_nodez00_bglt BgL_obj1560z00_3479;
BgL_obj1560z00_3479 = 
(BgL_nodez00_bglt)(BgL_nodez00_2325); 
BgL_arg5809z00_2341 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3479))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 747 */
obj_t BgL_arg5814z00_2343;obj_t BgL_arg5815z00_2344;
{ /* ./Cgen/cgen.scm 747 */
BgL_nodez00_bglt BgL_obj1560z00_3480;
BgL_obj1560z00_3480 = 
(BgL_nodez00_bglt)(BgL_nodez00_2325); 
BgL_arg5814z00_2343 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3480))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 750 */
BgL_localzd2varzd2_bglt BgL_arg5819z00_2345;obj_t BgL_arg5820z00_2346;
{ /* ./Cgen/cgen.scm 750 */
obj_t BgL_arg5831z00_2350;obj_t BgL_arg5832z00_2351;
{ /* ./Cgen/cgen.scm 750 */
BgL_nodez00_bglt BgL_obj1560z00_3481;
BgL_obj1560z00_3481 = 
(BgL_nodez00_bglt)(BgL_nodez00_2325); 
BgL_arg5831z00_2350 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3481))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 751 */
obj_t BgL_list5836z00_2352;
{ /* ./Cgen/cgen.scm 751 */
obj_t BgL_auxz00_4452;
BgL_auxz00_4452 = 
(obj_t)(BgL_auxz00_2339); 
BgL_list5836z00_2352 = 
MAKE_PAIR(BgL_auxz00_4452, BNIL); } 
BgL_arg5832z00_2351 = BgL_list5836z00_2352; } 
BgL_arg5819z00_2345 = 
BGl_makezd2localzd2varz00zzcgen_copz00(BgL_arg5831z00_2350, BgL_arg5832z00_2351); } 
{ /* ./Cgen/cgen.scm 755 */
BgL_cmakezd2boxzd2_bglt BgL_arg5839z00_2353;
{ /* ./Cgen/cgen.scm 755 */
obj_t BgL_arg5842z00_2354;BgL_varcz00_bglt BgL_arg5843z00_2355;
{ /* ./Cgen/cgen.scm 755 */
BgL_nodez00_bglt BgL_obj1560z00_3484;
BgL_obj1560z00_3484 = 
(BgL_nodez00_bglt)(BgL_nodez00_2325); 
BgL_arg5842z00_2354 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3484))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 757 */
obj_t BgL_arg5847z00_2356;BgL_localz00_bglt BgL_arg5848z00_2357;
{ /* ./Cgen/cgen.scm 757 */
BgL_nodez00_bglt BgL_obj1560z00_3485;
BgL_obj1560z00_3485 = 
(BgL_nodez00_bglt)(BgL_nodez00_2325); 
BgL_arg5847z00_2356 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3485))->BgL_locz00); } 
BgL_arg5848z00_2357 = BgL_auxz00_2339; 
BgL_arg5843z00_2355 = 
BGl_makezd2varczd2zzcgen_copz00(BgL_arg5847z00_2356, 
(BgL_variablez00_bglt)(BgL_arg5848z00_2357)); } 
BgL_arg5839z00_2353 = 
BGl_makezd2cmakezd2boxz00zzcgen_copz00(BgL_arg5842z00_2354, 
(BgL_copz00_bglt)(BgL_arg5843z00_2355)); } 
BgL_arg5820z00_2346 = 
PROCEDURE_ENTRY(BgL_kontz00_2326)(BgL_kontz00_2326, 
(obj_t)(BgL_arg5839z00_2353), BEOA); } 
{ /* ./Cgen/cgen.scm 748 */
obj_t BgL_list5822z00_2347;
{ /* ./Cgen/cgen.scm 748 */
obj_t BgL_arg5824z00_2348;
{ /* ./Cgen/cgen.scm 748 */
obj_t BgL_arg5827z00_2349;
BgL_arg5827z00_2349 = 
MAKE_PAIR(BgL_arg5820z00_2346, BNIL); 
{ /* ./Cgen/cgen.scm 748 */
obj_t BgL_auxz00_4468;
BgL_auxz00_4468 = 
(obj_t)(BgL_cvalz00_2340); 
BgL_arg5824z00_2348 = 
MAKE_PAIR(BgL_auxz00_4468, BgL_arg5827z00_2349); } } 
{ /* ./Cgen/cgen.scm 748 */
obj_t BgL_auxz00_4471;
BgL_auxz00_4471 = 
(obj_t)(BgL_arg5819z00_2345); 
BgL_list5822z00_2347 = 
MAKE_PAIR(BgL_auxz00_4471, BgL_arg5824z00_2348); } } 
BgL_arg5815z00_2344 = BgL_list5822z00_2347; } } 
BgL_arg5810z00_2342 = 
BGl_makezd2csequencezd2zzcgen_copz00(BgL_arg5814z00_2343, ((bool_t)0), BgL_arg5815z00_2344); } 
{ /* ./Cgen/cgen.scm 744 */
BgL_blockz00_bglt BgL_auxz00_4475;
BgL_auxz00_4475 = 
BGl_makezd2blockzd2zzcgen_copz00(BgL_arg5809z00_2341, 
(BgL_copz00_bglt)(BgL_arg5810z00_2342)); 
return 
(obj_t)(BgL_auxz00_4475);} } } } } } } } 
}



/* <anonymous:5799> */
obj_t BGl_zc3anonymousza35799ze3z83zzcgen_cgenz00(obj_t BgL_envz00_3665, obj_t BgL_vz00_3668)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 739 */
{ /* ./Cgen/cgen.scm 740 */
obj_t BgL_instance3646z00_3666;obj_t BgL_kontz00_3667;
{ /* ./Cgen/cgen.scm 740 */
int BgL_auxz00_4480;
BgL_auxz00_4480 = 
(int)(((long)0)); 
BgL_instance3646z00_3666 = 
PROCEDURE_REF(BgL_envz00_3665, BgL_auxz00_4480); } 
{ /* ./Cgen/cgen.scm 740 */
int BgL_auxz00_4483;
BgL_auxz00_4483 = 
(int)(((long)1)); 
BgL_kontz00_3667 = 
PROCEDURE_REF(BgL_envz00_3665, BgL_auxz00_4483); } 
{ 
obj_t BgL_vz00_2333;
BgL_vz00_2333 = BgL_vz00_3668; 
{ /* ./Cgen/cgen.scm 740 */
BgL_cmakezd2boxzd2_bglt BgL_arg5801z00_2335;
{ /* ./Cgen/cgen.scm 740 */
obj_t BgL_arg5804z00_2336;obj_t BgL_arg5805z00_2337;
{ /* ./Cgen/cgen.scm 740 */
BgL_nodez00_bglt BgL_obj1560z00_3449;
BgL_obj1560z00_3449 = 
(BgL_nodez00_bglt)(BgL_instance3646z00_3666); 
BgL_arg5804z00_2336 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3449))->BgL_locz00); } 
BgL_arg5805z00_2337 = BgL_vz00_2333; 
BgL_arg5801z00_2335 = 
BGl_makezd2cmakezd2boxz00zzcgen_copz00(BgL_arg5804z00_2336, 
(BgL_copz00_bglt)(BgL_arg5805z00_2337)); } 
return 
PROCEDURE_ENTRY(BgL_kontz00_3667)(BgL_kontz00_3667, 
(obj_t)(BgL_arg5801z00_2335), BEOA);} } } } 
}



/* node->cop-jump-ex-it3713 */
obj_t BGl_nodezd2ze3copzd2jumpzd2exzd2it3713ze3zzcgen_cgenz00(obj_t BgL_envz00_3669, obj_t BgL_nodez00_3670, obj_t BgL_kontz00_3671)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 654 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_2222;obj_t BgL_kontz00_2223;
BgL_nodez00_2222 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_3670); 
BgL_kontz00_2223 = BgL_kontz00_3671; 
{ /* ./Cgen/cgen.scm 659 */
BgL_localz00_bglt BgL_vauxz00_2227;
BgL_vauxz00_2227 = 
BGl_makezd2localzd2svarzf2namezf2zzcgen_cgenz00(
CNST_TABLE_REF(((long)3)), 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00)); 
{ /* ./Cgen/cgen.scm 659 */
BgL_copz00_bglt BgL_vcopz00_2228;
{ /* ./Cgen/cgen.scm 660 */
BgL_setqz00_bglt BgL_arg5780z00_2321;
{ /* ./Cgen/cgen.scm 660 */
BgL_nodez00_bglt BgL_arg5783z00_2322;
BgL_arg5783z00_2322 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_2222))->BgL_valuez00); 
BgL_arg5780z00_2321 = 
BGl_nodezd2setqzd2zzcgen_cgenz00(
(BgL_variablez00_bglt)(BgL_vauxz00_2227), BgL_arg5783z00_2322); } 
{ /* ./Cgen/cgen.scm 660 */
BgL_copz00_bglt BgL_res6026z00_3329;
{ /* ./Cgen/cgen.scm 660 */
BgL_nodez00_bglt BgL_nodez00_3302;obj_t BgL_kontz00_3303;
BgL_nodez00_3302 = 
(BgL_nodez00_bglt)(BgL_arg5780z00_2321); 
BgL_kontz00_3303 = BGl_za2idzd2kontza2zd2zzcgen_cgenz00; 
{ /* ./Cgen/cgen.scm 660 */
obj_t BgL_method3671z00_3304;
{ /* ./Cgen/cgen.scm 660 */
BgL_objectz00_bglt BgL_objz00_3305;
BgL_objz00_3305 = 
(BgL_objectz00_bglt)(BgL_nodez00_3302); 
{ /* ./Cgen/cgen.scm 660 */
long BgL_objzd2classzd2numz00_3306;
BgL_objzd2classzd2numz00_3306 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3305); 
{ /* ./Cgen/cgen.scm 660 */
obj_t BgL_arg2017z00_3307;
{ /* ./Cgen/cgen.scm 660 */
int BgL_auxz00_4502;
BgL_auxz00_4502 = 
(int)(((long)1)); 
BgL_arg2017z00_3307 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_4502); } 
{ /* ./Cgen/cgen.scm 660 */
int BgL_offsetz00_3310;
BgL_offsetz00_3310 = 
(int)(BgL_objzd2classzd2numz00_3306); 
{ /* ./Cgen/cgen.scm 660 */
long BgL_offsetz00_3311;
{ /* ./Cgen/cgen.scm 660 */
long BgL_auxz00_4506;
BgL_auxz00_4506 = 
(long)(BgL_offsetz00_3310); 
BgL_offsetz00_3311 = 
(BgL_auxz00_4506-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 660 */
long BgL_modz00_3312;
{ /* ./Cgen/cgen.scm 660 */
int BgL_arg2028z00_3313;
BgL_arg2028z00_3313 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 660 */
long BgL_n2z00_3321;
BgL_n2z00_3321 = 
(long)(BgL_arg2028z00_3313); 
BgL_modz00_3312 = 
(BgL_offsetz00_3311/BgL_n2z00_3321); } } 
{ /* ./Cgen/cgen.scm 660 */
long BgL_restz00_3314;
{ /* ./Cgen/cgen.scm 660 */
int BgL_arg2024z00_3315;
BgL_arg2024z00_3315 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 660 */
long BgL_n2z00_3324;
BgL_n2z00_3324 = 
(long)(BgL_arg2024z00_3315); 
BgL_restz00_3314 = 
(BgL_offsetz00_3311%BgL_n2z00_3324); } } 
{ /* ./Cgen/cgen.scm 660 */

{ /* ./Cgen/cgen.scm 660 */
obj_t BgL_bucketz00_3316;
{ /* ./Cgen/cgen.scm 660 */
int BgL_kz00_3326;
BgL_kz00_3326 = 
(int)(BgL_modz00_3312); 
BgL_bucketz00_3316 = 
VECTOR_REF(BgL_arg2017z00_3307,BgL_kz00_3326); } 
{ /* ./Cgen/cgen.scm 660 */
int BgL_kz00_3328;
BgL_kz00_3328 = 
(int)(BgL_restz00_3314); 
BgL_method3671z00_3304 = 
VECTOR_REF(BgL_bucketz00_3316,BgL_kz00_3328); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 660 */
obj_t BgL_auxz00_4519;
BgL_auxz00_4519 = 
PROCEDURE_ENTRY(BgL_method3671z00_3304)(BgL_method3671z00_3304, 
(obj_t)(BgL_nodez00_3302), BgL_kontz00_3303, BEOA); 
BgL_res6026z00_3329 = 
(BgL_copz00_bglt)(BgL_auxz00_4519); } } } 
BgL_vcopz00_2228 = BgL_res6026z00_3329; } } 
{ /* ./Cgen/cgen.scm 660 */
BgL_nodez00_bglt BgL_exitz00_2229;
BgL_exitz00_2229 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_2222))->BgL_exitz00); 
{ /* ./Cgen/cgen.scm 661 */
BgL_localz00_bglt BgL_eauxz00_2230;
BgL_eauxz00_2230 = 
BGl_makezd2localzd2svarzf2namezf2zzcgen_cgenz00(
CNST_TABLE_REF(((long)5)), 
(BgL_typez00_bglt)(BGl_za2procedureza2z00zztype_cachez00)); 
{ /* ./Cgen/cgen.scm 662 */
BgL_copz00_bglt BgL_ecopz00_2231;
{ /* ./Cgen/cgen.scm 663 */
BgL_setqz00_bglt BgL_arg5774z00_2320;
BgL_arg5774z00_2320 = 
BGl_nodezd2setqzd2zzcgen_cgenz00(
(BgL_variablez00_bglt)(BgL_eauxz00_2230), BgL_exitz00_2229); 
{ /* ./Cgen/cgen.scm 663 */
BgL_copz00_bglt BgL_res6029z00_3358;
{ /* ./Cgen/cgen.scm 663 */
BgL_nodez00_bglt BgL_nodez00_3331;obj_t BgL_kontz00_3332;
BgL_nodez00_3331 = 
(BgL_nodez00_bglt)(BgL_arg5774z00_2320); 
BgL_kontz00_3332 = BGl_za2idzd2kontza2zd2zzcgen_cgenz00; 
{ /* ./Cgen/cgen.scm 663 */
obj_t BgL_method3671z00_3333;
{ /* ./Cgen/cgen.scm 663 */
BgL_objectz00_bglt BgL_objz00_3334;
BgL_objz00_3334 = 
(BgL_objectz00_bglt)(BgL_nodez00_3331); 
{ /* ./Cgen/cgen.scm 663 */
long BgL_objzd2classzd2numz00_3335;
BgL_objzd2classzd2numz00_3335 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3334); 
{ /* ./Cgen/cgen.scm 663 */
obj_t BgL_arg2017z00_3336;
{ /* ./Cgen/cgen.scm 663 */
int BgL_auxz00_4533;
BgL_auxz00_4533 = 
(int)(((long)1)); 
BgL_arg2017z00_3336 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_4533); } 
{ /* ./Cgen/cgen.scm 663 */
int BgL_offsetz00_3339;
BgL_offsetz00_3339 = 
(int)(BgL_objzd2classzd2numz00_3335); 
{ /* ./Cgen/cgen.scm 663 */
long BgL_offsetz00_3340;
{ /* ./Cgen/cgen.scm 663 */
long BgL_auxz00_4537;
BgL_auxz00_4537 = 
(long)(BgL_offsetz00_3339); 
BgL_offsetz00_3340 = 
(BgL_auxz00_4537-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 663 */
long BgL_modz00_3341;
{ /* ./Cgen/cgen.scm 663 */
int BgL_arg2028z00_3342;
BgL_arg2028z00_3342 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 663 */
long BgL_n2z00_3350;
BgL_n2z00_3350 = 
(long)(BgL_arg2028z00_3342); 
BgL_modz00_3341 = 
(BgL_offsetz00_3340/BgL_n2z00_3350); } } 
{ /* ./Cgen/cgen.scm 663 */
long BgL_restz00_3343;
{ /* ./Cgen/cgen.scm 663 */
int BgL_arg2024z00_3344;
BgL_arg2024z00_3344 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 663 */
long BgL_n2z00_3353;
BgL_n2z00_3353 = 
(long)(BgL_arg2024z00_3344); 
BgL_restz00_3343 = 
(BgL_offsetz00_3340%BgL_n2z00_3353); } } 
{ /* ./Cgen/cgen.scm 663 */

{ /* ./Cgen/cgen.scm 663 */
obj_t BgL_bucketz00_3345;
{ /* ./Cgen/cgen.scm 663 */
int BgL_kz00_3355;
BgL_kz00_3355 = 
(int)(BgL_modz00_3341); 
BgL_bucketz00_3345 = 
VECTOR_REF(BgL_arg2017z00_3336,BgL_kz00_3355); } 
{ /* ./Cgen/cgen.scm 663 */
int BgL_kz00_3357;
BgL_kz00_3357 = 
(int)(BgL_restz00_3343); 
BgL_method3671z00_3333 = 
VECTOR_REF(BgL_bucketz00_3345,BgL_kz00_3357); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 663 */
obj_t BgL_auxz00_4550;
BgL_auxz00_4550 = 
PROCEDURE_ENTRY(BgL_method3671z00_3333)(BgL_method3671z00_3333, 
(obj_t)(BgL_nodez00_3331), BgL_kontz00_3332, BEOA); 
BgL_res6029z00_3358 = 
(BgL_copz00_bglt)(BgL_auxz00_4550); } } } 
BgL_ecopz00_2231 = BgL_res6029z00_3358; } } 
{ /* ./Cgen/cgen.scm 663 */

{ /* ./Cgen/cgen.scm 665 */
bool_t BgL_test5554z00_2232;
{ /* ./Cgen/cgen.scm 665 */
bool_t BgL_test5754z00_2313;
{ /* ./Cgen/cgen.scm 665 */
obj_t BgL_obj2881z00_3359;
BgL_obj2881z00_3359 = 
(obj_t)(BgL_vcopz00_2228); 
BgL_test5754z00_2313 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2881z00_3359, BGl_csetqz00zzcgen_copz00); } 
if(BgL_test5754z00_2313)
{ /* ./Cgen/cgen.scm 665 */
bool_t BgL_test5755z00_2314;
{ /* ./Cgen/cgen.scm 665 */
obj_t BgL_auxz00_4564;obj_t BgL_auxz00_4558;
BgL_auxz00_4564 = 
(obj_t)(BgL_vauxz00_2227); 
{ /* ./Cgen/cgen.scm 665 */
BgL_variablez00_bglt BgL_auxz00_4559;
{ /* ./Cgen/cgen.scm 665 */
BgL_varcz00_bglt BgL_arg5769z00_2319;
{ /* ./Cgen/cgen.scm 665 */
BgL_csetqz00_bglt BgL_obj2867z00_3360;
BgL_obj2867z00_3360 = 
(BgL_csetqz00_bglt)(BgL_vcopz00_2228); 
BgL_arg5769z00_2319 = 
(((BgL_csetqz00_bglt)CREF(BgL_obj2867z00_3360))->BgL_varz00); } 
BgL_auxz00_4559 = 
(((BgL_varcz00_bglt)CREF(BgL_arg5769z00_2319))->BgL_variablez00); } 
BgL_auxz00_4558 = 
(obj_t)(BgL_auxz00_4559); } 
BgL_test5755z00_2314 = 
(BgL_auxz00_4558==BgL_auxz00_4564); } 
if(BgL_test5755z00_2314)
{ /* ./Cgen/cgen.scm 666 */
bool_t BgL_test5756z00_2315;
{ /* ./Cgen/cgen.scm 666 */
obj_t BgL_obj2881z00_3362;
BgL_obj2881z00_3362 = 
(obj_t)(BgL_ecopz00_2231); 
BgL_test5756z00_2315 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2881z00_3362, BGl_csetqz00zzcgen_copz00); } 
if(BgL_test5756z00_2315)
{ /* ./Cgen/cgen.scm 666 */
obj_t BgL_auxz00_4577;obj_t BgL_auxz00_4571;
BgL_auxz00_4577 = 
(obj_t)(BgL_eauxz00_2230); 
{ /* ./Cgen/cgen.scm 666 */
BgL_variablez00_bglt BgL_auxz00_4572;
{ /* ./Cgen/cgen.scm 666 */
BgL_varcz00_bglt BgL_arg5761z00_2317;
{ /* ./Cgen/cgen.scm 666 */
BgL_csetqz00_bglt BgL_obj2867z00_3363;
BgL_obj2867z00_3363 = 
(BgL_csetqz00_bglt)(BgL_ecopz00_2231); 
BgL_arg5761z00_2317 = 
(((BgL_csetqz00_bglt)CREF(BgL_obj2867z00_3363))->BgL_varz00); } 
BgL_auxz00_4572 = 
(((BgL_varcz00_bglt)CREF(BgL_arg5761z00_2317))->BgL_variablez00); } 
BgL_auxz00_4571 = 
(obj_t)(BgL_auxz00_4572); } 
BgL_test5554z00_2232 = 
(BgL_auxz00_4571==BgL_auxz00_4577); }  else 
{ /* ./Cgen/cgen.scm 666 */
BgL_test5554z00_2232 = ((bool_t)0); } }  else 
{ /* ./Cgen/cgen.scm 665 */
BgL_test5554z00_2232 = ((bool_t)0); } }  else 
{ /* ./Cgen/cgen.scm 665 */
BgL_test5554z00_2232 = ((bool_t)0); } } 
if(BgL_test5554z00_2232)
{ /* ./Cgen/cgen.scm 665 */
{ /* ./Cgen/cgen.scm 669 */
BgL_cjumpzd2exzd2itz00_bglt BgL_arg5556z00_2233;
{ /* ./Cgen/cgen.scm 669 */
obj_t BgL_arg5559z00_2234;BgL_copz00_bglt BgL_arg5560z00_2235;BgL_copz00_bglt BgL_arg5561z00_2236;
{ /* ./Cgen/cgen.scm 669 */
BgL_nodez00_bglt BgL_obj1560z00_3365;
BgL_obj1560z00_3365 = 
(BgL_nodez00_bglt)(BgL_nodez00_2222); 
BgL_arg5559z00_2234 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3365))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 670 */
BgL_csetqz00_bglt BgL_obj2868z00_3366;
BgL_obj2868z00_3366 = 
(BgL_csetqz00_bglt)(BgL_ecopz00_2231); 
BgL_arg5560z00_2235 = 
(((BgL_csetqz00_bglt)CREF(BgL_obj2868z00_3366))->BgL_valuez00); } 
{ /* ./Cgen/cgen.scm 671 */
BgL_csetqz00_bglt BgL_obj2868z00_3367;
BgL_obj2868z00_3367 = 
(BgL_csetqz00_bglt)(BgL_vcopz00_2228); 
BgL_arg5561z00_2236 = 
(((BgL_csetqz00_bglt)CREF(BgL_obj2868z00_3367))->BgL_valuez00); } 
BgL_arg5556z00_2233 = 
BGl_makezd2cjumpzd2exzd2itzd2zzcgen_copz00(BgL_arg5559z00_2234, BgL_arg5560z00_2235, BgL_arg5561z00_2236); } 
return 
(obj_t)(BgL_arg5556z00_2233);} }  else 
{ /* ./Cgen/cgen.scm 672 */
bool_t BgL_test5566z00_2237;
{ /* ./Cgen/cgen.scm 672 */
bool_t BgL_test5745z00_2310;
{ /* ./Cgen/cgen.scm 672 */
obj_t BgL_obj2881z00_3369;
BgL_obj2881z00_3369 = 
(obj_t)(BgL_vcopz00_2228); 
BgL_test5745z00_2310 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2881z00_3369, BGl_csetqz00zzcgen_copz00); } 
if(BgL_test5745z00_2310)
{ /* ./Cgen/cgen.scm 672 */
obj_t BgL_auxz00_4598;obj_t BgL_auxz00_4592;
BgL_auxz00_4598 = 
(obj_t)(BgL_vauxz00_2227); 
{ /* ./Cgen/cgen.scm 672 */
BgL_variablez00_bglt BgL_auxz00_4593;
{ /* ./Cgen/cgen.scm 672 */
BgL_varcz00_bglt BgL_arg5750z00_2312;
{ /* ./Cgen/cgen.scm 672 */
BgL_csetqz00_bglt BgL_obj2867z00_3370;
BgL_obj2867z00_3370 = 
(BgL_csetqz00_bglt)(BgL_vcopz00_2228); 
BgL_arg5750z00_2312 = 
(((BgL_csetqz00_bglt)CREF(BgL_obj2867z00_3370))->BgL_varz00); } 
BgL_auxz00_4593 = 
(((BgL_varcz00_bglt)CREF(BgL_arg5750z00_2312))->BgL_variablez00); } 
BgL_auxz00_4592 = 
(obj_t)(BgL_auxz00_4593); } 
BgL_test5566z00_2237 = 
(BgL_auxz00_4592==BgL_auxz00_4598); }  else 
{ /* ./Cgen/cgen.scm 672 */
BgL_test5566z00_2237 = ((bool_t)0); } } 
if(BgL_test5566z00_2237)
{ /* ./Cgen/cgen.scm 672 */
{ /* ./Cgen/cgen.scm 674 */
obj_t BgL_arg5568z00_2238;BgL_csequencez00_bglt BgL_arg5569z00_2239;
{ /* ./Cgen/cgen.scm 674 */
BgL_nodez00_bglt BgL_obj1560z00_3372;
BgL_obj1560z00_3372 = 
(BgL_nodez00_bglt)(BgL_nodez00_2222); 
BgL_arg5568z00_2238 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3372))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 676 */
obj_t BgL_arg5573z00_2240;obj_t BgL_arg5574z00_2241;
{ /* ./Cgen/cgen.scm 676 */
BgL_nodez00_bglt BgL_obj1560z00_3373;
BgL_obj1560z00_3373 = 
(BgL_nodez00_bglt)(BgL_nodez00_2222); 
BgL_arg5573z00_2240 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3373))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 678 */
BgL_localzd2varzd2_bglt BgL_arg5578z00_2242;BgL_csequencez00_bglt BgL_arg5579z00_2243;BgL_cjumpzd2exzd2itz00_bglt BgL_arg5580z00_2244;
{ /* ./Cgen/cgen.scm 678 */
obj_t BgL_arg5591z00_2248;obj_t BgL_arg5592z00_2249;
{ /* ./Cgen/cgen.scm 678 */
BgL_nodez00_bglt BgL_obj1560z00_3374;
BgL_obj1560z00_3374 = 
(BgL_nodez00_bglt)(BgL_nodez00_2222); 
BgL_arg5591z00_2248 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3374))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 679 */
obj_t BgL_list5596z00_2250;
{ /* ./Cgen/cgen.scm 679 */
obj_t BgL_auxz00_4608;
BgL_auxz00_4608 = 
(obj_t)(BgL_eauxz00_2230); 
BgL_list5596z00_2250 = 
MAKE_PAIR(BgL_auxz00_4608, BNIL); } 
BgL_arg5592z00_2249 = BgL_list5596z00_2250; } 
BgL_arg5578z00_2242 = 
BGl_makezd2localzd2varz00zzcgen_copz00(BgL_arg5591z00_2248, BgL_arg5592z00_2249); } 
{ /* ./Cgen/cgen.scm 681 */
obj_t BgL_arg5599z00_2251;obj_t BgL_arg5600z00_2252;
{ /* ./Cgen/cgen.scm 681 */
BgL_nodez00_bglt BgL_obj1560z00_3377;
BgL_obj1560z00_3377 = 
(BgL_nodez00_bglt)(BgL_nodez00_2222); 
BgL_arg5599z00_2251 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3377))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 682 */
obj_t BgL_list5604z00_2253;
{ /* ./Cgen/cgen.scm 682 */
obj_t BgL_auxz00_4614;
BgL_auxz00_4614 = 
(obj_t)(BgL_ecopz00_2231); 
BgL_list5604z00_2253 = 
MAKE_PAIR(BgL_auxz00_4614, BNIL); } 
BgL_arg5600z00_2252 = BgL_list5604z00_2253; } 
BgL_arg5579z00_2243 = 
BGl_makezd2csequencezd2zzcgen_copz00(BgL_arg5599z00_2251, ((bool_t)0), BgL_arg5600z00_2252); } 
{ /* ./Cgen/cgen.scm 685 */
BgL_cjumpzd2exzd2itz00_bglt BgL_arg5607z00_2254;
{ /* ./Cgen/cgen.scm 685 */
obj_t BgL_arg5610z00_2255;BgL_varcz00_bglt BgL_arg5611z00_2256;BgL_copz00_bglt BgL_arg5612z00_2257;
{ /* ./Cgen/cgen.scm 685 */
BgL_nodez00_bglt BgL_obj1560z00_3380;
BgL_obj1560z00_3380 = 
(BgL_nodez00_bglt)(BgL_nodez00_2222); 
BgL_arg5610z00_2255 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3380))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 687 */
obj_t BgL_arg5616z00_2258;BgL_localz00_bglt BgL_arg5617z00_2259;
{ /* ./Cgen/cgen.scm 687 */
BgL_nodez00_bglt BgL_obj1560z00_3381;
BgL_obj1560z00_3381 = 
(BgL_nodez00_bglt)(BgL_nodez00_2222); 
BgL_arg5616z00_2258 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3381))->BgL_locz00); } 
BgL_arg5617z00_2259 = BgL_eauxz00_2230; 
BgL_arg5611z00_2256 = 
BGl_makezd2varczd2zzcgen_copz00(BgL_arg5616z00_2258, 
(BgL_variablez00_bglt)(BgL_arg5617z00_2259)); } 
{ /* ./Cgen/cgen.scm 689 */
BgL_csetqz00_bglt BgL_obj2868z00_3382;
BgL_obj2868z00_3382 = 
(BgL_csetqz00_bglt)(BgL_vcopz00_2228); 
BgL_arg5612z00_2257 = 
(((BgL_csetqz00_bglt)CREF(BgL_obj2868z00_3382))->BgL_valuez00); } 
BgL_arg5607z00_2254 = 
BGl_makezd2cjumpzd2exzd2itzd2zzcgen_copz00(BgL_arg5610z00_2255, 
(BgL_copz00_bglt)(BgL_arg5611z00_2256), BgL_arg5612z00_2257); } 
BgL_arg5580z00_2244 = BgL_arg5607z00_2254; } 
{ /* ./Cgen/cgen.scm 677 */
obj_t BgL_list5582z00_2245;
{ /* ./Cgen/cgen.scm 677 */
obj_t BgL_arg5584z00_2246;
{ /* ./Cgen/cgen.scm 677 */
obj_t BgL_arg5587z00_2247;
{ /* ./Cgen/cgen.scm 677 */
obj_t BgL_auxz00_4628;
BgL_auxz00_4628 = 
(obj_t)(BgL_arg5580z00_2244); 
BgL_arg5587z00_2247 = 
MAKE_PAIR(BgL_auxz00_4628, BNIL); } 
{ /* ./Cgen/cgen.scm 677 */
obj_t BgL_auxz00_4631;
BgL_auxz00_4631 = 
(obj_t)(BgL_arg5579z00_2243); 
BgL_arg5584z00_2246 = 
MAKE_PAIR(BgL_auxz00_4631, BgL_arg5587z00_2247); } } 
{ /* ./Cgen/cgen.scm 677 */
obj_t BgL_auxz00_4634;
BgL_auxz00_4634 = 
(obj_t)(BgL_arg5578z00_2242); 
BgL_list5582z00_2245 = 
MAKE_PAIR(BgL_auxz00_4634, BgL_arg5584z00_2246); } } 
BgL_arg5574z00_2241 = BgL_list5582z00_2245; } } 
BgL_arg5569z00_2239 = 
BGl_makezd2csequencezd2zzcgen_copz00(BgL_arg5573z00_2240, ((bool_t)0), BgL_arg5574z00_2241); } 
{ /* ./Cgen/cgen.scm 673 */
BgL_blockz00_bglt BgL_auxz00_4638;
BgL_auxz00_4638 = 
BGl_makezd2blockzd2zzcgen_copz00(BgL_arg5568z00_2238, 
(BgL_copz00_bglt)(BgL_arg5569z00_2239)); 
return 
(obj_t)(BgL_auxz00_4638);} } }  else 
{ /* ./Cgen/cgen.scm 690 */
bool_t BgL_test5621z00_2260;
{ /* ./Cgen/cgen.scm 690 */
bool_t BgL_test5736z00_2307;
{ /* ./Cgen/cgen.scm 690 */
obj_t BgL_obj2881z00_3386;
BgL_obj2881z00_3386 = 
(obj_t)(BgL_ecopz00_2231); 
BgL_test5736z00_2307 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2881z00_3386, BGl_csetqz00zzcgen_copz00); } 
if(BgL_test5736z00_2307)
{ /* ./Cgen/cgen.scm 690 */
obj_t BgL_auxz00_4651;obj_t BgL_auxz00_4645;
BgL_auxz00_4651 = 
(obj_t)(BgL_eauxz00_2230); 
{ /* ./Cgen/cgen.scm 690 */
BgL_variablez00_bglt BgL_auxz00_4646;
{ /* ./Cgen/cgen.scm 690 */
BgL_varcz00_bglt BgL_arg5741z00_2309;
{ /* ./Cgen/cgen.scm 690 */
BgL_csetqz00_bglt BgL_obj2867z00_3387;
BgL_obj2867z00_3387 = 
(BgL_csetqz00_bglt)(BgL_ecopz00_2231); 
BgL_arg5741z00_2309 = 
(((BgL_csetqz00_bglt)CREF(BgL_obj2867z00_3387))->BgL_varz00); } 
BgL_auxz00_4646 = 
(((BgL_varcz00_bglt)CREF(BgL_arg5741z00_2309))->BgL_variablez00); } 
BgL_auxz00_4645 = 
(obj_t)(BgL_auxz00_4646); } 
BgL_test5621z00_2260 = 
(BgL_auxz00_4645==BgL_auxz00_4651); }  else 
{ /* ./Cgen/cgen.scm 690 */
BgL_test5621z00_2260 = ((bool_t)0); } } 
if(BgL_test5621z00_2260)
{ /* ./Cgen/cgen.scm 690 */
{ /* ./Cgen/cgen.scm 692 */
obj_t BgL_arg5623z00_2261;BgL_csequencez00_bglt BgL_arg5624z00_2262;
{ /* ./Cgen/cgen.scm 692 */
BgL_nodez00_bglt BgL_obj1560z00_3389;
BgL_obj1560z00_3389 = 
(BgL_nodez00_bglt)(BgL_nodez00_2222); 
BgL_arg5623z00_2261 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3389))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 694 */
obj_t BgL_arg5628z00_2263;obj_t BgL_arg5629z00_2264;
{ /* ./Cgen/cgen.scm 694 */
BgL_nodez00_bglt BgL_obj1560z00_3390;
BgL_obj1560z00_3390 = 
(BgL_nodez00_bglt)(BgL_nodez00_2222); 
BgL_arg5628z00_2263 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3390))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 696 */
BgL_localzd2varzd2_bglt BgL_arg5633z00_2265;BgL_csequencez00_bglt BgL_arg5634z00_2266;BgL_cjumpzd2exzd2itz00_bglt BgL_arg5635z00_2267;
{ /* ./Cgen/cgen.scm 696 */
obj_t BgL_arg5646z00_2271;obj_t BgL_arg5647z00_2272;
{ /* ./Cgen/cgen.scm 696 */
BgL_nodez00_bglt BgL_obj1560z00_3391;
BgL_obj1560z00_3391 = 
(BgL_nodez00_bglt)(BgL_nodez00_2222); 
BgL_arg5646z00_2271 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3391))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 697 */
obj_t BgL_list5651z00_2273;
{ /* ./Cgen/cgen.scm 697 */
obj_t BgL_auxz00_4661;
BgL_auxz00_4661 = 
(obj_t)(BgL_vauxz00_2227); 
BgL_list5651z00_2273 = 
MAKE_PAIR(BgL_auxz00_4661, BNIL); } 
BgL_arg5647z00_2272 = BgL_list5651z00_2273; } 
BgL_arg5633z00_2265 = 
BGl_makezd2localzd2varz00zzcgen_copz00(BgL_arg5646z00_2271, BgL_arg5647z00_2272); } 
{ /* ./Cgen/cgen.scm 699 */
obj_t BgL_arg5654z00_2274;obj_t BgL_arg5655z00_2275;
{ /* ./Cgen/cgen.scm 699 */
BgL_nodez00_bglt BgL_obj1560z00_3394;
BgL_obj1560z00_3394 = 
(BgL_nodez00_bglt)(BgL_nodez00_2222); 
BgL_arg5654z00_2274 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3394))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 700 */
obj_t BgL_list5659z00_2276;
{ /* ./Cgen/cgen.scm 700 */
obj_t BgL_auxz00_4667;
BgL_auxz00_4667 = 
(obj_t)(BgL_vcopz00_2228); 
BgL_list5659z00_2276 = 
MAKE_PAIR(BgL_auxz00_4667, BNIL); } 
BgL_arg5655z00_2275 = BgL_list5659z00_2276; } 
BgL_arg5634z00_2266 = 
BGl_makezd2csequencezd2zzcgen_copz00(BgL_arg5654z00_2274, ((bool_t)0), BgL_arg5655z00_2275); } 
{ /* ./Cgen/cgen.scm 703 */
BgL_cjumpzd2exzd2itz00_bglt BgL_arg5662z00_2277;
{ /* ./Cgen/cgen.scm 703 */
obj_t BgL_arg5665z00_2278;BgL_copz00_bglt BgL_arg5666z00_2279;BgL_varcz00_bglt BgL_arg5667z00_2280;
{ /* ./Cgen/cgen.scm 703 */
BgL_nodez00_bglt BgL_obj1560z00_3397;
BgL_obj1560z00_3397 = 
(BgL_nodez00_bglt)(BgL_nodez00_2222); 
BgL_arg5665z00_2278 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3397))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 704 */
BgL_csetqz00_bglt BgL_obj2868z00_3398;
BgL_obj2868z00_3398 = 
(BgL_csetqz00_bglt)(BgL_ecopz00_2231); 
BgL_arg5666z00_2279 = 
(((BgL_csetqz00_bglt)CREF(BgL_obj2868z00_3398))->BgL_valuez00); } 
{ /* ./Cgen/cgen.scm 706 */
obj_t BgL_arg5672z00_2281;BgL_localz00_bglt BgL_arg5673z00_2282;
{ /* ./Cgen/cgen.scm 706 */
BgL_nodez00_bglt BgL_obj1560z00_3399;
BgL_obj1560z00_3399 = 
(BgL_nodez00_bglt)(BgL_nodez00_2222); 
BgL_arg5672z00_2281 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3399))->BgL_locz00); } 
BgL_arg5673z00_2282 = BgL_vauxz00_2227; 
BgL_arg5667z00_2280 = 
BGl_makezd2varczd2zzcgen_copz00(BgL_arg5672z00_2281, 
(BgL_variablez00_bglt)(BgL_arg5673z00_2282)); } 
BgL_arg5662z00_2277 = 
BGl_makezd2cjumpzd2exzd2itzd2zzcgen_copz00(BgL_arg5665z00_2278, BgL_arg5666z00_2279, 
(BgL_copz00_bglt)(BgL_arg5667z00_2280)); } 
BgL_arg5635z00_2267 = BgL_arg5662z00_2277; } 
{ /* ./Cgen/cgen.scm 695 */
obj_t BgL_list5637z00_2268;
{ /* ./Cgen/cgen.scm 695 */
obj_t BgL_arg5639z00_2269;
{ /* ./Cgen/cgen.scm 695 */
obj_t BgL_arg5642z00_2270;
{ /* ./Cgen/cgen.scm 695 */
obj_t BgL_auxz00_4681;
BgL_auxz00_4681 = 
(obj_t)(BgL_arg5635z00_2267); 
BgL_arg5642z00_2270 = 
MAKE_PAIR(BgL_auxz00_4681, BNIL); } 
{ /* ./Cgen/cgen.scm 695 */
obj_t BgL_auxz00_4684;
BgL_auxz00_4684 = 
(obj_t)(BgL_arg5634z00_2266); 
BgL_arg5639z00_2269 = 
MAKE_PAIR(BgL_auxz00_4684, BgL_arg5642z00_2270); } } 
{ /* ./Cgen/cgen.scm 695 */
obj_t BgL_auxz00_4687;
BgL_auxz00_4687 = 
(obj_t)(BgL_arg5633z00_2265); 
BgL_list5637z00_2268 = 
MAKE_PAIR(BgL_auxz00_4687, BgL_arg5639z00_2269); } } 
BgL_arg5629z00_2264 = BgL_list5637z00_2268; } } 
BgL_arg5624z00_2262 = 
BGl_makezd2csequencezd2zzcgen_copz00(BgL_arg5628z00_2263, ((bool_t)0), BgL_arg5629z00_2264); } 
{ /* ./Cgen/cgen.scm 691 */
BgL_blockz00_bglt BgL_auxz00_4691;
BgL_auxz00_4691 = 
BGl_makezd2blockzd2zzcgen_copz00(BgL_arg5623z00_2261, 
(BgL_copz00_bglt)(BgL_arg5624z00_2262)); 
return 
(obj_t)(BgL_auxz00_4691);} } }  else 
{ /* ./Cgen/cgen.scm 690 */
{ /* ./Cgen/cgen.scm 710 */
obj_t BgL_arg5677z00_2283;BgL_csequencez00_bglt BgL_arg5678z00_2284;
{ /* ./Cgen/cgen.scm 710 */
BgL_nodez00_bglt BgL_obj1560z00_3403;
BgL_obj1560z00_3403 = 
(BgL_nodez00_bglt)(BgL_nodez00_2222); 
BgL_arg5677z00_2283 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3403))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 712 */
obj_t BgL_arg5682z00_2285;obj_t BgL_arg5683z00_2286;
{ /* ./Cgen/cgen.scm 712 */
BgL_nodez00_bglt BgL_obj1560z00_3404;
BgL_obj1560z00_3404 = 
(BgL_nodez00_bglt)(BgL_nodez00_2222); 
BgL_arg5682z00_2285 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3404))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 716 */
BgL_localzd2varzd2_bglt BgL_arg5687z00_2287;BgL_csequencez00_bglt BgL_arg5688z00_2288;BgL_cjumpzd2exzd2itz00_bglt BgL_arg5689z00_2289;
{ /* ./Cgen/cgen.scm 716 */
obj_t BgL_arg5700z00_2293;obj_t BgL_arg5701z00_2294;
{ /* ./Cgen/cgen.scm 716 */
BgL_nodez00_bglt BgL_obj1560z00_3405;
BgL_obj1560z00_3405 = 
(BgL_nodez00_bglt)(BgL_nodez00_2222); 
BgL_arg5700z00_2293 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3405))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 717 */
obj_t BgL_list5705z00_2295;
{ /* ./Cgen/cgen.scm 717 */
obj_t BgL_arg5707z00_2296;
{ /* ./Cgen/cgen.scm 717 */
obj_t BgL_auxz00_4701;
BgL_auxz00_4701 = 
(obj_t)(BgL_vauxz00_2227); 
BgL_arg5707z00_2296 = 
MAKE_PAIR(BgL_auxz00_4701, BNIL); } 
{ /* ./Cgen/cgen.scm 717 */
obj_t BgL_auxz00_4704;
BgL_auxz00_4704 = 
(obj_t)(BgL_eauxz00_2230); 
BgL_list5705z00_2295 = 
MAKE_PAIR(BgL_auxz00_4704, BgL_arg5707z00_2296); } } 
BgL_arg5701z00_2294 = BgL_list5705z00_2295; } 
BgL_arg5687z00_2287 = 
BGl_makezd2localzd2varz00zzcgen_copz00(BgL_arg5700z00_2293, BgL_arg5701z00_2294); } 
{ /* ./Cgen/cgen.scm 719 */
obj_t BgL_arg5711z00_2297;obj_t BgL_arg5712z00_2298;
{ /* ./Cgen/cgen.scm 719 */
BgL_nodez00_bglt BgL_obj1560z00_3408;
BgL_obj1560z00_3408 = 
(BgL_nodez00_bglt)(BgL_nodez00_2222); 
BgL_arg5711z00_2297 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3408))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 720 */
obj_t BgL_list5716z00_2299;
{ /* ./Cgen/cgen.scm 720 */
obj_t BgL_arg5718z00_2300;
{ /* ./Cgen/cgen.scm 720 */
obj_t BgL_auxz00_4710;
BgL_auxz00_4710 = 
(obj_t)(BgL_vcopz00_2228); 
BgL_arg5718z00_2300 = 
MAKE_PAIR(BgL_auxz00_4710, BNIL); } 
{ /* ./Cgen/cgen.scm 720 */
obj_t BgL_auxz00_4713;
BgL_auxz00_4713 = 
(obj_t)(BgL_ecopz00_2231); 
BgL_list5716z00_2299 = 
MAKE_PAIR(BgL_auxz00_4713, BgL_arg5718z00_2300); } } 
BgL_arg5712z00_2298 = BgL_list5716z00_2299; } 
BgL_arg5688z00_2288 = 
BGl_makezd2csequencezd2zzcgen_copz00(BgL_arg5711z00_2297, ((bool_t)0), BgL_arg5712z00_2298); } 
{ /* ./Cgen/cgen.scm 723 */
BgL_cjumpzd2exzd2itz00_bglt BgL_arg5722z00_2301;
{ /* ./Cgen/cgen.scm 723 */
obj_t BgL_arg5725z00_2302;BgL_varcz00_bglt BgL_arg5726z00_2303;BgL_varcz00_bglt BgL_arg5727z00_2304;
{ /* ./Cgen/cgen.scm 723 */
BgL_nodez00_bglt BgL_obj1560z00_3411;
BgL_obj1560z00_3411 = 
(BgL_nodez00_bglt)(BgL_nodez00_2222); 
BgL_arg5725z00_2302 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3411))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 725 */
BgL_localz00_bglt BgL_arg5731z00_2305;
BgL_arg5731z00_2305 = BgL_eauxz00_2230; 
BgL_arg5726z00_2303 = 
BGl_makezd2varczd2zzcgen_copz00(BFALSE, 
(BgL_variablez00_bglt)(BgL_arg5731z00_2305)); } 
{ /* ./Cgen/cgen.scm 727 */
BgL_localz00_bglt BgL_arg5734z00_2306;
BgL_arg5734z00_2306 = BgL_vauxz00_2227; 
BgL_arg5727z00_2304 = 
BGl_makezd2varczd2zzcgen_copz00(BFALSE, 
(BgL_variablez00_bglt)(BgL_arg5734z00_2306)); } 
BgL_arg5722z00_2301 = 
BGl_makezd2cjumpzd2exzd2itzd2zzcgen_copz00(BgL_arg5725z00_2302, 
(BgL_copz00_bglt)(BgL_arg5726z00_2303), 
(BgL_copz00_bglt)(BgL_arg5727z00_2304)); } 
BgL_arg5689z00_2289 = BgL_arg5722z00_2301; } 
{ /* ./Cgen/cgen.scm 713 */
obj_t BgL_list5691z00_2290;
{ /* ./Cgen/cgen.scm 713 */
obj_t BgL_arg5693z00_2291;
{ /* ./Cgen/cgen.scm 713 */
obj_t BgL_arg5696z00_2292;
{ /* ./Cgen/cgen.scm 713 */
obj_t BgL_auxz00_4726;
BgL_auxz00_4726 = 
(obj_t)(BgL_arg5689z00_2289); 
BgL_arg5696z00_2292 = 
MAKE_PAIR(BgL_auxz00_4726, BNIL); } 
{ /* ./Cgen/cgen.scm 713 */
obj_t BgL_auxz00_4729;
BgL_auxz00_4729 = 
(obj_t)(BgL_arg5688z00_2288); 
BgL_arg5693z00_2291 = 
MAKE_PAIR(BgL_auxz00_4729, BgL_arg5696z00_2292); } } 
{ /* ./Cgen/cgen.scm 713 */
obj_t BgL_auxz00_4732;
BgL_auxz00_4732 = 
(obj_t)(BgL_arg5687z00_2287); 
BgL_list5691z00_2290 = 
MAKE_PAIR(BgL_auxz00_4732, BgL_arg5693z00_2291); } } 
BgL_arg5683z00_2286 = BgL_list5691z00_2290; } } 
BgL_arg5678z00_2284 = 
BGl_makezd2csequencezd2zzcgen_copz00(BgL_arg5682z00_2285, ((bool_t)0), BgL_arg5683z00_2286); } 
{ /* ./Cgen/cgen.scm 709 */
BgL_blockz00_bglt BgL_auxz00_4736;
BgL_auxz00_4736 = 
BGl_makezd2blockzd2zzcgen_copz00(BgL_arg5677z00_2283, 
(BgL_copz00_bglt)(BgL_arg5678z00_2284)); 
return 
(obj_t)(BgL_auxz00_4736);} } } } } } } } } } } } } } 
}



/* node->cop-set-ex-it3711 */
obj_t BGl_nodezd2ze3copzd2setzd2exzd2it3711ze3zzcgen_cgenz00(obj_t BgL_envz00_3672, obj_t BgL_nodez00_3673, obj_t BgL_kontz00_3674)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 603 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_2166;obj_t BgL_kontz00_2167;
{ /* ./Tools/trace.sch 42 */
BgL_csequencez00_bglt BgL_auxz00_4741;
BgL_nodez00_2166 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_3673); 
BgL_kontz00_2167 = BgL_kontz00_3674; 
{ /* ./Cgen/cgen.scm 608 */
BgL_variablez00_bglt BgL_exitz00_2171;
{ /* ./Cgen/cgen.scm 608 */
BgL_varz00_bglt BgL_arg5545z00_2219;
BgL_arg5545z00_2219 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_2166))->BgL_varz00); 
BgL_exitz00_2171 = 
(((BgL_varz00_bglt)CREF(BgL_arg5545z00_2219))->BgL_variablez00); } 
BGl_setzd2variablezd2namez12z12zzbackend_c_prototypez00(
(obj_t)(BgL_exitz00_2171)); 
{ /* ./Cgen/cgen.scm 611 */
obj_t BgL_arg5438z00_2172;obj_t BgL_arg5439z00_2173;
{ /* ./Cgen/cgen.scm 611 */
BgL_nodez00_bglt BgL_obj1560z00_3198;
BgL_obj1560z00_3198 = 
(BgL_nodez00_bglt)(BgL_nodez00_2166); 
BgL_arg5438z00_2172 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3198))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 614 */
BgL_cpragmaz00_bglt BgL_arg5443z00_2174;BgL_localzd2varzd2_bglt BgL_arg5444z00_2175;BgL_csetzd2exzd2itz00_bglt BgL_arg5445z00_2176;
{ /* ./Cgen/cgen.scm 614 */
obj_t BgL_arg5456z00_2180;char * BgL_arg5457z00_2181;
{ /* ./Cgen/cgen.scm 614 */
BgL_nodez00_bglt BgL_obj1560z00_3199;
BgL_obj1560z00_3199 = 
(BgL_nodez00_bglt)(BgL_nodez00_2166); 
BgL_arg5456z00_2180 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3199))->BgL_locz00); } 
BgL_arg5457z00_2181 = "jmp_buf jmpbuf"; 
BgL_arg5443z00_2174 = 
BGl_makezd2cpragmazd2zzcgen_copz00(BgL_arg5456z00_2180, 
string_to_bstring(BgL_arg5457z00_2181), BNIL); } 
{ /* ./Cgen/cgen.scm 618 */
obj_t BgL_arg5462z00_2183;obj_t BgL_arg5463z00_2184;
{ /* ./Cgen/cgen.scm 618 */
BgL_nodez00_bglt BgL_obj1560z00_3200;
BgL_obj1560z00_3200 = 
(BgL_nodez00_bglt)(BgL_nodez00_2166); 
BgL_arg5462z00_2183 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3200))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 619 */
BgL_variablez00_bglt BgL_arg5467z00_2185;
{ /* ./Cgen/cgen.scm 619 */
BgL_varz00_bglt BgL_arg5472z00_2187;
BgL_arg5472z00_2187 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_2166))->BgL_varz00); 
BgL_arg5467z00_2185 = 
(((BgL_varz00_bglt)CREF(BgL_arg5472z00_2187))->BgL_variablez00); } 
{ /* ./Cgen/cgen.scm 619 */
obj_t BgL_list5469z00_2186;
{ /* ./Cgen/cgen.scm 619 */
obj_t BgL_auxz00_4756;
BgL_auxz00_4756 = 
(obj_t)(BgL_arg5467z00_2185); 
BgL_list5469z00_2186 = 
MAKE_PAIR(BgL_auxz00_4756, BNIL); } 
BgL_arg5463z00_2184 = BgL_list5469z00_2186; } } 
BgL_arg5444z00_2175 = 
BGl_makezd2localzd2varz00zzcgen_copz00(BgL_arg5462z00_2183, BgL_arg5463z00_2184); } 
{ /* ./Cgen/cgen.scm 621 */
obj_t BgL_arg5476z00_2188;BgL_varcz00_bglt BgL_arg5478z00_2189;BgL_copz00_bglt BgL_arg5479z00_2190;BgL_csequencez00_bglt BgL_arg5480z00_2191;
{ /* ./Cgen/cgen.scm 621 */
BgL_nodez00_bglt BgL_obj1560z00_3205;
BgL_obj1560z00_3205 = 
(BgL_nodez00_bglt)(BgL_nodez00_2166); 
BgL_arg5476z00_2188 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3205))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 623 */
obj_t BgL_arg5484z00_2192;BgL_variablez00_bglt BgL_arg5485z00_2193;
{ /* ./Cgen/cgen.scm 623 */
BgL_nodez00_bglt BgL_obj1560z00_3206;
BgL_obj1560z00_3206 = 
(BgL_nodez00_bglt)(BgL_nodez00_2166); 
BgL_arg5484z00_2192 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3206))->BgL_locz00); } 
BgL_arg5485z00_2193 = BgL_exitz00_2171; 
BgL_arg5478z00_2189 = 
BGl_makezd2varczd2zzcgen_copz00(BgL_arg5484z00_2192, BgL_arg5485z00_2193); } 
{ /* ./Cgen/cgen.scm 626 */
BgL_pragmaz00_bglt BgL_arg5489z00_2194;
{ /* ./Cgen/cgen.scm 626 */
obj_t BgL_arg5492z00_2195;obj_t BgL_arg5493z00_2196;char * BgL_arg5496z00_2199;
{ /* ./Cgen/cgen.scm 626 */
BgL_nodez00_bglt BgL_obj1560z00_3207;
BgL_obj1560z00_3207 = 
(BgL_nodez00_bglt)(BgL_nodez00_2166); 
BgL_arg5492z00_2195 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3207))->BgL_locz00); } 
BgL_arg5493z00_2196 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg5496z00_2199 = "_exit_value_"; 
BgL_arg5489z00_2194 = 
BGl_makezd2pragmazd2zzast_nodez00(BgL_arg5492z00_2195, 
(BgL_typez00_bglt)(BgL_arg5493z00_2196), BUNSPEC, 
BINT(((long)-1)), BNIL, BUNSPEC, 
string_to_bstring(BgL_arg5496z00_2199)); } 
{ /* ./Cgen/cgen.scm 625 */
BgL_copz00_bglt BgL_res6015z00_3235;
{ /* ./Cgen/cgen.scm 625 */
BgL_nodez00_bglt BgL_nodez00_3208;
BgL_nodez00_3208 = 
(BgL_nodez00_bglt)(BgL_arg5489z00_2194); 
{ /* ./Cgen/cgen.scm 625 */
obj_t BgL_method3671z00_3210;
{ /* ./Cgen/cgen.scm 625 */
BgL_objectz00_bglt BgL_objz00_3211;
BgL_objz00_3211 = 
(BgL_objectz00_bglt)(BgL_nodez00_3208); 
{ /* ./Cgen/cgen.scm 625 */
long BgL_objzd2classzd2numz00_3212;
BgL_objzd2classzd2numz00_3212 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3211); 
{ /* ./Cgen/cgen.scm 625 */
obj_t BgL_arg2017z00_3213;
{ /* ./Cgen/cgen.scm 625 */
int BgL_auxz00_4774;
BgL_auxz00_4774 = 
(int)(((long)1)); 
BgL_arg2017z00_3213 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_4774); } 
{ /* ./Cgen/cgen.scm 625 */
int BgL_offsetz00_3216;
BgL_offsetz00_3216 = 
(int)(BgL_objzd2classzd2numz00_3212); 
{ /* ./Cgen/cgen.scm 625 */
long BgL_offsetz00_3217;
{ /* ./Cgen/cgen.scm 625 */
long BgL_auxz00_4778;
BgL_auxz00_4778 = 
(long)(BgL_offsetz00_3216); 
BgL_offsetz00_3217 = 
(BgL_auxz00_4778-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 625 */
long BgL_modz00_3218;
{ /* ./Cgen/cgen.scm 625 */
int BgL_arg2028z00_3219;
BgL_arg2028z00_3219 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 625 */
long BgL_n2z00_3227;
BgL_n2z00_3227 = 
(long)(BgL_arg2028z00_3219); 
BgL_modz00_3218 = 
(BgL_offsetz00_3217/BgL_n2z00_3227); } } 
{ /* ./Cgen/cgen.scm 625 */
long BgL_restz00_3220;
{ /* ./Cgen/cgen.scm 625 */
int BgL_arg2024z00_3221;
BgL_arg2024z00_3221 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 625 */
long BgL_n2z00_3230;
BgL_n2z00_3230 = 
(long)(BgL_arg2024z00_3221); 
BgL_restz00_3220 = 
(BgL_offsetz00_3217%BgL_n2z00_3230); } } 
{ /* ./Cgen/cgen.scm 625 */

{ /* ./Cgen/cgen.scm 625 */
obj_t BgL_bucketz00_3222;
{ /* ./Cgen/cgen.scm 625 */
int BgL_kz00_3232;
BgL_kz00_3232 = 
(int)(BgL_modz00_3218); 
BgL_bucketz00_3222 = 
VECTOR_REF(BgL_arg2017z00_3213,BgL_kz00_3232); } 
{ /* ./Cgen/cgen.scm 625 */
int BgL_kz00_3234;
BgL_kz00_3234 = 
(int)(BgL_restz00_3220); 
BgL_method3671z00_3210 = 
VECTOR_REF(BgL_bucketz00_3222,BgL_kz00_3234); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 625 */
obj_t BgL_auxz00_4791;
BgL_auxz00_4791 = 
PROCEDURE_ENTRY(BgL_method3671z00_3210)(BgL_method3671z00_3210, 
(obj_t)(BgL_nodez00_3208), BgL_kontz00_2167, BEOA); 
BgL_res6015z00_3235 = 
(BgL_copz00_bglt)(BgL_auxz00_4791); } } } 
BgL_arg5479z00_2190 = BgL_res6015z00_3235; } } 
{ /* ./Cgen/cgen.scm 632 */
obj_t BgL_arg5500z00_2200;obj_t BgL_arg5501z00_2201;
{ /* ./Cgen/cgen.scm 632 */
BgL_nodez00_bglt BgL_obj1560z00_3236;
BgL_obj1560z00_3236 = 
(BgL_nodez00_bglt)(BgL_nodez00_2166); 
BgL_arg5500z00_2200 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3236))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 639 */
BgL_copz00_bglt BgL_arg5505z00_2202;BgL_copz00_bglt BgL_arg5506z00_2203;
{ /* ./Cgen/cgen.scm 639 */
BgL_setqz00_bglt BgL_arg5514z00_2206;
{ /* ./Cgen/cgen.scm 639 */
BgL_pragmaz00_bglt BgL_arg5517z00_2207;
{ /* ./Cgen/cgen.scm 639 */
obj_t BgL_arg5521z00_2208;obj_t BgL_arg5522z00_2209;obj_t BgL_arg5525z00_2212;
{ /* ./Cgen/cgen.scm 639 */
BgL_nodez00_bglt BgL_obj1560z00_3237;
BgL_obj1560z00_3237 = 
(BgL_nodez00_bglt)(BgL_nodez00_2166); 
BgL_arg5521z00_2208 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3237))->BgL_locz00); } 
BgL_arg5522z00_2209 = BGl_za2_za2z00zztype_cachez00; 
{ /* ./Cgen/cgen.scm 641 */
obj_t BgL_arg5530z00_2214;
{ /* ./Cgen/cgen.scm 645 */
obj_t BgL_arg5534z00_2216;
{ /* ./Cgen/cgen.scm 645 */
BgL_typez00_bglt BgL_arg5537z00_2217;
BgL_arg5537z00_2217 = 
(((BgL_variablez00_bglt)CREF(BgL_exitz00_2171))->BgL_typez00); 
BgL_arg5534z00_2216 = 
(((BgL_typez00_bglt)CREF(BgL_arg5537z00_2217))->BgL_namez00); } 
BgL_arg5530z00_2214 = 
BGl_stringzd2sanszd2z42z42zztype_toolsz00(BgL_arg5534z00_2216); } 
BgL_arg5525z00_2212 = 
string_append_3(BGl_string6957z00zzcgen_cgenz00, BgL_arg5530z00_2214, BGl_string6986z00zzcgen_cgenz00); } 
BgL_arg5517z00_2207 = 
BGl_makezd2pragmazd2zzast_nodez00(BgL_arg5521z00_2208, 
(BgL_typez00_bglt)(BgL_arg5522z00_2209), BUNSPEC, 
BINT(((long)-1)), BNIL, BUNSPEC, BgL_arg5525z00_2212); } 
BgL_arg5514z00_2206 = 
BGl_nodezd2setqzd2zzcgen_cgenz00(BgL_exitz00_2171, 
(BgL_nodez00_bglt)(BgL_arg5517z00_2207)); } 
{ /* ./Cgen/cgen.scm 635 */
BgL_copz00_bglt BgL_res6018z00_3267;
{ /* ./Cgen/cgen.scm 635 */
BgL_nodez00_bglt BgL_nodez00_3240;obj_t BgL_kontz00_3241;
BgL_nodez00_3240 = 
(BgL_nodez00_bglt)(BgL_arg5514z00_2206); 
BgL_kontz00_3241 = BGl_za2idzd2kontza2zd2zzcgen_cgenz00; 
{ /* ./Cgen/cgen.scm 635 */
obj_t BgL_method3671z00_3242;
{ /* ./Cgen/cgen.scm 635 */
BgL_objectz00_bglt BgL_objz00_3243;
BgL_objz00_3243 = 
(BgL_objectz00_bglt)(BgL_nodez00_3240); 
{ /* ./Cgen/cgen.scm 635 */
long BgL_objzd2classzd2numz00_3244;
BgL_objzd2classzd2numz00_3244 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3243); 
{ /* ./Cgen/cgen.scm 635 */
obj_t BgL_arg2017z00_3245;
{ /* ./Cgen/cgen.scm 635 */
int BgL_auxz00_4812;
BgL_auxz00_4812 = 
(int)(((long)1)); 
BgL_arg2017z00_3245 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_4812); } 
{ /* ./Cgen/cgen.scm 635 */
int BgL_offsetz00_3248;
BgL_offsetz00_3248 = 
(int)(BgL_objzd2classzd2numz00_3244); 
{ /* ./Cgen/cgen.scm 635 */
long BgL_offsetz00_3249;
{ /* ./Cgen/cgen.scm 635 */
long BgL_auxz00_4816;
BgL_auxz00_4816 = 
(long)(BgL_offsetz00_3248); 
BgL_offsetz00_3249 = 
(BgL_auxz00_4816-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 635 */
long BgL_modz00_3250;
{ /* ./Cgen/cgen.scm 635 */
int BgL_arg2028z00_3251;
BgL_arg2028z00_3251 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 635 */
long BgL_n2z00_3259;
BgL_n2z00_3259 = 
(long)(BgL_arg2028z00_3251); 
BgL_modz00_3250 = 
(BgL_offsetz00_3249/BgL_n2z00_3259); } } 
{ /* ./Cgen/cgen.scm 635 */
long BgL_restz00_3252;
{ /* ./Cgen/cgen.scm 635 */
int BgL_arg2024z00_3253;
BgL_arg2024z00_3253 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 635 */
long BgL_n2z00_3262;
BgL_n2z00_3262 = 
(long)(BgL_arg2024z00_3253); 
BgL_restz00_3252 = 
(BgL_offsetz00_3249%BgL_n2z00_3262); } } 
{ /* ./Cgen/cgen.scm 635 */

{ /* ./Cgen/cgen.scm 635 */
obj_t BgL_bucketz00_3254;
{ /* ./Cgen/cgen.scm 635 */
int BgL_kz00_3264;
BgL_kz00_3264 = 
(int)(BgL_modz00_3250); 
BgL_bucketz00_3254 = 
VECTOR_REF(BgL_arg2017z00_3245,BgL_kz00_3264); } 
{ /* ./Cgen/cgen.scm 635 */
int BgL_kz00_3266;
BgL_kz00_3266 = 
(int)(BgL_restz00_3252); 
BgL_method3671z00_3242 = 
VECTOR_REF(BgL_bucketz00_3254,BgL_kz00_3266); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 635 */
obj_t BgL_auxz00_4829;
BgL_auxz00_4829 = 
PROCEDURE_ENTRY(BgL_method3671z00_3242)(BgL_method3671z00_3242, 
(obj_t)(BgL_nodez00_3240), BgL_kontz00_3241, BEOA); 
BgL_res6018z00_3267 = 
(BgL_copz00_bglt)(BgL_auxz00_4829); } } } 
BgL_arg5505z00_2202 = BgL_res6018z00_3267; } } 
{ /* ./Cgen/cgen.scm 649 */
BgL_nodez00_bglt BgL_arg5541z00_2218;
BgL_arg5541z00_2218 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_2166))->BgL_bodyz00); 
{ /* ./Cgen/cgen.scm 649 */
BgL_copz00_bglt BgL_res6021z00_3296;
{ /* ./Cgen/cgen.scm 649 */
obj_t BgL_method3671z00_3271;
{ /* ./Cgen/cgen.scm 649 */
BgL_objectz00_bglt BgL_objz00_3272;
BgL_objz00_3272 = 
(BgL_objectz00_bglt)(BgL_arg5541z00_2218); 
{ /* ./Cgen/cgen.scm 649 */
long BgL_objzd2classzd2numz00_3273;
BgL_objzd2classzd2numz00_3273 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3272); 
{ /* ./Cgen/cgen.scm 649 */
obj_t BgL_arg2017z00_3274;
{ /* ./Cgen/cgen.scm 649 */
int BgL_auxz00_4837;
BgL_auxz00_4837 = 
(int)(((long)1)); 
BgL_arg2017z00_3274 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_4837); } 
{ /* ./Cgen/cgen.scm 649 */
int BgL_offsetz00_3277;
BgL_offsetz00_3277 = 
(int)(BgL_objzd2classzd2numz00_3273); 
{ /* ./Cgen/cgen.scm 649 */
long BgL_offsetz00_3278;
{ /* ./Cgen/cgen.scm 649 */
long BgL_auxz00_4841;
BgL_auxz00_4841 = 
(long)(BgL_offsetz00_3277); 
BgL_offsetz00_3278 = 
(BgL_auxz00_4841-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 649 */
long BgL_modz00_3279;
{ /* ./Cgen/cgen.scm 649 */
int BgL_arg2028z00_3280;
BgL_arg2028z00_3280 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 649 */
long BgL_n2z00_3288;
BgL_n2z00_3288 = 
(long)(BgL_arg2028z00_3280); 
BgL_modz00_3279 = 
(BgL_offsetz00_3278/BgL_n2z00_3288); } } 
{ /* ./Cgen/cgen.scm 649 */
long BgL_restz00_3281;
{ /* ./Cgen/cgen.scm 649 */
int BgL_arg2024z00_3282;
BgL_arg2024z00_3282 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 649 */
long BgL_n2z00_3291;
BgL_n2z00_3291 = 
(long)(BgL_arg2024z00_3282); 
BgL_restz00_3281 = 
(BgL_offsetz00_3278%BgL_n2z00_3291); } } 
{ /* ./Cgen/cgen.scm 649 */

{ /* ./Cgen/cgen.scm 649 */
obj_t BgL_bucketz00_3283;
{ /* ./Cgen/cgen.scm 649 */
int BgL_kz00_3293;
BgL_kz00_3293 = 
(int)(BgL_modz00_3279); 
BgL_bucketz00_3283 = 
VECTOR_REF(BgL_arg2017z00_3274,BgL_kz00_3293); } 
{ /* ./Cgen/cgen.scm 649 */
int BgL_kz00_3295;
BgL_kz00_3295 = 
(int)(BgL_restz00_3281); 
BgL_method3671z00_3271 = 
VECTOR_REF(BgL_bucketz00_3283,BgL_kz00_3295); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 649 */
obj_t BgL_auxz00_4854;
BgL_auxz00_4854 = 
PROCEDURE_ENTRY(BgL_method3671z00_3271)(BgL_method3671z00_3271, 
(obj_t)(BgL_arg5541z00_2218), BgL_kontz00_2167, BEOA); 
BgL_res6021z00_3296 = 
(BgL_copz00_bglt)(BgL_auxz00_4854); } } 
BgL_arg5506z00_2203 = BgL_res6021z00_3296; } } 
{ /* ./Cgen/cgen.scm 633 */
obj_t BgL_list5508z00_2204;
{ /* ./Cgen/cgen.scm 633 */
obj_t BgL_arg5510z00_2205;
{ /* ./Cgen/cgen.scm 633 */
obj_t BgL_auxz00_4859;
BgL_auxz00_4859 = 
(obj_t)(BgL_arg5506z00_2203); 
BgL_arg5510z00_2205 = 
MAKE_PAIR(BgL_auxz00_4859, BNIL); } 
{ /* ./Cgen/cgen.scm 633 */
obj_t BgL_auxz00_4862;
BgL_auxz00_4862 = 
(obj_t)(BgL_arg5505z00_2202); 
BgL_list5508z00_2204 = 
MAKE_PAIR(BgL_auxz00_4862, BgL_arg5510z00_2205); } } 
BgL_arg5501z00_2201 = BgL_list5508z00_2204; } } 
BgL_arg5480z00_2191 = 
BGl_makezd2csequencezd2zzcgen_copz00(BgL_arg5500z00_2200, ((bool_t)0), BgL_arg5501z00_2201); } 
BgL_arg5445z00_2176 = 
BGl_makezd2csetzd2exzd2itzd2zzcgen_copz00(BgL_arg5476z00_2188, 
(BgL_copz00_bglt)(BgL_arg5478z00_2189), BgL_arg5479z00_2190, 
(BgL_copz00_bglt)(BgL_arg5480z00_2191)); } 
{ /* ./Cgen/cgen.scm 612 */
obj_t BgL_list5447z00_2177;
{ /* ./Cgen/cgen.scm 612 */
obj_t BgL_arg5449z00_2178;
{ /* ./Cgen/cgen.scm 612 */
obj_t BgL_arg5452z00_2179;
{ /* ./Cgen/cgen.scm 612 */
obj_t BgL_auxz00_4869;
BgL_auxz00_4869 = 
(obj_t)(BgL_arg5445z00_2176); 
BgL_arg5452z00_2179 = 
MAKE_PAIR(BgL_auxz00_4869, BNIL); } 
{ /* ./Cgen/cgen.scm 612 */
obj_t BgL_auxz00_4872;
BgL_auxz00_4872 = 
(obj_t)(BgL_arg5444z00_2175); 
BgL_arg5449z00_2178 = 
MAKE_PAIR(BgL_auxz00_4872, BgL_arg5452z00_2179); } } 
{ /* ./Cgen/cgen.scm 612 */
obj_t BgL_auxz00_4875;
BgL_auxz00_4875 = 
(obj_t)(BgL_arg5443z00_2174); 
BgL_list5447z00_2177 = 
MAKE_PAIR(BgL_auxz00_4875, BgL_arg5449z00_2178); } } 
BgL_arg5439z00_2173 = BgL_list5447z00_2177; } } 
BgL_auxz00_4741 = 
BGl_makezd2csequencezd2zzcgen_copz00(BgL_arg5438z00_2172, ((bool_t)0), BgL_arg5439z00_2173); } } 
return 
(obj_t)(BgL_auxz00_4741);} } } 
}



/* node->cop-let-var3709 */
obj_t BGl_nodezd2ze3copzd2letzd2var3709z31zzcgen_cgenz00(obj_t BgL_envz00_3675, obj_t BgL_nodez00_3676, obj_t BgL_kontz00_3677)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 567 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_2110;obj_t BgL_kontz00_2111;
BgL_nodez00_2110 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_3676); 
BgL_kontz00_2111 = BgL_kontz00_3677; 
{ /* ./Cgen/cgen.scm 572 */
BgL_localzd2varzd2_bglt BgL_declsz00_2115;obj_t BgL_setsz00_2116;BgL_stopz00_bglt BgL_bodyz00_2117;
{ /* ./Cgen/cgen.scm 573 */
obj_t BgL_arg5358z00_2127;obj_t BgL_arg5359z00_2128;
{ /* ./Cgen/cgen.scm 573 */
BgL_nodez00_bglt BgL_obj1560z00_3097;
BgL_obj1560z00_3097 = 
(BgL_nodez00_bglt)(BgL_nodez00_2110); 
BgL_arg5358z00_2127 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3097))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 574 */
obj_t BgL_l3601z00_2129;
BgL_l3601z00_2129 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_2110))->BgL_bindingsz00); 
{ /* ./Cgen/cgen.scm 574 */
bool_t BgL_test5362z00_2130;
BgL_test5362z00_2130 = 
NULLP(BgL_l3601z00_2129); 
if(BgL_test5362z00_2130)
{ /* ./Cgen/cgen.scm 574 */
BgL_arg5359z00_2128 = BNIL; }  else 
{ /* ./Cgen/cgen.scm 574 */
obj_t BgL_head3603z00_2131;
{ /* ./Cgen/cgen.scm 574 */
obj_t BgL_arg5383z00_2142;
{ /* ./Cgen/cgen.scm 574 */
obj_t BgL_auxz00_4886;
BgL_auxz00_4886 = 
CAR(BgL_l3601z00_2129); 
BgL_arg5383z00_2142 = 
CAR(BgL_auxz00_4886); } 
BgL_head3603z00_2131 = 
MAKE_PAIR(BgL_arg5383z00_2142, BNIL); } 
{ 
obj_t BgL_l3601z00_2132;obj_t BgL_tail3604z00_2133;
{ /* ./Cgen/cgen.scm 574 */
obj_t BgL_arg5364z00_2135;
BgL_arg5364z00_2135 = 
CDR(BgL_l3601z00_2129); 
BgL_l3601z00_2132 = BgL_arg5364z00_2135; 
BgL_tail3604z00_2133 = BgL_head3603z00_2131; 
BgL_map3602z00_2134:
{ /* ./Cgen/cgen.scm 574 */
bool_t BgL_test5367z00_2136;
BgL_test5367z00_2136 = 
NULLP(BgL_l3601z00_2132); 
if(BgL_test5367z00_2136)
{ /* ./Cgen/cgen.scm 574 */
BgL_arg5359z00_2128 = BgL_head3603z00_2131; }  else 
{ /* ./Cgen/cgen.scm 574 */
obj_t BgL_newtail3605z00_2137;
{ /* ./Cgen/cgen.scm 574 */
obj_t BgL_arg5374z00_2139;
{ /* ./Cgen/cgen.scm 574 */
obj_t BgL_auxz00_4893;
BgL_auxz00_4893 = 
CAR(BgL_l3601z00_2132); 
BgL_arg5374z00_2139 = 
CAR(BgL_auxz00_4893); } 
BgL_newtail3605z00_2137 = 
MAKE_PAIR(BgL_arg5374z00_2139, BNIL); } 
SET_CDR(BgL_tail3604z00_2133, BgL_newtail3605z00_2137); 
{ /* ./Cgen/cgen.scm 574 */
obj_t BgL_arg5370z00_2138;
BgL_arg5370z00_2138 = 
CDR(BgL_l3601z00_2132); 
{ 
obj_t BgL_tail3604z00_4900;obj_t BgL_l3601z00_4899;
BgL_l3601z00_4899 = BgL_arg5370z00_2138; 
BgL_tail3604z00_4900 = BgL_newtail3605z00_2137; 
BgL_tail3604z00_2133 = BgL_tail3604z00_4900; 
BgL_l3601z00_2132 = BgL_l3601z00_4899; 
goto BgL_map3602z00_2134;} } } } } } } } } 
BgL_declsz00_2115 = 
BGl_makezd2localzd2varz00zzcgen_copz00(BgL_arg5358z00_2127, BgL_arg5359z00_2128); } 
{ /* ./Cgen/cgen.scm 575 */
obj_t BgL_l3606z00_2145;
BgL_l3606z00_2145 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_2110))->BgL_bindingsz00); 
{ /* ./Cgen/cgen.scm 575 */
bool_t BgL_test5392z00_2146;
BgL_test5392z00_2146 = 
NULLP(BgL_l3606z00_2145); 
if(BgL_test5392z00_2146)
{ /* ./Cgen/cgen.scm 575 */
BgL_setsz00_2116 = BNIL; }  else 
{ /* ./Cgen/cgen.scm 575 */
obj_t BgL_head3608z00_2147;
BgL_head3608z00_2147 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l3606z00_2148;obj_t BgL_tail3609z00_2149;
BgL_l3606z00_2148 = BgL_l3606z00_2145; 
BgL_tail3609z00_2149 = BgL_head3608z00_2147; 
BgL_map3607z00_2150:
{ /* ./Cgen/cgen.scm 575 */
bool_t BgL_test5394z00_2151;
BgL_test5394z00_2151 = 
NULLP(BgL_l3606z00_2148); 
if(BgL_test5394z00_2151)
{ /* ./Cgen/cgen.scm 575 */
BgL_setsz00_2116 = 
CDR(BgL_head3608z00_2147); }  else 
{ /* ./Cgen/cgen.scm 576 */
obj_t BgL_newtail3610z00_2152;
{ /* ./Cgen/cgen.scm 576 */
BgL_copz00_bglt BgL_arg5402z00_2154;
{ /* ./Cgen/cgen.scm 576 */
obj_t BgL_xz00_2156;
BgL_xz00_2156 = 
CAR(BgL_l3606z00_2148); 
{ /* ./Cgen/cgen.scm 576 */
obj_t BgL_arg5406z00_2157;
BgL_arg5406z00_2157 = 
CAR(BgL_xz00_2156); 
BGl_setzd2variablezd2namez12z12zzbackend_c_prototypez00(BgL_arg5406z00_2157); } 
{ /* ./Cgen/cgen.scm 577 */
BgL_setqz00_bglt BgL_arg5410z00_2158;
{ /* ./Cgen/cgen.scm 577 */
obj_t BgL_arg5413z00_2159;obj_t BgL_arg5414z00_2160;
BgL_arg5413z00_2159 = 
CAR(BgL_xz00_2156); 
BgL_arg5414z00_2160 = 
CDR(BgL_xz00_2156); 
BgL_arg5410z00_2158 = 
BGl_nodezd2setqzd2zzcgen_cgenz00(
(BgL_variablez00_bglt)(BgL_arg5413z00_2159), 
(BgL_nodez00_bglt)(BgL_arg5414z00_2160)); } 
{ /* ./Cgen/cgen.scm 577 */
BgL_copz00_bglt BgL_res6007z00_3150;
{ /* ./Cgen/cgen.scm 577 */
BgL_nodez00_bglt BgL_nodez00_3123;obj_t BgL_kontz00_3124;
BgL_nodez00_3123 = 
(BgL_nodez00_bglt)(BgL_arg5410z00_2158); 
BgL_kontz00_3124 = BGl_za2stopzd2kontza2zd2zzcgen_cgenz00; 
{ /* ./Cgen/cgen.scm 577 */
obj_t BgL_method3671z00_3125;
{ /* ./Cgen/cgen.scm 577 */
BgL_objectz00_bglt BgL_objz00_3126;
BgL_objz00_3126 = 
(BgL_objectz00_bglt)(BgL_nodez00_3123); 
{ /* ./Cgen/cgen.scm 577 */
long BgL_objzd2classzd2numz00_3127;
BgL_objzd2classzd2numz00_3127 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3126); 
{ /* ./Cgen/cgen.scm 577 */
obj_t BgL_arg2017z00_3128;
{ /* ./Cgen/cgen.scm 577 */
int BgL_auxz00_4920;
BgL_auxz00_4920 = 
(int)(((long)1)); 
BgL_arg2017z00_3128 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_4920); } 
{ /* ./Cgen/cgen.scm 577 */
int BgL_offsetz00_3131;
BgL_offsetz00_3131 = 
(int)(BgL_objzd2classzd2numz00_3127); 
{ /* ./Cgen/cgen.scm 577 */
long BgL_offsetz00_3132;
{ /* ./Cgen/cgen.scm 577 */
long BgL_auxz00_4924;
BgL_auxz00_4924 = 
(long)(BgL_offsetz00_3131); 
BgL_offsetz00_3132 = 
(BgL_auxz00_4924-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 577 */
long BgL_modz00_3133;
{ /* ./Cgen/cgen.scm 577 */
int BgL_arg2028z00_3134;
BgL_arg2028z00_3134 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 577 */
long BgL_n2z00_3142;
BgL_n2z00_3142 = 
(long)(BgL_arg2028z00_3134); 
BgL_modz00_3133 = 
(BgL_offsetz00_3132/BgL_n2z00_3142); } } 
{ /* ./Cgen/cgen.scm 577 */
long BgL_restz00_3135;
{ /* ./Cgen/cgen.scm 577 */
int BgL_arg2024z00_3136;
BgL_arg2024z00_3136 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 577 */
long BgL_n2z00_3145;
BgL_n2z00_3145 = 
(long)(BgL_arg2024z00_3136); 
BgL_restz00_3135 = 
(BgL_offsetz00_3132%BgL_n2z00_3145); } } 
{ /* ./Cgen/cgen.scm 577 */

{ /* ./Cgen/cgen.scm 577 */
obj_t BgL_bucketz00_3137;
{ /* ./Cgen/cgen.scm 577 */
int BgL_kz00_3147;
BgL_kz00_3147 = 
(int)(BgL_modz00_3133); 
BgL_bucketz00_3137 = 
VECTOR_REF(BgL_arg2017z00_3128,BgL_kz00_3147); } 
{ /* ./Cgen/cgen.scm 577 */
int BgL_kz00_3149;
BgL_kz00_3149 = 
(int)(BgL_restz00_3135); 
BgL_method3671z00_3125 = 
VECTOR_REF(BgL_bucketz00_3137,BgL_kz00_3149); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 577 */
obj_t BgL_auxz00_4937;
BgL_auxz00_4937 = 
PROCEDURE_ENTRY(BgL_method3671z00_3125)(BgL_method3671z00_3125, 
(obj_t)(BgL_nodez00_3123), BgL_kontz00_3124, BEOA); 
BgL_res6007z00_3150 = 
(BgL_copz00_bglt)(BgL_auxz00_4937); } } } 
BgL_arg5402z00_2154 = BgL_res6007z00_3150; } } } 
{ /* ./Cgen/cgen.scm 575 */
obj_t BgL_obj1z00_3151;
BgL_obj1z00_3151 = 
(obj_t)(BgL_arg5402z00_2154); 
BgL_newtail3610z00_2152 = 
MAKE_PAIR(BgL_obj1z00_3151, BNIL); } } 
SET_CDR(BgL_tail3609z00_2149, BgL_newtail3610z00_2152); 
{ /* ./Cgen/cgen.scm 575 */
obj_t BgL_arg5398z00_2153;
BgL_arg5398z00_2153 = 
CDR(BgL_l3606z00_2148); 
{ 
obj_t BgL_tail3609z00_4947;obj_t BgL_l3606z00_4946;
BgL_l3606z00_4946 = BgL_arg5398z00_2153; 
BgL_tail3609z00_4947 = BgL_newtail3610z00_2152; 
BgL_tail3609z00_2149 = BgL_tail3609z00_4947; 
BgL_l3606z00_2148 = BgL_l3606z00_4946; 
goto BgL_map3607z00_2150;} } } } } } } } 
{ /* ./Cgen/cgen.scm 579 */
BgL_copz00_bglt BgL_copz00_2161;
{ /* ./Cgen/cgen.scm 579 */
BgL_nodez00_bglt BgL_arg5427z00_2163;
BgL_arg5427z00_2163 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_2110))->BgL_bodyz00); 
{ /* ./Cgen/cgen.scm 579 */
BgL_copz00_bglt BgL_res6010z00_3184;
{ /* ./Cgen/cgen.scm 579 */
obj_t BgL_method3671z00_3159;
{ /* ./Cgen/cgen.scm 579 */
BgL_objectz00_bglt BgL_objz00_3160;
BgL_objz00_3160 = 
(BgL_objectz00_bglt)(BgL_arg5427z00_2163); 
{ /* ./Cgen/cgen.scm 579 */
long BgL_objzd2classzd2numz00_3161;
BgL_objzd2classzd2numz00_3161 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3160); 
{ /* ./Cgen/cgen.scm 579 */
obj_t BgL_arg2017z00_3162;
{ /* ./Cgen/cgen.scm 579 */
int BgL_auxz00_4951;
BgL_auxz00_4951 = 
(int)(((long)1)); 
BgL_arg2017z00_3162 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_4951); } 
{ /* ./Cgen/cgen.scm 579 */
int BgL_offsetz00_3165;
BgL_offsetz00_3165 = 
(int)(BgL_objzd2classzd2numz00_3161); 
{ /* ./Cgen/cgen.scm 579 */
long BgL_offsetz00_3166;
{ /* ./Cgen/cgen.scm 579 */
long BgL_auxz00_4955;
BgL_auxz00_4955 = 
(long)(BgL_offsetz00_3165); 
BgL_offsetz00_3166 = 
(BgL_auxz00_4955-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 579 */
long BgL_modz00_3167;
{ /* ./Cgen/cgen.scm 579 */
int BgL_arg2028z00_3168;
BgL_arg2028z00_3168 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 579 */
long BgL_n2z00_3176;
BgL_n2z00_3176 = 
(long)(BgL_arg2028z00_3168); 
BgL_modz00_3167 = 
(BgL_offsetz00_3166/BgL_n2z00_3176); } } 
{ /* ./Cgen/cgen.scm 579 */
long BgL_restz00_3169;
{ /* ./Cgen/cgen.scm 579 */
int BgL_arg2024z00_3170;
BgL_arg2024z00_3170 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 579 */
long BgL_n2z00_3179;
BgL_n2z00_3179 = 
(long)(BgL_arg2024z00_3170); 
BgL_restz00_3169 = 
(BgL_offsetz00_3166%BgL_n2z00_3179); } } 
{ /* ./Cgen/cgen.scm 579 */

{ /* ./Cgen/cgen.scm 579 */
obj_t BgL_bucketz00_3171;
{ /* ./Cgen/cgen.scm 579 */
int BgL_kz00_3181;
BgL_kz00_3181 = 
(int)(BgL_modz00_3167); 
BgL_bucketz00_3171 = 
VECTOR_REF(BgL_arg2017z00_3162,BgL_kz00_3181); } 
{ /* ./Cgen/cgen.scm 579 */
int BgL_kz00_3183;
BgL_kz00_3183 = 
(int)(BgL_restz00_3169); 
BgL_method3671z00_3159 = 
VECTOR_REF(BgL_bucketz00_3171,BgL_kz00_3183); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 579 */
obj_t BgL_auxz00_4968;
BgL_auxz00_4968 = 
PROCEDURE_ENTRY(BgL_method3671z00_3159)(BgL_method3671z00_3159, 
(obj_t)(BgL_arg5427z00_2163), BgL_kontz00_2111, BEOA); 
BgL_res6010z00_3184 = 
(BgL_copz00_bglt)(BgL_auxz00_4968); } } 
BgL_copz00_2161 = BgL_res6010z00_3184; } } 
{ /* ./Cgen/cgen.scm 581 */
BgL_copz00_bglt BgL_arg5424z00_2162;
BgL_arg5424z00_2162 = BgL_copz00_2161; 
BgL_bodyz00_2117 = 
BGl_makezd2stopzd2zzcgen_copz00(BFALSE, BgL_arg5424z00_2162); } } 
{ /* ./Cgen/cgen.scm 585 */
BgL_copz00_bglt BgL_arg5334z00_2118;obj_t BgL_arg5335z00_2119;
{ /* ./Cgen/cgen.scm 585 */
BgL_csequencez00_bglt BgL_arg5338z00_2120;obj_t BgL_arg5339z00_2121;
{ /* ./Cgen/cgen.scm 585 */
obj_t BgL_arg5342z00_2122;obj_t BgL_arg5343z00_2123;
{ /* ./Cgen/cgen.scm 585 */
BgL_nodez00_bglt BgL_obj1560z00_3185;
BgL_obj1560z00_3185 = 
(BgL_nodez00_bglt)(BgL_nodez00_2110); 
BgL_arg5342z00_2122 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3185))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 586 */
obj_t BgL_arg5347z00_2124;
{ /* ./Cgen/cgen.scm 586 */
obj_t BgL_arg5350z00_2125;
{ /* ./Cgen/cgen.scm 586 */
obj_t BgL_list5353z00_2126;
{ /* ./Cgen/cgen.scm 586 */
obj_t BgL_auxz00_4976;
BgL_auxz00_4976 = 
(obj_t)(BgL_bodyz00_2117); 
BgL_list5353z00_2126 = 
MAKE_PAIR(BgL_auxz00_4976, BNIL); } 
BgL_arg5350z00_2125 = BgL_list5353z00_2126; } 
BgL_arg5347z00_2124 = 
bgl_append2(BgL_setsz00_2116, BgL_arg5350z00_2125); } 
{ /* ./Cgen/cgen.scm 586 */
obj_t BgL_auxz00_4980;
BgL_auxz00_4980 = 
(obj_t)(BgL_declsz00_2115); 
BgL_arg5343z00_2123 = 
MAKE_PAIR(BgL_auxz00_4980, BgL_arg5347z00_2124); } } 
BgL_arg5338z00_2120 = 
BGl_makezd2csequencezd2zzcgen_copz00(BgL_arg5342z00_2122, ((bool_t)0), BgL_arg5343z00_2123); } 
{ /* ./Cgen/cgen.scm 583 */
BgL_nodez00_bglt BgL_obj1560z00_3188;
BgL_obj1560z00_3188 = 
(BgL_nodez00_bglt)(BgL_nodez00_2110); 
BgL_arg5339z00_2121 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3188))->BgL_locz00); } 
BgL_arg5334z00_2118 = 
BGl_bdbzd2letzd2varz00zzcgen_cgenz00(
(BgL_copz00_bglt)(BgL_arg5338z00_2120), BgL_arg5339z00_2121); } 
{ /* ./Cgen/cgen.scm 582 */
BgL_nodez00_bglt BgL_obj1560z00_3189;
BgL_obj1560z00_3189 = 
(BgL_nodez00_bglt)(BgL_nodez00_2110); 
BgL_arg5335z00_2119 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3189))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 582 */
obj_t BgL_copz00_3190;
BgL_copz00_3190 = 
(obj_t)(BgL_arg5334z00_2118); 
{ /* ./Cgen/cgen.scm 582 */
bool_t BgL_test3928z00_3192;
BgL_test3928z00_3192 = 
BGl_iszd2azf3z21zz__objectz00(BgL_copz00_3190, BGl_blockz00zzcgen_copz00); 
if(BgL_test3928z00_3192)
{ /* ./Cgen/cgen.scm 582 */
return BgL_copz00_3190;}  else 
{ /* ./Cgen/cgen.scm 582 */
{ /* ./Cgen/cgen.scm 582 */
obj_t BgL_arg3930z00_3193;obj_t BgL_arg3931z00_3194;
BgL_arg3930z00_3193 = BgL_arg5335z00_2119; 
BgL_arg3931z00_3194 = BgL_copz00_3190; 
{ /* ./Cgen/cgen.scm 582 */
BgL_blockz00_bglt BgL_auxz00_4993;
BgL_auxz00_4993 = 
BGl_makezd2blockzd2zzcgen_copz00(BgL_arg3930z00_3193, 
(BgL_copz00_bglt)(BgL_arg3931z00_3194)); 
return 
(obj_t)(BgL_auxz00_4993);} } } } } } } } } 
}



/* node->cop-let-fun3707 */
obj_t BGl_nodezd2ze3copzd2letzd2fun3707z31zzcgen_cgenz00(obj_t BgL_envz00_3678, obj_t BgL_nodez00_3679, obj_t BgL_kontz00_3680)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 530 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_2067;obj_t BgL_kontz00_2068;
BgL_nodez00_2067 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_3679); 
BgL_kontz00_2068 = BgL_kontz00_3680; 
{ 
obj_t BgL_localsz00_2072;obj_t BgL_allzd2formalszd2_2073;
{ /* ./Cgen/cgen.scm 540 */
obj_t BgL_arg5248z00_2075;
BgL_arg5248z00_2075 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_2067))->BgL_localsz00); 
BgL_localsz00_2072 = BgL_arg5248z00_2075; 
BgL_allzd2formalszd2_2073 = BNIL; 
BgL_loopz00_2074:
{ /* ./Cgen/cgen.scm 542 */
bool_t BgL_test5252z00_2077;
BgL_test5252z00_2077 = 
NULLP(BgL_localsz00_2072); 
if(BgL_test5252z00_2077)
{ /* ./Cgen/cgen.scm 546 */
BgL_copz00_bglt BgL_arg5254z00_2078;
{ /* ./Cgen/cgen.scm 546 */
BgL_csequencez00_bglt BgL_arg5257z00_2079;obj_t BgL_arg5258z00_2080;
{ /* ./Cgen/cgen.scm 546 */
obj_t BgL_arg5261z00_2081;obj_t BgL_arg5262z00_2082;
{ /* ./Cgen/cgen.scm 546 */
BgL_nodez00_bglt BgL_obj1560z00_3044;
BgL_obj1560z00_3044 = 
(BgL_nodez00_bglt)(BgL_nodez00_2067); 
BgL_arg5261z00_2081 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3044))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 548 */
BgL_localzd2varzd2_bglt BgL_arg5266z00_2083;BgL_copz00_bglt BgL_arg5267z00_2084;
{ /* ./Cgen/cgen.scm 548 */
obj_t BgL_arg5275z00_2087;obj_t BgL_arg5276z00_2088;
{ /* ./Cgen/cgen.scm 548 */
BgL_nodez00_bglt BgL_obj1560z00_3045;
BgL_obj1560z00_3045 = 
(BgL_nodez00_bglt)(BgL_nodez00_2067); 
BgL_arg5275z00_2087 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3045))->BgL_locz00); } 
BgL_arg5276z00_2088 = BgL_allzd2formalszd2_2073; 
BgL_arg5266z00_2083 = 
BGl_makezd2localzd2varz00zzcgen_copz00(BgL_arg5275z00_2087, BgL_arg5276z00_2088); } 
{ /* ./Cgen/cgen.scm 550 */
BgL_nodez00_bglt BgL_arg5280z00_2089;
BgL_arg5280z00_2089 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_2067))->BgL_bodyz00); 
{ /* ./Cgen/cgen.scm 550 */
BgL_copz00_bglt BgL_res6003z00_3074;
{ /* ./Cgen/cgen.scm 550 */
obj_t BgL_method3671z00_3049;
{ /* ./Cgen/cgen.scm 550 */
BgL_objectz00_bglt BgL_objz00_3050;
BgL_objz00_3050 = 
(BgL_objectz00_bglt)(BgL_arg5280z00_2089); 
{ /* ./Cgen/cgen.scm 550 */
long BgL_objzd2classzd2numz00_3051;
BgL_objzd2classzd2numz00_3051 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3050); 
{ /* ./Cgen/cgen.scm 550 */
obj_t BgL_arg2017z00_3052;
{ /* ./Cgen/cgen.scm 550 */
int BgL_auxz00_5009;
BgL_auxz00_5009 = 
(int)(((long)1)); 
BgL_arg2017z00_3052 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_5009); } 
{ /* ./Cgen/cgen.scm 550 */
int BgL_offsetz00_3055;
BgL_offsetz00_3055 = 
(int)(BgL_objzd2classzd2numz00_3051); 
{ /* ./Cgen/cgen.scm 550 */
long BgL_offsetz00_3056;
{ /* ./Cgen/cgen.scm 550 */
long BgL_auxz00_5013;
BgL_auxz00_5013 = 
(long)(BgL_offsetz00_3055); 
BgL_offsetz00_3056 = 
(BgL_auxz00_5013-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 550 */
long BgL_modz00_3057;
{ /* ./Cgen/cgen.scm 550 */
int BgL_arg2028z00_3058;
BgL_arg2028z00_3058 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 550 */
long BgL_n2z00_3066;
BgL_n2z00_3066 = 
(long)(BgL_arg2028z00_3058); 
BgL_modz00_3057 = 
(BgL_offsetz00_3056/BgL_n2z00_3066); } } 
{ /* ./Cgen/cgen.scm 550 */
long BgL_restz00_3059;
{ /* ./Cgen/cgen.scm 550 */
int BgL_arg2024z00_3060;
BgL_arg2024z00_3060 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 550 */
long BgL_n2z00_3069;
BgL_n2z00_3069 = 
(long)(BgL_arg2024z00_3060); 
BgL_restz00_3059 = 
(BgL_offsetz00_3056%BgL_n2z00_3069); } } 
{ /* ./Cgen/cgen.scm 550 */

{ /* ./Cgen/cgen.scm 550 */
obj_t BgL_bucketz00_3061;
{ /* ./Cgen/cgen.scm 550 */
int BgL_kz00_3071;
BgL_kz00_3071 = 
(int)(BgL_modz00_3057); 
BgL_bucketz00_3061 = 
VECTOR_REF(BgL_arg2017z00_3052,BgL_kz00_3071); } 
{ /* ./Cgen/cgen.scm 550 */
int BgL_kz00_3073;
BgL_kz00_3073 = 
(int)(BgL_restz00_3059); 
BgL_method3671z00_3049 = 
VECTOR_REF(BgL_bucketz00_3061,BgL_kz00_3073); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 550 */
obj_t BgL_auxz00_5026;
BgL_auxz00_5026 = 
PROCEDURE_ENTRY(BgL_method3671z00_3049)(BgL_method3671z00_3049, 
(obj_t)(BgL_arg5280z00_2089), BgL_kontz00_2068, BEOA); 
BgL_res6003z00_3074 = 
(BgL_copz00_bglt)(BgL_auxz00_5026); } } 
BgL_arg5267z00_2084 = BgL_res6003z00_3074; } } 
{ /* ./Cgen/cgen.scm 547 */
obj_t BgL_list5269z00_2085;
{ /* ./Cgen/cgen.scm 547 */
obj_t BgL_arg5271z00_2086;
{ /* ./Cgen/cgen.scm 547 */
obj_t BgL_auxz00_5031;
BgL_auxz00_5031 = 
(obj_t)(BgL_arg5267z00_2084); 
BgL_arg5271z00_2086 = 
MAKE_PAIR(BgL_auxz00_5031, BNIL); } 
{ /* ./Cgen/cgen.scm 547 */
obj_t BgL_auxz00_5034;
BgL_auxz00_5034 = 
(obj_t)(BgL_arg5266z00_2083); 
BgL_list5269z00_2085 = 
MAKE_PAIR(BgL_auxz00_5034, BgL_arg5271z00_2086); } } 
BgL_arg5262z00_2082 = BgL_list5269z00_2085; } } 
BgL_arg5257z00_2079 = 
BGl_makezd2csequencezd2zzcgen_copz00(BgL_arg5261z00_2081, ((bool_t)0), BgL_arg5262z00_2082); } 
{ /* ./Cgen/cgen.scm 544 */
BgL_nodez00_bglt BgL_obj1560z00_3077;
BgL_obj1560z00_3077 = 
(BgL_nodez00_bglt)(BgL_nodez00_2067); 
BgL_arg5258z00_2080 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3077))->BgL_locz00); } 
BgL_arg5254z00_2078 = 
BGl_bdbzd2letzd2varz00zzcgen_cgenz00(
(BgL_copz00_bglt)(BgL_arg5257z00_2079), BgL_arg5258z00_2080); } 
{ /* ./Cgen/cgen.scm 543 */
obj_t BgL_copz00_3078;
BgL_copz00_3078 = 
(obj_t)(BgL_arg5254z00_2078); 
{ /* ./Cgen/cgen.scm 543 */
bool_t BgL_test3928z00_3080;
BgL_test3928z00_3080 = 
BGl_iszd2azf3z21zz__objectz00(BgL_copz00_3078, BGl_blockz00zzcgen_copz00); 
if(BgL_test3928z00_3080)
{ /* ./Cgen/cgen.scm 543 */
return BgL_copz00_3078;}  else 
{ /* ./Cgen/cgen.scm 543 */
{ /* ./Cgen/cgen.scm 543 */
obj_t BgL_arg3930z00_3081;obj_t BgL_arg3931z00_3082;
BgL_arg3930z00_3081 = BFALSE; 
BgL_arg3931z00_3082 = BgL_copz00_3078; 
{ /* ./Cgen/cgen.scm 543 */
BgL_blockz00_bglt BgL_auxz00_5045;
BgL_auxz00_5045 = 
BGl_makezd2blockzd2zzcgen_copz00(BgL_arg3930z00_3081, 
(BgL_copz00_bglt)(BgL_arg3931z00_3082)); 
return 
(obj_t)(BgL_auxz00_5045);} } } } } }  else 
{ /* ./Cgen/cgen.scm 553 */
obj_t BgL_localz00_2090;
BgL_localz00_2090 = 
CAR(BgL_localsz00_2072); 
BGl_setzd2variablezd2namez12z12zzbackend_c_prototypez00(BgL_localz00_2090); 
{ /* ./Cgen/cgen.scm 555 */
BgL_sfunz00_bglt BgL_funz00_2091;
{ /* ./Cgen/cgen.scm 555 */
BgL_sfunz00_bglt BgL_obj3594z00_2100;
{ 
BgL_sfunz00_bglt BgL_auxz00_5051;
{ /* ./Cgen/cgen.scm 555 */
BgL_valuez00_bglt BgL_auxz00_5052;
{ /* ./Cgen/cgen.scm 555 */
BgL_variablez00_bglt BgL_obj1100z00_3752;
BgL_obj1100z00_3752 = 
(BgL_variablez00_bglt)(BgL_localz00_2090); 
BgL_auxz00_5052 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_3752))->BgL_valuez00); } 
BgL_auxz00_5051 = 
(BgL_sfunz00_bglt)(BgL_auxz00_5052); } 
BgL_obj3594z00_2100 = 
((BgL_sfunz00_bglt)BgL_auxz00_5051); } 
{ /* ./Cgen/cgen.scm 557 */
obj_t BgL_arg5304z00_2101;
{ /* ./Cgen/cgen.scm 557 */
BgL_clabelz00_bglt BgL_arg5307z00_2102;bool_t BgL_arg5308z00_2103;
{ /* ./Cgen/cgen.scm 557 */
obj_t BgL_arg5311z00_2104;obj_t BgL_arg5312z00_2105;
{ /* ./Cgen/cgen.scm 557 */
BgL_sfunz00_bglt BgL_obj1380z00_3087;
{ /* ./Cgen/cgen.scm 557 */
BgL_valuez00_bglt BgL_auxz00_5057;
{ /* ./Cgen/cgen.scm 557 */
BgL_variablez00_bglt BgL_obj1100z00_3086;
BgL_obj1100z00_3086 = 
(BgL_variablez00_bglt)(BgL_localz00_2090); 
BgL_auxz00_5057 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_3086))->BgL_valuez00); } 
BgL_obj1380z00_3087 = 
(BgL_sfunz00_bglt)(BgL_auxz00_5057); } 
BgL_arg5311z00_2104 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1380z00_3087))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 558 */
BgL_variablez00_bglt BgL_obj1094z00_3088;
BgL_obj1094z00_3088 = 
(BgL_variablez00_bglt)(BgL_localz00_2090); 
BgL_arg5312z00_2105 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1094z00_3088))->BgL_namez00); } 
BgL_arg5307z00_2102 = 
BGl_makezd2clabelzd2zzcgen_copz00(BgL_arg5311z00_2104, BgL_arg5312z00_2105, ((bool_t)0), BUNSPEC); } 
BgL_arg5308z00_2103 = ((bool_t)0); 
BgL_arg5304z00_2101 = 
BGl_wideningzd2sfunzf2Cz20zzcgen_copz00(BgL_arg5307z00_2102, BgL_arg5308z00_2103); } 
{ /* ./Cgen/cgen.scm 555 */
BgL_objectz00_bglt BgL_auxz00_5066;
BgL_auxz00_5066 = 
(BgL_objectz00_bglt)(BgL_obj3594z00_2100); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5066, BgL_arg5304z00_2101); } } 
{ /* ./Cgen/cgen.scm 555 */
long BgL_arg5320z00_2107;
BgL_arg5320z00_2107 = 
BGl_classzd2numzd2zz__objectz00(BGl_sfunzf2Czf2zzcgen_copz00); 
{ /* ./Cgen/cgen.scm 555 */
BgL_objectz00_bglt BgL_objz00_3089;
BgL_objz00_3089 = 
(BgL_objectz00_bglt)(BgL_obj3594z00_2100); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3089, BgL_arg5320z00_2107); } } 
{ /* ./Cgen/cgen.scm 555 */
obj_t BgL_objz00_3091;
BgL_objz00_3091 = 
(obj_t)(BgL_obj3594z00_2100); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3091); BUNSPEC; } 
BgL_funz00_2091 = BgL_obj3594z00_2100; } 
{ /* ./Cgen/cgen.scm 555 */
obj_t BgL_formalsz00_2092;
BgL_formalsz00_2092 = 
(((BgL_sfunz00_bglt)CREF(BgL_funz00_2091))->BgL_argsz00); 
{ /* ./Cgen/cgen.scm 560 */

{ 
obj_t BgL_l3596z00_2093;
BgL_l3596z00_2093 = BgL_formalsz00_2092; 
BgL_forzd2each3597zd2_2094:
{ /* ./Cgen/cgen.scm 561 */
bool_t BgL_test5286z00_2095;
BgL_test5286z00_2095 = 
PAIRP(BgL_l3596z00_2093); 
if(BgL_test5286z00_2095)
{ /* ./Cgen/cgen.scm 561 */
{ /* ./Cgen/cgen.scm 561 */
obj_t BgL_arg5288z00_2096;
BgL_arg5288z00_2096 = 
CAR(BgL_l3596z00_2093); 
BGl_setzd2variablezd2namez12z12zzbackend_c_prototypez00(BgL_arg5288z00_2096); } 
{ /* ./Cgen/cgen.scm 561 */
obj_t BgL_arg5292z00_2097;
BgL_arg5292z00_2097 = 
CDR(BgL_l3596z00_2093); 
{ 
obj_t BgL_l3596z00_5080;
BgL_l3596z00_5080 = BgL_arg5292z00_2097; 
BgL_l3596z00_2093 = BgL_l3596z00_5080; 
goto BgL_forzd2each3597zd2_2094;} } }  else 
{ /* ./Cgen/cgen.scm 561 */((bool_t)1); } } } 
{ /* ./Cgen/cgen.scm 562 */
obj_t BgL_arg5297z00_2098;obj_t BgL_arg5298z00_2099;
BgL_arg5297z00_2098 = 
CDR(BgL_localsz00_2072); 
BgL_arg5298z00_2099 = 
bgl_append2(BgL_formalsz00_2092, BgL_allzd2formalszd2_2073); 
{ 
obj_t BgL_allzd2formalszd2_5084;obj_t BgL_localsz00_5083;
BgL_localsz00_5083 = BgL_arg5297z00_2098; 
BgL_allzd2formalszd2_5084 = BgL_arg5298z00_2099; 
BgL_allzd2formalszd2_2073 = BgL_allzd2formalszd2_5084; 
BgL_localsz00_2072 = BgL_localsz00_5083; 
goto BgL_loopz00_2074;} } } } } } } } } } } 
}



/* node->cop-select3705 */
obj_t BGl_nodezd2ze3copzd2select3705ze3zzcgen_cgenz00(obj_t BgL_envz00_3681, obj_t BgL_nodez00_3682, obj_t BgL_kontz00_3683)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 496 */
{ 
BgL_selectz00_bglt BgL_nodez00_2022;obj_t BgL_kontz00_2023;
BgL_nodez00_2022 = 
(BgL_selectz00_bglt)(BgL_nodez00_3682); 
BgL_kontz00_2023 = BgL_kontz00_3683; 
{ 
obj_t BgL_l3582z00_2027;
{ /* ./Cgen/cgen.scm 501 */
obj_t BgL_arg5152z00_2029;
BgL_arg5152z00_2029 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_2022))->BgL_clausesz00); 
BgL_l3582z00_2027 = BgL_arg5152z00_2029; 
BgL_forzd2each3583zd2_2028:
{ /* ./Cgen/cgen.scm 501 */
bool_t BgL_test5155z00_2030;
BgL_test5155z00_2030 = 
PAIRP(BgL_l3582z00_2027); 
if(BgL_test5155z00_2030)
{ /* ./Cgen/cgen.scm 501 */
{ /* ./Cgen/cgen.scm 502 */
obj_t BgL_clausez00_2031;
BgL_clausez00_2031 = 
CAR(BgL_l3582z00_2027); 
{ /* ./Cgen/cgen.scm 502 */
BgL_copz00_bglt BgL_arg5157z00_2032;
{ /* ./Cgen/cgen.scm 502 */
obj_t BgL_arg5160z00_2033;
BgL_arg5160z00_2033 = 
CDR(BgL_clausez00_2031); 
{ /* ./Cgen/cgen.scm 502 */
BgL_copz00_bglt BgL_res5995z00_2992;
{ /* ./Cgen/cgen.scm 502 */
BgL_nodez00_bglt BgL_nodez00_2965;
BgL_nodez00_2965 = 
(BgL_nodez00_bglt)(BgL_arg5160z00_2033); 
{ /* ./Cgen/cgen.scm 502 */
obj_t BgL_method3671z00_2967;
{ /* ./Cgen/cgen.scm 502 */
BgL_objectz00_bglt BgL_objz00_2968;
BgL_objz00_2968 = 
(BgL_objectz00_bglt)(BgL_nodez00_2965); 
{ /* ./Cgen/cgen.scm 502 */
long BgL_objzd2classzd2numz00_2969;
BgL_objzd2classzd2numz00_2969 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2968); 
{ /* ./Cgen/cgen.scm 502 */
obj_t BgL_arg2017z00_2970;
{ /* ./Cgen/cgen.scm 502 */
int BgL_auxz00_5094;
BgL_auxz00_5094 = 
(int)(((long)1)); 
BgL_arg2017z00_2970 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_5094); } 
{ /* ./Cgen/cgen.scm 502 */
int BgL_offsetz00_2973;
BgL_offsetz00_2973 = 
(int)(BgL_objzd2classzd2numz00_2969); 
{ /* ./Cgen/cgen.scm 502 */
long BgL_offsetz00_2974;
{ /* ./Cgen/cgen.scm 502 */
long BgL_auxz00_5098;
BgL_auxz00_5098 = 
(long)(BgL_offsetz00_2973); 
BgL_offsetz00_2974 = 
(BgL_auxz00_5098-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 502 */
long BgL_modz00_2975;
{ /* ./Cgen/cgen.scm 502 */
int BgL_arg2028z00_2976;
BgL_arg2028z00_2976 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 502 */
long BgL_n2z00_2984;
BgL_n2z00_2984 = 
(long)(BgL_arg2028z00_2976); 
BgL_modz00_2975 = 
(BgL_offsetz00_2974/BgL_n2z00_2984); } } 
{ /* ./Cgen/cgen.scm 502 */
long BgL_restz00_2977;
{ /* ./Cgen/cgen.scm 502 */
int BgL_arg2024z00_2978;
BgL_arg2024z00_2978 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 502 */
long BgL_n2z00_2987;
BgL_n2z00_2987 = 
(long)(BgL_arg2024z00_2978); 
BgL_restz00_2977 = 
(BgL_offsetz00_2974%BgL_n2z00_2987); } } 
{ /* ./Cgen/cgen.scm 502 */

{ /* ./Cgen/cgen.scm 502 */
obj_t BgL_bucketz00_2979;
{ /* ./Cgen/cgen.scm 502 */
int BgL_kz00_2989;
BgL_kz00_2989 = 
(int)(BgL_modz00_2975); 
BgL_bucketz00_2979 = 
VECTOR_REF(BgL_arg2017z00_2970,BgL_kz00_2989); } 
{ /* ./Cgen/cgen.scm 502 */
int BgL_kz00_2991;
BgL_kz00_2991 = 
(int)(BgL_restz00_2977); 
BgL_method3671z00_2967 = 
VECTOR_REF(BgL_bucketz00_2979,BgL_kz00_2991); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 502 */
obj_t BgL_auxz00_5111;
BgL_auxz00_5111 = 
PROCEDURE_ENTRY(BgL_method3671z00_2967)(BgL_method3671z00_2967, 
(obj_t)(BgL_nodez00_2965), BgL_kontz00_2023, BEOA); 
BgL_res5995z00_2992 = 
(BgL_copz00_bglt)(BgL_auxz00_5111); } } } 
BgL_arg5157z00_2032 = BgL_res5995z00_2992; } } 
{ /* ./Cgen/cgen.scm 502 */
obj_t BgL_objz00_2994;
BgL_objz00_2994 = 
(obj_t)(BgL_arg5157z00_2032); 
SET_CDR(BgL_clausez00_2031, BgL_objz00_2994); } } } 
{ /* ./Cgen/cgen.scm 501 */
obj_t BgL_arg5165z00_2034;
BgL_arg5165z00_2034 = 
CDR(BgL_l3582z00_2027); 
{ 
obj_t BgL_l3582z00_5119;
BgL_l3582z00_5119 = BgL_arg5165z00_2034; 
BgL_l3582z00_2027 = BgL_l3582z00_5119; 
goto BgL_forzd2each3583zd2_2028;} } }  else 
{ /* ./Cgen/cgen.scm 501 */((bool_t)1); } } } } 
{ /* ./Cgen/cgen.scm 504 */
BgL_localz00_bglt BgL_auxz00_2035;
{ /* ./Cgen/cgen.scm 504 */
obj_t BgL_arg5237z00_2063;BgL_typez00_bglt BgL_arg5238z00_2064;
BgL_arg5237z00_2063 = 
CNST_TABLE_REF(((long)3)); 
BgL_arg5238z00_2064 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_2022))->BgL_itemzd2typezd2); 
BgL_auxz00_2035 = 
BGl_makezd2localzd2svarzf2namezf2zzcgen_cgenz00(BgL_arg5237z00_2063, BgL_arg5238z00_2064); } 
{ /* ./Cgen/cgen.scm 505 */
BgL_copz00_bglt BgL_copz00_2036;
{ /* ./Cgen/cgen.scm 505 */
BgL_setqz00_bglt BgL_arg5230z00_2061;
{ /* ./Cgen/cgen.scm 505 */
BgL_nodez00_bglt BgL_arg5233z00_2062;
BgL_arg5233z00_2062 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_2022))->BgL_testz00); 
BgL_arg5230z00_2061 = 
BGl_nodezd2setqzd2zzcgen_cgenz00(
(BgL_variablez00_bglt)(BgL_auxz00_2035), BgL_arg5233z00_2062); } 
{ /* ./Cgen/cgen.scm 505 */
BgL_copz00_bglt BgL_res5998z00_3025;
{ /* ./Cgen/cgen.scm 505 */
BgL_nodez00_bglt BgL_nodez00_2998;obj_t BgL_kontz00_2999;
BgL_nodez00_2998 = 
(BgL_nodez00_bglt)(BgL_arg5230z00_2061); 
BgL_kontz00_2999 = BGl_za2idzd2kontza2zd2zzcgen_cgenz00; 
{ /* ./Cgen/cgen.scm 505 */
obj_t BgL_method3671z00_3000;
{ /* ./Cgen/cgen.scm 505 */
BgL_objectz00_bglt BgL_objz00_3001;
BgL_objz00_3001 = 
(BgL_objectz00_bglt)(BgL_nodez00_2998); 
{ /* ./Cgen/cgen.scm 505 */
long BgL_objzd2classzd2numz00_3002;
BgL_objzd2classzd2numz00_3002 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3001); 
{ /* ./Cgen/cgen.scm 505 */
obj_t BgL_arg2017z00_3003;
{ /* ./Cgen/cgen.scm 505 */
int BgL_auxz00_5129;
BgL_auxz00_5129 = 
(int)(((long)1)); 
BgL_arg2017z00_3003 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_5129); } 
{ /* ./Cgen/cgen.scm 505 */
int BgL_offsetz00_3006;
BgL_offsetz00_3006 = 
(int)(BgL_objzd2classzd2numz00_3002); 
{ /* ./Cgen/cgen.scm 505 */
long BgL_offsetz00_3007;
{ /* ./Cgen/cgen.scm 505 */
long BgL_auxz00_5133;
BgL_auxz00_5133 = 
(long)(BgL_offsetz00_3006); 
BgL_offsetz00_3007 = 
(BgL_auxz00_5133-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 505 */
long BgL_modz00_3008;
{ /* ./Cgen/cgen.scm 505 */
int BgL_arg2028z00_3009;
BgL_arg2028z00_3009 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 505 */
long BgL_n2z00_3017;
BgL_n2z00_3017 = 
(long)(BgL_arg2028z00_3009); 
BgL_modz00_3008 = 
(BgL_offsetz00_3007/BgL_n2z00_3017); } } 
{ /* ./Cgen/cgen.scm 505 */
long BgL_restz00_3010;
{ /* ./Cgen/cgen.scm 505 */
int BgL_arg2024z00_3011;
BgL_arg2024z00_3011 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 505 */
long BgL_n2z00_3020;
BgL_n2z00_3020 = 
(long)(BgL_arg2024z00_3011); 
BgL_restz00_3010 = 
(BgL_offsetz00_3007%BgL_n2z00_3020); } } 
{ /* ./Cgen/cgen.scm 505 */

{ /* ./Cgen/cgen.scm 505 */
obj_t BgL_bucketz00_3012;
{ /* ./Cgen/cgen.scm 505 */
int BgL_kz00_3022;
BgL_kz00_3022 = 
(int)(BgL_modz00_3008); 
BgL_bucketz00_3012 = 
VECTOR_REF(BgL_arg2017z00_3003,BgL_kz00_3022); } 
{ /* ./Cgen/cgen.scm 505 */
int BgL_kz00_3024;
BgL_kz00_3024 = 
(int)(BgL_restz00_3010); 
BgL_method3671z00_3000 = 
VECTOR_REF(BgL_bucketz00_3012,BgL_kz00_3024); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 505 */
obj_t BgL_auxz00_5146;
BgL_auxz00_5146 = 
PROCEDURE_ENTRY(BgL_method3671z00_3000)(BgL_method3671z00_3000, 
(obj_t)(BgL_nodez00_2998), BgL_kontz00_2999, BEOA); 
BgL_res5998z00_3025 = 
(BgL_copz00_bglt)(BgL_auxz00_5146); } } } 
BgL_copz00_2036 = BgL_res5998z00_3025; } } 
{ /* ./Cgen/cgen.scm 506 */
bool_t BgL_test5169z00_2037;
{ /* ./Cgen/cgen.scm 506 */
bool_t BgL_test5220z00_2058;
{ /* ./Cgen/cgen.scm 506 */
obj_t BgL_obj2881z00_3026;
BgL_obj2881z00_3026 = 
(obj_t)(BgL_copz00_2036); 
BgL_test5220z00_2058 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2881z00_3026, BGl_csetqz00zzcgen_copz00); } 
if(BgL_test5220z00_2058)
{ /* ./Cgen/cgen.scm 507 */
obj_t BgL_auxz00_5160;obj_t BgL_auxz00_5154;
BgL_auxz00_5160 = 
(obj_t)(BgL_auxz00_2035); 
{ /* ./Cgen/cgen.scm 507 */
BgL_variablez00_bglt BgL_auxz00_5155;
{ /* ./Cgen/cgen.scm 507 */
BgL_varcz00_bglt BgL_arg5225z00_2060;
{ /* ./Cgen/cgen.scm 507 */
BgL_csetqz00_bglt BgL_obj2867z00_3027;
BgL_obj2867z00_3027 = 
(BgL_csetqz00_bglt)(BgL_copz00_2036); 
BgL_arg5225z00_2060 = 
(((BgL_csetqz00_bglt)CREF(BgL_obj2867z00_3027))->BgL_varz00); } 
BgL_auxz00_5155 = 
(((BgL_varcz00_bglt)CREF(BgL_arg5225z00_2060))->BgL_variablez00); } 
BgL_auxz00_5154 = 
(obj_t)(BgL_auxz00_5155); } 
BgL_test5169z00_2037 = 
(BgL_auxz00_5154==BgL_auxz00_5160); }  else 
{ /* ./Cgen/cgen.scm 506 */
BgL_test5169z00_2037 = ((bool_t)0); } } 
if(BgL_test5169z00_2037)
{ /* ./Cgen/cgen.scm 509 */
obj_t BgL_arg5171z00_2038;BgL_copz00_bglt BgL_arg5172z00_2039;obj_t BgL_arg5173z00_2040;
{ /* ./Cgen/cgen.scm 509 */
BgL_nodez00_bglt BgL_obj1560z00_3029;
BgL_obj1560z00_3029 = 
(BgL_nodez00_bglt)(BgL_nodez00_2022); 
BgL_arg5171z00_2038 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3029))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 510 */
BgL_csetqz00_bglt BgL_obj2868z00_3030;
BgL_obj2868z00_3030 = 
(BgL_csetqz00_bglt)(BgL_copz00_2036); 
BgL_arg5172z00_2039 = 
(((BgL_csetqz00_bglt)CREF(BgL_obj2868z00_3030))->BgL_valuez00); } 
BgL_arg5173z00_2040 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_2022))->BgL_clausesz00); 
{ /* ./Cgen/cgen.scm 508 */
BgL_cswitchz00_bglt BgL_auxz00_5169;
BgL_auxz00_5169 = 
BGl_makezd2cswitchzd2zzcgen_copz00(BgL_arg5171z00_2038, BgL_arg5172z00_2039, BgL_arg5173z00_2040); 
return 
(obj_t)(BgL_auxz00_5169);} }  else 
{ /* ./Cgen/cgen.scm 513 */
obj_t BgL_arg5179z00_2041;BgL_csequencez00_bglt BgL_arg5180z00_2042;
{ /* ./Cgen/cgen.scm 513 */
BgL_nodez00_bglt BgL_obj1560z00_3032;
BgL_obj1560z00_3032 = 
(BgL_nodez00_bglt)(BgL_nodez00_2022); 
BgL_arg5179z00_2041 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3032))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 514 */
obj_t BgL_arg5184z00_2043;obj_t BgL_arg5185z00_2044;
{ /* ./Cgen/cgen.scm 515 */
BgL_nodez00_bglt BgL_obj1560z00_3033;
BgL_obj1560z00_3033 = 
(BgL_nodez00_bglt)(BgL_nodez00_2022); 
BgL_arg5184z00_2043 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3033))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 517 */
BgL_localzd2varzd2_bglt BgL_arg5189z00_2045;BgL_cswitchz00_bglt BgL_arg5190z00_2046;
{ /* ./Cgen/cgen.scm 517 */
obj_t BgL_arg5201z00_2050;obj_t BgL_arg5202z00_2051;
{ /* ./Cgen/cgen.scm 517 */
BgL_nodez00_bglt BgL_obj1560z00_3034;
BgL_obj1560z00_3034 = 
(BgL_nodez00_bglt)(BgL_nodez00_2022); 
BgL_arg5201z00_2050 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3034))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 518 */
obj_t BgL_list5206z00_2052;
{ /* ./Cgen/cgen.scm 518 */
obj_t BgL_auxz00_5178;
BgL_auxz00_5178 = 
(obj_t)(BgL_auxz00_2035); 
BgL_list5206z00_2052 = 
MAKE_PAIR(BgL_auxz00_5178, BNIL); } 
BgL_arg5202z00_2051 = BgL_list5206z00_2052; } 
BgL_arg5189z00_2045 = 
BGl_makezd2localzd2varz00zzcgen_copz00(BgL_arg5201z00_2050, BgL_arg5202z00_2051); } 
{ /* ./Cgen/cgen.scm 521 */
obj_t BgL_arg5209z00_2053;BgL_varcz00_bglt BgL_arg5210z00_2054;obj_t BgL_arg5211z00_2055;
{ /* ./Cgen/cgen.scm 521 */
BgL_nodez00_bglt BgL_obj1560z00_3037;
BgL_obj1560z00_3037 = 
(BgL_nodez00_bglt)(BgL_nodez00_2022); 
BgL_arg5209z00_2053 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3037))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 523 */
obj_t BgL_arg5215z00_2056;BgL_localz00_bglt BgL_arg5216z00_2057;
{ /* ./Cgen/cgen.scm 523 */
BgL_nodez00_bglt BgL_obj1560z00_3038;
BgL_obj1560z00_3038 = 
(BgL_nodez00_bglt)(BgL_nodez00_2022); 
BgL_arg5215z00_2056 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_3038))->BgL_locz00); } 
BgL_arg5216z00_2057 = BgL_auxz00_2035; 
BgL_arg5210z00_2054 = 
BGl_makezd2varczd2zzcgen_copz00(BgL_arg5215z00_2056, 
(BgL_variablez00_bglt)(BgL_arg5216z00_2057)); } 
BgL_arg5211z00_2055 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_2022))->BgL_clausesz00); 
BgL_arg5190z00_2046 = 
BGl_makezd2cswitchzd2zzcgen_copz00(BgL_arg5209z00_2053, 
(BgL_copz00_bglt)(BgL_arg5210z00_2054), BgL_arg5211z00_2055); } 
{ /* ./Cgen/cgen.scm 516 */
obj_t BgL_list5192z00_2047;
{ /* ./Cgen/cgen.scm 516 */
obj_t BgL_arg5194z00_2048;
{ /* ./Cgen/cgen.scm 516 */
obj_t BgL_arg5197z00_2049;
{ /* ./Cgen/cgen.scm 516 */
obj_t BgL_auxz00_5191;
BgL_auxz00_5191 = 
(obj_t)(BgL_arg5190z00_2046); 
BgL_arg5197z00_2049 = 
MAKE_PAIR(BgL_auxz00_5191, BNIL); } 
{ /* ./Cgen/cgen.scm 516 */
obj_t BgL_auxz00_5194;
BgL_auxz00_5194 = 
(obj_t)(BgL_copz00_2036); 
BgL_arg5194z00_2048 = 
MAKE_PAIR(BgL_auxz00_5194, BgL_arg5197z00_2049); } } 
{ /* ./Cgen/cgen.scm 516 */
obj_t BgL_auxz00_5197;
BgL_auxz00_5197 = 
(obj_t)(BgL_arg5189z00_2045); 
BgL_list5192z00_2047 = 
MAKE_PAIR(BgL_auxz00_5197, BgL_arg5194z00_2048); } } 
BgL_arg5185z00_2044 = BgL_list5192z00_2047; } } 
BgL_arg5180z00_2042 = 
BGl_makezd2csequencezd2zzcgen_copz00(BgL_arg5184z00_2043, ((bool_t)0), BgL_arg5185z00_2044); } 
{ /* ./Cgen/cgen.scm 512 */
BgL_blockz00_bglt BgL_auxz00_5201;
BgL_auxz00_5201 = 
BGl_makezd2blockzd2zzcgen_copz00(BgL_arg5179z00_2041, 
(BgL_copz00_bglt)(BgL_arg5180z00_2042)); 
return 
(obj_t)(BgL_auxz00_5201);} } } } } } } 
}



/* node->cop-fail3703 */
obj_t BGl_nodezd2ze3copzd2fail3703ze3zzcgen_cgenz00(obj_t BgL_envz00_3684, obj_t BgL_nodez00_3685, obj_t BgL_kontz00_3686)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 478 */
{ 
BgL_failz00_bglt BgL_nodez00_1998;obj_t BgL_kontz00_1999;
BgL_nodez00_1998 = 
(BgL_failz00_bglt)(BgL_nodez00_3685); 
BgL_kontz00_1999 = BgL_kontz00_3686; 
{ /* ./Cgen/cgen.scm 483 */
obj_t BgL_arg5110z00_2003;obj_t BgL_arg5111z00_2004;
{ /* ./Cgen/cgen.scm 483 */
BgL_nodez00_bglt BgL_arg5115z00_2006;BgL_nodez00_bglt BgL_arg5116z00_2007;BgL_nodez00_bglt BgL_arg5117z00_2008;
BgL_arg5115z00_2006 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1998))->BgL_procz00); 
BgL_arg5116z00_2007 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1998))->BgL_msgz00); 
BgL_arg5117z00_2008 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1998))->BgL_objz00); 
{ /* ./Cgen/cgen.scm 483 */
obj_t BgL_list5119z00_2009;
{ /* ./Cgen/cgen.scm 483 */
obj_t BgL_arg5121z00_2010;
{ /* ./Cgen/cgen.scm 483 */
obj_t BgL_arg5124z00_2011;
{ /* ./Cgen/cgen.scm 483 */
obj_t BgL_auxz00_5209;
BgL_auxz00_5209 = 
(obj_t)(BgL_arg5117z00_2008); 
BgL_arg5124z00_2011 = 
MAKE_PAIR(BgL_auxz00_5209, BNIL); } 
{ /* ./Cgen/cgen.scm 483 */
obj_t BgL_auxz00_5212;
BgL_auxz00_5212 = 
(obj_t)(BgL_arg5116z00_2007); 
BgL_arg5121z00_2010 = 
MAKE_PAIR(BgL_auxz00_5212, BgL_arg5124z00_2011); } } 
{ /* ./Cgen/cgen.scm 483 */
obj_t BgL_auxz00_5215;
BgL_auxz00_5215 = 
(obj_t)(BgL_arg5115z00_2006); 
BgL_list5119z00_2009 = 
MAKE_PAIR(BgL_auxz00_5215, BgL_arg5121z00_2010); } } 
BgL_arg5110z00_2003 = BgL_list5119z00_2009; } } 
{ /* ./Cgen/cgen.scm 483 */
BgL_nodez00_bglt BgL_obj1560z00_2947;
BgL_obj1560z00_2947 = 
(BgL_nodez00_bglt)(BgL_nodez00_1998); 
BgL_arg5111z00_2004 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2947))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 488 */
obj_t BgL_zc3anonymousza35131ze3z83_3630;
{ 
int BgL_auxz00_5220;
BgL_auxz00_5220 = 
(int)(((long)1)); 
BgL_zc3anonymousza35131ze3z83_3630 = 
MAKE_L_PROCEDURE(BGl_zc3anonymousza35131ze3z83zzcgen_cgenz00, BgL_auxz00_5220); } 
{ /* ./Cgen/cgen.scm 488 */
obj_t BgL_auxz00_5225;int BgL_auxz00_5223;
BgL_auxz00_5225 = 
(obj_t)(BgL_nodez00_1998); 
BgL_auxz00_5223 = 
(int)(((long)0)); 
PROCEDURE_L_SET(BgL_zc3anonymousza35131ze3z83_3630, BgL_auxz00_5223, BgL_auxz00_5225); } 
return 
BGl_nodezd2argszd2ze3copze3zzcgen_cgenz00(BgL_arg5110z00_2003, BgL_arg5111z00_2004, BgL_zc3anonymousza35131ze3z83_3630);} } } } 
}



/* <anonymous:5131> */
obj_t BGl_zc3anonymousza35131ze3z83zzcgen_cgenz00(obj_t BgL_envz00_3687, obj_t BgL_newzd2argszd2_3689)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 485 */
{ /* ./Cgen/cgen.scm 488 */
obj_t BgL_instance3577z00_3688;
{ /* ./Cgen/cgen.scm 488 */
int BgL_auxz00_5230;
BgL_auxz00_5230 = 
(int)(((long)0)); 
BgL_instance3577z00_3688 = 
PROCEDURE_L_REF(BgL_envz00_3687, BgL_auxz00_5230); } 
{ 
obj_t BgL_newzd2argszd2_2012;
{ /* ./Cgen/cgen.scm 488 */
BgL_cfailz00_bglt BgL_auxz00_5233;
BgL_newzd2argszd2_2012 = BgL_newzd2argszd2_3689; 
{ /* ./Cgen/cgen.scm 488 */
BgL_cfailz00_bglt BgL_arg5133z00_2014;
{ /* ./Cgen/cgen.scm 488 */
obj_t BgL_arg5136z00_2015;obj_t BgL_arg5137z00_2016;obj_t BgL_arg5138z00_2017;obj_t BgL_arg5139z00_2018;
{ /* ./Cgen/cgen.scm 488 */
BgL_nodez00_bglt BgL_obj1560z00_2948;
BgL_obj1560z00_2948 = 
(BgL_nodez00_bglt)(BgL_instance3577z00_3688); 
BgL_arg5136z00_2015 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2948))->BgL_locz00); } 
BgL_arg5137z00_2016 = 
CAR(BgL_newzd2argszd2_2012); 
{ /* ./Cgen/cgen.scm 490 */
obj_t BgL_auxz00_5237;
BgL_auxz00_5237 = 
CDR(BgL_newzd2argszd2_2012); 
BgL_arg5138z00_2017 = 
CAR(BgL_auxz00_5237); } 
{ /* ./Cgen/cgen.scm 491 */
obj_t BgL_auxz00_5240;
{ /* ./Cgen/cgen.scm 491 */
obj_t BgL_auxz00_5241;
BgL_auxz00_5241 = 
CDR(BgL_newzd2argszd2_2012); 
BgL_auxz00_5240 = 
CDR(BgL_auxz00_5241); } 
BgL_arg5139z00_2018 = 
CAR(BgL_auxz00_5240); } 
BgL_arg5133z00_2014 = 
BGl_makezd2cfailzd2zzcgen_copz00(BgL_arg5136z00_2015, 
(BgL_copz00_bglt)(BgL_arg5137z00_2016), 
(BgL_copz00_bglt)(BgL_arg5138z00_2017), 
(BgL_copz00_bglt)(BgL_arg5139z00_2018)); } 
BgL_auxz00_5233 = BgL_arg5133z00_2014; } 
return 
(obj_t)(BgL_auxz00_5233);} } } } 
}



/* node->cop-conditional3701 */
obj_t BGl_nodezd2ze3copzd2conditional3701ze3zzcgen_cgenz00(obj_t BgL_envz00_3690, obj_t BgL_nodez00_3691, obj_t BgL_kontz00_3692)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 442 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1949;obj_t BgL_kontz00_1950;
BgL_nodez00_1949 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_3691); 
BgL_kontz00_1950 = BgL_kontz00_3692; 
{ /* ./Cgen/cgen.scm 448 */
BgL_localz00_bglt BgL_auxz00_1954;
BgL_auxz00_1954 = 
BGl_makezd2localzd2svarzf2namezf2zzcgen_cgenz00(
CNST_TABLE_REF(((long)6)), 
(BgL_typez00_bglt)(BGl_za2boolza2z00zztype_cachez00)); 
{ /* ./Cgen/cgen.scm 448 */
BgL_copz00_bglt BgL_ctestz00_1955;
{ /* ./Cgen/cgen.scm 449 */
BgL_setqz00_bglt BgL_arg5096z00_1994;
{ /* ./Cgen/cgen.scm 449 */
BgL_nodez00_bglt BgL_arg5099z00_1995;
BgL_arg5099z00_1995 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1949))->BgL_testz00); 
BgL_arg5096z00_1994 = 
BGl_nodezd2setqzd2zzcgen_cgenz00(
(BgL_variablez00_bglt)(BgL_auxz00_1954), BgL_arg5099z00_1995); } 
{ /* ./Cgen/cgen.scm 449 */
BgL_copz00_bglt BgL_res5977z00_2783;
{ /* ./Cgen/cgen.scm 449 */
BgL_nodez00_bglt BgL_nodez00_2756;obj_t BgL_kontz00_2757;
BgL_nodez00_2756 = 
(BgL_nodez00_bglt)(BgL_arg5096z00_1994); 
BgL_kontz00_2757 = BGl_za2idzd2kontza2zd2zzcgen_cgenz00; 
{ /* ./Cgen/cgen.scm 449 */
obj_t BgL_method3671z00_2758;
{ /* ./Cgen/cgen.scm 449 */
BgL_objectz00_bglt BgL_objz00_2759;
BgL_objz00_2759 = 
(BgL_objectz00_bglt)(BgL_nodez00_2756); 
{ /* ./Cgen/cgen.scm 449 */
long BgL_objzd2classzd2numz00_2760;
BgL_objzd2classzd2numz00_2760 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2759); 
{ /* ./Cgen/cgen.scm 449 */
obj_t BgL_arg2017z00_2761;
{ /* ./Cgen/cgen.scm 449 */
int BgL_auxz00_5259;
BgL_auxz00_5259 = 
(int)(((long)1)); 
BgL_arg2017z00_2761 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_5259); } 
{ /* ./Cgen/cgen.scm 449 */
int BgL_offsetz00_2764;
BgL_offsetz00_2764 = 
(int)(BgL_objzd2classzd2numz00_2760); 
{ /* ./Cgen/cgen.scm 449 */
long BgL_offsetz00_2765;
{ /* ./Cgen/cgen.scm 449 */
long BgL_auxz00_5263;
BgL_auxz00_5263 = 
(long)(BgL_offsetz00_2764); 
BgL_offsetz00_2765 = 
(BgL_auxz00_5263-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 449 */
long BgL_modz00_2766;
{ /* ./Cgen/cgen.scm 449 */
int BgL_arg2028z00_2767;
BgL_arg2028z00_2767 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 449 */
long BgL_n2z00_2775;
BgL_n2z00_2775 = 
(long)(BgL_arg2028z00_2767); 
BgL_modz00_2766 = 
(BgL_offsetz00_2765/BgL_n2z00_2775); } } 
{ /* ./Cgen/cgen.scm 449 */
long BgL_restz00_2768;
{ /* ./Cgen/cgen.scm 449 */
int BgL_arg2024z00_2769;
BgL_arg2024z00_2769 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 449 */
long BgL_n2z00_2778;
BgL_n2z00_2778 = 
(long)(BgL_arg2024z00_2769); 
BgL_restz00_2768 = 
(BgL_offsetz00_2765%BgL_n2z00_2778); } } 
{ /* ./Cgen/cgen.scm 449 */

{ /* ./Cgen/cgen.scm 449 */
obj_t BgL_bucketz00_2770;
{ /* ./Cgen/cgen.scm 449 */
int BgL_kz00_2780;
BgL_kz00_2780 = 
(int)(BgL_modz00_2766); 
BgL_bucketz00_2770 = 
VECTOR_REF(BgL_arg2017z00_2761,BgL_kz00_2780); } 
{ /* ./Cgen/cgen.scm 449 */
int BgL_kz00_2782;
BgL_kz00_2782 = 
(int)(BgL_restz00_2768); 
BgL_method3671z00_2758 = 
VECTOR_REF(BgL_bucketz00_2770,BgL_kz00_2782); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 449 */
obj_t BgL_auxz00_5276;
BgL_auxz00_5276 = 
PROCEDURE_ENTRY(BgL_method3671z00_2758)(BgL_method3671z00_2758, 
(obj_t)(BgL_nodez00_2756), BgL_kontz00_2757, BEOA); 
BgL_res5977z00_2783 = 
(BgL_copz00_bglt)(BgL_auxz00_5276); } } } 
BgL_ctestz00_1955 = BgL_res5977z00_2783; } } 
{ /* ./Cgen/cgen.scm 449 */

{ /* ./Cgen/cgen.scm 450 */
bool_t BgL_test4999z00_1956;
{ /* ./Cgen/cgen.scm 450 */
bool_t BgL_test5086z00_1991;
{ /* ./Cgen/cgen.scm 450 */
obj_t BgL_obj2881z00_2784;
BgL_obj2881z00_2784 = 
(obj_t)(BgL_ctestz00_1955); 
BgL_test5086z00_1991 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2881z00_2784, BGl_csetqz00zzcgen_copz00); } 
if(BgL_test5086z00_1991)
{ /* ./Cgen/cgen.scm 450 */
obj_t BgL_auxz00_5290;obj_t BgL_auxz00_5284;
BgL_auxz00_5290 = 
(obj_t)(BgL_auxz00_1954); 
{ /* ./Cgen/cgen.scm 450 */
BgL_variablez00_bglt BgL_auxz00_5285;
{ /* ./Cgen/cgen.scm 450 */
BgL_varcz00_bglt BgL_arg5091z00_1993;
{ /* ./Cgen/cgen.scm 450 */
BgL_csetqz00_bglt BgL_obj2867z00_2785;
BgL_obj2867z00_2785 = 
(BgL_csetqz00_bglt)(BgL_ctestz00_1955); 
BgL_arg5091z00_1993 = 
(((BgL_csetqz00_bglt)CREF(BgL_obj2867z00_2785))->BgL_varz00); } 
BgL_auxz00_5285 = 
(((BgL_varcz00_bglt)CREF(BgL_arg5091z00_1993))->BgL_variablez00); } 
BgL_auxz00_5284 = 
(obj_t)(BgL_auxz00_5285); } 
BgL_test4999z00_1956 = 
(BgL_auxz00_5284==BgL_auxz00_5290); }  else 
{ /* ./Cgen/cgen.scm 450 */
BgL_test4999z00_1956 = ((bool_t)0); } } 
if(BgL_test4999z00_1956)
{ /* ./Cgen/cgen.scm 452 */
obj_t BgL_arg5001z00_1957;BgL_copz00_bglt BgL_arg5002z00_1958;obj_t BgL_arg5003z00_1959;obj_t BgL_arg5004z00_1960;
{ /* ./Cgen/cgen.scm 452 */
BgL_nodez00_bglt BgL_obj1560z00_2787;
BgL_obj1560z00_2787 = 
(BgL_nodez00_bglt)(BgL_nodez00_1949); 
BgL_arg5001z00_1957 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2787))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 453 */
BgL_csetqz00_bglt BgL_obj2868z00_2788;
BgL_obj2868z00_2788 = 
(BgL_csetqz00_bglt)(BgL_ctestz00_1955); 
BgL_arg5002z00_1958 = 
(((BgL_csetqz00_bglt)CREF(BgL_obj2868z00_2788))->BgL_valuez00); } 
{ /* ./Cgen/cgen.scm 454 */
BgL_copz00_bglt BgL_arg5009z00_1961;obj_t BgL_arg5010z00_1962;
{ /* ./Cgen/cgen.scm 454 */
BgL_nodez00_bglt BgL_arg5013z00_1963;
BgL_arg5013z00_1963 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1949))->BgL_truez00); 
{ /* ./Cgen/cgen.scm 454 */
BgL_copz00_bglt BgL_res5980z00_2817;
{ /* ./Cgen/cgen.scm 454 */
obj_t BgL_method3671z00_2792;
{ /* ./Cgen/cgen.scm 454 */
BgL_objectz00_bglt BgL_objz00_2793;
BgL_objz00_2793 = 
(BgL_objectz00_bglt)(BgL_arg5013z00_1963); 
{ /* ./Cgen/cgen.scm 454 */
long BgL_objzd2classzd2numz00_2794;
BgL_objzd2classzd2numz00_2794 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2793); 
{ /* ./Cgen/cgen.scm 454 */
obj_t BgL_arg2017z00_2795;
{ /* ./Cgen/cgen.scm 454 */
int BgL_auxz00_5301;
BgL_auxz00_5301 = 
(int)(((long)1)); 
BgL_arg2017z00_2795 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_5301); } 
{ /* ./Cgen/cgen.scm 454 */
int BgL_offsetz00_2798;
BgL_offsetz00_2798 = 
(int)(BgL_objzd2classzd2numz00_2794); 
{ /* ./Cgen/cgen.scm 454 */
long BgL_offsetz00_2799;
{ /* ./Cgen/cgen.scm 454 */
long BgL_auxz00_5305;
BgL_auxz00_5305 = 
(long)(BgL_offsetz00_2798); 
BgL_offsetz00_2799 = 
(BgL_auxz00_5305-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 454 */
long BgL_modz00_2800;
{ /* ./Cgen/cgen.scm 454 */
int BgL_arg2028z00_2801;
BgL_arg2028z00_2801 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 454 */
long BgL_n2z00_2809;
BgL_n2z00_2809 = 
(long)(BgL_arg2028z00_2801); 
BgL_modz00_2800 = 
(BgL_offsetz00_2799/BgL_n2z00_2809); } } 
{ /* ./Cgen/cgen.scm 454 */
long BgL_restz00_2802;
{ /* ./Cgen/cgen.scm 454 */
int BgL_arg2024z00_2803;
BgL_arg2024z00_2803 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 454 */
long BgL_n2z00_2812;
BgL_n2z00_2812 = 
(long)(BgL_arg2024z00_2803); 
BgL_restz00_2802 = 
(BgL_offsetz00_2799%BgL_n2z00_2812); } } 
{ /* ./Cgen/cgen.scm 454 */

{ /* ./Cgen/cgen.scm 454 */
obj_t BgL_bucketz00_2804;
{ /* ./Cgen/cgen.scm 454 */
int BgL_kz00_2814;
BgL_kz00_2814 = 
(int)(BgL_modz00_2800); 
BgL_bucketz00_2804 = 
VECTOR_REF(BgL_arg2017z00_2795,BgL_kz00_2814); } 
{ /* ./Cgen/cgen.scm 454 */
int BgL_kz00_2816;
BgL_kz00_2816 = 
(int)(BgL_restz00_2802); 
BgL_method3671z00_2792 = 
VECTOR_REF(BgL_bucketz00_2804,BgL_kz00_2816); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 454 */
obj_t BgL_auxz00_5318;
BgL_auxz00_5318 = 
PROCEDURE_ENTRY(BgL_method3671z00_2792)(BgL_method3671z00_2792, 
(obj_t)(BgL_arg5013z00_1963), BgL_kontz00_1950, BEOA); 
BgL_res5980z00_2817 = 
(BgL_copz00_bglt)(BgL_auxz00_5318); } } 
BgL_arg5009z00_1961 = BgL_res5980z00_2817; } } 
{ /* ./Cgen/cgen.scm 454 */
BgL_nodez00_bglt BgL_obj1560z00_2818;
BgL_obj1560z00_2818 = 
(BgL_nodez00_bglt)(BgL_nodez00_1949); 
BgL_arg5010z00_1962 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2818))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 454 */
obj_t BgL_copz00_2819;
BgL_copz00_2819 = 
(obj_t)(BgL_arg5009z00_1961); 
{ /* ./Cgen/cgen.scm 454 */
bool_t BgL_test3928z00_2821;
BgL_test3928z00_2821 = 
BGl_iszd2azf3z21zz__objectz00(BgL_copz00_2819, BGl_blockz00zzcgen_copz00); 
if(BgL_test3928z00_2821)
{ /* ./Cgen/cgen.scm 454 */
BgL_arg5003z00_1959 = BgL_copz00_2819; }  else 
{ /* ./Cgen/cgen.scm 454 */
{ /* ./Cgen/cgen.scm 454 */
obj_t BgL_arg3930z00_2822;obj_t BgL_arg3931z00_2823;
BgL_arg3930z00_2822 = BgL_arg5010z00_1962; 
BgL_arg3931z00_2823 = BgL_copz00_2819; 
{ /* ./Cgen/cgen.scm 454 */
BgL_blockz00_bglt BgL_auxz00_5328;
BgL_auxz00_5328 = 
BGl_makezd2blockzd2zzcgen_copz00(BgL_arg3930z00_2822, 
(BgL_copz00_bglt)(BgL_arg3931z00_2823)); 
BgL_arg5003z00_1959 = 
(obj_t)(BgL_auxz00_5328); } } } } } } 
{ /* ./Cgen/cgen.scm 454 */
BgL_copz00_bglt BgL_arg5018z00_1964;obj_t BgL_arg5019z00_1965;
{ /* ./Cgen/cgen.scm 454 */
BgL_nodez00_bglt BgL_arg5022z00_1966;
BgL_arg5022z00_1966 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1949))->BgL_falsez00); 
{ /* ./Cgen/cgen.scm 454 */
BgL_copz00_bglt BgL_res5983z00_2853;
{ /* ./Cgen/cgen.scm 454 */
obj_t BgL_method3671z00_2828;
{ /* ./Cgen/cgen.scm 454 */
BgL_objectz00_bglt BgL_objz00_2829;
BgL_objz00_2829 = 
(BgL_objectz00_bglt)(BgL_arg5022z00_1966); 
{ /* ./Cgen/cgen.scm 454 */
long BgL_objzd2classzd2numz00_2830;
BgL_objzd2classzd2numz00_2830 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2829); 
{ /* ./Cgen/cgen.scm 454 */
obj_t BgL_arg2017z00_2831;
{ /* ./Cgen/cgen.scm 454 */
int BgL_auxz00_5335;
BgL_auxz00_5335 = 
(int)(((long)1)); 
BgL_arg2017z00_2831 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_5335); } 
{ /* ./Cgen/cgen.scm 454 */
int BgL_offsetz00_2834;
BgL_offsetz00_2834 = 
(int)(BgL_objzd2classzd2numz00_2830); 
{ /* ./Cgen/cgen.scm 454 */
long BgL_offsetz00_2835;
{ /* ./Cgen/cgen.scm 454 */
long BgL_auxz00_5339;
BgL_auxz00_5339 = 
(long)(BgL_offsetz00_2834); 
BgL_offsetz00_2835 = 
(BgL_auxz00_5339-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 454 */
long BgL_modz00_2836;
{ /* ./Cgen/cgen.scm 454 */
int BgL_arg2028z00_2837;
BgL_arg2028z00_2837 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 454 */
long BgL_n2z00_2845;
BgL_n2z00_2845 = 
(long)(BgL_arg2028z00_2837); 
BgL_modz00_2836 = 
(BgL_offsetz00_2835/BgL_n2z00_2845); } } 
{ /* ./Cgen/cgen.scm 454 */
long BgL_restz00_2838;
{ /* ./Cgen/cgen.scm 454 */
int BgL_arg2024z00_2839;
BgL_arg2024z00_2839 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 454 */
long BgL_n2z00_2848;
BgL_n2z00_2848 = 
(long)(BgL_arg2024z00_2839); 
BgL_restz00_2838 = 
(BgL_offsetz00_2835%BgL_n2z00_2848); } } 
{ /* ./Cgen/cgen.scm 454 */

{ /* ./Cgen/cgen.scm 454 */
obj_t BgL_bucketz00_2840;
{ /* ./Cgen/cgen.scm 454 */
int BgL_kz00_2850;
BgL_kz00_2850 = 
(int)(BgL_modz00_2836); 
BgL_bucketz00_2840 = 
VECTOR_REF(BgL_arg2017z00_2831,BgL_kz00_2850); } 
{ /* ./Cgen/cgen.scm 454 */
int BgL_kz00_2852;
BgL_kz00_2852 = 
(int)(BgL_restz00_2838); 
BgL_method3671z00_2828 = 
VECTOR_REF(BgL_bucketz00_2840,BgL_kz00_2852); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 454 */
obj_t BgL_auxz00_5352;
BgL_auxz00_5352 = 
PROCEDURE_ENTRY(BgL_method3671z00_2828)(BgL_method3671z00_2828, 
(obj_t)(BgL_arg5022z00_1966), BgL_kontz00_1950, BEOA); 
BgL_res5983z00_2853 = 
(BgL_copz00_bglt)(BgL_auxz00_5352); } } 
BgL_arg5018z00_1964 = BgL_res5983z00_2853; } } 
{ /* ./Cgen/cgen.scm 455 */
BgL_nodez00_bglt BgL_obj1560z00_2854;
BgL_obj1560z00_2854 = 
(BgL_nodez00_bglt)(BgL_nodez00_1949); 
BgL_arg5019z00_1965 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2854))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 455 */
obj_t BgL_copz00_2855;
BgL_copz00_2855 = 
(obj_t)(BgL_arg5018z00_1964); 
{ /* ./Cgen/cgen.scm 455 */
bool_t BgL_test3928z00_2857;
BgL_test3928z00_2857 = 
BGl_iszd2azf3z21zz__objectz00(BgL_copz00_2855, BGl_blockz00zzcgen_copz00); 
if(BgL_test3928z00_2857)
{ /* ./Cgen/cgen.scm 455 */
BgL_arg5004z00_1960 = BgL_copz00_2855; }  else 
{ /* ./Cgen/cgen.scm 455 */
{ /* ./Cgen/cgen.scm 455 */
obj_t BgL_arg3930z00_2858;obj_t BgL_arg3931z00_2859;
BgL_arg3930z00_2858 = BgL_arg5019z00_1965; 
BgL_arg3931z00_2859 = BgL_copz00_2855; 
{ /* ./Cgen/cgen.scm 455 */
BgL_blockz00_bglt BgL_auxz00_5362;
BgL_auxz00_5362 = 
BGl_makezd2blockzd2zzcgen_copz00(BgL_arg3930z00_2858, 
(BgL_copz00_bglt)(BgL_arg3931z00_2859)); 
BgL_arg5004z00_1960 = 
(obj_t)(BgL_auxz00_5362); } } } } } } 
{ /* ./Cgen/cgen.scm 451 */
BgL_cifz00_bglt BgL_auxz00_5366;
BgL_auxz00_5366 = 
BGl_makezd2cifzd2zzcgen_copz00(BgL_arg5001z00_1957, BgL_arg5002z00_1958, 
(BgL_copz00_bglt)(BgL_arg5003z00_1959), 
(BgL_copz00_bglt)(BgL_arg5004z00_1960)); 
return 
(obj_t)(BgL_auxz00_5366);} }  else 
{ /* ./Cgen/cgen.scm 457 */
obj_t BgL_arg5027z00_1967;BgL_csequencez00_bglt BgL_arg5028z00_1968;
{ /* ./Cgen/cgen.scm 457 */
BgL_nodez00_bglt BgL_obj1560z00_2861;
BgL_obj1560z00_2861 = 
(BgL_nodez00_bglt)(BgL_nodez00_1949); 
BgL_arg5027z00_1967 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2861))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 459 */
obj_t BgL_arg5032z00_1969;obj_t BgL_arg5033z00_1970;
{ /* ./Cgen/cgen.scm 460 */
BgL_nodez00_bglt BgL_obj1560z00_2862;
BgL_obj1560z00_2862 = 
(BgL_nodez00_bglt)(BgL_nodez00_1949); 
BgL_arg5032z00_1969 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2862))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 465 */
BgL_localzd2varzd2_bglt BgL_arg5037z00_1971;BgL_cifz00_bglt BgL_arg5038z00_1972;
{ /* ./Cgen/cgen.scm 465 */
obj_t BgL_arg5049z00_1976;obj_t BgL_arg5050z00_1977;
{ /* ./Cgen/cgen.scm 465 */
BgL_nodez00_bglt BgL_obj1560z00_2863;
BgL_obj1560z00_2863 = 
(BgL_nodez00_bglt)(BgL_nodez00_1949); 
BgL_arg5049z00_1976 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2863))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 464 */
obj_t BgL_list5054z00_1978;
{ /* ./Cgen/cgen.scm 464 */
obj_t BgL_auxz00_5377;
BgL_auxz00_5377 = 
(obj_t)(BgL_auxz00_1954); 
BgL_list5054z00_1978 = 
MAKE_PAIR(BgL_auxz00_5377, BNIL); } 
BgL_arg5050z00_1977 = BgL_list5054z00_1978; } 
BgL_arg5037z00_1971 = 
BGl_makezd2localzd2varz00zzcgen_copz00(BgL_arg5049z00_1976, BgL_arg5050z00_1977); } 
{ /* ./Cgen/cgen.scm 473 */
obj_t BgL_arg5057z00_1979;BgL_varcz00_bglt BgL_arg5058z00_1980;obj_t BgL_arg5059z00_1981;obj_t BgL_arg5060z00_1982;
{ /* ./Cgen/cgen.scm 473 */
BgL_nodez00_bglt BgL_obj1560z00_2866;
BgL_obj1560z00_2866 = 
(BgL_nodez00_bglt)(BgL_nodez00_1949); 
BgL_arg5057z00_1979 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2866))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 470 */
obj_t BgL_arg5064z00_1983;BgL_localz00_bglt BgL_arg5065z00_1984;
{ /* ./Cgen/cgen.scm 470 */
BgL_nodez00_bglt BgL_obj1560z00_2867;
BgL_obj1560z00_2867 = 
(BgL_nodez00_bglt)(BgL_nodez00_1949); 
BgL_arg5064z00_1983 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2867))->BgL_locz00); } 
BgL_arg5065z00_1984 = BgL_auxz00_1954; 
BgL_arg5058z00_1980 = 
BGl_makezd2varczd2zzcgen_copz00(BgL_arg5064z00_1983, 
(BgL_variablez00_bglt)(BgL_arg5065z00_1984)); } 
{ /* ./Cgen/cgen.scm 472 */
BgL_copz00_bglt BgL_arg5069z00_1985;obj_t BgL_arg5070z00_1986;
{ /* ./Cgen/cgen.scm 472 */
BgL_nodez00_bglt BgL_arg5073z00_1987;
BgL_arg5073z00_1987 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1949))->BgL_truez00); 
{ /* ./Cgen/cgen.scm 472 */
BgL_copz00_bglt BgL_res5987z00_2896;
{ /* ./Cgen/cgen.scm 472 */
obj_t BgL_method3671z00_2871;
{ /* ./Cgen/cgen.scm 472 */
BgL_objectz00_bglt BgL_objz00_2872;
BgL_objz00_2872 = 
(BgL_objectz00_bglt)(BgL_arg5073z00_1987); 
{ /* ./Cgen/cgen.scm 472 */
long BgL_objzd2classzd2numz00_2873;
BgL_objzd2classzd2numz00_2873 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2872); 
{ /* ./Cgen/cgen.scm 472 */
obj_t BgL_arg2017z00_2874;
{ /* ./Cgen/cgen.scm 472 */
int BgL_auxz00_5390;
BgL_auxz00_5390 = 
(int)(((long)1)); 
BgL_arg2017z00_2874 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_5390); } 
{ /* ./Cgen/cgen.scm 472 */
int BgL_offsetz00_2877;
BgL_offsetz00_2877 = 
(int)(BgL_objzd2classzd2numz00_2873); 
{ /* ./Cgen/cgen.scm 472 */
long BgL_offsetz00_2878;
{ /* ./Cgen/cgen.scm 472 */
long BgL_auxz00_5394;
BgL_auxz00_5394 = 
(long)(BgL_offsetz00_2877); 
BgL_offsetz00_2878 = 
(BgL_auxz00_5394-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 472 */
long BgL_modz00_2879;
{ /* ./Cgen/cgen.scm 472 */
int BgL_arg2028z00_2880;
BgL_arg2028z00_2880 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 472 */
long BgL_n2z00_2888;
BgL_n2z00_2888 = 
(long)(BgL_arg2028z00_2880); 
BgL_modz00_2879 = 
(BgL_offsetz00_2878/BgL_n2z00_2888); } } 
{ /* ./Cgen/cgen.scm 472 */
long BgL_restz00_2881;
{ /* ./Cgen/cgen.scm 472 */
int BgL_arg2024z00_2882;
BgL_arg2024z00_2882 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 472 */
long BgL_n2z00_2891;
BgL_n2z00_2891 = 
(long)(BgL_arg2024z00_2882); 
BgL_restz00_2881 = 
(BgL_offsetz00_2878%BgL_n2z00_2891); } } 
{ /* ./Cgen/cgen.scm 472 */

{ /* ./Cgen/cgen.scm 472 */
obj_t BgL_bucketz00_2883;
{ /* ./Cgen/cgen.scm 472 */
int BgL_kz00_2893;
BgL_kz00_2893 = 
(int)(BgL_modz00_2879); 
BgL_bucketz00_2883 = 
VECTOR_REF(BgL_arg2017z00_2874,BgL_kz00_2893); } 
{ /* ./Cgen/cgen.scm 472 */
int BgL_kz00_2895;
BgL_kz00_2895 = 
(int)(BgL_restz00_2881); 
BgL_method3671z00_2871 = 
VECTOR_REF(BgL_bucketz00_2883,BgL_kz00_2895); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 472 */
obj_t BgL_auxz00_5407;
BgL_auxz00_5407 = 
PROCEDURE_ENTRY(BgL_method3671z00_2871)(BgL_method3671z00_2871, 
(obj_t)(BgL_arg5073z00_1987), BgL_kontz00_1950, BEOA); 
BgL_res5987z00_2896 = 
(BgL_copz00_bglt)(BgL_auxz00_5407); } } 
BgL_arg5069z00_1985 = BgL_res5987z00_2896; } } 
{ /* ./Cgen/cgen.scm 472 */
BgL_nodez00_bglt BgL_obj1560z00_2897;
BgL_obj1560z00_2897 = 
(BgL_nodez00_bglt)(BgL_nodez00_1949); 
BgL_arg5070z00_1986 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2897))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 472 */
obj_t BgL_copz00_2898;
BgL_copz00_2898 = 
(obj_t)(BgL_arg5069z00_1985); 
{ /* ./Cgen/cgen.scm 472 */
bool_t BgL_test3928z00_2900;
BgL_test3928z00_2900 = 
BGl_iszd2azf3z21zz__objectz00(BgL_copz00_2898, BGl_blockz00zzcgen_copz00); 
if(BgL_test3928z00_2900)
{ /* ./Cgen/cgen.scm 472 */
BgL_arg5059z00_1981 = BgL_copz00_2898; }  else 
{ /* ./Cgen/cgen.scm 472 */
{ /* ./Cgen/cgen.scm 472 */
obj_t BgL_arg3930z00_2901;obj_t BgL_arg3931z00_2902;
BgL_arg3930z00_2901 = BgL_arg5070z00_1986; 
BgL_arg3931z00_2902 = BgL_copz00_2898; 
{ /* ./Cgen/cgen.scm 472 */
BgL_blockz00_bglt BgL_auxz00_5417;
BgL_auxz00_5417 = 
BGl_makezd2blockzd2zzcgen_copz00(BgL_arg3930z00_2901, 
(BgL_copz00_bglt)(BgL_arg3931z00_2902)); 
BgL_arg5059z00_1981 = 
(obj_t)(BgL_auxz00_5417); } } } } } } 
{ /* ./Cgen/cgen.scm 471 */
BgL_copz00_bglt BgL_arg5078z00_1988;obj_t BgL_arg5079z00_1989;
{ /* ./Cgen/cgen.scm 471 */
BgL_nodez00_bglt BgL_arg5082z00_1990;
BgL_arg5082z00_1990 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1949))->BgL_falsez00); 
{ /* ./Cgen/cgen.scm 471 */
BgL_copz00_bglt BgL_res5990z00_2932;
{ /* ./Cgen/cgen.scm 471 */
obj_t BgL_method3671z00_2907;
{ /* ./Cgen/cgen.scm 471 */
BgL_objectz00_bglt BgL_objz00_2908;
BgL_objz00_2908 = 
(BgL_objectz00_bglt)(BgL_arg5082z00_1990); 
{ /* ./Cgen/cgen.scm 471 */
long BgL_objzd2classzd2numz00_2909;
BgL_objzd2classzd2numz00_2909 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2908); 
{ /* ./Cgen/cgen.scm 471 */
obj_t BgL_arg2017z00_2910;
{ /* ./Cgen/cgen.scm 471 */
int BgL_auxz00_5424;
BgL_auxz00_5424 = 
(int)(((long)1)); 
BgL_arg2017z00_2910 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_5424); } 
{ /* ./Cgen/cgen.scm 471 */
int BgL_offsetz00_2913;
BgL_offsetz00_2913 = 
(int)(BgL_objzd2classzd2numz00_2909); 
{ /* ./Cgen/cgen.scm 471 */
long BgL_offsetz00_2914;
{ /* ./Cgen/cgen.scm 471 */
long BgL_auxz00_5428;
BgL_auxz00_5428 = 
(long)(BgL_offsetz00_2913); 
BgL_offsetz00_2914 = 
(BgL_auxz00_5428-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 471 */
long BgL_modz00_2915;
{ /* ./Cgen/cgen.scm 471 */
int BgL_arg2028z00_2916;
BgL_arg2028z00_2916 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 471 */
long BgL_n2z00_2924;
BgL_n2z00_2924 = 
(long)(BgL_arg2028z00_2916); 
BgL_modz00_2915 = 
(BgL_offsetz00_2914/BgL_n2z00_2924); } } 
{ /* ./Cgen/cgen.scm 471 */
long BgL_restz00_2917;
{ /* ./Cgen/cgen.scm 471 */
int BgL_arg2024z00_2918;
BgL_arg2024z00_2918 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 471 */
long BgL_n2z00_2927;
BgL_n2z00_2927 = 
(long)(BgL_arg2024z00_2918); 
BgL_restz00_2917 = 
(BgL_offsetz00_2914%BgL_n2z00_2927); } } 
{ /* ./Cgen/cgen.scm 471 */

{ /* ./Cgen/cgen.scm 471 */
obj_t BgL_bucketz00_2919;
{ /* ./Cgen/cgen.scm 471 */
int BgL_kz00_2929;
BgL_kz00_2929 = 
(int)(BgL_modz00_2915); 
BgL_bucketz00_2919 = 
VECTOR_REF(BgL_arg2017z00_2910,BgL_kz00_2929); } 
{ /* ./Cgen/cgen.scm 471 */
int BgL_kz00_2931;
BgL_kz00_2931 = 
(int)(BgL_restz00_2917); 
BgL_method3671z00_2907 = 
VECTOR_REF(BgL_bucketz00_2919,BgL_kz00_2931); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 471 */
obj_t BgL_auxz00_5441;
BgL_auxz00_5441 = 
PROCEDURE_ENTRY(BgL_method3671z00_2907)(BgL_method3671z00_2907, 
(obj_t)(BgL_arg5082z00_1990), BgL_kontz00_1950, BEOA); 
BgL_res5990z00_2932 = 
(BgL_copz00_bglt)(BgL_auxz00_5441); } } 
BgL_arg5078z00_1988 = BgL_res5990z00_2932; } } 
{ /* ./Cgen/cgen.scm 471 */
BgL_nodez00_bglt BgL_obj1560z00_2933;
BgL_obj1560z00_2933 = 
(BgL_nodez00_bglt)(BgL_nodez00_1949); 
BgL_arg5079z00_1989 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2933))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 471 */
obj_t BgL_copz00_2934;
BgL_copz00_2934 = 
(obj_t)(BgL_arg5078z00_1988); 
{ /* ./Cgen/cgen.scm 471 */
bool_t BgL_test3928z00_2936;
BgL_test3928z00_2936 = 
BGl_iszd2azf3z21zz__objectz00(BgL_copz00_2934, BGl_blockz00zzcgen_copz00); 
if(BgL_test3928z00_2936)
{ /* ./Cgen/cgen.scm 471 */
BgL_arg5060z00_1982 = BgL_copz00_2934; }  else 
{ /* ./Cgen/cgen.scm 471 */
{ /* ./Cgen/cgen.scm 471 */
obj_t BgL_arg3930z00_2937;obj_t BgL_arg3931z00_2938;
BgL_arg3930z00_2937 = BgL_arg5079z00_1989; 
BgL_arg3931z00_2938 = BgL_copz00_2934; 
{ /* ./Cgen/cgen.scm 471 */
BgL_blockz00_bglt BgL_auxz00_5451;
BgL_auxz00_5451 = 
BGl_makezd2blockzd2zzcgen_copz00(BgL_arg3930z00_2937, 
(BgL_copz00_bglt)(BgL_arg3931z00_2938)); 
BgL_arg5060z00_1982 = 
(obj_t)(BgL_auxz00_5451); } } } } } } 
BgL_arg5038z00_1972 = 
BGl_makezd2cifzd2zzcgen_copz00(BgL_arg5057z00_1979, 
(BgL_copz00_bglt)(BgL_arg5058z00_1980), 
(BgL_copz00_bglt)(BgL_arg5059z00_1981), 
(BgL_copz00_bglt)(BgL_arg5060z00_1982)); } 
{ /* ./Cgen/cgen.scm 461 */
obj_t BgL_list5040z00_1973;
{ /* ./Cgen/cgen.scm 461 */
obj_t BgL_arg5042z00_1974;
{ /* ./Cgen/cgen.scm 461 */
obj_t BgL_arg5045z00_1975;
{ /* ./Cgen/cgen.scm 461 */
obj_t BgL_auxz00_5459;
BgL_auxz00_5459 = 
(obj_t)(BgL_arg5038z00_1972); 
BgL_arg5045z00_1975 = 
MAKE_PAIR(BgL_auxz00_5459, BNIL); } 
{ /* ./Cgen/cgen.scm 461 */
obj_t BgL_auxz00_5462;
BgL_auxz00_5462 = 
(obj_t)(BgL_ctestz00_1955); 
BgL_arg5042z00_1974 = 
MAKE_PAIR(BgL_auxz00_5462, BgL_arg5045z00_1975); } } 
{ /* ./Cgen/cgen.scm 461 */
obj_t BgL_auxz00_5465;
BgL_auxz00_5465 = 
(obj_t)(BgL_arg5037z00_1971); 
BgL_list5040z00_1973 = 
MAKE_PAIR(BgL_auxz00_5465, BgL_arg5042z00_1974); } } 
BgL_arg5033z00_1970 = BgL_list5040z00_1973; } } 
BgL_arg5028z00_1968 = 
BGl_makezd2csequencezd2zzcgen_copz00(BgL_arg5032z00_1969, ((bool_t)0), BgL_arg5033z00_1970); } 
{ /* ./Cgen/cgen.scm 456 */
BgL_blockz00_bglt BgL_auxz00_5469;
BgL_auxz00_5469 = 
BGl_makezd2blockzd2zzcgen_copz00(BgL_arg5027z00_1967, 
(BgL_copz00_bglt)(BgL_arg5028z00_1968)); 
return 
(obj_t)(BgL_auxz00_5469);} } } } } } } } 
}



/* node->cop-setq3699 */
obj_t BGl_nodezd2ze3copzd2setq3699ze3zzcgen_cgenz00(obj_t BgL_envz00_3693, obj_t BgL_nodez00_3694, obj_t BgL_kontz00_3695)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 427 */
{ 
BgL_setqz00_bglt BgL_nodez00_1928;obj_t BgL_kontz00_1929;
BgL_nodez00_1928 = 
(BgL_setqz00_bglt)(BgL_nodez00_3694); 
BgL_kontz00_1929 = BgL_kontz00_3695; 
{ /* ./Cgen/cgen.scm 432 */
BgL_variablez00_bglt BgL_varz00_1933;
{ /* ./Cgen/cgen.scm 432 */
BgL_varz00_bglt BgL_arg4990z00_1946;
BgL_arg4990z00_1946 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1928))->BgL_varz00); 
BgL_varz00_1933 = 
(((BgL_varz00_bglt)CREF(BgL_arg4990z00_1946))->BgL_variablez00); } 
{ /* ./Cgen/cgen.scm 433 */
bool_t BgL_test4955z00_1934;
{ /* ./Cgen/cgen.scm 433 */
bool_t BgL_test4977z00_1942;
{ /* ./Cgen/cgen.scm 433 */
BgL_nodez00_bglt BgL_arg4986z00_1945;
BgL_arg4986z00_1945 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1928))->BgL_valuez00); 
{ /* ./Cgen/cgen.scm 433 */
obj_t BgL_obj1640z00_2719;
BgL_obj1640z00_2719 = 
(obj_t)(BgL_arg4986z00_1945); 
BgL_test4977z00_1942 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1640z00_2719, BGl_varz00zzast_nodez00); } } 
if(BgL_test4977z00_1942)
{ /* ./Cgen/cgen.scm 433 */
obj_t BgL_auxz00_5482;obj_t BgL_auxz00_5480;
{ /* ./Cgen/cgen.scm 433 */
BgL_variablez00_bglt BgL_auxz00_5483;
{ /* ./Cgen/cgen.scm 433 */
BgL_varz00_bglt BgL_obj1625z00_2721;
{ /* ./Cgen/cgen.scm 433 */
BgL_nodez00_bglt BgL_auxz00_5484;
BgL_auxz00_5484 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1928))->BgL_valuez00); 
BgL_obj1625z00_2721 = 
(BgL_varz00_bglt)(BgL_auxz00_5484); } 
BgL_auxz00_5483 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_2721))->BgL_variablez00); } 
BgL_auxz00_5482 = 
(obj_t)(BgL_auxz00_5483); } 
BgL_auxz00_5480 = 
(obj_t)(BgL_varz00_1933); 
BgL_test4955z00_1934 = 
(BgL_auxz00_5480==BgL_auxz00_5482); }  else 
{ /* ./Cgen/cgen.scm 433 */
BgL_test4955z00_1934 = ((bool_t)0); } } 
if(BgL_test4955z00_1934)
{ /* ./Cgen/cgen.scm 435 */
BgL_cvoidz00_bglt BgL_arg4958z00_1935;
{ /* ./Cgen/cgen.scm 435 */
BgL_catomz00_bglt BgL_arg4961z00_1936;
{ /* ./Cgen/cgen.scm 435 */
obj_t BgL_arg4964z00_1937;obj_t BgL_arg4965z00_1938;
{ /* ./Cgen/cgen.scm 435 */
BgL_nodez00_bglt BgL_obj1560z00_2722;
BgL_obj1560z00_2722 = 
(BgL_nodez00_bglt)(BgL_nodez00_1928); 
BgL_arg4964z00_1937 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2722))->BgL_locz00); } 
BgL_arg4965z00_1938 = BUNSPEC; 
BgL_arg4961z00_1936 = 
BGl_makezd2catomzd2zzcgen_copz00(BgL_arg4964z00_1937, BgL_arg4965z00_1938); } 
{ /* ./Cgen/cgen.scm 434 */
BgL_catomz00_bglt BgL_arg3926z00_2724;
BgL_arg3926z00_2724 = BgL_arg4961z00_1936; 
BgL_arg4958z00_1935 = 
BGl_makezd2cvoidzd2zzcgen_copz00(BFALSE, 
(BgL_copz00_bglt)(BgL_arg3926z00_2724)); } } 
return 
PROCEDURE_ENTRY(BgL_kontz00_1929)(BgL_kontz00_1929, 
(obj_t)(BgL_arg4958z00_1935), BEOA);}  else 
{ /* ./Cgen/cgen.scm 437 */
BgL_nodez00_bglt BgL_arg4969z00_1939;obj_t BgL_arg4970z00_1940;
BgL_arg4969z00_1939 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1928))->BgL_valuez00); 
{ /* ./Cgen/cgen.scm 437 */
obj_t BgL_arg4974z00_1941;
{ /* ./Cgen/cgen.scm 437 */
BgL_nodez00_bglt BgL_obj1560z00_2726;
BgL_obj1560z00_2726 = 
(BgL_nodez00_bglt)(BgL_nodez00_1928); 
BgL_arg4974z00_1941 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2726))->BgL_locz00); } 
BgL_arg4970z00_1940 = 
BGl_makezd2setqzd2kontz00zzcgen_cgenz00(BgL_varz00_1933, BgL_arg4974z00_1941, BgL_kontz00_1929); } 
{ /* ./Cgen/cgen.scm 437 */
BgL_copz00_bglt BgL_res5974z00_2754;
{ /* ./Cgen/cgen.scm 437 */
obj_t BgL_method3671z00_2729;
{ /* ./Cgen/cgen.scm 437 */
BgL_objectz00_bglt BgL_objz00_2730;
BgL_objz00_2730 = 
(BgL_objectz00_bglt)(BgL_arg4969z00_1939); 
{ /* ./Cgen/cgen.scm 437 */
long BgL_objzd2classzd2numz00_2731;
BgL_objzd2classzd2numz00_2731 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2730); 
{ /* ./Cgen/cgen.scm 437 */
obj_t BgL_arg2017z00_2732;
{ /* ./Cgen/cgen.scm 437 */
int BgL_auxz00_5505;
BgL_auxz00_5505 = 
(int)(((long)1)); 
BgL_arg2017z00_2732 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_5505); } 
{ /* ./Cgen/cgen.scm 437 */
int BgL_offsetz00_2735;
BgL_offsetz00_2735 = 
(int)(BgL_objzd2classzd2numz00_2731); 
{ /* ./Cgen/cgen.scm 437 */
long BgL_offsetz00_2736;
{ /* ./Cgen/cgen.scm 437 */
long BgL_auxz00_5509;
BgL_auxz00_5509 = 
(long)(BgL_offsetz00_2735); 
BgL_offsetz00_2736 = 
(BgL_auxz00_5509-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 437 */
long BgL_modz00_2737;
{ /* ./Cgen/cgen.scm 437 */
int BgL_arg2028z00_2738;
BgL_arg2028z00_2738 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 437 */
long BgL_n2z00_2746;
BgL_n2z00_2746 = 
(long)(BgL_arg2028z00_2738); 
BgL_modz00_2737 = 
(BgL_offsetz00_2736/BgL_n2z00_2746); } } 
{ /* ./Cgen/cgen.scm 437 */
long BgL_restz00_2739;
{ /* ./Cgen/cgen.scm 437 */
int BgL_arg2024z00_2740;
BgL_arg2024z00_2740 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 437 */
long BgL_n2z00_2749;
BgL_n2z00_2749 = 
(long)(BgL_arg2024z00_2740); 
BgL_restz00_2739 = 
(BgL_offsetz00_2736%BgL_n2z00_2749); } } 
{ /* ./Cgen/cgen.scm 437 */

{ /* ./Cgen/cgen.scm 437 */
obj_t BgL_bucketz00_2741;
{ /* ./Cgen/cgen.scm 437 */
int BgL_kz00_2751;
BgL_kz00_2751 = 
(int)(BgL_modz00_2737); 
BgL_bucketz00_2741 = 
VECTOR_REF(BgL_arg2017z00_2732,BgL_kz00_2751); } 
{ /* ./Cgen/cgen.scm 437 */
int BgL_kz00_2753;
BgL_kz00_2753 = 
(int)(BgL_restz00_2739); 
BgL_method3671z00_2729 = 
VECTOR_REF(BgL_bucketz00_2741,BgL_kz00_2753); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 437 */
obj_t BgL_auxz00_5522;
BgL_auxz00_5522 = 
PROCEDURE_ENTRY(BgL_method3671z00_2729)(BgL_method3671z00_2729, 
(obj_t)(BgL_arg4969z00_1939), BgL_arg4970z00_1940, BEOA); 
BgL_res5974z00_2754 = 
(BgL_copz00_bglt)(BgL_auxz00_5522); } } 
return 
(obj_t)(BgL_res5974z00_2754);} } } } } } 
}



/* node->cop-cast3697 */
obj_t BGl_nodezd2ze3copzd2cast3697ze3zzcgen_cgenz00(obj_t BgL_envz00_3696, obj_t BgL_nodez00_3697, obj_t BgL_kontz00_3698)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 411 */
{ 
BgL_castz00_bglt BgL_nodez00_1909;obj_t BgL_kontz00_1910;
BgL_nodez00_1909 = 
(BgL_castz00_bglt)(BgL_nodez00_3697); 
BgL_kontz00_1910 = BgL_kontz00_3698; 
{ /* ./Cgen/cgen.scm 416 */
obj_t BgL_arg4926z00_1914;obj_t BgL_arg4927z00_1915;
{ /* ./Cgen/cgen.scm 416 */
BgL_nodez00_bglt BgL_arg4931z00_1917;
BgL_arg4931z00_1917 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1909))->BgL_argz00); 
{ /* ./Cgen/cgen.scm 416 */
obj_t BgL_list4933z00_1918;
{ /* ./Cgen/cgen.scm 416 */
obj_t BgL_auxz00_5530;
BgL_auxz00_5530 = 
(obj_t)(BgL_arg4931z00_1917); 
BgL_list4933z00_1918 = 
MAKE_PAIR(BgL_auxz00_5530, BNIL); } 
BgL_arg4926z00_1914 = BgL_list4933z00_1918; } } 
{ /* ./Cgen/cgen.scm 416 */
BgL_nodez00_bglt BgL_obj1560z00_2712;
BgL_obj1560z00_2712 = 
(BgL_nodez00_bglt)(BgL_nodez00_1909); 
BgL_arg4927z00_1915 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2712))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 421 */
obj_t BgL_zc3anonymousza34937ze3z83_3634;
{ 
int BgL_auxz00_5535;
BgL_auxz00_5535 = 
(int)(((long)2)); 
BgL_zc3anonymousza34937ze3z83_3634 = 
MAKE_L_PROCEDURE(BGl_zc3anonymousza34937ze3z83zzcgen_cgenz00, BgL_auxz00_5535); } 
{ /* ./Cgen/cgen.scm 421 */
obj_t BgL_auxz00_5540;int BgL_auxz00_5538;
BgL_auxz00_5540 = 
(obj_t)(BgL_nodez00_1909); 
BgL_auxz00_5538 = 
(int)(((long)0)); 
PROCEDURE_L_SET(BgL_zc3anonymousza34937ze3z83_3634, BgL_auxz00_5538, BgL_auxz00_5540); } 
{ /* ./Cgen/cgen.scm 421 */
int BgL_auxz00_5543;
BgL_auxz00_5543 = 
(int)(((long)1)); 
PROCEDURE_L_SET(BgL_zc3anonymousza34937ze3z83_3634, BgL_auxz00_5543, BgL_kontz00_1910); } 
return 
BGl_nodezd2argszd2ze3copze3zzcgen_cgenz00(BgL_arg4926z00_1914, BgL_arg4927z00_1915, BgL_zc3anonymousza34937ze3z83_3634);} } } } 
}



/* <anonymous:4937> */
obj_t BGl_zc3anonymousza34937ze3z83zzcgen_cgenz00(obj_t BgL_envz00_3699, obj_t BgL_newzd2argszd2_3702)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 418 */
{ /* ./Cgen/cgen.scm 421 */
obj_t BgL_instance3563z00_3700;obj_t BgL_kontz00_3701;
{ /* ./Cgen/cgen.scm 421 */
int BgL_auxz00_5548;
BgL_auxz00_5548 = 
(int)(((long)0)); 
BgL_instance3563z00_3700 = 
PROCEDURE_L_REF(BgL_envz00_3699, BgL_auxz00_5548); } 
{ /* ./Cgen/cgen.scm 421 */
int BgL_auxz00_5551;
BgL_auxz00_5551 = 
(int)(((long)1)); 
BgL_kontz00_3701 = 
PROCEDURE_L_REF(BgL_envz00_3699, BgL_auxz00_5551); } 
{ 
obj_t BgL_newzd2argszd2_1919;
BgL_newzd2argszd2_1919 = BgL_newzd2argszd2_3702; 
{ /* ./Cgen/cgen.scm 421 */
BgL_ccastz00_bglt BgL_arg4939z00_1921;
{ /* ./Cgen/cgen.scm 421 */
obj_t BgL_arg4942z00_1922;BgL_typez00_bglt BgL_arg4943z00_1923;obj_t BgL_arg4944z00_1924;
{ /* ./Cgen/cgen.scm 421 */
BgL_nodez00_bglt BgL_obj1560z00_2713;
BgL_obj1560z00_2713 = 
(BgL_nodez00_bglt)(BgL_instance3563z00_3700); 
BgL_arg4942z00_1922 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2713))->BgL_locz00); } 
{ /* ./Cgen/cgen.scm 420 */
BgL_nodez00_bglt BgL_obj1561z00_2714;
BgL_obj1561z00_2714 = 
(BgL_nodez00_bglt)(BgL_instance3563z00_3700); 
BgL_arg4943z00_1923 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_2714))->BgL_typez00); } 
BgL_arg4944z00_1924 = 
CAR(BgL_newzd2argszd2_1919); 
BgL_arg4939z00_1921 = 
BGl_makezd2ccastzd2zzcgen_copz00(BgL_arg4942z00_1922, BgL_arg4943z00_1923, 
(BgL_copz00_bglt)(BgL_arg4944z00_1924)); } 
return 
PROCEDURE_ENTRY(BgL_kontz00_3701)(BgL_kontz00_3701, 
(obj_t)(BgL_arg4939z00_1921), BEOA);} } } } 
}



/* node->cop-valloc3695 */
obj_t BGl_nodezd2ze3copzd2valloc3695ze3zzcgen_cgenz00(obj_t BgL_envz00_3703, obj_t BgL_nodez00_3704, obj_t BgL_kontz00_3705)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 401 */
{ 
BgL_vallocz00_bglt BgL_nodez00_1901;obj_t BgL_kontz00_1902;
BgL_nodez00_1901 = 
(BgL_vallocz00_bglt)(BgL_nodez00_3704); 
BgL_kontz00_1902 = BgL_kontz00_3705; 
{ /* ./Cgen/cgen.scm 402 */
obj_t BgL_arg4916z00_2707;
BgL_arg4916z00_2707 = 
(((BgL_vallocz00_bglt)CREF(BgL_nodez00_1901))->BgL_czd2heapzd2formatz00); 
return 
BGl_externzd2ze3copz31zzcgen_cgenz00(BgL_arg4916z00_2707, 
(BgL_externz00_bglt)(BgL_nodez00_1901), BgL_kontz00_1902);} } } 
}



/* node->cop-vset!3693 */
obj_t BGl_nodezd2ze3copzd2vsetz123693zf1zzcgen_cgenz00(obj_t BgL_envz00_3706, obj_t BgL_nodez00_3707, obj_t BgL_kontz00_3708)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 391 */
{ 
BgL_vsetz12z12_bglt BgL_nodez00_1893;obj_t BgL_kontz00_1894;
BgL_nodez00_1893 = 
(BgL_vsetz12z12_bglt)(BgL_nodez00_3707); 
BgL_kontz00_1894 = BgL_kontz00_3708; 
{ /* ./Cgen/cgen.scm 392 */
obj_t BgL_arg4906z00_2704;
BgL_arg4906z00_2704 = 
(((BgL_vsetz12z12_bglt)CREF(BgL_nodez00_1893))->BgL_czd2formatzd2); 
return 
BGl_externzd2ze3copz31zzcgen_cgenz00(BgL_arg4906z00_2704, 
(BgL_externz00_bglt)(BgL_nodez00_1893), BgL_kontz00_1894);} } } 
}



/* node->cop-vref3691 */
obj_t BGl_nodezd2ze3copzd2vref3691ze3zzcgen_cgenz00(obj_t BgL_envz00_3709, obj_t BgL_nodez00_3710, obj_t BgL_kontz00_3711)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 381 */
{ 
BgL_vrefz00_bglt BgL_nodez00_1885;obj_t BgL_kontz00_1886;
BgL_nodez00_1885 = 
(BgL_vrefz00_bglt)(BgL_nodez00_3710); 
BgL_kontz00_1886 = BgL_kontz00_3711; 
{ /* ./Cgen/cgen.scm 382 */
obj_t BgL_arg4896z00_2701;
BgL_arg4896z00_2701 = 
(((BgL_vrefz00_bglt)CREF(BgL_nodez00_1885))->BgL_czd2formatzd2); 
return 
BGl_externzd2ze3copz31zzcgen_cgenz00(BgL_arg4896z00_2701, 
(BgL_externz00_bglt)(BgL_nodez00_1885), BgL_kontz00_1886);} } } 
}



/* node->cop-vlength3689 */
obj_t BGl_nodezd2ze3copzd2vlength3689ze3zzcgen_cgenz00(obj_t BgL_envz00_3712, obj_t BgL_nodez00_3713, obj_t BgL_kontz00_3714)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 371 */
{ 
BgL_vlengthz00_bglt BgL_nodez00_1877;obj_t BgL_kontz00_1878;
BgL_nodez00_1877 = 
(BgL_vlengthz00_bglt)(BgL_nodez00_3713); 
BgL_kontz00_1878 = BgL_kontz00_3714; 
{ /* ./Cgen/cgen.scm 372 */
obj_t BgL_arg4886z00_2698;
BgL_arg4886z00_2698 = 
(((BgL_vlengthz00_bglt)CREF(BgL_nodez00_1877))->BgL_czd2formatzd2); 
return 
BGl_externzd2ze3copz31zzcgen_cgenz00(BgL_arg4886z00_2698, 
(BgL_externz00_bglt)(BgL_nodez00_1877), BgL_kontz00_1878);} } } 
}



/* node->cop-setfield3687 */
obj_t BGl_nodezd2ze3copzd2setfield3687ze3zzcgen_cgenz00(obj_t BgL_envz00_3715, obj_t BgL_nodez00_3716, obj_t BgL_kontz00_3717)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 358 */
{ 
BgL_setfieldz00_bglt BgL_nodez00_1853;obj_t BgL_kontz00_1854;
BgL_nodez00_1853 = 
(BgL_setfieldz00_bglt)(BgL_nodez00_3716); 
BgL_kontz00_1854 = BgL_kontz00_3717; 
{ /* ./Cgen/cgen.scm 363 */
obj_t BgL_fmtz00_1858;
{ /* ./Cgen/cgen.scm 363 */
obj_t BgL_arg4843z00_1860;obj_t BgL_arg4845z00_1862;obj_t BgL_arg4847z00_1864;
{ /* ./Cgen/cgen.scm 363 */
BgL_typez00_bglt BgL_arg4871z00_1873;
BgL_arg4871z00_1873 = 
(((BgL_setfieldz00_bglt)CREF(BgL_nodez00_1853))->BgL_otypez00); 
BgL_arg4843z00_1860 = 
(((BgL_typez00_bglt)CREF(BgL_arg4871z00_1873))->BgL_namez00); } 
BgL_arg4845z00_1862 = 
(((BgL_setfieldz00_bglt)CREF(BgL_nodez00_1853))->BgL_fnamez00); 
{ /* ./Cgen/cgen.scm 364 */
BgL_typez00_bglt BgL_arg4876z00_1874;
BgL_arg4876z00_1874 = 
(((BgL_setfieldz00_bglt)CREF(BgL_nodez00_1853))->BgL_ftypez00); 
BgL_arg4847z00_1864 = 
(((BgL_typez00_bglt)CREF(BgL_arg4876z00_1874))->BgL_namez00); } 
{ /* ./Cgen/cgen.scm 363 */
obj_t BgL_list4850z00_1866;
{ /* ./Cgen/cgen.scm 363 */
obj_t BgL_arg4852z00_1867;
{ /* ./Cgen/cgen.scm 363 */
obj_t BgL_arg4855z00_1868;
{ /* ./Cgen/cgen.scm 363 */
obj_t BgL_arg4858z00_1869;
{ /* ./Cgen/cgen.scm 363 */
obj_t BgL_arg4861z00_1870;
{ /* ./Cgen/cgen.scm 363 */
obj_t BgL_arg4864z00_1871;
{ /* ./Cgen/cgen.scm 363 */
obj_t BgL_arg4867z00_1872;
BgL_arg4867z00_1872 = 
MAKE_PAIR(BGl_string6987z00zzcgen_cgenz00, BNIL); 
BgL_arg4864z00_1871 = 
MAKE_PAIR(BgL_arg4847z00_1864, BgL_arg4867z00_1872); } 
BgL_arg4861z00_1870 = 
MAKE_PAIR(BGl_string6988z00zzcgen_cgenz00, BgL_arg4864z00_1871); } 
BgL_arg4858z00_1869 = 
MAKE_PAIR(BgL_arg4845z00_1862, BgL_arg4861z00_1870); } 
BgL_arg4855z00_1868 = 
MAKE_PAIR(BGl_string6989z00zzcgen_cgenz00, BgL_arg4858z00_1869); } 
BgL_arg4852z00_1867 = 
MAKE_PAIR(BgL_arg4843z00_1860, BgL_arg4855z00_1868); } 
BgL_list4850z00_1866 = 
MAKE_PAIR(BGl_string6990z00zzcgen_cgenz00, BgL_arg4852z00_1867); } 
BgL_fmtz00_1858 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list4850z00_1866); } } 
return 
BGl_externzd2ze3copz31zzcgen_cgenz00(BgL_fmtz00_1858, 
(BgL_externz00_bglt)(BgL_nodez00_1853), BgL_kontz00_1854);} } } 
}



/* node->cop-getfield3685 */
obj_t BGl_nodezd2ze3copzd2getfield3685ze3zzcgen_cgenz00(obj_t BgL_envz00_3718, obj_t BgL_nodez00_3719, obj_t BgL_kontz00_3720)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 346 */
{ 
BgL_getfieldz00_bglt BgL_nodez00_1834;obj_t BgL_kontz00_1835;
BgL_nodez00_1834 = 
(BgL_getfieldz00_bglt)(BgL_nodez00_3719); 
BgL_kontz00_1835 = BgL_kontz00_3720; 
{ /* ./Cgen/cgen.scm 351 */
obj_t BgL_fmtz00_1839;
{ /* ./Cgen/cgen.scm 351 */
obj_t BgL_arg4810z00_1841;obj_t BgL_arg4812z00_1843;
{ /* ./Cgen/cgen.scm 351 */
BgL_typez00_bglt BgL_arg4830z00_1850;
BgL_arg4830z00_1850 = 
(((BgL_getfieldz00_bglt)CREF(BgL_nodez00_1834))->BgL_otypez00); 
BgL_arg4810z00_1841 = 
(((BgL_typez00_bglt)CREF(BgL_arg4830z00_1850))->BgL_namez00); } 
BgL_arg4812z00_1843 = 
(((BgL_getfieldz00_bglt)CREF(BgL_nodez00_1834))->BgL_fnamez00); 
{ /* ./Cgen/cgen.scm 351 */
obj_t BgL_list4815z00_1845;
{ /* ./Cgen/cgen.scm 351 */
obj_t BgL_arg4817z00_1846;
{ /* ./Cgen/cgen.scm 351 */
obj_t BgL_arg4820z00_1847;
{ /* ./Cgen/cgen.scm 351 */
obj_t BgL_arg4823z00_1848;
{ /* ./Cgen/cgen.scm 351 */
obj_t BgL_arg4826z00_1849;
BgL_arg4826z00_1849 = 
MAKE_PAIR(BGl_string6958z00zzcgen_cgenz00, BNIL); 
BgL_arg4823z00_1848 = 
MAKE_PAIR(BgL_arg4812z00_1843, BgL_arg4826z00_1849); } 
BgL_arg4820z00_1847 = 
MAKE_PAIR(BGl_string6989z00zzcgen_cgenz00, BgL_arg4823z00_1848); } 
BgL_arg4817z00_1846 = 
MAKE_PAIR(BgL_arg4810z00_1841, BgL_arg4820z00_1847); } 
BgL_list4815z00_1845 = 
MAKE_PAIR(BGl_string6991z00zzcgen_cgenz00, BgL_arg4817z00_1846); } 
BgL_fmtz00_1839 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list4815z00_1845); } } 
return 
BGl_externzd2ze3copz31zzcgen_cgenz00(BgL_fmtz00_1839, 
(BgL_externz00_bglt)(BgL_nodez00_1834), BgL_kontz00_1835);} } } 
}



/* node->cop-pragma3683 */
obj_t BGl_nodezd2ze3copzd2pragma3683ze3zzcgen_cgenz00(obj_t BgL_envz00_3721, obj_t BgL_nodez00_3722, obj_t BgL_kontz00_3723)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 336 */
{ 
BgL_pragmaz00_bglt BgL_nodez00_1826;obj_t BgL_kontz00_1827;
BgL_nodez00_1826 = 
(BgL_pragmaz00_bglt)(BgL_nodez00_3722); 
BgL_kontz00_1827 = BgL_kontz00_3723; 
{ /* ./Cgen/cgen.scm 340 */
obj_t BgL_arg4798z00_2687;
BgL_arg4798z00_2687 = 
(((BgL_pragmaz00_bglt)CREF(BgL_nodez00_1826))->BgL_formatz00); 
return 
BGl_externzd2ze3copz31zzcgen_cgenz00(BgL_arg4798z00_2687, 
(BgL_externz00_bglt)(BgL_nodez00_1826), BgL_kontz00_1827);} } } 
}



/* node->cop-sequence3681 */
obj_t BGl_nodezd2ze3copzd2sequence3681ze3zzcgen_cgenz00(obj_t BgL_envz00_3724, obj_t BgL_nodez00_3725, obj_t BgL_kontz00_3726)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 289 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1793;obj_t BgL_kontz00_1794;
BgL_nodez00_1793 = 
(BgL_sequencez00_bglt)(BgL_nodez00_3725); 
BgL_kontz00_1794 = BgL_kontz00_3726; 
{ /* ./Cgen/cgen.scm 294 */
obj_t BgL_expz00_1798;
BgL_expz00_1798 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1793))->BgL_nodesz00); 
{ /* ./Cgen/cgen.scm 296 */
bool_t BgL_test4729z00_1799;
BgL_test4729z00_1799 = 
NULLP(BgL_expz00_1798); 
if(BgL_test4729z00_1799)
{ /* ./Cgen/cgen.scm 296 */
{ /* ./Cgen/cgen.scm 298 */
BgL_nopz00_bglt BgL_arg4731z00_1800;
{ /* ./Cgen/cgen.scm 298 */
obj_t BgL_arg4734z00_1801;
{ /* ./Cgen/cgen.scm 298 */
BgL_nodez00_bglt BgL_obj1560z00_2590;
BgL_obj1560z00_2590 = 
(BgL_nodez00_bglt)(BgL_nodez00_1793); 
BgL_arg4734z00_1801 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2590))->BgL_locz00); } 
BgL_arg4731z00_1800 = 
BGl_makezd2nopzd2zzcgen_copz00(BgL_arg4734z00_1801); } 
return 
PROCEDURE_ENTRY(BgL_kontz00_1794)(BgL_kontz00_1794, 
(obj_t)(BgL_arg4731z00_1800), BEOA);} }  else 
{ /* ./Cgen/cgen.scm 299 */
bool_t BgL_test4737z00_1802;
{ /* ./Cgen/cgen.scm 299 */
obj_t BgL_auxz00_5621;
BgL_auxz00_5621 = 
CDR(BgL_expz00_1798); 
BgL_test4737z00_1802 = 
NULLP(BgL_auxz00_5621); } 
if(BgL_test4737z00_1802)
{ /* ./Cgen/cgen.scm 299 */
{ /* ./Cgen/cgen.scm 300 */
BgL_copz00_bglt BgL_copz00_1803;
{ /* ./Cgen/cgen.scm 300 */
obj_t BgL_arg4742z00_1805;
BgL_arg4742z00_1805 = 
CAR(BgL_expz00_1798); 
{ /* ./Cgen/cgen.scm 300 */
BgL_copz00_bglt BgL_res5964z00_2621;
{ /* ./Cgen/cgen.scm 300 */
BgL_nodez00_bglt BgL_nodez00_2594;
BgL_nodez00_2594 = 
(BgL_nodez00_bglt)(BgL_arg4742z00_1805); 
{ /* ./Cgen/cgen.scm 300 */
obj_t BgL_method3671z00_2596;
{ /* ./Cgen/cgen.scm 300 */
BgL_objectz00_bglt BgL_objz00_2597;
BgL_objz00_2597 = 
(BgL_objectz00_bglt)(BgL_nodez00_2594); 
{ /* ./Cgen/cgen.scm 300 */
long BgL_objzd2classzd2numz00_2598;
BgL_objzd2classzd2numz00_2598 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2597); 
{ /* ./Cgen/cgen.scm 300 */
obj_t BgL_arg2017z00_2599;
{ /* ./Cgen/cgen.scm 300 */
int BgL_auxz00_5629;
BgL_auxz00_5629 = 
(int)(((long)1)); 
BgL_arg2017z00_2599 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_5629); } 
{ /* ./Cgen/cgen.scm 300 */
int BgL_offsetz00_2602;
BgL_offsetz00_2602 = 
(int)(BgL_objzd2classzd2numz00_2598); 
{ /* ./Cgen/cgen.scm 300 */
long BgL_offsetz00_2603;
{ /* ./Cgen/cgen.scm 300 */
long BgL_auxz00_5633;
BgL_auxz00_5633 = 
(long)(BgL_offsetz00_2602); 
BgL_offsetz00_2603 = 
(BgL_auxz00_5633-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 300 */
long BgL_modz00_2604;
{ /* ./Cgen/cgen.scm 300 */
int BgL_arg2028z00_2605;
BgL_arg2028z00_2605 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 300 */
long BgL_n2z00_2613;
BgL_n2z00_2613 = 
(long)(BgL_arg2028z00_2605); 
BgL_modz00_2604 = 
(BgL_offsetz00_2603/BgL_n2z00_2613); } } 
{ /* ./Cgen/cgen.scm 300 */
long BgL_restz00_2606;
{ /* ./Cgen/cgen.scm 300 */
int BgL_arg2024z00_2607;
BgL_arg2024z00_2607 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 300 */
long BgL_n2z00_2616;
BgL_n2z00_2616 = 
(long)(BgL_arg2024z00_2607); 
BgL_restz00_2606 = 
(BgL_offsetz00_2603%BgL_n2z00_2616); } } 
{ /* ./Cgen/cgen.scm 300 */

{ /* ./Cgen/cgen.scm 300 */
obj_t BgL_bucketz00_2608;
{ /* ./Cgen/cgen.scm 300 */
int BgL_kz00_2618;
BgL_kz00_2618 = 
(int)(BgL_modz00_2604); 
BgL_bucketz00_2608 = 
VECTOR_REF(BgL_arg2017z00_2599,BgL_kz00_2618); } 
{ /* ./Cgen/cgen.scm 300 */
int BgL_kz00_2620;
BgL_kz00_2620 = 
(int)(BgL_restz00_2606); 
BgL_method3671z00_2596 = 
VECTOR_REF(BgL_bucketz00_2608,BgL_kz00_2620); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 300 */
obj_t BgL_auxz00_5646;
BgL_auxz00_5646 = 
PROCEDURE_ENTRY(BgL_method3671z00_2596)(BgL_method3671z00_2596, 
(obj_t)(BgL_nodez00_2594), BgL_kontz00_1794, BEOA); 
BgL_res5964z00_2621 = 
(BgL_copz00_bglt)(BgL_auxz00_5646); } } } 
BgL_copz00_1803 = BgL_res5964z00_2621; } } 
{ /* ./Cgen/cgen.scm 301 */
BgL_copz00_bglt BgL_arg4739z00_1804;
BgL_arg4739z00_1804 = BgL_copz00_1803; 
{ /* ./Cgen/cgen.scm 301 */
BgL_stopz00_bglt BgL_auxz00_5651;
BgL_auxz00_5651 = 
BGl_makezd2stopzd2zzcgen_copz00(BFALSE, BgL_arg4739z00_1804); 
return 
(obj_t)(BgL_auxz00_5651);} } } }  else 
{ /* ./Cgen/cgen.scm 299 */
{ 
obj_t BgL_expz00_1806;obj_t BgL_newz00_1807;
{ /* ./Cgen/cgen.scm 303 */
BgL_csequencez00_bglt BgL_auxz00_5654;
BgL_expz00_1806 = BgL_expz00_1798; 
BgL_newz00_1807 = BNIL; 
BgL_loopz00_1808:
{ /* ./Cgen/cgen.scm 305 */
bool_t BgL_test4746z00_1809;
{ /* ./Cgen/cgen.scm 305 */
obj_t BgL_auxz00_5655;
BgL_auxz00_5655 = 
CDR(BgL_expz00_1806); 
BgL_test4746z00_1809 = 
NULLP(BgL_auxz00_5655); } 
if(BgL_test4746z00_1809)
{ /* ./Cgen/cgen.scm 306 */
BgL_copz00_bglt BgL_copz00_1810;
{ /* ./Cgen/cgen.scm 306 */
obj_t BgL_arg4757z00_1814;
BgL_arg4757z00_1814 = 
CAR(BgL_expz00_1806); 
{ /* ./Cgen/cgen.scm 306 */
BgL_copz00_bglt BgL_res5967z00_2652;
{ /* ./Cgen/cgen.scm 306 */
BgL_nodez00_bglt BgL_nodez00_2625;
BgL_nodez00_2625 = 
(BgL_nodez00_bglt)(BgL_arg4757z00_1814); 
{ /* ./Cgen/cgen.scm 306 */
obj_t BgL_method3671z00_2627;
{ /* ./Cgen/cgen.scm 306 */
BgL_objectz00_bglt BgL_objz00_2628;
BgL_objz00_2628 = 
(BgL_objectz00_bglt)(BgL_nodez00_2625); 
{ /* ./Cgen/cgen.scm 306 */
long BgL_objzd2classzd2numz00_2629;
BgL_objzd2classzd2numz00_2629 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2628); 
{ /* ./Cgen/cgen.scm 306 */
obj_t BgL_arg2017z00_2630;
{ /* ./Cgen/cgen.scm 306 */
int BgL_auxz00_5663;
BgL_auxz00_5663 = 
(int)(((long)1)); 
BgL_arg2017z00_2630 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_5663); } 
{ /* ./Cgen/cgen.scm 306 */
int BgL_offsetz00_2633;
BgL_offsetz00_2633 = 
(int)(BgL_objzd2classzd2numz00_2629); 
{ /* ./Cgen/cgen.scm 306 */
long BgL_offsetz00_2634;
{ /* ./Cgen/cgen.scm 306 */
long BgL_auxz00_5667;
BgL_auxz00_5667 = 
(long)(BgL_offsetz00_2633); 
BgL_offsetz00_2634 = 
(BgL_auxz00_5667-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 306 */
long BgL_modz00_2635;
{ /* ./Cgen/cgen.scm 306 */
int BgL_arg2028z00_2636;
BgL_arg2028z00_2636 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 306 */
long BgL_n2z00_2644;
BgL_n2z00_2644 = 
(long)(BgL_arg2028z00_2636); 
BgL_modz00_2635 = 
(BgL_offsetz00_2634/BgL_n2z00_2644); } } 
{ /* ./Cgen/cgen.scm 306 */
long BgL_restz00_2637;
{ /* ./Cgen/cgen.scm 306 */
int BgL_arg2024z00_2638;
BgL_arg2024z00_2638 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 306 */
long BgL_n2z00_2647;
BgL_n2z00_2647 = 
(long)(BgL_arg2024z00_2638); 
BgL_restz00_2637 = 
(BgL_offsetz00_2634%BgL_n2z00_2647); } } 
{ /* ./Cgen/cgen.scm 306 */

{ /* ./Cgen/cgen.scm 306 */
obj_t BgL_bucketz00_2639;
{ /* ./Cgen/cgen.scm 306 */
int BgL_kz00_2649;
BgL_kz00_2649 = 
(int)(BgL_modz00_2635); 
BgL_bucketz00_2639 = 
VECTOR_REF(BgL_arg2017z00_2630,BgL_kz00_2649); } 
{ /* ./Cgen/cgen.scm 306 */
int BgL_kz00_2651;
BgL_kz00_2651 = 
(int)(BgL_restz00_2637); 
BgL_method3671z00_2627 = 
VECTOR_REF(BgL_bucketz00_2639,BgL_kz00_2651); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 306 */
obj_t BgL_auxz00_5680;
BgL_auxz00_5680 = 
PROCEDURE_ENTRY(BgL_method3671z00_2627)(BgL_method3671z00_2627, 
(obj_t)(BgL_nodez00_2625), BgL_kontz00_1794, BEOA); 
BgL_res5967z00_2652 = 
(BgL_copz00_bglt)(BgL_auxz00_5680); } } } 
BgL_copz00_1810 = BgL_res5967z00_2652; } } 
{ /* ./Cgen/cgen.scm 308 */
obj_t BgL_arg4748z00_1811;obj_t BgL_arg4749z00_1812;
BgL_arg4748z00_1811 = 
(((BgL_copz00_bglt)CREF(BgL_copz00_1810))->BgL_locz00); 
{ /* ./Cgen/cgen.scm 309 */
obj_t BgL_arg4753z00_1813;
{ /* ./Cgen/cgen.scm 309 */
obj_t BgL_auxz00_5686;
BgL_auxz00_5686 = 
(obj_t)(BgL_copz00_1810); 
BgL_arg4753z00_1813 = 
MAKE_PAIR(BgL_auxz00_5686, BgL_newz00_1807); } 
BgL_arg4749z00_1812 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg4753z00_1813); } 
BgL_auxz00_5654 = 
BGl_makezd2csequencezd2zzcgen_copz00(BgL_arg4748z00_1811, ((bool_t)0), BgL_arg4749z00_1812); } }  else 
{ /* ./Cgen/cgen.scm 305 */
{ /* ./Cgen/cgen.scm 311 */
bool_t BgL_test4760z00_1815;
{ /* ./Cgen/cgen.scm 311 */
obj_t BgL_arg4778z00_1821;
BgL_arg4778z00_1821 = 
CAR(BgL_expz00_1806); 
BgL_test4760z00_1815 = 
BGl_sidezd2effectzf3z21zzeffect_effectz00(
(BgL_nodez00_bglt)(BgL_arg4778z00_1821)); } 
if(BgL_test4760z00_1815)
{ /* ./Cgen/cgen.scm 313 */
obj_t BgL_arg4762z00_1816;obj_t BgL_arg4763z00_1817;
BgL_arg4762z00_1816 = 
CDR(BgL_expz00_1806); 
{ /* ./Cgen/cgen.scm 314 */
BgL_copz00_bglt BgL_arg4767z00_1818;
{ /* ./Cgen/cgen.scm 314 */
obj_t BgL_arg4770z00_1819;
BgL_arg4770z00_1819 = 
CAR(BgL_expz00_1806); 
{ /* ./Cgen/cgen.scm 314 */
BgL_copz00_bglt BgL_res5970z00_2684;
{ /* ./Cgen/cgen.scm 314 */
BgL_nodez00_bglt BgL_nodez00_2657;obj_t BgL_kontz00_2658;
BgL_nodez00_2657 = 
(BgL_nodez00_bglt)(BgL_arg4770z00_1819); 
BgL_kontz00_2658 = BGl_za2stopzd2kontza2zd2zzcgen_cgenz00; 
{ /* ./Cgen/cgen.scm 314 */
obj_t BgL_method3671z00_2659;
{ /* ./Cgen/cgen.scm 314 */
BgL_objectz00_bglt BgL_objz00_2660;
BgL_objz00_2660 = 
(BgL_objectz00_bglt)(BgL_nodez00_2657); 
{ /* ./Cgen/cgen.scm 314 */
long BgL_objzd2classzd2numz00_2661;
BgL_objzd2classzd2numz00_2661 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2660); 
{ /* ./Cgen/cgen.scm 314 */
obj_t BgL_arg2017z00_2662;
{ /* ./Cgen/cgen.scm 314 */
int BgL_auxz00_5700;
BgL_auxz00_5700 = 
(int)(((long)1)); 
BgL_arg2017z00_2662 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_5700); } 
{ /* ./Cgen/cgen.scm 314 */
int BgL_offsetz00_2665;
BgL_offsetz00_2665 = 
(int)(BgL_objzd2classzd2numz00_2661); 
{ /* ./Cgen/cgen.scm 314 */
long BgL_offsetz00_2666;
{ /* ./Cgen/cgen.scm 314 */
long BgL_auxz00_5704;
BgL_auxz00_5704 = 
(long)(BgL_offsetz00_2665); 
BgL_offsetz00_2666 = 
(BgL_auxz00_5704-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 314 */
long BgL_modz00_2667;
{ /* ./Cgen/cgen.scm 314 */
int BgL_arg2028z00_2668;
BgL_arg2028z00_2668 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 314 */
long BgL_n2z00_2676;
BgL_n2z00_2676 = 
(long)(BgL_arg2028z00_2668); 
BgL_modz00_2667 = 
(BgL_offsetz00_2666/BgL_n2z00_2676); } } 
{ /* ./Cgen/cgen.scm 314 */
long BgL_restz00_2669;
{ /* ./Cgen/cgen.scm 314 */
int BgL_arg2024z00_2670;
BgL_arg2024z00_2670 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 314 */
long BgL_n2z00_2679;
BgL_n2z00_2679 = 
(long)(BgL_arg2024z00_2670); 
BgL_restz00_2669 = 
(BgL_offsetz00_2666%BgL_n2z00_2679); } } 
{ /* ./Cgen/cgen.scm 314 */

{ /* ./Cgen/cgen.scm 314 */
obj_t BgL_bucketz00_2671;
{ /* ./Cgen/cgen.scm 314 */
int BgL_kz00_2681;
BgL_kz00_2681 = 
(int)(BgL_modz00_2667); 
BgL_bucketz00_2671 = 
VECTOR_REF(BgL_arg2017z00_2662,BgL_kz00_2681); } 
{ /* ./Cgen/cgen.scm 314 */
int BgL_kz00_2683;
BgL_kz00_2683 = 
(int)(BgL_restz00_2669); 
BgL_method3671z00_2659 = 
VECTOR_REF(BgL_bucketz00_2671,BgL_kz00_2683); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 314 */
obj_t BgL_auxz00_5717;
BgL_auxz00_5717 = 
PROCEDURE_ENTRY(BgL_method3671z00_2659)(BgL_method3671z00_2659, 
(obj_t)(BgL_nodez00_2657), BgL_kontz00_2658, BEOA); 
BgL_res5970z00_2684 = 
(BgL_copz00_bglt)(BgL_auxz00_5717); } } } 
BgL_arg4767z00_1818 = BgL_res5970z00_2684; } } 
{ /* ./Cgen/cgen.scm 314 */
obj_t BgL_auxz00_5722;
BgL_auxz00_5722 = 
(obj_t)(BgL_arg4767z00_1818); 
BgL_arg4763z00_1817 = 
MAKE_PAIR(BgL_auxz00_5722, BgL_newz00_1807); } } 
{ 
obj_t BgL_newz00_5726;obj_t BgL_expz00_5725;
BgL_expz00_5725 = BgL_arg4762z00_1816; 
BgL_newz00_5726 = BgL_arg4763z00_1817; 
BgL_newz00_1807 = BgL_newz00_5726; 
BgL_expz00_1806 = BgL_expz00_5725; 
goto BgL_loopz00_1808;} }  else 
{ /* ./Cgen/cgen.scm 312 */
obj_t BgL_arg4774z00_1820;
BgL_arg4774z00_1820 = 
CDR(BgL_expz00_1806); 
{ 
obj_t BgL_expz00_5728;
BgL_expz00_5728 = BgL_arg4774z00_1820; 
BgL_expz00_1806 = BgL_expz00_5728; 
goto BgL_loopz00_1808;} } } } } 
return 
(obj_t)(BgL_auxz00_5654);} } } } } } } } 
}



/* node->cop-closure3679 */
obj_t BGl_nodezd2ze3copzd2closure3679ze3zzcgen_cgenz00(obj_t BgL_envz00_3727, obj_t BgL_nodez00_3728, obj_t BgL_kontz00_3729)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 280 */
{ 
BgL_closurez00_bglt BgL_nodez00_1784;obj_t BgL_kontz00_1785;
BgL_nodez00_1784 = 
(BgL_closurez00_bglt)(BgL_nodez00_3728); 
BgL_kontz00_1785 = BgL_kontz00_3729; 
{ /* ./Cgen/cgen.scm 284 */
obj_t BgL_arg4720z00_2587;
BgL_arg4720z00_2587 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_nodez00_1784)); 
return 
BGl_internalzd2errorzd2zztools_errorz00(BGl_string6992z00zzcgen_cgenz00, BGl_string6993z00zzcgen_cgenz00, BgL_arg4720z00_2587);} } } 
}



/* node->cop-var3677 */
obj_t BGl_nodezd2ze3copzd2var3677ze3zzcgen_cgenz00(obj_t BgL_envz00_3730, obj_t BgL_nodez00_3731, obj_t BgL_kontz00_3732)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 265 */
{ 
BgL_varz00_bglt BgL_nodez00_1774;obj_t BgL_kontz00_1775;
BgL_nodez00_1774 = 
(BgL_varz00_bglt)(BgL_nodez00_3731); 
BgL_kontz00_1775 = BgL_kontz00_3732; 
{ /* ./Cgen/cgen.scm 275 */
BgL_varcz00_bglt BgL_arg4703z00_1779;
{ /* ./Cgen/cgen.scm 275 */
obj_t BgL_arg4706z00_1780;BgL_variablez00_bglt BgL_arg4707z00_1781;
{ /* ./Cgen/cgen.scm 275 */
BgL_nodez00_bglt BgL_obj1560z00_2583;
BgL_obj1560z00_2583 = 
(BgL_nodez00_bglt)(BgL_nodez00_1774); 
BgL_arg4706z00_1780 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2583))->BgL_locz00); } 
BgL_arg4707z00_1781 = 
(((BgL_varz00_bglt)CREF(BgL_nodez00_1774))->BgL_variablez00); 
BgL_arg4703z00_1779 = 
BGl_makezd2varczd2zzcgen_copz00(BgL_arg4706z00_1780, BgL_arg4707z00_1781); } 
return 
PROCEDURE_ENTRY(BgL_kontz00_1775)(BgL_kontz00_1775, 
(obj_t)(BgL_arg4703z00_1779), BEOA);} } } 
}



/* node->cop-kwote3675 */
obj_t BGl_nodezd2ze3copzd2kwote3675ze3zzcgen_cgenz00(obj_t BgL_envz00_3733, obj_t BgL_nodez00_3734, obj_t BgL_kontz00_3735)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 256 */
{ 
BgL_kwotez00_bglt BgL_nodez00_1765;obj_t BgL_kontz00_1766;
BgL_nodez00_1765 = 
(BgL_kwotez00_bglt)(BgL_nodez00_3734); 
BgL_kontz00_1766 = BgL_kontz00_3735; 
{ /* ./Cgen/cgen.scm 260 */
obj_t BgL_arg4693z00_2582;
BgL_arg4693z00_2582 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_nodez00_1765)); 
return 
BGl_internalzd2errorzd2zztools_errorz00(BGl_string6992z00zzcgen_cgenz00, BGl_string6994z00zzcgen_cgenz00, BgL_arg4693z00_2582);} } } 
}



/* node->cop-atom3673 */
obj_t BGl_nodezd2ze3copzd2atom3673ze3zzcgen_cgenz00(obj_t BgL_envz00_3736, obj_t BgL_nodez00_3737, obj_t BgL_kontz00_3738)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 244 */
{ 
BgL_atomz00_bglt BgL_nodez00_1755;obj_t BgL_kontz00_1756;
BgL_nodez00_1755 = 
(BgL_atomz00_bglt)(BgL_nodez00_3737); 
BgL_kontz00_1756 = BgL_kontz00_3738; 
{ /* ./Cgen/cgen.scm 251 */
BgL_catomz00_bglt BgL_arg4676z00_1760;
{ /* ./Cgen/cgen.scm 251 */
obj_t BgL_arg4679z00_1761;obj_t BgL_arg4680z00_1762;
{ /* ./Cgen/cgen.scm 251 */
BgL_nodez00_bglt BgL_obj1560z00_2578;
BgL_obj1560z00_2578 = 
(BgL_nodez00_bglt)(BgL_nodez00_1755); 
BgL_arg4679z00_1761 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2578))->BgL_locz00); } 
BgL_arg4680z00_1762 = 
(((BgL_atomz00_bglt)CREF(BgL_nodez00_1755))->BgL_valuez00); 
BgL_arg4676z00_1760 = 
BGl_makezd2catomzd2zzcgen_copz00(BgL_arg4679z00_1761, BgL_arg4680z00_1762); } 
return 
PROCEDURE_ENTRY(BgL_kontz00_1756)(BgL_kontz00_1756, 
(obj_t)(BgL_arg4676z00_1760), BEOA);} } } 
}



/* node->cop */
BGL_EXPORTED_DEF BgL_copz00_bglt BGl_nodezd2ze3copz31zzcgen_cgenz00(BgL_nodez00_bglt BgL_nodez00_26, obj_t BgL_kontz00_27)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 239 */
{ /* ./Cgen/cgen.scm 239 */
obj_t BgL_method3671z00_3551;
{ /* ./Cgen/cgen.scm 239 */
BgL_objectz00_bglt BgL_objz00_3552;
BgL_objz00_3552 = 
(BgL_objectz00_bglt)(BgL_nodez00_26); 
{ /* ./Cgen/cgen.scm 239 */
long BgL_objzd2classzd2numz00_3553;
BgL_objzd2classzd2numz00_3553 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3552); 
{ /* ./Cgen/cgen.scm 239 */
obj_t BgL_arg2017z00_3554;
{ /* ./Cgen/cgen.scm 239 */
int BgL_auxz00_5757;
BgL_auxz00_5757 = 
(int)(((long)1)); 
BgL_arg2017z00_3554 = 
PROCEDURE_REF(BGl_nodezd2ze3copzd2envze3zzcgen_cgenz00, BgL_auxz00_5757); } 
{ /* ./Cgen/cgen.scm 239 */
int BgL_offsetz00_3557;
BgL_offsetz00_3557 = 
(int)(BgL_objzd2classzd2numz00_3553); 
{ /* ./Cgen/cgen.scm 239 */
long BgL_offsetz00_3558;
{ /* ./Cgen/cgen.scm 239 */
long BgL_auxz00_5761;
BgL_auxz00_5761 = 
(long)(BgL_offsetz00_3557); 
BgL_offsetz00_3558 = 
(BgL_auxz00_5761-OBJECT_TYPE); } 
{ /* ./Cgen/cgen.scm 239 */
long BgL_modz00_3559;
{ /* ./Cgen/cgen.scm 239 */
int BgL_arg2028z00_3560;
BgL_arg2028z00_3560 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 239 */
long BgL_n2z00_3568;
BgL_n2z00_3568 = 
(long)(BgL_arg2028z00_3560); 
BgL_modz00_3559 = 
(BgL_offsetz00_3558/BgL_n2z00_3568); } } 
{ /* ./Cgen/cgen.scm 239 */
long BgL_restz00_3561;
{ /* ./Cgen/cgen.scm 239 */
int BgL_arg2024z00_3562;
BgL_arg2024z00_3562 = 
(int)(((long)8)); 
{ /* ./Cgen/cgen.scm 239 */
long BgL_n2z00_3571;
BgL_n2z00_3571 = 
(long)(BgL_arg2024z00_3562); 
BgL_restz00_3561 = 
(BgL_offsetz00_3558%BgL_n2z00_3571); } } 
{ /* ./Cgen/cgen.scm 239 */

{ /* ./Cgen/cgen.scm 239 */
obj_t BgL_bucketz00_3563;
{ /* ./Cgen/cgen.scm 239 */
int BgL_kz00_3573;
BgL_kz00_3573 = 
(int)(BgL_modz00_3559); 
BgL_bucketz00_3563 = 
VECTOR_REF(BgL_arg2017z00_3554,BgL_kz00_3573); } 
{ /* ./Cgen/cgen.scm 239 */
int BgL_kz00_3575;
BgL_kz00_3575 = 
(int)(BgL_restz00_3561); 
BgL_method3671z00_3551 = 
VECTOR_REF(BgL_bucketz00_3563,BgL_kz00_3575); } } } } } } } } } } 
{ /* ./Cgen/cgen.scm 239 */
obj_t BgL_auxz00_5774;
BgL_auxz00_5774 = 
PROCEDURE_ENTRY(BgL_method3671z00_3551)(BgL_method3671z00_3551, 
(obj_t)(BgL_nodez00_26), BgL_kontz00_27, BEOA); 
return 
(BgL_copz00_bglt)(BgL_auxz00_5774);} } } 
}



/* _node->cop6058 */
obj_t BGl__nodezd2ze3cop6058z31zzcgen_cgenz00(obj_t BgL_envz00_3592, obj_t BgL_nodez00_3593, obj_t BgL_kontz00_3594)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 239 */
{ /* ./Cgen/cgen.scm 239 */
BgL_copz00_bglt BgL_auxz00_5779;
BgL_auxz00_5779 = 
BGl_nodezd2ze3copz31zzcgen_cgenz00(
(BgL_nodez00_bglt)(BgL_nodez00_3593), BgL_kontz00_3594); 
return 
(obj_t)(BgL_auxz00_5779);} } 
}



/* node->cop-default3670 */
BgL_copz00_bglt BGl_nodezd2ze3copzd2default3670ze3zzcgen_cgenz00(BgL_nodez00_bglt BgL_nodez00_28, obj_t BgL_kontz00_29)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 15 */
{ /* ./Cgen/cgen.scm 15 */
obj_t BgL_procz00_3576;obj_t BgL_objectz00_3578;
BgL_procz00_3576 = 
CNST_TABLE_REF(((long)7)); 
BgL_objectz00_3578 = 
(obj_t)(BgL_nodez00_28); 
FAILURE(BgL_procz00_3576,BGl_string6995z00zzcgen_cgenz00,BgL_objectz00_3578);} } 
}



/* _node->cop-default3670 */
obj_t BGl__nodezd2ze3copzd2default3670ze3zzcgen_cgenz00(obj_t BgL_envz00_3739, obj_t BgL_nodez00_3740, obj_t BgL_kontz00_3741)
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 15 */
{ /* ./Cgen/cgen.scm 15 */
BgL_copz00_bglt BgL_auxz00_5786;
BgL_auxz00_5786 = 
BGl_nodezd2ze3copzd2default3670ze3zzcgen_cgenz00(
(BgL_nodez00_bglt)(BgL_nodez00_3740), BgL_kontz00_3741); 
return 
(obj_t)(BgL_auxz00_5786);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzcgen_cgenz00()
{ AN_OBJECT;
{ /* ./Cgen/cgen.scm 15 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "cgen_cgen"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "cgen_cgen"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "cgen_cgen"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "cgen_cgen"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "cgen_cgen"); 
BGl_modulezd2initializa7ationz75zztype_toolsz00(((long)15091), "cgen_cgen"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "cgen_cgen"); 
BGl_modulezd2initializa7ationz75zztype_typeofz00(((long)852), "cgen_cgen"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "cgen_cgen"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "cgen_cgen"); 
BGl_modulezd2initializa7ationz75zzast_localz00(((long)28959), "cgen_cgen"); 
BGl_modulezd2initializa7ationz75zzeffect_effectz00(((long)14017), "cgen_cgen"); 
BGl_modulezd2initializa7ationz75zzcgen_copz00(((long)5379), "cgen_cgen"); 
BGl_modulezd2initializa7ationz75zzcgen_emitzd2copzd2(((long)54156), "cgen_cgen"); 
BGl_modulezd2initializa7ationz75zzcgen_cappz00(((long)26063), "cgen_cgen"); 
BGl_modulezd2initializa7ationz75zzbackend_c_emitz00(((long)11970), "cgen_cgen"); 
BGl_modulezd2initializa7ationz75zzbackend_c_prototypez00(((long)34740), "cgen_cgen"); 
return 
BGl_modulezd2initializa7ationz75zzbackend_backendz00(((long)3428), "cgen_cgen");} 
}

