/*===========================================================================*/
/*   (DotNet/compiler.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 DotNet/compiler.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_tclassz00_bgl {
   obj_t BgL_itszd2superzd2;
   obj_t BgL_slotsz00;
   struct BgL_globalz00_bgl * BgL_holderz00;
   obj_t BgL_wideningz00;
   long BgL_depthz00;
   bool_t BgL_finalzf3zf3;
   obj_t BgL_constructorz00;
   obj_t BgL_virtualzd2slotszd2numberz00;
   bool_t BgL_abstractzf3zf3;
   obj_t BgL_widezd2typezd2;
} *BgL_tclassz00_bglt;

typedef struct BgL_jclassz00_bgl {
   obj_t BgL_itszd2superzd2;
   obj_t BgL_slotsz00;
   obj_t BgL_packagez00;
} *BgL_jclassz00_bglt;

typedef struct BgL_wclassz00_bgl {
   obj_t BgL_itszd2classzd2;
} *BgL_wclassz00_bglt;

typedef struct BgL_jarrayz00_bgl {
   struct BgL_typez00_bgl * BgL_itemzd2typezd2;
} *BgL_jarrayz00_bglt;

typedef struct BgL_envz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_declarationsz00;
   obj_t BgL_declaredtypez00;
   obj_t BgL_declaredclassz00;
   obj_t BgL_declaredmodulez00;
   obj_t BgL_currentzd2modulezd2;
   obj_t BgL_declaredfieldsz00;
   obj_t BgL_declaredglobalz00;
   obj_t BgL_libdeclaredz00;
   obj_t BgL_proceduresz00;
   obj_t BgL_clinitzd2codezd2;
   obj_t BgL_currentzd2methodzd2;
   obj_t BgL_vcountz00;
   obj_t BgL_localsz00;
   obj_t BgL_freelocalsz00;
   obj_t BgL_maplocalsz00;
   obj_t BgL_stackz00;
   obj_t BgL_codez00;
} *BgL_envz00_bglt;


BGL_EXPORTED_DECL obj_t BGl_compilerzd2ifzd2zzdotnet_compilerz00(BgL_conditionalz00_bglt, BgL_envz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2boxzd2refz00zzdotnet_compilerz00(BgL_boxzd2refzd2_bglt, BgL_envz00_bglt);
static obj_t BGl_methodzd2initzd2zzdotnet_compilerz00();
static obj_t BGl__compilerzd2cast5128zd2zzdotnet_compilerz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_envzd2codez12zc0zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2boxzd2setz12z12zzdotnet_compilerz00(BgL_boxzd2setz12zc0_bglt, BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2funcallzd2zzdotnet_compilerz00(BgL_funcallz00_bglt, BgL_envz00_bglt);
extern obj_t BGl_specialzd2inlinezd2callzf3zf3zzdotnet_inlinez00;
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl_setzd2typezd2zzdotnet_compilerz00(obj_t, obj_t);
extern obj_t BGl_nodez00zzast_nodez00;
extern obj_t BGl_sfunz00zzast_varz00;
static obj_t BGl_howzd2tozd2callz00zzdotnet_compilerz00(BgL_envz00_bglt, BgL_variablez00_bglt, obj_t);
extern obj_t BGl__newarrayz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
static obj_t BGl__compilerzd2let5092zd2zzdotnet_compilerz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl__instanceofz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
extern obj_t BGl__invokespecialz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t, obj_t);
extern obj_t BGl__invokestaticz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t, obj_t);
static obj_t BGl_selectzd2intzd2zzdotnet_compilerz00(BgL_envz00_bglt, obj_t, obj_t, obj_t, BgL_selectz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2labelszd2zzdotnet_compilerz00(BgL_letzd2funzd2_bglt, BgL_envz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2getfieldzd2zzdotnet_compilerz00(BgL_getfieldz00_bglt, BgL_envz00_bglt);
extern obj_t BGl_compilezd2tailzd2zzdotnet_tailz00(BgL_nodez00_bglt, BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2pragmazd2zzdotnet_compilerz00(BgL_pragmaz00_bglt, BgL_envz00_bglt);
static obj_t BGl__compilerzd2makezd2box5136z00zzdotnet_compilerz00(obj_t, obj_t, obj_t);
extern obj_t BGl__arraylengthz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2makezd2boxz00zzdotnet_compilerz00(BgL_makezd2boxzd2_bglt, BgL_envz00_bglt);
BGL_IMPORT bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
extern obj_t BGl_compilezd2typezd2zzdotnet_envz00(obj_t, BgL_envz00_bglt);
extern obj_t BGl_getzd2linezd2numberz00zzdotnet_externz00(BgL_nodez00_bglt);
extern obj_t BGl_envzd2alloczd2localz00zzdotnet_envz00(BgL_envz00_bglt, obj_t);
static obj_t BGl__compilerzd2valloc5118zd2zzdotnet_compilerz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
extern obj_t BGl_debugzd2declarezd2varzd2fromzd2zzdotnet_externz00(BgL_envz00_bglt, BgL_localz00_bglt, obj_t, obj_t);
extern obj_t BGl_globalz00zzast_varz00;
BGL_EXPORTED_DECL obj_t BGl_compilerzd2failzd2zzdotnet_compilerz00(BgL_failz00_bglt, BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2atomzd2zzdotnet_compilerz00(obj_t, BgL_envz00_bglt);
extern BgL_typez00_bglt BGl_typeofz00zztype_typeofz00(BgL_nodez00_bglt);
static obj_t BGl_specialzd2callzf3z21zzdotnet_compilerz00(BgL_variablez00_bglt, obj_t, BgL_envz00_bglt);
extern obj_t BGl_envzd2declarezd2localz00zzdotnet_envz00(BgL_envz00_bglt, BgL_localz00_bglt);
static obj_t BGl__compilerzd2vref5120zd2zzdotnet_compilerz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2castzd2zzdotnet_compilerz00(BgL_castz00_bglt, BgL_envz00_bglt, obj_t);
extern obj_t BGl__putfieldz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
BGL_IMPORT obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__compilerzd2setq5094zd2zzdotnet_compilerz00(obj_t, obj_t, obj_t);
static obj_t BGl_compilezd2procedurezd2entryz00zzdotnet_compilerz00(BgL_globalz00_bglt, long, BgL_envz00_bglt);
static obj_t BGl__compilerzd2new5116zd2zzdotnet_compilerz00(obj_t, obj_t, obj_t);
extern obj_t BGl__aloadz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
extern obj_t BGl_varz00zzast_nodez00;
extern obj_t BGl_za2jvmzd2purifyza2zd2zzengine_paramz00;
extern obj_t BGl__loadz00zzdotnet_instrz00(BgL_envz00_bglt, BgL_localz00_bglt);
static obj_t BGl_cnstzd2initzd2zzdotnet_compilerz00();
extern obj_t BGl_simplezd2typezd2zzdotnet_instrz00(obj_t);
extern obj_t BGl__newz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
static obj_t BGl__compilerzd2boxzd2ref5138z00zzdotnet_compilerz00(obj_t, obj_t, obj_t);
static obj_t BGl_typezd2argszd2zzdotnet_compilerz00(BgL_variablez00_bglt, BgL_envz00_bglt);
extern obj_t BGl_debugzd2forzd2declarezd2varzf3z21zzdotnet_externz00(BgL_envz00_bglt);
extern obj_t BGl_compilezd2typezd2nowideningz00zzdotnet_envz00(obj_t, BgL_envz00_bglt);
extern obj_t BGl_envzd2newzd2getsetz00zzdotnet_envz00(BgL_envz00_bglt, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzdotnet_compilerz00();
extern obj_t BGl_createzd2stringzd2zzdotnet_instrz00(obj_t, obj_t);
extern obj_t BGl__store_namez00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t);
extern obj_t BGl_envzd2newzd2procedurez00zzdotnet_envz00(BgL_envz00_bglt, obj_t, obj_t);
extern obj_t BGl_envzd2setzd2namez12z12zzdotnet_envz00(BgL_envz00_bglt, BgL_localz00_bglt, obj_t);
static obj_t BGl__compilerzd2boxzd2setz125140z12zzdotnet_compilerz00(obj_t, obj_t, obj_t);
extern obj_t BGl_compilezd2effectzd2zzdotnet_effectz00(BgL_nodez00_bglt, BgL_envz00_bglt);
extern obj_t BGl__astorez00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
static obj_t BGl__compilerzd2if5098zd2zzdotnet_compilerz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2vsetzd2zzdotnet_compilerz00(BgL_vsetz12z12_bglt, BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2selectzd2zzdotnet_compilerz00(BgL_selectz00_bglt, BgL_envz00_bglt, obj_t);
static obj_t BGl__compilerzd2setfield5114zd2zzdotnet_compilerz00(obj_t, obj_t, obj_t);
extern obj_t BGl__checkcastz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
extern obj_t BGl__load_namez00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2valloczd2zzdotnet_compilerz00(BgL_vallocz00_bglt, BgL_envz00_bglt);
extern obj_t BGl__switchz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t);
extern obj_t BGl_variablez00zzast_varz00;
extern obj_t BGl__invokevirtualz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t, obj_t);
static obj_t BGl__compilerzd2var5090zd2zzdotnet_compilerz00(obj_t, obj_t, obj_t);
extern obj_t BGl__storez00zzdotnet_instrz00(BgL_envz00_bglt, BgL_localz00_bglt);
static obj_t BGl__compilerzd2atom5088zd2zzdotnet_compilerz00(obj_t, obj_t, obj_t);
static obj_t BGl__compilerzd2select5100zd2zzdotnet_compilerz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zzdotnet_compilerz00();
static obj_t BGl__compilerzd2sequence5096zd2zzdotnet_compilerz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_jclassz00zzobject_classz00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzdotnet_compilerz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(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_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzobject_classz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzforeign_jtypez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzdotnet_lispz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzdotnet_externz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzdotnet_envz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzdotnet_instrz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzdotnet_inlinez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzdotnet_tailz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzdotnet_exprz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzdotnet_effectz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzdotnet_predicatez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(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_equivalence_6_2z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
extern obj_t BGl__athrowz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2appzd2zzdotnet_compilerz00(BgL_appz00_bglt, BgL_envz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2vrefzd2zzdotnet_compilerz00(BgL_vrefz00_bglt, BgL_envz00_bglt);
extern obj_t BGl_za2longislongza2z00zzdotnet_envz00;
extern obj_t BGl__putstaticz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
static obj_t BGl__compilerzd2pragma5110zd2zzdotnet_compilerz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2vlengthzd2zzdotnet_compilerz00(BgL_vlengthz00_bglt, BgL_envz00_bglt);
BGL_IMPORT long bgl_list_length(obj_t);
extern obj_t BGl__ifz00zzdotnet_instrz00(obj_t, BgL_envz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2setqzd2zzdotnet_compilerz00(BgL_setqz00_bglt, BgL_envz00_bglt);
static obj_t BGl__compilerzd2vlength5124zd2zzdotnet_compilerz00(obj_t, obj_t, obj_t);
extern obj_t BGl__getstatic2z00zzdotnet_instrz00(BgL_envz00_bglt, BgL_globalz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2newzd2zzdotnet_compilerz00(BgL_newz00_bglt, BgL_envz00_bglt);
BGL_IMPORT obj_t bgl_reverse(obj_t);
extern obj_t BGl__dotcheckcastz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2applyzd2zzdotnet_compilerz00(BgL_appzd2lyzd2_bglt, BgL_envz00_bglt);
extern obj_t BGl_inlinezd2callzf3z21zzdotnet_inlinez00;
static obj_t BGl_getzd2typezd2zzdotnet_compilerz00(obj_t);
extern obj_t BGl__invokespecial_initz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_envzd2freezd2localz00zzdotnet_envz00(BgL_envz00_bglt, obj_t);
BGL_IMPORT obj_t BGl_elongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2jumpzd2exitz00zzdotnet_compilerz00(BgL_jumpzd2exzd2itz00_bglt, BgL_envz00_bglt);
extern obj_t BGl__dupz00zzdotnet_instrz00(BgL_envz00_bglt);
extern obj_t BGl_cfunz00zzast_varz00;
extern obj_t BGl__getfieldz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2setfieldzd2zzdotnet_compilerz00(BgL_setfieldz00_bglt, BgL_envz00_bglt);
extern obj_t BGl_envzd2declarezd2fieldz00zzdotnet_envz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl__l2iz00zzdotnet_instrz00(BgL_envz00_bglt);
static obj_t BGl__compilerzd2fail5134zd2zzdotnet_compilerz00(obj_t, obj_t, obj_t);
static obj_t BGl__compilerzd2isa5126zd2zzdotnet_compilerz00(obj_t, obj_t, obj_t);
extern obj_t BGl__getstaticz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2letzd2zzdotnet_compilerz00(BgL_letzd2varzd2_bglt, BgL_envz00_bglt, obj_t);
static obj_t BGl__compilerzd2setexit5130zd2zzdotnet_compilerz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__compilerzd2jumpzd2exit5132z00zzdotnet_compilerz00(obj_t, obj_t, obj_t);
static obj_t BGl__compilerzd2funcall5108zd2zzdotnet_compilerz00(obj_t, obj_t, obj_t);
extern obj_t BGl__pushz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t);
static obj_t BGl__compilerzd2apply5106zd2zzdotnet_compilerz00(obj_t, obj_t, obj_t);
extern obj_t BGl_localz00zzast_varz00;
BGL_EXPORTED_DECL obj_t BGl_compilerzd2sequencezd2zzdotnet_compilerz00(BgL_sequencez00_bglt, BgL_envz00_bglt, obj_t);
static obj_t BGl_compilezd2labelzd2callz00zzdotnet_compilerz00(BgL_variablez00_bglt, obj_t, BgL_envz00_bglt, obj_t);
BGL_IMPORT bool_t bigloo_strcmp(obj_t, obj_t);
extern obj_t BGl_getzd2globalzd2namez00zzdotnet_envz00(BgL_envz00_bglt, BgL_globalz00_bglt);
extern obj_t BGl_compilezd2predicatezd2zzdotnet_predicatez00(BgL_nodez00_bglt, obj_t, obj_t, BgL_envz00_bglt);
static obj_t BGl_za2labels2savedza2z00zzdotnet_compilerz00 = BUNSPEC;
static obj_t BGl__compilerzd2getfield5112zd2zzdotnet_compilerz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2isazd2zzdotnet_compilerz00(BgL_isaz00_bglt, BgL_envz00_bglt);
BGL_IMPORT obj_t BGl_llongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2setexitzd2zzdotnet_compilerz00(BgL_setzd2exzd2itz00_bglt, BgL_envz00_bglt, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzdotnet_compilerz00 = BUNSPEC;
static obj_t BGl_samezd2typezd2zzdotnet_compilerz00(BgL_envz00_bglt, obj_t, obj_t);
extern obj_t BGl_debugzd2declarezd2varz00zzdotnet_externz00(BgL_envz00_bglt, BgL_localz00_bglt, obj_t);
extern obj_t BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_bglt, obj_t);
static obj_t BGl__compilerzd2labels5102zd2zzdotnet_compilerz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl__gotoz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
extern obj_t BGl_envzd2declarezd2newzd2localzd2zzdotnet_envz00(BgL_envz00_bglt, BgL_localz00_bglt);
extern obj_t BGl_compilezd2exprzd2zzdotnet_exprz00(BgL_nodez00_bglt, BgL_envz00_bglt);
extern obj_t BGl_envzd2declarezd2initz00zzdotnet_envz00(obj_t, obj_t);
static obj_t BGl__compilerzd2app5104zd2zzdotnet_compilerz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__compilerzd2vset5122zd2zzdotnet_compilerz00(obj_t, obj_t, obj_t);
static obj_t BGl_za2labdoneza2z00zzdotnet_compilerz00 = BUNSPEC;
extern obj_t BGl__linez00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
static obj_t BGl_za2lab2labelsza2z00zzdotnet_compilerz00 = BUNSPEC;
static obj_t BGl_libraryzd2moduleszd2initz00zzdotnet_compilerz00();
extern obj_t BGl__labelz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
extern obj_t BGl__invokeinterfacez00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2varzd2zzdotnet_compilerz00(BgL_varz00_bglt, BgL_envz00_bglt);
static obj_t BGl__compilerzd2body5086zd2zzdotnet_compilerz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilerzd2bodyzd2zzdotnet_compilerz00(BgL_nodez00_bglt, BgL_envz00_bglt);
static obj_t __cnst[ 76 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2varzd2envz00zzdotnet_compilerz00, BgL_bgl__compilerza7d2var5090za7d2za7za7dotnet_compilerza7005586za7, BGl__compilerzd2var5090zd2zzdotnet_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2sequencezd2envz00zzdotnet_compilerz00, BgL_bgl__compilerza7d2sequence5096za7d2za7za7dotnet_compilerza7005587za7, BGl__compilerzd2sequence5096zd2zzdotnet_compilerz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2setfieldzd2envz00zzdotnet_compilerz00, BgL_bgl__compilerza7d2setfield5114za7d2za7za7dotnet_compilerza7005588za7, BGl__compilerzd2setfield5114zd2zzdotnet_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2setexitzd2envz00zzdotnet_compilerz00, BgL_bgl__compilerza7d2setexit5130za7d2za7za7dotnet_compilerza7005589za7, BGl__compilerzd2setexit5130zd2zzdotnet_compilerz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2funcallzd2envz00zzdotnet_compilerz00, BgL_bgl__compilerza7d2funcall5108za7d2za7za7dotnet_compilerza7005590za7, BGl__compilerzd2funcall5108zd2zzdotnet_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2castzd2envz00zzdotnet_compilerz00, BgL_bgl__compilerza7d2cast5128za7d2za7za7dotnet_compilerza7005591za7, BGl__compilerzd2cast5128zd2zzdotnet_compilerz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2bodyzd2envz00zzdotnet_compilerz00, BgL_bgl__compilerza7d2body5086za7d2za7za7dotnet_compilerza7005592za7, BGl__compilerzd2body5086zd2zzdotnet_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2valloczd2envz00zzdotnet_compilerz00, BgL_bgl__compilerza7d2valloc5118za7d2za7za7dotnet_compilerza7005593za7, BGl__compilerzd2valloc5118zd2zzdotnet_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2jumpzd2exitzd2envzd2zzdotnet_compilerz00, BgL_bgl__compilerza7d2jumpza7d2exit5132za700za7za7dotnet_compilerza7005594z00, BGl__compilerzd2jumpzd2exit5132z00zzdotnet_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2vsetzd2envz00zzdotnet_compilerz00, BgL_bgl__compilerza7d2vset5122za7d2za7za7dotnet_compilerza7005595za7, BGl__compilerzd2vset5122zd2zzdotnet_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2isazd2envz00zzdotnet_compilerz00, BgL_bgl__compilerza7d2isa5126za7d2za7za7dotnet_compilerza7005596za7, BGl__compilerzd2isa5126zd2zzdotnet_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2vlengthzd2envz00zzdotnet_compilerz00, BgL_bgl__compilerza7d2vlength5124za7d2za7za7dotnet_compilerza7005597za7, BGl__compilerzd2vlength5124zd2zzdotnet_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2boxzd2refzd2envzd2zzdotnet_compilerz00, BgL_bgl__compilerza7d2boxza7d2ref5138za700za7za7dotnet_compilerza7005598z00, BGl__compilerzd2boxzd2ref5138z00zzdotnet_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2makezd2boxzd2envzd2zzdotnet_compilerz00, BgL_bgl__compilerza7d2makeza7d2box5136za700za7za7dotnet_compilerza7005599z00, BGl__compilerzd2makezd2box5136z00zzdotnet_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2ifzd2envz00zzdotnet_compilerz00, BgL_bgl__compilerza7d2if5098za7d2za7za7dotnet_compilerza7005600za7, BGl__compilerzd2if5098zd2zzdotnet_compilerz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2selectzd2envz00zzdotnet_compilerz00, BgL_bgl__compilerza7d2select5100za7d2za7za7dotnet_compilerza7005601za7, BGl__compilerzd2select5100zd2zzdotnet_compilerz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2failzd2envz00zzdotnet_compilerz00, BgL_bgl__compilerza7d2fail5134za7d2za7za7dotnet_compilerza7005602za7, BGl__compilerzd2fail5134zd2zzdotnet_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2appzd2envz00zzdotnet_compilerz00, BgL_bgl__compilerza7d2app5104za7d2za7za7dotnet_compilerza7005603za7, BGl__compilerzd2app5104zd2zzdotnet_compilerz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2pragmazd2envz00zzdotnet_compilerz00, BgL_bgl__compilerza7d2pragma5110za7d2za7za7dotnet_compilerza7005604za7, BGl__compilerzd2pragma5110zd2zzdotnet_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2getfieldzd2envz00zzdotnet_compilerz00, BgL_bgl__compilerza7d2getfield5112za7d2za7za7dotnet_compilerza7005605za7, BGl__compilerzd2getfield5112zd2zzdotnet_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2letzd2envz00zzdotnet_compilerz00, BgL_bgl__compilerza7d2let5092za7d2za7za7dotnet_compilerza7005606za7, BGl__compilerzd2let5092zd2zzdotnet_compilerz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2atomzd2envz00zzdotnet_compilerz00, BgL_bgl__compilerza7d2atom5088za7d2za7za7dotnet_compilerza7005607za7, BGl__compilerzd2atom5088zd2zzdotnet_compilerz00, 0L, 2 );
DEFINE_STRING( BGl_string5556z00zzdotnet_compilerz00, BgL_bgl_string5556za700za7za7dotnet_compilerza7005608z00, "j_cell ccar init_cell cell fail jumpexit debug_handler2 jthrowable debug_handler j_exit rethrow bug_mono eq catch leave try j_bexception setexit boolean vector ptr_alg (ad ad ad ad ad) funcall4 (ad ad ad ad) funcall3 (ad ad ad) funcall2 funcall1 funcall0 cons (ad ad) apply j_procedure __evmeaning_address cnst-table-set! constants cnst-table-ref make-l-procedure procenv jobject procarity procindex init0 make-va-procedure make-fx-procedure native final abstract static done entry_labels long else unknown \077\077? make_llong ad (ad) make_elong string bucs2_value void (ad char) init_bucs2 j_bucs2 unspecified key rest optional eof int nil ok (node-type-set! e ty) (tprint up \" wrong type \" (list tdown (quote ->) tup)) begin ", 722 );
DEFINE_STRING( BGl_string5555z00zzdotnet_compilerz00, BgL_bgl_string5555za700za7za7dotnet_compilerza7005609z00, "ya pas en dotnet", 16 );
DEFINE_STRING( BGl_string5554z00zzdotnet_compilerz00, BgL_bgl_string5554za700za7za7dotnet_compilerza7005610z00, "pragma", 6 );
DEFINE_STRING( BGl_string5553z00zzdotnet_compilerz00, BgL_bgl_string5553za700za7za7dotnet_compilerza7005611z00, "PTR_ALIGNMENT", 13 );
DEFINE_STRING( BGl_string5552z00zzdotnet_compilerz00, BgL_bgl_string5552za700za7za7dotnet_compilerza7005612z00, "not a variable", 14 );
DEFINE_STRING( BGl_string5551z00zzdotnet_compilerz00, BgL_bgl_string5551za700za7za7dotnet_compilerza7005613z00, "not a global", 12 );
DEFINE_STRING( BGl_string5550z00zzdotnet_compilerz00, BgL_bgl_string5550za700za7za7dotnet_compilerza7005614z00, "Jvm/EVMEANING_ADDRESS", 21 );
DEFINE_STRING( BGl_string5549z00zzdotnet_compilerz00, BgL_bgl_string5549za700za7za7dotnet_compilerza7005615z00, "<init>", 6 );
DEFINE_STRING( BGl_string5548z00zzdotnet_compilerz00, BgL_bgl_string5548za700za7za7dotnet_compilerza7005616z00, "F", 1 );
DEFINE_STRING( BGl_string5547z00zzdotnet_compilerz00, BgL_bgl_string5547za700za7za7dotnet_compilerza7005617z00, "bad item", 8 );
DEFINE_STRING( BGl_string5546z00zzdotnet_compilerz00, BgL_bgl_string5546za700za7za7dotnet_compilerza7005618z00, "not yet", 7 );
DEFINE_STRING( BGl_string5545z00zzdotnet_compilerz00, BgL_bgl_string5545za700za7za7dotnet_compilerza7005619z00, "select", 6 );
DEFINE_STRING( BGl_string5544z00zzdotnet_compilerz00, BgL_bgl_string5544za700za7za7dotnet_compilerza7005620z00, "L", 1 );
DEFINE_STRING( BGl_string5543z00zzdotnet_compilerz00, BgL_bgl_string5543za700za7za7dotnet_compilerza7005621z00, "T", 1 );
DEFINE_STRING( BGl_string5542z00zzdotnet_compilerz00, BgL_bgl_string5542za700za7za7dotnet_compilerza7005622z00, "bad atom value", 14 );
DEFINE_STRING( BGl_string5541z00zzdotnet_compilerz00, BgL_bgl_string5541za700za7za7dotnet_compilerza7005623z00, "compile", 7 );
DEFINE_STRING( BGl_string5540z00zzdotnet_compilerz00, BgL_bgl_string5540za700za7za7dotnet_compilerza7005624z00, "set-type", 8 );
DEFINE_STRING( BGl_string5539z00zzdotnet_compilerz00, BgL_bgl_string5539za700za7za7dotnet_compilerza7005625z00, "unknown node", 12 );
DEFINE_STRING( BGl_string5538z00zzdotnet_compilerz00, BgL_bgl_string5538za700za7za7dotnet_compilerza7005626z00, "type", 4 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2newzd2envz00zzdotnet_compilerz00, BgL_bgl__compilerza7d2new5116za7d2za7za7dotnet_compilerza7005627za7, BGl__compilerzd2new5116zd2zzdotnet_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2setqzd2envz00zzdotnet_compilerz00, BgL_bgl__compilerza7d2setq5094za7d2za7za7dotnet_compilerza7005628za7, BGl__compilerzd2setq5094zd2zzdotnet_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2applyzd2envz00zzdotnet_compilerz00, BgL_bgl__compilerza7d2apply5106za7d2za7za7dotnet_compilerza7005629za7, BGl__compilerzd2apply5106zd2zzdotnet_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2labelszd2envz00zzdotnet_compilerz00, BgL_bgl__compilerza7d2labels5102za7d2za7za7dotnet_compilerza7005630za7, BGl__compilerzd2labels5102zd2zzdotnet_compilerz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2vrefzd2envz00zzdotnet_compilerz00, BgL_bgl__compilerza7d2vref5120za7d2za7za7dotnet_compilerza7005631za7, BGl__compilerzd2vref5120zd2zzdotnet_compilerz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_compilerzd2boxzd2setz12zd2envzc0zzdotnet_compilerz00, BgL_bgl__compilerza7d2boxza7d2setza7125140za712za7za7dotnet_compilerza7005632za7, BGl__compilerzd2boxzd2setz125140z12zzdotnet_compilerz00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzdotnet_compilerz00(long BgL_checksumz00_2435, char * BgL_fromz00_2436)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzdotnet_compilerz00))
{ 
BGl_requirezd2initializa7ationz75zzdotnet_compilerz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzdotnet_compilerz00(); 
BGl_cnstzd2initzd2zzdotnet_compilerz00(); 
BGl_importedzd2moduleszd2initz00zzdotnet_compilerz00(); 
BGl_toplevelzd2initzd2zzdotnet_compilerz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzdotnet_compilerz00()
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 8 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "dotnet_compiler"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "dotnet_compiler"); 
BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long)0), "dotnet_compiler"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)0), "dotnet_compiler"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "dotnet_compiler"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(((long)0), "dotnet_compiler"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzdotnet_compilerz00()
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 8 */
{ /* ./DotNet/compiler.scm 8 */
obj_t BgL_cportz00_2422;
BgL_cportz00_2422 = 
open_input_string(BGl_string5556z00zzdotnet_compilerz00); 
{ 
long BgL_iz00_2423;
BgL_iz00_2423 = ((long)75); 
BgL_loopz00_2424:
{ /* ./DotNet/compiler.scm 8 */
bool_t BgL_test5558z00_2425;
BgL_test5558z00_2425 = 
(BgL_iz00_2423==((long)-1)); 
if(BgL_test5558z00_2425)
{ /* ./DotNet/compiler.scm 8 */
return BUNSPEC;}  else 
{ /* ./DotNet/compiler.scm 8 */
{ /* ./DotNet/compiler.scm 8 */
obj_t BgL_arg5560z00_2426;
{ /* ./DotNet/compiler.scm 8 */
obj_t BgL_list5563z00_2427;
BgL_list5563z00_2427 = 
MAKE_PAIR(BgL_cportz00_2422, BNIL); 
BgL_arg5560z00_2426 = 
BGl_readz00zz__readerz00(BgL_list5563z00_2427); } 
{ /* ./DotNet/compiler.scm 8 */
int BgL_auxz00_2455;
BgL_auxz00_2455 = 
(int)(BgL_iz00_2423); 
CNST_TABLE_SET(BgL_auxz00_2455, BgL_arg5560z00_2426); } } 
{ /* ./DotNet/compiler.scm 8 */
int BgL_auxz00_2428;
{ /* ./DotNet/compiler.scm 8 */
long BgL_auxz00_2458;
BgL_auxz00_2458 = 
(BgL_iz00_2423-((long)1)); 
BgL_auxz00_2428 = 
(int)(BgL_auxz00_2458); } 
{ 
long BgL_iz00_2461;
BgL_iz00_2461 = 
(long)(BgL_auxz00_2428); 
BgL_iz00_2423 = BgL_iz00_2461; 
goto BgL_loopz00_2424;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzdotnet_compilerz00()
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 8 */
BGl_za2labdoneza2z00zzdotnet_compilerz00 = BNIL; 
BGl_za2lab2labelsza2z00zzdotnet_compilerz00 = BNIL; 
return ( 
BGl_za2labels2savedza2z00zzdotnet_compilerz00 = BNIL, BUNSPEC) ;} 
}



/* compiler-body */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2bodyzd2zzdotnet_compilerz00(BgL_nodez00_bglt BgL_ez00_1, BgL_envz00_bglt BgL_envz00_2)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 46 */
BGl_za2labdoneza2z00zzdotnet_compilerz00 = BNIL; 
BGl_za2lab2labelsza2z00zzdotnet_compilerz00 = BNIL; 
BGl_za2labels2savedza2z00zzdotnet_compilerz00 = BNIL; 
BGl__labelz00zzdotnet_instrz00(BgL_envz00_2, 
CNST_TABLE_REF(((long)0))); 
return 
BGl_compilezd2tailzd2zzdotnet_tailz00(BgL_ez00_1, BgL_envz00_2);} 
}



/* _compiler-body5086 */
obj_t BGl__compilerzd2body5086zd2zzdotnet_compilerz00(obj_t BgL_envz00_2330, obj_t BgL_ez00_2331, obj_t BgL_envz00_2332)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 46 */
return 
BGl_compilerzd2bodyzd2zzdotnet_compilerz00(
(BgL_nodez00_bglt)(BgL_ez00_2331), 
(BgL_envz00_bglt)(BgL_envz00_2332));} 
}



