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


BGL_IMPORT obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzdotnet_closurez00();
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl_compilezd2dispatchzd2zzdotnet_closurez00(BgL_envz00_bglt, obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
static obj_t BGl_push_carsz00zzdotnet_closurez00(obj_t, bool_t, obj_t);
BGL_IMPORT obj_t BGl_makezd2listzd2zz__r4_pairs_and_lists_6_3z00(int, obj_t);
extern obj_t BGl_envzd2declarezd2zzdotnet_envz00(BgL_envz00_bglt, obj_t, obj_t);
BGL_IMPORT obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
extern obj_t BGl_za2jvmzd2purifyza2zd2zzengine_paramz00;
static obj_t BGl_cnstzd2initzd2zzdotnet_closurez00();
static obj_t BGl_compilezd2labzd2forzd2funcallizd2zzdotnet_closurez00(BgL_envz00_bglt, long, obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzdotnet_closurez00();
static obj_t BGl__dotnetzd2funcallerszd2zzdotnet_closurez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_compilezd2forzd2applyz00zzdotnet_closurez00(BgL_envz00_bglt, obj_t);
static obj_t BGl_compilezd2funizd2zzdotnet_closurez00(long, BgL_envz00_bglt, obj_t, obj_t);
BGL_IMPORT obj_t BGl_2zb2zb2zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_2zd2zd2zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_IMPORT bool_t BGl_2zc3zc3zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_IMPORT bool_t BGl_2zd3zd3zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzdotnet_closurez00(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_modulezd2initializa7ationz75zzbackend_libz00(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 *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
static obj_t BGl_make_consz00zzdotnet_closurez00(obj_t, obj_t);
BGL_IMPORT bool_t BGl_2ze3zd3z30zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_compilezd2applyzd2zzdotnet_closurez00(BgL_envz00_bglt, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t string_append(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_dotnetzd2funcallerszd2zzdotnet_closurez00(BgL_envz00_bglt, obj_t, obj_t);
BGL_IMPORT obj_t BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(long, obj_t);
extern obj_t BGl_envzd2getzd2proceduresz00zzdotnet_envz00(BgL_envz00_bglt);
BGL_IMPORT obj_t bgl_append2(obj_t, obj_t);
static obj_t BGl_compilezd2forzd2funcalliz00zzdotnet_closurez00(BgL_envz00_bglt, long, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzdotnet_closurez00 = BUNSPEC;
BGL_IMPORT obj_t BGl_appendz00zz__r4_pairs_and_lists_6_3z00(obj_t);
extern obj_t BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_bglt, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzdotnet_closurez00();
static obj_t BGl_funcalliz00zzdotnet_closurez00(BgL_envz00_bglt, obj_t, obj_t, long, obj_t);
static obj_t __cnst[ 30 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_dotnetzd2funcallerszd2envz00zzdotnet_closurez00, BgL_bgl__dotnetza7d2funcallersza7d2za7za7dotnet_closureza7004335za7, BGl__dotnetzd2funcallerszd2zzdotnet_closurez00, 0L, 3 );
DEFINE_STRING( BGl_string4307z00zzdotnet_closurez00, BgL_bgl_string4307za700za7za7dotnet_closureza7004336z00, "cdr swap car ((checkcast j_pair)) dup (getfield car) ((checkcast j_pair) (getfield car)) (pop) ((pop) (areturn)) sw2 sw1 a t cons nil invokestatic putstatic getstatic def tableswitch areturn invokespecial pop procindex getfield aload this public method jobject ", 261 );
DEFINE_STRING( BGl_string4306z00zzdotnet_closurez00, BgL_bgl_string4306za700za7za7dotnet_closureza7004337z00, "APPLY-ERROR", 11 );
DEFINE_STRING( BGl_string4305z00zzdotnet_closurez00, BgL_bgl_string4305za700za7za7dotnet_closureza7004338z00, "apply", 5 );
DEFINE_STRING( BGl_string4304z00zzdotnet_closurez00, BgL_bgl_string4304za700za7za7dotnet_closureza7004339z00, "A", 1 );
DEFINE_STRING( BGl_string4303z00zzdotnet_closurez00, BgL_bgl_string4303za700za7za7dotnet_closureza7004340z00, "funcall_error", 13 );
DEFINE_STRING( BGl_string4302z00zzdotnet_closurez00, BgL_bgl_string4302za700za7za7dotnet_closureza7004341z00, "funcall", 7 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzdotnet_closurez00(long BgL_checksumz00_1775, char * BgL_fromz00_1776)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzdotnet_closurez00))
{ 
BGl_requirezd2initializa7ationz75zzdotnet_closurez00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzdotnet_closurez00(); 
BGl_cnstzd2initzd2zzdotnet_closurez00(); 
BGl_importedzd2moduleszd2initz00zzdotnet_closurez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzdotnet_closurez00()
{ AN_OBJECT;
{ /* ./DotNet/closure.scm 2 */
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "dotnet_closure"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "dotnet_closure"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)0), "dotnet_closure"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long)0), "dotnet_closure"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(((long)0), "dotnet_closure"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzdotnet_closurez00()
{ AN_OBJECT;
{ /* ./DotNet/closure.scm 2 */
{ /* ./DotNet/closure.scm 2 */
obj_t BgL_cportz00_1764;
BgL_cportz00_1764 = 
open_input_string(BGl_string4307z00zzdotnet_closurez00); 
{ 
long BgL_iz00_1765;
BgL_iz00_1765 = ((long)29); 
BgL_loopz00_1766:
{ /* ./DotNet/closure.scm 2 */
bool_t BgL_test4309z00_1767;
BgL_test4309z00_1767 = 
(BgL_iz00_1765==((long)-1)); 
if(BgL_test4309z00_1767)
{ /* ./DotNet/closure.scm 2 */
return BUNSPEC;}  else 
{ /* ./DotNet/closure.scm 2 */
{ /* ./DotNet/closure.scm 2 */
obj_t BgL_arg4311z00_1768;
{ /* ./DotNet/closure.scm 2 */
obj_t BgL_list4314z00_1769;
BgL_list4314z00_1769 = 
MAKE_PAIR(BgL_cportz00_1764, BNIL); 
BgL_arg4311z00_1768 = 
BGl_readz00zz__readerz00(BgL_list4314z00_1769); } 
{ /* ./DotNet/closure.scm 2 */
int BgL_auxz00_1793;
BgL_auxz00_1793 = 
(int)(BgL_iz00_1765); 
CNST_TABLE_SET(BgL_auxz00_1793, BgL_arg4311z00_1768); } } 
{ /* ./DotNet/closure.scm 2 */
int BgL_auxz00_1770;
{ /* ./DotNet/closure.scm 2 */
long BgL_auxz00_1796;
BgL_auxz00_1796 = 
(BgL_iz00_1765-((long)1)); 
BgL_auxz00_1770 = 
(int)(BgL_auxz00_1796); } 
{ 
long BgL_iz00_1799;
BgL_iz00_1799 = 
(long)(BgL_auxz00_1770); 
BgL_iz00_1765 = BgL_iz00_1799; 
goto BgL_loopz00_1766;} } } } } } } 
}



/* dotnet-funcallers */
BGL_EXPORTED_DEF obj_t BGl_dotnetzd2funcallerszd2zzdotnet_closurez00(BgL_envz00_bglt BgL_envz00_1, obj_t BgL_mez00_2, obj_t BgL_superz00_3)
{ AN_OBJECT;
{ /* ./DotNet/closure.scm 13 */
{ /* ./DotNet/closure.scm 14 */
obj_t BgL_pz00_808;
BgL_pz00_808 = 
BGl_envzd2getzd2proceduresz00zzdotnet_envz00(BgL_envz00_1); 
{ /* ./DotNet/closure.scm 15 */
obj_t BgL_arg3059z00_809;obj_t BgL_arg3061z00_810;obj_t BgL_arg3062z00_811;obj_t BgL_arg3063z00_812;obj_t BgL_arg3064z00_813;obj_t BgL_arg3065z00_814;
BgL_arg3059z00_809 = 
BGl_funcalliz00zzdotnet_closurez00(BgL_envz00_1, BgL_mez00_2, BgL_superz00_3, ((long)0), BgL_pz00_808); 
BgL_arg3061z00_810 = 
BGl_funcalliz00zzdotnet_closurez00(BgL_envz00_1, BgL_mez00_2, BgL_superz00_3, ((long)1), BgL_pz00_808); 
BgL_arg3062z00_811 = 
BGl_funcalliz00zzdotnet_closurez00(BgL_envz00_1, BgL_mez00_2, BgL_superz00_3, ((long)2), BgL_pz00_808); 
BgL_arg3063z00_812 = 
BGl_funcalliz00zzdotnet_closurez00(BgL_envz00_1, BgL_mez00_2, BgL_superz00_3, ((long)3), BgL_pz00_808); 
BgL_arg3064z00_813 = 
BGl_funcalliz00zzdotnet_closurez00(BgL_envz00_1, BgL_mez00_2, BgL_superz00_3, ((long)4), BgL_pz00_808); 
BgL_arg3065z00_814 = 
BGl_compilezd2applyzd2zzdotnet_closurez00(BgL_envz00_1, BgL_mez00_2, BgL_superz00_3, BgL_pz00_808); 
{ /* ./DotNet/closure.scm 15 */
obj_t BgL_list3067z00_815;
{ /* ./DotNet/closure.scm 15 */
obj_t BgL_arg3069z00_816;
{ /* ./DotNet/closure.scm 15 */
obj_t BgL_arg3072z00_817;
{ /* ./DotNet/closure.scm 15 */
obj_t BgL_arg3075z00_818;
{ /* ./DotNet/closure.scm 15 */
obj_t BgL_arg3078z00_819;
{ /* ./DotNet/closure.scm 15 */
obj_t BgL_arg3081z00_820;
BgL_arg3081z00_820 = 
MAKE_PAIR(BgL_arg3065z00_814, BNIL); 
BgL_arg3078z00_819 = 
MAKE_PAIR(BgL_arg3064z00_813, BgL_arg3081z00_820); } 
BgL_arg3075z00_818 = 
MAKE_PAIR(BgL_arg3063z00_812, BgL_arg3078z00_819); } 
BgL_arg3072z00_817 = 
MAKE_PAIR(BgL_arg3062z00_811, BgL_arg3075z00_818); } 
BgL_arg3069z00_816 = 
MAKE_PAIR(BgL_arg3061z00_810, BgL_arg3072z00_817); } 
BgL_list3067z00_815 = 
MAKE_PAIR(BgL_arg3059z00_809, BgL_arg3069z00_816); } 
return BgL_list3067z00_815;} } } } 
}



/* _dotnet-funcallers */
obj_t BGl__dotnetzd2funcallerszd2zzdotnet_closurez00(obj_t BgL_envz00_1759, obj_t BgL_envz00_1760, obj_t BgL_mez00_1761, obj_t BgL_superz00_1762)
{ AN_OBJECT;
{ /* ./DotNet/closure.scm 13 */
return 
BGl_dotnetzd2funcallerszd2zzdotnet_closurez00(
(BgL_envz00_bglt)(BgL_envz00_1760), BgL_mez00_1761, BgL_superz00_1762);} 
}



/* funcalli */
obj_t BGl_funcalliz00zzdotnet_closurez00(BgL_envz00_bglt BgL_envz00_4, obj_t BgL_mez00_5, obj_t BgL_superz00_6, long BgL_iz00_7, obj_t BgL_procsz00_8)
{ AN_OBJECT;
{ /* ./DotNet/closure.scm 25 */
{ /* ./DotNet/closure.scm 26 */
obj_t BgL_argsz00_821;
{ /* ./DotNet/closure.scm 26 */
obj_t BgL_list3257z00_904;
{ /* ./DotNet/closure.scm 26 */
obj_t BgL_auxz00_1816;
BgL_auxz00_1816 = 
CNST_TABLE_REF(((long)0)); 
BgL_list3257z00_904 = 
MAKE_PAIR(BgL_auxz00_1816, BNIL); } 
BgL_argsz00_821 = 
BGl_makezd2listzd2zz__r4_pairs_and_lists_6_3z00(
(int)(BgL_iz00_7), BgL_list3257z00_904); } 
{ /* ./DotNet/closure.scm 26 */
obj_t BgL_fnamez00_822;
{ /* ./DotNet/closure.scm 27 */
obj_t BgL_arg3252z00_902;
BgL_arg3252z00_902 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_iz00_7, BNIL); 
BgL_fnamez00_822 = 
string_append(BGl_string4302z00zzdotnet_closurez00, BgL_arg3252z00_902); } 
{ /* ./DotNet/closure.scm 27 */
obj_t BgL_fz00_823;
BgL_fz00_823 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BgL_fnamez00_822, BEOA); 
{ /* ./DotNet/closure.scm 28 */
obj_t BgL_enamez00_824;
{ /* ./DotNet/closure.scm 29 */
obj_t BgL_arg3245z00_899;
BgL_arg3245z00_899 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_iz00_7, BNIL); 
BgL_enamez00_824 = 
string_append(BGl_string4303z00zzdotnet_closurez00, BgL_arg3245z00_899); } 
{ /* ./DotNet/closure.scm 29 */
obj_t BgL_ez00_825;
BgL_ez00_825 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BgL_enamez00_824, BEOA); 
{ /* ./DotNet/closure.scm 30 */
obj_t BgL_paramsz00_826;
{ /* ./DotNet/closure.scm 31 */
bool_t BgL_test3223z00_887;
BgL_test3223z00_887 = 
NULLP(BgL_argsz00_821); 
if(BgL_test3223z00_887)
{ /* ./DotNet/closure.scm 31 */
BgL_paramsz00_826 = BNIL; }  else 
{ /* ./DotNet/closure.scm 31 */
obj_t BgL_head3021z00_888;
BgL_head3021z00_888 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l3019z00_889;obj_t BgL_tail3022z00_890;
BgL_l3019z00_889 = BgL_argsz00_821; 
BgL_tail3022z00_890 = BgL_head3021z00_888; 
BgL_map3020z00_891:
{ /* ./DotNet/closure.scm 31 */
bool_t BgL_test3225z00_892;
BgL_test3225z00_892 = 
NULLP(BgL_l3019z00_889); 
if(BgL_test3225z00_892)
{ /* ./DotNet/closure.scm 31 */
BgL_paramsz00_826 = 
CDR(BgL_head3021z00_888); }  else 
{ /* ./DotNet/closure.scm 31 */
obj_t BgL_newtail3023z00_893;
{ /* ./DotNet/closure.scm 31 */
obj_t BgL_arg3233z00_895;
BgL_arg3233z00_895 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string4304z00zzdotnet_closurez00, BEOA); 
BgL_newtail3023z00_893 = 
MAKE_PAIR(BgL_arg3233z00_895, BNIL); } 
SET_CDR(BgL_tail3022z00_890, BgL_newtail3023z00_893); 
{ /* ./DotNet/closure.scm 31 */
obj_t BgL_arg3229z00_894;
BgL_arg3229z00_894 = 
CDR(BgL_l3019z00_889); 
{ 
obj_t BgL_tail3022z00_1841;obj_t BgL_l3019z00_1840;
BgL_l3019z00_1840 = BgL_arg3229z00_894; 
BgL_tail3022z00_1841 = BgL_newtail3023z00_893; 
BgL_tail3022z00_890 = BgL_tail3022z00_1841; 
BgL_l3019z00_889 = BgL_l3019z00_1840; 
goto BgL_map3020z00_891;} } } } } } } 
{ /* ./DotNet/closure.scm 31 */

{ /* ./DotNet/closure.scm 32 */
obj_t BgL_arg3092z00_827;
{ /* ./DotNet/closure.scm 32 */
obj_t BgL_arg3095z00_828;obj_t BgL_arg3096z00_829;
BgL_arg3095z00_828 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./DotNet/closure.scm 32 */
obj_t BgL_arg3099z00_830;
{ /* ./DotNet/closure.scm 32 */
obj_t BgL_arg3102z00_831;obj_t BgL_arg3103z00_832;
{ /* ./DotNet/closure.scm 32 */
obj_t BgL_auxz00_1843;
BgL_auxz00_1843 = 
CNST_TABLE_REF(((long)2)); 
BgL_arg3102z00_831 = 
MAKE_PAIR(BgL_auxz00_1843, BNIL); } 
{ /* ./DotNet/closure.scm 32 */
obj_t BgL_arg3107z00_833;obj_t BgL_arg3108z00_834;
BgL_arg3107z00_833 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./DotNet/closure.scm 32 */
obj_t BgL_arg3111z00_835;
BgL_arg3111z00_835 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_argsz00_821, BNIL); 
BgL_arg3108z00_834 = 
MAKE_PAIR(BgL_fnamez00_822, BgL_arg3111z00_835); } 
BgL_arg3103z00_832 = 
MAKE_PAIR(BgL_arg3107z00_833, BgL_arg3108z00_834); } 
BgL_arg3099z00_830 = 
MAKE_PAIR(BgL_arg3102z00_831, BgL_arg3103z00_832); } 
BgL_arg3096z00_829 = 
MAKE_PAIR(BgL_mez00_5, BgL_arg3099z00_830); } 
BgL_arg3092z00_827 = 
MAKE_PAIR(BgL_arg3095z00_828, BgL_arg3096z00_829); } 
BGl_envzd2declarezd2zzdotnet_envz00(BgL_envz00_4, BgL_fz00_823, BgL_arg3092z00_827); } 
{ /* ./DotNet/closure.scm 33 */
obj_t BgL_arg3115z00_836;
{ /* ./DotNet/closure.scm 33 */
obj_t BgL_arg3118z00_837;obj_t BgL_arg3119z00_838;
BgL_arg3118z00_837 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./DotNet/closure.scm 33 */
obj_t BgL_arg3122z00_839;
{ /* ./DotNet/closure.scm 33 */
obj_t BgL_arg3125z00_840;obj_t BgL_arg3126z00_841;
{ /* ./DotNet/closure.scm 33 */
obj_t BgL_auxz00_1855;
BgL_auxz00_1855 = 
CNST_TABLE_REF(((long)2)); 
BgL_arg3125z00_840 = 
MAKE_PAIR(BgL_auxz00_1855, BNIL); } 
{ /* ./DotNet/closure.scm 33 */
obj_t BgL_arg3130z00_842;obj_t BgL_arg3131z00_843;
BgL_arg3130z00_842 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./DotNet/closure.scm 33 */
obj_t BgL_arg3134z00_844;
BgL_arg3134z00_844 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_argsz00_821, BNIL); 
BgL_arg3131z00_843 = 
MAKE_PAIR(BgL_fnamez00_822, BgL_arg3134z00_844); } 
BgL_arg3126z00_841 = 
MAKE_PAIR(BgL_arg3130z00_842, BgL_arg3131z00_843); } 
BgL_arg3122z00_839 = 
MAKE_PAIR(BgL_arg3125z00_840, BgL_arg3126z00_841); } 
BgL_arg3119z00_838 = 
MAKE_PAIR(BgL_superz00_6, BgL_arg3122z00_839); } 
BgL_arg3115z00_836 = 
MAKE_PAIR(BgL_arg3118z00_837, BgL_arg3119z00_838); } 
BGl_envzd2declarezd2zzdotnet_envz00(BgL_envz00_4, BgL_ez00_825, BgL_arg3115z00_836); } 
{ /* ./DotNet/closure.scm 34 */
obj_t BgL_arg3138z00_845;obj_t BgL_arg3139z00_846;
BgL_arg3138z00_845 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./DotNet/closure.scm 34 */
obj_t BgL_arg3142z00_847;
{ /* ./DotNet/closure.scm 34 */
obj_t BgL_arg3145z00_848;obj_t BgL_arg3146z00_849;
{ /* ./DotNet/closure.scm 34 */
obj_t BgL_arg3149z00_850;obj_t BgL_arg3150z00_851;
BgL_arg3149z00_850 = 
CNST_TABLE_REF(((long)3)); 
BgL_arg3150z00_851 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_paramsz00_826, BNIL); 
BgL_arg3145z00_848 = 
MAKE_PAIR(BgL_arg3149z00_850, BgL_arg3150z00_851); } 
{ /* ./DotNet/closure.scm 34 */
obj_t BgL_arg3156z00_853;
{ /* ./DotNet/closure.scm 35 */
obj_t BgL_arg3159z00_854;obj_t BgL_arg3160z00_855;
{ /* ./DotNet/closure.scm 35 */
obj_t BgL_arg3163z00_856;obj_t BgL_arg3164z00_857;
BgL_arg3163z00_856 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./DotNet/closure.scm 35 */
obj_t BgL_auxz00_1871;
BgL_auxz00_1871 = 
CNST_TABLE_REF(((long)3)); 
BgL_arg3164z00_857 = 
MAKE_PAIR(BgL_auxz00_1871, BNIL); } 
BgL_arg3159z00_854 = 
MAKE_PAIR(BgL_arg3163z00_856, BgL_arg3164z00_857); } 
{ /* ./DotNet/closure.scm 36 */
obj_t BgL_arg3168z00_858;obj_t BgL_arg3169z00_859;
{ /* ./DotNet/closure.scm 36 */
bool_t BgL_test3171z00_861;
BgL_test3171z00_861 = 
NULLP(BgL_paramsz00_826); 
if(BgL_test3171z00_861)
{ /* ./DotNet/closure.scm 36 */
BgL_arg3168z00_858 = BNIL; }  else 
{ /* ./DotNet/closure.scm 36 */
obj_t BgL_head3026z00_862;
BgL_head3026z00_862 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l3024z00_863;obj_t BgL_tail3027z00_864;
BgL_l3024z00_863 = BgL_paramsz00_826; 
BgL_tail3027z00_864 = BgL_head3026z00_862; 
BgL_map3025z00_865:
{ /* ./DotNet/closure.scm 36 */
bool_t BgL_test3173z00_866;
BgL_test3173z00_866 = 
NULLP(BgL_l3024z00_863); 
if(BgL_test3173z00_866)
{ /* ./DotNet/closure.scm 36 */
BgL_arg3168z00_858 = 
CDR(BgL_head3026z00_862); }  else 
{ /* ./DotNet/closure.scm 36 */
obj_t BgL_newtail3028z00_867;
{ /* ./DotNet/closure.scm 36 */
obj_t BgL_arg3181z00_869;
{ /* ./DotNet/closure.scm 36 */
obj_t BgL_az00_871;
BgL_az00_871 = 
CAR(BgL_l3024z00_863); 
{ /* ./DotNet/closure.scm 36 */
obj_t BgL_arg3186z00_872;obj_t BgL_arg3187z00_873;
BgL_arg3186z00_872 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg3187z00_873 = 
MAKE_PAIR(BgL_az00_871, BNIL); 
BgL_arg3181z00_869 = 
MAKE_PAIR(BgL_arg3186z00_872, BgL_arg3187z00_873); } } 
BgL_newtail3028z00_867 = 
MAKE_PAIR(BgL_arg3181z00_869, BNIL); } 
SET_CDR(BgL_tail3027z00_864, BgL_newtail3028z00_867); 
{ /* ./DotNet/closure.scm 36 */
obj_t BgL_arg3177z00_868;
BgL_arg3177z00_868 = 
CDR(BgL_l3024z00_863); 
{ 
obj_t BgL_tail3027z00_1889;obj_t BgL_l3024z00_1888;
BgL_l3024z00_1888 = BgL_arg3177z00_868; 
BgL_tail3027z00_1889 = BgL_newtail3028z00_867; 
BgL_tail3027z00_864 = BgL_tail3027z00_1889; 
BgL_l3024z00_863 = BgL_l3024z00_1888; 
goto BgL_map3025z00_865;} } } } } } } 
{ /* ./DotNet/closure.scm 37 */
obj_t BgL_arg3195z00_874;obj_t BgL_arg3196z00_875;
{ /* ./DotNet/closure.scm 37 */
obj_t BgL_arg3199z00_876;obj_t BgL_arg3201z00_877;
BgL_arg3199z00_876 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./DotNet/closure.scm 37 */
obj_t BgL_auxz00_1891;
BgL_auxz00_1891 = 
CNST_TABLE_REF(((long)3)); 
BgL_arg3201z00_877 = 
MAKE_PAIR(BgL_auxz00_1891, BNIL); } 
BgL_arg3195z00_874 = 
MAKE_PAIR(BgL_arg3199z00_876, BgL_arg3201z00_877); } 
{ /* ./DotNet/closure.scm 38 */
obj_t BgL_arg3205z00_878;obj_t BgL_arg3206z00_879;
{ /* ./DotNet/closure.scm 38 */
obj_t BgL_arg3210z00_880;obj_t BgL_arg3211z00_881;
BgL_arg3210z00_880 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./DotNet/closure.scm 38 */
obj_t BgL_arg3214z00_882;
BgL_arg3214z00_882 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_4, 
CNST_TABLE_REF(((long)6))); 
BgL_arg3211z00_881 = 
MAKE_PAIR(BgL_arg3214z00_882, BNIL); } 
BgL_arg3205z00_878 = 
MAKE_PAIR(BgL_arg3210z00_880, BgL_arg3211z00_881); } 
{ /* ./DotNet/closure.scm 39 */
obj_t BgL_arg3219z00_884;
BgL_arg3219z00_884 = 
BGl_compilezd2funizd2zzdotnet_closurez00(BgL_iz00_7, BgL_envz00_4, BgL_procsz00_8, BgL_ez00_825); 
BgL_arg3206z00_879 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3219z00_884, BNIL); } 
BgL_arg3196z00_875 = 
MAKE_PAIR(BgL_arg3205z00_878, BgL_arg3206z00_879); } 
BgL_arg3169z00_859 = 
MAKE_PAIR(BgL_arg3195z00_874, BgL_arg3196z00_875); } 
BgL_arg3160z00_855 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3168z00_858, BgL_arg3169z00_859); } 
BgL_arg3156z00_853 = 
MAKE_PAIR(BgL_arg3159z00_854, BgL_arg3160z00_855); } 
BgL_arg3146z00_849 = 
MAKE_PAIR(BNIL, BgL_arg3156z00_853); } 
BgL_arg3142z00_847 = 
MAKE_PAIR(BgL_arg3145z00_848, BgL_arg3146z00_849); } 
BgL_arg3139z00_846 = 
MAKE_PAIR(BgL_fz00_823, BgL_arg3142z00_847); } 
return 
MAKE_PAIR(BgL_arg3138z00_845, BgL_arg3139z00_846);} } } } } } } } } 
}



