/*===========================================================================*/
/*   (DotNet/effect.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/effect.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_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;


extern obj_t BGl_compilerzd2ifzd2zzdotnet_compilerz00(BgL_conditionalz00_bglt, BgL_envz00_bglt, obj_t);
extern obj_t BGl_vrefz00zzast_nodez00;
static obj_t BGl_compilezd2effectzd2vref3056z00zzdotnet_effectz00(obj_t, obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzdotnet_effectz00();
static obj_t BGl_compilezd2effectzd2setq3030z00zzdotnet_effectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_compilerzd2boxzd2setz12z12zzdotnet_compilerz00(BgL_boxzd2setz12zc0_bglt, BgL_envz00_bglt);
BGL_IMPORT obj_t open_input_string(obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
static obj_t BGl_compilezd2effectzd2setfield3050z00zzdotnet_effectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_compilerzd2labelszd2zzdotnet_compilerz00(BgL_letzd2funzd2_bglt, BgL_envz00_bglt, obj_t);
static obj_t BGl_compilezd2effectzd2conditional3034z00zzdotnet_effectz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
static obj_t BGl_compilezd2effectzd2sequence3032z00zzdotnet_effectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
extern obj_t BGl_pragmaz00zzast_nodez00;
static obj_t BGl_compilezd2effectzd2isa3062z00zzdotnet_effectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_compilezd2typezd2zzdotnet_envz00(obj_t, BgL_envz00_bglt);
static obj_t BGl_compilezd2effectzd2getfield3048z00zzdotnet_effectz00(obj_t, obj_t, obj_t);
static obj_t BGl_compilezd2effectzd2valloc3054z00zzdotnet_effectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_za2targetzd2languageza2zd2zzengine_paramz00;
static obj_t BGl_compilezd2effectzd2vsetz123058z12zzdotnet_effectz00(obj_t, obj_t, obj_t);
static obj_t BGl_compilezd2effectzd2atom3024z00zzdotnet_effectz00(obj_t, obj_t, obj_t);
static obj_t BGl_compilezd2effectzd2letzd2fun3038zd2zzdotnet_effectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_compilerzd2castzd2zzdotnet_compilerz00(BgL_castz00_bglt, BgL_envz00_bglt, obj_t);
extern obj_t BGl_castz00zzast_nodez00;
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_cnstzd2initzd2zzdotnet_effectz00();
static obj_t BGl_compilezd2effectzd2funcall3044z00zzdotnet_effectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_atomz00zzast_nodez00;
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
static obj_t BGl_compilezd2effectzd2letzd2var3028zd2zzdotnet_effectz00(obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzdotnet_effectz00();
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
static obj_t BGl_compilezd2effectzd2app3040z00zzdotnet_effectz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilezd2effectzd2zzdotnet_effectz00(BgL_nodez00_bglt, BgL_envz00_bglt);
extern obj_t BGl_getfieldz00zzast_nodez00;
extern obj_t BGl_isaz00zzast_nodez00;
extern obj_t BGl_compilerzd2vsetzd2zzdotnet_compilerz00(BgL_vsetz12z12_bglt, BgL_envz00_bglt);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_compilerzd2selectzd2zzdotnet_compilerz00(BgL_selectz00_bglt, BgL_envz00_bglt, obj_t);
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl_compilezd2effectzd2setzd2exzd2it3066z00zzdotnet_effectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_vallocz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzdotnet_effectz00();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
static obj_t BGl_compilezd2effectzd2fail3070z00zzdotnet_effectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzdotnet_effectz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(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_modulezd2initializa7ationz75zzdotnet_envz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzdotnet_instrz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzdotnet_exprz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzdotnet_compilerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
static obj_t BGl_compilezd2effectzd2vlength3060z00zzdotnet_effectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_compilerzd2setqzd2zzdotnet_compilerz00(BgL_setqz00_bglt, BgL_envz00_bglt);
extern obj_t BGl__popz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
static obj_t BGl_compilezd2effectzd2appzd2ly3042zd2zzdotnet_effectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
extern obj_t BGl_compilerzd2setfieldzd2zzdotnet_compilerz00(BgL_setfieldz00_bglt, BgL_envz00_bglt);
extern obj_t BGl_newz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
extern obj_t BGl_sequencez00zzast_nodez00;
static obj_t BGl_compilezd2effectzd2boxzd2setz123076zc0zzdotnet_effectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_compilerzd2letzd2zzdotnet_compilerz00(BgL_letzd2varzd2_bglt, BgL_envz00_bglt, obj_t);
static obj_t BGl_compilezd2effectzd2new3052z00zzdotnet_effectz00(obj_t, obj_t, obj_t);
static obj_t BGl_compilezd2effectzd2boxzd2ref3074zd2zzdotnet_effectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_appz00zzast_nodez00;
static obj_t BGl_compilezd2effectzd2cast3064z00zzdotnet_effectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_compilerzd2sequencezd2zzdotnet_compilerz00(BgL_sequencez00_bglt, BgL_envz00_bglt, obj_t);
static obj_t BGl_compilezd2effectzd2makezd2box3072zd2zzdotnet_effectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_vlengthz00zzast_nodez00;
extern obj_t BGl_setfieldz00zzast_nodez00;
static obj_t BGl__compilezd2effectzd2default3021z00zzdotnet_effectz00(obj_t, obj_t, obj_t);
static obj_t BGl__compilezd2effect3713zd2zzdotnet_effectz00(obj_t, obj_t, obj_t);
static obj_t BGl_compilezd2effectzd2select3036z00zzdotnet_effectz00(obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzdotnet_effectz00 = BUNSPEC;
static obj_t BGl_compilezd2effectzd2var3026z00zzdotnet_effectz00(obj_t, obj_t, obj_t);
static obj_t BGl_compilezd2effectzd2default3021z00zzdotnet_effectz00(BgL_nodez00_bglt, BgL_envz00_bglt);
extern obj_t BGl_compilezd2exprzd2zzdotnet_exprz00(BgL_nodez00_bglt, BgL_envz00_bglt);
static obj_t BGl_compilezd2effectzd2pragma3046z00zzdotnet_effectz00(obj_t, obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzdotnet_effectz00();
extern obj_t BGl_vsetz12z12zzast_nodez00;
static obj_t BGl_compilezd2effectzd2jumpzd2exzd2it3068z00zzdotnet_effectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t __cnst[ 3 ] ;


DEFINE_STATIC_PROCEDURE( BGl_proc3956z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2atom3024za700za7za7dotnet_effectza7004014z00, BGl_compilezd2effectzd2atom3024z00zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3957z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2var3026za700za7za7dotnet_effectza7004015z00, BGl_compilezd2effectzd2var3026z00zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3958z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2letza7d2var3028za7d2za7za7dotnet_effectza7004016za7, BGl_compilezd2effectzd2letzd2var3028zd2zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3960z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2sequence3032za700za7za7dotnet_effectza7004017z00, BGl_compilezd2effectzd2sequence3032z00zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3959z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2setq3030za700za7za7dotnet_effectza7004018z00, BGl_compilezd2effectzd2setq3030z00zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3961z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2conditional3034za700za7za7dotnet_effectza7004019z00, BGl_compilezd2effectzd2conditional3034z00zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3962z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2select3036za700za7za7dotnet_effectza7004020z00, BGl_compilezd2effectzd2select3036z00zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3963z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2letza7d2fun3038za7d2za7za7dotnet_effectza7004021za7, BGl_compilezd2effectzd2letzd2fun3038zd2zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3964z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2app3040za700za7za7dotnet_effectza7004022z00, BGl_compilezd2effectzd2app3040z00zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3965z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2appza7d2ly3042za7d2za7za7dotnet_effectza7004023za7, BGl_compilezd2effectzd2appzd2ly3042zd2zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3966z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2funcall3044za700za7za7dotnet_effectza7004024z00, BGl_compilezd2effectzd2funcall3044z00zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3967z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2pragma3046za700za7za7dotnet_effectza7004025z00, BGl_compilezd2effectzd2pragma3046z00zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3968z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2getfield3048za700za7za7dotnet_effectza7004026z00, BGl_compilezd2effectzd2getfield3048z00zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3970z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2new3052za700za7za7dotnet_effectza7004027z00, BGl_compilezd2effectzd2new3052z00zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3969z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2setfield3050za700za7za7dotnet_effectza7004028z00, BGl_compilezd2effectzd2setfield3050z00zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3971z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2valloc3054za700za7za7dotnet_effectza7004029z00, BGl_compilezd2effectzd2valloc3054z00zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3972z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2vref3056za700za7za7dotnet_effectza7004030z00, BGl_compilezd2effectzd2vref3056z00zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3973z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2vsetza7123058za712za7za7dotnet_effectza7004031za7, BGl_compilezd2effectzd2vsetz123058z12zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3974z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2vlength3060za700za7za7dotnet_effectza7004032z00, BGl_compilezd2effectzd2vlength3060z00zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3975z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2isa3062za700za7za7dotnet_effectza7004033z00, BGl_compilezd2effectzd2isa3062z00zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3976z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2cast3064za700za7za7dotnet_effectza7004034z00, BGl_compilezd2effectzd2cast3064z00zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3977z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2setza7d2exza7d2it3066za700za7za7dotnet_effectza7004035z00, BGl_compilezd2effectzd2setzd2exzd2it3066z00zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3978z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2jumpza7d2exza7d2it3068za700za7za7dotnet_effectza7004036z00, BGl_compilezd2effectzd2jumpzd2exzd2it3068z00zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3980z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2makeza7d2box3072za7d2za7za7dotnet_effectza7004037za7, BGl_compilezd2effectzd2makezd2box3072zd2zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3979z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2fail3070za700za7za7dotnet_effectza7004038z00, BGl_compilezd2effectzd2fail3070z00zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3981z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2boxza7d2ref3074za7d2za7za7dotnet_effectza7004039za7, BGl_compilezd2effectzd2boxzd2ref3074zd2zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc3982z00zzdotnet_effectz00, BgL_bgl_compileza7d2effectza7d2boxza7d2setza7123076za7c0za7za7dotnet_effectza7004040z00, BGl_compilezd2effectzd2boxzd2setz123076zc0zzdotnet_effectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_compilezd2effectzd2default3021zd2envzd2zzdotnet_effectz00, BgL_bgl__compileza7d2effectza7d2default3021za700za7za7dotnet_effectza7004041z00, BGl__compilezd2effectzd2default3021z00zzdotnet_effectz00, 0L, 2 );
DEFINE_STRING( BGl_string3984z00zzdotnet_effectz00, BgL_bgl_string3984za700za7za7dotnet_effectza7004042z00, "compile-effect-default3021 .net ok ", 35 );
DEFINE_STRING( BGl_string3983z00zzdotnet_effectz00, BgL_bgl_string3983za700za7za7dotnet_effectza7004043z00, "No method for this object", 25 );
DEFINE_EXPORT_GENERIC( BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BgL_bgl__compileza7d2effect3713za7d2za7za7dotnet_effectza7004044za7, BGl__compilezd2effect3713zd2zzdotnet_effectz00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzdotnet_effectz00(long BgL_checksumz00_1826, char * BgL_fromz00_1827)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzdotnet_effectz00))
{ 
BGl_requirezd2initializa7ationz75zzdotnet_effectz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzdotnet_effectz00(); 
BGl_cnstzd2initzd2zzdotnet_effectz00(); 
BGl_importedzd2moduleszd2initz00zzdotnet_effectz00(); 
BGl_methodzd2initzd2zzdotnet_effectz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzdotnet_effectz00()
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 2 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "dotnet_effect"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "dotnet_effect"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzdotnet_effectz00()
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 2 */
{ /* ./DotNet/effect.scm 2 */
obj_t BgL_cportz00_1799;
BgL_cportz00_1799 = 
open_input_string(BGl_string3984z00zzdotnet_effectz00); 
{ 
long BgL_iz00_1800;
BgL_iz00_1800 = ((long)2); 
BgL_loopz00_1801:
{ /* ./DotNet/effect.scm 2 */
bool_t BgL_test3986z00_1802;
BgL_test3986z00_1802 = 
(BgL_iz00_1800==((long)-1)); 
if(BgL_test3986z00_1802)
{ /* ./DotNet/effect.scm 2 */
return BUNSPEC;}  else 
{ /* ./DotNet/effect.scm 2 */
{ /* ./DotNet/effect.scm 2 */
obj_t BgL_arg3988z00_1803;
{ /* ./DotNet/effect.scm 2 */
obj_t BgL_list3991z00_1804;
BgL_list3991z00_1804 = 
MAKE_PAIR(BgL_cportz00_1799, BNIL); 
BgL_arg3988z00_1803 = 
BGl_readz00zz__readerz00(BgL_list3991z00_1804); } 
{ /* ./DotNet/effect.scm 2 */
int BgL_auxz00_1842;
BgL_auxz00_1842 = 
(int)(BgL_iz00_1800); 
CNST_TABLE_SET(BgL_auxz00_1842, BgL_arg3988z00_1803); } } 
{ /* ./DotNet/effect.scm 2 */
int BgL_auxz00_1805;
{ /* ./DotNet/effect.scm 2 */
long BgL_auxz00_1845;
BgL_auxz00_1845 = 
(BgL_iz00_1800-((long)1)); 
BgL_auxz00_1805 = 
(int)(BgL_auxz00_1845); } 
{ 
long BgL_iz00_1848;
BgL_iz00_1848 = 
(long)(BgL_auxz00_1805); 
BgL_iz00_1800 = BgL_iz00_1848; 
goto BgL_loopz00_1801;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzdotnet_effectz00()
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 2 */
return BUNSPEC;} 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzdotnet_effectz00()
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 2 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_compilezd2effectzd2default3021zd2envzd2zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_atomz00zzast_nodez00, BGl_proc3956z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_varz00zzast_nodez00, BGl_proc3957z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_letzd2varzd2zzast_nodez00, BGl_proc3958z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_setqz00zzast_nodez00, BGl_proc3959z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_sequencez00zzast_nodez00, BGl_proc3960z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_conditionalz00zzast_nodez00, BGl_proc3961z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_selectz00zzast_nodez00, BGl_proc3962z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_letzd2funzd2zzast_nodez00, BGl_proc3963z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_appz00zzast_nodez00, BGl_proc3964z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_appzd2lyzd2zzast_nodez00, BGl_proc3965z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_funcallz00zzast_nodez00, BGl_proc3966z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_pragmaz00zzast_nodez00, BGl_proc3967z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_getfieldz00zzast_nodez00, BGl_proc3968z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_setfieldz00zzast_nodez00, BGl_proc3969z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_newz00zzast_nodez00, BGl_proc3970z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_vallocz00zzast_nodez00, BGl_proc3971z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_vrefz00zzast_nodez00, BGl_proc3972z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_vsetz12z12zzast_nodez00, BGl_proc3973z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_vlengthz00zzast_nodez00, BGl_proc3974z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_isaz00zzast_nodez00, BGl_proc3975z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_castz00zzast_nodez00, BGl_proc3976z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc3977z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc3978z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_failz00zzast_nodez00, BGl_proc3979z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_makezd2boxzd2zzast_nodez00, BGl_proc3980z00zzdotnet_effectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_boxzd2refzd2zzast_nodez00, BGl_proc3981z00zzdotnet_effectz00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc3982z00zzdotnet_effectz00);} 
}



/* compile-effect-box-set!3076 */
obj_t BGl_compilezd2effectzd2boxzd2setz123076zc0zzdotnet_effectz00(obj_t BgL_envz00_1715, obj_t BgL_ez00_1716, obj_t BgL_envz00_1717)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 101 */
{ /* ./DotNet/effect.scm 102 */
BgL_boxzd2setz12zc0_bglt BgL_ez00_1806;BgL_envz00_bglt BgL_envz00_1807;
BgL_ez00_1806 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_ez00_1716); 
BgL_envz00_1807 = 
(BgL_envz00_bglt)(BgL_envz00_1717); 
return 
BGl_compilerzd2boxzd2setz12z12zzdotnet_compilerz00(BgL_ez00_1806, BgL_envz00_1807);} } 
}