/* same-type */
obj_t BGl_samezd2typezd2zzdotnet_compilerz00(BgL_envz00_bglt BgL_envz00_5, obj_t BgL_downz00_6, obj_t BgL_upz00_7)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 62 */
{ /* ./DotNet/compiler.scm 63 */
obj_t BgL_tdownz00_875;obj_t BgL_tupz00_876;
BgL_tdownz00_875 = 
BGl_compilezd2typezd2zzdotnet_envz00(BgL_downz00_6, BgL_envz00_5); 
BgL_tupz00_876 = 
BGl_compilezd2typezd2zzdotnet_envz00(BgL_upz00_7, BgL_envz00_5); 
{ /* ./DotNet/compiler.scm 64 */
bool_t BgL_test3192z00_877;
BgL_test3192z00_877 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_tdownz00_875, BgL_tupz00_876); 
if(BgL_test3192z00_877)
{ /* ./DotNet/compiler.scm 64 */
return BFALSE;}  else 
{ /* ./DotNet/compiler.scm 64 */
CNST_TABLE_REF(((long)1)); 
{ /* ./DotNet/compiler.scm 66 */
obj_t BgL_arg3194z00_878;
BgL_arg3194z00_878 = 
BGl_getzd2typezd2zzdotnet_compilerz00(BgL_upz00_7); 
return 
BGl_setzd2typezd2zzdotnet_compilerz00(BgL_downz00_6, BgL_arg3194z00_878);} } } } } 
}



/* get-type */
obj_t BGl_getzd2typezd2zzdotnet_compilerz00(obj_t BgL_ez00_8)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 68 */
{ /* ./DotNet/compiler.scm 69 */
bool_t BgL_test3200z00_879;
BgL_test3200z00_879 = 
BGl_iszd2azf3z21zz__objectz00(BgL_ez00_8, BGl_nodez00zzast_nodez00); 
if(BgL_test3200z00_879)
{ /* ./DotNet/compiler.scm 69 */
{ /* ./DotNet/compiler.scm 69 */
BgL_typez00_bglt BgL_auxz00_2478;
BgL_auxz00_2478 = 
BGl_typeofz00zztype_typeofz00(
(BgL_nodez00_bglt)(BgL_ez00_8)); 
return 
(obj_t)(BgL_auxz00_2478);} }  else 
{ /* ./DotNet/compiler.scm 70 */
bool_t BgL_test3202z00_880;
BgL_test3202z00_880 = 
BGl_iszd2azf3z21zz__objectz00(BgL_ez00_8, BGl_variablez00zzast_varz00); 
if(BgL_test3202z00_880)
{ /* ./DotNet/compiler.scm 70 */
{ /* ./DotNet/compiler.scm 70 */
BgL_variablez00_bglt BgL_obj1097z00_1877;
BgL_obj1097z00_1877 = 
(BgL_variablez00_bglt)(BgL_ez00_8); 
{ /* ./DotNet/compiler.scm 70 */
BgL_typez00_bglt BgL_auxz00_2485;
BgL_auxz00_2485 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_1877))->BgL_typez00); 
return 
(obj_t)(BgL_auxz00_2485);} } }  else 
{ /* ./DotNet/compiler.scm 70 */
FAILURE(BGl_string5538z00zzdotnet_compilerz00,BGl_string5539z00zzdotnet_compilerz00,BgL_ez00_8);} } } } 
}



/* set-type */
obj_t BGl_setzd2typezd2zzdotnet_compilerz00(obj_t BgL_ez00_9, obj_t BgL_tyz00_10)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 73 */
{ /* ./DotNet/compiler.scm 74 */
bool_t BgL_test3207z00_881;
BgL_test3207z00_881 = 
BGl_iszd2azf3z21zz__objectz00(BgL_ez00_9, BGl_nodez00zzast_nodez00); 
if(BgL_test3207z00_881)
{ /* ./DotNet/compiler.scm 74 */
return 
CNST_TABLE_REF(((long)2));}  else 
{ /* ./DotNet/compiler.scm 75 */
bool_t BgL_test3208z00_882;
BgL_test3208z00_882 = 
BGl_iszd2azf3z21zz__objectz00(BgL_ez00_9, BGl_variablez00zzast_varz00); 
if(BgL_test3208z00_882)
{ /* ./DotNet/compiler.scm 75 */
{ /* ./DotNet/compiler.scm 75 */
BgL_variablez00_bglt BgL_obj1099z00_1883;BgL_typez00_bglt BgL_val1098z00_1884;
BgL_obj1099z00_1883 = 
(BgL_variablez00_bglt)(BgL_ez00_9); 
BgL_val1098z00_1884 = 
(BgL_typez00_bglt)(BgL_tyz00_10); 
return 
((((BgL_variablez00_bglt)CREF(BgL_obj1099z00_1883))->BgL_typez00) = ((BgL_typez00_bglt)BgL_val1098z00_1884), BUNSPEC);} }  else 
{ /* ./DotNet/compiler.scm 75 */
FAILURE(BGl_string5540z00zzdotnet_compilerz00,BGl_string5539z00zzdotnet_compilerz00,BgL_ez00_9);} } } } 
}



/* compiler-atom */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2atomzd2zzdotnet_compilerz00(obj_t BgL_ez00_11, BgL_envz00_bglt BgL_envz00_12)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 79 */
{ /* ./DotNet/compiler.scm 80 */
obj_t BgL_nz00_1890;
BgL_nz00_1890 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_11)); 
if(
CBOOL(BgL_nz00_1890))
{ /* ./DotNet/compiler.scm 80 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_12, BgL_nz00_1890); }  else 
{ /* ./DotNet/compiler.scm 80 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 83 */
bool_t BgL_test3214z00_884;
{ /* ./DotNet/compiler.scm 83 */
obj_t BgL_arg3392z00_953;
{ /* ./DotNet/compiler.scm 83 */
BgL_atomz00_bglt BgL_obj1604z00_1891;
BgL_obj1604z00_1891 = 
(BgL_atomz00_bglt)(BgL_ez00_11); 
BgL_arg3392z00_953 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_1891))->BgL_valuez00); } 
if(
INTEGERP(BgL_arg3392z00_953))
{ /* ./DotNet/compiler.scm 83 */
BgL_test3214z00_884 = ((bool_t)1); }  else 
{ /* ./DotNet/compiler.scm 83 */
BgL_test3214z00_884 = 
REALP(BgL_arg3392z00_953); } } 
if(BgL_test3214z00_884)
{ /* ./DotNet/compiler.scm 83 */
{ /* ./DotNet/compiler.scm 84 */
obj_t BgL_arg3216z00_885;obj_t BgL_arg3217z00_886;
{ /* ./DotNet/compiler.scm 84 */
BgL_typez00_bglt BgL_arg3220z00_887;
BgL_arg3220z00_887 = 
BGl_typeofz00zztype_typeofz00(
(BgL_nodez00_bglt)(BgL_ez00_11)); 
BgL_arg3216z00_885 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_arg3220z00_887), BgL_envz00_12); } 
{ /* ./DotNet/compiler.scm 84 */
BgL_atomz00_bglt BgL_obj1604z00_1897;
BgL_obj1604z00_1897 = 
(BgL_atomz00_bglt)(BgL_ez00_11); 
BgL_arg3217z00_886 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_1897))->BgL_valuez00); } 
return 
BGl__pushz00zzdotnet_instrz00(BgL_envz00_12, BgL_arg3216z00_885, BgL_arg3217z00_886);} }  else 
{ /* ./DotNet/compiler.scm 85 */
bool_t BgL_test3224z00_888;
{ /* ./DotNet/compiler.scm 85 */
obj_t BgL_auxz00_2517;
{ /* ./DotNet/compiler.scm 85 */
BgL_atomz00_bglt BgL_obj1604z00_1898;
BgL_obj1604z00_1898 = 
(BgL_atomz00_bglt)(BgL_ez00_11); 
BgL_auxz00_2517 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_1898))->BgL_valuez00); } 
BgL_test3224z00_888 = 
NULLP(BgL_auxz00_2517); } 
if(BgL_test3224z00_888)
{ /* ./DotNet/compiler.scm 85 */
{ /* ./DotNet/compiler.scm 86 */
obj_t BgL_arg3226z00_889;
BgL_arg3226z00_889 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_12, 
CNST_TABLE_REF(((long)4))); 
return 
BGl__getstaticz00zzdotnet_instrz00(BgL_envz00_12, BgL_arg3226z00_889);} }  else 
{ /* ./DotNet/compiler.scm 87 */
bool_t BgL_test3229z00_890;
{ /* ./DotNet/compiler.scm 87 */
obj_t BgL_auxz00_2525;
{ /* ./DotNet/compiler.scm 87 */
BgL_atomz00_bglt BgL_obj1604z00_1900;
BgL_obj1604z00_1900 = 
(BgL_atomz00_bglt)(BgL_ez00_11); 
BgL_auxz00_2525 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_1900))->BgL_valuez00); } 
BgL_test3229z00_890 = 
BOOLEANP(BgL_auxz00_2525); } 
if(BgL_test3229z00_890)
{ /* ./DotNet/compiler.scm 87 */
{ /* ./DotNet/compiler.scm 88 */
obj_t BgL_arg3231z00_891;long BgL_arg3232z00_892;
BgL_arg3231z00_891 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./DotNet/compiler.scm 88 */
bool_t BgL_testz00_2531;
{ /* ./DotNet/compiler.scm 88 */
BgL_atomz00_bglt BgL_obj1604z00_1902;
BgL_obj1604z00_1902 = 
(BgL_atomz00_bglt)(BgL_ez00_11); 
{ /* ./DotNet/compiler.scm 88 */
obj_t BgL_auxz00_2533;
BgL_auxz00_2533 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_1902))->BgL_valuez00); 
BgL_testz00_2531 = 
CBOOL(BgL_auxz00_2533); } } 
if(BgL_testz00_2531)
{ /* ./DotNet/compiler.scm 88 */
BgL_arg3232z00_892 = ((long)1); }  else 
{ /* ./DotNet/compiler.scm 88 */
BgL_arg3232z00_892 = ((long)0); } } 
return 
BGl__pushz00zzdotnet_instrz00(BgL_envz00_12, BgL_arg3231z00_891, 
BINT(BgL_arg3232z00_892));} }  else 
{ /* ./DotNet/compiler.scm 89 */
bool_t BgL_test3236z00_894;
{ /* ./DotNet/compiler.scm 89 */
obj_t BgL_auxz00_2538;
{ /* ./DotNet/compiler.scm 89 */
BgL_atomz00_bglt BgL_obj1604z00_1903;
BgL_obj1604z00_1903 = 
(BgL_atomz00_bglt)(BgL_ez00_11); 
BgL_auxz00_2538 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_1903))->BgL_valuez00); } 
BgL_test3236z00_894 = 
CHARP(BgL_auxz00_2538); } 
if(BgL_test3236z00_894)
{ /* ./DotNet/compiler.scm 89 */
{ /* ./DotNet/compiler.scm 90 */
obj_t BgL_arg3238z00_895;long BgL_arg3239z00_896;
BgL_arg3238z00_895 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./DotNet/compiler.scm 90 */
unsigned char BgL_auxz00_2544;
{ /* ./DotNet/compiler.scm 90 */
obj_t BgL_auxz00_2545;
{ /* ./DotNet/compiler.scm 90 */
BgL_atomz00_bglt BgL_obj1604z00_1905;
BgL_obj1604z00_1905 = 
(BgL_atomz00_bglt)(BgL_ez00_11); 
BgL_auxz00_2545 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_1905))->BgL_valuez00); } 
BgL_auxz00_2544 = 
(unsigned char)CCHAR(BgL_auxz00_2545); } 
BgL_arg3239z00_896 = 
(BgL_auxz00_2544); } 
return 
BGl__pushz00zzdotnet_instrz00(BgL_envz00_12, BgL_arg3238z00_895, 
BINT(BgL_arg3239z00_896));} }  else 
{ /* ./DotNet/compiler.scm 91 */
bool_t BgL_test3245z00_898;
{ /* ./DotNet/compiler.scm 91 */
obj_t BgL_auxz00_2552;
{ /* ./DotNet/compiler.scm 91 */
BgL_atomz00_bglt BgL_obj1604z00_1907;
BgL_obj1604z00_1907 = 
(BgL_atomz00_bglt)(BgL_ez00_11); 
BgL_auxz00_2552 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_1907))->BgL_valuez00); } 
BgL_test3245z00_898 = 
STRINGP(BgL_auxz00_2552); } 
if(BgL_test3245z00_898)
{ /* ./DotNet/compiler.scm 91 */
{ /* ./DotNet/compiler.scm 93 */
obj_t BgL_arg3247z00_899;
{ /* ./DotNet/compiler.scm 93 */
BgL_atomz00_bglt BgL_obj1604z00_1909;
BgL_obj1604z00_1909 = 
(BgL_atomz00_bglt)(BgL_ez00_11); 
BgL_arg3247z00_899 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_1909))->BgL_valuez00); } 
return 
BGl_createzd2stringzd2zzdotnet_instrz00(
(obj_t)(BgL_envz00_12), BgL_arg3247z00_899);} }  else 
{ /* ./DotNet/compiler.scm 94 */
bool_t BgL_test3250z00_900;
{ /* ./DotNet/compiler.scm 94 */
obj_t BgL_arg3372z00_948;
{ /* ./DotNet/compiler.scm 94 */
BgL_atomz00_bglt BgL_obj1604z00_1910;
BgL_obj1604z00_1910 = 
(BgL_atomz00_bglt)(BgL_ez00_11); 
BgL_arg3372z00_948 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_1910))->BgL_valuez00); } 
BgL_test3250z00_900 = 
EOF_OBJECTP(BgL_arg3372z00_948); } 
if(BgL_test3250z00_900)
{ /* ./DotNet/compiler.scm 94 */
{ /* ./DotNet/compiler.scm 95 */
obj_t BgL_arg3252z00_901;
BgL_arg3252z00_901 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_12, 
CNST_TABLE_REF(((long)6))); 
return 
BGl__getstaticz00zzdotnet_instrz00(BgL_envz00_12, BgL_arg3252z00_901);} }  else 
{ /* ./DotNet/compiler.scm 96 */
bool_t BgL_test3255z00_902;
{ /* ./DotNet/compiler.scm 96 */
obj_t BgL_auxz00_2568;
{ /* ./DotNet/compiler.scm 96 */
BgL_atomz00_bglt BgL_obj1604z00_1912;
BgL_obj1604z00_1912 = 
(BgL_atomz00_bglt)(BgL_ez00_11); 
BgL_auxz00_2568 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_1912))->BgL_valuez00); } 
BgL_test3255z00_902 = 
(BgL_auxz00_2568==BCNST(258)); } 
if(BgL_test3255z00_902)
{ /* ./DotNet/compiler.scm 96 */
{ /* ./DotNet/compiler.scm 97 */
obj_t BgL_arg3257z00_903;
BgL_arg3257z00_903 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_12, 
CNST_TABLE_REF(((long)7))); 
return 
BGl__getstaticz00zzdotnet_instrz00(BgL_envz00_12, BgL_arg3257z00_903);} }  else 
{ /* ./DotNet/compiler.scm 98 */
bool_t BgL_test3260z00_904;
{ /* ./DotNet/compiler.scm 98 */
obj_t BgL_auxz00_2576;
{ /* ./DotNet/compiler.scm 98 */
BgL_atomz00_bglt BgL_obj1604z00_1913;
BgL_obj1604z00_1913 = 
(BgL_atomz00_bglt)(BgL_ez00_11); 
BgL_auxz00_2576 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_1913))->BgL_valuez00); } 
BgL_test3260z00_904 = 
(BgL_auxz00_2576==BCNST(259)); } 
if(BgL_test3260z00_904)
{ /* ./DotNet/compiler.scm 98 */
{ /* ./DotNet/compiler.scm 99 */
obj_t BgL_arg3262z00_905;
BgL_arg3262z00_905 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_12, 
CNST_TABLE_REF(((long)8))); 
return 
BGl__getstaticz00zzdotnet_instrz00(BgL_envz00_12, BgL_arg3262z00_905);} }  else 
{ /* ./DotNet/compiler.scm 100 */
bool_t BgL_test3265z00_906;
{ /* ./DotNet/compiler.scm 100 */
obj_t BgL_auxz00_2584;
{ /* ./DotNet/compiler.scm 100 */
BgL_atomz00_bglt BgL_obj1604z00_1914;
BgL_obj1604z00_1914 = 
(BgL_atomz00_bglt)(BgL_ez00_11); 
BgL_auxz00_2584 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_1914))->BgL_valuez00); } 
BgL_test3265z00_906 = 
(BgL_auxz00_2584==BCNST(262)); } 
if(BgL_test3265z00_906)
{ /* ./DotNet/compiler.scm 100 */
{ /* ./DotNet/compiler.scm 101 */
obj_t BgL_arg3267z00_907;
BgL_arg3267z00_907 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_12, 
CNST_TABLE_REF(((long)9))); 
return 
BGl__getstaticz00zzdotnet_instrz00(BgL_envz00_12, BgL_arg3267z00_907);} }  else 
{ /* ./DotNet/compiler.scm 102 */
bool_t BgL_test3270z00_908;
{ /* ./DotNet/compiler.scm 102 */
obj_t BgL_auxz00_2592;
{ /* ./DotNet/compiler.scm 102 */
BgL_atomz00_bglt BgL_obj1604z00_1915;
BgL_obj1604z00_1915 = 
(BgL_atomz00_bglt)(BgL_ez00_11); 
BgL_auxz00_2592 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_1915))->BgL_valuez00); } 
BgL_test3270z00_908 = 
(BgL_auxz00_2592==BUNSPEC); } 
if(BgL_test3270z00_908)
{ /* ./DotNet/compiler.scm 102 */
{ /* ./DotNet/compiler.scm 103 */
obj_t BgL_arg3272z00_909;
BgL_arg3272z00_909 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_12, 
CNST_TABLE_REF(((long)10))); 
return 
BGl__getstaticz00zzdotnet_instrz00(BgL_envz00_12, BgL_arg3272z00_909);} }  else 
{ /* ./DotNet/compiler.scm 104 */
bool_t BgL_test3275z00_910;
{ /* ./DotNet/compiler.scm 104 */
obj_t BgL_auxz00_2600;
{ /* ./DotNet/compiler.scm 104 */
BgL_atomz00_bglt BgL_obj1604z00_1916;
BgL_obj1604z00_1916 = 
(BgL_atomz00_bglt)(BgL_ez00_11); 
BgL_auxz00_2600 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_1916))->BgL_valuez00); } 
BgL_test3275z00_910 = 
UCS2P(BgL_auxz00_2600); } 
if(BgL_test3275z00_910)
{ /* ./DotNet/compiler.scm 104 */
{ /* ./DotNet/compiler.scm 106 */
obj_t BgL_arg3277z00_911;
BgL_arg3277z00_911 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_12, 
CNST_TABLE_REF(((long)11))); 
BGl__newz00zzdotnet_instrz00(BgL_envz00_12, BgL_arg3277z00_911); } 
BGl__dupz00zzdotnet_instrz00(BgL_envz00_12); 
{ /* ./DotNet/compiler.scm 108 */
obj_t BgL_arg3282z00_912;int BgL_arg3283z00_913;
BgL_arg3282z00_912 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./DotNet/compiler.scm 108 */
obj_t BgL_arg3286z00_914;
{ /* ./DotNet/compiler.scm 108 */
BgL_atomz00_bglt BgL_obj1604z00_1918;
BgL_obj1604z00_1918 = 
(BgL_atomz00_bglt)(BgL_ez00_11); 
BgL_arg3286z00_914 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_1918))->BgL_valuez00); } 
{ /* ./DotNet/compiler.scm 108 */
ucs2_t BgL_ucs2z00_1919;
BgL_ucs2z00_1919 = 
CUCS2(BgL_arg3286z00_914); 
{ /* ./DotNet/compiler.scm 108 */
obj_t BgL_auxz00_2613;
BgL_auxz00_2613 = 
BUCS2(BgL_ucs2z00_1919); 
BgL_arg3283z00_913 = 
CUCS2(BgL_auxz00_2613); } } } 
BGl__pushz00zzdotnet_instrz00(BgL_envz00_12, BgL_arg3282z00_912, 
BINT(BgL_arg3283z00_913)); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./DotNet/compiler.scm 110 */
obj_t BgL_arg3290z00_915;obj_t BgL_arg3291z00_916;obj_t BgL_arg3292z00_917;
BgL_arg3290z00_915 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_12, 
CNST_TABLE_REF(((long)12))); 
BgL_arg3291z00_916 = 
CNST_TABLE_REF(((long)13)); 
BgL_arg3292z00_917 = 
CNST_TABLE_REF(((long)14)); 
return 
BGl__invokespecialz00zzdotnet_instrz00(BgL_envz00_12, BgL_arg3290z00_915, BgL_arg3291z00_916, BgL_arg3292z00_917);}  else 
{ /* ./DotNet/compiler.scm 111 */
obj_t BgL_arg3296z00_918;
BgL_arg3296z00_918 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_12, 
CNST_TABLE_REF(((long)15))); 
return 
BGl__putfieldz00zzdotnet_instrz00(BgL_envz00_12, BgL_arg3296z00_918);} }  else 
{ /* ./DotNet/compiler.scm 112 */
bool_t BgL_test3299z00_919;
{ /* ./DotNet/compiler.scm 112 */
obj_t BgL_auxz00_2628;
{ /* ./DotNet/compiler.scm 112 */
BgL_atomz00_bglt BgL_obj1604z00_1920;
BgL_obj1604z00_1920 = 
(BgL_atomz00_bglt)(BgL_ez00_11); 
BgL_auxz00_2628 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_1920))->BgL_valuez00); } 
BgL_test3299z00_919 = 
ELONGP(BgL_auxz00_2628); } 
if(BgL_test3299z00_919)
{ /* ./DotNet/compiler.scm 112 */
{ /* ./DotNet/compiler.scm 114 */
obj_t BgL_arg3301z00_920;obj_t BgL_arg3302z00_921;
BgL_arg3301z00_920 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./DotNet/compiler.scm 114 */
obj_t BgL_arg3305z00_922;
{ /* ./DotNet/compiler.scm 114 */
BgL_atomz00_bglt BgL_obj1604z00_1922;
BgL_obj1604z00_1922 = 
(BgL_atomz00_bglt)(BgL_ez00_11); 
BgL_arg3305z00_922 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_1922))->BgL_valuez00); } 
BgL_arg3302z00_921 = 
BGl_elongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_arg3305z00_922, BNIL); } 
BGl__pushz00zzdotnet_instrz00(BgL_envz00_12, BgL_arg3301z00_920, BgL_arg3302z00_921); } 
{ /* ./DotNet/compiler.scm 115 */
obj_t BgL_arg3310z00_924;obj_t BgL_arg3311z00_925;obj_t BgL_arg3312z00_926;
BgL_arg3310z00_924 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_12, 
CNST_TABLE_REF(((long)17))); 
BgL_arg3311z00_925 = 
CNST_TABLE_REF(((long)18)); 
BgL_arg3312z00_926 = 
CNST_TABLE_REF(((long)19)); 
return 
BGl__invokestaticz00zzdotnet_instrz00(BgL_envz00_12, BgL_arg3310z00_924, BgL_arg3311z00_925, BgL_arg3312z00_926);} }  else 
{ /* ./DotNet/compiler.scm 116 */
bool_t BgL_test3315z00_927;
{ /* ./DotNet/compiler.scm 116 */
obj_t BgL_auxz00_2643;
{ /* ./DotNet/compiler.scm 116 */
BgL_atomz00_bglt BgL_obj1604z00_1923;
BgL_obj1604z00_1923 = 
(BgL_atomz00_bglt)(BgL_ez00_11); 
BgL_auxz00_2643 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_1923))->BgL_valuez00); } 
BgL_test3315z00_927 = 
LLONGP(BgL_auxz00_2643); } 
if(BgL_test3315z00_927)
{ /* ./DotNet/compiler.scm 116 */
{ /* ./DotNet/compiler.scm 118 */
obj_t BgL_arg3317z00_928;obj_t BgL_arg3319z00_929;
BgL_arg3317z00_928 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./DotNet/compiler.scm 118 */
obj_t BgL_arg3322z00_930;
{ /* ./DotNet/compiler.scm 118 */
BgL_atomz00_bglt BgL_obj1604z00_1925;
BgL_obj1604z00_1925 = 
(BgL_atomz00_bglt)(BgL_ez00_11); 
BgL_arg3322z00_930 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_1925))->BgL_valuez00); } 
BgL_arg3319z00_929 = 
BGl_llongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_arg3322z00_930, BNIL); } 
BGl__pushz00zzdotnet_instrz00(BgL_envz00_12, BgL_arg3317z00_928, BgL_arg3319z00_929); } 
{ /* ./DotNet/compiler.scm 119 */
obj_t BgL_arg3327z00_932;obj_t BgL_arg3328z00_933;obj_t BgL_arg3329z00_934;
BgL_arg3327z00_932 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_12, 
CNST_TABLE_REF(((long)20))); 
BgL_arg3328z00_933 = 
CNST_TABLE_REF(((long)18)); 
BgL_arg3329z00_934 = 
CNST_TABLE_REF(((long)19)); 
return 
BGl__invokestaticz00zzdotnet_instrz00(BgL_envz00_12, BgL_arg3327z00_932, BgL_arg3328z00_933, BgL_arg3329z00_934);} }  else 
{ /* ./DotNet/compiler.scm 116 */
{ /* ./DotNet/compiler.scm 120 */
obj_t BgL_arg3335z00_937;
{ /* ./DotNet/compiler.scm 120 */
BgL_atomz00_bglt BgL_obj1604z00_1926;
BgL_obj1604z00_1926 = 
(BgL_atomz00_bglt)(BgL_ez00_11); 
BgL_arg3335z00_937 = 
(((BgL_atomz00_bglt)CREF(BgL_obj1604z00_1926))->BgL_valuez00); } 
FAILURE(BGl_string5541z00zzdotnet_compilerz00,BGl_string5542z00zzdotnet_compilerz00,BgL_arg3335z00_937);} } } } } } } } } } } } } } } } 
}



/* _compiler-atom5088 */
obj_t BGl__compilerzd2atom5088zd2zzdotnet_compilerz00(obj_t BgL_envz00_2333, obj_t BgL_ez00_2334, obj_t BgL_envz00_2335)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 79 */
return 
BGl_compilerzd2atomzd2zzdotnet_compilerz00(BgL_ez00_2334, 
(BgL_envz00_bglt)(BgL_envz00_2335));} 
}



/* compiler-var */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2varzd2zzdotnet_compilerz00(BgL_varz00_bglt BgL_ez00_13, BgL_envz00_bglt BgL_envz00_14)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 123 */
{ /* ./DotNet/compiler.scm 124 */
obj_t BgL_nz00_1932;
BgL_nz00_1932 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_13)); 
if(
CBOOL(BgL_nz00_1932))
{ /* ./DotNet/compiler.scm 124 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_14, BgL_nz00_1932); }  else 
{ /* ./DotNet/compiler.scm 124 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 125 */
BgL_variablez00_bglt BgL_varz00_954;
BgL_varz00_954 = 
(((BgL_varz00_bglt)CREF(BgL_ez00_13))->BgL_variablez00); 
{ /* ./DotNet/compiler.scm 127 */
bool_t BgL_test3396z00_955;
{ /* ./DotNet/compiler.scm 127 */
obj_t BgL_obj1240z00_1934;
BgL_obj1240z00_1934 = 
(obj_t)(BgL_varz00_954); 
BgL_test3396z00_955 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_1934, BGl_globalz00zzast_varz00); } 
if(BgL_test3396z00_955)
{ /* ./DotNet/compiler.scm 127 */
{ /* ./DotNet/compiler.scm 128 */
BgL_valuez00_bglt BgL_valuez00_956;
BgL_valuez00_956 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_954))->BgL_valuez00); 
{ /* ./DotNet/compiler.scm 129 */
bool_t BgL_test3397z00_957;
{ /* ./DotNet/compiler.scm 129 */
obj_t BgL_obj1425z00_1936;
BgL_obj1425z00_1936 = 
(obj_t)(BgL_valuez00_956); 
BgL_test3397z00_957 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1425z00_1936, BGl_sfunz00zzast_varz00); } 
if(BgL_test3397z00_957)
{ /* ./DotNet/compiler.scm 130 */
long BgL_arg3399z00_958;
{ /* ./DotNet/compiler.scm 130 */
BgL_funz00_bglt BgL_obj1301z00_1937;
BgL_obj1301z00_1937 = 
(BgL_funz00_bglt)(BgL_valuez00_956); 
BgL_arg3399z00_958 = 
(((BgL_funz00_bglt)CREF(BgL_obj1301z00_1937))->BgL_arityz00); } 
return 
BGl_compilezd2procedurezd2entryz00zzdotnet_compilerz00(
(BgL_globalz00_bglt)(BgL_varz00_954), BgL_arg3399z00_958, BgL_envz00_14);}  else 
{ /* ./DotNet/compiler.scm 129 */
return 
BGl__getstatic2z00zzdotnet_instrz00(BgL_envz00_14, 
(BgL_globalz00_bglt)(BgL_varz00_954));} } } }  else 
{ /* ./DotNet/compiler.scm 127 */
return 
BGl__loadz00zzdotnet_instrz00(BgL_envz00_14, 
(BgL_localz00_bglt)(BgL_varz00_954));} } } } 
}