/* compile-funi */
obj_t BGl_compilezd2funizd2zzdotnet_closurez00(long BgL_iz00_9, BgL_envz00_bglt BgL_envz00_10, obj_t BgL_funsz00_11, obj_t BgL_errorz00_12)
{ AN_OBJECT;
{ /* ./DotNet/closure.scm 41 */
{ /* ./DotNet/closure.scm 42 */
bool_t BgL_test3259z00_905;
BgL_test3259z00_905 = 
NULLP(BgL_funsz00_11); 
if(BgL_test3259z00_905)
{ /* ./DotNet/closure.scm 43 */
obj_t BgL_arg3261z00_906;obj_t BgL_arg3262z00_907;
{ /* ./DotNet/closure.scm 43 */
obj_t BgL_auxz00_1912;
BgL_auxz00_1912 = 
CNST_TABLE_REF(((long)7)); 
BgL_arg3261z00_906 = 
MAKE_PAIR(BgL_auxz00_1912, BNIL); } 
{ /* ./DotNet/closure.scm 44 */
obj_t BgL_arg3266z00_908;obj_t BgL_arg3267z00_909;
{ /* ./DotNet/closure.scm 44 */
obj_t BgL_arg3270z00_910;obj_t BgL_arg3272z00_911;
BgL_arg3270z00_910 = 
CNST_TABLE_REF(((long)8)); 
BgL_arg3272z00_911 = 
MAKE_PAIR(BgL_errorz00_12, BNIL); 
BgL_arg3266z00_908 = 
MAKE_PAIR(BgL_arg3270z00_910, BgL_arg3272z00_911); } 
{ /* ./DotNet/closure.scm 45 */
obj_t BgL_arg3276z00_912;
{ /* ./DotNet/closure.scm 45 */
obj_t BgL_auxz00_1918;
BgL_auxz00_1918 = 
CNST_TABLE_REF(((long)9)); 
BgL_arg3276z00_912 = 
MAKE_PAIR(BgL_auxz00_1918, BNIL); } 
BgL_arg3267z00_909 = 
MAKE_PAIR(BgL_arg3276z00_912, BNIL); } 
BgL_arg3262z00_907 = 
MAKE_PAIR(BgL_arg3266z00_908, BgL_arg3267z00_909); } 
return 
MAKE_PAIR(BgL_arg3261z00_906, BgL_arg3262z00_907);}  else 
{ /* ./DotNet/closure.scm 46 */
obj_t BgL_labsz00_914;
if(BgL_test3259z00_905)
{ /* ./DotNet/closure.scm 46 */
BgL_labsz00_914 = BNIL; }  else 
{ /* ./DotNet/closure.scm 46 */
obj_t BgL_head3031z00_992;
BgL_head3031z00_992 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l3029z00_993;obj_t BgL_tail3032z00_994;
BgL_l3029z00_993 = BgL_funsz00_11; 
BgL_tail3032z00_994 = BgL_head3031z00_992; 
BgL_map3030z00_995:
{ /* ./DotNet/closure.scm 46 */
bool_t BgL_test3405z00_996;
BgL_test3405z00_996 = 
NULLP(BgL_l3029z00_993); 
if(BgL_test3405z00_996)
{ /* ./DotNet/closure.scm 46 */
BgL_labsz00_914 = 
CDR(BgL_head3031z00_992); }  else 
{ /* ./DotNet/closure.scm 46 */
obj_t BgL_newtail3033z00_997;
{ /* ./DotNet/closure.scm 46 */
obj_t BgL_arg3413z00_999;
BgL_arg3413z00_999 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BEOA); 
BgL_newtail3033z00_997 = 
MAKE_PAIR(BgL_arg3413z00_999, BNIL); } 
SET_CDR(BgL_tail3032z00_994, BgL_newtail3033z00_997); 
{ /* ./DotNet/closure.scm 46 */
obj_t BgL_arg3409z00_998;
BgL_arg3409z00_998 = 
CDR(BgL_l3029z00_993); 
{ 
obj_t BgL_tail3032z00_1935;obj_t BgL_l3029z00_1934;
BgL_l3029z00_1934 = BgL_arg3409z00_998; 
BgL_tail3032z00_1935 = BgL_newtail3033z00_997; 
BgL_tail3032z00_994 = BgL_tail3032z00_1935; 
BgL_l3029z00_993 = BgL_l3029z00_1934; 
goto BgL_map3030z00_995;} } } } } } 
{ /* ./DotNet/closure.scm 49 */
obj_t BgL_arg3281z00_917;obj_t BgL_arg3282z00_918;
{ /* ./DotNet/closure.scm 49 */
obj_t BgL_arg3285z00_919;obj_t BgL_arg3286z00_920;
BgL_arg3285z00_919 = 
CNST_TABLE_REF(((long)10)); 
{ /* ./DotNet/closure.scm 49 */
obj_t BgL_arg3289z00_921;obj_t BgL_arg3290z00_922;
BgL_arg3289z00_921 = 
CNST_TABLE_REF(((long)11)); 
{ /* ./DotNet/closure.scm 49 */
obj_t BgL_arg3294z00_924;
{ /* ./DotNet/closure.scm 49 */
obj_t BgL_arg3297z00_925;
{ /* ./DotNet/closure.scm 49 */
bool_t BgL_test3300z00_929;
BgL_test3300z00_929 = 
NULLP(BgL_funsz00_11); 
if(BgL_test3300z00_929)
{ /* ./DotNet/closure.scm 49 */
BgL_arg3297z00_925 = BNIL; }  else 
{ /* ./DotNet/closure.scm 49 */
obj_t BgL_head3036z00_930;
{ /* ./DotNet/closure.scm 49 */
obj_t BgL_arg3327z00_945;
BgL_arg3327z00_945 = 
BGl_compilezd2labzd2forzd2funcallizd2zzdotnet_closurez00(BgL_envz00_10, BgL_iz00_9, 
CNST_TABLE_REF(((long)11)), 
CAR(BgL_labsz00_914), 
CAR(BgL_funsz00_11)); 
BgL_head3036z00_930 = 
MAKE_PAIR(BgL_arg3327z00_945, BNIL); } 
{ 
obj_t BgL_ll3034z00_931;obj_t BgL_ll3035z00_932;obj_t BgL_tail3037z00_933;
{ /* ./DotNet/closure.scm 49 */
obj_t BgL_arg3302z00_935;obj_t BgL_arg3303z00_936;
BgL_arg3302z00_935 = 
CDR(BgL_funsz00_11); 
BgL_arg3303z00_936 = 
CDR(BgL_labsz00_914); 
BgL_ll3034z00_931 = BgL_arg3302z00_935; 
BgL_ll3035z00_932 = BgL_arg3303z00_936; 
BgL_tail3037z00_933 = BgL_head3036z00_930; 
BgL_map3039z00_934:
{ /* ./DotNet/closure.scm 49 */
bool_t BgL_test3307z00_937;
BgL_test3307z00_937 = 
NULLP(BgL_ll3034z00_931); 
if(BgL_test3307z00_937)
{ /* ./DotNet/closure.scm 49 */
BgL_arg3297z00_925 = BgL_head3036z00_930; }  else 
{ /* ./DotNet/closure.scm 49 */
obj_t BgL_newtail3038z00_938;
{ /* ./DotNet/closure.scm 49 */
obj_t BgL_arg3316z00_941;
BgL_arg3316z00_941 = 
BGl_compilezd2labzd2forzd2funcallizd2zzdotnet_closurez00(BgL_envz00_10, BgL_iz00_9, 
CNST_TABLE_REF(((long)11)), 
CAR(BgL_ll3035z00_932), 
CAR(BgL_ll3034z00_931)); 
BgL_newtail3038z00_938 = 
MAKE_PAIR(BgL_arg3316z00_941, BNIL); } 
SET_CDR(BgL_tail3037z00_933, BgL_newtail3038z00_938); 
{ /* ./DotNet/closure.scm 49 */
obj_t BgL_arg3310z00_939;obj_t BgL_arg3311z00_940;
BgL_arg3310z00_939 = 
CDR(BgL_ll3034z00_931); 
BgL_arg3311z00_940 = 
CDR(BgL_ll3035z00_932); 
{ 
obj_t BgL_tail3037z00_1959;obj_t BgL_ll3035z00_1958;obj_t BgL_ll3034z00_1957;
BgL_ll3034z00_1957 = BgL_arg3310z00_939; 
BgL_ll3035z00_1958 = BgL_arg3311z00_940; 
BgL_tail3037z00_1959 = BgL_newtail3038z00_938; 
BgL_tail3037z00_933 = BgL_tail3037z00_1959; 
BgL_ll3035z00_932 = BgL_ll3035z00_1958; 
BgL_ll3034z00_931 = BgL_ll3034z00_1957; 
goto BgL_map3039z00_934;} } } } } } } } 
BgL_arg3294z00_924 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3297z00_925, BNIL); } 
{ /* ./DotNet/closure.scm 49 */
obj_t BgL_auxz00_1961;
BgL_auxz00_1961 = 
BINT(((long)0)); 
BgL_arg3290z00_922 = 
MAKE_PAIR(BgL_auxz00_1961, BgL_arg3294z00_924); } } 
BgL_arg3286z00_920 = 
MAKE_PAIR(BgL_arg3289z00_921, BgL_arg3290z00_922); } 
BgL_arg3281z00_917 = 
MAKE_PAIR(BgL_arg3285z00_919, BgL_arg3286z00_920); } 
{ /* ./DotNet/closure.scm 50 */
obj_t BgL_arg3338z00_949;obj_t BgL_arg3340z00_950;
{ /* ./DotNet/closure.scm 50 */
obj_t BgL_runner3380z00_973;
{ /* ./DotNet/closure.scm 50 */
bool_t BgL_test3342z00_953;
BgL_test3342z00_953 = 
NULLP(BgL_funsz00_11); 
if(BgL_test3342z00_953)
{ /* ./DotNet/closure.scm 50 */
BgL_runner3380z00_973 = BNIL; }  else 
{ /* ./DotNet/closure.scm 50 */
obj_t BgL_head3042z00_954;
{ /* ./DotNet/closure.scm 50 */
obj_t BgL_arg3370z00_969;
{ /* ./DotNet/closure.scm 50 */
obj_t BgL_arg3374z00_971;obj_t BgL_arg3375z00_972;
BgL_arg3374z00_971 = 
CAR(BgL_funsz00_11); 
BgL_arg3375z00_972 = 
CAR(BgL_labsz00_914); 
BgL_arg3370z00_969 = 
BGl_compilezd2forzd2funcalliz00zzdotnet_closurez00(BgL_envz00_10, BgL_iz00_9, BgL_arg3375z00_972, BgL_arg3374z00_971); } 
BgL_head3042z00_954 = 
MAKE_PAIR(BgL_arg3370z00_969, BNIL); } 
{ 
obj_t BgL_ll3040z00_955;obj_t BgL_ll3041z00_956;obj_t BgL_tail3043z00_957;
{ /* ./DotNet/closure.scm 50 */
obj_t BgL_arg3344z00_959;obj_t BgL_arg3345z00_960;
BgL_arg3344z00_959 = 
CDR(BgL_funsz00_11); 
BgL_arg3345z00_960 = 
CDR(BgL_labsz00_914); 
BgL_ll3040z00_955 = BgL_arg3344z00_959; 
BgL_ll3041z00_956 = BgL_arg3345z00_960; 
BgL_tail3043z00_957 = BgL_head3042z00_954; 
BgL_map3045z00_958:
{ /* ./DotNet/closure.scm 50 */
bool_t BgL_test3349z00_961;
BgL_test3349z00_961 = 
NULLP(BgL_ll3040z00_955); 
if(BgL_test3349z00_961)
{ /* ./DotNet/closure.scm 50 */
BgL_runner3380z00_973 = BgL_head3042z00_954; }  else 
{ /* ./DotNet/closure.scm 50 */
obj_t BgL_newtail3044z00_962;
{ /* ./DotNet/closure.scm 50 */
obj_t BgL_arg3359z00_965;
{ /* ./DotNet/closure.scm 50 */
obj_t BgL_arg3363z00_967;obj_t BgL_arg3364z00_968;
BgL_arg3363z00_967 = 
CAR(BgL_ll3040z00_955); 
BgL_arg3364z00_968 = 
CAR(BgL_ll3041z00_956); 
BgL_arg3359z00_965 = 
BGl_compilezd2forzd2funcalliz00zzdotnet_closurez00(BgL_envz00_10, BgL_iz00_9, BgL_arg3364z00_968, BgL_arg3363z00_967); } 
BgL_newtail3044z00_962 = 
MAKE_PAIR(BgL_arg3359z00_965, BNIL); } 
SET_CDR(BgL_tail3043z00_957, BgL_newtail3044z00_962); 
{ /* ./DotNet/closure.scm 50 */
obj_t BgL_arg3352z00_963;obj_t BgL_arg3354z00_964;
BgL_arg3352z00_963 = 
CDR(BgL_ll3040z00_955); 
BgL_arg3354z00_964 = 
CDR(BgL_ll3041z00_956); 
{ 
obj_t BgL_tail3043z00_1985;obj_t BgL_ll3041z00_1984;obj_t BgL_ll3040z00_1983;
BgL_ll3040z00_1983 = BgL_arg3352z00_963; 
BgL_ll3041z00_1984 = BgL_arg3354z00_964; 
BgL_tail3043z00_1985 = BgL_newtail3044z00_962; 
BgL_tail3043z00_957 = BgL_tail3043z00_1985; 
BgL_ll3041z00_956 = BgL_ll3041z00_1984; 
BgL_ll3040z00_955 = BgL_ll3040z00_1983; 
goto BgL_map3045z00_958;} } } } } } } } 
BgL_arg3338z00_949 = 
BGl_appendz00zz__r4_pairs_and_lists_6_3z00(BgL_runner3380z00_973); } 
{ /* ./DotNet/closure.scm 49 */
obj_t BgL_arg3382z00_974;obj_t BgL_arg3383z00_975;
BgL_arg3382z00_974 = 
CNST_TABLE_REF(((long)11)); 
{ /* ./DotNet/closure.scm 51 */
obj_t BgL_arg3386z00_976;obj_t BgL_arg3387z00_977;
{ /* ./DotNet/closure.scm 51 */
obj_t BgL_arg3390z00_978;obj_t BgL_arg3391z00_979;
BgL_arg3390z00_978 = 
CNST_TABLE_REF(((long)8)); 
BgL_arg3391z00_979 = 
MAKE_PAIR(BgL_errorz00_12, BNIL); 
BgL_arg3386z00_976 = 
MAKE_PAIR(BgL_arg3390z00_978, BgL_arg3391z00_979); } 
{ /* ./DotNet/closure.scm 52 */
obj_t BgL_arg3395z00_980;
{ /* ./DotNet/closure.scm 52 */
obj_t BgL_auxz00_1991;
BgL_auxz00_1991 = 
CNST_TABLE_REF(((long)9)); 
BgL_arg3395z00_980 = 
MAKE_PAIR(BgL_auxz00_1991, BNIL); } 
BgL_arg3387z00_977 = 
MAKE_PAIR(BgL_arg3395z00_980, BNIL); } 
BgL_arg3383z00_975 = 
MAKE_PAIR(BgL_arg3386z00_976, BgL_arg3387z00_977); } 
BgL_arg3340z00_950 = 
MAKE_PAIR(BgL_arg3382z00_974, BgL_arg3383z00_975); } 
BgL_arg3282z00_918 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3338z00_949, BgL_arg3340z00_950); } 
return 
MAKE_PAIR(BgL_arg3281z00_917, BgL_arg3282z00_918);} } } } 
}