/* compile-effect-box-ref3074 */
obj_t BGl_compilezd2effectzd2boxzd2ref3074zd2zzdotnet_effectz00(obj_t BgL_envz00_1718, obj_t BgL_ez00_1719, obj_t BgL_envz00_1720)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 98 */
{ /* ./DotNet/effect.scm 99 */
obj_t BgL_res4000z00_1810;
BgL_res4000z00_1810 = 
CNST_TABLE_REF(((long)0)); 
return BgL_res4000z00_1810;} } 
}



/* compile-effect-make-box3072 */
obj_t BGl_compilezd2effectzd2makezd2box3072zd2zzdotnet_effectz00(obj_t BgL_envz00_1721, obj_t BgL_ez00_1722, obj_t BgL_envz00_1723)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 95 */
{ 
BgL_makezd2boxzd2_bglt BgL_ez00_1395;BgL_envz00_bglt BgL_envz00_1396;
BgL_ez00_1395 = 
(BgL_makezd2boxzd2_bglt)(BgL_ez00_1722); 
BgL_envz00_1396 = 
(BgL_envz00_bglt)(BgL_envz00_1723); 
{ /* ./DotNet/effect.scm 96 */
BgL_nodez00_bglt BgL_arg3664z00_1628;
BgL_arg3664z00_1628 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_ez00_1395))->BgL_valuez00); 
{ /* ./DotNet/effect.scm 96 */
obj_t BgL_method3022z00_1632;
{ /* ./DotNet/effect.scm 96 */
BgL_objectz00_bglt BgL_objz00_1633;
BgL_objz00_1633 = 
(BgL_objectz00_bglt)(BgL_arg3664z00_1628); 
{ /* ./DotNet/effect.scm 96 */
long BgL_objzd2classzd2numz00_1634;
BgL_objzd2classzd2numz00_1634 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1633); 
{ /* ./DotNet/effect.scm 96 */
obj_t BgL_arg2017z00_1635;
{ /* ./DotNet/effect.scm 96 */
int BgL_auxz00_1885;
BgL_auxz00_1885 = 
(int)(((long)1)); 
BgL_arg2017z00_1635 = 
PROCEDURE_REF(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BgL_auxz00_1885); } 
{ /* ./DotNet/effect.scm 96 */
int BgL_offsetz00_1638;
BgL_offsetz00_1638 = 
(int)(BgL_objzd2classzd2numz00_1634); 
{ /* ./DotNet/effect.scm 96 */
long BgL_offsetz00_1639;
{ /* ./DotNet/effect.scm 96 */
long BgL_auxz00_1889;
BgL_auxz00_1889 = 
(long)(BgL_offsetz00_1638); 
BgL_offsetz00_1639 = 
(BgL_auxz00_1889-OBJECT_TYPE); } 
{ /* ./DotNet/effect.scm 96 */
long BgL_modz00_1640;
{ /* ./DotNet/effect.scm 96 */
int BgL_arg2028z00_1641;
BgL_arg2028z00_1641 = 
(int)(((long)8)); 
{ /* ./DotNet/effect.scm 96 */
long BgL_n2z00_1649;
BgL_n2z00_1649 = 
(long)(BgL_arg2028z00_1641); 
BgL_modz00_1640 = 
(BgL_offsetz00_1639/BgL_n2z00_1649); } } 
{ /* ./DotNet/effect.scm 96 */
long BgL_restz00_1642;
{ /* ./DotNet/effect.scm 96 */
int BgL_arg2024z00_1643;
BgL_arg2024z00_1643 = 
(int)(((long)8)); 
{ /* ./DotNet/effect.scm 96 */
long BgL_n2z00_1652;
BgL_n2z00_1652 = 
(long)(BgL_arg2024z00_1643); 
BgL_restz00_1642 = 
(BgL_offsetz00_1639%BgL_n2z00_1652); } } 
{ /* ./DotNet/effect.scm 96 */

{ /* ./DotNet/effect.scm 96 */
obj_t BgL_bucketz00_1644;
{ /* ./DotNet/effect.scm 96 */
int BgL_kz00_1654;
BgL_kz00_1654 = 
(int)(BgL_modz00_1640); 
BgL_bucketz00_1644 = 
VECTOR_REF(BgL_arg2017z00_1635,BgL_kz00_1654); } 
{ /* ./DotNet/effect.scm 96 */
int BgL_kz00_1656;
BgL_kz00_1656 = 
(int)(BgL_restz00_1642); 
BgL_method3022z00_1632 = 
VECTOR_REF(BgL_bucketz00_1644,BgL_kz00_1656); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3022z00_1632)(BgL_method3022z00_1632, 
(obj_t)(BgL_arg3664z00_1628), 
(obj_t)(BgL_envz00_1396), BEOA);} } } } 
}



/* compile-effect-fail3070 */
obj_t BGl_compilezd2effectzd2fail3070z00zzdotnet_effectz00(obj_t BgL_envz00_1724, obj_t BgL_ez00_1725, obj_t BgL_envz00_1726)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 92 */
{ 
BgL_failz00_bglt BgL_ez00_1389;BgL_envz00_bglt BgL_envz00_1390;
BgL_ez00_1389 = 
(BgL_failz00_bglt)(BgL_ez00_1725); 
BgL_envz00_1390 = 
(BgL_envz00_bglt)(BgL_envz00_1726); 
{ /* ./DotNet/effect.scm 93 */
BgL_nodez00_bglt BgL_ez00_1625;
BgL_ez00_1625 = 
(BgL_nodez00_bglt)(BgL_ez00_1389); 
BGl_compilezd2exprzd2zzdotnet_exprz00(BgL_ez00_1625, BgL_envz00_1390); 
{ /* ./DotNet/effect.scm 93 */
obj_t BgL_arg3079z00_1627;
BgL_arg3079z00_1627 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_ez00_1625), BgL_envz00_1390); 
return 
BGl__popz00zzdotnet_instrz00(BgL_envz00_1390, BgL_arg3079z00_1627);} } } } 
}