/* _compiler-var5090 */
obj_t BGl__compilerzd2var5090zd2zzdotnet_compilerz00(obj_t BgL_envz00_2336, obj_t BgL_ez00_2337, obj_t BgL_envz00_2338)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 123 */
return 
BGl_compilerzd2varzd2zzdotnet_compilerz00(
(BgL_varz00_bglt)(BgL_ez00_2337), 
(BgL_envz00_bglt)(BgL_envz00_2338));} 
}



/* compile-procedure-entry */
obj_t BGl_compilezd2procedurezd2entryz00zzdotnet_compilerz00(BgL_globalz00_bglt BgL_varz00_15, long BgL_arityz00_16, BgL_envz00_bglt BgL_envz00_17)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 134 */
{ /* ./DotNet/compiler.scm 135 */
long BgL_xz00_959;
if(
(BgL_arityz00_16>=((long)0)))
{ /* ./DotNet/compiler.scm 135 */
BgL_xz00_959 = 
(BgL_arityz00_16-((long)1)); }  else 
{ /* ./DotNet/compiler.scm 135 */
BgL_xz00_959 = 
(BgL_arityz00_16+((long)1)); } 
{ /* ./DotNet/compiler.scm 136 */
obj_t BgL_indexz00_960;
{ /* ./DotNet/compiler.scm 136 */
obj_t BgL_arg3410z00_961;
BgL_arg3410z00_961 = 
BGl_getzd2globalzd2namez00zzdotnet_envz00(BgL_envz00_17, BgL_varz00_15); 
BgL_indexz00_960 = 
BGl_envzd2newzd2procedurez00zzdotnet_envz00(BgL_envz00_17, 
BINT(BgL_xz00_959), BgL_arg3410z00_961); } 
return 
BGl__pushz00zzdotnet_instrz00(BgL_envz00_17, 
CNST_TABLE_REF(((long)5)), BgL_indexz00_960);} } } 
}



/* compiler-let */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2letzd2zzdotnet_compilerz00(BgL_letzd2varzd2_bglt BgL_ez00_18, BgL_envz00_bglt BgL_envz00_19, obj_t BgL_compilerz00_20)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 140 */
{ /* ./DotNet/compiler.scm 141 */
obj_t BgL_nz00_1940;
BgL_nz00_1940 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_18)); 
if(
CBOOL(BgL_nz00_1940))
{ /* ./DotNet/compiler.scm 141 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_19, BgL_nz00_1940); }  else 
{ /* ./DotNet/compiler.scm 141 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 143 */
obj_t BgL_debugzf3zf3_964;
BgL_debugzf3zf3_964 = 
BGl_debugzd2forzd2declarezd2varzf3z21zzdotnet_externz00(BgL_envz00_19); 
{ /* ./DotNet/compiler.scm 144 */
obj_t BgL_elabz00_965;
if(
CBOOL(BgL_debugzf3zf3_964))
{ /* ./DotNet/compiler.scm 144 */
BgL_elabz00_965 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string5543z00zzdotnet_compilerz00, BEOA); }  else 
{ /* ./DotNet/compiler.scm 144 */
BgL_elabz00_965 = 
CNST_TABLE_REF(((long)21)); } 
{ 
obj_t BgL_l3087z00_966;
{ /* ./DotNet/compiler.scm 145 */
obj_t BgL_arg3419z00_968;
BgL_arg3419z00_968 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_ez00_18))->BgL_bindingsz00); 
BgL_l3087z00_966 = BgL_arg3419z00_968; 
BgL_forzd2each3088zd2_967:
{ /* ./DotNet/compiler.scm 145 */
bool_t BgL_test3422z00_969;
BgL_test3422z00_969 = 
PAIRP(BgL_l3087z00_966); 
if(BgL_test3422z00_969)
{ /* ./DotNet/compiler.scm 145 */
{ /* ./DotNet/compiler.scm 146 */
obj_t BgL_bz00_970;
BgL_bz00_970 = 
CAR(BgL_l3087z00_966); 
{ /* ./DotNet/compiler.scm 146 */
obj_t BgL_varz00_971;obj_t BgL_valz00_972;
BgL_varz00_971 = 
CAR(BgL_bz00_970); 
BgL_valz00_972 = 
CDR(BgL_bz00_970); 
BGl_compilezd2exprzd2zzdotnet_exprz00(
(BgL_nodez00_bglt)(BgL_valz00_972), BgL_envz00_19); 
BGl_samezd2typezd2zzdotnet_compilerz00(BgL_envz00_19, BgL_valz00_972, BgL_varz00_971); 
BGl_envzd2declarezd2localz00zzdotnet_envz00(BgL_envz00_19, 
(BgL_localz00_bglt)(BgL_varz00_971)); 
BGl_debugzd2declarezd2varz00zzdotnet_externz00(BgL_envz00_19, 
(BgL_localz00_bglt)(BgL_varz00_971), BgL_elabz00_965); 
BGl__storez00zzdotnet_instrz00(BgL_envz00_19, 
(BgL_localz00_bglt)(BgL_varz00_971)); } } 
{ /* ./DotNet/compiler.scm 145 */
obj_t BgL_arg3432z00_973;
BgL_arg3432z00_973 = 
CDR(BgL_l3087z00_966); 
{ 
obj_t BgL_l3087z00_2725;
BgL_l3087z00_2725 = BgL_arg3432z00_973; 
BgL_l3087z00_966 = BgL_l3087z00_2725; 
goto BgL_forzd2each3088zd2_967;} } }  else 
{ /* ./DotNet/compiler.scm 145 */((bool_t)1); } } } } 
{ /* ./DotNet/compiler.scm 153 */
BgL_nodez00_bglt BgL_arg3437z00_974;
BgL_arg3437z00_974 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_ez00_18))->BgL_bodyz00); 
PROCEDURE_ENTRY(BgL_compilerz00_20)(BgL_compilerz00_20, 
(obj_t)(BgL_arg3437z00_974), 
(obj_t)(BgL_envz00_19), BEOA); } 
if(
CBOOL(BgL_debugzf3zf3_964))
{ /* ./DotNet/compiler.scm 154 */
BGl__labelz00zzdotnet_instrz00(BgL_envz00_19, BgL_elabz00_965); }  else 
{ /* ./DotNet/compiler.scm 154 */BFALSE; } 
{ /* ./DotNet/compiler.scm 155 */
BgL_nodez00_bglt BgL_arg3442z00_975;
BgL_arg3442z00_975 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_ez00_18))->BgL_bodyz00); 
BGl_samezd2typezd2zzdotnet_compilerz00(BgL_envz00_19, 
(obj_t)(BgL_arg3442z00_975), 
(obj_t)(BgL_ez00_18)); } 
{ 
obj_t BgL_l3089z00_976;
{ /* ./DotNet/compiler.scm 156 */
obj_t BgL_arg3446z00_978;
BgL_arg3446z00_978 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_ez00_18))->BgL_bindingsz00); 
{ /* ./DotNet/compiler.scm 156 */
bool_t BgL_auxz00_2739;
BgL_l3089z00_976 = BgL_arg3446z00_978; 
BgL_forzd2each3090zd2_977:
{ /* ./DotNet/compiler.scm 156 */
bool_t BgL_test3449z00_979;
BgL_test3449z00_979 = 
PAIRP(BgL_l3089z00_976); 
if(BgL_test3449z00_979)
{ /* ./DotNet/compiler.scm 156 */
{ /* ./DotNet/compiler.scm 157 */
obj_t BgL_bz00_980;
BgL_bz00_980 = 
CAR(BgL_l3089z00_976); 
{ /* ./DotNet/compiler.scm 157 */
obj_t BgL_arg3451z00_981;
{ /* ./DotNet/compiler.scm 157 */
obj_t BgL_arg3454z00_982;
BgL_arg3454z00_982 = 
CAR(BgL_bz00_980); 
BgL_arg3451z00_981 = 
BGl_compilezd2typezd2zzdotnet_envz00(BgL_arg3454z00_982, BgL_envz00_19); } 
BGl_envzd2freezd2localz00zzdotnet_envz00(BgL_envz00_19, BgL_arg3451z00_981); } } 
{ /* ./DotNet/compiler.scm 156 */
obj_t BgL_arg3459z00_983;
BgL_arg3459z00_983 = 
CDR(BgL_l3089z00_976); 
{ 
obj_t BgL_l3089z00_2747;
BgL_l3089z00_2747 = BgL_arg3459z00_983; 
BgL_l3089z00_976 = BgL_l3089z00_2747; 
goto BgL_forzd2each3090zd2_977;} } }  else 
{ /* ./DotNet/compiler.scm 156 */
BgL_auxz00_2739 = ((bool_t)1); } } 
return 
BBOOL(BgL_auxz00_2739);} } } } } } 
}



/* _compiler-let5092 */
obj_t BGl__compilerzd2let5092zd2zzdotnet_compilerz00(obj_t BgL_envz00_2339, obj_t BgL_ez00_2340, obj_t BgL_envz00_2341, obj_t BgL_compilerz00_2342)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 140 */
return 
BGl_compilerzd2letzd2zzdotnet_compilerz00(
(BgL_letzd2varzd2_bglt)(BgL_ez00_2340), 
(BgL_envz00_bglt)(BgL_envz00_2341), BgL_compilerz00_2342);} 
}



/* compiler-setq */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2setqzd2zzdotnet_compilerz00(BgL_setqz00_bglt BgL_ez00_21, BgL_envz00_bglt BgL_envz00_22)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 161 */
{ /* ./DotNet/compiler.scm 162 */
obj_t BgL_nz00_1956;
BgL_nz00_1956 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_21)); 
if(
CBOOL(BgL_nz00_1956))
{ /* ./DotNet/compiler.scm 162 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_22, BgL_nz00_1956); }  else 
{ /* ./DotNet/compiler.scm 162 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 164 */
BgL_nodez00_bglt BgL_arg3467z00_985;
BgL_arg3467z00_985 = 
(((BgL_setqz00_bglt)CREF(BgL_ez00_21))->BgL_valuez00); 
BGl_compilezd2exprzd2zzdotnet_exprz00(BgL_arg3467z00_985, BgL_envz00_22); } 
{ /* ./DotNet/compiler.scm 165 */
BgL_nodez00_bglt BgL_arg3471z00_986;BgL_varz00_bglt BgL_arg3472z00_987;
BgL_arg3471z00_986 = 
(((BgL_setqz00_bglt)CREF(BgL_ez00_21))->BgL_valuez00); 
BgL_arg3472z00_987 = 
(((BgL_setqz00_bglt)CREF(BgL_ez00_21))->BgL_varz00); 
BGl_samezd2typezd2zzdotnet_compilerz00(BgL_envz00_22, 
(obj_t)(BgL_arg3471z00_986), 
(obj_t)(BgL_arg3472z00_987)); } 
{ /* ./DotNet/compiler.scm 166 */
BgL_variablez00_bglt BgL_variablez00_988;
{ /* ./DotNet/compiler.scm 166 */
BgL_varz00_bglt BgL_arg3488z00_992;
BgL_arg3488z00_992 = 
(((BgL_setqz00_bglt)CREF(BgL_ez00_21))->BgL_varz00); 
BgL_variablez00_988 = 
(((BgL_varz00_bglt)CREF(BgL_arg3488z00_992))->BgL_variablez00); } 
{ /* ./DotNet/compiler.scm 167 */
bool_t BgL_test3476z00_989;
{ /* ./DotNet/compiler.scm 167 */
obj_t BgL_obj1240z00_1962;
BgL_obj1240z00_1962 = 
(obj_t)(BgL_variablez00_988); 
BgL_test3476z00_989 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_1962, BGl_globalz00zzast_varz00); } 
if(BgL_test3476z00_989)
{ /* ./DotNet/compiler.scm 167 */
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./DotNet/compiler.scm 169 */
obj_t BgL_arg3478z00_990;
BgL_arg3478z00_990 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_variablez00_988), BgL_envz00_22); 
BGl__checkcastz00zzdotnet_instrz00(BgL_envz00_22, BgL_arg3478z00_990); }  else 
{ /* ./DotNet/compiler.scm 169 */BFALSE; } 
{ /* ./DotNet/compiler.scm 170 */
obj_t BgL_arg3482z00_991;
BgL_arg3482z00_991 = 
BGl_getzd2globalzd2namez00zzdotnet_envz00(BgL_envz00_22, 
(BgL_globalz00_bglt)(BgL_variablez00_988)); 
return 
BGl__putstaticz00zzdotnet_instrz00(BgL_envz00_22, BgL_arg3482z00_991);} }  else 
{ /* ./DotNet/compiler.scm 167 */
return 
BGl__storez00zzdotnet_instrz00(BgL_envz00_22, 
(BgL_localz00_bglt)(BgL_variablez00_988));} } } } 
}



/* _compiler-setq5094 */
obj_t BGl__compilerzd2setq5094zd2zzdotnet_compilerz00(obj_t BgL_envz00_2343, obj_t BgL_ez00_2344, obj_t BgL_envz00_2345)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 161 */
return 
BGl_compilerzd2setqzd2zzdotnet_compilerz00(
(BgL_setqz00_bglt)(BgL_ez00_2344), 
(BgL_envz00_bglt)(BgL_envz00_2345));} 
}



/* compiler-sequence */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2sequencezd2zzdotnet_compilerz00(BgL_sequencez00_bglt BgL_ez00_23, BgL_envz00_bglt BgL_envz00_24, obj_t BgL_compilerz00_25)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 174 */
{ /* ./DotNet/compiler.scm 175 */
obj_t BgL_nz00_1965;
BgL_nz00_1965 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_23)); 
if(
CBOOL(BgL_nz00_1965))
{ /* ./DotNet/compiler.scm 175 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_24, BgL_nz00_1965); }  else 
{ /* ./DotNet/compiler.scm 175 */
CNST_TABLE_REF(((long)3)); } } 
{ 
obj_t BgL_lz00_998;obj_t BgL_nextz00_999;
{ /* ./DotNet/compiler.scm 184 */
obj_t BgL_arg3493z00_995;obj_t BgL_arg3495z00_996;
BgL_arg3493z00_995 = 
(((BgL_sequencez00_bglt)CREF(BgL_ez00_23))->BgL_nodesz00); 
{ /* ./DotNet/compiler.scm 184 */
obj_t BgL_auxz00_2790;
BgL_auxz00_2790 = 
(((BgL_sequencez00_bglt)CREF(BgL_ez00_23))->BgL_nodesz00); 
BgL_arg3495z00_996 = 
CDR(BgL_auxz00_2790); } 
BgL_lz00_998 = BgL_arg3493z00_995; 
BgL_nextz00_999 = BgL_arg3495z00_996; 
BgL_zc3anonymousza33502ze3z83_1000:
{ /* ./DotNet/compiler.scm 178 */
bool_t BgL_test3503z00_1001;
BgL_test3503z00_1001 = 
NULLP(BgL_nextz00_999); 
if(BgL_test3503z00_1001)
{ /* ./DotNet/compiler.scm 178 */
{ /* ./DotNet/compiler.scm 180 */
obj_t BgL_arg3506z00_1002;
BgL_arg3506z00_1002 = 
CAR(BgL_lz00_998); 
PROCEDURE_ENTRY(BgL_compilerz00_25)(BgL_compilerz00_25, BgL_arg3506z00_1002, 
(obj_t)(BgL_envz00_24), BEOA); } 
{ /* ./DotNet/compiler.scm 181 */
obj_t BgL_arg3510z00_1003;
BgL_arg3510z00_1003 = 
CAR(BgL_lz00_998); 
return 
BGl_samezd2typezd2zzdotnet_compilerz00(BgL_envz00_24, BgL_arg3510z00_1003, 
(obj_t)(BgL_ez00_23));} }  else 
{ /* ./DotNet/compiler.scm 178 */
{ /* ./DotNet/compiler.scm 182 */
obj_t BgL_arg3514z00_1004;
BgL_arg3514z00_1004 = 
CAR(BgL_lz00_998); 
BGl_compilezd2effectzd2zzdotnet_effectz00(
(BgL_nodez00_bglt)(BgL_arg3514z00_1004), BgL_envz00_24); } 
{ /* ./DotNet/compiler.scm 183 */
obj_t BgL_arg3518z00_1005;
BgL_arg3518z00_1005 = 
CDR(BgL_nextz00_999); 
{ 
obj_t BgL_nextz00_2807;obj_t BgL_lz00_2806;
BgL_lz00_2806 = BgL_nextz00_999; 
BgL_nextz00_2807 = BgL_arg3518z00_1005; 
BgL_nextz00_999 = BgL_nextz00_2807; 
BgL_lz00_998 = BgL_lz00_2806; 
goto BgL_zc3anonymousza33502ze3z83_1000;} } } } } } } 
}



/* _compiler-sequence5096 */
obj_t BGl__compilerzd2sequence5096zd2zzdotnet_compilerz00(obj_t BgL_envz00_2346, obj_t BgL_ez00_2347, obj_t BgL_envz00_2348, obj_t BgL_compilerz00_2349)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 174 */
return 
BGl_compilerzd2sequencezd2zzdotnet_compilerz00(
(BgL_sequencez00_bglt)(BgL_ez00_2347), 
(BgL_envz00_bglt)(BgL_envz00_2348), BgL_compilerz00_2349);} 
}



/* compiler-if */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2ifzd2zzdotnet_compilerz00(BgL_conditionalz00_bglt BgL_ez00_26, BgL_envz00_bglt BgL_envz00_27, obj_t BgL_compilerz00_28)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 187 */
{ /* ./DotNet/compiler.scm 188 */
obj_t BgL_nz00_1976;
BgL_nz00_1976 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_26)); 
if(
CBOOL(BgL_nz00_1976))
{ /* ./DotNet/compiler.scm 188 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_27, BgL_nz00_1976); }  else 
{ /* ./DotNet/compiler.scm 188 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 190 */
obj_t BgL_ltruez00_1008;obj_t BgL_lfalsez00_1009;obj_t BgL_lcontz00_1010;
BgL_ltruez00_1008 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string5544z00zzdotnet_compilerz00, BEOA); 
BgL_lfalsez00_1009 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string5544z00zzdotnet_compilerz00, BEOA); 
BgL_lcontz00_1010 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string5544z00zzdotnet_compilerz00, BEOA); 
{ /* ./DotNet/compiler.scm 191 */
BgL_nodez00_bglt BgL_arg3524z00_1011;
BgL_arg3524z00_1011 = 
(((BgL_conditionalz00_bglt)CREF(BgL_ez00_26))->BgL_testz00); 
BGl_compilezd2predicatezd2zzdotnet_predicatez00(BgL_arg3524z00_1011, BgL_ltruez00_1008, BgL_lfalsez00_1009, BgL_envz00_27); } 
{ /* ./DotNet/compiler.scm 192 */
obj_t BgL_stackz00_1012;
BgL_stackz00_1012 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_27))->BgL_stackz00); 
BGl__labelz00zzdotnet_instrz00(BgL_envz00_27, BgL_ltruez00_1008); 
{ /* ./DotNet/compiler.scm 194 */
BgL_nodez00_bglt BgL_arg3529z00_1013;
BgL_arg3529z00_1013 = 
(((BgL_conditionalz00_bglt)CREF(BgL_ez00_26))->BgL_truez00); 
PROCEDURE_ENTRY(BgL_compilerz00_28)(BgL_compilerz00_28, 
(obj_t)(BgL_arg3529z00_1013), 
(obj_t)(BgL_envz00_27), BEOA); } 
{ /* ./DotNet/compiler.scm 195 */
BgL_nodez00_bglt BgL_arg3533z00_1014;
BgL_arg3533z00_1014 = 
(((BgL_conditionalz00_bglt)CREF(BgL_ez00_26))->BgL_truez00); 
BGl__dotcheckcastz00zzdotnet_instrz00(BgL_envz00_27, 
(obj_t)(BgL_arg3533z00_1014), 
(obj_t)(BgL_ez00_26)); } 
{ /* ./DotNet/compiler.scm 196 */
BgL_nodez00_bglt BgL_arg3537z00_1015;
BgL_arg3537z00_1015 = 
(((BgL_conditionalz00_bglt)CREF(BgL_ez00_26))->BgL_truez00); 
BGl_samezd2typezd2zzdotnet_compilerz00(BgL_envz00_27, 
(obj_t)(BgL_arg3537z00_1015), 
(obj_t)(BgL_ez00_26)); } 
{ /* ./DotNet/compiler.scm 197 */
obj_t BgL_rstackz00_1016;
BgL_rstackz00_1016 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_27))->BgL_stackz00); 
BGl__gotoz00zzdotnet_instrz00(BgL_envz00_27, BgL_lcontz00_1010); 
{ /* ./DotNet/compiler.scm 199 */
BgL_envz00_bglt BgL_obj3024z00_1983;obj_t BgL_val3023z00_1984;
BgL_obj3024z00_1983 = BgL_envz00_27; 
BgL_val3023z00_1984 = BgL_stackz00_1012; 
((((BgL_envz00_bglt)CREF(BgL_obj3024z00_1983))->BgL_stackz00) = ((obj_t)BgL_val3023z00_1984), BUNSPEC); } 
BGl__labelz00zzdotnet_instrz00(BgL_envz00_27, BgL_lfalsez00_1009); 
{ /* ./DotNet/compiler.scm 201 */
BgL_nodez00_bglt BgL_arg3544z00_1017;
BgL_arg3544z00_1017 = 
(((BgL_conditionalz00_bglt)CREF(BgL_ez00_26))->BgL_falsez00); 
PROCEDURE_ENTRY(BgL_compilerz00_28)(BgL_compilerz00_28, 
(obj_t)(BgL_arg3544z00_1017), 
(obj_t)(BgL_envz00_27), BEOA); } 
{ /* ./DotNet/compiler.scm 202 */
BgL_nodez00_bglt BgL_arg3548z00_1018;
BgL_arg3548z00_1018 = 
(((BgL_conditionalz00_bglt)CREF(BgL_ez00_26))->BgL_falsez00); 
BGl__dotcheckcastz00zzdotnet_instrz00(BgL_envz00_27, 
(obj_t)(BgL_arg3548z00_1018), 
(obj_t)(BgL_ez00_26)); } 
{ /* ./DotNet/compiler.scm 203 */
BgL_nodez00_bglt BgL_arg3552z00_1019;
BgL_arg3552z00_1019 = 
(((BgL_conditionalz00_bglt)CREF(BgL_ez00_26))->BgL_falsez00); 
BGl_samezd2typezd2zzdotnet_compilerz00(BgL_envz00_27, 
(obj_t)(BgL_arg3552z00_1019), 
(obj_t)(BgL_ez00_26)); } 
{ /* ./DotNet/compiler.scm 204 */
obj_t BgL_rrstackz00_1020;
BgL_rrstackz00_1020 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_27))->BgL_stackz00); 
{ /* ./DotNet/compiler.scm 205 */
bool_t BgL_test3555z00_1021;
if(
NULLP(BgL_rrstackz00_1020))
{ /* ./DotNet/compiler.scm 205 */
BgL_test3555z00_1021 = ((bool_t)0); }  else 
{ /* ./DotNet/compiler.scm 205 */
obj_t BgL_auxz00_2862;obj_t BgL_auxz00_2860;
BgL_auxz00_2862 = 
CNST_TABLE_REF(((long)22)); 
BgL_auxz00_2860 = 
CAR(BgL_rrstackz00_1020); 
BgL_test3555z00_1021 = 
(BgL_auxz00_2860==BgL_auxz00_2862); } 
if(BgL_test3555z00_1021)
{ /* ./DotNet/compiler.scm 206 */
BgL_envz00_bglt BgL_obj3024z00_1991;obj_t BgL_val3023z00_1992;
BgL_obj3024z00_1991 = BgL_envz00_27; 
BgL_val3023z00_1992 = BgL_rstackz00_1016; 
((((BgL_envz00_bglt)CREF(BgL_obj3024z00_1991))->BgL_stackz00) = ((obj_t)BgL_val3023z00_1992), BUNSPEC); }  else 
{ /* ./DotNet/compiler.scm 205 */BFALSE; } } 
return 
BGl__labelz00zzdotnet_instrz00(BgL_envz00_27, BgL_lcontz00_1010);} } } } } 
}



/* _compiler-if5098 */
obj_t BGl__compilerzd2if5098zd2zzdotnet_compilerz00(obj_t BgL_envz00_2350, obj_t BgL_ez00_2351, obj_t BgL_envz00_2352, obj_t BgL_compilerz00_2353)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 187 */
return 
BGl_compilerzd2ifzd2zzdotnet_compilerz00(
(BgL_conditionalz00_bglt)(BgL_ez00_2351), 
(BgL_envz00_bglt)(BgL_envz00_2352), BgL_compilerz00_2353);} 
}



/* compiler-select */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2selectzd2zzdotnet_compilerz00(BgL_selectz00_bglt BgL_ez00_29, BgL_envz00_bglt BgL_envz00_30, obj_t BgL_compilerz00_31)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 210 */
{ /* ./DotNet/compiler.scm 211 */
obj_t BgL_nz00_1995;
BgL_nz00_1995 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_29)); 
if(
CBOOL(BgL_nz00_1995))
{ /* ./DotNet/compiler.scm 211 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_30, BgL_nz00_1995); }  else 
{ /* ./DotNet/compiler.scm 211 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 214 */
BgL_nodez00_bglt BgL_arg3573z00_1027;
BgL_arg3573z00_1027 = 
(((BgL_selectz00_bglt)CREF(BgL_ez00_29))->BgL_testz00); 
BGl_compilezd2exprzd2zzdotnet_exprz00(BgL_arg3573z00_1027, BgL_envz00_30); } 
{ /* ./DotNet/compiler.scm 215 */
bool_t BgL_test3576z00_1028;
{ 
obj_t BgL_l3100z00_1036;
BgL_l3100z00_1036 = 
(((BgL_selectz00_bglt)CREF(BgL_ez00_29))->BgL_clausesz00); 
BgL_every3101z00_1037:
if(
NULLP(BgL_l3100z00_1036))
{ /* ./DotNet/compiler.scm 215 */
BgL_test3576z00_1028 = ((bool_t)1); }  else 
{ /* ./DotNet/compiler.scm 215 */
bool_t BgL_testz00_2881;
{ /* ./DotNet/compiler.scm 215 */
obj_t BgL_cz00_1042;
BgL_cz00_1042 = 
CAR(BgL_l3100z00_1036); 
{ /* ./DotNet/compiler.scm 215 */
bool_t BgL__ortest_3102z00_1043;
{ /* ./DotNet/compiler.scm 215 */
obj_t BgL_auxz00_2885;obj_t BgL_auxz00_2883;
BgL_auxz00_2885 = 
CNST_TABLE_REF(((long)23)); 
BgL_auxz00_2883 = 
CAR(BgL_cz00_1042); 
BgL__ortest_3102z00_1043 = 
(BgL_auxz00_2883==BgL_auxz00_2885); } 
if(BgL__ortest_3102z00_1043)
{ /* ./DotNet/compiler.scm 215 */
BgL_testz00_2881 = BgL__ortest_3102z00_1043
; }  else 
{ 
obj_t BgL_l3103z00_1044;
BgL_l3103z00_1044 = 
CAR(BgL_cz00_1042); 
BgL_every3104z00_1045:
if(
NULLP(BgL_l3103z00_1044))
{ /* ./DotNet/compiler.scm 216 */
BgL_testz00_2881 = ((bool_t)1); }  else 
{ /* ./DotNet/compiler.scm 216 */
bool_t BgL_testz00_2891;
{ /* ./DotNet/compiler.scm 216 */
obj_t BgL_arg3618z00_1050;
BgL_arg3618z00_1050 = 
CAR(BgL_l3103z00_1044); 
{ /* ./DotNet/compiler.scm 216 */
bool_t BgL__ortest_3097z00_2005;
BgL__ortest_3097z00_2005 = 
INTEGERP(BgL_arg3618z00_1050); 
if(BgL__ortest_3097z00_2005)
{ /* ./DotNet/compiler.scm 216 */
BgL_testz00_2891 = BgL__ortest_3097z00_2005
; }  else 
{ /* ./DotNet/compiler.scm 216 */
BgL_testz00_2891 = 
CHARP(BgL_arg3618z00_1050)
; } } } 
if(BgL_testz00_2891)
{ /* ./DotNet/compiler.scm 216 */
{ 
obj_t BgL_l3103z00_2896;
BgL_l3103z00_2896 = 
CDR(BgL_l3103z00_1044); 
BgL_l3103z00_1044 = BgL_l3103z00_2896; 
goto BgL_every3104z00_1045;} }  else 
{ /* ./DotNet/compiler.scm 216 */
BgL_testz00_2881 = ((bool_t)0); } } } } } 
if(BgL_testz00_2881)
{ /* ./DotNet/compiler.scm 215 */
{ 
obj_t BgL_l3100z00_2899;
BgL_l3100z00_2899 = 
CDR(BgL_l3100z00_1036); 
BgL_l3100z00_1036 = BgL_l3100z00_2899; 
goto BgL_every3101z00_1037;} }  else 
{ /* ./DotNet/compiler.scm 215 */
BgL_test3576z00_1028 = ((bool_t)0); } } } 
if(BgL_test3576z00_1028)
{ /* ./DotNet/compiler.scm 218 */
obj_t BgL_arg3578z00_1029;obj_t BgL_arg3579z00_1030;
{ /* ./DotNet/compiler.scm 218 */
BgL_typez00_bglt BgL_arg3582z00_1031;
BgL_arg3582z00_1031 = 
(((BgL_selectz00_bglt)CREF(BgL_ez00_29))->BgL_itemzd2typezd2); 
BgL_arg3578z00_1029 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_arg3582z00_1031), BgL_envz00_30); } 
BgL_arg3579z00_1030 = 
(((BgL_selectz00_bglt)CREF(BgL_ez00_29))->BgL_clausesz00); 
return 
BGl_selectzd2intzd2zzdotnet_compilerz00(BgL_envz00_30, BgL_arg3578z00_1029, BgL_arg3579z00_1030, BgL_compilerz00_31, BgL_ez00_29);}  else 
{ /* ./DotNet/compiler.scm 219 */
obj_t BgL_arg3590z00_1034;
{ /* ./DotNet/compiler.scm 219 */
BgL_typez00_bglt BgL_arg3593z00_1035;
BgL_arg3593z00_1035 = 
(((BgL_selectz00_bglt)CREF(BgL_ez00_29))->BgL_itemzd2typezd2); 
BgL_arg3590z00_1034 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_arg3593z00_1035), BgL_envz00_30); } 
FAILURE(BGl_string5545z00zzdotnet_compilerz00,BGl_string5546z00zzdotnet_compilerz00,BgL_arg3590z00_1034);} } } 
}