/* compile-lab-for-funcalli */
obj_t BGl_compilezd2labzd2forzd2funcallizd2zzdotnet_closurez00(BgL_envz00_bglt BgL_envz00_13, long BgL_iz00_14, obj_t BgL_defz00_15, obj_t BgL_labz00_16, obj_t BgL_slotz00_17)
{ AN_OBJECT;
{ /* ./DotNet/closure.scm 54 */
{ /* ./DotNet/closure.scm 55 */
obj_t BgL_arityz00_1002;
{ /* ./DotNet/closure.scm 55 */
obj_t BgL_auxz00_1999;
BgL_auxz00_1999 = 
CDR(BgL_slotz00_17); 
BgL_arityz00_1002 = 
CDR(BgL_auxz00_1999); } 
if(
NULLP(BgL_arityz00_1002))
{ /* ./DotNet/closure.scm 56 */
if(
(BgL_iz00_14<=((long)1)))
{ /* ./DotNet/closure.scm 57 */
return BgL_labz00_16;}  else 
{ /* ./DotNet/closure.scm 57 */
return BgL_defz00_15;} }  else 
{ /* ./DotNet/closure.scm 58 */
bool_t BgL_testz00_2006;
{ /* ./DotNet/closure.scm 58 */
bool_t BgL_testz00_2007;
{ /* ./DotNet/closure.scm 58 */
bool_t BgL_testz00_2008;
{ /* ./DotNet/closure.scm 58 */
long BgL_auxz00_2009;
BgL_auxz00_2009 = 
(long)CINT(BgL_arityz00_1002); 
BgL_testz00_2008 = 
(BgL_auxz00_2009>=((long)0)); } 
if(BgL_testz00_2008)
{ /* ./DotNet/closure.scm 58 */
long BgL_auxz00_2012;
BgL_auxz00_2012 = 
(long)CINT(BgL_arityz00_1002); 
BgL_testz00_2007 = 
(BgL_auxz00_2012==BgL_iz00_14); }  else 
{ /* ./DotNet/closure.scm 58 */
BgL_testz00_2007 = ((bool_t)0)
; } } 
if(BgL_testz00_2007)
{ /* ./DotNet/closure.scm 58 */
BgL_testz00_2006 = ((bool_t)1)
; }  else 
{ /* ./DotNet/closure.scm 59 */
bool_t BgL_testz00_2015;
{ /* ./DotNet/closure.scm 59 */
long BgL_auxz00_2016;
BgL_auxz00_2016 = 
(long)CINT(BgL_arityz00_1002); 
BgL_testz00_2015 = 
(BgL_auxz00_2016<((long)0)); } 
if(BgL_testz00_2015)
{ /* ./DotNet/closure.scm 59 */
obj_t BgL_auxz00_2019;
{ /* ./DotNet/closure.scm 59 */
long BgL_auxz00_2020;
BgL_auxz00_2020 = 
(((long)-1)-BgL_iz00_14); 
BgL_auxz00_2019 = 
BINT(BgL_auxz00_2020); } 
BgL_testz00_2006 = 
BGl_2ze3zd3z30zz__r4_numbers_6_5z00(BgL_arityz00_1002, BgL_auxz00_2019); }  else 
{ /* ./DotNet/closure.scm 59 */
BgL_testz00_2006 = ((bool_t)0)
; } } } 
if(BgL_testz00_2006)
{ /* ./DotNet/closure.scm 58 */
return BgL_labz00_16;}  else 
{ /* ./DotNet/closure.scm 58 */
return BgL_defz00_15;} } } } 
}