/* compile-effect-jump-ex-it3068 */
obj_t BGl_compilezd2effectzd2jumpzd2exzd2it3068z00zzdotnet_effectz00(obj_t BgL_envz00_1727, obj_t BgL_ez00_1728, obj_t BgL_envz00_1729)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 89 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_ez00_1383;BgL_envz00_bglt BgL_envz00_1384;
BgL_ez00_1383 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_ez00_1728); 
BgL_envz00_1384 = 
(BgL_envz00_bglt)(BgL_envz00_1729); 
{ /* ./DotNet/effect.scm 90 */
BgL_nodez00_bglt BgL_ez00_1622;
BgL_ez00_1622 = 
(BgL_nodez00_bglt)(BgL_ez00_1383); 
BGl_compilezd2exprzd2zzdotnet_exprz00(BgL_ez00_1622, BgL_envz00_1384); 
{ /* ./DotNet/effect.scm 90 */
obj_t BgL_arg3079z00_1624;
BgL_arg3079z00_1624 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_ez00_1622), BgL_envz00_1384); 
return 
BGl__popz00zzdotnet_instrz00(BgL_envz00_1384, BgL_arg3079z00_1624);} } } } 
}



/* compile-effect-set-ex-it3066 */
obj_t BGl_compilezd2effectzd2setzd2exzd2it3066z00zzdotnet_effectz00(obj_t BgL_envz00_1730, obj_t BgL_ez00_1731, obj_t BgL_envz00_1732)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 86 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_ez00_1377;BgL_envz00_bglt BgL_envz00_1378;
BgL_ez00_1377 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_ez00_1731); 
BgL_envz00_1378 = 
(BgL_envz00_bglt)(BgL_envz00_1732); 
{ /* ./DotNet/effect.scm 87 */
BgL_nodez00_bglt BgL_ez00_1619;
BgL_ez00_1619 = 
(BgL_nodez00_bglt)(BgL_ez00_1377); 
BGl_compilezd2exprzd2zzdotnet_exprz00(BgL_ez00_1619, BgL_envz00_1378); 
{ /* ./DotNet/effect.scm 87 */
obj_t BgL_arg3079z00_1621;
BgL_arg3079z00_1621 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_ez00_1619), BgL_envz00_1378); 
return 
BGl__popz00zzdotnet_instrz00(BgL_envz00_1378, BgL_arg3079z00_1621);} } } } 
}



/* compile-effect-cast3064 */
obj_t BGl_compilezd2effectzd2cast3064z00zzdotnet_effectz00(obj_t BgL_envz00_1733, obj_t BgL_ez00_1734, obj_t BgL_envz00_1735)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 83 */
{ 
BgL_castz00_bglt BgL_ez00_1371;BgL_envz00_bglt BgL_envz00_1372;
BgL_ez00_1371 = 
(BgL_castz00_bglt)(BgL_ez00_1734); 
BgL_envz00_1372 = 
(BgL_envz00_bglt)(BgL_envz00_1735); 
return 
BGl_compilerzd2castzd2zzdotnet_compilerz00(BgL_ez00_1371, BgL_envz00_1372, BGl_compilezd2effectzd2envz00zzdotnet_effectz00);} } 
}