/* _compiler-select5100 */
obj_t BGl__compilerzd2select5100zd2zzdotnet_compilerz00(obj_t BgL_envz00_2354, obj_t BgL_ez00_2355, obj_t BgL_envz00_2356, obj_t BgL_compilerz00_2357)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 210 */
return 
BGl_compilerzd2selectzd2zzdotnet_compilerz00(
(BgL_selectz00_bglt)(BgL_ez00_2355), 
(BgL_envz00_bglt)(BgL_envz00_2356), BgL_compilerz00_2357);} 
}



/* select-int */
obj_t BGl_selectzd2intzd2zzdotnet_compilerz00(BgL_envz00_bglt BgL_envz00_32, obj_t BgL_itemzd2typezd2_33, obj_t BgL_clausesz00_34, obj_t BgL_compz00_35, BgL_selectz00_bglt BgL_ez00_36)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 221 */
{ 
obj_t BgL_nz00_1093;
{ /* ./DotNet/compiler.scm 226 */
bool_t BgL_test3632z00_1058;
{ /* ./DotNet/compiler.scm 226 */
obj_t BgL_auxz00_2915;
BgL_auxz00_2915 = 
CNST_TABLE_REF(((long)24)); 
BgL_test3632z00_1058 = 
(BgL_itemzd2typezd2_33==BgL_auxz00_2915); } 
if(BgL_test3632z00_1058)
{ /* ./DotNet/compiler.scm 226 */
BGl__l2iz00zzdotnet_instrz00(BgL_envz00_32); }  else 
{ /* ./DotNet/compiler.scm 226 */BFALSE; } } 
{ /* ./DotNet/compiler.scm 227 */
obj_t BgL_ldefz00_1059;obj_t BgL_lcontz00_1060;obj_t BgL_dz00_1061;obj_t BgL_num2labz00_1062;obj_t BgL_lab2nodez00_1063;
BgL_ldefz00_1059 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string5544z00zzdotnet_compilerz00, BEOA); 
BgL_lcontz00_1060 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string5544z00zzdotnet_compilerz00, BEOA); 
BgL_dz00_1061 = BFALSE; 
BgL_num2labz00_1062 = BNIL; 
BgL_lab2nodez00_1063 = BNIL; 
{ 
obj_t BgL_l3105z00_1064;
BgL_l3105z00_1064 = BgL_clausesz00_34; 
BgL_forzd2each3106zd2_1065:
{ /* ./DotNet/compiler.scm 229 */
bool_t BgL_test3636z00_1066;
BgL_test3636z00_1066 = 
PAIRP(BgL_l3105z00_1064); 
if(BgL_test3636z00_1066)
{ /* ./DotNet/compiler.scm 229 */
{ /* ./DotNet/compiler.scm 231 */
obj_t BgL_cz00_1067;
BgL_cz00_1067 = 
CAR(BgL_l3105z00_1064); 
{ /* ./DotNet/compiler.scm 231 */
bool_t BgL_test3637z00_1068;
{ /* ./DotNet/compiler.scm 231 */
obj_t BgL_auxz00_2929;obj_t BgL_auxz00_2927;
BgL_auxz00_2929 = 
CNST_TABLE_REF(((long)23)); 
BgL_auxz00_2927 = 
CAR(BgL_cz00_1067); 
BgL_test3637z00_1068 = 
(BgL_auxz00_2927==BgL_auxz00_2929); } 
if(BgL_test3637z00_1068)
{ /* ./DotNet/compiler.scm 231 */
BgL_dz00_1061 = 
CDR(BgL_cz00_1067); }  else 
{ /* ./DotNet/compiler.scm 233 */
obj_t BgL_labz00_1069;
BgL_labz00_1069 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string5544z00zzdotnet_compilerz00, BEOA); 
{ 
obj_t BgL_l3107z00_1070;
{ /* ./DotNet/compiler.scm 236 */
obj_t BgL_arg3640z00_1072;
BgL_arg3640z00_1072 = 
CAR(BgL_cz00_1067); 
BgL_l3107z00_1070 = BgL_arg3640z00_1072; 
BgL_forzd2each3108zd2_1071:
{ /* ./DotNet/compiler.scm 234 */
bool_t BgL_test3643z00_1073;
BgL_test3643z00_1073 = 
PAIRP(BgL_l3107z00_1070); 
if(BgL_test3643z00_1073)
{ /* ./DotNet/compiler.scm 234 */
{ /* ./DotNet/compiler.scm 235 */
obj_t BgL_nz00_1074;
BgL_nz00_1074 = 
CAR(BgL_l3107z00_1070); 
{ /* ./DotNet/compiler.scm 235 */
obj_t BgL_arg3645z00_1075;
{ /* ./DotNet/compiler.scm 235 */
obj_t BgL_arg3648z00_1076;
BgL_nz00_1093 = BgL_nz00_1074; 
{ /* ./DotNet/compiler.scm 223 */
bool_t BgL_test3713z00_1095;
BgL_test3713z00_1095 = 
INTEGERP(BgL_nz00_1093); 
if(BgL_test3713z00_1095)
{ /* ./DotNet/compiler.scm 223 */
BgL_arg3648z00_1076 = BgL_nz00_1093; }  else 
{ /* ./DotNet/compiler.scm 224 */
bool_t BgL_test3714z00_1096;
BgL_test3714z00_1096 = 
CHARP(BgL_nz00_1093); 
if(BgL_test3714z00_1096)
{ /* ./DotNet/compiler.scm 224 */
{ /* ./DotNet/compiler.scm 224 */
long BgL_auxz00_2944;
{ /* ./DotNet/compiler.scm 224 */
unsigned char BgL_auxz00_2945;
BgL_auxz00_2945 = 
(unsigned char)CCHAR(BgL_nz00_1093); 
BgL_auxz00_2944 = 
(BgL_auxz00_2945); } 
BgL_arg3648z00_1076 = 
BINT(BgL_auxz00_2944); } }  else 
{ /* ./DotNet/compiler.scm 224 */
FAILURE(BGl_string5545z00zzdotnet_compilerz00,BGl_string5547z00zzdotnet_compilerz00,BgL_nz00_1093);} } } 
BgL_arg3645z00_1075 = 
MAKE_PAIR(BgL_arg3648z00_1076, BgL_labz00_1069); } 
BgL_num2labz00_1062 = 
MAKE_PAIR(BgL_arg3645z00_1075, BgL_num2labz00_1062); } } 
{ /* ./DotNet/compiler.scm 234 */
obj_t BgL_arg3653z00_1077;
BgL_arg3653z00_1077 = 
CDR(BgL_l3107z00_1070); 
{ 
obj_t BgL_l3107z00_2953;
BgL_l3107z00_2953 = BgL_arg3653z00_1077; 
BgL_l3107z00_1070 = BgL_l3107z00_2953; 
goto BgL_forzd2each3108zd2_1071;} } }  else 
{ /* ./DotNet/compiler.scm 234 */((bool_t)1); } } } } 
{ /* ./DotNet/compiler.scm 237 */
obj_t BgL_arg3658z00_1078;
{ /* ./DotNet/compiler.scm 237 */
obj_t BgL_arg3661z00_1079;
BgL_arg3661z00_1079 = 
CDR(BgL_cz00_1067); 
BgL_arg3658z00_1078 = 
MAKE_PAIR(BgL_labz00_1069, BgL_arg3661z00_1079); } 
BgL_lab2nodez00_1063 = 
MAKE_PAIR(BgL_arg3658z00_1078, BgL_lab2nodez00_1063); } } } } 
{ /* ./DotNet/compiler.scm 229 */
obj_t BgL_arg3672z00_1082;
BgL_arg3672z00_1082 = 
CDR(BgL_l3105z00_1064); 
{ 
obj_t BgL_l3105z00_2958;
BgL_l3105z00_2958 = BgL_arg3672z00_1082; 
BgL_l3105z00_1064 = BgL_l3105z00_2958; 
goto BgL_forzd2each3106zd2_1065;} } }  else 
{ /* ./DotNet/compiler.scm 229 */((bool_t)1); } } } 
BGl__switchz00zzdotnet_instrz00(BgL_envz00_32, BgL_ldefz00_1059, BgL_num2labz00_1062); 
{ /* ./DotNet/compiler.scm 240 */
obj_t BgL_stackz00_1083;
BgL_stackz00_1083 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_32))->BgL_stackz00); 
{ 
obj_t BgL_l3109z00_1084;
BgL_l3109z00_1084 = BgL_lab2nodez00_1063; 
BgL_forzd2each3110zd2_1085:
{ /* ./DotNet/compiler.scm 241 */
bool_t BgL_test3678z00_1086;
BgL_test3678z00_1086 = 
PAIRP(BgL_l3109z00_1084); 
if(BgL_test3678z00_1086)
{ /* ./DotNet/compiler.scm 241 */
{ /* ./DotNet/compiler.scm 242 */
obj_t BgL_slotz00_1087;
BgL_slotz00_1087 = 
CAR(BgL_l3109z00_1084); 
{ /* ./DotNet/compiler.scm 242 */
obj_t BgL_arg3681z00_1088;
BgL_arg3681z00_1088 = 
CAR(BgL_slotz00_1087); 
BGl__labelz00zzdotnet_instrz00(BgL_envz00_32, BgL_arg3681z00_1088); } 
{ /* ./DotNet/compiler.scm 243 */
BgL_envz00_bglt BgL_obj3024z00_2033;obj_t BgL_val3023z00_2034;
BgL_obj3024z00_2033 = BgL_envz00_32; 
BgL_val3023z00_2034 = BgL_stackz00_1083; 
((((BgL_envz00_bglt)CREF(BgL_obj3024z00_2033))->BgL_stackz00) = ((obj_t)BgL_val3023z00_2034), BUNSPEC); } 
{ /* ./DotNet/compiler.scm 244 */
obj_t BgL_arg3686z00_1089;
BgL_arg3686z00_1089 = 
CDR(BgL_slotz00_1087); 
PROCEDURE_ENTRY(BgL_compz00_35)(BgL_compz00_35, BgL_arg3686z00_1089, 
(obj_t)(BgL_envz00_32), BEOA); } 
{ /* ./DotNet/compiler.scm 245 */
obj_t BgL_arg3690z00_1090;
BgL_arg3690z00_1090 = 
CDR(BgL_slotz00_1087); 
BGl__dotcheckcastz00zzdotnet_instrz00(BgL_envz00_32, BgL_arg3690z00_1090, 
(obj_t)(BgL_ez00_36)); } 
{ /* ./DotNet/compiler.scm 246 */
obj_t BgL_arg3694z00_1091;
BgL_arg3694z00_1091 = 
CDR(BgL_slotz00_1087); 
BGl_samezd2typezd2zzdotnet_compilerz00(BgL_envz00_32, BgL_arg3694z00_1091, 
(obj_t)(BgL_ez00_36)); } 
BGl__gotoz00zzdotnet_instrz00(BgL_envz00_32, BgL_lcontz00_1060); } 
{ /* ./DotNet/compiler.scm 241 */
obj_t BgL_arg3700z00_1092;
BgL_arg3700z00_1092 = 
CDR(BgL_l3109z00_1084); 
{ 
obj_t BgL_l3109z00_2979;
BgL_l3109z00_2979 = BgL_arg3700z00_1092; 
BgL_l3109z00_1084 = BgL_l3109z00_2979; 
goto BgL_forzd2each3110zd2_1085;} } }  else 
{ /* ./DotNet/compiler.scm 241 */((bool_t)1); } } } 
BGl__labelz00zzdotnet_instrz00(BgL_envz00_32, BgL_ldefz00_1059); 
if(
CBOOL(BgL_dz00_1061))
{ /* ./DotNet/compiler.scm 250 */
{ /* ./DotNet/compiler.scm 250 */
BgL_envz00_bglt BgL_obj3024z00_2039;obj_t BgL_val3023z00_2040;
BgL_obj3024z00_2039 = BgL_envz00_32; 
BgL_val3023z00_2040 = BgL_stackz00_1083; 
((((BgL_envz00_bglt)CREF(BgL_obj3024z00_2039))->BgL_stackz00) = ((obj_t)BgL_val3023z00_2040), BUNSPEC); } 
PROCEDURE_ENTRY(BgL_compz00_35)(BgL_compz00_35, BgL_dz00_1061, 
(obj_t)(BgL_envz00_32), BEOA); 
BGl_samezd2typezd2zzdotnet_compilerz00(BgL_envz00_32, BgL_dz00_1061, 
(obj_t)(BgL_ez00_36)); }  else 
{ /* ./DotNet/compiler.scm 250 */BFALSE; } 
return 
BGl__labelz00zzdotnet_instrz00(BgL_envz00_32, BgL_lcontz00_1060);} } } } 
}



/* compiler-labels */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2labelszd2zzdotnet_compilerz00(BgL_letzd2funzd2_bglt BgL_ez00_37, BgL_envz00_bglt BgL_envz00_38, obj_t BgL_compz00_39)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 256 */
{ /* ./DotNet/compiler.scm 257 */
obj_t BgL_nz00_2049;
BgL_nz00_2049 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_37)); 
if(
CBOOL(BgL_nz00_2049))
{ /* ./DotNet/compiler.scm 257 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_38, BgL_nz00_2049); }  else 
{ /* ./DotNet/compiler.scm 257 */
CNST_TABLE_REF(((long)3)); } } 
{ 
obj_t BgL_l3113z00_1099;
{ /* ./DotNet/compiler.scm 259 */
obj_t BgL_arg3721z00_1101;
BgL_arg3721z00_1101 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_ez00_37))->BgL_localsz00); 
BgL_l3113z00_1099 = BgL_arg3721z00_1101; 
BgL_forzd2each3114zd2_1100:
{ /* ./DotNet/compiler.scm 259 */
bool_t BgL_test3724z00_1102;
BgL_test3724z00_1102 = 
PAIRP(BgL_l3113z00_1099); 
if(BgL_test3724z00_1102)
{ /* ./DotNet/compiler.scm 259 */
{ /* ./DotNet/compiler.scm 261 */
obj_t BgL_vz00_1103;
BgL_vz00_1103 = 
CAR(BgL_l3113z00_1099); 
BGl_envzd2setzd2namez12z12zzdotnet_envz00(BgL_envz00_38, 
(BgL_localz00_bglt)(BgL_vz00_1103), 
CNST_TABLE_REF(((long)25))); 
{ /* ./DotNet/compiler.scm 262 */
obj_t BgL_arg3728z00_1104;
{ /* ./DotNet/compiler.scm 262 */
obj_t BgL_auxz00_3003;
BgL_auxz00_3003 = 
(obj_t)(BgL_ez00_37); 
BgL_arg3728z00_1104 = 
MAKE_PAIR(BgL_vz00_1103, BgL_auxz00_3003); } 
BGl_za2lab2labelsza2z00zzdotnet_compilerz00 = 
MAKE_PAIR(BgL_arg3728z00_1104, BGl_za2lab2labelsza2z00zzdotnet_compilerz00); } } 
{ /* ./DotNet/compiler.scm 259 */
obj_t BgL_arg3733z00_1105;
BgL_arg3733z00_1105 = 
CDR(BgL_l3113z00_1099); 
{ 
obj_t BgL_l3113z00_3008;
BgL_l3113z00_3008 = BgL_arg3733z00_1105; 
BgL_l3113z00_1099 = BgL_l3113z00_3008; 
goto BgL_forzd2each3114zd2_1100;} } }  else 
{ /* ./DotNet/compiler.scm 259 */((bool_t)1); } } } } 
{ /* ./DotNet/compiler.scm 264 */
obj_t BgL_arg3738z00_1106;
{ /* ./DotNet/compiler.scm 264 */
obj_t BgL_auxz00_3009;
BgL_auxz00_3009 = 
(obj_t)(BgL_ez00_37); 
BgL_arg3738z00_1106 = 
MAKE_PAIR(BgL_auxz00_3009, BNIL); } 
BGl_za2labels2savedza2z00zzdotnet_compilerz00 = 
MAKE_PAIR(BgL_arg3738z00_1106, BGl_za2labels2savedza2z00zzdotnet_compilerz00); } 
{ /* ./DotNet/compiler.scm 265 */
BgL_nodez00_bglt BgL_arg3742z00_1107;
BgL_arg3742z00_1107 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_ez00_37))->BgL_bodyz00); 
return 
PROCEDURE_ENTRY(BgL_compz00_39)(BgL_compz00_39, 
(obj_t)(BgL_arg3742z00_1107), 
(obj_t)(BgL_envz00_38), BEOA);} } 
}



/* _compiler-labels5102 */
obj_t BGl__compilerzd2labels5102zd2zzdotnet_compilerz00(obj_t BgL_envz00_2358, obj_t BgL_ez00_2359, obj_t BgL_envz00_2360, obj_t BgL_compz00_2361)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 256 */
return 
BGl_compilerzd2labelszd2zzdotnet_compilerz00(
(BgL_letzd2funzd2_bglt)(BgL_ez00_2359), 
(BgL_envz00_bglt)(BgL_envz00_2360), BgL_compz00_2361);} 
}



/* compile-label-call */
obj_t BGl_compilezd2labelzd2callz00zzdotnet_compilerz00(BgL_variablez00_bglt BgL_localz00_40, obj_t BgL_argsz00_41, BgL_envz00_bglt BgL_envz00_42, obj_t BgL_compz00_43)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 271 */
{ /* ./DotNet/compiler.scm 273 */
obj_t BgL_stkz00_1108;
BgL_stkz00_1108 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_42))->BgL_stackz00); 
{ 
obj_t BgL_ll3115z00_1110;obj_t BgL_ll3116z00_1111;
{ /* ./DotNet/compiler.scm 280 */
obj_t BgL_arg3746z00_1113;
{ /* ./DotNet/compiler.scm 281 */
BgL_sfunz00_bglt BgL_obj1367z00_2057;
{ /* ./DotNet/compiler.scm 281 */
BgL_valuez00_bglt BgL_auxz00_3022;
BgL_auxz00_3022 = 
(((BgL_variablez00_bglt)CREF(BgL_localz00_40))->BgL_valuez00); 
BgL_obj1367z00_2057 = 
(BgL_sfunz00_bglt)(BgL_auxz00_3022); } 
BgL_arg3746z00_1113 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_2057))->BgL_argsz00); } 
BgL_ll3115z00_1110 = BgL_argsz00_41; 
BgL_ll3116z00_1111 = BgL_arg3746z00_1113; 
BgL_forzd2each3117zd2_1112:
{ /* ./DotNet/compiler.scm 275 */
bool_t BgL_test3750z00_1116;
BgL_test3750z00_1116 = 
NULLP(BgL_ll3115z00_1110); 
if(BgL_test3750z00_1116)
{ /* ./DotNet/compiler.scm 275 */((bool_t)1); }  else 
{ /* ./DotNet/compiler.scm 275 */
{ /* ./DotNet/compiler.scm 277 */
obj_t BgL_ez00_1117;obj_t BgL_varz00_1118;
BgL_ez00_1117 = 
CAR(BgL_ll3115z00_1110); 
BgL_varz00_1118 = 
CAR(BgL_ll3116z00_1111); 
BGl_compilezd2exprzd2zzdotnet_exprz00(
(BgL_nodez00_bglt)(BgL_ez00_1117), BgL_envz00_42); 
BGl__dotcheckcastz00zzdotnet_instrz00(BgL_envz00_42, BgL_ez00_1117, BgL_varz00_1118); } 
{ /* ./DotNet/compiler.scm 275 */
obj_t BgL_arg3756z00_1119;obj_t BgL_arg3757z00_1120;
BgL_arg3756z00_1119 = 
CDR(BgL_ll3115z00_1110); 
BgL_arg3757z00_1120 = 
CDR(BgL_ll3116z00_1111); 
{ 
obj_t BgL_ll3116z00_3036;obj_t BgL_ll3115z00_3035;
BgL_ll3115z00_3035 = BgL_arg3756z00_1119; 
BgL_ll3116z00_3036 = BgL_arg3757z00_1120; 
BgL_ll3116z00_1111 = BgL_ll3116z00_3036; 
BgL_ll3115z00_1110 = BgL_ll3115z00_3035; 
goto BgL_forzd2each3117zd2_1112;} } } } } } 
{ /* ./DotNet/compiler.scm 284 */
bool_t BgL_test3762z00_1121;
{ /* ./DotNet/compiler.scm 284 */
obj_t BgL_auxz00_3037;
BgL_auxz00_3037 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
(obj_t)(BgL_localz00_40), BGl_za2labdoneza2z00zzdotnet_compilerz00); 
BgL_test3762z00_1121 = 
CBOOL(BgL_auxz00_3037); } 
if(BgL_test3762z00_1121)
{ /* ./DotNet/compiler.scm 286 */
obj_t BgL_arg3764z00_1122;
BgL_arg3764z00_1122 = 
(((BgL_variablez00_bglt)CREF(BgL_localz00_40))->BgL_namez00); 
BGl__gotoz00zzdotnet_instrz00(BgL_envz00_42, BgL_arg3764z00_1122); }  else 
{ /* ./DotNet/compiler.scm 289 */
BgL_valuez00_bglt BgL_instance3124z00_1124;
BgL_instance3124z00_1124 = 
(((BgL_variablez00_bglt)CREF(BgL_localz00_40))->BgL_valuez00); 
{ /* ./DotNet/compiler.scm 290 */
obj_t BgL_auxz00_3045;
BgL_auxz00_3045 = 
(obj_t)(BgL_localz00_40); 
BGl_za2labdoneza2z00zzdotnet_compilerz00 = 
MAKE_PAIR(BgL_auxz00_3045, BGl_za2labdoneza2z00zzdotnet_compilerz00); } 
{ /* ./DotNet/compiler.scm 291 */
obj_t BgL_debugzf3zf3_1125;
BgL_debugzf3zf3_1125 = 
BGl_debugzd2forzd2declarezd2varzf3z21zzdotnet_externz00(BgL_envz00_42); 
{ /* ./DotNet/compiler.scm 291 */
obj_t BgL_blabz00_1126;
if(
CBOOL(BgL_debugzf3zf3_1125))
{ /* ./DotNet/compiler.scm 292 */
BgL_blabz00_1126 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string5548z00zzdotnet_compilerz00, BEOA); }  else 
{ /* ./DotNet/compiler.scm 292 */
BgL_blabz00_1126 = 
CNST_TABLE_REF(((long)21)); } 
{ /* ./DotNet/compiler.scm 292 */
obj_t BgL_elabz00_1127;
if(
CBOOL(BgL_debugzf3zf3_1125))
{ /* ./DotNet/compiler.scm 293 */
BgL_elabz00_1127 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string5543z00zzdotnet_compilerz00, BEOA); }  else 
{ /* ./DotNet/compiler.scm 293 */
BgL_elabz00_1127 = 
CNST_TABLE_REF(((long)21)); } 
{ /* ./DotNet/compiler.scm 293 */

{ /* ./DotNet/compiler.scm 294 */
obj_t BgL_arg3769z00_1128;
BgL_arg3769z00_1128 = 
(((BgL_variablez00_bglt)CREF(BgL_localz00_40))->BgL_namez00); 
BGl__labelz00zzdotnet_instrz00(BgL_envz00_42, BgL_arg3769z00_1128); } 
{ 
obj_t BgL_l3126z00_1129;
{ /* ./DotNet/compiler.scm 301 */
obj_t BgL_arg3773z00_1131;
{ /* ./DotNet/compiler.scm 301 */
obj_t BgL_auxz00_3061;
{ /* ./DotNet/compiler.scm 301 */
BgL_sfunz00_bglt BgL_obj1367z00_2066;
BgL_obj1367z00_2066 = 
(BgL_sfunz00_bglt)(BgL_instance3124z00_1124); 
BgL_auxz00_3061 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_2066))->BgL_argsz00); } 
BgL_arg3773z00_1131 = 
bgl_reverse(BgL_auxz00_3061); } 
BgL_l3126z00_1129 = BgL_arg3773z00_1131; 
BgL_forzd2each3127zd2_1130:
{ /* ./DotNet/compiler.scm 296 */
bool_t BgL_test3780z00_1133;
BgL_test3780z00_1133 = 
PAIRP(BgL_l3126z00_1129); 
if(BgL_test3780z00_1133)
{ /* ./DotNet/compiler.scm 296 */
{ /* ./DotNet/compiler.scm 298 */
obj_t BgL_argz00_1134;
BgL_argz00_1134 = 
CAR(BgL_l3126z00_1129); 
BGl_envzd2declarezd2newzd2localzd2zzdotnet_envz00(BgL_envz00_42, 
(BgL_localz00_bglt)(BgL_argz00_1134)); 
BGl_debugzd2declarezd2varzd2fromzd2zzdotnet_externz00(BgL_envz00_42, 
(BgL_localz00_bglt)(BgL_argz00_1134), BgL_blabz00_1126, BgL_elabz00_1127); 
BGl__storez00zzdotnet_instrz00(BgL_envz00_42, 
(BgL_localz00_bglt)(BgL_argz00_1134)); } 
{ /* ./DotNet/compiler.scm 296 */
obj_t BgL_arg3786z00_1135;
BgL_arg3786z00_1135 = 
CDR(BgL_l3126z00_1129); 
{ 
obj_t BgL_l3126z00_3075;
BgL_l3126z00_3075 = BgL_arg3786z00_1135; 
BgL_l3126z00_1129 = BgL_l3126z00_3075; 
goto BgL_forzd2each3127zd2_1130;} } }  else 
{ /* ./DotNet/compiler.scm 296 */((bool_t)1); } } } } 
if(
CBOOL(BgL_debugzf3zf3_1125))
{ /* ./DotNet/compiler.scm 303 */
BGl__labelz00zzdotnet_instrz00(BgL_envz00_42, BgL_blabz00_1126); }  else 
{ /* ./DotNet/compiler.scm 303 */BFALSE; } 
{ /* ./DotNet/compiler.scm 304 */
obj_t BgL_arg3792z00_1136;
{ /* ./DotNet/compiler.scm 304 */
BgL_sfunz00_bglt BgL_obj1370z00_2070;
BgL_obj1370z00_2070 = 
(BgL_sfunz00_bglt)(BgL_instance3124z00_1124); 
BgL_arg3792z00_1136 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_2070))->BgL_bodyz00); } 
PROCEDURE_ENTRY(BgL_compz00_43)(BgL_compz00_43, BgL_arg3792z00_1136, 
(obj_t)(BgL_envz00_42), BEOA); } 
if(
CBOOL(BgL_debugzf3zf3_1125))
{ /* ./DotNet/compiler.scm 305 */
BGl__labelz00zzdotnet_instrz00(BgL_envz00_42, BgL_elabz00_1127); }  else 
{ /* ./DotNet/compiler.scm 305 */BFALSE; } } } } } } } 
{ /* ./DotNet/compiler.scm 309 */
obj_t BgL_typez00_1139;
{ /* ./DotNet/compiler.scm 309 */
obj_t BgL_arg3806z00_1141;
{ /* ./DotNet/compiler.scm 309 */
BgL_typez00_bglt BgL_arg3809z00_1142;
BgL_arg3809z00_1142 = 
(((BgL_variablez00_bglt)CREF(BgL_localz00_40))->BgL_typez00); 
BgL_arg3806z00_1141 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_arg3809z00_1142), BgL_envz00_42); } 
BgL_typez00_1139 = 
BGl_simplezd2typezd2zzdotnet_instrz00(BgL_arg3806z00_1141); } 
{ /* ./DotNet/compiler.scm 310 */
obj_t BgL_arg3802z00_1140;
BgL_arg3802z00_1140 = 
MAKE_PAIR(BgL_typez00_1139, BgL_stkz00_1108); 
{ /* ./DotNet/compiler.scm 310 */
BgL_envz00_bglt BgL_obj3024z00_2073;obj_t BgL_val3023z00_2074;
BgL_obj3024z00_2073 = BgL_envz00_42; 
BgL_val3023z00_2074 = BgL_arg3802z00_1140; 
return 
((((BgL_envz00_bglt)CREF(BgL_obj3024z00_2073))->BgL_stackz00) = ((obj_t)BgL_val3023z00_2074), BUNSPEC);} } } } } 
}