/* compile-for-funcalli */
obj_t BGl_compilezd2forzd2funcalliz00zzdotnet_closurez00(BgL_envz00_bglt BgL_envz00_18, long BgL_iz00_19, obj_t BgL_labz00_20, obj_t BgL_slotz00_21)
{ AN_OBJECT;
{ /* ./DotNet/closure.scm 63 */
{ /* ./DotNet/closure.scm 64 */
obj_t BgL_arityz00_1011;obj_t BgL_namez00_1012;
{ /* ./DotNet/closure.scm 64 */
obj_t BgL_auxz00_2024;
BgL_auxz00_2024 = 
CDR(BgL_slotz00_21); 
BgL_arityz00_1011 = 
CDR(BgL_auxz00_2024); } 
BgL_namez00_1012 = 
CAR(BgL_slotz00_21); 
{ /* ./DotNet/closure.scm 73 */
bool_t BgL_test3438z00_1014;
BgL_test3438z00_1014 = 
NULLP(BgL_arityz00_1011); 
if(BgL_test3438z00_1014)
{ /* ./DotNet/closure.scm 73 */
{ /* ./DotNet/closure.scm 75 */
bool_t BgL_test3439z00_1015;
BgL_test3439z00_1015 = 
(BgL_iz00_19==((long)0)); 
if(BgL_test3439z00_1015)
{ /* ./DotNet/closure.scm 75 */
{ /* ./DotNet/closure.scm 76 */
obj_t BgL_arg3441z00_1016;
{ /* ./DotNet/closure.scm 76 */
obj_t BgL_arg3444z00_1017;obj_t BgL_arg3446z00_1018;
{ /* ./DotNet/closure.scm 76 */
obj_t BgL_auxz00_2032;
BgL_auxz00_2032 = 
CNST_TABLE_REF(((long)7)); 
BgL_arg3444z00_1017 = 
MAKE_PAIR(BgL_auxz00_2032, BNIL); } 
{ /* ./DotNet/closure.scm 77 */
obj_t BgL_arg3450z00_1019;obj_t BgL_arg3451z00_1020;
{ /* ./DotNet/closure.scm 77 */
obj_t BgL_arg3454z00_1021;obj_t BgL_arg3455z00_1022;
BgL_arg3454z00_1021 = 
CNST_TABLE_REF(((long)12)); 
BgL_arg3455z00_1022 = 
MAKE_PAIR(BgL_namez00_1012, BNIL); 
BgL_arg3450z00_1019 = 
MAKE_PAIR(BgL_arg3454z00_1021, BgL_arg3455z00_1022); } 
{ /* ./DotNet/closure.scm 78 */
obj_t BgL_arg3459z00_1023;
{ /* ./DotNet/closure.scm 78 */
obj_t BgL_auxz00_2038;
BgL_auxz00_2038 = 
CNST_TABLE_REF(((long)9)); 
BgL_arg3459z00_1023 = 
MAKE_PAIR(BgL_auxz00_2038, BNIL); } 
BgL_arg3451z00_1020 = 
MAKE_PAIR(BgL_arg3459z00_1023, BNIL); } 
BgL_arg3446z00_1018 = 
MAKE_PAIR(BgL_arg3450z00_1019, BgL_arg3451z00_1020); } 
BgL_arg3441z00_1016 = 
MAKE_PAIR(BgL_arg3444z00_1017, BgL_arg3446z00_1018); } 
return 
MAKE_PAIR(BgL_labz00_20, BgL_arg3441z00_1016);} }  else 
{ /* ./DotNet/closure.scm 79 */
bool_t BgL_test3463z00_1025;
BgL_test3463z00_1025 = 
(BgL_iz00_19==((long)1)); 
if(BgL_test3463z00_1025)
{ /* ./DotNet/closure.scm 79 */
{ /* ./DotNet/closure.scm 80 */
obj_t BgL_arg3465z00_1026;
{ /* ./DotNet/closure.scm 80 */
obj_t BgL_arg3468z00_1027;obj_t BgL_arg3469z00_1028;
{ /* ./DotNet/closure.scm 80 */
obj_t BgL_arg3472z00_1029;obj_t BgL_arg3473z00_1030;
BgL_arg3472z00_1029 = 
CNST_TABLE_REF(((long)13)); 
BgL_arg3473z00_1030 = 
MAKE_PAIR(BgL_namez00_1012, BNIL); 
BgL_arg3468z00_1027 = 
MAKE_PAIR(BgL_arg3472z00_1029, BgL_arg3473z00_1030); } 
{ /* ./DotNet/closure.scm 81 */
obj_t BgL_arg3477z00_1031;
{ /* ./DotNet/closure.scm 81 */
obj_t BgL_auxz00_2050;
BgL_auxz00_2050 = 
CNST_TABLE_REF(((long)9)); 
BgL_arg3477z00_1031 = 
MAKE_PAIR(BgL_auxz00_2050, BNIL); } 
BgL_arg3469z00_1028 = 
MAKE_PAIR(BgL_arg3477z00_1031, BNIL); } 
BgL_arg3465z00_1026 = 
MAKE_PAIR(BgL_arg3468z00_1027, BgL_arg3469z00_1028); } 
return 
MAKE_PAIR(BgL_labz00_20, BgL_arg3465z00_1026);} }  else 
{ /* ./DotNet/closure.scm 79 */
return BNIL;} } } }  else 
{ /* ./DotNet/closure.scm 83 */
bool_t BgL_test3483z00_1033;
{ /* ./DotNet/closure.scm 83 */
long BgL_auxz00_2056;
BgL_auxz00_2056 = 
(long)CINT(BgL_arityz00_1011); 
BgL_test3483z00_1033 = 
(BgL_auxz00_2056>=((long)0)); } 
if(BgL_test3483z00_1033)
{ /* ./DotNet/closure.scm 83 */
{ /* ./DotNet/closure.scm 84 */
bool_t BgL_test3484z00_1034;
{ /* ./DotNet/closure.scm 84 */
long BgL_auxz00_2060;
BgL_auxz00_2060 = 
(long)CINT(BgL_arityz00_1011); 
BgL_test3484z00_1034 = 
(BgL_auxz00_2060==BgL_iz00_19); } 
if(BgL_test3484z00_1034)
{ /* ./DotNet/closure.scm 85 */
obj_t BgL_arg3486z00_1035;
{ /* ./DotNet/closure.scm 85 */
obj_t BgL_arg3489z00_1036;obj_t BgL_arg3490z00_1037;
{ /* ./DotNet/closure.scm 85 */
obj_t BgL_arg3493z00_1038;obj_t BgL_arg3495z00_1039;
BgL_arg3493z00_1038 = 
CNST_TABLE_REF(((long)14)); 
BgL_arg3495z00_1039 = 
MAKE_PAIR(BgL_namez00_1012, BNIL); 
BgL_arg3489z00_1036 = 
MAKE_PAIR(BgL_arg3493z00_1038, BgL_arg3495z00_1039); } 
{ /* ./DotNet/closure.scm 86 */
obj_t BgL_arg3499z00_1040;
{ /* ./DotNet/closure.scm 86 */
obj_t BgL_auxz00_2067;
BgL_auxz00_2067 = 
CNST_TABLE_REF(((long)9)); 
BgL_arg3499z00_1040 = 
MAKE_PAIR(BgL_auxz00_2067, BNIL); } 
BgL_arg3490z00_1037 = 
MAKE_PAIR(BgL_arg3499z00_1040, BNIL); } 
BgL_arg3486z00_1035 = 
MAKE_PAIR(BgL_arg3489z00_1036, BgL_arg3490z00_1037); } 
return 
MAKE_PAIR(BgL_labz00_20, BgL_arg3486z00_1035);}  else 
{ /* ./DotNet/closure.scm 84 */
return BNIL;} } }  else 
{ /* ./DotNet/closure.scm 83 */
{ /* ./DotNet/closure.scm 89 */
bool_t BgL_test3504z00_1042;
{ /* ./DotNet/closure.scm 89 */
obj_t BgL_auxz00_2073;
{ /* ./DotNet/closure.scm 89 */
long BgL_auxz00_2074;
BgL_auxz00_2074 = 
(((long)-1)-BgL_iz00_19); 
BgL_auxz00_2073 = 
BINT(BgL_auxz00_2074); } 
BgL_test3504z00_1042 = 
BGl_2zc3zc3zz__r4_numbers_6_5z00(BgL_arityz00_1011, BgL_auxz00_2073); } 
if(BgL_test3504z00_1042)
{ /* ./DotNet/closure.scm 89 */
return BNIL;}  else 
{ /* ./DotNet/closure.scm 89 */
{ /* ./DotNet/closure.scm 92 */
obj_t BgL_arg3506z00_1043;
{ /* ./DotNet/closure.scm 92 */
obj_t BgL_arg3509z00_1044;obj_t BgL_arg3510z00_1045;
{ /* ./DotNet/closure.scm 92 */
obj_t BgL_arg3513z00_1046;obj_t BgL_arg3514z00_1047;
BgL_arg3513z00_1046 = 
CNST_TABLE_REF(((long)12)); 
{ /* ./DotNet/closure.scm 92 */
obj_t BgL_auxz00_2080;
BgL_auxz00_2080 = 
CNST_TABLE_REF(((long)15)); 
BgL_arg3514z00_1047 = 
MAKE_PAIR(BgL_auxz00_2080, BNIL); } 
BgL_arg3509z00_1044 = 
MAKE_PAIR(BgL_arg3513z00_1046, BgL_arg3514z00_1047); } 
{ /* ./DotNet/closure.scm 93 */
obj_t BgL_arg3518z00_1048;
{ /* ./DotNet/closure.scm 93 */
obj_t BgL_arg3523z00_1050;
BgL_arg3523z00_1050 = 
BGl_2zb2zb2zz__r4_numbers_6_5z00(
BINT(BgL_iz00_19), 
BGl_2zb2zb2zz__r4_numbers_6_5z00(
BINT(((long)1)), BgL_arityz00_1011)); 
BgL_arg3518z00_1048 = 
BGl_make_consz00zzdotnet_closurez00(BgL_namez00_1012, BgL_arg3523z00_1050); } 
BgL_arg3510z00_1045 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3518z00_1048, BNIL); } 
BgL_arg3506z00_1043 = 
MAKE_PAIR(BgL_arg3509z00_1044, BgL_arg3510z00_1045); } 
return 
MAKE_PAIR(BgL_labz00_20, BgL_arg3506z00_1043);} } } } } } } } 
}