/* compile-effect-isa3062 */
obj_t BGl_compilezd2effectzd2isa3062z00zzdotnet_effectz00(obj_t BgL_envz00_1736, obj_t BgL_ez00_1737, obj_t BgL_envz00_1738)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 80 */
{ 
BgL_isaz00_bglt BgL_ez00_1363;BgL_envz00_bglt BgL_envz00_1364;
BgL_ez00_1363 = 
(BgL_isaz00_bglt)(BgL_ez00_1737); 
BgL_envz00_1364 = 
(BgL_envz00_bglt)(BgL_envz00_1738); 
{ /* ./DotNet/effect.scm 81 */
obj_t BgL_arg3623z00_1588;
{ /* ./DotNet/effect.scm 81 */
obj_t BgL_auxz00_1932;
{ /* ./DotNet/effect.scm 81 */
BgL_externz00_bglt BgL_obj1817z00_1590;
BgL_obj1817z00_1590 = 
(BgL_externz00_bglt)(BgL_ez00_1363); 
BgL_auxz00_1932 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1590))->BgL_exprza2za2); } 
BgL_arg3623z00_1588 = 
CAR(BgL_auxz00_1932); } 
{ /* ./DotNet/effect.scm 81 */
BgL_nodez00_bglt BgL_ez00_1592;
BgL_ez00_1592 = 
(BgL_nodez00_bglt)(BgL_arg3623z00_1588); 
{ /* ./DotNet/effect.scm 81 */
obj_t BgL_method3022z00_1594;
{ /* ./DotNet/effect.scm 81 */
BgL_objectz00_bglt BgL_objz00_1595;
BgL_objz00_1595 = 
(BgL_objectz00_bglt)(BgL_ez00_1592); 
{ /* ./DotNet/effect.scm 81 */
long BgL_objzd2classzd2numz00_1596;
BgL_objzd2classzd2numz00_1596 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1595); 
{ /* ./DotNet/effect.scm 81 */
obj_t BgL_arg2017z00_1597;
{ /* ./DotNet/effect.scm 81 */
int BgL_auxz00_1939;
BgL_auxz00_1939 = 
(int)(((long)1)); 
BgL_arg2017z00_1597 = 
PROCEDURE_REF(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BgL_auxz00_1939); } 
{ /* ./DotNet/effect.scm 81 */
int BgL_offsetz00_1600;
BgL_offsetz00_1600 = 
(int)(BgL_objzd2classzd2numz00_1596); 
{ /* ./DotNet/effect.scm 81 */
long BgL_offsetz00_1601;
{ /* ./DotNet/effect.scm 81 */
long BgL_auxz00_1943;
BgL_auxz00_1943 = 
(long)(BgL_offsetz00_1600); 
BgL_offsetz00_1601 = 
(BgL_auxz00_1943-OBJECT_TYPE); } 
{ /* ./DotNet/effect.scm 81 */
long BgL_modz00_1602;
{ /* ./DotNet/effect.scm 81 */
int BgL_arg2028z00_1603;
BgL_arg2028z00_1603 = 
(int)(((long)8)); 
{ /* ./DotNet/effect.scm 81 */
long BgL_n2z00_1611;
BgL_n2z00_1611 = 
(long)(BgL_arg2028z00_1603); 
BgL_modz00_1602 = 
(BgL_offsetz00_1601/BgL_n2z00_1611); } } 
{ /* ./DotNet/effect.scm 81 */
long BgL_restz00_1604;
{ /* ./DotNet/effect.scm 81 */
int BgL_arg2024z00_1605;
BgL_arg2024z00_1605 = 
(int)(((long)8)); 
{ /* ./DotNet/effect.scm 81 */
long BgL_n2z00_1614;
BgL_n2z00_1614 = 
(long)(BgL_arg2024z00_1605); 
BgL_restz00_1604 = 
(BgL_offsetz00_1601%BgL_n2z00_1614); } } 
{ /* ./DotNet/effect.scm 81 */

{ /* ./DotNet/effect.scm 81 */
obj_t BgL_bucketz00_1606;
{ /* ./DotNet/effect.scm 81 */
int BgL_kz00_1616;
BgL_kz00_1616 = 
(int)(BgL_modz00_1602); 
BgL_bucketz00_1606 = 
VECTOR_REF(BgL_arg2017z00_1597,BgL_kz00_1616); } 
{ /* ./DotNet/effect.scm 81 */
int BgL_kz00_1618;
BgL_kz00_1618 = 
(int)(BgL_restz00_1604); 
BgL_method3022z00_1594 = 
VECTOR_REF(BgL_bucketz00_1606,BgL_kz00_1618); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3022z00_1594)(BgL_method3022z00_1594, 
(obj_t)(BgL_ez00_1592), 
(obj_t)(BgL_envz00_1364), BEOA);} } } } } 
}



/* compile-effect-vlength3060 */
obj_t BGl_compilezd2effectzd2vlength3060z00zzdotnet_effectz00(obj_t BgL_envz00_1739, obj_t BgL_ez00_1740, obj_t BgL_envz00_1741)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 77 */
{ 
BgL_vlengthz00_bglt BgL_ez00_1355;BgL_envz00_bglt BgL_envz00_1356;
BgL_ez00_1355 = 
(BgL_vlengthz00_bglt)(BgL_ez00_1740); 
BgL_envz00_1356 = 
(BgL_envz00_bglt)(BgL_envz00_1741); 
{ /* ./DotNet/effect.scm 78 */
obj_t BgL_arg3609z00_1557;
{ /* ./DotNet/effect.scm 78 */
obj_t BgL_auxz00_1962;
{ /* ./DotNet/effect.scm 78 */
BgL_externz00_bglt BgL_obj1817z00_1559;
BgL_obj1817z00_1559 = 
(BgL_externz00_bglt)(BgL_ez00_1355); 
BgL_auxz00_1962 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1559))->BgL_exprza2za2); } 
BgL_arg3609z00_1557 = 
CAR(BgL_auxz00_1962); } 
{ /* ./DotNet/effect.scm 78 */
BgL_nodez00_bglt BgL_ez00_1561;
BgL_ez00_1561 = 
(BgL_nodez00_bglt)(BgL_arg3609z00_1557); 
{ /* ./DotNet/effect.scm 78 */
obj_t BgL_method3022z00_1563;
{ /* ./DotNet/effect.scm 78 */
BgL_objectz00_bglt BgL_objz00_1564;
BgL_objz00_1564 = 
(BgL_objectz00_bglt)(BgL_ez00_1561); 
{ /* ./DotNet/effect.scm 78 */
long BgL_objzd2classzd2numz00_1565;
BgL_objzd2classzd2numz00_1565 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1564); 
{ /* ./DotNet/effect.scm 78 */
obj_t BgL_arg2017z00_1566;
{ /* ./DotNet/effect.scm 78 */
int BgL_auxz00_1969;
BgL_auxz00_1969 = 
(int)(((long)1)); 
BgL_arg2017z00_1566 = 
PROCEDURE_REF(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BgL_auxz00_1969); } 
{ /* ./DotNet/effect.scm 78 */
int BgL_offsetz00_1569;
BgL_offsetz00_1569 = 
(int)(BgL_objzd2classzd2numz00_1565); 
{ /* ./DotNet/effect.scm 78 */
long BgL_offsetz00_1570;
{ /* ./DotNet/effect.scm 78 */
long BgL_auxz00_1973;
BgL_auxz00_1973 = 
(long)(BgL_offsetz00_1569); 
BgL_offsetz00_1570 = 
(BgL_auxz00_1973-OBJECT_TYPE); } 
{ /* ./DotNet/effect.scm 78 */
long BgL_modz00_1571;
{ /* ./DotNet/effect.scm 78 */
int BgL_arg2028z00_1572;
BgL_arg2028z00_1572 = 
(int)(((long)8)); 
{ /* ./DotNet/effect.scm 78 */
long BgL_n2z00_1580;
BgL_n2z00_1580 = 
(long)(BgL_arg2028z00_1572); 
BgL_modz00_1571 = 
(BgL_offsetz00_1570/BgL_n2z00_1580); } } 
{ /* ./DotNet/effect.scm 78 */
long BgL_restz00_1573;
{ /* ./DotNet/effect.scm 78 */
int BgL_arg2024z00_1574;
BgL_arg2024z00_1574 = 
(int)(((long)8)); 
{ /* ./DotNet/effect.scm 78 */
long BgL_n2z00_1583;
BgL_n2z00_1583 = 
(long)(BgL_arg2024z00_1574); 
BgL_restz00_1573 = 
(BgL_offsetz00_1570%BgL_n2z00_1583); } } 
{ /* ./DotNet/effect.scm 78 */

{ /* ./DotNet/effect.scm 78 */
obj_t BgL_bucketz00_1575;
{ /* ./DotNet/effect.scm 78 */
int BgL_kz00_1585;
BgL_kz00_1585 = 
(int)(BgL_modz00_1571); 
BgL_bucketz00_1575 = 
VECTOR_REF(BgL_arg2017z00_1566,BgL_kz00_1585); } 
{ /* ./DotNet/effect.scm 78 */
int BgL_kz00_1587;
BgL_kz00_1587 = 
(int)(BgL_restz00_1573); 
BgL_method3022z00_1563 = 
VECTOR_REF(BgL_bucketz00_1575,BgL_kz00_1587); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3022z00_1563)(BgL_method3022z00_1563, 
(obj_t)(BgL_ez00_1561), 
(obj_t)(BgL_envz00_1356), BEOA);} } } } } 
}



/* compile-effect-vset!3058 */
obj_t BGl_compilezd2effectzd2vsetz123058z12zzdotnet_effectz00(obj_t BgL_envz00_1742, obj_t BgL_ez00_1743, obj_t BgL_envz00_1744)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 74 */
{ /* ./DotNet/effect.scm 75 */
BgL_vsetz12z12_bglt BgL_ez00_1811;BgL_envz00_bglt BgL_envz00_1812;
BgL_ez00_1811 = 
(BgL_vsetz12z12_bglt)(BgL_ez00_1743); 
BgL_envz00_1812 = 
(BgL_envz00_bglt)(BgL_envz00_1744); 
return 
BGl_compilerzd2vsetzd2zzdotnet_compilerz00(BgL_ez00_1811, BgL_envz00_1812);} } 
}



/* compile-effect-vref3056 */
obj_t BGl_compilezd2effectzd2vref3056z00zzdotnet_effectz00(obj_t BgL_envz00_1745, obj_t BgL_ez00_1746, obj_t BgL_envz00_1747)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 69 */
{ 
BgL_vrefz00_bglt BgL_ez00_1338;BgL_envz00_bglt BgL_envz00_1339;
BgL_ez00_1338 = 
(BgL_vrefz00_bglt)(BgL_ez00_1746); 
BgL_envz00_1339 = 
(BgL_envz00_bglt)(BgL_envz00_1747); 
{ /* ./DotNet/effect.scm 71 */
obj_t BgL_arg3581z00_1343;
{ /* ./DotNet/effect.scm 71 */
obj_t BgL_auxz00_1995;
{ /* ./DotNet/effect.scm 71 */
BgL_externz00_bglt BgL_obj1817z00_1496;
BgL_obj1817z00_1496 = 
(BgL_externz00_bglt)(BgL_ez00_1338); 
BgL_auxz00_1995 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1496))->BgL_exprza2za2); } 
BgL_arg3581z00_1343 = 
CAR(BgL_auxz00_1995); } 
{ /* ./DotNet/effect.scm 71 */
BgL_nodez00_bglt BgL_ez00_1498;
BgL_ez00_1498 = 
(BgL_nodez00_bglt)(BgL_arg3581z00_1343); 
{ /* ./DotNet/effect.scm 71 */
obj_t BgL_method3022z00_1500;
{ /* ./DotNet/effect.scm 71 */
BgL_objectz00_bglt BgL_objz00_1501;
BgL_objz00_1501 = 
(BgL_objectz00_bglt)(BgL_ez00_1498); 
{ /* ./DotNet/effect.scm 71 */
long BgL_objzd2classzd2numz00_1502;
BgL_objzd2classzd2numz00_1502 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1501); 
{ /* ./DotNet/effect.scm 71 */
obj_t BgL_arg2017z00_1503;
{ /* ./DotNet/effect.scm 71 */
int BgL_auxz00_2002;
BgL_auxz00_2002 = 
(int)(((long)1)); 
BgL_arg2017z00_1503 = 
PROCEDURE_REF(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BgL_auxz00_2002); } 
{ /* ./DotNet/effect.scm 71 */
int BgL_offsetz00_1506;
BgL_offsetz00_1506 = 
(int)(BgL_objzd2classzd2numz00_1502); 
{ /* ./DotNet/effect.scm 71 */
long BgL_offsetz00_1507;
{ /* ./DotNet/effect.scm 71 */
long BgL_auxz00_2006;
BgL_auxz00_2006 = 
(long)(BgL_offsetz00_1506); 
BgL_offsetz00_1507 = 
(BgL_auxz00_2006-OBJECT_TYPE); } 
{ /* ./DotNet/effect.scm 71 */
long BgL_modz00_1508;
{ /* ./DotNet/effect.scm 71 */
int BgL_arg2028z00_1509;
BgL_arg2028z00_1509 = 
(int)(((long)8)); 
{ /* ./DotNet/effect.scm 71 */
long BgL_n2z00_1517;
BgL_n2z00_1517 = 
(long)(BgL_arg2028z00_1509); 
BgL_modz00_1508 = 
(BgL_offsetz00_1507/BgL_n2z00_1517); } } 
{ /* ./DotNet/effect.scm 71 */
long BgL_restz00_1510;
{ /* ./DotNet/effect.scm 71 */
int BgL_arg2024z00_1511;
BgL_arg2024z00_1511 = 
(int)(((long)8)); 
{ /* ./DotNet/effect.scm 71 */
long BgL_n2z00_1520;
BgL_n2z00_1520 = 
(long)(BgL_arg2024z00_1511); 
BgL_restz00_1510 = 
(BgL_offsetz00_1507%BgL_n2z00_1520); } } 
{ /* ./DotNet/effect.scm 71 */

{ /* ./DotNet/effect.scm 71 */
obj_t BgL_bucketz00_1512;
{ /* ./DotNet/effect.scm 71 */
int BgL_kz00_1522;
BgL_kz00_1522 = 
(int)(BgL_modz00_1508); 
BgL_bucketz00_1512 = 
VECTOR_REF(BgL_arg2017z00_1503,BgL_kz00_1522); } 
{ /* ./DotNet/effect.scm 71 */
int BgL_kz00_1524;
BgL_kz00_1524 = 
(int)(BgL_restz00_1510); 
BgL_method3022z00_1500 = 
VECTOR_REF(BgL_bucketz00_1512,BgL_kz00_1524); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method3022z00_1500)(BgL_method3022z00_1500, 
(obj_t)(BgL_ez00_1498), 
(obj_t)(BgL_envz00_1339), BEOA); } } } 
{ /* ./DotNet/effect.scm 72 */
obj_t BgL_arg3589z00_1345;
{ /* ./DotNet/effect.scm 72 */
obj_t BgL_auxz00_2023;
{ /* ./DotNet/effect.scm 72 */
obj_t BgL_auxz00_2024;
{ /* ./DotNet/effect.scm 72 */
BgL_externz00_bglt BgL_obj1817z00_1525;
BgL_obj1817z00_1525 = 
(BgL_externz00_bglt)(BgL_ez00_1338); 
BgL_auxz00_2024 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1525))->BgL_exprza2za2); } 
BgL_auxz00_2023 = 
CDR(BgL_auxz00_2024); } 
BgL_arg3589z00_1345 = 
CAR(BgL_auxz00_2023); } 
{ /* ./DotNet/effect.scm 72 */
BgL_nodez00_bglt BgL_ez00_1530;
BgL_ez00_1530 = 
(BgL_nodez00_bglt)(BgL_arg3589z00_1345); 
{ /* ./DotNet/effect.scm 72 */
obj_t BgL_method3022z00_1532;
{ /* ./DotNet/effect.scm 72 */
BgL_objectz00_bglt BgL_objz00_1533;
BgL_objz00_1533 = 
(BgL_objectz00_bglt)(BgL_ez00_1530); 
{ /* ./DotNet/effect.scm 72 */
long BgL_objzd2classzd2numz00_1534;
BgL_objzd2classzd2numz00_1534 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1533); 
{ /* ./DotNet/effect.scm 72 */
obj_t BgL_arg2017z00_1535;
{ /* ./DotNet/effect.scm 72 */
int BgL_auxz00_2032;
BgL_auxz00_2032 = 
(int)(((long)1)); 
BgL_arg2017z00_1535 = 
PROCEDURE_REF(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BgL_auxz00_2032); } 
{ /* ./DotNet/effect.scm 72 */
int BgL_offsetz00_1538;
BgL_offsetz00_1538 = 
(int)(BgL_objzd2classzd2numz00_1534); 
{ /* ./DotNet/effect.scm 72 */
long BgL_offsetz00_1539;
{ /* ./DotNet/effect.scm 72 */
long BgL_auxz00_2036;
BgL_auxz00_2036 = 
(long)(BgL_offsetz00_1538); 
BgL_offsetz00_1539 = 
(BgL_auxz00_2036-OBJECT_TYPE); } 
{ /* ./DotNet/effect.scm 72 */
long BgL_modz00_1540;
{ /* ./DotNet/effect.scm 72 */
int BgL_arg2028z00_1541;
BgL_arg2028z00_1541 = 
(int)(((long)8)); 
{ /* ./DotNet/effect.scm 72 */
long BgL_n2z00_1549;
BgL_n2z00_1549 = 
(long)(BgL_arg2028z00_1541); 
BgL_modz00_1540 = 
(BgL_offsetz00_1539/BgL_n2z00_1549); } } 
{ /* ./DotNet/effect.scm 72 */
long BgL_restz00_1542;
{ /* ./DotNet/effect.scm 72 */
int BgL_arg2024z00_1543;
BgL_arg2024z00_1543 = 
(int)(((long)8)); 
{ /* ./DotNet/effect.scm 72 */
long BgL_n2z00_1552;
BgL_n2z00_1552 = 
(long)(BgL_arg2024z00_1543); 
BgL_restz00_1542 = 
(BgL_offsetz00_1539%BgL_n2z00_1552); } } 
{ /* ./DotNet/effect.scm 72 */

{ /* ./DotNet/effect.scm 72 */
obj_t BgL_bucketz00_1544;
{ /* ./DotNet/effect.scm 72 */
int BgL_kz00_1554;
BgL_kz00_1554 = 
(int)(BgL_modz00_1540); 
BgL_bucketz00_1544 = 
VECTOR_REF(BgL_arg2017z00_1535,BgL_kz00_1554); } 
{ /* ./DotNet/effect.scm 72 */
int BgL_kz00_1556;
BgL_kz00_1556 = 
(int)(BgL_restz00_1542); 
BgL_method3022z00_1532 = 
VECTOR_REF(BgL_bucketz00_1544,BgL_kz00_1556); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3022z00_1532)(BgL_method3022z00_1532, 
(obj_t)(BgL_ez00_1530), 
(obj_t)(BgL_envz00_1339), BEOA);} } } } } 
}



/* compile-effect-valloc3054 */
obj_t BGl_compilezd2effectzd2valloc3054z00zzdotnet_effectz00(obj_t BgL_envz00_1748, obj_t BgL_ez00_1749, obj_t BgL_envz00_1750)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 66 */
{ 
BgL_vallocz00_bglt BgL_ez00_1330;BgL_envz00_bglt BgL_envz00_1331;
BgL_ez00_1330 = 
(BgL_vallocz00_bglt)(BgL_ez00_1749); 
BgL_envz00_1331 = 
(BgL_envz00_bglt)(BgL_envz00_1750); 
{ /* ./DotNet/effect.scm 67 */
obj_t BgL_arg3568z00_1465;
{ /* ./DotNet/effect.scm 67 */
obj_t BgL_auxz00_2055;
{ /* ./DotNet/effect.scm 67 */
BgL_externz00_bglt BgL_obj1817z00_1467;
BgL_obj1817z00_1467 = 
(BgL_externz00_bglt)(BgL_ez00_1330); 
BgL_auxz00_2055 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1467))->BgL_exprza2za2); } 
BgL_arg3568z00_1465 = 
CAR(BgL_auxz00_2055); } 
{ /* ./DotNet/effect.scm 67 */
BgL_nodez00_bglt BgL_ez00_1469;
BgL_ez00_1469 = 
(BgL_nodez00_bglt)(BgL_arg3568z00_1465); 
{ /* ./DotNet/effect.scm 67 */
obj_t BgL_method3022z00_1471;
{ /* ./DotNet/effect.scm 67 */
BgL_objectz00_bglt BgL_objz00_1472;
BgL_objz00_1472 = 
(BgL_objectz00_bglt)(BgL_ez00_1469); 
{ /* ./DotNet/effect.scm 67 */
long BgL_objzd2classzd2numz00_1473;
BgL_objzd2classzd2numz00_1473 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1472); 
{ /* ./DotNet/effect.scm 67 */
obj_t BgL_arg2017z00_1474;
{ /* ./DotNet/effect.scm 67 */
int BgL_auxz00_2062;
BgL_auxz00_2062 = 
(int)(((long)1)); 
BgL_arg2017z00_1474 = 
PROCEDURE_REF(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BgL_auxz00_2062); } 
{ /* ./DotNet/effect.scm 67 */
int BgL_offsetz00_1477;
BgL_offsetz00_1477 = 
(int)(BgL_objzd2classzd2numz00_1473); 
{ /* ./DotNet/effect.scm 67 */
long BgL_offsetz00_1478;
{ /* ./DotNet/effect.scm 67 */
long BgL_auxz00_2066;
BgL_auxz00_2066 = 
(long)(BgL_offsetz00_1477); 
BgL_offsetz00_1478 = 
(BgL_auxz00_2066-OBJECT_TYPE); } 
{ /* ./DotNet/effect.scm 67 */
long BgL_modz00_1479;
{ /* ./DotNet/effect.scm 67 */
int BgL_arg2028z00_1480;
BgL_arg2028z00_1480 = 
(int)(((long)8)); 
{ /* ./DotNet/effect.scm 67 */
long BgL_n2z00_1488;
BgL_n2z00_1488 = 
(long)(BgL_arg2028z00_1480); 
BgL_modz00_1479 = 
(BgL_offsetz00_1478/BgL_n2z00_1488); } } 
{ /* ./DotNet/effect.scm 67 */
long BgL_restz00_1481;
{ /* ./DotNet/effect.scm 67 */
int BgL_arg2024z00_1482;
BgL_arg2024z00_1482 = 
(int)(((long)8)); 
{ /* ./DotNet/effect.scm 67 */
long BgL_n2z00_1491;
BgL_n2z00_1491 = 
(long)(BgL_arg2024z00_1482); 
BgL_restz00_1481 = 
(BgL_offsetz00_1478%BgL_n2z00_1491); } } 
{ /* ./DotNet/effect.scm 67 */

{ /* ./DotNet/effect.scm 67 */
obj_t BgL_bucketz00_1483;
{ /* ./DotNet/effect.scm 67 */
int BgL_kz00_1493;
BgL_kz00_1493 = 
(int)(BgL_modz00_1479); 
BgL_bucketz00_1483 = 
VECTOR_REF(BgL_arg2017z00_1474,BgL_kz00_1493); } 
{ /* ./DotNet/effect.scm 67 */
int BgL_kz00_1495;
BgL_kz00_1495 = 
(int)(BgL_restz00_1481); 
BgL_method3022z00_1471 = 
VECTOR_REF(BgL_bucketz00_1483,BgL_kz00_1495); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3022z00_1471)(BgL_method3022z00_1471, 
(obj_t)(BgL_ez00_1469), 
(obj_t)(BgL_envz00_1331), BEOA);} } } } } 
}



/* compile-effect-new3052 */
obj_t BGl_compilezd2effectzd2new3052z00zzdotnet_effectz00(obj_t BgL_envz00_1751, obj_t BgL_ez00_1752, obj_t BgL_envz00_1753)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 63 */
{ /* ./DotNet/effect.scm 64 */
obj_t BgL_res4001z00_1815;
BgL_res4001z00_1815 = 
CNST_TABLE_REF(((long)0)); 
return BgL_res4001z00_1815;} } 
}



/* compile-effect-setfield3050 */
obj_t BGl_compilezd2effectzd2setfield3050z00zzdotnet_effectz00(obj_t BgL_envz00_1754, obj_t BgL_ez00_1755, obj_t BgL_envz00_1756)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 60 */
{ /* ./DotNet/effect.scm 61 */
BgL_setfieldz00_bglt BgL_ez00_1816;BgL_envz00_bglt BgL_envz00_1817;
BgL_ez00_1816 = 
(BgL_setfieldz00_bglt)(BgL_ez00_1755); 
BgL_envz00_1817 = 
(BgL_envz00_bglt)(BgL_envz00_1756); 
return 
BGl_compilerzd2setfieldzd2zzdotnet_compilerz00(BgL_ez00_1816, BgL_envz00_1817);} } 
}



/* compile-effect-getfield3048 */
obj_t BGl_compilezd2effectzd2getfield3048z00zzdotnet_effectz00(obj_t BgL_envz00_1757, obj_t BgL_ez00_1758, obj_t BgL_envz00_1759)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 57 */
{ 
BgL_getfieldz00_bglt BgL_ez00_1310;BgL_envz00_bglt BgL_envz00_1311;
BgL_ez00_1310 = 
(BgL_getfieldz00_bglt)(BgL_ez00_1758); 
BgL_envz00_1311 = 
(BgL_envz00_bglt)(BgL_envz00_1759); 
{ /* ./DotNet/effect.scm 58 */
obj_t BgL_arg3542z00_1434;
{ /* ./DotNet/effect.scm 58 */
obj_t BgL_auxz00_2089;
{ /* ./DotNet/effect.scm 58 */
BgL_externz00_bglt BgL_obj1817z00_1436;
BgL_obj1817z00_1436 = 
(BgL_externz00_bglt)(BgL_ez00_1310); 
BgL_auxz00_2089 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1436))->BgL_exprza2za2); } 
BgL_arg3542z00_1434 = 
CAR(BgL_auxz00_2089); } 
{ /* ./DotNet/effect.scm 58 */
BgL_nodez00_bglt BgL_ez00_1438;
BgL_ez00_1438 = 
(BgL_nodez00_bglt)(BgL_arg3542z00_1434); 
{ /* ./DotNet/effect.scm 58 */
obj_t BgL_method3022z00_1440;
{ /* ./DotNet/effect.scm 58 */
BgL_objectz00_bglt BgL_objz00_1441;
BgL_objz00_1441 = 
(BgL_objectz00_bglt)(BgL_ez00_1438); 
{ /* ./DotNet/effect.scm 58 */
long BgL_objzd2classzd2numz00_1442;
BgL_objzd2classzd2numz00_1442 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1441); 
{ /* ./DotNet/effect.scm 58 */
obj_t BgL_arg2017z00_1443;
{ /* ./DotNet/effect.scm 58 */
int BgL_auxz00_2096;
BgL_auxz00_2096 = 
(int)(((long)1)); 
BgL_arg2017z00_1443 = 
PROCEDURE_REF(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BgL_auxz00_2096); } 
{ /* ./DotNet/effect.scm 58 */
int BgL_offsetz00_1446;
BgL_offsetz00_1446 = 
(int)(BgL_objzd2classzd2numz00_1442); 
{ /* ./DotNet/effect.scm 58 */
long BgL_offsetz00_1447;
{ /* ./DotNet/effect.scm 58 */
long BgL_auxz00_2100;
BgL_auxz00_2100 = 
(long)(BgL_offsetz00_1446); 
BgL_offsetz00_1447 = 
(BgL_auxz00_2100-OBJECT_TYPE); } 
{ /* ./DotNet/effect.scm 58 */
long BgL_modz00_1448;
{ /* ./DotNet/effect.scm 58 */
int BgL_arg2028z00_1449;
BgL_arg2028z00_1449 = 
(int)(((long)8)); 
{ /* ./DotNet/effect.scm 58 */
long BgL_n2z00_1457;
BgL_n2z00_1457 = 
(long)(BgL_arg2028z00_1449); 
BgL_modz00_1448 = 
(BgL_offsetz00_1447/BgL_n2z00_1457); } } 
{ /* ./DotNet/effect.scm 58 */
long BgL_restz00_1450;
{ /* ./DotNet/effect.scm 58 */
int BgL_arg2024z00_1451;
BgL_arg2024z00_1451 = 
(int)(((long)8)); 
{ /* ./DotNet/effect.scm 58 */
long BgL_n2z00_1460;
BgL_n2z00_1460 = 
(long)(BgL_arg2024z00_1451); 
BgL_restz00_1450 = 
(BgL_offsetz00_1447%BgL_n2z00_1460); } } 
{ /* ./DotNet/effect.scm 58 */

{ /* ./DotNet/effect.scm 58 */
obj_t BgL_bucketz00_1452;
{ /* ./DotNet/effect.scm 58 */
int BgL_kz00_1462;
BgL_kz00_1462 = 
(int)(BgL_modz00_1448); 
BgL_bucketz00_1452 = 
VECTOR_REF(BgL_arg2017z00_1443,BgL_kz00_1462); } 
{ /* ./DotNet/effect.scm 58 */
int BgL_kz00_1464;
BgL_kz00_1464 = 
(int)(BgL_restz00_1450); 
BgL_method3022z00_1440 = 
VECTOR_REF(BgL_bucketz00_1452,BgL_kz00_1464); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3022z00_1440)(BgL_method3022z00_1440, 
(obj_t)(BgL_ez00_1438), 
(obj_t)(BgL_envz00_1311), BEOA);} } } } } 
}



/* compile-effect-pragma3046 */
obj_t BGl_compilezd2effectzd2pragma3046z00zzdotnet_effectz00(obj_t BgL_envz00_1760, obj_t BgL_ez00_1761, obj_t BgL_envz00_1762)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 54 */
{ 
BgL_pragmaz00_bglt BgL_ez00_1304;BgL_envz00_bglt BgL_envz00_1305;
BgL_ez00_1304 = 
(BgL_pragmaz00_bglt)(BgL_ez00_1761); 
BgL_envz00_1305 = 
(BgL_envz00_bglt)(BgL_envz00_1762); 
{ /* ./DotNet/effect.scm 55 */
BgL_nodez00_bglt BgL_ez00_1431;
BgL_ez00_1431 = 
(BgL_nodez00_bglt)(BgL_ez00_1304); 
BGl_compilezd2exprzd2zzdotnet_exprz00(BgL_ez00_1431, BgL_envz00_1305); 
{ /* ./DotNet/effect.scm 55 */
obj_t BgL_arg3079z00_1433;
BgL_arg3079z00_1433 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_ez00_1431), BgL_envz00_1305); 
return 
BGl__popz00zzdotnet_instrz00(BgL_envz00_1305, BgL_arg3079z00_1433);} } } } 
}



/* compile-effect-funcall3044 */
obj_t BGl_compilezd2effectzd2funcall3044z00zzdotnet_effectz00(obj_t BgL_envz00_1763, obj_t BgL_ez00_1764, obj_t BgL_envz00_1765)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 51 */
{ 
BgL_funcallz00_bglt BgL_ez00_1298;BgL_envz00_bglt BgL_envz00_1299;
BgL_ez00_1298 = 
(BgL_funcallz00_bglt)(BgL_ez00_1764); 
BgL_envz00_1299 = 
(BgL_envz00_bglt)(BgL_envz00_1765); 
{ /* ./DotNet/effect.scm 52 */
BgL_nodez00_bglt BgL_ez00_1428;
BgL_ez00_1428 = 
(BgL_nodez00_bglt)(BgL_ez00_1298); 
BGl_compilezd2exprzd2zzdotnet_exprz00(BgL_ez00_1428, BgL_envz00_1299); 
{ /* ./DotNet/effect.scm 52 */
obj_t BgL_arg3079z00_1430;
BgL_arg3079z00_1430 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_ez00_1428), BgL_envz00_1299); 
return 
BGl__popz00zzdotnet_instrz00(BgL_envz00_1299, BgL_arg3079z00_1430);} } } } 
}



/* compile-effect-app-ly3042 */
obj_t BGl_compilezd2effectzd2appzd2ly3042zd2zzdotnet_effectz00(obj_t BgL_envz00_1766, obj_t BgL_ez00_1767, obj_t BgL_envz00_1768)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 48 */
{ 
BgL_appzd2lyzd2_bglt BgL_ez00_1292;BgL_envz00_bglt BgL_envz00_1293;
BgL_ez00_1292 = 
(BgL_appzd2lyzd2_bglt)(BgL_ez00_1767); 
BgL_envz00_1293 = 
(BgL_envz00_bglt)(BgL_envz00_1768); 
{ /* ./DotNet/effect.scm 49 */
BgL_nodez00_bglt BgL_ez00_1425;
BgL_ez00_1425 = 
(BgL_nodez00_bglt)(BgL_ez00_1292); 
BGl_compilezd2exprzd2zzdotnet_exprz00(BgL_ez00_1425, BgL_envz00_1293); 
{ /* ./DotNet/effect.scm 49 */
obj_t BgL_arg3079z00_1427;
BgL_arg3079z00_1427 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_ez00_1425), BgL_envz00_1293); 
return 
BGl__popz00zzdotnet_instrz00(BgL_envz00_1293, BgL_arg3079z00_1427);} } } } 
}



/* compile-effect-app3040 */
obj_t BGl_compilezd2effectzd2app3040z00zzdotnet_effectz00(obj_t BgL_envz00_1769, obj_t BgL_ez00_1770, obj_t BgL_envz00_1771)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 44 */
{ 
BgL_appz00_bglt BgL_ez00_1286;BgL_envz00_bglt BgL_envz00_1287;
BgL_ez00_1286 = 
(BgL_appz00_bglt)(BgL_ez00_1770); 
BgL_envz00_1287 = 
(BgL_envz00_bglt)(BgL_envz00_1771); 
{ /* ./DotNet/effect.scm 46 */
BgL_nodez00_bglt BgL_ez00_1422;
BgL_ez00_1422 = 
(BgL_nodez00_bglt)(BgL_ez00_1286); 
BGl_compilezd2exprzd2zzdotnet_exprz00(BgL_ez00_1422, BgL_envz00_1287); 
{ /* ./DotNet/effect.scm 46 */
obj_t BgL_arg3079z00_1424;
BgL_arg3079z00_1424 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_ez00_1422), BgL_envz00_1287); 
return 
BGl__popz00zzdotnet_instrz00(BgL_envz00_1287, BgL_arg3079z00_1424);} } } } 
}