/* compiler-app */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2appzd2zzdotnet_compilerz00(BgL_appz00_bglt BgL_ez00_44, BgL_envz00_bglt BgL_envz00_45, obj_t BgL_compz00_46)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 314 */
{ /* ./DotNet/compiler.scm 315 */
obj_t BgL_nz00_2077;
BgL_nz00_2077 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_44)); 
if(
CBOOL(BgL_nz00_2077))
{ /* ./DotNet/compiler.scm 315 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_45, BgL_nz00_2077); }  else 
{ /* ./DotNet/compiler.scm 315 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 317 */
BgL_variablez00_bglt BgL_vz00_1144;
{ /* ./DotNet/compiler.scm 317 */
BgL_varz00_bglt BgL_arg3851z00_1162;
BgL_arg3851z00_1162 = 
(((BgL_appz00_bglt)CREF(BgL_ez00_44))->BgL_funz00); 
BgL_vz00_1144 = 
(((BgL_varz00_bglt)CREF(BgL_arg3851z00_1162))->BgL_variablez00); } 
{ /* ./DotNet/compiler.scm 318 */
bool_t BgL_test3815z00_1145;
{ /* ./DotNet/compiler.scm 318 */
obj_t BgL_obj1300z00_2080;
BgL_obj1300z00_2080 = 
(obj_t)(BgL_vz00_1144); 
BgL_test3815z00_1145 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1300z00_2080, BGl_localz00zzast_varz00); } 
if(BgL_test3815z00_1145)
{ /* ./DotNet/compiler.scm 318 */
{ /* ./DotNet/compiler.scm 319 */
obj_t BgL_arg3817z00_1146;
BgL_arg3817z00_1146 = 
(((BgL_appz00_bglt)CREF(BgL_ez00_44))->BgL_argsz00); 
return 
BGl_compilezd2labelzd2callz00zzdotnet_compilerz00(BgL_vz00_1144, BgL_arg3817z00_1146, BgL_envz00_45, BgL_compz00_46);} }  else 
{ /* ./DotNet/compiler.scm 320 */
bool_t BgL_test3820z00_1147;
{ /* ./DotNet/compiler.scm 320 */
obj_t BgL_arg3846z00_1161;
BgL_arg3846z00_1161 = 
(((BgL_appz00_bglt)CREF(BgL_ez00_44))->BgL_argsz00); 
{ /* ./DotNet/compiler.scm 320 */
obj_t BgL_auxz00_3107;
BgL_auxz00_3107 = 
BGl_specialzd2callzf3z21zzdotnet_compilerz00(BgL_vz00_1144, BgL_arg3846z00_1161, BgL_envz00_45); 
BgL_test3820z00_1147 = 
CBOOL(BgL_auxz00_3107); } } 
if(BgL_test3820z00_1147)
{ /* ./DotNet/compiler.scm 320 */
return 
CNST_TABLE_REF(((long)26));}  else 
{ /* ./DotNet/compiler.scm 321 */
obj_t BgL__ortest_3134z00_1148;
{ /* ./DotNet/compiler.scm 321 */
obj_t BgL_arg3842z00_1160;
BgL_arg3842z00_1160 = 
(((BgL_appz00_bglt)CREF(BgL_ez00_44))->BgL_argsz00); 
BgL__ortest_3134z00_1148 = 
PROCEDURE_ENTRY(BGl_specialzd2inlinezd2callzf3zf3zzdotnet_inlinez00)(BGl_specialzd2inlinezd2callzf3zf3zzdotnet_inlinez00, 
(obj_t)(BgL_vz00_1144), BgL_arg3842z00_1160, 
(obj_t)(BgL_envz00_45), BEOA); } 
if(
CBOOL(BgL__ortest_3134z00_1148))
{ /* ./DotNet/compiler.scm 321 */
return BgL__ortest_3134z00_1148;}  else 
{ /* ./DotNet/compiler.scm 321 */
{ /* ./DotNet/compiler.scm 323 */
obj_t BgL_typesz00_1149;
BgL_typesz00_1149 = 
BGl_typezd2argszd2zzdotnet_compilerz00(BgL_vz00_1144, BgL_envz00_45); 
{ 
obj_t BgL_ll3135z00_1150;obj_t BgL_ll3136z00_1151;
{ /* ./DotNet/compiler.scm 324 */
obj_t BgL_arg3822z00_1153;
BgL_arg3822z00_1153 = 
(((BgL_appz00_bglt)CREF(BgL_ez00_44))->BgL_argsz00); 
BgL_ll3135z00_1150 = BgL_arg3822z00_1153; 
BgL_ll3136z00_1151 = BgL_typesz00_1149; 
BgL_forzd2each3137zd2_1152:
{ /* ./DotNet/compiler.scm 324 */
bool_t BgL_test3825z00_1154;
BgL_test3825z00_1154 = 
NULLP(BgL_ll3135z00_1150); 
if(BgL_test3825z00_1154)
{ /* ./DotNet/compiler.scm 324 */((bool_t)1); }  else 
{ /* ./DotNet/compiler.scm 324 */
{ /* ./DotNet/compiler.scm 325 */
obj_t BgL_ez00_1155;obj_t BgL_tyz00_1156;
BgL_ez00_1155 = 
CAR(BgL_ll3135z00_1150); 
BgL_tyz00_1156 = 
CAR(BgL_ll3136z00_1151); 
BGl_compilezd2exprzd2zzdotnet_exprz00(
(BgL_nodez00_bglt)(BgL_ez00_1155), BgL_envz00_45); 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./DotNet/compiler.scm 326 */
BGl__checkcastz00zzdotnet_instrz00(BgL_envz00_45, BgL_tyz00_1156); }  else 
{ /* ./DotNet/compiler.scm 326 */BFALSE; } } 
{ /* ./DotNet/compiler.scm 324 */
obj_t BgL_arg3832z00_1157;obj_t BgL_arg3833z00_1158;
BgL_arg3832z00_1157 = 
CDR(BgL_ll3135z00_1150); 
BgL_arg3833z00_1158 = 
CDR(BgL_ll3136z00_1151); 
{ 
obj_t BgL_ll3136z00_3133;obj_t BgL_ll3135z00_3132;
BgL_ll3135z00_3132 = BgL_arg3832z00_1157; 
BgL_ll3136z00_3133 = BgL_arg3833z00_1158; 
BgL_ll3136z00_1151 = BgL_ll3136z00_3133; 
BgL_ll3135z00_1150 = BgL_ll3135z00_3132; 
goto BgL_forzd2each3137zd2_1152;} } } } } } 
{ /* ./DotNet/compiler.scm 329 */
obj_t BgL__ortest_3138z00_1159;
BgL__ortest_3138z00_1159 = 
PROCEDURE_ENTRY(BGl_inlinezd2callzf3z21zzdotnet_inlinez00)(BGl_inlinezd2callzf3z21zzdotnet_inlinez00, 
(obj_t)(BgL_vz00_1144), 
(obj_t)(BgL_envz00_45), BEOA); 
if(
CBOOL(BgL__ortest_3138z00_1159))
{ /* ./DotNet/compiler.scm 329 */
return BgL__ortest_3138z00_1159;}  else 
{ /* ./DotNet/compiler.scm 329 */
return 
BGl_howzd2tozd2callz00zzdotnet_compilerz00(BgL_envz00_45, BgL_vz00_1144, BgL_typesz00_1149);} } } } } } } } } 
}



/* _compiler-app5104 */
obj_t BGl__compilerzd2app5104zd2zzdotnet_compilerz00(obj_t BgL_envz00_2362, obj_t BgL_ez00_2363, obj_t BgL_envz00_2364, obj_t BgL_compz00_2365)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 314 */
return 
BGl_compilerzd2appzd2zzdotnet_compilerz00(
(BgL_appz00_bglt)(BgL_ez00_2363), 
(BgL_envz00_bglt)(BgL_envz00_2364), BgL_compz00_2365);} 
}



/* type-args */
obj_t BGl_typezd2argszd2zzdotnet_compilerz00(BgL_variablez00_bglt BgL_vz00_47, BgL_envz00_bglt BgL_envz00_48)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 332 */
{ /* ./DotNet/compiler.scm 334 */
obj_t BgL_l3141z00_1164;
{ /* ./DotNet/compiler.scm 335 */
bool_t BgL_test3872z00_1176;
{ /* ./DotNet/compiler.scm 335 */
BgL_valuez00_bglt BgL_arg3883z00_1179;
BgL_arg3883z00_1179 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_47))->BgL_valuez00); 
{ /* ./DotNet/compiler.scm 335 */
obj_t BgL_obj1425z00_2091;
BgL_obj1425z00_2091 = 
(obj_t)(BgL_arg3883z00_1179); 
BgL_test3872z00_1176 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1425z00_2091, BGl_sfunz00zzast_varz00); } } 
if(BgL_test3872z00_1176)
{ /* ./DotNet/compiler.scm 336 */
BgL_sfunz00_bglt BgL_obj1367z00_2093;
{ /* ./DotNet/compiler.scm 336 */
BgL_valuez00_bglt BgL_auxz00_3148;
BgL_auxz00_3148 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_47))->BgL_valuez00); 
BgL_obj1367z00_2093 = 
(BgL_sfunz00_bglt)(BgL_auxz00_3148); } 
BgL_l3141z00_1164 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_2093))->BgL_argsz00); }  else 
{ /* ./DotNet/compiler.scm 337 */
BgL_cfunz00_bglt BgL_obj1445z00_2095;
{ /* ./DotNet/compiler.scm 337 */
BgL_valuez00_bglt BgL_auxz00_3152;
BgL_auxz00_3152 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_47))->BgL_valuez00); 
BgL_obj1445z00_2095 = 
(BgL_cfunz00_bglt)(BgL_auxz00_3152); } 
BgL_l3141z00_1164 = 
(((BgL_cfunz00_bglt)CREF(BgL_obj1445z00_2095))->BgL_argszd2typezd2); } } 
{ /* ./DotNet/compiler.scm 334 */
bool_t BgL_test3854z00_1165;
BgL_test3854z00_1165 = 
NULLP(BgL_l3141z00_1164); 
if(BgL_test3854z00_1165)
{ /* ./DotNet/compiler.scm 334 */
return BNIL;}  else 
{ /* ./DotNet/compiler.scm 334 */
obj_t BgL_head3143z00_1166;
BgL_head3143z00_1166 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l3141z00_1167;obj_t BgL_tail3144z00_1168;
BgL_l3141z00_1167 = BgL_l3141z00_1164; 
BgL_tail3144z00_1168 = BgL_head3143z00_1166; 
BgL_map3142z00_1169:
{ /* ./DotNet/compiler.scm 334 */
bool_t BgL_test3856z00_1170;
BgL_test3856z00_1170 = 
NULLP(BgL_l3141z00_1167); 
if(BgL_test3856z00_1170)
{ /* ./DotNet/compiler.scm 334 */
return 
CDR(BgL_head3143z00_1166);}  else 
{ /* ./DotNet/compiler.scm 334 */
obj_t BgL_newtail3145z00_1171;
{ /* ./DotNet/compiler.scm 334 */
obj_t BgL_arg3864z00_1173;
{ /* ./DotNet/compiler.scm 334 */
obj_t BgL_xz00_1175;
BgL_xz00_1175 = 
CAR(BgL_l3141z00_1167); 
BgL_arg3864z00_1173 = 
BGl_compilezd2typezd2zzdotnet_envz00(BgL_xz00_1175, BgL_envz00_48); } 
BgL_newtail3145z00_1171 = 
MAKE_PAIR(BgL_arg3864z00_1173, BNIL); } 
SET_CDR(BgL_tail3144z00_1168, BgL_newtail3145z00_1171); 
{ /* ./DotNet/compiler.scm 334 */
obj_t BgL_arg3860z00_1172;
BgL_arg3860z00_1172 = 
CDR(BgL_l3141z00_1167); 
{ 
obj_t BgL_tail3144z00_3168;obj_t BgL_l3141z00_3167;
BgL_l3141z00_3167 = BgL_arg3860z00_1172; 
BgL_tail3144z00_3168 = BgL_newtail3145z00_1171; 
BgL_tail3144z00_1168 = BgL_tail3144z00_3168; 
BgL_l3141z00_1167 = BgL_l3141z00_3167; 
goto BgL_map3142z00_1169;} } } } } } } } } 
}



/* how-to-call */
obj_t BGl_howzd2tozd2callz00zzdotnet_compilerz00(BgL_envz00_bglt BgL_envz00_49, BgL_variablez00_bglt BgL_varz00_50, obj_t BgL_taz00_51)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 339 */
{ /* ./DotNet/compiler.scm 340 */
BgL_valuez00_bglt BgL_funz00_1180;obj_t BgL_targetz00_1181;obj_t BgL_trz00_1182;
BgL_funz00_1180 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_50))->BgL_valuez00); 
BgL_targetz00_1181 = 
BGl_getzd2globalzd2namez00zzdotnet_envz00(BgL_envz00_49, 
(BgL_globalz00_bglt)(BgL_varz00_50)); 
{ /* ./DotNet/compiler.scm 342 */
BgL_typez00_bglt BgL_arg3913z00_1192;
BgL_arg3913z00_1192 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_50))->BgL_typez00); 
BgL_trz00_1182 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_arg3913z00_1192), BgL_envz00_49); } 
{ /* ./DotNet/compiler.scm 344 */
bool_t BgL_test3886z00_1183;
{ /* ./DotNet/compiler.scm 344 */
obj_t BgL_obj1489z00_2109;
BgL_obj1489z00_2109 = 
(obj_t)(BgL_funz00_1180); 
BgL_test3886z00_1183 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1489z00_2109, BGl_cfunz00zzast_varz00); } 
if(BgL_test3886z00_1183)
{ /* ./DotNet/compiler.scm 345 */
bool_t BgL_test3887z00_1184;
{ /* ./DotNet/compiler.scm 345 */
obj_t BgL_arg3904z00_1190;
BgL_arg3904z00_1190 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_50))->BgL_namez00); 
BgL_test3887z00_1184 = 
bigloo_strcmp(BgL_arg3904z00_1190, BGl_string5549z00zzdotnet_compilerz00); } 
if(BgL_test3887z00_1184)
{ /* ./DotNet/compiler.scm 345 */
return 
BGl__invokespecial_initz00zzdotnet_instrz00(BgL_envz00_49, BgL_targetz00_1181, BgL_taz00_51, BgL_trz00_1182);}  else 
{ /* ./DotNet/compiler.scm 345 */
{ /* ./DotNet/compiler.scm 348 */
obj_t BgL_modifiersz00_1185;
{ /* ./DotNet/compiler.scm 348 */
BgL_cfunz00_bglt BgL_obj1450z00_2113;
BgL_obj1450z00_2113 = 
(BgL_cfunz00_bglt)(BgL_funz00_1180); 
BgL_modifiersz00_1185 = 
(((BgL_cfunz00_bglt)CREF(BgL_obj1450z00_2113))->BgL_methodz00); } 
{ /* ./DotNet/compiler.scm 350 */
bool_t BgL_test3889z00_1186;
{ /* ./DotNet/compiler.scm 350 */
obj_t BgL_auxz00_3184;
BgL_auxz00_3184 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CNST_TABLE_REF(((long)27)), BgL_modifiersz00_1185); 
BgL_test3889z00_1186 = 
CBOOL(BgL_auxz00_3184); } 
if(BgL_test3889z00_1186)
{ /* ./DotNet/compiler.scm 350 */
return 
BGl__invokestaticz00zzdotnet_instrz00(BgL_envz00_49, BgL_targetz00_1181, BgL_taz00_51, BgL_trz00_1182);}  else 
{ /* ./DotNet/compiler.scm 351 */
bool_t BgL_test3891z00_1187;
{ /* ./DotNet/compiler.scm 351 */
obj_t BgL_auxz00_3190;
BgL_auxz00_3190 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CNST_TABLE_REF(((long)28)), BgL_modifiersz00_1185); 
BgL_test3891z00_1187 = 
CBOOL(BgL_auxz00_3190); } 
if(BgL_test3891z00_1187)
{ /* ./DotNet/compiler.scm 351 */
return 
BGl__invokeinterfacez00zzdotnet_instrz00(BgL_envz00_49, BgL_targetz00_1181, BgL_taz00_51, BgL_trz00_1182);}  else 
{ /* ./DotNet/compiler.scm 352 */
bool_t BgL_test3893z00_1188;
{ /* ./DotNet/compiler.scm 352 */
obj_t BgL_auxz00_3196;
BgL_auxz00_3196 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CNST_TABLE_REF(((long)29)), BgL_modifiersz00_1185); 
BgL_test3893z00_1188 = 
CBOOL(BgL_auxz00_3196); } 
if(BgL_test3893z00_1188)
{ /* ./DotNet/compiler.scm 352 */
return 
BGl__invokespecialz00zzdotnet_instrz00(BgL_envz00_49, BgL_targetz00_1181, BgL_taz00_51, BgL_trz00_1182);}  else 
{ /* ./DotNet/compiler.scm 353 */
bool_t BgL_test3895z00_1189;
{ /* ./DotNet/compiler.scm 353 */
obj_t BgL_auxz00_3202;
BgL_auxz00_3202 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CNST_TABLE_REF(((long)30)), BgL_modifiersz00_1185); 
BgL_test3895z00_1189 = 
CBOOL(BgL_auxz00_3202); } 
if(BgL_test3895z00_1189)
{ /* ./DotNet/compiler.scm 353 */
return 
BGl__invokespecialz00zzdotnet_instrz00(BgL_envz00_49, BgL_targetz00_1181, BgL_taz00_51, BgL_trz00_1182);}  else 
{ /* ./DotNet/compiler.scm 353 */
return 
BGl__invokevirtualz00zzdotnet_instrz00(BgL_envz00_49, BgL_targetz00_1181, BgL_taz00_51, BgL_trz00_1182);} } } } } } } }  else 
{ /* ./DotNet/compiler.scm 344 */
return 
BGl__invokestaticz00zzdotnet_instrz00(BgL_envz00_49, BgL_targetz00_1181, BgL_taz00_51, BgL_trz00_1182);} } } } 
}



/* special-call? */
obj_t BGl_specialzd2callzf3z21zzdotnet_compilerz00(BgL_variablez00_bglt BgL_varz00_52, obj_t BgL_argsz00_53, BgL_envz00_bglt BgL_envz00_54)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 356 */
{ /* ./DotNet/compiler.scm 360 */
bool_t BgL_test3916z00_1194;
{ /* ./DotNet/compiler.scm 360 */
bool_t BgL_testz00_3210;
{ /* ./DotNet/compiler.scm 360 */
obj_t BgL_auxz00_3213;obj_t BgL_auxz00_3211;
BgL_auxz00_3213 = 
CNST_TABLE_REF(((long)31)); 
BgL_auxz00_3211 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_52))->BgL_idz00); 
BgL_testz00_3210 = 
(BgL_auxz00_3211==BgL_auxz00_3213); } 
if(BgL_testz00_3210)
{ /* ./DotNet/compiler.scm 360 */
BgL_test3916z00_1194 = ((bool_t)1); }  else 
{ /* ./DotNet/compiler.scm 361 */
obj_t BgL_auxz00_3218;obj_t BgL_auxz00_3216;
BgL_auxz00_3218 = 
CNST_TABLE_REF(((long)32)); 
BgL_auxz00_3216 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_52))->BgL_idz00); 
BgL_test3916z00_1194 = 
(BgL_auxz00_3216==BgL_auxz00_3218); } } 
if(BgL_test3916z00_1194)
{ /* ./DotNet/compiler.scm 360 */
{ /* ./DotNet/compiler.scm 363 */
obj_t BgL_arg3918z00_1195;
BgL_arg3918z00_1195 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_54))->BgL_currentzd2modulezd2); 
BGl__newz00zzdotnet_instrz00(BgL_envz00_54, BgL_arg3918z00_1195); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./DotNet/compiler.scm 364 */
BGl__dupz00zzdotnet_instrz00(BgL_envz00_54); 
BGl__invokespecialz00zzdotnet_instrz00(BgL_envz00_54, 
CNST_TABLE_REF(((long)33)), 
CNST_TABLE_REF(((long)18)), 
CNST_TABLE_REF(((long)14))); }  else 
{ /* ./DotNet/compiler.scm 364 */BFALSE; } 
BGl__dupz00zzdotnet_instrz00(BgL_envz00_54); 
{ /* ./DotNet/compiler.scm 368 */
obj_t BgL_arg3925z00_1196;
BgL_arg3925z00_1196 = 
CAR(BgL_argsz00_53); 
BGl_compilezd2exprzd2zzdotnet_exprz00(
(BgL_nodez00_bglt)(BgL_arg3925z00_1196), BgL_envz00_54); } 
{ /* ./DotNet/compiler.scm 369 */
obj_t BgL_arg3929z00_1197;
BgL_arg3929z00_1197 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_54, 
CNST_TABLE_REF(((long)34))); 
BGl__putfieldz00zzdotnet_instrz00(BgL_envz00_54, BgL_arg3929z00_1197); } 
BGl__dupz00zzdotnet_instrz00(BgL_envz00_54); 
{ /* ./DotNet/compiler.scm 371 */
obj_t BgL_arg3934z00_1198;
{ /* ./DotNet/compiler.scm 371 */
obj_t BgL_auxz00_3239;
BgL_auxz00_3239 = 
CDR(BgL_argsz00_53); 
BgL_arg3934z00_1198 = 
CAR(BgL_auxz00_3239); } 
BGl_compilezd2exprzd2zzdotnet_exprz00(
(BgL_nodez00_bglt)(BgL_arg3934z00_1198), BgL_envz00_54); } 
{ /* ./DotNet/compiler.scm 372 */
obj_t BgL_arg3938z00_1199;
BgL_arg3938z00_1199 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_54, 
CNST_TABLE_REF(((long)35))); 
BGl__putfieldz00zzdotnet_instrz00(BgL_envz00_54, BgL_arg3938z00_1199); } 
BGl__dupz00zzdotnet_instrz00(BgL_envz00_54); 
{ /* ./DotNet/compiler.scm 374 */
obj_t BgL_arg3943z00_1200;
{ /* ./DotNet/compiler.scm 374 */
obj_t BgL_auxz00_3248;
{ /* ./DotNet/compiler.scm 374 */
obj_t BgL_auxz00_3249;
BgL_auxz00_3249 = 
CDR(BgL_argsz00_53); 
BgL_auxz00_3248 = 
CDR(BgL_auxz00_3249); } 
BgL_arg3943z00_1200 = 
CAR(BgL_auxz00_3248); } 
BGl_compilezd2exprzd2zzdotnet_exprz00(
(BgL_nodez00_bglt)(BgL_arg3943z00_1200), BgL_envz00_54); } 
{ /* ./DotNet/compiler.scm 375 */
obj_t BgL_arg3948z00_1201;
BgL_arg3948z00_1201 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_54, 
CNST_TABLE_REF(((long)36))); 
BGl__newarrayz00zzdotnet_instrz00(BgL_envz00_54, BgL_arg3948z00_1201); } 
{ /* ./DotNet/compiler.scm 376 */
obj_t BgL_arg3952z00_1202;
BgL_arg3952z00_1202 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_54, 
CNST_TABLE_REF(((long)37))); 
BGl__putfieldz00zzdotnet_instrz00(BgL_envz00_54, BgL_arg3952z00_1202); } 
return BTRUE;}  else 
{ /* ./DotNet/compiler.scm 378 */
bool_t BgL_test3955z00_1203;
{ /* ./DotNet/compiler.scm 378 */
obj_t BgL_auxz00_3263;obj_t BgL_auxz00_3261;
BgL_auxz00_3263 = 
CNST_TABLE_REF(((long)38)); 
BgL_auxz00_3261 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_52))->BgL_idz00); 
BgL_test3955z00_1203 = 
(BgL_auxz00_3261==BgL_auxz00_3263); } 
if(BgL_test3955z00_1203)
{ /* ./DotNet/compiler.scm 378 */
{ /* ./DotNet/compiler.scm 380 */
obj_t BgL_arg3957z00_1204;
BgL_arg3957z00_1204 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_54))->BgL_currentzd2modulezd2); 
BGl__newz00zzdotnet_instrz00(BgL_envz00_54, BgL_arg3957z00_1204); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./DotNet/compiler.scm 381 */
BGl__dupz00zzdotnet_instrz00(BgL_envz00_54); 
BGl__invokespecialz00zzdotnet_instrz00(BgL_envz00_54, 
CNST_TABLE_REF(((long)33)), 
CNST_TABLE_REF(((long)18)), 
CNST_TABLE_REF(((long)14))); }  else 
{ /* ./DotNet/compiler.scm 381 */BFALSE; } 
BGl__dupz00zzdotnet_instrz00(BgL_envz00_54); 
{ /* ./DotNet/compiler.scm 385 */
obj_t BgL_arg3964z00_1205;
BgL_arg3964z00_1205 = 
CAR(BgL_argsz00_53); 
BGl_compilezd2exprzd2zzdotnet_exprz00(
(BgL_nodez00_bglt)(BgL_arg3964z00_1205), BgL_envz00_54); } 
{ /* ./DotNet/compiler.scm 386 */
obj_t BgL_arg3968z00_1206;
BgL_arg3968z00_1206 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_54, 
CNST_TABLE_REF(((long)34))); 
BGl__putfieldz00zzdotnet_instrz00(BgL_envz00_54, BgL_arg3968z00_1206); } 
BGl__dupz00zzdotnet_instrz00(BgL_envz00_54); 
{ /* ./DotNet/compiler.scm 388 */
obj_t BgL_arg3973z00_1207;
{ /* ./DotNet/compiler.scm 388 */
obj_t BgL_auxz00_3284;
BgL_auxz00_3284 = 
CDR(BgL_argsz00_53); 
BgL_arg3973z00_1207 = 
CAR(BgL_auxz00_3284); } 
BGl_compilezd2exprzd2zzdotnet_exprz00(
(BgL_nodez00_bglt)(BgL_arg3973z00_1207), BgL_envz00_54); } 
{ /* ./DotNet/compiler.scm 389 */
obj_t BgL_arg3978z00_1208;
BgL_arg3978z00_1208 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_54, 
CNST_TABLE_REF(((long)36))); 
BGl__newarrayz00zzdotnet_instrz00(BgL_envz00_54, BgL_arg3978z00_1208); } 
{ /* ./DotNet/compiler.scm 390 */
obj_t BgL_arg3982z00_1209;
BgL_arg3982z00_1209 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_54, 
CNST_TABLE_REF(((long)37))); 
BGl__putfieldz00zzdotnet_instrz00(BgL_envz00_54, BgL_arg3982z00_1209); } 
return BTRUE;}  else 
{ /* ./DotNet/compiler.scm 392 */
bool_t BgL_test3985z00_1210;
{ /* ./DotNet/compiler.scm 392 */
obj_t BgL_auxz00_3297;obj_t BgL_auxz00_3295;
BgL_auxz00_3297 = 
CNST_TABLE_REF(((long)39)); 
BgL_auxz00_3295 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_52))->BgL_idz00); 
BgL_test3985z00_1210 = 
(BgL_auxz00_3295==BgL_auxz00_3297); } 
if(BgL_test3985z00_1210)
{ /* ./DotNet/compiler.scm 392 */
BGl__getstaticz00zzdotnet_instrz00(BgL_envz00_54, 
CNST_TABLE_REF(((long)40))); 
{ /* ./DotNet/compiler.scm 395 */
obj_t BgL_arg3988z00_1211;
BgL_arg3988z00_1211 = 
CAR(BgL_argsz00_53); 
BGl_compilezd2exprzd2zzdotnet_exprz00(
(BgL_nodez00_bglt)(BgL_arg3988z00_1211), BgL_envz00_54); } 
return 
BGl__aloadz00zzdotnet_instrz00(BgL_envz00_54, 
CNST_TABLE_REF(((long)36)));}  else 
{ /* ./DotNet/compiler.scm 397 */
bool_t BgL_test3992z00_1212;
{ /* ./DotNet/compiler.scm 397 */
obj_t BgL_auxz00_3310;obj_t BgL_auxz00_3308;
BgL_auxz00_3310 = 
CNST_TABLE_REF(((long)41)); 
BgL_auxz00_3308 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_52))->BgL_idz00); 
BgL_test3992z00_1212 = 
(BgL_auxz00_3308==BgL_auxz00_3310); } 
if(BgL_test3992z00_1212)
{ /* ./DotNet/compiler.scm 397 */
BGl__getstaticz00zzdotnet_instrz00(BgL_envz00_54, 
CNST_TABLE_REF(((long)40))); 
{ /* ./DotNet/compiler.scm 400 */
obj_t BgL_arg3995z00_1213;
BgL_arg3995z00_1213 = 
CAR(BgL_argsz00_53); 
BGl_compilezd2exprzd2zzdotnet_exprz00(
(BgL_nodez00_bglt)(BgL_arg3995z00_1213), BgL_envz00_54); } 
{ /* ./DotNet/compiler.scm 401 */
obj_t BgL_arg3999z00_1214;
{ /* ./DotNet/compiler.scm 401 */
obj_t BgL_auxz00_3319;
BgL_auxz00_3319 = 
CDR(BgL_argsz00_53); 
BgL_arg3999z00_1214 = 
CAR(BgL_auxz00_3319); } 
BGl_compilezd2exprzd2zzdotnet_exprz00(
(BgL_nodez00_bglt)(BgL_arg3999z00_1214), BgL_envz00_54); } 
BGl__astorez00zzdotnet_instrz00(BgL_envz00_54, 
CNST_TABLE_REF(((long)36))); 
{ /* ./DotNet/compiler.scm 403 */
obj_t BgL_arg4004z00_1215;
BgL_arg4004z00_1215 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_54, 
CNST_TABLE_REF(((long)10))); 
return 
BGl__getstaticz00zzdotnet_instrz00(BgL_envz00_54, BgL_arg4004z00_1215);} }  else 
{ /* ./DotNet/compiler.scm 404 */
bool_t BgL_test4007z00_1216;
{ /* ./DotNet/compiler.scm 404 */
obj_t BgL_auxz00_3331;obj_t BgL_auxz00_3329;
BgL_auxz00_3331 = 
CNST_TABLE_REF(((long)42)); 
BgL_auxz00_3329 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_52))->BgL_idz00); 
BgL_test4007z00_1216 = 
(BgL_auxz00_3329==BgL_auxz00_3331); } 
if(BgL_test4007z00_1216)
{ /* ./DotNet/compiler.scm 404 */
{ /* ./DotNet/compiler.scm 406 */
bool_t BgL_test4008z00_1217;
{ /* ./DotNet/compiler.scm 406 */
obj_t BgL_arg4039z00_1228;
BgL_arg4039z00_1228 = 
CAR(BgL_argsz00_53); 
BgL_test4008z00_1217 = 
BGl_iszd2azf3z21zz__objectz00(BgL_arg4039z00_1228, BGl_varz00zzast_nodez00); } 
if(BgL_test4008z00_1217)
{ /* ./DotNet/compiler.scm 408 */
BgL_variablez00_bglt BgL_vz00_1218;
{ /* ./DotNet/compiler.scm 408 */
BgL_varz00_bglt BgL_obj1625z00_2147;
{ /* ./DotNet/compiler.scm 408 */
obj_t BgL_auxz00_3338;
BgL_auxz00_3338 = 
CAR(BgL_argsz00_53); 
BgL_obj1625z00_2147 = 
(BgL_varz00_bglt)(BgL_auxz00_3338); } 
BgL_vz00_1218 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_2147))->BgL_variablez00); } 
{ /* ./DotNet/compiler.scm 409 */
bool_t BgL_test4009z00_1219;
{ /* ./DotNet/compiler.scm 409 */
obj_t BgL_obj1240z00_2148;
BgL_obj1240z00_2148 = 
(obj_t)(BgL_vz00_1218); 
BgL_test4009z00_1219 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_2148, BGl_globalz00zzast_varz00); } 
if(BgL_test4009z00_1219)
{ /* ./DotNet/compiler.scm 410 */
obj_t BgL_iz00_1220;
{ /* ./DotNet/compiler.scm 410 */
obj_t BgL_arg4023z00_1223;
BgL_arg4023z00_1223 = 
BGl_getzd2globalzd2namez00zzdotnet_envz00(BgL_envz00_54, 
(BgL_globalz00_bglt)(BgL_vz00_1218)); 
BgL_iz00_1220 = 
BGl_envzd2newzd2getsetz00zzdotnet_envz00(BgL_envz00_54, BgL_arg4023z00_1223); } 
{ /* ./DotNet/compiler.scm 411 */
obj_t BgL_arg4011z00_1221;
BgL_arg4011z00_1221 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_54))->BgL_currentzd2modulezd2); 
BGl__newz00zzdotnet_instrz00(BgL_envz00_54, BgL_arg4011z00_1221); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./DotNet/compiler.scm 412 */
BGl__dupz00zzdotnet_instrz00(BgL_envz00_54); 
BGl__invokespecialz00zzdotnet_instrz00(BgL_envz00_54, 
CNST_TABLE_REF(((long)33)), 
CNST_TABLE_REF(((long)18)), 
CNST_TABLE_REF(((long)14))); }  else 
{ /* ./DotNet/compiler.scm 412 */BFALSE; } 
BGl__dupz00zzdotnet_instrz00(BgL_envz00_54); 
BGl__pushz00zzdotnet_instrz00(BgL_envz00_54, 
CNST_TABLE_REF(((long)5)), BgL_iz00_1220); 
{ /* ./DotNet/compiler.scm 417 */
obj_t BgL_arg4019z00_1222;
BgL_arg4019z00_1222 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_54, 
CNST_TABLE_REF(((long)34))); 
BGl__putfieldz00zzdotnet_instrz00(BgL_envz00_54, BgL_arg4019z00_1222); } 
return BTRUE;}  else 
{ /* ./DotNet/compiler.scm 419 */
obj_t BgL_objectz00_2152;
BgL_objectz00_2152 = 
(obj_t)(BgL_vz00_1218); 
FAILURE(BGl_string5550z00zzdotnet_compilerz00,BGl_string5551z00zzdotnet_compilerz00,BgL_objectz00_2152);} } }  else 
{ /* ./DotNet/compiler.scm 407 */
obj_t BgL_arg4035z00_1227;
BgL_arg4035z00_1227 = 
CAR(BgL_argsz00_53); 
FAILURE(BGl_string5550z00zzdotnet_compilerz00,BGl_string5552z00zzdotnet_compilerz00,BgL_arg4035z00_1227);} } }  else 
{ /* ./DotNet/compiler.scm 404 */
return BFALSE;} } } } } } } 
}