/* make_cons */
obj_t BGl_make_consz00zzdotnet_closurez00(obj_t BgL_namez00_1763, obj_t BgL_nz00_1053)
{ AN_OBJECT;
{ /* ./DotNet/closure.scm 71 */
{ /* ./DotNet/closure.scm 66 */
bool_t BgL_test3536z00_1055;
BgL_test3536z00_1055 = 
BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_nz00_1053, 
BINT(((long)0))); 
if(BgL_test3536z00_1055)
{ /* ./DotNet/closure.scm 67 */
obj_t BgL_arg3538z00_1056;obj_t BgL_arg3541z00_1057;
{ /* ./DotNet/closure.scm 67 */
obj_t BgL_arg3544z00_1058;obj_t BgL_arg3545z00_1059;
BgL_arg3544z00_1058 = 
CNST_TABLE_REF(((long)14)); 
BgL_arg3545z00_1059 = 
MAKE_PAIR(BgL_namez00_1763, BNIL); 
BgL_arg3538z00_1056 = 
MAKE_PAIR(BgL_arg3544z00_1058, BgL_arg3545z00_1059); } 
{ /* ./DotNet/closure.scm 68 */
obj_t BgL_arg3549z00_1060;
{ /* ./DotNet/closure.scm 68 */
obj_t BgL_auxz00_2098;
BgL_auxz00_2098 = 
CNST_TABLE_REF(((long)9)); 
BgL_arg3549z00_1060 = 
MAKE_PAIR(BgL_auxz00_2098, BNIL); } 
BgL_arg3541z00_1057 = 
MAKE_PAIR(BgL_arg3549z00_1060, BNIL); } 
return 
MAKE_PAIR(BgL_arg3538z00_1056, BgL_arg3541z00_1057);}  else 
{ /* ./DotNet/closure.scm 66 */
{ /* ./DotNet/closure.scm 70 */
obj_t BgL_arg3554z00_1062;obj_t BgL_arg3556z00_1063;
{ /* ./DotNet/closure.scm 70 */
obj_t BgL_arg3559z00_1064;obj_t BgL_arg3560z00_1065;
BgL_arg3559z00_1064 = 
CNST_TABLE_REF(((long)14)); 
{ /* ./DotNet/closure.scm 70 */
obj_t BgL_auxz00_2104;
BgL_auxz00_2104 = 
CNST_TABLE_REF(((long)16)); 
BgL_arg3560z00_1065 = 
MAKE_PAIR(BgL_auxz00_2104, BNIL); } 
BgL_arg3554z00_1062 = 
MAKE_PAIR(BgL_arg3559z00_1064, BgL_arg3560z00_1065); } 
{ /* ./DotNet/closure.scm 71 */
obj_t BgL_arg3564z00_1066;
{ /* ./DotNet/closure.scm 71 */
obj_t BgL_arg3568z00_1068;
BgL_arg3568z00_1068 = 
BGl_2zd2zd2zz__r4_numbers_6_5z00(BgL_nz00_1053, 
BINT(((long)1))); 
BgL_arg3564z00_1066 = 
BGl_make_consz00zzdotnet_closurez00(BgL_namez00_1763, BgL_arg3568z00_1068); } 
BgL_arg3556z00_1063 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3564z00_1066, BNIL); } 
return 
MAKE_PAIR(BgL_arg3554z00_1062, BgL_arg3556z00_1063);} } } } 
}