/* compile-effect-let-fun3038 */
obj_t BGl_compilezd2effectzd2letzd2fun3038zd2zzdotnet_effectz00(obj_t BgL_envz00_1772, obj_t BgL_ez00_1773, obj_t BgL_envz00_1774)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 41 */
{ 
BgL_letzd2funzd2_bglt BgL_ez00_1280;BgL_envz00_bglt BgL_envz00_1281;
BgL_ez00_1280 = 
(BgL_letzd2funzd2_bglt)(BgL_ez00_1773); 
BgL_envz00_1281 = 
(BgL_envz00_bglt)(BgL_envz00_1774); 
return 
BGl_compilerzd2labelszd2zzdotnet_compilerz00(BgL_ez00_1280, BgL_envz00_1281, BGl_compilezd2effectzd2envz00zzdotnet_effectz00);} } 
}



/* compile-effect-select3036 */
obj_t BGl_compilezd2effectzd2select3036z00zzdotnet_effectz00(obj_t BgL_envz00_1775, obj_t BgL_ez00_1776, obj_t BgL_envz00_1777)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 36 */
{ 
BgL_selectz00_bglt BgL_ez00_1273;BgL_envz00_bglt BgL_envz00_1274;
BgL_ez00_1273 = 
(BgL_selectz00_bglt)(BgL_ez00_1776); 
BgL_envz00_1274 = 
(BgL_envz00_bglt)(BgL_envz00_1777); 
{ /* ./DotNet/effect.scm 37 */
bool_t BgL_test3496z00_1277;
{ /* ./DotNet/effect.scm 37 */
obj_t BgL_auxz00_2150;
BgL_auxz00_2150 = 
CNST_TABLE_REF(((long)1)); 
BgL_test3496z00_1277 = 
(BGl_za2targetzd2languageza2zd2zzengine_paramz00==BgL_auxz00_2150); } 
if(BgL_test3496z00_1277)
{ /* ./DotNet/effect.scm 38 */
BgL_nodez00_bglt BgL_ez00_1419;
BgL_ez00_1419 = 
(BgL_nodez00_bglt)(BgL_ez00_1273); 
BGl_compilezd2exprzd2zzdotnet_exprz00(BgL_ez00_1419, BgL_envz00_1274); 
{ /* ./DotNet/effect.scm 38 */
obj_t BgL_arg3079z00_1421;
BgL_arg3079z00_1421 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_ez00_1419), BgL_envz00_1274); 
return 
BGl__popz00zzdotnet_instrz00(BgL_envz00_1274, BgL_arg3079z00_1421);} }  else 
{ /* ./DotNet/effect.scm 37 */
return 
BGl_compilerzd2selectzd2zzdotnet_compilerz00(BgL_ez00_1273, BgL_envz00_1274, BGl_compilezd2effectzd2envz00zzdotnet_effectz00);} } } } 
}