/* compiler-apply */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2applyzd2zzdotnet_compilerz00(BgL_appzd2lyzd2_bglt BgL_ez00_55, BgL_envz00_bglt BgL_envz00_56)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 423 */
{ /* ./DotNet/compiler.scm 424 */
obj_t BgL_nz00_2159;
BgL_nz00_2159 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_55)); 
if(
CBOOL(BgL_nz00_2159))
{ /* ./DotNet/compiler.scm 424 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_56, BgL_nz00_2159); }  else 
{ /* ./DotNet/compiler.scm 424 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 426 */
BgL_nodez00_bglt BgL_arg4075z00_1243;
BgL_arg4075z00_1243 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_ez00_55))->BgL_funz00); 
BGl_compilezd2exprzd2zzdotnet_exprz00(BgL_arg4075z00_1243, BgL_envz00_56); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./DotNet/compiler.scm 427 */
BGl__checkcastz00zzdotnet_instrz00(BgL_envz00_56, 
CNST_TABLE_REF(((long)43))); }  else 
{ /* ./DotNet/compiler.scm 427 */BFALSE; } 
{ /* ./DotNet/compiler.scm 428 */
BgL_nodez00_bglt BgL_arg4080z00_1244;
BgL_arg4080z00_1244 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_ez00_55))->BgL_argz00); 
BGl_compilezd2exprzd2zzdotnet_exprz00(BgL_arg4080z00_1244, BgL_envz00_56); } 
{ /* ./DotNet/compiler.scm 429 */
obj_t BgL_arg4084z00_1245;obj_t BgL_arg4085z00_1246;obj_t BgL_arg4086z00_1247;
BgL_arg4084z00_1245 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_56, 
CNST_TABLE_REF(((long)44))); 
BgL_arg4085z00_1246 = 
CNST_TABLE_REF(((long)45)); 
BgL_arg4086z00_1247 = 
CNST_TABLE_REF(((long)19)); 
return 
BGl__invokevirtualz00zzdotnet_instrz00(BgL_envz00_56, BgL_arg4084z00_1245, BgL_arg4085z00_1246, BgL_arg4086z00_1247);} } 
}



/* _compiler-apply5106 */
obj_t BGl__compilerzd2apply5106zd2zzdotnet_compilerz00(obj_t BgL_envz00_2366, obj_t BgL_ez00_2367, obj_t BgL_envz00_2368)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 423 */
return 
BGl_compilerzd2applyzd2zzdotnet_compilerz00(
(BgL_appzd2lyzd2_bglt)(BgL_ez00_2367), 
(BgL_envz00_bglt)(BgL_envz00_2368));} 
}



/* compiler-funcall */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2funcallzd2zzdotnet_compilerz00(BgL_funcallz00_bglt BgL_ez00_57, BgL_envz00_bglt BgL_envz00_58)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 432 */
{ /* ./DotNet/compiler.scm 433 */
obj_t BgL_nz00_2164;
BgL_nz00_2164 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_57)); 
if(
CBOOL(BgL_nz00_2164))
{ /* ./DotNet/compiler.scm 433 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_58, BgL_nz00_2164); }  else 
{ /* ./DotNet/compiler.scm 433 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 437 */
bool_t BgL_test4090z00_1249;
{ /* ./DotNet/compiler.scm 437 */
bool_t BgL_test4209z00_1303;
{ /* ./DotNet/compiler.scm 437 */
BgL_nodez00_bglt BgL_arg4229z00_1310;
BgL_arg4229z00_1310 = 
(((BgL_funcallz00_bglt)CREF(BgL_ez00_57))->BgL_funz00); 
{ /* ./DotNet/compiler.scm 437 */
obj_t BgL_obj1640z00_2166;
BgL_obj1640z00_2166 = 
(obj_t)(BgL_arg4229z00_1310); 
BgL_test4209z00_1303 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1640z00_2166, BGl_varz00zzast_nodez00); } } 
if(BgL_test4209z00_1303)
{ /* ./DotNet/compiler.scm 438 */
bool_t BgL_test4210z00_1304;
{ /* ./DotNet/compiler.scm 438 */
BgL_variablez00_bglt BgL_arg4222z00_1308;
{ /* ./DotNet/compiler.scm 438 */
BgL_varz00_bglt BgL_obj1625z00_2168;
{ /* ./DotNet/compiler.scm 438 */
BgL_nodez00_bglt BgL_auxz00_3399;
BgL_auxz00_3399 = 
(((BgL_funcallz00_bglt)CREF(BgL_ez00_57))->BgL_funz00); 
BgL_obj1625z00_2168 = 
(BgL_varz00_bglt)(BgL_auxz00_3399); } 
BgL_arg4222z00_1308 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_2168))->BgL_variablez00); } 
{ /* ./DotNet/compiler.scm 438 */
obj_t BgL_obj1240z00_2169;
BgL_obj1240z00_2169 = 
(obj_t)(BgL_arg4222z00_1308); 
BgL_test4210z00_1304 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_2169, BGl_globalz00zzast_varz00); } } 
if(BgL_test4210z00_1304)
{ /* ./DotNet/compiler.scm 439 */
BgL_valuez00_bglt BgL_arg4212z00_1305;
{ /* ./DotNet/compiler.scm 439 */
BgL_variablez00_bglt BgL_arg4215z00_1306;
{ /* ./DotNet/compiler.scm 439 */
BgL_varz00_bglt BgL_obj1625z00_2171;
{ /* ./DotNet/compiler.scm 439 */
BgL_nodez00_bglt BgL_auxz00_3406;
BgL_auxz00_3406 = 
(((BgL_funcallz00_bglt)CREF(BgL_ez00_57))->BgL_funz00); 
BgL_obj1625z00_2171 = 
(BgL_varz00_bglt)(BgL_auxz00_3406); } 
BgL_arg4215z00_1306 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_2171))->BgL_variablez00); } 
BgL_arg4212z00_1305 = 
(((BgL_variablez00_bglt)CREF(BgL_arg4215z00_1306))->BgL_valuez00); } 
{ /* ./DotNet/compiler.scm 439 */
obj_t BgL_obj1425z00_2173;
BgL_obj1425z00_2173 = 
(obj_t)(BgL_arg4212z00_1305); 
BgL_test4090z00_1249 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1425z00_2173, BGl_sfunz00zzast_varz00); } }  else 
{ /* ./DotNet/compiler.scm 438 */
BgL_test4090z00_1249 = ((bool_t)0); } }  else 
{ /* ./DotNet/compiler.scm 437 */
BgL_test4090z00_1249 = ((bool_t)0); } } 
if(BgL_test4090z00_1249)
{ /* ./DotNet/compiler.scm 440 */
BgL_variablez00_bglt BgL_vz00_1250;
{ /* ./DotNet/compiler.scm 440 */
BgL_varz00_bglt BgL_obj1625z00_2175;
{ /* ./DotNet/compiler.scm 440 */
BgL_nodez00_bglt BgL_auxz00_3414;
BgL_auxz00_3414 = 
(((BgL_funcallz00_bglt)CREF(BgL_ez00_57))->BgL_funz00); 
BgL_obj1625z00_2175 = 
(BgL_varz00_bglt)(BgL_auxz00_3414); } 
BgL_vz00_1250 = 
(((BgL_varz00_bglt)CREF(BgL_obj1625z00_2175))->BgL_variablez00); } 
{ 
obj_t BgL_l3152z00_1251;
{ /* ./DotNet/compiler.scm 442 */
obj_t BgL_arg4092z00_1253;
{ /* ./DotNet/compiler.scm 442 */
obj_t BgL_arg4095z00_1254;
{ /* ./DotNet/compiler.scm 442 */
obj_t BgL_auxz00_3418;
BgL_auxz00_3418 = 
bgl_reverse(
(((BgL_funcallz00_bglt)CREF(BgL_ez00_57))->BgL_argsz00)); 
BgL_arg4095z00_1254 = 
CDR(BgL_auxz00_3418); } 
BgL_arg4092z00_1253 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg4095z00_1254); } 
BgL_l3152z00_1251 = BgL_arg4092z00_1253; 
BgL_forzd2each3153zd2_1252:
{ /* ./DotNet/compiler.scm 441 */
bool_t BgL_test4104z00_1257;
BgL_test4104z00_1257 = 
PAIRP(BgL_l3152z00_1251); 
if(BgL_test4104z00_1257)
{ /* ./DotNet/compiler.scm 441 */
{ /* ./DotNet/compiler.scm 441 */
obj_t BgL_ez00_1258;
BgL_ez00_1258 = 
CAR(BgL_l3152z00_1251); 
BGl_compilezd2exprzd2zzdotnet_exprz00(
(BgL_nodez00_bglt)(BgL_ez00_1258), BgL_envz00_58); } 
{ /* ./DotNet/compiler.scm 441 */
obj_t BgL_arg4108z00_1259;
BgL_arg4108z00_1259 = 
CDR(BgL_l3152z00_1251); 
{ 
obj_t BgL_l3152z00_3429;
BgL_l3152z00_3429 = BgL_arg4108z00_1259; 
BgL_l3152z00_1251 = BgL_l3152z00_3429; 
goto BgL_forzd2each3153zd2_1252;} } }  else 
{ /* ./DotNet/compiler.scm 441 */((bool_t)1); } } } } 
{ /* ./DotNet/compiler.scm 443 */
obj_t BgL_arg4113z00_1260;obj_t BgL_arg4114z00_1261;obj_t BgL_arg4115z00_1262;
BgL_arg4113z00_1260 = 
BGl_getzd2globalzd2namez00zzdotnet_envz00(BgL_envz00_58, 
(BgL_globalz00_bglt)(BgL_vz00_1250)); 
BgL_arg4114z00_1261 = 
BGl_typezd2argszd2zzdotnet_compilerz00(BgL_vz00_1250, BgL_envz00_58); 
{ /* ./DotNet/compiler.scm 445 */
BgL_typez00_bglt BgL_arg4120z00_1263;
BgL_arg4120z00_1263 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_1250))->BgL_typez00); 
BgL_arg4115z00_1262 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_arg4120z00_1263), BgL_envz00_58); } 
return 
BGl__invokestaticz00zzdotnet_instrz00(BgL_envz00_58, BgL_arg4113z00_1260, BgL_arg4114z00_1261, BgL_arg4115z00_1262);} }  else 
{ /* ./DotNet/compiler.scm 437 */
{ /* ./DotNet/compiler.scm 447 */
BgL_nodez00_bglt BgL_arg4128z00_1265;
BgL_arg4128z00_1265 = 
(((BgL_funcallz00_bglt)CREF(BgL_ez00_57))->BgL_funz00); 
BGl_compilezd2exprzd2zzdotnet_exprz00(BgL_arg4128z00_1265, BgL_envz00_58); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./DotNet/compiler.scm 448 */
BGl__checkcastz00zzdotnet_instrz00(BgL_envz00_58, 
CNST_TABLE_REF(((long)43))); }  else 
{ /* ./DotNet/compiler.scm 448 */BFALSE; } 
{ /* ./DotNet/compiler.scm 450 */
obj_t BgL_argsz00_1266;
{ /* ./DotNet/compiler.scm 450 */
obj_t BgL_arg4197z00_1299;
{ /* ./DotNet/compiler.scm 450 */
obj_t BgL_auxz00_3443;
{ /* ./DotNet/compiler.scm 450 */
obj_t BgL_auxz00_3444;
{ /* ./DotNet/compiler.scm 450 */
obj_t BgL_auxz00_3445;
BgL_auxz00_3445 = 
(((BgL_funcallz00_bglt)CREF(BgL_ez00_57))->BgL_argsz00); 
BgL_auxz00_3444 = 
CDR(BgL_auxz00_3445); } 
BgL_auxz00_3443 = 
bgl_reverse(BgL_auxz00_3444); } 
BgL_arg4197z00_1299 = 
CDR(BgL_auxz00_3443); } 
BgL_argsz00_1266 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_arg4197z00_1299); } 
{ 
obj_t BgL_l3154z00_1267;
BgL_l3154z00_1267 = BgL_argsz00_1266; 
BgL_forzd2each3155zd2_1268:
{ /* ./DotNet/compiler.scm 451 */
bool_t BgL_test4133z00_1269;
BgL_test4133z00_1269 = 
PAIRP(BgL_l3154z00_1267); 
if(BgL_test4133z00_1269)
{ /* ./DotNet/compiler.scm 451 */
{ /* ./DotNet/compiler.scm 451 */
obj_t BgL_ez00_1270;
BgL_ez00_1270 = 
CAR(BgL_l3154z00_1267); 
BGl_compilezd2exprzd2zzdotnet_exprz00(
(BgL_nodez00_bglt)(BgL_ez00_1270), BgL_envz00_58); } 
{ /* ./DotNet/compiler.scm 451 */
obj_t BgL_arg4137z00_1271;
BgL_arg4137z00_1271 = 
CDR(BgL_l3154z00_1267); 
{ 
obj_t BgL_l3154z00_3457;
BgL_l3154z00_3457 = BgL_arg4137z00_1271; 
BgL_l3154z00_1267 = BgL_l3154z00_3457; 
goto BgL_forzd2each3155zd2_1268;} } }  else 
{ /* ./DotNet/compiler.scm 451 */((bool_t)1); } } } 
{ 

{ /* ./DotNet/compiler.scm 452 */
long BgL_aux3159z00_1273;
BgL_aux3159z00_1273 = 
bgl_list_length(BgL_argsz00_1266); 
switch( BgL_aux3159z00_1273) { case ((long)0) : 

{ /* ./DotNet/compiler.scm 453 */
obj_t BgL_arg4143z00_1275;obj_t BgL_arg4144z00_1276;obj_t BgL_arg4145z00_1277;
BgL_arg4143z00_1275 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_58, 
CNST_TABLE_REF(((long)47))); 
BgL_arg4144z00_1276 = 
CNST_TABLE_REF(((long)18)); 
BgL_arg4145z00_1277 = 
CNST_TABLE_REF(((long)19)); 
return 
BGl__invokevirtualz00zzdotnet_instrz00(BgL_envz00_58, BgL_arg4143z00_1275, BgL_arg4144z00_1276, BgL_arg4145z00_1277);} break;case ((long)1) : 

{ /* ./DotNet/compiler.scm 455 */
obj_t BgL_arg4149z00_1278;obj_t BgL_arg4150z00_1279;obj_t BgL_arg4151z00_1280;
BgL_arg4149z00_1278 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_58, 
CNST_TABLE_REF(((long)48))); 
BgL_arg4150z00_1279 = 
CNST_TABLE_REF(((long)45)); 
BgL_arg4151z00_1280 = 
CNST_TABLE_REF(((long)19)); 
return 
BGl__invokevirtualz00zzdotnet_instrz00(BgL_envz00_58, BgL_arg4149z00_1278, BgL_arg4150z00_1279, BgL_arg4151z00_1280);} break;case ((long)2) : 

{ /* ./DotNet/compiler.scm 457 */
obj_t BgL_arg4155z00_1281;obj_t BgL_arg4156z00_1282;obj_t BgL_arg4157z00_1283;
BgL_arg4155z00_1281 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_58, 
CNST_TABLE_REF(((long)49))); 
BgL_arg4156z00_1282 = 
CNST_TABLE_REF(((long)50)); 
BgL_arg4157z00_1283 = 
CNST_TABLE_REF(((long)19)); 
return 
BGl__invokevirtualz00zzdotnet_instrz00(BgL_envz00_58, BgL_arg4155z00_1281, BgL_arg4156z00_1282, BgL_arg4157z00_1283);} break;case ((long)3) : 

{ /* ./DotNet/compiler.scm 459 */
obj_t BgL_arg4161z00_1284;obj_t BgL_arg4162z00_1285;obj_t BgL_arg4163z00_1286;
BgL_arg4161z00_1284 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_58, 
CNST_TABLE_REF(((long)51))); 
BgL_arg4162z00_1285 = 
CNST_TABLE_REF(((long)52)); 
BgL_arg4163z00_1286 = 
CNST_TABLE_REF(((long)19)); 
return 
BGl__invokevirtualz00zzdotnet_instrz00(BgL_envz00_58, BgL_arg4161z00_1284, BgL_arg4162z00_1285, BgL_arg4163z00_1286);} break;case ((long)4) : 

{ /* ./DotNet/compiler.scm 461 */
obj_t BgL_arg4167z00_1287;obj_t BgL_arg4168z00_1288;obj_t BgL_arg4169z00_1289;
BgL_arg4167z00_1287 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_58, 
CNST_TABLE_REF(((long)53))); 
BgL_arg4168z00_1288 = 
CNST_TABLE_REF(((long)54)); 
BgL_arg4169z00_1289 = 
CNST_TABLE_REF(((long)19)); 
return 
BGl__invokevirtualz00zzdotnet_instrz00(BgL_envz00_58, BgL_arg4167z00_1287, BgL_arg4168z00_1288, BgL_arg4169z00_1289);} break;
default: 
{ /* ./DotNet/compiler.scm 464 */
obj_t BgL_arg4177z00_1290;
BgL_arg4177z00_1290 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_58, 
CNST_TABLE_REF(((long)4))); 
BGl__getstaticz00zzdotnet_instrz00(BgL_envz00_58, BgL_arg4177z00_1290); } 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_58, 
CNST_TABLE_REF(((long)46))); 
{ 
obj_t BgL_l3156z00_1291;
BgL_l3156z00_1291 = BgL_argsz00_1266; 
BgL_forzd2each3157zd2_1292:
{ /* ./DotNet/compiler.scm 466 */
bool_t BgL_test4182z00_1293;
BgL_test4182z00_1293 = 
PAIRP(BgL_l3156z00_1291); 
if(BgL_test4182z00_1293)
{ /* ./DotNet/compiler.scm 466 */
BGl__invokestaticz00zzdotnet_instrz00(BgL_envz00_58, 
CNST_TABLE_REF(((long)46)), 
CNST_TABLE_REF(((long)45)), 
CNST_TABLE_REF(((long)19))); 
{ /* ./DotNet/compiler.scm 466 */
obj_t BgL_arg4186z00_1295;
BgL_arg4186z00_1295 = 
CDR(BgL_l3156z00_1291); 
{ 
obj_t BgL_l3156z00_3496;
BgL_l3156z00_3496 = BgL_arg4186z00_1295; 
BgL_l3156z00_1291 = BgL_l3156z00_3496; 
goto BgL_forzd2each3157zd2_1292;} } }  else 
{ /* ./DotNet/compiler.scm 466 */((bool_t)1); } } } 
{ /* ./DotNet/compiler.scm 469 */
obj_t BgL_arg4191z00_1296;obj_t BgL_arg4192z00_1297;obj_t BgL_arg4193z00_1298;
BgL_arg4191z00_1296 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_58, 
CNST_TABLE_REF(((long)44))); 
BgL_arg4192z00_1297 = 
CNST_TABLE_REF(((long)45)); 
BgL_arg4193z00_1298 = 
CNST_TABLE_REF(((long)19)); 
return 
BGl__invokevirtualz00zzdotnet_instrz00(BgL_envz00_58, BgL_arg4191z00_1296, BgL_arg4192z00_1297, BgL_arg4193z00_1298);} } } } } } } } 
}



/* _compiler-funcall5108 */
obj_t BGl__compilerzd2funcall5108zd2zzdotnet_compilerz00(obj_t BgL_envz00_2369, obj_t BgL_ez00_2370, obj_t BgL_envz00_2371)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 432 */
return 
BGl_compilerzd2funcallzd2zzdotnet_compilerz00(
(BgL_funcallz00_bglt)(BgL_ez00_2370), 
(BgL_envz00_bglt)(BgL_envz00_2371));} 
}



/* compiler-pragma */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2pragmazd2zzdotnet_compilerz00(BgL_pragmaz00_bglt BgL_ez00_59, BgL_envz00_bglt BgL_envz00_60)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 473 */
{ /* ./DotNet/compiler.scm 474 */
obj_t BgL_nz00_2194;
BgL_nz00_2194 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_59)); 
if(
CBOOL(BgL_nz00_2194))
{ /* ./DotNet/compiler.scm 474 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_60, BgL_nz00_2194); }  else 
{ /* ./DotNet/compiler.scm 474 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 477 */
bool_t BgL_test4233z00_1312;
BgL_test4233z00_1312 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(
(((BgL_pragmaz00_bglt)CREF(BgL_ez00_59))->BgL_formatz00), BGl_string5553z00zzdotnet_compilerz00); 
if(BgL_test4233z00_1312)
{ /* ./DotNet/compiler.scm 477 */
{ /* ./DotNet/compiler.scm 478 */
obj_t BgL_arg4235z00_1313;obj_t BgL_arg4237z00_1315;
BgL_arg4235z00_1313 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_60, 
CNST_TABLE_REF(((long)55))); 
if(
CBOOL(BGl_za2longislongza2z00zzdotnet_envz00))
{ /* ./DotNet/compiler.scm 479 */
BgL_arg4237z00_1315 = 
CNST_TABLE_REF(((long)24)); }  else 
{ /* ./DotNet/compiler.scm 479 */
BgL_arg4237z00_1315 = 
CNST_TABLE_REF(((long)5)); } 
return 
BGl__invokestaticz00zzdotnet_instrz00(BgL_envz00_60, BgL_arg4235z00_1313, BNIL, BgL_arg4237z00_1315);} }  else 
{ /* ./DotNet/compiler.scm 477 */
{ /* ./DotNet/compiler.scm 481 */
obj_t BgL_arg4243z00_1318;
{ /* ./DotNet/compiler.scm 481 */
obj_t BgL_arg4246z00_1319;obj_t BgL_arg4247z00_1320;
BgL_arg4246z00_1319 = 
(((BgL_pragmaz00_bglt)CREF(BgL_ez00_59))->BgL_formatz00); 
{ /* ./DotNet/compiler.scm 481 */
BgL_externz00_bglt BgL_obj1817z00_2197;
BgL_obj1817z00_2197 = 
(BgL_externz00_bglt)(BgL_ez00_59); 
BgL_arg4247z00_1320 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2197))->BgL_exprza2za2); } 
BgL_arg4243z00_1318 = 
MAKE_PAIR(BgL_arg4246z00_1319, BgL_arg4247z00_1320); } 
FAILURE(BGl_string5554z00zzdotnet_compilerz00,BGl_string5555z00zzdotnet_compilerz00,BgL_arg4243z00_1318);} } } } 
}



/* _compiler-pragma5110 */
obj_t BGl__compilerzd2pragma5110zd2zzdotnet_compilerz00(obj_t BgL_envz00_2372, obj_t BgL_ez00_2373, obj_t BgL_envz00_2374)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 473 */
return 
BGl_compilerzd2pragmazd2zzdotnet_compilerz00(
(BgL_pragmaz00_bglt)(BgL_ez00_2373), 
(BgL_envz00_bglt)(BgL_envz00_2374));} 
}



/* compiler-getfield */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2getfieldzd2zzdotnet_compilerz00(BgL_getfieldz00_bglt BgL_ez00_61, BgL_envz00_bglt BgL_envz00_62)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 484 */
{ /* ./DotNet/compiler.scm 485 */
obj_t BgL_nz00_2203;
BgL_nz00_2203 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_61)); 
if(
CBOOL(BgL_nz00_2203))
{ /* ./DotNet/compiler.scm 485 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_62, BgL_nz00_2203); }  else 
{ /* ./DotNet/compiler.scm 485 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 487 */
obj_t BgL_arg4258z00_1324;
{ /* ./DotNet/compiler.scm 487 */
obj_t BgL_auxz00_3536;
{ /* ./DotNet/compiler.scm 487 */
BgL_externz00_bglt BgL_obj1817z00_2204;
BgL_obj1817z00_2204 = 
(BgL_externz00_bglt)(BgL_ez00_61); 
BgL_auxz00_3536 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2204))->BgL_exprza2za2); } 
BgL_arg4258z00_1324 = 
CAR(BgL_auxz00_3536); } 
BGl_compilezd2exprzd2zzdotnet_exprz00(
(BgL_nodez00_bglt)(BgL_arg4258z00_1324), BgL_envz00_62); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./DotNet/compiler.scm 488 */
obj_t BgL_arg4265z00_1326;
{ /* ./DotNet/compiler.scm 488 */
BgL_typez00_bglt BgL_arg4268z00_1327;
BgL_arg4268z00_1327 = 
(((BgL_getfieldz00_bglt)CREF(BgL_ez00_61))->BgL_otypez00); 
BgL_arg4265z00_1326 = 
BGl_compilezd2typezd2nowideningz00zzdotnet_envz00(
(obj_t)(BgL_arg4268z00_1327), BgL_envz00_62); } 
BGl__checkcastz00zzdotnet_instrz00(BgL_envz00_62, BgL_arg4265z00_1326); }  else 
{ /* ./DotNet/compiler.scm 488 */BFALSE; } 
{ /* ./DotNet/compiler.scm 490 */
obj_t BgL_arg4272z00_1328;obj_t BgL_arg4273z00_1329;
{ /* ./DotNet/compiler.scm 490 */
BgL_typez00_bglt BgL_arg4276z00_1330;
BgL_arg4276z00_1330 = 
(((BgL_getfieldz00_bglt)CREF(BgL_ez00_61))->BgL_ftypez00); 
BgL_arg4272z00_1328 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_arg4276z00_1330), BgL_envz00_62); } 
{ /* ./DotNet/compiler.scm 491 */
obj_t BgL_arg4280z00_1331;obj_t BgL_arg4281z00_1332;obj_t BgL_arg4282z00_1333;
BgL_arg4280z00_1331 = 
(((BgL_getfieldz00_bglt)CREF(BgL_ez00_61))->BgL_fnamez00); 
{ /* ./DotNet/compiler.scm 493 */
BgL_typez00_bglt BgL_arg4286z00_1334;
BgL_arg4286z00_1334 = 
(((BgL_getfieldz00_bglt)CREF(BgL_ez00_61))->BgL_ftypez00); 
BgL_arg4281z00_1332 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_arg4286z00_1334), BgL_envz00_62); } 
{ /* ./DotNet/compiler.scm 494 */
BgL_typez00_bglt BgL_arg4290z00_1335;
BgL_arg4290z00_1335 = 
(((BgL_getfieldz00_bglt)CREF(BgL_ez00_61))->BgL_otypez00); 
BgL_arg4282z00_1333 = 
BGl_compilezd2typezd2nowideningz00zzdotnet_envz00(
(obj_t)(BgL_arg4290z00_1335), BgL_envz00_62); } 
BgL_arg4273z00_1329 = 
BGl_envzd2declarezd2fieldz00zzdotnet_envz00(
(obj_t)(BgL_envz00_62), BgL_arg4280z00_1331, BgL_arg4281z00_1332, BgL_arg4282z00_1333); } 
return 
BGl__getfieldz00zzdotnet_instrz00(BgL_envz00_62, BgL_arg4272z00_1328, BgL_arg4273z00_1329);} } 
}