/* compile-apply */
obj_t BGl_compilezd2applyzd2zzdotnet_closurez00(BgL_envz00_bglt BgL_envz00_22, obj_t BgL_mez00_23, obj_t BgL_superz00_24, obj_t BgL_procsz00_25)
{ AN_OBJECT;
{ /* ./DotNet/closure.scm 98 */
{ /* ./DotNet/closure.scm 99 */
obj_t BgL_fz00_1070;obj_t BgL_ez00_1071;
BgL_fz00_1070 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string4305z00zzdotnet_closurez00, BEOA); 
BgL_ez00_1071 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BGl_string4306z00zzdotnet_closurez00, BEOA); 
{ /* ./DotNet/closure.scm 100 */
obj_t BgL_arg3575z00_1072;
{ /* ./DotNet/closure.scm 100 */
obj_t BgL_arg3578z00_1073;obj_t BgL_arg3579z00_1074;
BgL_arg3578z00_1073 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./DotNet/closure.scm 100 */
obj_t BgL_arg3582z00_1075;
{ /* ./DotNet/closure.scm 100 */
obj_t BgL_arg3585z00_1076;obj_t BgL_arg3586z00_1077;
{ /* ./DotNet/closure.scm 100 */
obj_t BgL_auxz00_2118;
BgL_auxz00_2118 = 
CNST_TABLE_REF(((long)2)); 
BgL_arg3585z00_1076 = 
MAKE_PAIR(BgL_auxz00_2118, BNIL); } 
{ /* ./DotNet/closure.scm 100 */
obj_t BgL_arg3590z00_1078;obj_t BgL_arg3591z00_1079;
BgL_arg3590z00_1078 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./DotNet/closure.scm 100 */
obj_t BgL_arg3595z00_1081;
{ /* ./DotNet/closure.scm 100 */
obj_t BgL_auxz00_2122;
BgL_auxz00_2122 = 
CNST_TABLE_REF(((long)0)); 
BgL_arg3595z00_1081 = 
MAKE_PAIR(BgL_auxz00_2122, BNIL); } 
BgL_arg3591z00_1079 = 
MAKE_PAIR(BGl_string4305z00zzdotnet_closurez00, BgL_arg3595z00_1081); } 
BgL_arg3586z00_1077 = 
MAKE_PAIR(BgL_arg3590z00_1078, BgL_arg3591z00_1079); } 
BgL_arg3582z00_1075 = 
MAKE_PAIR(BgL_arg3585z00_1076, BgL_arg3586z00_1077); } 
BgL_arg3579z00_1074 = 
MAKE_PAIR(BgL_mez00_23, BgL_arg3582z00_1075); } 
BgL_arg3575z00_1072 = 
MAKE_PAIR(BgL_arg3578z00_1073, BgL_arg3579z00_1074); } 
BGl_envzd2declarezd2zzdotnet_envz00(BgL_envz00_22, BgL_fz00_1070, BgL_arg3575z00_1072); } 
{ /* ./DotNet/closure.scm 101 */
obj_t BgL_arg3599z00_1082;
{ /* ./DotNet/closure.scm 101 */
obj_t BgL_arg3602z00_1083;obj_t BgL_arg3604z00_1084;
BgL_arg3602z00_1083 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./DotNet/closure.scm 101 */
obj_t BgL_arg3607z00_1085;
{ /* ./DotNet/closure.scm 101 */
obj_t BgL_arg3610z00_1086;obj_t BgL_arg3611z00_1087;
{ /* ./DotNet/closure.scm 101 */
obj_t BgL_auxz00_2132;
BgL_auxz00_2132 = 
CNST_TABLE_REF(((long)2)); 
BgL_arg3610z00_1086 = 
MAKE_PAIR(BgL_auxz00_2132, BNIL); } 
{ /* ./DotNet/closure.scm 101 */
obj_t BgL_arg3615z00_1088;obj_t BgL_arg3616z00_1089;
BgL_arg3615z00_1088 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./DotNet/closure.scm 101 */
obj_t BgL_arg3620z00_1091;
{ /* ./DotNet/closure.scm 101 */
obj_t BgL_auxz00_2136;
BgL_auxz00_2136 = 
CNST_TABLE_REF(((long)0)); 
BgL_arg3620z00_1091 = 
MAKE_PAIR(BgL_auxz00_2136, BNIL); } 
BgL_arg3616z00_1089 = 
MAKE_PAIR(BGl_string4305z00zzdotnet_closurez00, BgL_arg3620z00_1091); } 
BgL_arg3611z00_1087 = 
MAKE_PAIR(BgL_arg3615z00_1088, BgL_arg3616z00_1089); } 
BgL_arg3607z00_1085 = 
MAKE_PAIR(BgL_arg3610z00_1086, BgL_arg3611z00_1087); } 
BgL_arg3604z00_1084 = 
MAKE_PAIR(BgL_superz00_24, BgL_arg3607z00_1085); } 
BgL_arg3599z00_1082 = 
MAKE_PAIR(BgL_arg3602z00_1083, BgL_arg3604z00_1084); } 
BGl_envzd2declarezd2zzdotnet_envz00(BgL_envz00_22, BgL_ez00_1071, BgL_arg3599z00_1082); } 
{ /* ./DotNet/closure.scm 103 */
obj_t BgL_arg3624z00_1092;obj_t BgL_arg3625z00_1093;
BgL_arg3624z00_1092 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./DotNet/closure.scm 103 */
obj_t BgL_arg3628z00_1094;
{ /* ./DotNet/closure.scm 103 */
obj_t BgL_arg3631z00_1095;obj_t BgL_arg3632z00_1096;
{ /* ./DotNet/closure.scm 103 */
obj_t BgL_arg3635z00_1097;obj_t BgL_arg3636z00_1098;
BgL_arg3635z00_1097 = 
CNST_TABLE_REF(((long)17)); 
{ /* ./DotNet/closure.scm 103 */
obj_t BgL_auxz00_2147;
BgL_auxz00_2147 = 
CNST_TABLE_REF(((long)18)); 
BgL_arg3636z00_1098 = 
MAKE_PAIR(BgL_auxz00_2147, BNIL); } 
BgL_arg3631z00_1095 = 
MAKE_PAIR(BgL_arg3635z00_1097, BgL_arg3636z00_1098); } 
{ /* ./DotNet/closure.scm 103 */
obj_t BgL_arg3640z00_1099;obj_t BgL_arg3641z00_1100;
{ /* ./DotNet/closure.scm 103 */
obj_t BgL_arg3644z00_1101;obj_t BgL_arg3645z00_1102;
{ /* ./DotNet/closure.scm 103 */
obj_t BgL_auxz00_2153;obj_t BgL_auxz00_2151;
BgL_auxz00_2153 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_2151 = 
CNST_TABLE_REF(((long)19)); 
BgL_arg3644z00_1101 = 
MAKE_PAIR(BgL_auxz00_2151, BgL_auxz00_2153); } 
{ /* ./DotNet/closure.scm 103 */
obj_t BgL_arg3650z00_1103;
{ /* ./DotNet/closure.scm 103 */
obj_t BgL_auxz00_2158;obj_t BgL_auxz00_2156;
BgL_auxz00_2158 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_2156 = 
CNST_TABLE_REF(((long)20)); 
BgL_arg3650z00_1103 = 
MAKE_PAIR(BgL_auxz00_2156, BgL_auxz00_2158); } 
BgL_arg3645z00_1102 = 
MAKE_PAIR(BgL_arg3650z00_1103, BNIL); } 
BgL_arg3640z00_1099 = 
MAKE_PAIR(BgL_arg3644z00_1101, BgL_arg3645z00_1102); } 
{ /* ./DotNet/closure.scm 104 */
obj_t BgL_arg3655z00_1105;obj_t BgL_arg3656z00_1106;
{ /* ./DotNet/closure.scm 104 */
obj_t BgL_arg3659z00_1107;obj_t BgL_arg3660z00_1108;
BgL_arg3659z00_1107 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./DotNet/closure.scm 104 */
obj_t BgL_auxz00_2164;
BgL_auxz00_2164 = 
CNST_TABLE_REF(((long)17)); 
BgL_arg3660z00_1108 = 
MAKE_PAIR(BgL_auxz00_2164, BNIL); } 
BgL_arg3655z00_1105 = 
MAKE_PAIR(BgL_arg3659z00_1107, BgL_arg3660z00_1108); } 
{ /* ./DotNet/closure.scm 105 */
obj_t BgL_arg3664z00_1109;obj_t BgL_arg3665z00_1110;
{ /* ./DotNet/closure.scm 105 */
obj_t BgL_arg3668z00_1111;obj_t BgL_arg3669z00_1112;
BgL_arg3668z00_1111 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./DotNet/closure.scm 105 */
obj_t BgL_auxz00_2169;
BgL_auxz00_2169 = 
CNST_TABLE_REF(((long)18)); 
BgL_arg3669z00_1112 = 
MAKE_PAIR(BgL_auxz00_2169, BNIL); } 
BgL_arg3664z00_1109 = 
MAKE_PAIR(BgL_arg3668z00_1111, BgL_arg3669z00_1112); } 
{ /* ./DotNet/closure.scm 106 */
obj_t BgL_arg3673z00_1113;obj_t BgL_arg3674z00_1114;
{ /* ./DotNet/closure.scm 106 */
obj_t BgL_arg3677z00_1115;obj_t BgL_arg3678z00_1116;
BgL_arg3677z00_1115 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./DotNet/closure.scm 106 */
obj_t BgL_auxz00_2174;
BgL_auxz00_2174 = 
CNST_TABLE_REF(((long)17)); 
BgL_arg3678z00_1116 = 
MAKE_PAIR(BgL_auxz00_2174, BNIL); } 
BgL_arg3673z00_1113 = 
MAKE_PAIR(BgL_arg3677z00_1115, BgL_arg3678z00_1116); } 
{ /* ./DotNet/closure.scm 107 */
obj_t BgL_arg3682z00_1117;obj_t BgL_arg3683z00_1118;
{ /* ./DotNet/closure.scm 107 */
obj_t BgL_arg3686z00_1119;obj_t BgL_arg3687z00_1120;
BgL_arg3686z00_1119 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./DotNet/closure.scm 107 */
obj_t BgL_auxz00_2179;
BgL_auxz00_2179 = 
CNST_TABLE_REF(((long)6)); 
BgL_arg3687z00_1120 = 
MAKE_PAIR(BgL_auxz00_2179, BNIL); } 
BgL_arg3682z00_1117 = 
MAKE_PAIR(BgL_arg3686z00_1119, BgL_arg3687z00_1120); } 
{ /* ./DotNet/closure.scm 108 */
obj_t BgL_arg3691z00_1121;
BgL_arg3691z00_1121 = 
BGl_compilezd2dispatchzd2zzdotnet_closurez00(BgL_envz00_22, BgL_procsz00_25, BgL_ez00_1071); 
BgL_arg3683z00_1118 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3691z00_1121, BNIL); } 
BgL_arg3674z00_1114 = 
MAKE_PAIR(BgL_arg3682z00_1117, BgL_arg3683z00_1118); } 
BgL_arg3665z00_1110 = 
MAKE_PAIR(BgL_arg3673z00_1113, BgL_arg3674z00_1114); } 
BgL_arg3656z00_1106 = 
MAKE_PAIR(BgL_arg3664z00_1109, BgL_arg3665z00_1110); } 
BgL_arg3641z00_1100 = 
MAKE_PAIR(BgL_arg3655z00_1105, BgL_arg3656z00_1106); } 
BgL_arg3632z00_1096 = 
MAKE_PAIR(BgL_arg3640z00_1099, BgL_arg3641z00_1100); } 
BgL_arg3628z00_1094 = 
MAKE_PAIR(BgL_arg3631z00_1095, BgL_arg3632z00_1096); } 
BgL_arg3625z00_1093 = 
MAKE_PAIR(BgL_fz00_1070, BgL_arg3628z00_1094); } 
return 
MAKE_PAIR(BgL_arg3624z00_1092, BgL_arg3625z00_1093);} } } 
}