/* compile-effect-conditional3034 */
obj_t BGl_compilezd2effectzd2conditional3034z00zzdotnet_effectz00(obj_t BgL_envz00_1778, obj_t BgL_ez00_1779, obj_t BgL_envz00_1780)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 31 */
{ 
BgL_conditionalz00_bglt BgL_ez00_1266;BgL_envz00_bglt BgL_envz00_1267;
BgL_ez00_1266 = 
(BgL_conditionalz00_bglt)(BgL_ez00_1779); 
BgL_envz00_1267 = 
(BgL_envz00_bglt)(BgL_envz00_1780); 
{ /* ./DotNet/effect.scm 32 */
bool_t BgL_test3486z00_1270;
{ /* ./DotNet/effect.scm 32 */
obj_t BgL_auxz00_2162;
BgL_auxz00_2162 = 
CNST_TABLE_REF(((long)1)); 
BgL_test3486z00_1270 = 
(BGl_za2targetzd2languageza2zd2zzengine_paramz00==BgL_auxz00_2162); } 
if(BgL_test3486z00_1270)
{ /* ./DotNet/effect.scm 33 */
BgL_nodez00_bglt BgL_ez00_1416;
BgL_ez00_1416 = 
(BgL_nodez00_bglt)(BgL_ez00_1266); 
BGl_compilezd2exprzd2zzdotnet_exprz00(BgL_ez00_1416, BgL_envz00_1267); 
{ /* ./DotNet/effect.scm 33 */
obj_t BgL_arg3079z00_1418;
BgL_arg3079z00_1418 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_ez00_1416), BgL_envz00_1267); 
return 
BGl__popz00zzdotnet_instrz00(BgL_envz00_1267, BgL_arg3079z00_1418);} }  else 
{ /* ./DotNet/effect.scm 32 */
return 
BGl_compilerzd2ifzd2zzdotnet_compilerz00(BgL_ez00_1266, BgL_envz00_1267, BGl_compilezd2effectzd2envz00zzdotnet_effectz00);} } } } 
}