/* _compiler-getfield5112 */
obj_t BGl__compilerzd2getfield5112zd2zzdotnet_compilerz00(obj_t BgL_envz00_2375, obj_t BgL_ez00_2376, obj_t BgL_envz00_2377)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 484 */
return 
BGl_compilerzd2getfieldzd2zzdotnet_compilerz00(
(BgL_getfieldz00_bglt)(BgL_ez00_2376), 
(BgL_envz00_bglt)(BgL_envz00_2377));} 
}



/* compiler-setfield */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2setfieldzd2zzdotnet_compilerz00(BgL_setfieldz00_bglt BgL_ez00_63, BgL_envz00_bglt BgL_envz00_64)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 497 */
{ /* ./DotNet/compiler.scm 498 */
obj_t BgL_nz00_2213;
BgL_nz00_2213 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_63)); 
if(
CBOOL(BgL_nz00_2213))
{ /* ./DotNet/compiler.scm 498 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_64, BgL_nz00_2213); }  else 
{ /* ./DotNet/compiler.scm 498 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 500 */
obj_t BgL_arg4295z00_1337;
{ /* ./DotNet/compiler.scm 500 */
obj_t BgL_auxz00_3570;
{ /* ./DotNet/compiler.scm 500 */
BgL_externz00_bglt BgL_obj1817z00_2214;
BgL_obj1817z00_2214 = 
(BgL_externz00_bglt)(BgL_ez00_63); 
BgL_auxz00_3570 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2214))->BgL_exprza2za2); } 
BgL_arg4295z00_1337 = 
CAR(BgL_auxz00_3570); } 
BGl_compilezd2exprzd2zzdotnet_exprz00(
(BgL_nodez00_bglt)(BgL_arg4295z00_1337), BgL_envz00_64); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./DotNet/compiler.scm 501 */
obj_t BgL_arg4302z00_1339;
{ /* ./DotNet/compiler.scm 501 */
BgL_typez00_bglt BgL_arg4305z00_1340;
BgL_arg4305z00_1340 = 
(((BgL_setfieldz00_bglt)CREF(BgL_ez00_63))->BgL_otypez00); 
BgL_arg4302z00_1339 = 
BGl_compilezd2typezd2nowideningz00zzdotnet_envz00(
(obj_t)(BgL_arg4305z00_1340), BgL_envz00_64); } 
BGl__checkcastz00zzdotnet_instrz00(BgL_envz00_64, BgL_arg4302z00_1339); }  else 
{ /* ./DotNet/compiler.scm 501 */BFALSE; } 
{ /* ./DotNet/compiler.scm 502 */
obj_t BgL_arg4309z00_1341;
{ /* ./DotNet/compiler.scm 502 */
obj_t BgL_auxz00_3582;
{ /* ./DotNet/compiler.scm 502 */
obj_t BgL_auxz00_3583;
{ /* ./DotNet/compiler.scm 502 */
BgL_externz00_bglt BgL_obj1817z00_2217;
BgL_obj1817z00_2217 = 
(BgL_externz00_bglt)(BgL_ez00_63); 
BgL_auxz00_3583 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2217))->BgL_exprza2za2); } 
BgL_auxz00_3582 = 
CDR(BgL_auxz00_3583); } 
BgL_arg4309z00_1341 = 
CAR(BgL_auxz00_3582); } 
BGl_compilezd2exprzd2zzdotnet_exprz00(
(BgL_nodez00_bglt)(BgL_arg4309z00_1341), BgL_envz00_64); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./DotNet/compiler.scm 503 */
obj_t BgL_arg4316z00_1343;
{ /* ./DotNet/compiler.scm 503 */
BgL_typez00_bglt BgL_arg4319z00_1344;
BgL_arg4319z00_1344 = 
(((BgL_setfieldz00_bglt)CREF(BgL_ez00_63))->BgL_ftypez00); 
BgL_arg4316z00_1343 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_arg4319z00_1344), BgL_envz00_64); } 
BGl__checkcastz00zzdotnet_instrz00(BgL_envz00_64, BgL_arg4316z00_1343); }  else 
{ /* ./DotNet/compiler.scm 503 */BFALSE; } 
{ /* ./DotNet/compiler.scm 504 */
obj_t BgL_arg4323z00_1345;
{ /* ./DotNet/compiler.scm 504 */
obj_t BgL_arg4326z00_1346;obj_t BgL_arg4327z00_1347;obj_t BgL_arg4328z00_1348;
BgL_arg4326z00_1346 = 
(((BgL_setfieldz00_bglt)CREF(BgL_ez00_63))->BgL_fnamez00); 
{ /* ./DotNet/compiler.scm 505 */
BgL_typez00_bglt BgL_arg4332z00_1349;
BgL_arg4332z00_1349 = 
(((BgL_setfieldz00_bglt)CREF(BgL_ez00_63))->BgL_ftypez00); 
BgL_arg4327z00_1347 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_arg4332z00_1349), BgL_envz00_64); } 
{ /* ./DotNet/compiler.scm 506 */
BgL_typez00_bglt BgL_arg4336z00_1350;
BgL_arg4336z00_1350 = 
(((BgL_setfieldz00_bglt)CREF(BgL_ez00_63))->BgL_otypez00); 
BgL_arg4328z00_1348 = 
BGl_compilezd2typezd2nowideningz00zzdotnet_envz00(
(obj_t)(BgL_arg4336z00_1350), BgL_envz00_64); } 
BgL_arg4323z00_1345 = 
BGl_envzd2declarezd2fieldz00zzdotnet_envz00(
(obj_t)(BgL_envz00_64), BgL_arg4326z00_1346, BgL_arg4327z00_1347, BgL_arg4328z00_1348); } 
return 
BGl__putfieldz00zzdotnet_instrz00(BgL_envz00_64, BgL_arg4323z00_1345);} } 
}



/* _compiler-setfield5114 */
obj_t BGl__compilerzd2setfield5114zd2zzdotnet_compilerz00(obj_t BgL_envz00_2378, obj_t BgL_ez00_2379, obj_t BgL_envz00_2380)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 497 */
return 
BGl_compilerzd2setfieldzd2zzdotnet_compilerz00(
(BgL_setfieldz00_bglt)(BgL_ez00_2379), 
(BgL_envz00_bglt)(BgL_envz00_2380));} 
}



/* compiler-new */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2newzd2zzdotnet_compilerz00(BgL_newz00_bglt BgL_ez00_65, BgL_envz00_bglt BgL_envz00_66)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 509 */
{ /* ./DotNet/compiler.scm 510 */
obj_t BgL_nz00_2228;
BgL_nz00_2228 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_65)); 
if(
CBOOL(BgL_nz00_2228))
{ /* ./DotNet/compiler.scm 510 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_66, BgL_nz00_2228); }  else 
{ /* ./DotNet/compiler.scm 510 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 511 */
obj_t BgL_typez00_1351;
{ /* ./DotNet/compiler.scm 511 */
BgL_typez00_bglt BgL_arg4355z00_1359;
BgL_arg4355z00_1359 = 
BGl_typeofz00zztype_typeofz00(
(BgL_nodez00_bglt)(BgL_ez00_65)); 
BgL_typez00_1351 = 
BGl_compilezd2typezd2nowideningz00zzdotnet_envz00(
(obj_t)(BgL_arg4355z00_1359), BgL_envz00_66); } 
BGl__newz00zzdotnet_instrz00(BgL_envz00_66, BgL_typez00_1351); 
{ /* ./DotNet/compiler.scm 514 */
bool_t BgL_test4341z00_1353;
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./DotNet/compiler.scm 514 */
bool_t BgL_test4349z00_1357;
{ /* ./DotNet/compiler.scm 514 */
BgL_typez00_bglt BgL_arg4351z00_1358;
BgL_arg4351z00_1358 = 
BGl_typeofz00zztype_typeofz00(
(BgL_nodez00_bglt)(BgL_ez00_65)); 
{ /* ./DotNet/compiler.scm 514 */
obj_t BgL_obj2798z00_2230;
BgL_obj2798z00_2230 = 
(obj_t)(BgL_arg4351z00_1358); 
BgL_test4349z00_1357 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2798z00_2230, BGl_jclassz00zzobject_classz00); } } 
if(BgL_test4349z00_1357)
{ /* ./DotNet/compiler.scm 514 */
BgL_test4341z00_1353 = ((bool_t)0); }  else 
{ /* ./DotNet/compiler.scm 514 */
BgL_test4341z00_1353 = ((bool_t)1); } }  else 
{ /* ./DotNet/compiler.scm 514 */
BgL_test4341z00_1353 = ((bool_t)0); } 
if(BgL_test4341z00_1353)
{ /* ./DotNet/compiler.scm 514 */
BGl__dupz00zzdotnet_instrz00(BgL_envz00_66); 
{ /* ./DotNet/compiler.scm 517 */
obj_t BgL_arg4344z00_1354;obj_t BgL_arg4345z00_1355;obj_t BgL_arg4346z00_1356;
BgL_arg4344z00_1354 = 
BGl_envzd2declarezd2initz00zzdotnet_envz00(
(obj_t)(BgL_envz00_66), BgL_typez00_1351); 
BgL_arg4345z00_1355 = 
CNST_TABLE_REF(((long)18)); 
BgL_arg4346z00_1356 = 
CNST_TABLE_REF(((long)14)); 
return 
BGl__invokespecialz00zzdotnet_instrz00(BgL_envz00_66, BgL_arg4344z00_1354, BgL_arg4345z00_1355, BgL_arg4346z00_1356);} }  else 
{ /* ./DotNet/compiler.scm 514 */
return BFALSE;} } } } 
}



/* _compiler-new5116 */
obj_t BGl__compilerzd2new5116zd2zzdotnet_compilerz00(obj_t BgL_envz00_2381, obj_t BgL_ez00_2382, obj_t BgL_envz00_2383)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 509 */
return 
BGl_compilerzd2newzd2zzdotnet_compilerz00(
(BgL_newz00_bglt)(BgL_ez00_2382), 
(BgL_envz00_bglt)(BgL_envz00_2383));} 
}



/* compiler-valloc */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2valloczd2zzdotnet_compilerz00(BgL_vallocz00_bglt BgL_ez00_67, BgL_envz00_bglt BgL_envz00_68)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 520 */
{ /* ./DotNet/compiler.scm 521 */
obj_t BgL_nz00_2233;
BgL_nz00_2233 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_67)); 
if(
CBOOL(BgL_nz00_2233))
{ /* ./DotNet/compiler.scm 521 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_68, BgL_nz00_2233); }  else 
{ /* ./DotNet/compiler.scm 521 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 523 */
obj_t BgL_arg4361z00_1361;
{ /* ./DotNet/compiler.scm 523 */
obj_t BgL_auxz00_3643;
{ /* ./DotNet/compiler.scm 523 */
BgL_externz00_bglt BgL_obj1817z00_2234;
BgL_obj1817z00_2234 = 
(BgL_externz00_bglt)(BgL_ez00_67); 
BgL_auxz00_3643 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2234))->BgL_exprza2za2); } 
BgL_arg4361z00_1361 = 
CAR(BgL_auxz00_3643); } 
BGl_compilezd2exprzd2zzdotnet_exprz00(
(BgL_nodez00_bglt)(BgL_arg4361z00_1361), BgL_envz00_68); } 
{ /* ./DotNet/compiler.scm 524 */
obj_t BgL_arg4368z00_1363;
{ /* ./DotNet/compiler.scm 524 */
BgL_typez00_bglt BgL_arg4371z00_1364;
BgL_arg4371z00_1364 = 
(((BgL_vallocz00_bglt)CREF(BgL_ez00_67))->BgL_ftypez00); 
BgL_arg4368z00_1363 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_arg4371z00_1364), BgL_envz00_68); } 
return 
BGl__newarrayz00zzdotnet_instrz00(BgL_envz00_68, BgL_arg4368z00_1363);} } 
}



/* _compiler-valloc5118 */
obj_t BGl__compilerzd2valloc5118zd2zzdotnet_compilerz00(obj_t BgL_envz00_2384, obj_t BgL_ez00_2385, obj_t BgL_envz00_2386)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 520 */
return 
BGl_compilerzd2valloczd2zzdotnet_compilerz00(
(BgL_vallocz00_bglt)(BgL_ez00_2385), 
(BgL_envz00_bglt)(BgL_envz00_2386));} 
}



/* compiler-vref */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2vrefzd2zzdotnet_compilerz00(BgL_vrefz00_bglt BgL_ez00_69, BgL_envz00_bglt BgL_envz00_70)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 527 */
{ /* ./DotNet/compiler.scm 528 */
obj_t BgL_nz00_2239;
BgL_nz00_2239 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_69)); 
if(
CBOOL(BgL_nz00_2239))
{ /* ./DotNet/compiler.scm 528 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_70, BgL_nz00_2239); }  else 
{ /* ./DotNet/compiler.scm 528 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 530 */
obj_t BgL_typez00_1366;
{ /* ./DotNet/compiler.scm 530 */
BgL_typez00_bglt BgL_arg4399z00_1374;
BgL_arg4399z00_1374 = 
(((BgL_vrefz00_bglt)CREF(BgL_ez00_69))->BgL_ftypez00); 
BgL_typez00_1366 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_arg4399z00_1374), BgL_envz00_70); } 
{ /* ./DotNet/compiler.scm 531 */
obj_t BgL_arg4376z00_1367;
{ /* ./DotNet/compiler.scm 531 */
obj_t BgL_auxz00_3665;
{ /* ./DotNet/compiler.scm 531 */
BgL_externz00_bglt BgL_obj1817z00_2241;
BgL_obj1817z00_2241 = 
(BgL_externz00_bglt)(BgL_ez00_69); 
BgL_auxz00_3665 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2241))->BgL_exprza2za2); } 
BgL_arg4376z00_1367 = 
CAR(BgL_auxz00_3665); } 
BGl_compilezd2exprzd2zzdotnet_exprz00(
(BgL_nodez00_bglt)(BgL_arg4376z00_1367), BgL_envz00_70); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./DotNet/compiler.scm 532 */
obj_t BgL_arg4383z00_1369;
{ /* ./DotNet/compiler.scm 532 */
obj_t BgL_arg4386z00_1370;obj_t BgL_arg4387z00_1371;
BgL_arg4386z00_1370 = 
CNST_TABLE_REF(((long)56)); 
BgL_arg4387z00_1371 = 
MAKE_PAIR(BgL_typez00_1366, BNIL); 
BgL_arg4383z00_1369 = 
MAKE_PAIR(BgL_arg4386z00_1370, BgL_arg4387z00_1371); } 
BGl__checkcastz00zzdotnet_instrz00(BgL_envz00_70, BgL_arg4383z00_1369); }  else 
{ /* ./DotNet/compiler.scm 532 */BFALSE; } 
{ /* ./DotNet/compiler.scm 533 */
obj_t BgL_arg4391z00_1372;
{ /* ./DotNet/compiler.scm 533 */
obj_t BgL_auxz00_3677;
{ /* ./DotNet/compiler.scm 533 */
obj_t BgL_auxz00_3678;
{ /* ./DotNet/compiler.scm 533 */
BgL_externz00_bglt BgL_obj1817z00_2243;
BgL_obj1817z00_2243 = 
(BgL_externz00_bglt)(BgL_ez00_69); 
BgL_auxz00_3678 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2243))->BgL_exprza2za2); } 
BgL_auxz00_3677 = 
CDR(BgL_auxz00_3678); } 
BgL_arg4391z00_1372 = 
CAR(BgL_auxz00_3677); } 
BGl_compilezd2exprzd2zzdotnet_exprz00(
(BgL_nodez00_bglt)(BgL_arg4391z00_1372), BgL_envz00_70); } 
return 
BGl__aloadz00zzdotnet_instrz00(BgL_envz00_70, BgL_typez00_1366);} } 
}



/* _compiler-vref5120 */
obj_t BGl__compilerzd2vref5120zd2zzdotnet_compilerz00(obj_t BgL_envz00_2387, obj_t BgL_ez00_2388, obj_t BgL_envz00_2389)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 527 */
return 
BGl_compilerzd2vrefzd2zzdotnet_compilerz00(
(BgL_vrefz00_bglt)(BgL_ez00_2388), 
(BgL_envz00_bglt)(BgL_envz00_2389));} 
}



/* compiler-vset */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2vsetzd2zzdotnet_compilerz00(BgL_vsetz12z12_bglt BgL_ez00_71, BgL_envz00_bglt BgL_envz00_72)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 537 */
{ /* ./DotNet/compiler.scm 538 */
obj_t BgL_nz00_2250;
BgL_nz00_2250 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_71)); 
if(
CBOOL(BgL_nz00_2250))
{ /* ./DotNet/compiler.scm 538 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_72, BgL_nz00_2250); }  else 
{ /* ./DotNet/compiler.scm 538 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 540 */
obj_t BgL_typez00_1376;
{ /* ./DotNet/compiler.scm 540 */
BgL_typez00_bglt BgL_arg4435z00_1386;
BgL_arg4435z00_1386 = 
(((BgL_vsetz12z12_bglt)CREF(BgL_ez00_71))->BgL_ftypez00); 
BgL_typez00_1376 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_arg4435z00_1386), BgL_envz00_72); } 
{ /* ./DotNet/compiler.scm 541 */
obj_t BgL_arg4404z00_1377;
{ /* ./DotNet/compiler.scm 541 */
obj_t BgL_auxz00_3698;
{ /* ./DotNet/compiler.scm 541 */
BgL_externz00_bglt BgL_obj1817z00_2252;
BgL_obj1817z00_2252 = 
(BgL_externz00_bglt)(BgL_ez00_71); 
BgL_auxz00_3698 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2252))->BgL_exprza2za2); } 
BgL_arg4404z00_1377 = 
CAR(BgL_auxz00_3698); } 
BGl_compilezd2exprzd2zzdotnet_exprz00(
(BgL_nodez00_bglt)(BgL_arg4404z00_1377), BgL_envz00_72); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./DotNet/compiler.scm 542 */
obj_t BgL_arg4411z00_1379;
{ /* ./DotNet/compiler.scm 542 */
obj_t BgL_arg4414z00_1380;obj_t BgL_arg4415z00_1381;
BgL_arg4414z00_1380 = 
CNST_TABLE_REF(((long)56)); 
BgL_arg4415z00_1381 = 
MAKE_PAIR(BgL_typez00_1376, BNIL); 
BgL_arg4411z00_1379 = 
MAKE_PAIR(BgL_arg4414z00_1380, BgL_arg4415z00_1381); } 
BGl__checkcastz00zzdotnet_instrz00(BgL_envz00_72, BgL_arg4411z00_1379); }  else 
{ /* ./DotNet/compiler.scm 542 */BFALSE; } 
{ /* ./DotNet/compiler.scm 543 */
obj_t BgL_arg4419z00_1382;
{ /* ./DotNet/compiler.scm 543 */
obj_t BgL_auxz00_3710;
{ /* ./DotNet/compiler.scm 543 */
obj_t BgL_auxz00_3711;
{ /* ./DotNet/compiler.scm 543 */
BgL_externz00_bglt BgL_obj1817z00_2254;
BgL_obj1817z00_2254 = 
(BgL_externz00_bglt)(BgL_ez00_71); 
BgL_auxz00_3711 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2254))->BgL_exprza2za2); } 
BgL_auxz00_3710 = 
CDR(BgL_auxz00_3711); } 
BgL_arg4419z00_1382 = 
CAR(BgL_auxz00_3710); } 
BGl_compilezd2exprzd2zzdotnet_exprz00(
(BgL_nodez00_bglt)(BgL_arg4419z00_1382), BgL_envz00_72); } 
{ /* ./DotNet/compiler.scm 544 */
obj_t BgL_arg4426z00_1384;
{ /* ./DotNet/compiler.scm 544 */
obj_t BgL_auxz00_3718;
{ /* ./DotNet/compiler.scm 544 */
obj_t BgL_auxz00_3719;
{ /* ./DotNet/compiler.scm 544 */
obj_t BgL_auxz00_3720;
{ /* ./DotNet/compiler.scm 544 */
BgL_externz00_bglt BgL_obj1817z00_2259;
BgL_obj1817z00_2259 = 
(BgL_externz00_bglt)(BgL_ez00_71); 
BgL_auxz00_3720 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2259))->BgL_exprza2za2); } 
BgL_auxz00_3719 = 
CDR(BgL_auxz00_3720); } 
BgL_auxz00_3718 = 
CDR(BgL_auxz00_3719); } 
BgL_arg4426z00_1384 = 
CAR(BgL_auxz00_3718); } 
BGl_compilezd2exprzd2zzdotnet_exprz00(
(BgL_nodez00_bglt)(BgL_arg4426z00_1384), BgL_envz00_72); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./DotNet/compiler.scm 545 */
BGl__checkcastz00zzdotnet_instrz00(BgL_envz00_72, BgL_typez00_1376); }  else 
{ /* ./DotNet/compiler.scm 545 */BFALSE; } 
return 
BGl__astorez00zzdotnet_instrz00(BgL_envz00_72, BgL_typez00_1376);} } 
}



/* _compiler-vset5122 */
obj_t BGl__compilerzd2vset5122zd2zzdotnet_compilerz00(obj_t BgL_envz00_2390, obj_t BgL_ez00_2391, obj_t BgL_envz00_2392)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 537 */
return 
BGl_compilerzd2vsetzd2zzdotnet_compilerz00(
(BgL_vsetz12z12_bglt)(BgL_ez00_2391), 
(BgL_envz00_bglt)(BgL_envz00_2392));} 
}



/* compiler-vlength */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2vlengthzd2zzdotnet_compilerz00(BgL_vlengthz00_bglt BgL_ez00_73, BgL_envz00_bglt BgL_envz00_74)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 549 */
{ /* ./DotNet/compiler.scm 550 */
obj_t BgL_nz00_2268;
BgL_nz00_2268 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_73)); 
if(
CBOOL(BgL_nz00_2268))
{ /* ./DotNet/compiler.scm 550 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_74, BgL_nz00_2268); }  else 
{ /* ./DotNet/compiler.scm 550 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 552 */
obj_t BgL_arg4440z00_1388;
{ /* ./DotNet/compiler.scm 552 */
obj_t BgL_auxz00_3741;
{ /* ./DotNet/compiler.scm 552 */
BgL_externz00_bglt BgL_obj1817z00_2269;
BgL_obj1817z00_2269 = 
(BgL_externz00_bglt)(BgL_ez00_73); 
BgL_auxz00_3741 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2269))->BgL_exprza2za2); } 
BgL_arg4440z00_1388 = 
CAR(BgL_auxz00_3741); } 
BGl_compilezd2exprzd2zzdotnet_exprz00(
(BgL_nodez00_bglt)(BgL_arg4440z00_1388), BgL_envz00_74); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./DotNet/compiler.scm 553 */
obj_t BgL_arg4447z00_1390;
{ /* ./DotNet/compiler.scm 553 */
BgL_typez00_bglt BgL_arg4450z00_1391;
BgL_arg4450z00_1391 = 
(((BgL_vlengthz00_bglt)CREF(BgL_ez00_73))->BgL_vtypez00); 
BgL_arg4447z00_1390 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_arg4450z00_1391), BgL_envz00_74); } 
BGl__checkcastz00zzdotnet_instrz00(BgL_envz00_74, BgL_arg4447z00_1390); }  else 
{ /* ./DotNet/compiler.scm 553 */BFALSE; } 
return 
BGl__arraylengthz00zzdotnet_instrz00(BgL_envz00_74);} 
}



/* _compiler-vlength5124 */
obj_t BGl__compilerzd2vlength5124zd2zzdotnet_compilerz00(obj_t BgL_envz00_2393, obj_t BgL_ez00_2394, obj_t BgL_envz00_2395)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 549 */
return 
BGl_compilerzd2vlengthzd2zzdotnet_compilerz00(
(BgL_vlengthz00_bglt)(BgL_ez00_2394), 
(BgL_envz00_bglt)(BgL_envz00_2395));} 
}



/* compiler-isa */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2isazd2zzdotnet_compilerz00(BgL_isaz00_bglt BgL_ez00_75, BgL_envz00_bglt BgL_envz00_76)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 557 */
{ /* ./DotNet/compiler.scm 558 */
obj_t BgL_nz00_2274;
BgL_nz00_2274 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_75)); 
if(
CBOOL(BgL_nz00_2274))
{ /* ./DotNet/compiler.scm 558 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_76, BgL_nz00_2274); }  else 
{ /* ./DotNet/compiler.scm 558 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 560 */
obj_t BgL_arg4456z00_1393;
{ /* ./DotNet/compiler.scm 560 */
obj_t BgL_auxz00_3763;
{ /* ./DotNet/compiler.scm 560 */
BgL_externz00_bglt BgL_obj1817z00_2275;
BgL_obj1817z00_2275 = 
(BgL_externz00_bglt)(BgL_ez00_75); 
BgL_auxz00_3763 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2275))->BgL_exprza2za2); } 
BgL_arg4456z00_1393 = 
CAR(BgL_auxz00_3763); } 
BGl_compilezd2exprzd2zzdotnet_exprz00(
(BgL_nodez00_bglt)(BgL_arg4456z00_1393), BgL_envz00_76); } 
{ /* ./DotNet/compiler.scm 561 */
obj_t BgL_arg4464z00_1395;
{ /* ./DotNet/compiler.scm 561 */
BgL_typez00_bglt BgL_arg4467z00_1396;
BgL_arg4467z00_1396 = 
(((BgL_isaz00_bglt)CREF(BgL_ez00_75))->BgL_classz00); 
BgL_arg4464z00_1395 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_arg4467z00_1396), BgL_envz00_76); } 
return 
BGl__instanceofz00zzdotnet_instrz00(BgL_envz00_76, BgL_arg4464z00_1395);} } 
}



/* _compiler-isa5126 */
obj_t BGl__compilerzd2isa5126zd2zzdotnet_compilerz00(obj_t BgL_envz00_2396, obj_t BgL_ez00_2397, obj_t BgL_envz00_2398)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 557 */
return 
BGl_compilerzd2isazd2zzdotnet_compilerz00(
(BgL_isaz00_bglt)(BgL_ez00_2397), 
(BgL_envz00_bglt)(BgL_envz00_2398));} 
}



/* compiler-cast */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2castzd2zzdotnet_compilerz00(BgL_castz00_bglt BgL_ez00_77, BgL_envz00_bglt BgL_envz00_78, obj_t BgL_compz00_79)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 564 */
{ /* ./DotNet/compiler.scm 565 */
obj_t BgL_nz00_2282;
BgL_nz00_2282 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_77)); 
if(
CBOOL(BgL_nz00_2282))
{ /* ./DotNet/compiler.scm 565 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_78, BgL_nz00_2282); }  else 
{ /* ./DotNet/compiler.scm 565 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 566 */
BgL_nodez00_bglt BgL_arg4472z00_2279;
BgL_arg4472z00_2279 = 
(((BgL_castz00_bglt)CREF(BgL_ez00_77))->BgL_argz00); 
return 
PROCEDURE_ENTRY(BgL_compz00_79)(BgL_compz00_79, 
(obj_t)(BgL_arg4472z00_2279), 
(obj_t)(BgL_envz00_78), BEOA);} } 
}



/* _compiler-cast5128 */
obj_t BGl__compilerzd2cast5128zd2zzdotnet_compilerz00(obj_t BgL_envz00_2399, obj_t BgL_ez00_2400, obj_t BgL_envz00_2401, obj_t BgL_compz00_2402)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 564 */
return 
BGl_compilerzd2castzd2zzdotnet_compilerz00(
(BgL_castz00_bglt)(BgL_ez00_2400), 
(BgL_envz00_bglt)(BgL_envz00_2401), BgL_compz00_2402);} 
}