/* compile-dispatch */
obj_t BGl_compilezd2dispatchzd2zzdotnet_closurez00(BgL_envz00_bglt BgL_envz00_26, obj_t BgL_funsz00_27, obj_t BgL_errorz00_28)
{ AN_OBJECT;
{ /* ./DotNet/closure.scm 110 */
{ /* ./DotNet/closure.scm 111 */
bool_t BgL_test3697z00_1123;
BgL_test3697z00_1123 = 
NULLP(BgL_funsz00_27); 
if(BgL_test3697z00_1123)
{ /* ./DotNet/closure.scm 112 */
obj_t BgL_arg3699z00_1124;obj_t BgL_arg3700z00_1125;
{ /* ./DotNet/closure.scm 112 */
obj_t BgL_auxz00_2195;
BgL_auxz00_2195 = 
CNST_TABLE_REF(((long)7)); 
BgL_arg3699z00_1124 = 
MAKE_PAIR(BgL_auxz00_2195, BNIL); } 
{ /* ./DotNet/closure.scm 113 */
obj_t BgL_arg3704z00_1126;obj_t BgL_arg3705z00_1127;
{ /* ./DotNet/closure.scm 113 */
obj_t BgL_arg3708z00_1128;obj_t BgL_arg3709z00_1129;
BgL_arg3708z00_1128 = 
CNST_TABLE_REF(((long)8)); 
BgL_arg3709z00_1129 = 
MAKE_PAIR(BgL_errorz00_28, BNIL); 
BgL_arg3704z00_1126 = 
MAKE_PAIR(BgL_arg3708z00_1128, BgL_arg3709z00_1129); } 
{ /* ./DotNet/closure.scm 114 */
obj_t BgL_arg3713z00_1130;
{ /* ./DotNet/closure.scm 114 */
obj_t BgL_auxz00_2201;
BgL_auxz00_2201 = 
CNST_TABLE_REF(((long)9)); 
BgL_arg3713z00_1130 = 
MAKE_PAIR(BgL_auxz00_2201, BNIL); } 
BgL_arg3705z00_1127 = 
MAKE_PAIR(BgL_arg3713z00_1130, BNIL); } 
BgL_arg3700z00_1125 = 
MAKE_PAIR(BgL_arg3704z00_1126, BgL_arg3705z00_1127); } 
return 
MAKE_PAIR(BgL_arg3699z00_1124, BgL_arg3700z00_1125);}  else 
{ /* ./DotNet/closure.scm 115 */
obj_t BgL_labsz00_1132;
if(BgL_test3697z00_1123)
{ /* ./DotNet/closure.scm 115 */
BgL_labsz00_1132 = BNIL; }  else 
{ /* ./DotNet/closure.scm 115 */
obj_t BgL_head3049z00_1173;
BgL_head3049z00_1173 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l3047z00_1174;obj_t BgL_tail3050z00_1175;
BgL_l3047z00_1174 = BgL_funsz00_27; 
BgL_tail3050z00_1175 = BgL_head3049z00_1173; 
BgL_map3048z00_1176:
{ /* ./DotNet/closure.scm 115 */
bool_t BgL_test3788z00_1177;
BgL_test3788z00_1177 = 
NULLP(BgL_l3047z00_1174); 
if(BgL_test3788z00_1177)
{ /* ./DotNet/closure.scm 115 */
BgL_labsz00_1132 = 
CDR(BgL_head3049z00_1173); }  else 
{ /* ./DotNet/closure.scm 115 */
obj_t BgL_newtail3051z00_1178;
{ /* ./DotNet/closure.scm 115 */
obj_t BgL_arg3796z00_1180;
BgL_arg3796z00_1180 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BEOA); 
BgL_newtail3051z00_1178 = 
MAKE_PAIR(BgL_arg3796z00_1180, BNIL); } 
SET_CDR(BgL_tail3050z00_1175, BgL_newtail3051z00_1178); 
{ /* ./DotNet/closure.scm 115 */
obj_t BgL_arg3792z00_1179;
BgL_arg3792z00_1179 = 
CDR(BgL_l3047z00_1174); 
{ 
obj_t BgL_tail3050z00_2218;obj_t BgL_l3047z00_2217;
BgL_l3047z00_2217 = BgL_arg3792z00_1179; 
BgL_tail3050z00_2218 = BgL_newtail3051z00_1178; 
BgL_tail3050z00_1175 = BgL_tail3050z00_2218; 
BgL_l3047z00_1174 = BgL_l3047z00_2217; 
goto BgL_map3048z00_1176;} } } } } } 
{ /* ./DotNet/closure.scm 116 */
obj_t BgL_arg3718z00_1133;obj_t BgL_arg3719z00_1134;
{ /* ./DotNet/closure.scm 116 */
obj_t BgL_arg3722z00_1135;obj_t BgL_arg3723z00_1136;
BgL_arg3722z00_1135 = 
CNST_TABLE_REF(((long)10)); 
{ /* ./DotNet/closure.scm 116 */
obj_t BgL_arg3726z00_1137;obj_t BgL_arg3728z00_1138;
BgL_arg3726z00_1137 = 
CNST_TABLE_REF(((long)11)); 
{ /* ./DotNet/closure.scm 116 */
obj_t BgL_arg3732z00_1140;
BgL_arg3732z00_1140 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_labsz00_1132, BNIL); 
{ /* ./DotNet/closure.scm 116 */
obj_t BgL_auxz00_2222;
BgL_auxz00_2222 = 
BINT(((long)0)); 
BgL_arg3728z00_1138 = 
MAKE_PAIR(BgL_auxz00_2222, BgL_arg3732z00_1140); } } 
BgL_arg3723z00_1136 = 
MAKE_PAIR(BgL_arg3726z00_1137, BgL_arg3728z00_1138); } 
BgL_arg3718z00_1133 = 
MAKE_PAIR(BgL_arg3722z00_1135, BgL_arg3723z00_1136); } 
{ /* ./DotNet/closure.scm 117 */
obj_t BgL_arg3736z00_1141;obj_t BgL_arg3737z00_1142;
{ /* ./DotNet/closure.scm 117 */
obj_t BgL_runner3767z00_1162;
{ /* ./DotNet/closure.scm 118 */
bool_t BgL_test3739z00_1145;
BgL_test3739z00_1145 = 
NULLP(BgL_funsz00_27); 
if(BgL_test3739z00_1145)
{ /* ./DotNet/closure.scm 118 */
BgL_runner3767z00_1162 = BNIL; }  else 
{ /* ./DotNet/closure.scm 118 */
obj_t BgL_head3054z00_1146;
BgL_head3054z00_1146 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_ll3052z00_1147;obj_t BgL_ll3053z00_1148;obj_t BgL_tail3055z00_1149;
BgL_ll3052z00_1147 = BgL_funsz00_27; 
BgL_ll3053z00_1148 = BgL_labsz00_1132; 
BgL_tail3055z00_1149 = BgL_head3054z00_1146; 
BgL_map3057z00_1150:
{ /* ./DotNet/closure.scm 118 */
bool_t BgL_test3741z00_1151;
BgL_test3741z00_1151 = 
NULLP(BgL_ll3052z00_1147); 
if(BgL_test3741z00_1151)
{ /* ./DotNet/closure.scm 118 */
BgL_runner3767z00_1162 = 
CDR(BgL_head3054z00_1146); }  else 
{ /* ./DotNet/closure.scm 119 */
obj_t BgL_newtail3056z00_1152;
{ /* ./DotNet/closure.scm 119 */
obj_t BgL_arg3751z00_1155;
{ /* ./DotNet/closure.scm 119 */
obj_t BgL_fz00_1157;obj_t BgL_labelz00_1158;
BgL_fz00_1157 = 
CAR(BgL_ll3052z00_1147); 
BgL_labelz00_1158 = 
CAR(BgL_ll3053z00_1148); 
{ /* ./DotNet/closure.scm 119 */
obj_t BgL_arg3755z00_1159;
{ /* ./DotNet/closure.scm 119 */
obj_t BgL_arg3758z00_1160;
BgL_arg3758z00_1160 = 
BGl_compilezd2forzd2applyz00zzdotnet_closurez00(BgL_envz00_26, BgL_fz00_1157); 
BgL_arg3755z00_1159 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3758z00_1160, BNIL); } 
BgL_arg3751z00_1155 = 
MAKE_PAIR(BgL_labelz00_1158, BgL_arg3755z00_1159); } } 
BgL_newtail3056z00_1152 = 
MAKE_PAIR(BgL_arg3751z00_1155, BNIL); } 
SET_CDR(BgL_tail3055z00_1149, BgL_newtail3056z00_1152); 
{ /* ./DotNet/closure.scm 118 */
obj_t BgL_arg3745z00_1153;obj_t BgL_arg3746z00_1154;
BgL_arg3745z00_1153 = 
CDR(BgL_ll3052z00_1147); 
BgL_arg3746z00_1154 = 
CDR(BgL_ll3053z00_1148); 
{ 
obj_t BgL_tail3055z00_2244;obj_t BgL_ll3053z00_2243;obj_t BgL_ll3052z00_2242;
BgL_ll3052z00_2242 = BgL_arg3745z00_1153; 
BgL_ll3053z00_2243 = BgL_arg3746z00_1154; 
BgL_tail3055z00_2244 = BgL_newtail3056z00_1152; 
BgL_tail3055z00_1149 = BgL_tail3055z00_2244; 
BgL_ll3053z00_1148 = BgL_ll3053z00_2243; 
BgL_ll3052z00_1147 = BgL_ll3052z00_2242; 
goto BgL_map3057z00_1150;} } } } } } } 
BgL_arg3736z00_1141 = 
BGl_appendz00zz__r4_pairs_and_lists_6_3z00(BgL_runner3767z00_1162); } 
{ /* ./DotNet/closure.scm 116 */
obj_t BgL_arg3769z00_1163;obj_t BgL_arg3770z00_1164;
BgL_arg3769z00_1163 = 
CNST_TABLE_REF(((long)11)); 
{ /* ./DotNet/closure.scm 123 */
obj_t BgL_arg3773z00_1165;obj_t BgL_arg3774z00_1166;
{ /* ./DotNet/closure.scm 123 */
obj_t BgL_arg3777z00_1167;obj_t BgL_arg3778z00_1168;
BgL_arg3777z00_1167 = 
CNST_TABLE_REF(((long)8)); 
BgL_arg3778z00_1168 = 
MAKE_PAIR(BgL_errorz00_28, BNIL); 
BgL_arg3773z00_1165 = 
MAKE_PAIR(BgL_arg3777z00_1167, BgL_arg3778z00_1168); } 
{ /* ./DotNet/closure.scm 124 */
obj_t BgL_arg3782z00_1169;
{ /* ./DotNet/closure.scm 124 */
obj_t BgL_auxz00_2250;
BgL_auxz00_2250 = 
CNST_TABLE_REF(((long)9)); 
BgL_arg3782z00_1169 = 
MAKE_PAIR(BgL_auxz00_2250, BNIL); } 
BgL_arg3774z00_1166 = 
MAKE_PAIR(BgL_arg3782z00_1169, BNIL); } 
BgL_arg3770z00_1164 = 
MAKE_PAIR(BgL_arg3773z00_1165, BgL_arg3774z00_1166); } 
BgL_arg3737z00_1142 = 
MAKE_PAIR(BgL_arg3769z00_1163, BgL_arg3770z00_1164); } 
BgL_arg3719z00_1134 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3736z00_1141, BgL_arg3737z00_1142); } 
return 
MAKE_PAIR(BgL_arg3718z00_1133, BgL_arg3719z00_1134);} } } } 
}