/* compile-effect-sequence3032 */
obj_t BGl_compilezd2effectzd2sequence3032z00zzdotnet_effectz00(obj_t BgL_envz00_1781, obj_t BgL_ez00_1782, obj_t BgL_envz00_1783)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 28 */
{ 
BgL_sequencez00_bglt BgL_ez00_1260;BgL_envz00_bglt BgL_envz00_1261;
BgL_ez00_1260 = 
(BgL_sequencez00_bglt)(BgL_ez00_1782); 
BgL_envz00_1261 = 
(BgL_envz00_bglt)(BgL_envz00_1783); 
return 
BGl_compilerzd2sequencezd2zzdotnet_compilerz00(BgL_ez00_1260, BgL_envz00_1261, BGl_compilezd2effectzd2envz00zzdotnet_effectz00);} } 
}



/* compile-effect-setq3030 */
obj_t BGl_compilezd2effectzd2setq3030z00zzdotnet_effectz00(obj_t BgL_envz00_1784, obj_t BgL_ez00_1785, obj_t BgL_envz00_1786)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 25 */
{ /* ./DotNet/effect.scm 26 */
BgL_setqz00_bglt BgL_ez00_1818;BgL_envz00_bglt BgL_envz00_1819;
BgL_ez00_1818 = 
(BgL_setqz00_bglt)(BgL_ez00_1785); 
BgL_envz00_1819 = 
(BgL_envz00_bglt)(BgL_envz00_1786); 
return 
BGl_compilerzd2setqzd2zzdotnet_compilerz00(BgL_ez00_1818, BgL_envz00_1819);} } 
}