/* compiler-setexit */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2setexitzd2zzdotnet_compilerz00(BgL_setzd2exzd2itz00_bglt BgL_ez00_80, BgL_envz00_bglt BgL_envz00_81, obj_t BgL_compz00_82)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 570 */
{ /* ./DotNet/compiler.scm 571 */
obj_t BgL_nz00_2286;
BgL_nz00_2286 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_80)); 
if(
CBOOL(BgL_nz00_2286))
{ /* ./DotNet/compiler.scm 571 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_81, BgL_nz00_2286); }  else 
{ /* ./DotNet/compiler.scm 571 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 573 */
BgL_variablez00_bglt BgL_localz00_1400;obj_t BgL_tretz00_1401;obj_t BgL_vretz00_1402;obj_t BgL_vbugz00_1403;
{ /* ./DotNet/compiler.scm 573 */
BgL_varz00_bglt BgL_arg4602z00_1444;
BgL_arg4602z00_1444 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_ez00_80))->BgL_varz00); 
BgL_localz00_1400 = 
(((BgL_varz00_bglt)CREF(BgL_arg4602z00_1444))->BgL_variablez00); } 
BgL_tretz00_1401 = BNIL; 
BgL_vretz00_1402 = BNIL; 
BgL_vbugz00_1403 = BNIL; 
{ /* ./DotNet/compiler.scm 574 */
BgL_typez00_bglt BgL_arg4477z00_1404;
{ /* ./DotNet/compiler.scm 574 */
BgL_nodez00_bglt BgL_arg4480z00_1405;
BgL_arg4480z00_1405 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_ez00_80))->BgL_bodyz00); 
BgL_arg4477z00_1404 = 
BGl_typeofz00zztype_typeofz00(BgL_arg4480z00_1405); } 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_arg4477z00_1404), BgL_envz00_81); } 
BgL_tretz00_1401 = 
CNST_TABLE_REF(((long)36)); 
BgL_vretz00_1402 = 
BGl_envzd2alloczd2localz00zzdotnet_envz00(BgL_envz00_81, BgL_tretz00_1401); 
BgL_vbugz00_1403 = 
BGl_envzd2alloczd2localz00zzdotnet_envz00(BgL_envz00_81, 
CNST_TABLE_REF(((long)57))); 
BGl__pushz00zzdotnet_instrz00(BgL_envz00_81, 
CNST_TABLE_REF(((long)5)), 
BINT(((long)0))); 
BGl__store_namez00zzdotnet_instrz00(BgL_envz00_81, BgL_vbugz00_1403, 
CNST_TABLE_REF(((long)57))); 
{ /* ./DotNet/compiler.scm 581 */
obj_t BgL_arg4488z00_1406;obj_t BgL_arg4490z00_1408;
BgL_arg4488z00_1406 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_81, 
CNST_TABLE_REF(((long)58))); 
BgL_arg4490z00_1408 = 
CNST_TABLE_REF(((long)19)); 
BGl__invokestaticz00zzdotnet_instrz00(BgL_envz00_81, BgL_arg4488z00_1406, BNIL, BgL_arg4490z00_1408); } 
{ /* ./DotNet/compiler.scm 582 */
obj_t BgL_arg4494z00_1409;
BgL_arg4494z00_1409 = 
BGl_envzd2declarezd2newzd2localzd2zzdotnet_envz00(BgL_envz00_81, 
(BgL_localz00_bglt)(BgL_localz00_1400)); 
BGl__storez00zzdotnet_instrz00(BgL_envz00_81, 
(BgL_localz00_bglt)(BgL_arg4494z00_1409)); } 
{ /* ./DotNet/compiler.scm 583 */
obj_t BgL_contz00_1410;obj_t BgL_excz00_1411;
BgL_contz00_1410 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string5544z00zzdotnet_compilerz00, BEOA); 
BgL_excz00_1411 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_81, 
CNST_TABLE_REF(((long)59))); 
{ /* ./DotNet/compiler.scm 585 */
obj_t BgL_arg4498z00_1412;
{ /* ./DotNet/compiler.scm 585 */
obj_t BgL_auxz00_3823;
BgL_auxz00_3823 = 
CNST_TABLE_REF(((long)60)); 
BgL_arg4498z00_1412 = 
MAKE_PAIR(BgL_auxz00_3823, BNIL); } 
BGl_envzd2codez12zc0zzdotnet_instrz00(BgL_envz00_81, BgL_arg4498z00_1412); } 
{ /* ./DotNet/compiler.scm 586 */
BgL_nodez00_bglt BgL_arg4502z00_1413;
BgL_arg4502z00_1413 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_ez00_80))->BgL_bodyz00); 
PROCEDURE_ENTRY(BgL_compz00_82)(BgL_compz00_82, 
(obj_t)(BgL_arg4502z00_1413), 
(obj_t)(BgL_envz00_81), BEOA); } 
BGl__store_namez00zzdotnet_instrz00(BgL_envz00_81, BgL_vretz00_1402, BgL_tretz00_1401); 
{ /* ./DotNet/compiler.scm 588 */
obj_t BgL_stackz00_1414;
BgL_stackz00_1414 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_81))->BgL_stackz00); 
{ /* ./DotNet/compiler.scm 589 */
obj_t BgL_arg4507z00_1415;
{ /* ./DotNet/compiler.scm 589 */
obj_t BgL_arg4510z00_1416;obj_t BgL_arg4511z00_1417;
BgL_arg4510z00_1416 = 
CNST_TABLE_REF(((long)61)); 
BgL_arg4511z00_1417 = 
MAKE_PAIR(BgL_contz00_1410, BNIL); 
BgL_arg4507z00_1415 = 
MAKE_PAIR(BgL_arg4510z00_1416, BgL_arg4511z00_1417); } 
BGl_envzd2codez12zc0zzdotnet_instrz00(BgL_envz00_81, BgL_arg4507z00_1415); } 
{ /* ./DotNet/compiler.scm 590 */
obj_t BgL_arg4515z00_1418;
{ /* ./DotNet/compiler.scm 590 */
obj_t BgL_arg4518z00_1419;obj_t BgL_arg4519z00_1420;
BgL_arg4518z00_1419 = 
CNST_TABLE_REF(((long)62)); 
BgL_arg4519z00_1420 = 
MAKE_PAIR(BgL_excz00_1411, BNIL); 
BgL_arg4515z00_1418 = 
MAKE_PAIR(BgL_arg4518z00_1419, BgL_arg4519z00_1420); } 
BGl_envzd2codez12zc0zzdotnet_instrz00(BgL_envz00_81, BgL_arg4515z00_1418); } 
{ /* ./DotNet/compiler.scm 591 */
BgL_envz00_bglt BgL_obj3024z00_2292;obj_t BgL_val3023z00_2293;
BgL_obj3024z00_2292 = BgL_envz00_81; 
BgL_val3023z00_2293 = 
CNST_TABLE_REF(((long)18)); 
((((BgL_envz00_bglt)CREF(BgL_obj3024z00_2292))->BgL_stackz00) = ((obj_t)BgL_val3023z00_2293), BUNSPEC); } 
BGl__load_namez00zzdotnet_instrz00(BgL_envz00_81, BgL_vbugz00_1403, 
CNST_TABLE_REF(((long)57))); 
BGl__ifz00zzdotnet_instrz00(
CNST_TABLE_REF(((long)63)), BgL_envz00_81, 
CNST_TABLE_REF(((long)64))); 
{ /* ./DotNet/compiler.scm 596 */
obj_t BgL_arg4526z00_1421;
{ /* ./DotNet/compiler.scm 596 */
obj_t BgL_auxz00_3849;
BgL_auxz00_3849 = 
CNST_TABLE_REF(((long)65)); 
BgL_arg4526z00_1421 = 
MAKE_PAIR(BgL_auxz00_3849, BNIL); } 
BGl_envzd2codez12zc0zzdotnet_instrz00(BgL_envz00_81, BgL_arg4526z00_1421); } 
BGl__labelz00zzdotnet_instrz00(BgL_envz00_81, 
CNST_TABLE_REF(((long)64))); 
BGl__pushz00zzdotnet_instrz00(BgL_envz00_81, 
CNST_TABLE_REF(((long)5)), 
BINT(((long)1))); 
BGl__store_namez00zzdotnet_instrz00(BgL_envz00_81, BgL_vbugz00_1403, 
CNST_TABLE_REF(((long)57))); 
{ /* ./DotNet/compiler.scm 603 */
BgL_variablez00_bglt BgL_arg4533z00_1422;
{ /* ./DotNet/compiler.scm 603 */
BgL_varz00_bglt BgL_arg4536z00_1423;
BgL_arg4536z00_1423 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_ez00_80))->BgL_varz00); 
BgL_arg4533z00_1422 = 
(((BgL_varz00_bglt)CREF(BgL_arg4536z00_1423))->BgL_variablez00); } 
BGl__loadz00zzdotnet_instrz00(BgL_envz00_81, 
(BgL_localz00_bglt)(BgL_arg4533z00_1422)); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./DotNet/compiler.scm 604 */
obj_t BgL_arg4540z00_1424;
BgL_arg4540z00_1424 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_81, 
CNST_TABLE_REF(((long)66))); 
BGl__checkcastz00zzdotnet_instrz00(BgL_envz00_81, BgL_arg4540z00_1424); }  else 
{ /* ./DotNet/compiler.scm 604 */BFALSE; } 
{ /* ./DotNet/compiler.scm 605 */
obj_t BgL_arg4544z00_1425;obj_t BgL_arg4545z00_1426;obj_t BgL_arg4546z00_1427;
BgL_arg4544z00_1425 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_81, 
CNST_TABLE_REF(((long)67))); 
BgL_arg4545z00_1426 = 
CNST_TABLE_REF(((long)45)); 
BgL_arg4546z00_1427 = 
CNST_TABLE_REF(((long)19)); 
BGl__invokestaticz00zzdotnet_instrz00(BgL_envz00_81, BgL_arg4544z00_1425, BgL_arg4545z00_1426, BgL_arg4546z00_1427); } 
BGl__store_namez00zzdotnet_instrz00(BgL_envz00_81, BgL_vretz00_1402, BgL_tretz00_1401); 
{ /* ./DotNet/compiler.scm 609 */
BgL_envz00_bglt BgL_obj3024z00_2296;obj_t BgL_val3023z00_2297;
BgL_obj3024z00_2296 = BgL_envz00_81; 
BgL_val3023z00_2297 = BgL_stackz00_1414; 
((((BgL_envz00_bglt)CREF(BgL_obj3024z00_2296))->BgL_stackz00) = ((obj_t)BgL_val3023z00_2297), BUNSPEC); } 
{ /* ./DotNet/compiler.scm 610 */
obj_t BgL_arg4552z00_1428;
{ /* ./DotNet/compiler.scm 610 */
obj_t BgL_arg4555z00_1429;obj_t BgL_arg4556z00_1430;
BgL_arg4555z00_1429 = 
CNST_TABLE_REF(((long)61)); 
BgL_arg4556z00_1430 = 
MAKE_PAIR(BgL_contz00_1410, BNIL); 
BgL_arg4552z00_1428 = 
MAKE_PAIR(BgL_arg4555z00_1429, BgL_arg4556z00_1430); } 
BGl_envzd2codez12zc0zzdotnet_instrz00(BgL_envz00_81, BgL_arg4552z00_1428); } 
{ /* ./DotNet/compiler.scm 611 */
obj_t BgL_excz00_1431;
BgL_excz00_1431 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_81, 
CNST_TABLE_REF(((long)68))); 
{ /* ./DotNet/compiler.scm 612 */
obj_t BgL_arg4560z00_1432;
{ /* ./DotNet/compiler.scm 612 */
obj_t BgL_arg4563z00_1433;obj_t BgL_arg4564z00_1434;
BgL_arg4563z00_1433 = 
CNST_TABLE_REF(((long)62)); 
BgL_arg4564z00_1434 = 
MAKE_PAIR(BgL_excz00_1431, BNIL); 
BgL_arg4560z00_1432 = 
MAKE_PAIR(BgL_arg4563z00_1433, BgL_arg4564z00_1434); } 
BGl_envzd2codez12zc0zzdotnet_instrz00(BgL_envz00_81, BgL_arg4560z00_1432); } 
{ /* ./DotNet/compiler.scm 613 */
BgL_envz00_bglt BgL_obj3024z00_2298;obj_t BgL_val3023z00_2299;
BgL_obj3024z00_2298 = BgL_envz00_81; 
BgL_val3023z00_2299 = 
CNST_TABLE_REF(((long)18)); 
((((BgL_envz00_bglt)CREF(BgL_obj3024z00_2298))->BgL_stackz00) = ((obj_t)BgL_val3023z00_2299), BUNSPEC); } 
{ /* ./DotNet/compiler.scm 614 */
BgL_variablez00_bglt BgL_arg4569z00_1435;
{ /* ./DotNet/compiler.scm 614 */
BgL_varz00_bglt BgL_arg4572z00_1436;
BgL_arg4572z00_1436 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_ez00_80))->BgL_varz00); 
BgL_arg4569z00_1435 = 
(((BgL_varz00_bglt)CREF(BgL_arg4572z00_1436))->BgL_variablez00); } 
BGl__loadz00zzdotnet_instrz00(BgL_envz00_81, 
(BgL_localz00_bglt)(BgL_arg4569z00_1435)); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./DotNet/compiler.scm 615 */
obj_t BgL_arg4576z00_1437;
BgL_arg4576z00_1437 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_81, 
CNST_TABLE_REF(((long)66))); 
BGl__checkcastz00zzdotnet_instrz00(BgL_envz00_81, BgL_arg4576z00_1437); }  else 
{ /* ./DotNet/compiler.scm 615 */BFALSE; } 
{ /* ./DotNet/compiler.scm 616 */
obj_t BgL_arg4580z00_1438;obj_t BgL_arg4581z00_1439;obj_t BgL_arg4582z00_1440;
BgL_arg4580z00_1438 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_81, 
CNST_TABLE_REF(((long)69))); 
BgL_arg4581z00_1439 = 
CNST_TABLE_REF(((long)45)); 
BgL_arg4582z00_1440 = 
CNST_TABLE_REF(((long)19)); 
BGl__invokestaticz00zzdotnet_instrz00(BgL_envz00_81, BgL_arg4580z00_1438, BgL_arg4581z00_1439, BgL_arg4582z00_1440); } 
BGl__store_namez00zzdotnet_instrz00(BgL_envz00_81, BgL_vretz00_1402, BgL_tretz00_1401); 
{ /* ./DotNet/compiler.scm 620 */
BgL_envz00_bglt BgL_obj3024z00_2302;obj_t BgL_val3023z00_2303;
BgL_obj3024z00_2302 = BgL_envz00_81; 
BgL_val3023z00_2303 = BgL_stackz00_1414; 
((((BgL_envz00_bglt)CREF(BgL_obj3024z00_2302))->BgL_stackz00) = ((obj_t)BgL_val3023z00_2303), BUNSPEC); } 
{ /* ./DotNet/compiler.scm 621 */
obj_t BgL_arg4588z00_1441;
{ /* ./DotNet/compiler.scm 621 */
obj_t BgL_arg4591z00_1442;obj_t BgL_arg4592z00_1443;
BgL_arg4591z00_1442 = 
CNST_TABLE_REF(((long)61)); 
BgL_arg4592z00_1443 = 
MAKE_PAIR(BgL_contz00_1410, BNIL); 
BgL_arg4588z00_1441 = 
MAKE_PAIR(BgL_arg4591z00_1442, BgL_arg4592z00_1443); } 
BGl_envzd2codez12zc0zzdotnet_instrz00(BgL_envz00_81, BgL_arg4588z00_1441); } } 
BGl__labelz00zzdotnet_instrz00(BgL_envz00_81, BgL_contz00_1410); 
BGl__load_namez00zzdotnet_instrz00(BgL_envz00_81, BgL_vretz00_1402, BgL_tretz00_1401); 
return 
CNST_TABLE_REF(((long)3));} } } } 
}



/* _compiler-setexit5130 */
obj_t BGl__compilerzd2setexit5130zd2zzdotnet_compilerz00(obj_t BgL_envz00_2403, obj_t BgL_ez00_2404, obj_t BgL_envz00_2405, obj_t BgL_compz00_2406)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 570 */
return 
BGl_compilerzd2setexitzd2zzdotnet_compilerz00(
(BgL_setzd2exzd2itz00_bglt)(BgL_ez00_2404), 
(BgL_envz00_bglt)(BgL_envz00_2405), BgL_compz00_2406);} 
}



/* compiler-jump-exit */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2jumpzd2exitz00zzdotnet_compilerz00(BgL_jumpzd2exzd2itz00_bglt BgL_ez00_83, BgL_envz00_bglt BgL_envz00_84)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 627 */
{ /* ./DotNet/compiler.scm 628 */
obj_t BgL_nz00_2306;
BgL_nz00_2306 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_83)); 
if(
CBOOL(BgL_nz00_2306))
{ /* ./DotNet/compiler.scm 628 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_84, BgL_nz00_2306); }  else 
{ /* ./DotNet/compiler.scm 628 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 630 */
BgL_nodez00_bglt BgL_arg4607z00_1446;
BgL_arg4607z00_1446 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_ez00_83))->BgL_exitz00); 
BGl_compilezd2exprzd2zzdotnet_exprz00(BgL_arg4607z00_1446, BgL_envz00_84); } 
{ /* ./DotNet/compiler.scm 631 */
BgL_nodez00_bglt BgL_arg4611z00_1447;
BgL_arg4611z00_1447 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_ez00_83))->BgL_valuez00); 
BGl_compilezd2exprzd2zzdotnet_exprz00(BgL_arg4611z00_1447, BgL_envz00_84); } 
{ /* ./DotNet/compiler.scm 632 */
obj_t BgL_arg4615z00_1448;obj_t BgL_arg4616z00_1449;obj_t BgL_arg4617z00_1450;
BgL_arg4615z00_1448 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_84, 
CNST_TABLE_REF(((long)70))); 
BgL_arg4616z00_1449 = 
CNST_TABLE_REF(((long)45)); 
BgL_arg4617z00_1450 = 
CNST_TABLE_REF(((long)19)); 
return 
BGl__invokestaticz00zzdotnet_instrz00(BgL_envz00_84, BgL_arg4615z00_1448, BgL_arg4616z00_1449, BgL_arg4617z00_1450);} } 
}



/* _compiler-jump-exit5132 */
obj_t BGl__compilerzd2jumpzd2exit5132z00zzdotnet_compilerz00(obj_t BgL_envz00_2407, obj_t BgL_ez00_2408, obj_t BgL_envz00_2409)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 627 */
return 
BGl_compilerzd2jumpzd2exitz00zzdotnet_compilerz00(
(BgL_jumpzd2exzd2itz00_bglt)(BgL_ez00_2408), 
(BgL_envz00_bglt)(BgL_envz00_2409));} 
}



/* compiler-fail */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2failzd2zzdotnet_compilerz00(BgL_failz00_bglt BgL_ez00_85, BgL_envz00_bglt BgL_envz00_86)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 635 */
{ /* ./DotNet/compiler.scm 636 */
obj_t BgL_nz00_2311;
BgL_nz00_2311 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_85)); 
if(
CBOOL(BgL_nz00_2311))
{ /* ./DotNet/compiler.scm 636 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_86, BgL_nz00_2311); }  else 
{ /* ./DotNet/compiler.scm 636 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 638 */
BgL_nodez00_bglt BgL_arg4622z00_1452;
BgL_arg4622z00_1452 = 
(((BgL_failz00_bglt)CREF(BgL_ez00_85))->BgL_procz00); 
BGl_compilezd2exprzd2zzdotnet_exprz00(BgL_arg4622z00_1452, BgL_envz00_86); } 
{ /* ./DotNet/compiler.scm 639 */
BgL_nodez00_bglt BgL_arg4626z00_1453;
BgL_arg4626z00_1453 = 
(((BgL_failz00_bglt)CREF(BgL_ez00_85))->BgL_msgz00); 
BGl_compilezd2exprzd2zzdotnet_exprz00(BgL_arg4626z00_1453, BgL_envz00_86); } 
{ /* ./DotNet/compiler.scm 640 */
BgL_nodez00_bglt BgL_arg4630z00_1454;
BgL_arg4630z00_1454 = 
(((BgL_failz00_bglt)CREF(BgL_ez00_85))->BgL_objz00); 
BGl_compilezd2exprzd2zzdotnet_exprz00(BgL_arg4630z00_1454, BgL_envz00_86); } 
{ /* ./DotNet/compiler.scm 641 */
obj_t BgL_arg4634z00_1455;obj_t BgL_arg4635z00_1456;obj_t BgL_arg4637z00_1457;
BgL_arg4634z00_1455 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_86, 
CNST_TABLE_REF(((long)71))); 
BgL_arg4635z00_1456 = 
CNST_TABLE_REF(((long)50)); 
BgL_arg4637z00_1457 = 
CNST_TABLE_REF(((long)19)); 
BGl__invokestaticz00zzdotnet_instrz00(BgL_envz00_86, BgL_arg4634z00_1455, BgL_arg4635z00_1456, BgL_arg4637z00_1457); } 
return 
BGl__athrowz00zzdotnet_instrz00(BgL_envz00_86);} 
}



/* _compiler-fail5134 */
obj_t BGl__compilerzd2fail5134zd2zzdotnet_compilerz00(obj_t BgL_envz00_2410, obj_t BgL_ez00_2411, obj_t BgL_envz00_2412)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 635 */
return 
BGl_compilerzd2failzd2zzdotnet_compilerz00(
(BgL_failz00_bglt)(BgL_ez00_2411), 
(BgL_envz00_bglt)(BgL_envz00_2412));} 
}



/* compiler-make-box */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2makezd2boxz00zzdotnet_compilerz00(BgL_makezd2boxzd2_bglt BgL_ez00_87, BgL_envz00_bglt BgL_envz00_88)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 645 */
{ /* ./DotNet/compiler.scm 646 */
obj_t BgL_nz00_2317;
BgL_nz00_2317 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_87)); 
if(
CBOOL(BgL_nz00_2317))
{ /* ./DotNet/compiler.scm 646 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_88, BgL_nz00_2317); }  else 
{ /* ./DotNet/compiler.scm 646 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 648 */
obj_t BgL_arg4643z00_1459;
BgL_arg4643z00_1459 = 
BGl_compilezd2typezd2zzdotnet_envz00(
CNST_TABLE_REF(((long)72)), BgL_envz00_88); 
BGl__newz00zzdotnet_instrz00(BgL_envz00_88, BgL_arg4643z00_1459); } 
BGl__dupz00zzdotnet_instrz00(BgL_envz00_88); 
{ /* ./DotNet/compiler.scm 650 */
BgL_nodez00_bglt BgL_arg4648z00_1460;
BgL_arg4648z00_1460 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_ez00_87))->BgL_valuez00); 
BGl_compilezd2exprzd2zzdotnet_exprz00(BgL_arg4648z00_1460, BgL_envz00_88); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./DotNet/compiler.scm 652 */
obj_t BgL_arg4652z00_1461;obj_t BgL_arg4653z00_1462;obj_t BgL_arg4654z00_1463;
BgL_arg4652z00_1461 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_88, 
CNST_TABLE_REF(((long)73))); 
BgL_arg4653z00_1462 = 
CNST_TABLE_REF(((long)45)); 
BgL_arg4654z00_1463 = 
CNST_TABLE_REF(((long)14)); 
return 
BGl__invokespecialz00zzdotnet_instrz00(BgL_envz00_88, BgL_arg4652z00_1461, BgL_arg4653z00_1462, BgL_arg4654z00_1463);}  else 
{ /* ./DotNet/compiler.scm 653 */
obj_t BgL_arg4658z00_1464;
BgL_arg4658z00_1464 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_88, 
CNST_TABLE_REF(((long)74))); 
return 
BGl__putfieldz00zzdotnet_instrz00(BgL_envz00_88, BgL_arg4658z00_1464);} } 
}



/* _compiler-make-box5136 */
obj_t BGl__compilerzd2makezd2box5136z00zzdotnet_compilerz00(obj_t BgL_envz00_2413, obj_t BgL_ez00_2414, obj_t BgL_envz00_2415)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 645 */
return 
BGl_compilerzd2makezd2boxz00zzdotnet_compilerz00(
(BgL_makezd2boxzd2_bglt)(BgL_ez00_2414), 
(BgL_envz00_bglt)(BgL_envz00_2415));} 
}



/* compiler-box-ref */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2boxzd2refz00zzdotnet_compilerz00(BgL_boxzd2refzd2_bglt BgL_ez00_89, BgL_envz00_bglt BgL_envz00_90)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 656 */
{ /* ./DotNet/compiler.scm 657 */
obj_t BgL_nz00_2321;
BgL_nz00_2321 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_89)); 
if(
CBOOL(BgL_nz00_2321))
{ /* ./DotNet/compiler.scm 657 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_90, BgL_nz00_2321); }  else 
{ /* ./DotNet/compiler.scm 657 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 659 */
BgL_variablez00_bglt BgL_arg4663z00_1466;
{ /* ./DotNet/compiler.scm 659 */
BgL_varz00_bglt BgL_arg4666z00_1467;
BgL_arg4666z00_1467 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_ez00_89))->BgL_varz00); 
BgL_arg4663z00_1466 = 
(((BgL_varz00_bglt)CREF(BgL_arg4666z00_1467))->BgL_variablez00); } 
BGl__loadz00zzdotnet_instrz00(BgL_envz00_90, 
(BgL_localz00_bglt)(BgL_arg4663z00_1466)); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./DotNet/compiler.scm 660 */
BGl__checkcastz00zzdotnet_instrz00(BgL_envz00_90, 
CNST_TABLE_REF(((long)75))); }  else 
{ /* ./DotNet/compiler.scm 660 */BFALSE; } 
{ /* ./DotNet/compiler.scm 661 */
obj_t BgL_arg4671z00_1468;obj_t BgL_arg4672z00_1469;
BgL_arg4671z00_1468 = 
CNST_TABLE_REF(((long)36)); 
BgL_arg4672z00_1469 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_90, 
CNST_TABLE_REF(((long)74))); 
return 
BGl__getfieldz00zzdotnet_instrz00(BgL_envz00_90, BgL_arg4671z00_1468, BgL_arg4672z00_1469);} } 
}



/* _compiler-box-ref5138 */
obj_t BGl__compilerzd2boxzd2ref5138z00zzdotnet_compilerz00(obj_t BgL_envz00_2416, obj_t BgL_ez00_2417, obj_t BgL_envz00_2418)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 656 */
return 
BGl_compilerzd2boxzd2refz00zzdotnet_compilerz00(
(BgL_boxzd2refzd2_bglt)(BgL_ez00_2417), 
(BgL_envz00_bglt)(BgL_envz00_2418));} 
}



/* compiler-box-set! */
BGL_EXPORTED_DEF obj_t BGl_compilerzd2boxzd2setz12z12zzdotnet_compilerz00(BgL_boxzd2setz12zc0_bglt BgL_ez00_91, BgL_envz00_bglt BgL_envz00_92)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 664 */
{ /* ./DotNet/compiler.scm 665 */
obj_t BgL_nz00_2326;
BgL_nz00_2326 = 
BGl_getzd2linezd2numberz00zzdotnet_externz00(
(BgL_nodez00_bglt)(BgL_ez00_91)); 
if(
CBOOL(BgL_nz00_2326))
{ /* ./DotNet/compiler.scm 665 */
BGl__linez00zzdotnet_instrz00(BgL_envz00_92, BgL_nz00_2326); }  else 
{ /* ./DotNet/compiler.scm 665 */
CNST_TABLE_REF(((long)3)); } } 
{ /* ./DotNet/compiler.scm 666 */
BgL_variablez00_bglt BgL_arg4677z00_1470;
{ /* ./DotNet/compiler.scm 666 */
BgL_varz00_bglt BgL_arg4680z00_1471;
BgL_arg4680z00_1471 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_ez00_91))->BgL_varz00); 
BgL_arg4677z00_1470 = 
(((BgL_varz00_bglt)CREF(BgL_arg4680z00_1471))->BgL_variablez00); } 
BGl__loadz00zzdotnet_instrz00(BgL_envz00_92, 
(BgL_localz00_bglt)(BgL_arg4677z00_1470)); } 
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./DotNet/compiler.scm 667 */
BGl__checkcastz00zzdotnet_instrz00(BgL_envz00_92, 
CNST_TABLE_REF(((long)75))); }  else 
{ /* ./DotNet/compiler.scm 667 */BFALSE; } 
{ /* ./DotNet/compiler.scm 668 */
BgL_nodez00_bglt BgL_arg4685z00_1472;
BgL_arg4685z00_1472 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_ez00_91))->BgL_valuez00); 
BGl_compilezd2exprzd2zzdotnet_exprz00(BgL_arg4685z00_1472, BgL_envz00_92); } 
{ /* ./DotNet/compiler.scm 669 */
obj_t BgL_arg4689z00_1473;
BgL_arg4689z00_1473 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_92, 
CNST_TABLE_REF(((long)74))); 
return 
BGl__putfieldz00zzdotnet_instrz00(BgL_envz00_92, BgL_arg4689z00_1473);} } 
}



/* _compiler-box-set!5140 */
obj_t BGl__compilerzd2boxzd2setz125140z12zzdotnet_compilerz00(obj_t BgL_envz00_2419, obj_t BgL_ez00_2420, obj_t BgL_envz00_2421)
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 664 */
return 
BGl_compilerzd2boxzd2setz12z12zzdotnet_compilerz00(
(BgL_boxzd2setz12zc0_bglt)(BgL_ez00_2420), 
(BgL_envz00_bglt)(BgL_envz00_2421));} 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzdotnet_compilerz00()
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 8 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzdotnet_compilerz00()
{ AN_OBJECT;
{ /* ./DotNet/compiler.scm 8 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "dotnet_compiler"); 
BGl_modulezd2initializa7ationz75zztype_typeofz00(((long)852), "dotnet_compiler"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "dotnet_compiler"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "dotnet_compiler"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "dotnet_compiler"); 
BGl_modulezd2initializa7ationz75zzobject_classz00(((long)30791), "dotnet_compiler"); 
BGl_modulezd2initializa7ationz75zzforeign_jtypez00(((long)33635), "dotnet_compiler"); 
BGl_modulezd2initializa7ationz75zzdotnet_lispz00(((long)37822), "dotnet_compiler"); 
BGl_modulezd2initializa7ationz75zzdotnet_externz00(((long)11465), "dotnet_compiler"); 
BGl_modulezd2initializa7ationz75zzdotnet_envz00(((long)58889), "dotnet_compiler"); 
BGl_modulezd2initializa7ationz75zzdotnet_instrz00(((long)2441), "dotnet_compiler"); 
BGl_modulezd2initializa7ationz75zzdotnet_inlinez00(((long)29374), "dotnet_compiler"); 
BGl_modulezd2initializa7ationz75zzdotnet_tailz00(((long)55137), "dotnet_compiler"); 
BGl_modulezd2initializa7ationz75zzdotnet_exprz00(((long)54487), "dotnet_compiler"); 
BGl_modulezd2initializa7ationz75zzdotnet_effectz00(((long)59443), "dotnet_compiler"); 
BGl_modulezd2initializa7ationz75zzdotnet_predicatez00(((long)23355), "dotnet_compiler"); 
return 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "dotnet_compiler");} 
}