/* compile-for-apply */
obj_t BGl_compilezd2forzd2applyz00zzdotnet_closurez00(BgL_envz00_bglt BgL_envz00_29, obj_t BgL_slotz00_30)
{ AN_OBJECT;
{ /* ./DotNet/closure.scm 126 */
{ /* ./DotNet/closure.scm 142 */
obj_t BgL_arityz00_1184;obj_t BgL_namez00_1185;
{ /* ./DotNet/closure.scm 142 */
obj_t BgL_auxz00_2258;
BgL_auxz00_2258 = 
CDR(BgL_slotz00_30); 
BgL_arityz00_1184 = 
CDR(BgL_auxz00_2258); } 
BgL_namez00_1185 = 
CAR(BgL_slotz00_30); 
{ /* ./DotNet/closure.scm 143 */
bool_t BgL_test3805z00_1186;
BgL_test3805z00_1186 = 
NULLP(BgL_arityz00_1184); 
if(BgL_test3805z00_1186)
{ /* ./DotNet/closure.scm 143 */
return 
CNST_TABLE_REF(((long)21));}  else 
{ /* ./DotNet/closure.scm 146 */
obj_t BgL_callz00_1187;
{ /* ./DotNet/closure.scm 146 */
obj_t BgL_arg3833z00_1198;obj_t BgL_arg3834z00_1199;
BgL_arg3833z00_1198 = 
CNST_TABLE_REF(((long)14)); 
BgL_arg3834z00_1199 = 
MAKE_PAIR(BgL_namez00_1185, BNIL); 
BgL_callz00_1187 = 
MAKE_PAIR(BgL_arg3833z00_1198, BgL_arg3834z00_1199); } 
{ /* ./DotNet/closure.scm 147 */
bool_t BgL_test3806z00_1188;
BgL_test3806z00_1188 = 
BGl_2ze3zd3z30zz__r4_numbers_6_5z00(BgL_arityz00_1184, 
BINT(((long)0))); 
if(BgL_test3806z00_1188)
{ /* ./DotNet/closure.scm 148 */
obj_t BgL_arg3808z00_1189;
{ /* ./DotNet/closure.scm 148 */
obj_t BgL_arg3811z00_1190;
{ /* ./DotNet/closure.scm 148 */
obj_t BgL_arg3814z00_1191;
{ /* ./DotNet/closure.scm 148 */
obj_t BgL_auxz00_2271;
BgL_auxz00_2271 = 
CNST_TABLE_REF(((long)9)); 
BgL_arg3814z00_1191 = 
MAKE_PAIR(BgL_auxz00_2271, BNIL); } 
BgL_arg3811z00_1190 = 
MAKE_PAIR(BgL_arg3814z00_1191, BNIL); } 
BgL_arg3808z00_1189 = 
MAKE_PAIR(BgL_callz00_1187, BgL_arg3811z00_1190); } 
return 
BGl_push_carsz00zzdotnet_closurez00(BgL_arityz00_1184, ((bool_t)1), BgL_arg3808z00_1189);}  else 
{ /* ./DotNet/closure.scm 149 */
obj_t BgL_arg3819z00_1193;obj_t BgL_arg3820z00_1194;
BgL_arg3819z00_1193 = 
BGl_2zd2zd2zz__r4_numbers_6_5z00(
BINT(((long)-1)), BgL_arityz00_1184); 
{ /* ./DotNet/closure.scm 149 */
obj_t BgL_arg3824z00_1195;
{ /* ./DotNet/closure.scm 149 */
obj_t BgL_arg3827z00_1196;
{ /* ./DotNet/closure.scm 149 */
obj_t BgL_auxz00_2279;
BgL_auxz00_2279 = 
CNST_TABLE_REF(((long)9)); 
BgL_arg3827z00_1196 = 
MAKE_PAIR(BgL_auxz00_2279, BNIL); } 
BgL_arg3824z00_1195 = 
MAKE_PAIR(BgL_arg3827z00_1196, BNIL); } 
BgL_arg3820z00_1194 = 
MAKE_PAIR(BgL_callz00_1187, BgL_arg3824z00_1195); } 
return 
BGl_push_carsz00zzdotnet_closurez00(BgL_arg3819z00_1193, ((bool_t)0), BgL_arg3820z00_1194);} } } } } } 
}



/* push_cars */
obj_t BGl_push_carsz00zzdotnet_closurez00(obj_t BgL_nz00_1200, bool_t BgL_fixedarityzf3zf3_1201, obj_t BgL_rz00_1202)
{ AN_OBJECT;
{ /* ./DotNet/closure.scm 141 */
{ /* ./DotNet/closure.scm 128 */
bool_t BgL_test3841z00_1204;
BgL_test3841z00_1204 = 
BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_nz00_1200, 
BINT(((long)0))); 
if(BgL_test3841z00_1204)
{ /* ./DotNet/closure.scm 128 */
if(BgL_fixedarityzf3zf3_1201)
{ /* ./DotNet/closure.scm 129 */
obj_t BgL_auxz00_2289;
BgL_auxz00_2289 = 
CNST_TABLE_REF(((long)22)); 
return 
MAKE_PAIR(BgL_auxz00_2289, BgL_rz00_1202);}  else 
{ /* ./DotNet/closure.scm 129 */
return BgL_rz00_1202;} }  else 
{ /* ./DotNet/closure.scm 130 */
bool_t BgL_test3843z00_1205;
if(
BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_nz00_1200, 
BINT(((long)1))))
{ /* ./DotNet/closure.scm 130 */
BgL_test3843z00_1205 = BgL_fixedarityzf3zf3_1201; }  else 
{ /* ./DotNet/closure.scm 130 */
BgL_test3843z00_1205 = ((bool_t)0); } 
if(BgL_test3843z00_1205)
{ /* ./DotNet/closure.scm 130 */
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./DotNet/closure.scm 131 */
return 
bgl_append2(
CNST_TABLE_REF(((long)23)), BgL_rz00_1202);}  else 
{ /* ./DotNet/closure.scm 133 */
obj_t BgL_auxz00_2300;
BgL_auxz00_2300 = 
CNST_TABLE_REF(((long)24)); 
return 
MAKE_PAIR(BgL_auxz00_2300, BgL_rz00_1202);} }  else 
{ /* ./DotNet/closure.scm 135 */
obj_t BgL_arg3847z00_1206;obj_t BgL_arg3848z00_1207;
{ /* ./DotNet/closure.scm 135 */
obj_t BgL_arg3851z00_1208;obj_t BgL_arg3852z00_1209;
{ /* ./DotNet/closure.scm 135 */
obj_t BgL_auxz00_2303;
BgL_auxz00_2303 = 
CNST_TABLE_REF(((long)25)); 
BgL_arg3851z00_1208 = 
MAKE_PAIR(BgL_auxz00_2303, BNIL); } 
{ /* ./DotNet/closure.scm 136 */
obj_t BgL_arg3856z00_1210;obj_t BgL_arg3857z00_1211;
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./DotNet/closure.scm 136 */
BgL_arg3856z00_1210 = 
CNST_TABLE_REF(((long)26)); }  else 
{ /* ./DotNet/closure.scm 136 */
BgL_arg3856z00_1210 = BNIL; } 
{ /* ./DotNet/closure.scm 137 */
obj_t BgL_arg3860z00_1212;obj_t BgL_arg3861z00_1213;
{ /* ./DotNet/closure.scm 137 */
obj_t BgL_arg3864z00_1214;obj_t BgL_arg3865z00_1215;
BgL_arg3864z00_1214 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./DotNet/closure.scm 137 */
obj_t BgL_auxz00_2310;
BgL_auxz00_2310 = 
CNST_TABLE_REF(((long)27)); 
BgL_arg3865z00_1215 = 
MAKE_PAIR(BgL_auxz00_2310, BNIL); } 
BgL_arg3860z00_1212 = 
MAKE_PAIR(BgL_arg3864z00_1214, BgL_arg3865z00_1215); } 
{ /* ./DotNet/closure.scm 138 */
obj_t BgL_arg3869z00_1216;obj_t BgL_arg3870z00_1217;
{ /* ./DotNet/closure.scm 138 */
obj_t BgL_auxz00_2314;
BgL_auxz00_2314 = 
CNST_TABLE_REF(((long)28)); 
BgL_arg3869z00_1216 = 
MAKE_PAIR(BgL_auxz00_2314, BNIL); } 
{ /* ./DotNet/closure.scm 139 */
obj_t BgL_arg3874z00_1218;obj_t BgL_arg3875z00_1219;
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./DotNet/closure.scm 139 */
BgL_arg3874z00_1218 = 
CNST_TABLE_REF(((long)26)); }  else 
{ /* ./DotNet/closure.scm 139 */
BgL_arg3874z00_1218 = BNIL; } 
{ /* ./DotNet/closure.scm 140 */
obj_t BgL_arg3879z00_1220;
{ /* ./DotNet/closure.scm 140 */
obj_t BgL_arg3883z00_1222;obj_t BgL_arg3885z00_1223;
BgL_arg3883z00_1222 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./DotNet/closure.scm 140 */
obj_t BgL_auxz00_2321;
BgL_auxz00_2321 = 
CNST_TABLE_REF(((long)29)); 
BgL_arg3885z00_1223 = 
MAKE_PAIR(BgL_auxz00_2321, BNIL); } 
BgL_arg3879z00_1220 = 
MAKE_PAIR(BgL_arg3883z00_1222, BgL_arg3885z00_1223); } 
BgL_arg3875z00_1219 = 
MAKE_PAIR(BgL_arg3879z00_1220, BNIL); } 
BgL_arg3870z00_1217 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3874z00_1218, BgL_arg3875z00_1219); } 
BgL_arg3861z00_1213 = 
MAKE_PAIR(BgL_arg3869z00_1216, BgL_arg3870z00_1217); } 
BgL_arg3857z00_1211 = 
MAKE_PAIR(BgL_arg3860z00_1212, BgL_arg3861z00_1213); } 
BgL_arg3852z00_1209 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3856z00_1210, BgL_arg3857z00_1211); } 
BgL_arg3847z00_1206 = 
MAKE_PAIR(BgL_arg3851z00_1208, BgL_arg3852z00_1209); } 
{ /* ./DotNet/closure.scm 141 */
obj_t BgL_arg3889z00_1224;
BgL_arg3889z00_1224 = 
BGl_2zd2zd2zz__r4_numbers_6_5z00(BgL_nz00_1200, 
BINT(((long)1))); 
BgL_arg3848z00_1207 = 
BGl_push_carsz00zzdotnet_closurez00(BgL_arg3889z00_1224, BgL_fixedarityzf3zf3_1201, BgL_rz00_1202); } 
return 
bgl_append2(BgL_arg3847z00_1206, BgL_arg3848z00_1207);} } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzdotnet_closurez00()
{ AN_OBJECT;
{ /* ./DotNet/closure.scm 2 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzdotnet_closurez00()
{ AN_OBJECT;
{ /* ./DotNet/closure.scm 2 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "dotnet_closure"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "dotnet_closure"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "dotnet_closure"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "dotnet_closure"); 
BGl_modulezd2initializa7ationz75zzobject_classz00(((long)30791), "dotnet_closure"); 
BGl_modulezd2initializa7ationz75zzbackend_libz00(((long)20030), "dotnet_closure"); 
BGl_modulezd2initializa7ationz75zzdotnet_externz00(((long)11465), "dotnet_closure"); 
BGl_modulezd2initializa7ationz75zzdotnet_envz00(((long)58889), "dotnet_closure"); 
return 
BGl_modulezd2initializa7ationz75zzdotnet_instrz00(((long)2441), "dotnet_closure");} 
}