/* compile-effect-let-var3028 */
obj_t BGl_compilezd2effectzd2letzd2var3028zd2zzdotnet_effectz00(obj_t BgL_envz00_1787, obj_t BgL_ez00_1788, obj_t BgL_envz00_1789)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 22 */
{ 
BgL_letzd2varzd2_bglt BgL_ez00_1248;BgL_envz00_bglt BgL_envz00_1249;
BgL_ez00_1248 = 
(BgL_letzd2varzd2_bglt)(BgL_ez00_1788); 
BgL_envz00_1249 = 
(BgL_envz00_bglt)(BgL_envz00_1789); 
return 
BGl_compilerzd2letzd2zzdotnet_compilerz00(BgL_ez00_1248, BgL_envz00_1249, BGl_compilezd2effectzd2envz00zzdotnet_effectz00);} } 
}



/* compile-effect-var3026 */
obj_t BGl_compilezd2effectzd2var3026z00zzdotnet_effectz00(obj_t BgL_envz00_1790, obj_t BgL_ez00_1791, obj_t BgL_envz00_1792)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 19 */
{ /* ./DotNet/effect.scm 20 */
obj_t BgL_res4002z00_1822;
BgL_res4002z00_1822 = 
CNST_TABLE_REF(((long)0)); 
return BgL_res4002z00_1822;} } 
}



/* compile-effect-atom3024 */
obj_t BGl_compilezd2effectzd2atom3024z00zzdotnet_effectz00(obj_t BgL_envz00_1793, obj_t BgL_ez00_1794, obj_t BgL_envz00_1795)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 16 */
{ /* ./DotNet/effect.scm 17 */
obj_t BgL_res4003z00_1825;
BgL_res4003z00_1825 = 
CNST_TABLE_REF(((long)0)); 
return BgL_res4003z00_1825;} } 
}



/* compile-effect */
BGL_EXPORTED_DEF obj_t BGl_compilezd2effectzd2zzdotnet_effectz00(BgL_nodez00_bglt BgL_ez00_3, BgL_envz00_bglt BgL_envz00_4)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 14 */
{ /* ./DotNet/effect.scm 14 */
obj_t BgL_method3022z00_1657;
{ /* ./DotNet/effect.scm 14 */
BgL_objectz00_bglt BgL_objz00_1658;
BgL_objz00_1658 = 
(BgL_objectz00_bglt)(BgL_ez00_3); 
{ /* ./DotNet/effect.scm 14 */
long BgL_objzd2classzd2numz00_1659;
BgL_objzd2classzd2numz00_1659 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1658); 
{ /* ./DotNet/effect.scm 14 */
obj_t BgL_arg2017z00_1660;
{ /* ./DotNet/effect.scm 14 */
int BgL_auxz00_2187;
BgL_auxz00_2187 = 
(int)(((long)1)); 
BgL_arg2017z00_1660 = 
PROCEDURE_REF(BGl_compilezd2effectzd2envz00zzdotnet_effectz00, BgL_auxz00_2187); } 
{ /* ./DotNet/effect.scm 14 */
int BgL_offsetz00_1663;
BgL_offsetz00_1663 = 
(int)(BgL_objzd2classzd2numz00_1659); 
{ /* ./DotNet/effect.scm 14 */
long BgL_offsetz00_1664;
{ /* ./DotNet/effect.scm 14 */
long BgL_auxz00_2191;
BgL_auxz00_2191 = 
(long)(BgL_offsetz00_1663); 
BgL_offsetz00_1664 = 
(BgL_auxz00_2191-OBJECT_TYPE); } 
{ /* ./DotNet/effect.scm 14 */
long BgL_modz00_1665;
{ /* ./DotNet/effect.scm 14 */
int BgL_arg2028z00_1666;
BgL_arg2028z00_1666 = 
(int)(((long)8)); 
{ /* ./DotNet/effect.scm 14 */
long BgL_n2z00_1674;
BgL_n2z00_1674 = 
(long)(BgL_arg2028z00_1666); 
BgL_modz00_1665 = 
(BgL_offsetz00_1664/BgL_n2z00_1674); } } 
{ /* ./DotNet/effect.scm 14 */
long BgL_restz00_1667;
{ /* ./DotNet/effect.scm 14 */
int BgL_arg2024z00_1668;
BgL_arg2024z00_1668 = 
(int)(((long)8)); 
{ /* ./DotNet/effect.scm 14 */
long BgL_n2z00_1677;
BgL_n2z00_1677 = 
(long)(BgL_arg2024z00_1668); 
BgL_restz00_1667 = 
(BgL_offsetz00_1664%BgL_n2z00_1677); } } 
{ /* ./DotNet/effect.scm 14 */

{ /* ./DotNet/effect.scm 14 */
obj_t BgL_bucketz00_1669;
{ /* ./DotNet/effect.scm 14 */
int BgL_kz00_1679;
BgL_kz00_1679 = 
(int)(BgL_modz00_1665); 
BgL_bucketz00_1669 = 
VECTOR_REF(BgL_arg2017z00_1660,BgL_kz00_1679); } 
{ /* ./DotNet/effect.scm 14 */
int BgL_kz00_1681;
BgL_kz00_1681 = 
(int)(BgL_restz00_1667); 
BgL_method3022z00_1657 = 
VECTOR_REF(BgL_bucketz00_1669,BgL_kz00_1681); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3022z00_1657)(BgL_method3022z00_1657, 
(obj_t)(BgL_ez00_3), 
(obj_t)(BgL_envz00_4), BEOA);} } 
}



/* _compile-effect3713 */
obj_t BGl__compilezd2effect3713zd2zzdotnet_effectz00(obj_t BgL_envz00_1688, obj_t BgL_ez00_1689, obj_t BgL_envz00_1690)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 14 */
return 
BGl_compilezd2effectzd2zzdotnet_effectz00(
(BgL_nodez00_bglt)(BgL_ez00_1689), 
(BgL_envz00_bglt)(BgL_envz00_1690));} 
}



/* compile-effect-default3021 */
obj_t BGl_compilezd2effectzd2default3021z00zzdotnet_effectz00(BgL_nodez00_bglt BgL_ez00_5, BgL_envz00_bglt BgL_envz00_6)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 2 */
{ /* ./DotNet/effect.scm 2 */
obj_t BgL_procz00_1682;obj_t BgL_objectz00_1684;
BgL_procz00_1682 = 
CNST_TABLE_REF(((long)2)); 
BgL_objectz00_1684 = 
(obj_t)(BgL_ez00_5); 
FAILURE(BgL_procz00_1682,BGl_string3983z00zzdotnet_effectz00,BgL_objectz00_1684);} } 
}



/* _compile-effect-default3021 */
obj_t BGl__compilezd2effectzd2default3021z00zzdotnet_effectz00(obj_t BgL_envz00_1796, obj_t BgL_ez00_1797, obj_t BgL_envz00_1798)
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 2 */
return 
BGl_compilezd2effectzd2default3021z00zzdotnet_effectz00(
(BgL_nodez00_bglt)(BgL_ez00_1797), 
(BgL_envz00_bglt)(BgL_envz00_1798));} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzdotnet_effectz00()
{ AN_OBJECT;
{ /* ./DotNet/effect.scm 2 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "dotnet_effect"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "dotnet_effect"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "dotnet_effect"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "dotnet_effect"); 
BGl_modulezd2initializa7ationz75zzobject_classz00(((long)30791), "dotnet_effect"); 
BGl_modulezd2initializa7ationz75zzdotnet_envz00(((long)58889), "dotnet_effect"); 
BGl_modulezd2initializa7ationz75zzdotnet_instrz00(((long)2441), "dotnet_effect"); 
BGl_modulezd2initializa7ationz75zzdotnet_exprz00(((long)54487), "dotnet_effect"); 
return 
BGl_modulezd2initializa7ationz75zzdotnet_compilerz00(((long)49496), "dotnet_effect");} 
}

