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


static obj_t BGl___ddivz00zzdotnet_instrz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__ixorz00zzdotnet_instrz00(BgL_envz00_bglt);
static obj_t BGl_methodzd2initzd2zzdotnet_instrz00();
BGL_EXPORTED_DECL obj_t BGl__iorz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_envzd2codez12zc0zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl___dup5446z00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl___dremz00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl___aload5532z00zzdotnet_instrz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__d2fz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl__d2iz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl__newarrayz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl__iaddz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl__d2lz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl__instanceofz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
BGL_IMPORT obj_t BGl_ppz00zz__ppz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl__dsubz00zzdotnet_instrz00(BgL_envz00_bglt);
static obj_t BGl___aconst_null5442z00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl_pushz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl__invokespecialz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__invokestaticz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t, obj_t);
static obj_t BGl___putstatic5462z00zzdotnet_instrz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__if_icmpz00zzdotnet_instrz00(obj_t, BgL_envz00_bglt, obj_t);
static obj_t BGl___instanceof5520z00zzdotnet_instrz00(obj_t, obj_t, obj_t);
static obj_t BGl___getstatic25460z00zzdotnet_instrz00(obj_t, obj_t, obj_t);
static bool_t BGl_envzd2newzd2labelz12z12zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl__inegz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl__arraylengthz00zzdotnet_instrz00(BgL_envz00_bglt);
static obj_t BGl___return5548z00zzdotnet_instrz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__lxorz00zzdotnet_instrz00(BgL_envz00_bglt);
static obj_t BGl___i2bz00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl___i2dz00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl___handler5552z00zzdotnet_instrz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl___switch5516z00zzdotnet_instrz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl___i2lz00zzdotnet_instrz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__aconst_nullz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl__iandz00zzdotnet_instrz00(BgL_envz00_bglt);
extern obj_t BGl_compilezd2typezd2zzdotnet_envz00(obj_t, BgL_envz00_bglt);
static obj_t BGl___new5518z00zzdotnet_instrz00(obj_t, obj_t, obj_t);
static obj_t BGl___lushrz00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl___astore5534z00zzdotnet_instrz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__imulz00zzdotnet_instrz00(BgL_envz00_bglt);
static obj_t BGl___ixorz00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl__envzd2codez125440zc0zzdotnet_instrz00(obj_t, obj_t, obj_t);
static obj_t BGl___invokestatic5538z00zzdotnet_instrz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl___comment5554z00zzdotnet_instrz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__laddz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl__f2dz00zzdotnet_instrz00(BgL_envz00_bglt);
static obj_t BGl___line5556z00zzdotnet_instrz00(obj_t, obj_t, obj_t);
static obj_t BGl__createzd2stringzd2zzdotnet_instrz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__lorz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl__lnegz00zzdotnet_instrz00(BgL_envz00_bglt);
static obj_t BGl___iaddz00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl___if_dcmp5512z00zzdotnet_instrz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__putfieldz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
BGL_IMPORT obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl___dsubz00zzdotnet_instrz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__aloadz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl__loadz00zzdotnet_instrz00(BgL_envz00_bglt, BgL_localz00_bglt);
static obj_t BGl_cnstzd2initzd2zzdotnet_instrz00();
static obj_t BGl___inegz00zzdotnet_instrz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__landz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_simplezd2typezd2zzdotnet_instrz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl__lmulz00zzdotnet_instrz00(BgL_envz00_bglt);
static obj_t BGl___lxorz00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl___invokespecial5540z00zzdotnet_instrz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__newz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
static obj_t BGl___iandz00zzdotnet_instrz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__iushrz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_IMPORT obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzdotnet_instrz00();
static obj_t BGl___imulz00zzdotnet_instrz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__idivz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_createzd2stringzd2zzdotnet_instrz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__store_namez00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t);
static obj_t BGl___l2dz00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl___laddz00zzdotnet_instrz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__astorez00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl__if_acmpz00zzdotnet_instrz00(obj_t, BgL_envz00_bglt, obj_t);
static obj_t BGl_cpopz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
static obj_t BGl___lnegz00zzdotnet_instrz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__checkcastz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl__load_namez00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__switchz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t);
static obj_t BGl___dotcheckcast5522z00zzdotnet_instrz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__iremz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl__invokevirtualz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t, obj_t);
static obj_t BGl___load5450z00zzdotnet_instrz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__storez00zzdotnet_instrz00(BgL_envz00_bglt, BgL_localz00_bglt);
BGL_EXPORTED_DECL obj_t BGl__i2bz00zzdotnet_instrz00(BgL_envz00_bglt);
static obj_t BGl___invokespecial_init5542z00zzdotnet_instrz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__i2dz00zzdotnet_instrz00(BgL_envz00_bglt);
static obj_t BGl___getstatic5458z00zzdotnet_instrz00(obj_t, obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zzdotnet_instrz00();
BGL_EXPORTED_DECL obj_t BGl__i2lz00zzdotnet_instrz00(BgL_envz00_bglt);
static obj_t BGl___landz00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl___push5444z00zzdotnet_instrz00(obj_t, obj_t, 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__returnz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
BGL_IMPORT bool_t BGl_2ze3ze3zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzdotnet_instrz00(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 *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__ppz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
BGL_EXPORTED_DECL obj_t BGl__athrowz00zzdotnet_instrz00(BgL_envz00_bglt);
static obj_t BGl___lmulz00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl___checkcast5524z00zzdotnet_instrz00(obj_t, obj_t, obj_t);
static obj_t BGl_za2lastzd2lineza2zd2zzdotnet_instrz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl__putstaticz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl__ldivz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl__daddz00zzdotnet_instrz00(BgL_envz00_bglt);
static obj_t BGl___localvar5558z00zzdotnet_instrz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl___arraylength5536z00zzdotnet_instrz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__ifz00zzdotnet_instrz00(obj_t, BgL_envz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl__if_dcmpz00zzdotnet_instrz00(obj_t, BgL_envz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl__ishlz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl__ishrz00zzdotnet_instrz00(BgL_envz00_bglt);
static obj_t BGl___idivz00zzdotnet_instrz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__getstatic2z00zzdotnet_instrz00(BgL_envz00_bglt, BgL_globalz00_bglt);
BGL_EXPORTED_DECL obj_t BGl__dnegz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl__lushrz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl__popz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
BGL_IMPORT obj_t bgl_reverse(obj_t);
static obj_t BGl___l2i5497z00zzdotnet_instrz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__lremz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl__dotcheckcastz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t);
static obj_t BGl___label5504z00zzdotnet_instrz00(obj_t, obj_t, obj_t);
static obj_t BGl___iremz00zzdotnet_instrz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__dmulz00zzdotnet_instrz00(BgL_envz00_bglt);
static obj_t BGl___invokeinterface5546z00zzdotnet_instrz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__simplezd2typezd2zzdotnet_instrz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__invokespecial_initz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t, obj_t);
static obj_t BGl___goto5514z00zzdotnet_instrz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza33683ze3z83zzdotnet_instrz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__isubz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_IMPORT obj_t BGl_memvz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl___putfield5528z00zzdotnet_instrz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__dupz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl__lshlz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl__getfieldz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__lshrz00zzdotnet_instrz00(BgL_envz00_bglt);
static obj_t BGl___ldivz00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl___daddz00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl___iorz00zzdotnet_instrz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__l2dz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl__l2iz00zzdotnet_instrz00(BgL_envz00_bglt);
static obj_t BGl___ishlz00zzdotnet_instrz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__getstaticz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
BGL_IMPORT obj_t display_string(obj_t, obj_t);
static obj_t BGl___ishrz00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl___dnegz00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl___lremz00zzdotnet_instrz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_sortz00zz__r4_vectors_6_8z00(obj_t, obj_t);
static obj_t BGl___d2fz00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl___d2iz00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl___d2lz00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl_za2simplezd2pushzd2instructionsza2z00zzdotnet_instrz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl__pushz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__lsubz00zzdotnet_instrz00(BgL_envz00_bglt);
static obj_t BGl___getfield5526z00zzdotnet_instrz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl___dmulz00zzdotnet_instrz00(obj_t, obj_t);
extern obj_t BGl_getzd2globalzd2namez00zzdotnet_envz00(BgL_envz00_bglt, BgL_globalz00_bglt);
BGL_EXPORTED_DECL obj_t BGl__ddivz00zzdotnet_instrz00(BgL_envz00_bglt);
static obj_t BGl___isubz00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl___store5454z00zzdotnet_instrz00(obj_t, obj_t, obj_t);
static obj_t BGl___if5506z00zzdotnet_instrz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl___lshlz00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl___if_acmp5510z00zzdotnet_instrz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl___lshrz00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl___newarray5530z00zzdotnet_instrz00(obj_t, obj_t, obj_t);
static obj_t BGl___athrow5550z00zzdotnet_instrz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__dremz00zzdotnet_instrz00(BgL_envz00_bglt);
static obj_t BGl_requirezd2initializa7ationz75zzdotnet_instrz00 = BUNSPEC;
static obj_t BGl___pop5448z00zzdotnet_instrz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__commentz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t);
extern obj_t BGl_jlibzd2declarezd2zzdotnet_envz00(BgL_envz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl__gotoz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
static obj_t BGl___f2dz00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl___invokevirtual5544z00zzdotnet_instrz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl___if_icmp5508z00zzdotnet_instrz00(obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__localvarz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_popz00zzdotnet_instrz00(BgL_envz00_bglt);
BGL_EXPORTED_DECL obj_t BGl__linez00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
static obj_t BGl___load_name5452z00zzdotnet_instrz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl___lorz00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzdotnet_instrz00();
BGL_EXPORTED_DECL obj_t BGl__labelz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t);
static obj_t BGl___iushrz00zzdotnet_instrz00(obj_t, obj_t);
static obj_t BGl___lsubz00zzdotnet_instrz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__invokeinterfacez00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl__handlerz00zzdotnet_instrz00(BgL_envz00_bglt, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl___store_name5456z00zzdotnet_instrz00(obj_t, obj_t, obj_t, obj_t);
static obj_t __cnst[ 165 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_createzd2stringzd2envz00zzdotnet_instrz00, BgL_bgl__createza7d2stringza7d2za7za7dotnet_instrza7005814za7, BGl__createzd2stringzd2zzdotnet_instrz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl__iandzd2envzd2zzdotnet_instrz00, BgL_bgl___iandza700za7za7dotnet_instrza7005815z00, BGl___iandz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__ishlzd2envzd2zzdotnet_instrz00, BgL_bgl___ishlza700za7za7dotnet_instrza7005816z00, BGl___ishlz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__load_namezd2envzd2zzdotnet_instrz00, BgL_bgl___load_name5452za700za7za7dotnet_instrza7005817z00, BGl___load_name5452z00zzdotnet_instrz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl__daddzd2envzd2zzdotnet_instrz00, BgL_bgl___daddza700za7za7dotnet_instrza7005818z00, BGl___daddz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__l2izd2envzd2zzdotnet_instrz00, BgL_bgl___l2i5497za700za7za7dotnet_instrza7005819z00, BGl___l2i5497z00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__getfieldzd2envzd2zzdotnet_instrz00, BgL_bgl___getfield5526za700za7za7dotnet_instrza7005820z00, BGl___getfield5526z00zzdotnet_instrz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl__i2dzd2envzd2zzdotnet_instrz00, BgL_bgl___i2dza700za7za7dotnet_instrza7005821z00, BGl___i2dz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__ixorzd2envzd2zzdotnet_instrz00, BgL_bgl___ixorza700za7za7dotnet_instrza7005822z00, BGl___ixorz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__lushrzd2envzd2zzdotnet_instrz00, BgL_bgl___lushrza700za7za7dotnet_instrza7005823z00, BGl___lushrz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__dotcheckcastzd2envzd2zzdotnet_instrz00, BgL_bgl___dotcheckcast5522za700za7za7dotnet_instrza7005824z00, BGl___dotcheckcast5522z00zzdotnet_instrz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl__lremzd2envzd2zzdotnet_instrz00, BgL_bgl___lremza700za7za7dotnet_instrza7005825z00, BGl___lremz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__if_acmpzd2envzd2zzdotnet_instrz00, BgL_bgl___if_acmp5510za700za7za7dotnet_instrza7005826z00, BGl___if_acmp5510z00zzdotnet_instrz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl__inegzd2envzd2zzdotnet_instrz00, BgL_bgl___inegza700za7za7dotnet_instrza7005827z00, BGl___inegz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__lshrzd2envzd2zzdotnet_instrz00, BgL_bgl___lshrza700za7za7dotnet_instrza7005828z00, BGl___lshrz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__newarrayzd2envzd2zzdotnet_instrz00, BgL_bgl___newarray5530za700za7za7dotnet_instrza7005829z00, BGl___newarray5530z00zzdotnet_instrz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl__f2dzd2envzd2zzdotnet_instrz00, BgL_bgl___f2dza700za7za7dotnet_instrza7005830z00, BGl___f2dz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__ifzd2envzd2zzdotnet_instrz00, BgL_bgl___if5506za700za7za7dotnet_instrza7005831z00, BGl___if5506z00zzdotnet_instrz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_simplezd2typezd2envz00zzdotnet_instrz00, BgL_bgl__simpleza7d2typeza7d2za7za7dotnet_instrza7005832za7, BGl__simplezd2typezd2zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__dremzd2envzd2zzdotnet_instrz00, BgL_bgl___dremza700za7za7dotnet_instrza7005833z00, BGl___dremz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__aloadzd2envzd2zzdotnet_instrz00, BgL_bgl___aload5532za700za7za7dotnet_instrza7005834z00, BGl___aload5532z00zzdotnet_instrz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl__if_icmpzd2envzd2zzdotnet_instrz00, BgL_bgl___if_icmp5508za700za7za7dotnet_instrza7005835z00, BGl___if_icmp5508z00zzdotnet_instrz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl__d2izd2envzd2zzdotnet_instrz00, BgL_bgl___d2iza700za7za7dotnet_instrza7005836z00, BGl___d2iz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__putstaticzd2envzd2zzdotnet_instrz00, BgL_bgl___putstatic5462za700za7za7dotnet_instrza7005837z00, BGl___putstatic5462z00zzdotnet_instrz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl__lsubzd2envzd2zzdotnet_instrz00, BgL_bgl___lsubza700za7za7dotnet_instrza7005838z00, BGl___lsubz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__i2bzd2envzd2zzdotnet_instrz00, BgL_bgl___i2bza700za7za7dotnet_instrza7005839z00, BGl___i2bz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__athrowzd2envzd2zzdotnet_instrz00, BgL_bgl___athrow5550za700za7za7dotnet_instrza7005840z00, BGl___athrow5550z00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__dsubzd2envzd2zzdotnet_instrz00, BgL_bgl___dsubza700za7za7dotnet_instrza7005841z00, BGl___dsubz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__lorzd2envzd2zzdotnet_instrz00, BgL_bgl___lorza700za7za7dotnet_instrza7005842z00, BGl___lorz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__localvarzd2envzd2zzdotnet_instrz00, BgL_bgl___localvar5558za700za7za7dotnet_instrza7005843z00, BGl___localvar5558z00zzdotnet_instrz00, 0L, 6 );
DEFINE_EXPORT_PROCEDURE( BGl__i2lzd2envzd2zzdotnet_instrz00, BgL_bgl___i2lza700za7za7dotnet_instrza7005844z00, BGl___i2lz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__invokevirtualzd2envzd2zzdotnet_instrz00, BgL_bgl___invokevirtual5544za700za7za7dotnet_instrza7005845z00, BGl___invokevirtual5544z00zzdotnet_instrz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl__iorzd2envzd2zzdotnet_instrz00, BgL_bgl___iorza700za7za7dotnet_instrza7005846z00, BGl___iorz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__getstatic2zd2envzd2zzdotnet_instrz00, BgL_bgl___getstatic25460za700za7za7dotnet_instrza7005847z00, BGl___getstatic25460z00zzdotnet_instrz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc5780z00zzdotnet_instrz00, BgL_bgl_za7c3anonymousza7a33683za7e3za783za7za7dotnet_instrza7005848za7, BGl_zc3anonymousza33683ze3z83zzdotnet_instrz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl__lmulzd2envzd2zzdotnet_instrz00, BgL_bgl___lmulza700za7za7dotnet_instrza7005849z00, BGl___lmulz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__d2lzd2envzd2zzdotnet_instrz00, BgL_bgl___d2lza700za7za7dotnet_instrza7005850z00, BGl___d2lz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__iaddzd2envzd2zzdotnet_instrz00, BgL_bgl___iaddza700za7za7dotnet_instrza7005851z00, BGl___iaddz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__handlerzd2envzd2zzdotnet_instrz00, BgL_bgl___handler5552za700za7za7dotnet_instrza7005852z00, BGl___handler5552z00zzdotnet_instrz00, 0L, 5 );
DEFINE_EXPORT_PROCEDURE( BGl__popzd2envzd2zzdotnet_instrz00, BgL_bgl___pop5448za700za7za7dotnet_instrza7005853z00, BGl___pop5448z00zzdotnet_instrz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl__dmulzd2envzd2zzdotnet_instrz00, BgL_bgl___dmulza700za7za7dotnet_instrza7005854z00, BGl___dmulz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__checkcastzd2envzd2zzdotnet_instrz00, BgL_bgl___checkcast5524za700za7za7dotnet_instrza7005855z00, BGl___checkcast5524z00zzdotnet_instrz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl__instanceofzd2envzd2zzdotnet_instrz00, BgL_bgl___instanceof5520za700za7za7dotnet_instrza7005856z00, BGl___instanceof5520z00zzdotnet_instrz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl__commentzd2envzd2zzdotnet_instrz00, BgL_bgl___comment5554za700za7za7dotnet_instrza7005857z00, BGl___comment5554z00zzdotnet_instrz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl__iremzd2envzd2zzdotnet_instrz00, BgL_bgl___iremza700za7za7dotnet_instrza7005858z00, BGl___iremz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__if_dcmpzd2envzd2zzdotnet_instrz00, BgL_bgl___if_dcmp5512za700za7za7dotnet_instrza7005859z00, BGl___if_dcmp5512z00zzdotnet_instrz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl__ishrzd2envzd2zzdotnet_instrz00, BgL_bgl___ishrza700za7za7dotnet_instrza7005860z00, BGl___ishrz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__getstaticzd2envzd2zzdotnet_instrz00, BgL_bgl___getstatic5458za700za7za7dotnet_instrza7005861z00, BGl___getstatic5458z00zzdotnet_instrz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl__iushrzd2envzd2zzdotnet_instrz00, BgL_bgl___iushrza700za7za7dotnet_instrza7005862z00, BGl___iushrz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__putfieldzd2envzd2zzdotnet_instrz00, BgL_bgl___putfield5528za700za7za7dotnet_instrza7005863z00, BGl___putfield5528z00zzdotnet_instrz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl__gotozd2envzd2zzdotnet_instrz00, BgL_bgl___goto5514za700za7za7dotnet_instrza7005864z00, BGl___goto5514z00zzdotnet_instrz00, 0L, 2 );
DEFINE_STRING( BGl_string5783z00zzdotnet_instrz00, BgL_bgl_string5783za700za7za7dotnet_instrza7005865z00, "(ad) getbytes line comment handler (athrow) (areturn) (dreturn) (freturn) (lreturn) (ireturn) invokeinterface invokevirtual localvar dup invokespecial invokestatic (arraylength) (aastore) (dastore) (fastore) (lastore) (iastore) (sastore) (castore) (bastore) (aaload) (daload) (faload) (laload) (iaload) (saload) short (caload) char (baload) (boolean byte) anewarray newarray (boolean byte char short int long float double) putfield getfield (void boolean byte char short int long float double jobject) checkcast (void boolean byte char short int long float double) instanceof new lookupswitch if_dcmp if_dcmplt if_dcmpgt if_dcmple if_dcmpge if_dcmpne if_dcmpeq if_acmp if_acmpne if_acmpeq if_icmp if_icmplt if_icmpgt if_icmple if_icmpge if_icmpne if_icmpeq if iflt lt ifgt gt ifle le ifge ge ifne ne ifeq eq (f2d) (d2f) (d2l) (d2i) (l2d) (l2i) (i2d) (i2b) (i2l) (dneg) (drem) (ddiv) (dmul) (dsub) (dadd) (lushr) (lshr) (lshl) (lxor) (land) (lor) (lneg) (lrem) (ldiv) (lmul) (lsub) (ladd) (iushr) (ishr) (ishl) (ixor) (iand) "
"(ior) (ineg) (irem) (idiv) (imul) (isub) (iadd) putstatic getstatic astore dstore fstore lstore istore aload dload fload lload iload (pop) (pop2) ok (dup) _push string (dconst_1) (dconst_0) (fconst_2) (fconst_1) (fconst_0) ldc2_w (lconst_1) (lconst_0) (iconst_5) (iconst_4) (iconst_3) (iconst_2) (iconst_1) (iconst_0) (iconst_m1) ldc sipush bipush (booolean byte char short int) (aconst_null) goto ad double float long int (boolean byte char short int) unknown void (iconst_m1 iconst_0 iconst_1 iconst_2 iconst_3 iconst_4 iconst_5 bipush sipush ldc lconst_0 lconst_1 ldc2_w fconst_0 fconst_1 fconst_2 dconst_0 dconst_1 ldc2_w aconst_null aload iload lload dload fload getstatic) ", 1703 );
DEFINE_STRING( BGl_string5782z00zzdotnet_instrz00, BgL_bgl_string5782za700za7za7dotnet_instrza7005866z00, "type ", 5 );
DEFINE_STRING( BGl_string5781z00zzdotnet_instrz00, BgL_bgl_string5781za700za7za7dotnet_instrza7005867z00, "fail to reach the new instruction for <init> ", 45 );
DEFINE_STRING( BGl_string5779z00zzdotnet_instrz00, BgL_bgl_string5779za700za7za7dotnet_instrza7005868z00, "unknown operation", 17 );
DEFINE_STRING( BGl_string5778z00zzdotnet_instrz00, BgL_bgl_string5778za700za7za7dotnet_instrza7005869z00, "bad type", 8 );
DEFINE_EXPORT_PROCEDURE( BGl__dupzd2envzd2zzdotnet_instrz00, BgL_bgl___dup5446za700za7za7dotnet_instrza7005870z00, BGl___dup5446z00zzdotnet_instrz00, 0L, 1 );
DEFINE_STRING( BGl_string5774z00zzdotnet_instrz00, BgL_bgl_string5774za700za7za7dotnet_instrza7005871z00, "unexpected type in stack", 24 );
DEFINE_STRING( BGl_string5773z00zzdotnet_instrz00, BgL_bgl_string5773za700za7za7dotnet_instrza7005872z00, "is empty", 8 );
DEFINE_STRING( BGl_string5772z00zzdotnet_instrz00, BgL_bgl_string5772za700za7za7dotnet_instrza7005873z00, "stack", 5 );
DEFINE_EXPORT_PROCEDURE( BGl__astorezd2envzd2zzdotnet_instrz00, BgL_bgl___astore5534za700za7za7dotnet_instrza7005874z00, BGl___astore5534z00zzdotnet_instrz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl__ldivzd2envzd2zzdotnet_instrz00, BgL_bgl___ldivza700za7za7dotnet_instrza7005875z00, BGl___ldivz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__isubzd2envzd2zzdotnet_instrz00, BgL_bgl___isubza700za7za7dotnet_instrza7005876z00, BGl___isubz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__labelzd2envzd2zzdotnet_instrz00, BgL_bgl___label5504za700za7za7dotnet_instrza7005877z00, BGl___label5504z00zzdotnet_instrz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl__store_namezd2envzd2zzdotnet_instrz00, BgL_bgl___store_name5456za700za7za7dotnet_instrza7005878z00, BGl___store_name5456z00zzdotnet_instrz00, 0L, 3 );
DEFINE_REAL( BGl_real5775z00zzdotnet_instrz00, BgL_bgl_real5775za700za7za7dotnet_instrza7005879z00, 0.0 );
DEFINE_REAL( BGl_real5776z00zzdotnet_instrz00, BgL_bgl_real5776za700za7za7dotnet_instrza7005880z00, 1.0 );
DEFINE_REAL( BGl_real5777z00zzdotnet_instrz00, BgL_bgl_real5777za700za7za7dotnet_instrza7005881z00, 2.0 );
DEFINE_EXPORT_PROCEDURE( BGl__newzd2envzd2zzdotnet_instrz00, BgL_bgl___new5518za700za7za7dotnet_instrza7005882z00, BGl___new5518z00zzdotnet_instrz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl__landzd2envzd2zzdotnet_instrz00, BgL_bgl___landza700za7za7dotnet_instrza7005883z00, BGl___landz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__lshlzd2envzd2zzdotnet_instrz00, BgL_bgl___lshlza700za7za7dotnet_instrza7005884z00, BGl___lshlz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__ddivzd2envzd2zzdotnet_instrz00, BgL_bgl___ddivza700za7za7dotnet_instrza7005885z00, BGl___ddivz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__lxorzd2envzd2zzdotnet_instrz00, BgL_bgl___lxorza700za7za7dotnet_instrza7005886z00, BGl___lxorz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__lnegzd2envzd2zzdotnet_instrz00, BgL_bgl___lnegza700za7za7dotnet_instrza7005887z00, BGl___lnegz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__invokestaticzd2envzd2zzdotnet_instrz00, BgL_bgl___invokestatic5538za700za7za7dotnet_instrza7005888z00, BGl___invokestatic5538z00zzdotnet_instrz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_envzd2codez12zd2envz12zzdotnet_instrz00, BgL_bgl__envza7d2codeza7125440za7c0za7za7dotnet_instrza7005889z00, BGl__envzd2codez125440zc0zzdotnet_instrz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl__invokespecial_initzd2envzd2zzdotnet_instrz00, BgL_bgl___invokespecial_init5542za700za7za7dotnet_instrza7005890z00, BGl___invokespecial_init5542z00zzdotnet_instrz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl__dnegzd2envzd2zzdotnet_instrz00, BgL_bgl___dnegza700za7za7dotnet_instrza7005891z00, BGl___dnegz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__imulzd2envzd2zzdotnet_instrz00, BgL_bgl___imulza700za7za7dotnet_instrza7005892z00, BGl___imulz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__pushzd2envzd2zzdotnet_instrz00, BgL_bgl___push5444za700za7za7dotnet_instrza7005893z00, BGl___push5444z00zzdotnet_instrz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl__invokeinterfacezd2envzd2zzdotnet_instrz00, BgL_bgl___invokeinterface5546za700za7za7dotnet_instrza7005894z00, BGl___invokeinterface5546z00zzdotnet_instrz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl__arraylengthzd2envzd2zzdotnet_instrz00, BgL_bgl___arraylength5536za700za7za7dotnet_instrza7005895z00, BGl___arraylength5536z00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__loadzd2envzd2zzdotnet_instrz00, BgL_bgl___load5450za700za7za7dotnet_instrza7005896z00, BGl___load5450z00zzdotnet_instrz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl__switchzd2envzd2zzdotnet_instrz00, BgL_bgl___switch5516za700za7za7dotnet_instrza7005897z00, BGl___switch5516z00zzdotnet_instrz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl__storezd2envzd2zzdotnet_instrz00, BgL_bgl___store5454za700za7za7dotnet_instrza7005898z00, BGl___store5454z00zzdotnet_instrz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl__returnzd2envzd2zzdotnet_instrz00, BgL_bgl___return5548za700za7za7dotnet_instrza7005899z00, BGl___return5548z00zzdotnet_instrz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl__aconst_nullzd2envzd2zzdotnet_instrz00, BgL_bgl___aconst_null5442za700za7za7dotnet_instrza7005900z00, BGl___aconst_null5442z00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__invokespecialzd2envzd2zzdotnet_instrz00, BgL_bgl___invokespecial5540za700za7za7dotnet_instrza7005901z00, BGl___invokespecial5540z00zzdotnet_instrz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl__linezd2envzd2zzdotnet_instrz00, BgL_bgl___line5556za700za7za7dotnet_instrza7005902z00, BGl___line5556z00zzdotnet_instrz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl__d2fzd2envzd2zzdotnet_instrz00, BgL_bgl___d2fza700za7za7dotnet_instrza7005903z00, BGl___d2fz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__laddzd2envzd2zzdotnet_instrz00, BgL_bgl___laddza700za7za7dotnet_instrza7005904z00, BGl___laddz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__idivzd2envzd2zzdotnet_instrz00, BgL_bgl___idivza700za7za7dotnet_instrza7005905z00, BGl___idivz00zzdotnet_instrz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl__l2dzd2envzd2zzdotnet_instrz00, BgL_bgl___l2dza700za7za7dotnet_instrza7005906z00, BGl___l2dz00zzdotnet_instrz00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzdotnet_instrz00(long BgL_checksumz00_3323, char * BgL_fromz00_3324)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzdotnet_instrz00))
{ 
BGl_requirezd2initializa7ationz75zzdotnet_instrz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzdotnet_instrz00(); 
BGl_cnstzd2initzd2zzdotnet_instrz00(); 
BGl_importedzd2moduleszd2initz00zzdotnet_instrz00(); 
BGl_toplevelzd2initzd2zzdotnet_instrz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzdotnet_instrz00()
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 2 */
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "dotnet_instr"); 
BGl_modulezd2initializa7ationz75zz__ppz00(((long)0), "dotnet_instr"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "dotnet_instr"); 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)0), "dotnet_instr"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long)0), "dotnet_instr"); 
BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(((long)0), "dotnet_instr"); 
BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long)0), "dotnet_instr"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzdotnet_instrz00()
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 2 */
{ /* ./DotNet/instr.scm 2 */
obj_t BgL_cportz00_3316;
BgL_cportz00_3316 = 
open_input_string(BGl_string5783z00zzdotnet_instrz00); 
{ 
long BgL_iz00_3317;
BgL_iz00_3317 = ((long)164); 
BgL_loopz00_3318:
{ /* ./DotNet/instr.scm 2 */
bool_t BgL_test5785z00_3319;
BgL_test5785z00_3319 = 
(BgL_iz00_3317==((long)-1)); 
if(BgL_test5785z00_3319)
{ /* ./DotNet/instr.scm 2 */
return BUNSPEC;}  else 
{ /* ./DotNet/instr.scm 2 */
{ /* ./DotNet/instr.scm 2 */
obj_t BgL_arg5787z00_3320;
{ /* ./DotNet/instr.scm 2 */
obj_t BgL_list5790z00_3321;
BgL_list5790z00_3321 = 
MAKE_PAIR(BgL_cportz00_3316, BNIL); 
BgL_arg5787z00_3320 = 
BGl_readz00zz__readerz00(BgL_list5790z00_3321); } 
{ /* ./DotNet/instr.scm 2 */
int BgL_auxz00_3344;
BgL_auxz00_3344 = 
(int)(BgL_iz00_3317); 
CNST_TABLE_SET(BgL_auxz00_3344, BgL_arg5787z00_3320); } } 
{ /* ./DotNet/instr.scm 2 */
int BgL_auxz00_3322;
{ /* ./DotNet/instr.scm 2 */
long BgL_auxz00_3347;
BgL_auxz00_3347 = 
(BgL_iz00_3317-((long)1)); 
BgL_auxz00_3322 = 
(int)(BgL_auxz00_3347); } 
{ 
long BgL_iz00_3350;
BgL_iz00_3350 = 
(long)(BgL_auxz00_3322); 
BgL_iz00_3317 = BgL_iz00_3350; 
goto BgL_loopz00_3318;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzdotnet_instrz00()
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 2 */
BGl_za2simplezd2pushzd2instructionsza2z00zzdotnet_instrz00 = 
CNST_TABLE_REF(((long)0)); 
return ( 
BGl_za2lastzd2lineza2zd2zzdotnet_instrz00 = 
BINT(((long)-1)), BUNSPEC) ;} 
}



/* push */
obj_t BGl_pushz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_1, obj_t BgL_typez00_2)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 93 */
{ /* ./DotNet/instr.scm 94 */
bool_t BgL_test3056z00_943;
{ /* ./DotNet/instr.scm 94 */
obj_t BgL_auxz00_3354;
BgL_auxz00_3354 = 
CNST_TABLE_REF(((long)1)); 
BgL_test3056z00_943 = 
(BgL_typez00_2==BgL_auxz00_3354); } 
if(BgL_test3056z00_943)
{ /* ./DotNet/instr.scm 94 */
return BFALSE;}  else 
{ /* ./DotNet/instr.scm 95 */
obj_t BgL_arg3058z00_944;
{ /* ./DotNet/instr.scm 95 */
obj_t BgL_arg3061z00_945;
BgL_arg3061z00_945 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_1))->BgL_stackz00); 
BgL_arg3058z00_944 = 
MAKE_PAIR(BgL_typez00_2, BgL_arg3061z00_945); } 
{ /* ./DotNet/instr.scm 95 */
BgL_envz00_bglt BgL_obj2960z00_2187;obj_t BgL_val2959z00_2188;
BgL_obj2960z00_2187 = BgL_envz00_1; 
BgL_val2959z00_2188 = BgL_arg3058z00_944; 
return 
((((BgL_envz00_bglt)CREF(BgL_obj2960z00_2187))->BgL_stackz00) = ((obj_t)BgL_val2959z00_2188), BUNSPEC);} } } } 
}



/* pop */
obj_t BGl_popz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_3)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 97 */
{ /* ./DotNet/instr.scm 98 */
obj_t BgL_lz00_946;
BgL_lz00_946 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_3))->BgL_stackz00); 
{ /* ./DotNet/instr.scm 99 */
bool_t BgL_test3065z00_947;
BgL_test3065z00_947 = 
NULLP(BgL_lz00_946); 
if(BgL_test3065z00_947)
{ /* ./DotNet/instr.scm 99 */
{ /* ./DotNet/instr.scm 101 */
obj_t BgL_arg3067z00_948;
BgL_arg3067z00_948 = 
bgl_reverse(
(((BgL_envz00_bglt)CREF(BgL_envz00_3))->BgL_codez00)); 
BGl_ppz00zz__ppz00(BgL_arg3067z00_948, BNIL); } 
{ /* ./DotNet/instr.scm 102 */
obj_t BgL_arg3077z00_953;
BgL_arg3077z00_953 = 
bgl_reverse(
(((BgL_envz00_bglt)CREF(BgL_envz00_3))->BgL_codez00)); 
FAILURE(BGl_string5772z00zzdotnet_instrz00,BGl_string5773z00zzdotnet_instrz00,BgL_arg3077z00_953);} }  else 
{ /* ./DotNet/instr.scm 99 */((bool_t)0); } } 
{ /* ./DotNet/instr.scm 103 */
obj_t BgL_arg3085z00_955;
BgL_arg3085z00_955 = 
CDR(BgL_lz00_946); 
{ /* ./DotNet/instr.scm 103 */
BgL_envz00_bglt BgL_obj2960z00_2197;obj_t BgL_val2959z00_2198;
BgL_obj2960z00_2197 = BgL_envz00_3; 
BgL_val2959z00_2198 = BgL_arg3085z00_955; 
((((BgL_envz00_bglt)CREF(BgL_obj2960z00_2197))->BgL_stackz00) = ((obj_t)BgL_val2959z00_2198), BUNSPEC); } } 
return 
CAR(BgL_lz00_946);} } 
}



/* cpop */
obj_t BGl_cpopz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_4, obj_t BgL_tyz00_5)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 106 */
{ /* ./DotNet/instr.scm 107 */
obj_t BgL_rtyz00_956;
BgL_rtyz00_956 = 
BGl_popz00zzdotnet_instrz00(BgL_envz00_4); 
{ /* ./DotNet/instr.scm 108 */
bool_t BgL_test3090z00_957;
if(
(BgL_tyz00_5==BgL_rtyz00_956))
{ /* ./DotNet/instr.scm 108 */
BgL_test3090z00_957 = ((bool_t)1); }  else 
{ /* ./DotNet/instr.scm 108 */
obj_t BgL_auxz00_3376;
BgL_auxz00_3376 = 
CNST_TABLE_REF(((long)2)); 
BgL_test3090z00_957 = 
(BgL_rtyz00_956==BgL_auxz00_3376); } 
if(BgL_test3090z00_957)
{ /* ./DotNet/instr.scm 108 */
return BgL_tyz00_5;}  else 
{ /* ./DotNet/instr.scm 108 */
{ /* ./DotNet/instr.scm 111 */
obj_t BgL_arg3092z00_958;
BgL_arg3092z00_958 = 
bgl_reverse(
(((BgL_envz00_bglt)CREF(BgL_envz00_4))->BgL_codez00)); 
BGl_ppz00zz__ppz00(BgL_arg3092z00_958, BNIL); } 
{ /* ./DotNet/instr.scm 112 */
obj_t BgL_arg3102z00_963;
{ /* ./DotNet/instr.scm 113 */
obj_t BgL_arg3105z00_964;
{ /* ./DotNet/instr.scm 113 */
obj_t BgL_arg3113z00_967;
BgL_arg3113z00_967 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_4))->BgL_stackz00); 
BgL_arg3105z00_964 = 
MAKE_PAIR(BgL_rtyz00_956, BgL_arg3113z00_967); } 
{ /* ./DotNet/instr.scm 113 */
obj_t BgL_list3107z00_965;
{ /* ./DotNet/instr.scm 113 */
obj_t BgL_arg3109z00_966;
BgL_arg3109z00_966 = 
MAKE_PAIR(BgL_arg3105z00_964, BNIL); 
BgL_list3107z00_965 = 
MAKE_PAIR(BgL_tyz00_5, BgL_arg3109z00_966); } 
BgL_arg3102z00_963 = BgL_list3107z00_965; } } 
FAILURE(BGl_string5772z00zzdotnet_instrz00,BGl_string5774z00zzdotnet_instrz00,BgL_arg3102z00_963);} } } } } 
}



/* simple-type */
BGL_EXPORTED_DEF obj_t BGl_simplezd2typezd2zzdotnet_instrz00(obj_t BgL_typez00_6)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 115 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_6, 
CNST_TABLE_REF(((long)1))))
{ /* ./DotNet/instr.scm 116 */
return 
CNST_TABLE_REF(((long)1));}  else 
{ /* ./DotNet/instr.scm 116 */
bool_t BgL_testz00_3392;
{ /* ./DotNet/instr.scm 116 */
obj_t BgL_auxz00_3393;
BgL_auxz00_3393 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_typez00_6, 
CNST_TABLE_REF(((long)3))); 
BgL_testz00_3392 = 
CBOOL(BgL_auxz00_3393); } 
if(BgL_testz00_3392)
{ /* ./DotNet/instr.scm 116 */
return 
CNST_TABLE_REF(((long)4));}  else 
{ /* ./DotNet/instr.scm 116 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_6, 
CNST_TABLE_REF(((long)5))))
{ /* ./DotNet/instr.scm 116 */
return 
CNST_TABLE_REF(((long)5));}  else 
{ /* ./DotNet/instr.scm 116 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_6, 
CNST_TABLE_REF(((long)6))))
{ /* ./DotNet/instr.scm 116 */
return 
CNST_TABLE_REF(((long)6));}  else 
{ /* ./DotNet/instr.scm 116 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_6, 
CNST_TABLE_REF(((long)7))))
{ /* ./DotNet/instr.scm 116 */
return 
CNST_TABLE_REF(((long)7));}  else 
{ /* ./DotNet/instr.scm 116 */
return 
CNST_TABLE_REF(((long)8));} } } } } } 
}



/* _simple-type */
obj_t BGl__simplezd2typezd2zzdotnet_instrz00(obj_t BgL_envz00_3085, obj_t BgL_typez00_3086)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 115 */
return 
BGl_simplezd2typezd2zzdotnet_instrz00(BgL_typez00_3086);} 
}



/* env-code! */
BGL_EXPORTED_DEF obj_t BGl_envzd2codez12zc0zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_7, obj_t BgL_insz00_8)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 124 */
{ /* ./DotNet/instr.scm 125 */
obj_t BgL_arg3131z00_2208;
{ /* ./DotNet/instr.scm 125 */
obj_t BgL_arg3134z00_2209;
BgL_arg3134z00_2209 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_7))->BgL_codez00); 
BgL_arg3131z00_2208 = 
MAKE_PAIR(BgL_insz00_8, BgL_arg3134z00_2209); } 
{ /* ./DotNet/instr.scm 125 */
BgL_envz00_bglt BgL_obj2963z00_2211;obj_t BgL_val2962z00_2212;
BgL_obj2963z00_2211 = BgL_envz00_7; 
BgL_val2962z00_2212 = BgL_arg3131z00_2208; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2211))->BgL_codez00) = ((obj_t)BgL_val2962z00_2212), BUNSPEC); } } 
return BTRUE;} 
}



/* _env-code!5440 */
obj_t BGl__envzd2codez125440zc0zzdotnet_instrz00(obj_t BgL_envz00_3087, obj_t BgL_envz00_3088, obj_t BgL_insz00_3089)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 124 */
return 
BGl_envzd2codez12zc0zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3088), BgL_insz00_3089);} 
}



/* env-new-label! */
bool_t BGl_envzd2newzd2labelz12z12zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_9, obj_t BgL_labelz00_10)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 129 */
{ /* ./DotNet/instr.scm 131 */
obj_t BgL_ezd2102zd2_982;
BgL_ezd2102zd2_982 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_9))->BgL_codez00); 
{ /* ./DotNet/instr.scm 131 */
bool_t BgL_test3137z00_983;
BgL_test3137z00_983 = 
PAIRP(BgL_ezd2102zd2_982); 
if(BgL_test3137z00_983)
{ /* ./DotNet/instr.scm 131 */
obj_t BgL_carzd2107zd2_984;
BgL_carzd2107zd2_984 = 
CAR(BgL_ezd2102zd2_982); 
{ /* ./DotNet/instr.scm 131 */
bool_t BgL_test3138z00_985;
BgL_test3138z00_985 = 
PAIRP(BgL_carzd2107zd2_984); 
if(BgL_test3138z00_985)
{ /* ./DotNet/instr.scm 131 */
obj_t BgL_cdrzd2111zd2_986;
BgL_cdrzd2111zd2_986 = 
CDR(BgL_carzd2107zd2_984); 
{ /* ./DotNet/instr.scm 131 */
bool_t BgL_test3139z00_987;
{ /* ./DotNet/instr.scm 131 */
obj_t BgL_auxz00_3426;obj_t BgL_auxz00_3424;
BgL_auxz00_3426 = 
CNST_TABLE_REF(((long)9)); 
BgL_auxz00_3424 = 
CAR(BgL_carzd2107zd2_984); 
BgL_test3139z00_987 = 
(BgL_auxz00_3424==BgL_auxz00_3426); } 
if(BgL_test3139z00_987)
{ /* ./DotNet/instr.scm 131 */
bool_t BgL_test3140z00_988;
BgL_test3140z00_988 = 
PAIRP(BgL_cdrzd2111zd2_986); 
if(BgL_test3140z00_988)
{ /* ./DotNet/instr.scm 131 */
bool_t BgL_test3141z00_989;
{ /* ./DotNet/instr.scm 131 */
obj_t BgL_auxz00_3432;
BgL_auxz00_3432 = 
CDR(BgL_cdrzd2111zd2_986); 
BgL_test3141z00_989 = 
NULLP(BgL_auxz00_3432); } 
if(BgL_test3141z00_989)
{ /* ./DotNet/instr.scm 131 */
obj_t BgL_arg3143z00_990;obj_t BgL_arg3144z00_991;
BgL_arg3143z00_990 = 
CAR(BgL_cdrzd2111zd2_986); 
BgL_arg3144z00_991 = 
CDR(BgL_ezd2102zd2_982); 
{ /* ./DotNet/instr.scm 131 */
bool_t BgL_test3164z00_2226;
BgL_test3164z00_2226 = 
(BgL_arg3143z00_990==BgL_labelz00_10); 
if(BgL_test3164z00_2226)
{ /* ./DotNet/instr.scm 131 */
BgL_envz00_bglt BgL_obj2963z00_2227;obj_t BgL_val2962z00_2228;
BgL_obj2963z00_2227 = BgL_envz00_9; 
BgL_val2962z00_2228 = BgL_arg3144z00_991; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2227))->BgL_codez00) = ((obj_t)BgL_val2962z00_2228), BUNSPEC); }  else 
{ /* ./DotNet/instr.scm 131 */BFALSE; } } }  else 
{ /* ./DotNet/instr.scm 131 */BFALSE; } }  else 
{ /* ./DotNet/instr.scm 131 */BFALSE; } }  else 
{ /* ./DotNet/instr.scm 131 */BFALSE; } } }  else 
{ /* ./DotNet/instr.scm 131 */BFALSE; } } }  else 
{ /* ./DotNet/instr.scm 131 */BFALSE; } } } 
{ /* ./DotNet/instr.scm 135 */
obj_t BgL_arg3168z00_996;
{ /* ./DotNet/instr.scm 135 */
obj_t BgL_arg3171z00_997;
BgL_arg3171z00_997 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_9))->BgL_codez00); 
BgL_arg3168z00_996 = 
MAKE_PAIR(BgL_labelz00_10, BgL_arg3171z00_997); } 
{ /* ./DotNet/instr.scm 135 */
BgL_envz00_bglt BgL_obj2963z00_2233;obj_t BgL_val2962z00_2234;
BgL_obj2963z00_2233 = BgL_envz00_9; 
BgL_val2962z00_2234 = BgL_arg3168z00_996; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2233))->BgL_codez00) = ((obj_t)BgL_val2962z00_2234), BUNSPEC); } } 
return ((bool_t)1);} 
}



/* _aconst_null */
BGL_EXPORTED_DEF obj_t BGl__aconst_nullz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_11)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 139 */
{ /* ./DotNet/instr.scm 140 */
obj_t BgL_insz00_2236;
BgL_insz00_2236 = 
CNST_TABLE_REF(((long)10)); 
{ /* ./DotNet/instr.scm 140 */
obj_t BgL_arg3131z00_2238;
{ /* ./DotNet/instr.scm 140 */
obj_t BgL_arg3134z00_2239;
BgL_arg3134z00_2239 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_11))->BgL_codez00); 
BgL_arg3131z00_2238 = 
MAKE_PAIR(BgL_insz00_2236, BgL_arg3134z00_2239); } 
{ /* ./DotNet/instr.scm 140 */
BgL_envz00_bglt BgL_obj2963z00_2241;obj_t BgL_val2962z00_2242;
BgL_obj2963z00_2241 = BgL_envz00_11; 
BgL_val2962z00_2242 = BgL_arg3131z00_2238; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2241))->BgL_codez00) = ((obj_t)BgL_val2962z00_2242), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_11, 
CNST_TABLE_REF(((long)8)));} 
}



/* __aconst_null5442 */
obj_t BGl___aconst_null5442z00zzdotnet_instrz00(obj_t BgL_envz00_3090, obj_t BgL_envz00_3091)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 139 */
return 
BGl__aconst_nullz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3091));} 
}



/* _push */
BGL_EXPORTED_DEF obj_t BGl__pushz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_12, obj_t BgL_typez00_13, obj_t BgL_nz00_14)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 143 */
{ /* ./DotNet/instr.scm 145 */
obj_t BgL_arg3177z00_998;
{ /* ./DotNet/instr.scm 145 */
bool_t BgL_test3179z00_1000;
{ /* ./DotNet/instr.scm 145 */
obj_t BgL_auxz00_3452;
BgL_auxz00_3452 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_typez00_13, 
CNST_TABLE_REF(((long)11))); 
BgL_test3179z00_1000 = 
CBOOL(BgL_auxz00_3452); } 
if(BgL_test3179z00_1000)
{ 

{ /* ./DotNet/instr.scm 147 */
bool_t BgL_test3180z00_1003;
BgL_test3180z00_1003 = 
INTEGERP(BgL_nz00_14); 
if(BgL_test3180z00_1003)
{ /* ./DotNet/instr.scm 147 */
switch( 
(long)CINT(BgL_nz00_14)) { case ((long)-1) : 

BgL_arg3177z00_998 = 
CNST_TABLE_REF(((long)15)); break;case ((long)0) : 

BgL_arg3177z00_998 = 
CNST_TABLE_REF(((long)16)); break;case ((long)1) : 

BgL_arg3177z00_998 = 
CNST_TABLE_REF(((long)17)); break;case ((long)2) : 

BgL_arg3177z00_998 = 
CNST_TABLE_REF(((long)18)); break;case ((long)3) : 

BgL_arg3177z00_998 = 
CNST_TABLE_REF(((long)19)); break;case ((long)4) : 

BgL_arg3177z00_998 = 
CNST_TABLE_REF(((long)20)); break;case ((long)5) : 

BgL_arg3177z00_998 = 
CNST_TABLE_REF(((long)21)); break;
default: 
BgL_case_else3023z00_1001:
{ /* ./DotNet/instr.scm 156 */
bool_t BgL_test3184z00_1004;
if(
BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_nz00_14, 
BINT(((long)-129))))
{ /* ./DotNet/instr.scm 156 */
BgL_test3184z00_1004 = 
BGl_2zc3zc3zz__r4_numbers_6_5z00(BgL_nz00_14, 
BINT(((long)128))); }  else 
{ /* ./DotNet/instr.scm 156 */
BgL_test3184z00_1004 = ((bool_t)0); } 
if(BgL_test3184z00_1004)
{ /* ./DotNet/instr.scm 156 */
{ /* ./DotNet/instr.scm 156 */
obj_t BgL_arg3186z00_1005;obj_t BgL_arg3187z00_1006;
BgL_arg3186z00_1005 = 
CNST_TABLE_REF(((long)12)); 
BgL_arg3187z00_1006 = 
MAKE_PAIR(BgL_nz00_14, BNIL); 
BgL_arg3177z00_998 = 
MAKE_PAIR(BgL_arg3186z00_1005, BgL_arg3187z00_1006); } }  else 
{ /* ./DotNet/instr.scm 157 */
bool_t BgL_test3190z00_1007;
if(
BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_nz00_14, 
BINT(((long)-32769))))
{ /* ./DotNet/instr.scm 157 */
BgL_test3190z00_1007 = 
BGl_2zc3zc3zz__r4_numbers_6_5z00(BgL_nz00_14, 
BINT(((long)32768))); }  else 
{ /* ./DotNet/instr.scm 157 */
BgL_test3190z00_1007 = ((bool_t)0); } 
if(BgL_test3190z00_1007)
{ /* ./DotNet/instr.scm 157 */
{ /* ./DotNet/instr.scm 157 */
obj_t BgL_arg3192z00_1008;obj_t BgL_arg3193z00_1009;
BgL_arg3192z00_1008 = 
CNST_TABLE_REF(((long)13)); 
BgL_arg3193z00_1009 = 
MAKE_PAIR(BgL_nz00_14, BNIL); 
BgL_arg3177z00_998 = 
MAKE_PAIR(BgL_arg3192z00_1008, BgL_arg3193z00_1009); } }  else 
{ /* ./DotNet/instr.scm 157 */
{ /* ./DotNet/instr.scm 158 */
obj_t BgL_arg3197z00_1010;obj_t BgL_arg3198z00_1011;
BgL_arg3197z00_1010 = 
CNST_TABLE_REF(((long)14)); 
BgL_arg3198z00_1011 = 
MAKE_PAIR(BgL_nz00_14, BNIL); 
BgL_arg3177z00_998 = 
MAKE_PAIR(BgL_arg3197z00_1010, BgL_arg3198z00_1011); } } } } } }  else 
{ /* ./DotNet/instr.scm 147 */
goto BgL_case_else3023z00_1001;} } }  else 
{ /* ./DotNet/instr.scm 145 */
bool_t BgL_test3207z00_1014;
BgL_test3207z00_1014 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_13, 
CNST_TABLE_REF(((long)5))); 
if(BgL_test3207z00_1014)
{ /* ./DotNet/instr.scm 160 */
bool_t BgL_test3208z00_1015;
BgL_test3208z00_1015 = 
BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_nz00_14, 
BINT(((long)0))); 
if(BgL_test3208z00_1015)
{ /* ./DotNet/instr.scm 160 */
BgL_arg3177z00_998 = 
CNST_TABLE_REF(((long)22)); }  else 
{ /* ./DotNet/instr.scm 161 */
bool_t BgL_test3209z00_1016;
BgL_test3209z00_1016 = 
BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_nz00_14, 
BINT(((long)1))); 
if(BgL_test3209z00_1016)
{ /* ./DotNet/instr.scm 161 */
BgL_arg3177z00_998 = 
CNST_TABLE_REF(((long)23)); }  else 
{ /* ./DotNet/instr.scm 161 */
{ /* ./DotNet/instr.scm 162 */
obj_t BgL_arg3211z00_1017;obj_t BgL_arg3213z00_1018;
BgL_arg3211z00_1017 = 
CNST_TABLE_REF(((long)24)); 
BgL_arg3213z00_1018 = 
MAKE_PAIR(BgL_nz00_14, BNIL); 
BgL_arg3177z00_998 = 
MAKE_PAIR(BgL_arg3211z00_1017, BgL_arg3213z00_1018); } } } }  else 
{ /* ./DotNet/instr.scm 145 */
bool_t BgL_test3218z00_1019;
BgL_test3218z00_1019 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_13, 
CNST_TABLE_REF(((long)6))); 
if(BgL_test3218z00_1019)
{ /* ./DotNet/instr.scm 164 */
bool_t BgL_test3219z00_1020;
BgL_test3219z00_1020 = 
BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_nz00_14, BGl_real5775z00zzdotnet_instrz00); 
if(BgL_test3219z00_1020)
{ /* ./DotNet/instr.scm 164 */
BgL_arg3177z00_998 = 
CNST_TABLE_REF(((long)25)); }  else 
{ /* ./DotNet/instr.scm 165 */
bool_t BgL_test3220z00_1021;
BgL_test3220z00_1021 = 
BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_nz00_14, BGl_real5776z00zzdotnet_instrz00); 
if(BgL_test3220z00_1021)
{ /* ./DotNet/instr.scm 165 */
BgL_arg3177z00_998 = 
CNST_TABLE_REF(((long)26)); }  else 
{ /* ./DotNet/instr.scm 166 */
bool_t BgL_test3221z00_1022;
BgL_test3221z00_1022 = 
BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_nz00_14, BGl_real5777z00zzdotnet_instrz00); 
if(BgL_test3221z00_1022)
{ /* ./DotNet/instr.scm 166 */
BgL_arg3177z00_998 = 
CNST_TABLE_REF(((long)27)); }  else 
{ /* ./DotNet/instr.scm 166 */
{ /* ./DotNet/instr.scm 167 */
obj_t BgL_arg3223z00_1023;obj_t BgL_arg3224z00_1024;
BgL_arg3223z00_1023 = 
CNST_TABLE_REF(((long)14)); 
BgL_arg3224z00_1024 = 
MAKE_PAIR(BgL_nz00_14, BNIL); 
BgL_arg3177z00_998 = 
MAKE_PAIR(BgL_arg3223z00_1023, BgL_arg3224z00_1024); } } } } }  else 
{ /* ./DotNet/instr.scm 145 */
bool_t BgL_test3230z00_1025;
BgL_test3230z00_1025 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_13, 
CNST_TABLE_REF(((long)7))); 
if(BgL_test3230z00_1025)
{ /* ./DotNet/instr.scm 169 */
bool_t BgL_test3231z00_1026;
BgL_test3231z00_1026 = 
BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_nz00_14, BGl_real5775z00zzdotnet_instrz00); 
if(BgL_test3231z00_1026)
{ /* ./DotNet/instr.scm 169 */
BgL_arg3177z00_998 = 
CNST_TABLE_REF(((long)28)); }  else 
{ /* ./DotNet/instr.scm 170 */
bool_t BgL_test3232z00_1027;
BgL_test3232z00_1027 = 
BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_nz00_14, BGl_real5776z00zzdotnet_instrz00); 
if(BgL_test3232z00_1027)
{ /* ./DotNet/instr.scm 170 */
BgL_arg3177z00_998 = 
CNST_TABLE_REF(((long)29)); }  else 
{ /* ./DotNet/instr.scm 170 */
{ /* ./DotNet/instr.scm 171 */
obj_t BgL_arg3234z00_1028;obj_t BgL_arg3235z00_1029;
BgL_arg3234z00_1028 = 
CNST_TABLE_REF(((long)24)); 
BgL_arg3235z00_1029 = 
MAKE_PAIR(BgL_nz00_14, BNIL); 
BgL_arg3177z00_998 = 
MAKE_PAIR(BgL_arg3234z00_1028, BgL_arg3235z00_1029); } } } }  else 
{ /* ./DotNet/instr.scm 145 */
bool_t BgL_test3240z00_1030;
BgL_test3240z00_1030 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_13, 
CNST_TABLE_REF(((long)30))); 
if(BgL_test3240z00_1030)
{ /* ./DotNet/instr.scm 173 */
obj_t BgL_arg3242z00_1031;obj_t BgL_arg3243z00_1032;
BgL_arg3242z00_1031 = 
CNST_TABLE_REF(((long)14)); 
BgL_arg3243z00_1032 = 
MAKE_PAIR(BgL_nz00_14, BNIL); 
BgL_arg3177z00_998 = 
MAKE_PAIR(BgL_arg3242z00_1031, BgL_arg3243z00_1032); }  else 
{ /* ./DotNet/instr.scm 174 */
obj_t BgL_procz00_2243;
BgL_procz00_2243 = 
CNST_TABLE_REF(((long)31)); 
FAILURE(BgL_procz00_2243,BGl_string5778z00zzdotnet_instrz00,BgL_typez00_13);} } } } } } 
{ /* ./DotNet/instr.scm 144 */
obj_t BgL_arg3131z00_2249;
{ /* ./DotNet/instr.scm 144 */
obj_t BgL_arg3134z00_2250;
BgL_arg3134z00_2250 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_12))->BgL_codez00); 
BgL_arg3131z00_2249 = 
MAKE_PAIR(BgL_arg3177z00_998, BgL_arg3134z00_2250); } 
{ /* ./DotNet/instr.scm 144 */
BgL_envz00_bglt BgL_obj2963z00_2252;obj_t BgL_val2962z00_2253;
BgL_obj2963z00_2252 = BgL_envz00_12; 
BgL_val2962z00_2253 = BgL_arg3131z00_2249; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2252))->BgL_codez00) = ((obj_t)BgL_val2962z00_2253), BUNSPEC); } } ((bool_t)1); } 
{ /* ./DotNet/instr.scm 175 */
obj_t BgL_arg3253z00_1033;
BgL_arg3253z00_1033 = 
BGl_simplezd2typezd2zzdotnet_instrz00(BgL_typez00_13); 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_12, BgL_arg3253z00_1033);} } 
}



/* __push5444 */
obj_t BGl___push5444z00zzdotnet_instrz00(obj_t BgL_envz00_3092, obj_t BgL_envz00_3093, obj_t BgL_typez00_3094, obj_t BgL_nz00_3095)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 143 */
return 
BGl__pushz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3093), BgL_typez00_3094, BgL_nz00_3095);} 
}



/* _dup */
BGL_EXPORTED_DEF obj_t BGl__dupz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_15)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 177 */
{ /* ./DotNet/instr.scm 178 */
obj_t BgL_insz00_2255;
BgL_insz00_2255 = 
CNST_TABLE_REF(((long)32)); 
{ /* ./DotNet/instr.scm 178 */
obj_t BgL_arg3131z00_2257;
{ /* ./DotNet/instr.scm 178 */
obj_t BgL_arg3134z00_2258;
BgL_arg3134z00_2258 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_15))->BgL_codez00); 
BgL_arg3131z00_2257 = 
MAKE_PAIR(BgL_insz00_2255, BgL_arg3134z00_2258); } 
{ /* ./DotNet/instr.scm 178 */
BgL_envz00_bglt BgL_obj2963z00_2260;obj_t BgL_val2962z00_2261;
BgL_obj2963z00_2260 = BgL_envz00_15; 
BgL_val2962z00_2261 = BgL_arg3131z00_2257; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2260))->BgL_codez00) = ((obj_t)BgL_val2962z00_2261), BUNSPEC); } } ((bool_t)1); } 
{ /* ./DotNet/instr.scm 179 */
obj_t BgL_tyz00_1034;
BgL_tyz00_1034 = 
BGl_popz00zzdotnet_instrz00(BgL_envz00_15); 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_15, BgL_tyz00_1034); 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_15, BgL_tyz00_1034);} } 
}



/* __dup5446 */
obj_t BGl___dup5446z00zzdotnet_instrz00(obj_t BgL_envz00_3096, obj_t BgL_envz00_3097)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 177 */
return 
BGl__dupz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3097));} 
}



/* _pop */
BGL_EXPORTED_DEF obj_t BGl__popz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_16, obj_t BgL_typez00_17)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 183 */
{ /* ./DotNet/instr.scm 184 */
bool_t BgL_test3260z00_1035;
{ /* ./DotNet/instr.scm 184 */
obj_t BgL_auxz00_3554;
BgL_auxz00_3554 = 
CNST_TABLE_REF(((long)1)); 
BgL_test3260z00_1035 = 
(BgL_typez00_17==BgL_auxz00_3554); } 
if(BgL_test3260z00_1035)
{ /* ./DotNet/instr.scm 184 */
return 
CNST_TABLE_REF(((long)33));}  else 
{ /* ./DotNet/instr.scm 184 */
{ /* ./DotNet/instr.scm 187 */
obj_t BgL_arg3262z00_1036;
{ /* ./DotNet/instr.scm 187 */
bool_t BgL_testz00_3559;
{ /* ./DotNet/instr.scm 187 */
bool_t BgL_testz00_3560;
{ /* ./DotNet/instr.scm 187 */
obj_t BgL_auxz00_3561;
BgL_auxz00_3561 = 
CNST_TABLE_REF(((long)7)); 
BgL_testz00_3560 = 
(BgL_typez00_17==BgL_auxz00_3561); } 
if(BgL_testz00_3560)
{ /* ./DotNet/instr.scm 187 */
BgL_testz00_3559 = ((bool_t)1)
; }  else 
{ /* ./DotNet/instr.scm 187 */
obj_t BgL_auxz00_3564;
BgL_auxz00_3564 = 
CNST_TABLE_REF(((long)5)); 
BgL_testz00_3559 = 
(BgL_typez00_17==BgL_auxz00_3564); } } 
if(BgL_testz00_3559)
{ /* ./DotNet/instr.scm 187 */
BgL_arg3262z00_1036 = 
CNST_TABLE_REF(((long)34)); }  else 
{ /* ./DotNet/instr.scm 187 */
BgL_arg3262z00_1036 = 
CNST_TABLE_REF(((long)35)); } } 
{ /* ./DotNet/instr.scm 186 */
obj_t BgL_arg3131z00_2265;
{ /* ./DotNet/instr.scm 186 */
obj_t BgL_arg3134z00_2266;
BgL_arg3134z00_2266 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_16))->BgL_codez00); 
BgL_arg3131z00_2265 = 
MAKE_PAIR(BgL_arg3262z00_1036, BgL_arg3134z00_2266); } 
{ /* ./DotNet/instr.scm 186 */
BgL_envz00_bglt BgL_obj2963z00_2268;obj_t BgL_val2962z00_2269;
BgL_obj2963z00_2268 = BgL_envz00_16; 
BgL_val2962z00_2269 = BgL_arg3131z00_2265; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2268))->BgL_codez00) = ((obj_t)BgL_val2962z00_2269), BUNSPEC); } } ((bool_t)1); } 
{ /* ./DotNet/instr.scm 190 */
obj_t BgL_arg3269z00_1039;
BgL_arg3269z00_1039 = 
BGl_simplezd2typezd2zzdotnet_instrz00(BgL_typez00_17); 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_16, BgL_arg3269z00_1039);} } } } 
}



/* __pop5448 */
obj_t BGl___pop5448z00zzdotnet_instrz00(obj_t BgL_envz00_3098, obj_t BgL_envz00_3099, obj_t BgL_typez00_3100)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 183 */
return 
BGl__popz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3099), BgL_typez00_3100);} 
}



/* _load */
BGL_EXPORTED_DEF obj_t BGl__loadz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_20, BgL_localz00_bglt BgL_varz00_21)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 201 */
{ /* ./DotNet/instr.scm 202 */
obj_t BgL_arg3279z00_2275;obj_t BgL_arg3280z00_2276;
{ /* ./DotNet/instr.scm 202 */
BgL_variablez00_bglt BgL_obj1094z00_2278;
BgL_obj1094z00_2278 = 
(BgL_variablez00_bglt)(BgL_varz00_21); 
BgL_arg3279z00_2275 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1094z00_2278))->BgL_namez00); } 
{ /* ./DotNet/instr.scm 202 */
BgL_typez00_bglt BgL_arg3284z00_2277;
{ /* ./DotNet/instr.scm 202 */
BgL_variablez00_bglt BgL_obj1097z00_2279;
BgL_obj1097z00_2279 = 
(BgL_variablez00_bglt)(BgL_varz00_21); 
BgL_arg3284z00_2277 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_2279))->BgL_typez00); } 
BgL_arg3280z00_2276 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_arg3284z00_2277), BgL_envz00_20); } 
return 
BGl__load_namez00zzdotnet_instrz00(BgL_envz00_20, BgL_arg3279z00_2275, BgL_arg3280z00_2276);} } 
}



/* __load5450 */
obj_t BGl___load5450z00zzdotnet_instrz00(obj_t BgL_envz00_3101, obj_t BgL_envz00_3102, obj_t BgL_varz00_3103)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 201 */
return 
BGl__loadz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3102), 
(BgL_localz00_bglt)(BgL_varz00_3103));} 
}



/* _load_name */
BGL_EXPORTED_DEF obj_t BGl__load_namez00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_22, obj_t BgL_namez00_23, obj_t BgL_typez00_24)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 204 */
{ /* ./DotNet/instr.scm 205 */
obj_t BgL_namez00_1046;
{ /* ./DotNet/instr.scm 205 */
obj_t BgL_slotz00_2283;
BgL_slotz00_2283 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_namez00_23, 
(((BgL_envz00_bglt)CREF(BgL_envz00_22))->BgL_maplocalsz00)); 
if(
CBOOL(BgL_slotz00_2283))
{ /* ./DotNet/instr.scm 205 */
BgL_namez00_1046 = 
CDR(BgL_slotz00_2283); }  else 
{ /* ./DotNet/instr.scm 205 */
BgL_namez00_1046 = BgL_namez00_23; } } 
{ /* ./DotNet/instr.scm 207 */
obj_t BgL_arg3288z00_1047;
{ /* ./DotNet/instr.scm 207 */
bool_t BgL_test3290z00_1049;
{ /* ./DotNet/instr.scm 207 */
obj_t BgL_auxz00_3591;
BgL_auxz00_3591 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_typez00_24, 
CNST_TABLE_REF(((long)3))); 
BgL_test3290z00_1049 = 
CBOOL(BgL_auxz00_3591); } 
if(BgL_test3290z00_1049)
{ /* ./DotNet/instr.scm 208 */
obj_t BgL_arg3292z00_1050;obj_t BgL_arg3293z00_1051;
BgL_arg3292z00_1050 = 
CNST_TABLE_REF(((long)36)); 
BgL_arg3293z00_1051 = 
MAKE_PAIR(BgL_namez00_1046, BNIL); 
BgL_arg3288z00_1047 = 
MAKE_PAIR(BgL_arg3292z00_1050, BgL_arg3293z00_1051); }  else 
{ /* ./DotNet/instr.scm 207 */
bool_t BgL_test3296z00_1052;
BgL_test3296z00_1052 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_24, 
CNST_TABLE_REF(((long)5))); 
if(BgL_test3296z00_1052)
{ /* ./DotNet/instr.scm 209 */
obj_t BgL_arg3298z00_1053;obj_t BgL_arg3299z00_1054;
BgL_arg3298z00_1053 = 
CNST_TABLE_REF(((long)37)); 
BgL_arg3299z00_1054 = 
MAKE_PAIR(BgL_namez00_1046, BNIL); 
BgL_arg3288z00_1047 = 
MAKE_PAIR(BgL_arg3298z00_1053, BgL_arg3299z00_1054); }  else 
{ /* ./DotNet/instr.scm 207 */
bool_t BgL_test3302z00_1055;
BgL_test3302z00_1055 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_24, 
CNST_TABLE_REF(((long)6))); 
if(BgL_test3302z00_1055)
{ /* ./DotNet/instr.scm 210 */
obj_t BgL_arg3304z00_1056;obj_t BgL_arg3305z00_1057;
BgL_arg3304z00_1056 = 
CNST_TABLE_REF(((long)38)); 
BgL_arg3305z00_1057 = 
MAKE_PAIR(BgL_namez00_1046, BNIL); 
BgL_arg3288z00_1047 = 
MAKE_PAIR(BgL_arg3304z00_1056, BgL_arg3305z00_1057); }  else 
{ /* ./DotNet/instr.scm 207 */
bool_t BgL_test3308z00_1058;
BgL_test3308z00_1058 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_24, 
CNST_TABLE_REF(((long)7))); 
if(BgL_test3308z00_1058)
{ /* ./DotNet/instr.scm 211 */
obj_t BgL_arg3310z00_1059;obj_t BgL_arg3311z00_1060;
BgL_arg3310z00_1059 = 
CNST_TABLE_REF(((long)39)); 
BgL_arg3311z00_1060 = 
MAKE_PAIR(BgL_namez00_1046, BNIL); 
BgL_arg3288z00_1047 = 
MAKE_PAIR(BgL_arg3310z00_1059, BgL_arg3311z00_1060); }  else 
{ /* ./DotNet/instr.scm 212 */
obj_t BgL_arg3315z00_1061;obj_t BgL_arg3316z00_1062;
BgL_arg3315z00_1061 = 
CNST_TABLE_REF(((long)40)); 
BgL_arg3316z00_1062 = 
MAKE_PAIR(BgL_namez00_1046, BNIL); 
BgL_arg3288z00_1047 = 
MAKE_PAIR(BgL_arg3315z00_1061, BgL_arg3316z00_1062); } } } } } 
{ /* ./DotNet/instr.scm 206 */
obj_t BgL_arg3131z00_2290;
{ /* ./DotNet/instr.scm 206 */
obj_t BgL_arg3134z00_2291;
BgL_arg3134z00_2291 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_22))->BgL_codez00); 
BgL_arg3131z00_2290 = 
MAKE_PAIR(BgL_arg3288z00_1047, BgL_arg3134z00_2291); } 
{ /* ./DotNet/instr.scm 206 */
BgL_envz00_bglt BgL_obj2963z00_2293;obj_t BgL_val2962z00_2294;
BgL_obj2963z00_2293 = BgL_envz00_22; 
BgL_val2962z00_2294 = BgL_arg3131z00_2290; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2293))->BgL_codez00) = ((obj_t)BgL_val2962z00_2294), BUNSPEC); } } ((bool_t)1); } 
{ /* ./DotNet/instr.scm 213 */
obj_t BgL_arg3324z00_1063;
BgL_arg3324z00_1063 = 
BGl_simplezd2typezd2zzdotnet_instrz00(BgL_typez00_24); 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_22, BgL_arg3324z00_1063);} } } 
}



/* __load_name5452 */
obj_t BGl___load_name5452z00zzdotnet_instrz00(obj_t BgL_envz00_3104, obj_t BgL_envz00_3105, obj_t BgL_namez00_3106, obj_t BgL_typez00_3107)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 204 */
return 
BGl__load_namez00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3105), BgL_namez00_3106, BgL_typez00_3107);} 
}



/* _store */
BGL_EXPORTED_DEF obj_t BGl__storez00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_25, BgL_localz00_bglt BgL_varz00_26)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 215 */
{ /* ./DotNet/instr.scm 216 */
obj_t BgL_arg3329z00_2295;obj_t BgL_arg3330z00_2296;
{ /* ./DotNet/instr.scm 216 */
BgL_variablez00_bglt BgL_obj1094z00_2298;
BgL_obj1094z00_2298 = 
(BgL_variablez00_bglt)(BgL_varz00_26); 
BgL_arg3329z00_2295 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1094z00_2298))->BgL_namez00); } 
{ /* ./DotNet/instr.scm 216 */
BgL_typez00_bglt BgL_arg3334z00_2297;
{ /* ./DotNet/instr.scm 216 */
BgL_variablez00_bglt BgL_obj1097z00_2299;
BgL_obj1097z00_2299 = 
(BgL_variablez00_bglt)(BgL_varz00_26); 
BgL_arg3334z00_2297 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_2299))->BgL_typez00); } 
BgL_arg3330z00_2296 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_arg3334z00_2297), BgL_envz00_25); } 
return 
BGl__store_namez00zzdotnet_instrz00(BgL_envz00_25, BgL_arg3329z00_2295, BgL_arg3330z00_2296);} } 
}



/* __store5454 */
obj_t BGl___store5454z00zzdotnet_instrz00(obj_t BgL_envz00_3108, obj_t BgL_envz00_3109, obj_t BgL_varz00_3110)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 215 */
return 
BGl__storez00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3109), 
(BgL_localz00_bglt)(BgL_varz00_3110));} 
}



/* _store_name */
BGL_EXPORTED_DEF obj_t BGl__store_namez00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_27, obj_t BgL_namez00_28, obj_t BgL_typez00_29)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 218 */
{ /* ./DotNet/instr.scm 219 */
obj_t BgL_namez00_1067;
{ /* ./DotNet/instr.scm 219 */
obj_t BgL_slotz00_2303;
BgL_slotz00_2303 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_namez00_28, 
(((BgL_envz00_bglt)CREF(BgL_envz00_27))->BgL_maplocalsz00)); 
if(
CBOOL(BgL_slotz00_2303))
{ /* ./DotNet/instr.scm 219 */
BgL_namez00_1067 = 
CDR(BgL_slotz00_2303); }  else 
{ /* ./DotNet/instr.scm 219 */
BgL_namez00_1067 = BgL_namez00_28; } } 
{ /* ./DotNet/instr.scm 221 */
obj_t BgL_arg3338z00_1068;
{ /* ./DotNet/instr.scm 221 */
bool_t BgL_test3340z00_1070;
{ /* ./DotNet/instr.scm 221 */
obj_t BgL_auxz00_3642;
BgL_auxz00_3642 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_typez00_29, 
CNST_TABLE_REF(((long)3))); 
BgL_test3340z00_1070 = 
CBOOL(BgL_auxz00_3642); } 
if(BgL_test3340z00_1070)
{ /* ./DotNet/instr.scm 222 */
obj_t BgL_arg3342z00_1071;obj_t BgL_arg3343z00_1072;
BgL_arg3342z00_1071 = 
CNST_TABLE_REF(((long)41)); 
BgL_arg3343z00_1072 = 
MAKE_PAIR(BgL_namez00_1067, BNIL); 
BgL_arg3338z00_1068 = 
MAKE_PAIR(BgL_arg3342z00_1071, BgL_arg3343z00_1072); }  else 
{ /* ./DotNet/instr.scm 221 */
bool_t BgL_test3346z00_1073;
BgL_test3346z00_1073 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_29, 
CNST_TABLE_REF(((long)5))); 
if(BgL_test3346z00_1073)
{ /* ./DotNet/instr.scm 223 */
obj_t BgL_arg3348z00_1074;obj_t BgL_arg3349z00_1075;
BgL_arg3348z00_1074 = 
CNST_TABLE_REF(((long)42)); 
BgL_arg3349z00_1075 = 
MAKE_PAIR(BgL_namez00_1067, BNIL); 
BgL_arg3338z00_1068 = 
MAKE_PAIR(BgL_arg3348z00_1074, BgL_arg3349z00_1075); }  else 
{ /* ./DotNet/instr.scm 221 */
bool_t BgL_test3352z00_1076;
BgL_test3352z00_1076 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_29, 
CNST_TABLE_REF(((long)6))); 
if(BgL_test3352z00_1076)
{ /* ./DotNet/instr.scm 224 */
obj_t BgL_arg3354z00_1077;obj_t BgL_arg3355z00_1078;
BgL_arg3354z00_1077 = 
CNST_TABLE_REF(((long)43)); 
BgL_arg3355z00_1078 = 
MAKE_PAIR(BgL_namez00_1067, BNIL); 
BgL_arg3338z00_1068 = 
MAKE_PAIR(BgL_arg3354z00_1077, BgL_arg3355z00_1078); }  else 
{ /* ./DotNet/instr.scm 221 */
bool_t BgL_test3358z00_1079;
BgL_test3358z00_1079 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_29, 
CNST_TABLE_REF(((long)7))); 
if(BgL_test3358z00_1079)
{ /* ./DotNet/instr.scm 225 */
obj_t BgL_arg3360z00_1080;obj_t BgL_arg3362z00_1081;
BgL_arg3360z00_1080 = 
CNST_TABLE_REF(((long)44)); 
BgL_arg3362z00_1081 = 
MAKE_PAIR(BgL_namez00_1067, BNIL); 
BgL_arg3338z00_1068 = 
MAKE_PAIR(BgL_arg3360z00_1080, BgL_arg3362z00_1081); }  else 
{ /* ./DotNet/instr.scm 226 */
obj_t BgL_arg3366z00_1082;obj_t BgL_arg3367z00_1083;
BgL_arg3366z00_1082 = 
CNST_TABLE_REF(((long)45)); 
BgL_arg3367z00_1083 = 
MAKE_PAIR(BgL_namez00_1067, BNIL); 
BgL_arg3338z00_1068 = 
MAKE_PAIR(BgL_arg3366z00_1082, BgL_arg3367z00_1083); } } } } } 
{ /* ./DotNet/instr.scm 220 */
obj_t BgL_arg3131z00_2310;
{ /* ./DotNet/instr.scm 220 */
obj_t BgL_arg3134z00_2311;
BgL_arg3134z00_2311 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_27))->BgL_codez00); 
BgL_arg3131z00_2310 = 
MAKE_PAIR(BgL_arg3338z00_1068, BgL_arg3134z00_2311); } 
{ /* ./DotNet/instr.scm 220 */
BgL_envz00_bglt BgL_obj2963z00_2313;obj_t BgL_val2962z00_2314;
BgL_obj2963z00_2313 = BgL_envz00_27; 
BgL_val2962z00_2314 = BgL_arg3131z00_2310; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2313))->BgL_codez00) = ((obj_t)BgL_val2962z00_2314), BUNSPEC); } } ((bool_t)1); } 
{ /* ./DotNet/instr.scm 227 */
obj_t BgL_arg3375z00_1084;
BgL_arg3375z00_1084 = 
BGl_simplezd2typezd2zzdotnet_instrz00(BgL_typez00_29); 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_27, BgL_arg3375z00_1084);} } } 
}



/* __store_name5456 */
obj_t BGl___store_name5456z00zzdotnet_instrz00(obj_t BgL_envz00_3111, obj_t BgL_envz00_3112, obj_t BgL_namez00_3113, obj_t BgL_typez00_3114)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 218 */
return 
BGl__store_namez00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3112), BgL_namez00_3113, BgL_typez00_3114);} 
}



/* _getstatic */
BGL_EXPORTED_DEF obj_t BGl__getstaticz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_30, obj_t BgL_varz00_31)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 230 */
{ /* ./DotNet/instr.scm 231 */
obj_t BgL_arg3380z00_1085;
{ /* ./DotNet/instr.scm 231 */
obj_t BgL_arg3383z00_1086;obj_t BgL_arg3384z00_1087;
BgL_arg3383z00_1086 = 
CNST_TABLE_REF(((long)46)); 
BgL_arg3384z00_1087 = 
MAKE_PAIR(BgL_varz00_31, BNIL); 
BgL_arg3380z00_1085 = 
MAKE_PAIR(BgL_arg3383z00_1086, BgL_arg3384z00_1087); } 
{ /* ./DotNet/instr.scm 231 */
obj_t BgL_arg3131z00_2318;
{ /* ./DotNet/instr.scm 231 */
obj_t BgL_arg3134z00_2319;
BgL_arg3134z00_2319 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_30))->BgL_codez00); 
BgL_arg3131z00_2318 = 
MAKE_PAIR(BgL_arg3380z00_1085, BgL_arg3134z00_2319); } 
{ /* ./DotNet/instr.scm 231 */
BgL_envz00_bglt BgL_obj2963z00_2321;obj_t BgL_val2962z00_2322;
BgL_obj2963z00_2321 = BgL_envz00_30; 
BgL_val2962z00_2322 = BgL_arg3131z00_2318; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2321))->BgL_codez00) = ((obj_t)BgL_val2962z00_2322), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_30, 
CNST_TABLE_REF(((long)8)));} 
}



/* __getstatic5458 */
obj_t BGl___getstatic5458z00zzdotnet_instrz00(obj_t BgL_envz00_3115, obj_t BgL_envz00_3116, obj_t BgL_varz00_3117)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 230 */
return 
BGl__getstaticz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3116), BgL_varz00_3117);} 
}



/* _getstatic2 */
BGL_EXPORTED_DEF obj_t BGl__getstatic2z00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_32, BgL_globalz00_bglt BgL_varz00_33)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 234 */
{ /* ./DotNet/instr.scm 235 */
obj_t BgL_arg3389z00_1088;
{ /* ./DotNet/instr.scm 235 */
obj_t BgL_arg3392z00_1089;obj_t BgL_arg3393z00_1090;
BgL_arg3392z00_1089 = 
CNST_TABLE_REF(((long)46)); 
{ /* ./DotNet/instr.scm 235 */
obj_t BgL_arg3396z00_1091;
BgL_arg3396z00_1091 = 
BGl_getzd2globalzd2namez00zzdotnet_envz00(BgL_envz00_32, BgL_varz00_33); 
BgL_arg3393z00_1090 = 
MAKE_PAIR(BgL_arg3396z00_1091, BNIL); } 
BgL_arg3389z00_1088 = 
MAKE_PAIR(BgL_arg3392z00_1089, BgL_arg3393z00_1090); } 
{ /* ./DotNet/instr.scm 235 */
obj_t BgL_arg3131z00_2326;
{ /* ./DotNet/instr.scm 235 */
obj_t BgL_arg3134z00_2327;
BgL_arg3134z00_2327 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_32))->BgL_codez00); 
BgL_arg3131z00_2326 = 
MAKE_PAIR(BgL_arg3389z00_1088, BgL_arg3134z00_2327); } 
{ /* ./DotNet/instr.scm 235 */
BgL_envz00_bglt BgL_obj2963z00_2329;obj_t BgL_val2962z00_2330;
BgL_obj2963z00_2329 = BgL_envz00_32; 
BgL_val2962z00_2330 = BgL_arg3131z00_2326; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2329))->BgL_codez00) = ((obj_t)BgL_val2962z00_2330), BUNSPEC); } } ((bool_t)1); } 
{ /* ./DotNet/instr.scm 236 */
obj_t BgL_arg3401z00_1093;
{ /* ./DotNet/instr.scm 236 */
obj_t BgL_arg3404z00_1094;
{ /* ./DotNet/instr.scm 236 */
BgL_typez00_bglt BgL_arg3407z00_1095;
{ /* ./DotNet/instr.scm 236 */
BgL_variablez00_bglt BgL_obj1097z00_2331;
BgL_obj1097z00_2331 = 
(BgL_variablez00_bglt)(BgL_varz00_33); 
BgL_arg3407z00_1095 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_2331))->BgL_typez00); } 
BgL_arg3404z00_1094 = 
BGl_compilezd2typezd2zzdotnet_envz00(
(obj_t)(BgL_arg3407z00_1095), BgL_envz00_32); } 
BgL_arg3401z00_1093 = 
BGl_simplezd2typezd2zzdotnet_instrz00(BgL_arg3404z00_1094); } 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_32, BgL_arg3401z00_1093);} } 
}



/* __getstatic25460 */
obj_t BGl___getstatic25460z00zzdotnet_instrz00(obj_t BgL_envz00_3118, obj_t BgL_envz00_3119, obj_t BgL_varz00_3120)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 234 */
return 
BGl__getstatic2z00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3119), 
(BgL_globalz00_bglt)(BgL_varz00_3120));} 
}



/* _putstatic */
BGL_EXPORTED_DEF obj_t BGl__putstaticz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_34, obj_t BgL_varz00_35)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 238 */
{ /* ./DotNet/instr.scm 239 */
obj_t BgL_arg3411z00_1096;
{ /* ./DotNet/instr.scm 239 */
obj_t BgL_arg3414z00_1097;obj_t BgL_arg3415z00_1098;
BgL_arg3414z00_1097 = 
CNST_TABLE_REF(((long)47)); 
BgL_arg3415z00_1098 = 
MAKE_PAIR(BgL_varz00_35, BNIL); 
BgL_arg3411z00_1096 = 
MAKE_PAIR(BgL_arg3414z00_1097, BgL_arg3415z00_1098); } 
{ /* ./DotNet/instr.scm 239 */
obj_t BgL_arg3131z00_2335;
{ /* ./DotNet/instr.scm 239 */
obj_t BgL_arg3134z00_2336;
BgL_arg3134z00_2336 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_34))->BgL_codez00); 
BgL_arg3131z00_2335 = 
MAKE_PAIR(BgL_arg3411z00_1096, BgL_arg3134z00_2336); } 
{ /* ./DotNet/instr.scm 239 */
BgL_envz00_bglt BgL_obj2963z00_2338;obj_t BgL_val2962z00_2339;
BgL_obj2963z00_2338 = BgL_envz00_34; 
BgL_val2962z00_2339 = BgL_arg3131z00_2335; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2338))->BgL_codez00) = ((obj_t)BgL_val2962z00_2339), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_popz00zzdotnet_instrz00(BgL_envz00_34);} 
}



/* __putstatic5462 */
obj_t BGl___putstatic5462z00zzdotnet_instrz00(obj_t BgL_envz00_3121, obj_t BgL_envz00_3122, obj_t BgL_varz00_3123)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 238 */
return 
BGl__putstaticz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3122), BgL_varz00_3123);} 
}



/* _iadd */
BGL_EXPORTED_DEF obj_t BGl__iaddz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_36)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 243 */
{ /* ./DotNet/instr.scm 243 */
obj_t BgL_insz00_2341;
BgL_insz00_2341 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./DotNet/instr.scm 243 */
obj_t BgL_arg3131z00_2343;
{ /* ./DotNet/instr.scm 243 */
obj_t BgL_arg3134z00_2344;
BgL_arg3134z00_2344 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_36))->BgL_codez00); 
BgL_arg3131z00_2343 = 
MAKE_PAIR(BgL_insz00_2341, BgL_arg3134z00_2344); } 
{ /* ./DotNet/instr.scm 243 */
BgL_envz00_bglt BgL_obj2963z00_2346;obj_t BgL_val2962z00_2347;
BgL_obj2963z00_2346 = BgL_envz00_36; 
BgL_val2962z00_2347 = BgL_arg3131z00_2343; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2346))->BgL_codez00) = ((obj_t)BgL_val2962z00_2347), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_36, 
CNST_TABLE_REF(((long)4)));} 
}



/* __iadd */
obj_t BGl___iaddz00zzdotnet_instrz00(obj_t BgL_envz00_3124, obj_t BgL_envz00_3125)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 243 */
return 
BGl__iaddz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3125));} 
}



/* _isub */
BGL_EXPORTED_DEF obj_t BGl__isubz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_37)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 244 */
{ /* ./DotNet/instr.scm 244 */
obj_t BgL_insz00_2349;
BgL_insz00_2349 = 
CNST_TABLE_REF(((long)49)); 
{ /* ./DotNet/instr.scm 244 */
obj_t BgL_arg3131z00_2351;
{ /* ./DotNet/instr.scm 244 */
obj_t BgL_arg3134z00_2352;
BgL_arg3134z00_2352 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_37))->BgL_codez00); 
BgL_arg3131z00_2351 = 
MAKE_PAIR(BgL_insz00_2349, BgL_arg3134z00_2352); } 
{ /* ./DotNet/instr.scm 244 */
BgL_envz00_bglt BgL_obj2963z00_2354;obj_t BgL_val2962z00_2355;
BgL_obj2963z00_2354 = BgL_envz00_37; 
BgL_val2962z00_2355 = BgL_arg3131z00_2351; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2354))->BgL_codez00) = ((obj_t)BgL_val2962z00_2355), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_37, 
CNST_TABLE_REF(((long)4)));} 
}



/* __isub */
obj_t BGl___isubz00zzdotnet_instrz00(obj_t BgL_envz00_3126, obj_t BgL_envz00_3127)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 244 */
return 
BGl__isubz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3127));} 
}



/* _imul */
BGL_EXPORTED_DEF obj_t BGl__imulz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_38)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 245 */
{ /* ./DotNet/instr.scm 245 */
obj_t BgL_insz00_2357;
BgL_insz00_2357 = 
CNST_TABLE_REF(((long)50)); 
{ /* ./DotNet/instr.scm 245 */
obj_t BgL_arg3131z00_2359;
{ /* ./DotNet/instr.scm 245 */
obj_t BgL_arg3134z00_2360;
BgL_arg3134z00_2360 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_38))->BgL_codez00); 
BgL_arg3131z00_2359 = 
MAKE_PAIR(BgL_insz00_2357, BgL_arg3134z00_2360); } 
{ /* ./DotNet/instr.scm 245 */
BgL_envz00_bglt BgL_obj2963z00_2362;obj_t BgL_val2962z00_2363;
BgL_obj2963z00_2362 = BgL_envz00_38; 
BgL_val2962z00_2363 = BgL_arg3131z00_2359; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2362))->BgL_codez00) = ((obj_t)BgL_val2962z00_2363), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_38, 
CNST_TABLE_REF(((long)4)));} 
}



/* __imul */
obj_t BGl___imulz00zzdotnet_instrz00(obj_t BgL_envz00_3128, obj_t BgL_envz00_3129)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 245 */
return 
BGl__imulz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3129));} 
}



/* _idiv */
BGL_EXPORTED_DEF obj_t BGl__idivz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_39)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 246 */
{ /* ./DotNet/instr.scm 246 */
obj_t BgL_insz00_2365;
BgL_insz00_2365 = 
CNST_TABLE_REF(((long)51)); 
{ /* ./DotNet/instr.scm 246 */
obj_t BgL_arg3131z00_2367;
{ /* ./DotNet/instr.scm 246 */
obj_t BgL_arg3134z00_2368;
BgL_arg3134z00_2368 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_39))->BgL_codez00); 
BgL_arg3131z00_2367 = 
MAKE_PAIR(BgL_insz00_2365, BgL_arg3134z00_2368); } 
{ /* ./DotNet/instr.scm 246 */
BgL_envz00_bglt BgL_obj2963z00_2370;obj_t BgL_val2962z00_2371;
BgL_obj2963z00_2370 = BgL_envz00_39; 
BgL_val2962z00_2371 = BgL_arg3131z00_2367; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2370))->BgL_codez00) = ((obj_t)BgL_val2962z00_2371), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_39, 
CNST_TABLE_REF(((long)4)));} 
}



/* __idiv */
obj_t BGl___idivz00zzdotnet_instrz00(obj_t BgL_envz00_3130, obj_t BgL_envz00_3131)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 246 */
return 
BGl__idivz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3131));} 
}



/* _irem */
BGL_EXPORTED_DEF obj_t BGl__iremz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_40)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 247 */
{ /* ./DotNet/instr.scm 247 */
obj_t BgL_insz00_2373;
BgL_insz00_2373 = 
CNST_TABLE_REF(((long)52)); 
{ /* ./DotNet/instr.scm 247 */
obj_t BgL_arg3131z00_2375;
{ /* ./DotNet/instr.scm 247 */
obj_t BgL_arg3134z00_2376;
BgL_arg3134z00_2376 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_40))->BgL_codez00); 
BgL_arg3131z00_2375 = 
MAKE_PAIR(BgL_insz00_2373, BgL_arg3134z00_2376); } 
{ /* ./DotNet/instr.scm 247 */
BgL_envz00_bglt BgL_obj2963z00_2378;obj_t BgL_val2962z00_2379;
BgL_obj2963z00_2378 = BgL_envz00_40; 
BgL_val2962z00_2379 = BgL_arg3131z00_2375; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2378))->BgL_codez00) = ((obj_t)BgL_val2962z00_2379), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_40, 
CNST_TABLE_REF(((long)4)));} 
}



/* __irem */
obj_t BGl___iremz00zzdotnet_instrz00(obj_t BgL_envz00_3132, obj_t BgL_envz00_3133)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 247 */
return 
BGl__iremz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3133));} 
}



/* _ineg */
BGL_EXPORTED_DEF obj_t BGl__inegz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_41)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 248 */
{ /* ./DotNet/instr.scm 248 */
obj_t BgL_insz00_2381;
BgL_insz00_2381 = 
CNST_TABLE_REF(((long)53)); 
{ /* ./DotNet/instr.scm 248 */
obj_t BgL_arg3131z00_2383;
{ /* ./DotNet/instr.scm 248 */
obj_t BgL_arg3134z00_2384;
BgL_arg3134z00_2384 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_41))->BgL_codez00); 
BgL_arg3131z00_2383 = 
MAKE_PAIR(BgL_insz00_2381, BgL_arg3134z00_2384); } 
{ /* ./DotNet/instr.scm 248 */
BgL_envz00_bglt BgL_obj2963z00_2386;obj_t BgL_val2962z00_2387;
BgL_obj2963z00_2386 = BgL_envz00_41; 
BgL_val2962z00_2387 = BgL_arg3131z00_2383; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2386))->BgL_codez00) = ((obj_t)BgL_val2962z00_2387), BUNSPEC); } } 
return BTRUE;} } 
}



/* __ineg */
obj_t BGl___inegz00zzdotnet_instrz00(obj_t BgL_envz00_3134, obj_t BgL_envz00_3135)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 248 */
return 
BGl__inegz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3135));} 
}



/* _ior */
BGL_EXPORTED_DEF obj_t BGl__iorz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_42)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 249 */
{ /* ./DotNet/instr.scm 249 */
obj_t BgL_insz00_2389;
BgL_insz00_2389 = 
CNST_TABLE_REF(((long)54)); 
{ /* ./DotNet/instr.scm 249 */
obj_t BgL_arg3131z00_2391;
{ /* ./DotNet/instr.scm 249 */
obj_t BgL_arg3134z00_2392;
BgL_arg3134z00_2392 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_42))->BgL_codez00); 
BgL_arg3131z00_2391 = 
MAKE_PAIR(BgL_insz00_2389, BgL_arg3134z00_2392); } 
{ /* ./DotNet/instr.scm 249 */
BgL_envz00_bglt BgL_obj2963z00_2394;obj_t BgL_val2962z00_2395;
BgL_obj2963z00_2394 = BgL_envz00_42; 
BgL_val2962z00_2395 = BgL_arg3131z00_2391; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2394))->BgL_codez00) = ((obj_t)BgL_val2962z00_2395), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_42, 
CNST_TABLE_REF(((long)4)));} 
}



/* __ior */
obj_t BGl___iorz00zzdotnet_instrz00(obj_t BgL_envz00_3136, obj_t BgL_envz00_3137)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 249 */
return 
BGl__iorz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3137));} 
}



/* _iand */
BGL_EXPORTED_DEF obj_t BGl__iandz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_43)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 250 */
{ /* ./DotNet/instr.scm 250 */
obj_t BgL_insz00_2397;
BgL_insz00_2397 = 
CNST_TABLE_REF(((long)55)); 
{ /* ./DotNet/instr.scm 250 */
obj_t BgL_arg3131z00_2399;
{ /* ./DotNet/instr.scm 250 */
obj_t BgL_arg3134z00_2400;
BgL_arg3134z00_2400 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_43))->BgL_codez00); 
BgL_arg3131z00_2399 = 
MAKE_PAIR(BgL_insz00_2397, BgL_arg3134z00_2400); } 
{ /* ./DotNet/instr.scm 250 */
BgL_envz00_bglt BgL_obj2963z00_2402;obj_t BgL_val2962z00_2403;
BgL_obj2963z00_2402 = BgL_envz00_43; 
BgL_val2962z00_2403 = BgL_arg3131z00_2399; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2402))->BgL_codez00) = ((obj_t)BgL_val2962z00_2403), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_43, 
CNST_TABLE_REF(((long)4)));} 
}



/* __iand */
obj_t BGl___iandz00zzdotnet_instrz00(obj_t BgL_envz00_3138, obj_t BgL_envz00_3139)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 250 */
return 
BGl__iandz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3139));} 
}



/* _ixor */
BGL_EXPORTED_DEF obj_t BGl__ixorz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_44)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 251 */
{ /* ./DotNet/instr.scm 251 */
obj_t BgL_insz00_2405;
BgL_insz00_2405 = 
CNST_TABLE_REF(((long)56)); 
{ /* ./DotNet/instr.scm 251 */
obj_t BgL_arg3131z00_2407;
{ /* ./DotNet/instr.scm 251 */
obj_t BgL_arg3134z00_2408;
BgL_arg3134z00_2408 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_44))->BgL_codez00); 
BgL_arg3131z00_2407 = 
MAKE_PAIR(BgL_insz00_2405, BgL_arg3134z00_2408); } 
{ /* ./DotNet/instr.scm 251 */
BgL_envz00_bglt BgL_obj2963z00_2410;obj_t BgL_val2962z00_2411;
BgL_obj2963z00_2410 = BgL_envz00_44; 
BgL_val2962z00_2411 = BgL_arg3131z00_2407; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2410))->BgL_codez00) = ((obj_t)BgL_val2962z00_2411), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_44, 
CNST_TABLE_REF(((long)4)));} 
}



/* __ixor */
obj_t BGl___ixorz00zzdotnet_instrz00(obj_t BgL_envz00_3140, obj_t BgL_envz00_3141)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 251 */
return 
BGl__ixorz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3141));} 
}



/* _ishl */
BGL_EXPORTED_DEF obj_t BGl__ishlz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_45)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 252 */
{ /* ./DotNet/instr.scm 252 */
obj_t BgL_insz00_2413;
BgL_insz00_2413 = 
CNST_TABLE_REF(((long)57)); 
{ /* ./DotNet/instr.scm 252 */
obj_t BgL_arg3131z00_2415;
{ /* ./DotNet/instr.scm 252 */
obj_t BgL_arg3134z00_2416;
BgL_arg3134z00_2416 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_45))->BgL_codez00); 
BgL_arg3131z00_2415 = 
MAKE_PAIR(BgL_insz00_2413, BgL_arg3134z00_2416); } 
{ /* ./DotNet/instr.scm 252 */
BgL_envz00_bglt BgL_obj2963z00_2418;obj_t BgL_val2962z00_2419;
BgL_obj2963z00_2418 = BgL_envz00_45; 
BgL_val2962z00_2419 = BgL_arg3131z00_2415; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2418))->BgL_codez00) = ((obj_t)BgL_val2962z00_2419), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_45, 
CNST_TABLE_REF(((long)4)));} 
}



/* __ishl */
obj_t BGl___ishlz00zzdotnet_instrz00(obj_t BgL_envz00_3142, obj_t BgL_envz00_3143)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 252 */
return 
BGl__ishlz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3143));} 
}



/* _ishr */
BGL_EXPORTED_DEF obj_t BGl__ishrz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_46)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 253 */
{ /* ./DotNet/instr.scm 253 */
obj_t BgL_insz00_2421;
BgL_insz00_2421 = 
CNST_TABLE_REF(((long)58)); 
{ /* ./DotNet/instr.scm 253 */
obj_t BgL_arg3131z00_2423;
{ /* ./DotNet/instr.scm 253 */
obj_t BgL_arg3134z00_2424;
BgL_arg3134z00_2424 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_46))->BgL_codez00); 
BgL_arg3131z00_2423 = 
MAKE_PAIR(BgL_insz00_2421, BgL_arg3134z00_2424); } 
{ /* ./DotNet/instr.scm 253 */
BgL_envz00_bglt BgL_obj2963z00_2426;obj_t BgL_val2962z00_2427;
BgL_obj2963z00_2426 = BgL_envz00_46; 
BgL_val2962z00_2427 = BgL_arg3131z00_2423; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2426))->BgL_codez00) = ((obj_t)BgL_val2962z00_2427), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_46, 
CNST_TABLE_REF(((long)4)));} 
}



/* __ishr */
obj_t BGl___ishrz00zzdotnet_instrz00(obj_t BgL_envz00_3144, obj_t BgL_envz00_3145)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 253 */
return 
BGl__ishrz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3145));} 
}



/* _iushr */
BGL_EXPORTED_DEF obj_t BGl__iushrz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_47)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 254 */
{ /* ./DotNet/instr.scm 254 */
obj_t BgL_insz00_2429;
BgL_insz00_2429 = 
CNST_TABLE_REF(((long)59)); 
{ /* ./DotNet/instr.scm 254 */
obj_t BgL_arg3131z00_2431;
{ /* ./DotNet/instr.scm 254 */
obj_t BgL_arg3134z00_2432;
BgL_arg3134z00_2432 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_47))->BgL_codez00); 
BgL_arg3131z00_2431 = 
MAKE_PAIR(BgL_insz00_2429, BgL_arg3134z00_2432); } 
{ /* ./DotNet/instr.scm 254 */
BgL_envz00_bglt BgL_obj2963z00_2434;obj_t BgL_val2962z00_2435;
BgL_obj2963z00_2434 = BgL_envz00_47; 
BgL_val2962z00_2435 = BgL_arg3131z00_2431; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2434))->BgL_codez00) = ((obj_t)BgL_val2962z00_2435), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_47, 
CNST_TABLE_REF(((long)4)));} 
}



/* __iushr */
obj_t BGl___iushrz00zzdotnet_instrz00(obj_t BgL_envz00_3146, obj_t BgL_envz00_3147)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 254 */
return 
BGl__iushrz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3147));} 
}



/* _ladd */
BGL_EXPORTED_DEF obj_t BGl__laddz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_48)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 256 */
{ /* ./DotNet/instr.scm 256 */
obj_t BgL_insz00_2437;
BgL_insz00_2437 = 
CNST_TABLE_REF(((long)60)); 
{ /* ./DotNet/instr.scm 256 */
obj_t BgL_arg3131z00_2439;
{ /* ./DotNet/instr.scm 256 */
obj_t BgL_arg3134z00_2440;
BgL_arg3134z00_2440 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_48))->BgL_codez00); 
BgL_arg3131z00_2439 = 
MAKE_PAIR(BgL_insz00_2437, BgL_arg3134z00_2440); } 
{ /* ./DotNet/instr.scm 256 */
BgL_envz00_bglt BgL_obj2963z00_2442;obj_t BgL_val2962z00_2443;
BgL_obj2963z00_2442 = BgL_envz00_48; 
BgL_val2962z00_2443 = BgL_arg3131z00_2439; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2442))->BgL_codez00) = ((obj_t)BgL_val2962z00_2443), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_48, 
CNST_TABLE_REF(((long)5)));} 
}



/* __ladd */
obj_t BGl___laddz00zzdotnet_instrz00(obj_t BgL_envz00_3148, obj_t BgL_envz00_3149)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 256 */
return 
BGl__laddz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3149));} 
}



/* _lsub */
BGL_EXPORTED_DEF obj_t BGl__lsubz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_49)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 257 */
{ /* ./DotNet/instr.scm 257 */
obj_t BgL_insz00_2445;
BgL_insz00_2445 = 
CNST_TABLE_REF(((long)61)); 
{ /* ./DotNet/instr.scm 257 */
obj_t BgL_arg3131z00_2447;
{ /* ./DotNet/instr.scm 257 */
obj_t BgL_arg3134z00_2448;
BgL_arg3134z00_2448 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_49))->BgL_codez00); 
BgL_arg3131z00_2447 = 
MAKE_PAIR(BgL_insz00_2445, BgL_arg3134z00_2448); } 
{ /* ./DotNet/instr.scm 257 */
BgL_envz00_bglt BgL_obj2963z00_2450;obj_t BgL_val2962z00_2451;
BgL_obj2963z00_2450 = BgL_envz00_49; 
BgL_val2962z00_2451 = BgL_arg3131z00_2447; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2450))->BgL_codez00) = ((obj_t)BgL_val2962z00_2451), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_49, 
CNST_TABLE_REF(((long)5)));} 
}



/* __lsub */
obj_t BGl___lsubz00zzdotnet_instrz00(obj_t BgL_envz00_3150, obj_t BgL_envz00_3151)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 257 */
return 
BGl__lsubz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3151));} 
}



/* _lmul */
BGL_EXPORTED_DEF obj_t BGl__lmulz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_50)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 258 */
{ /* ./DotNet/instr.scm 258 */
obj_t BgL_insz00_2453;
BgL_insz00_2453 = 
CNST_TABLE_REF(((long)62)); 
{ /* ./DotNet/instr.scm 258 */
obj_t BgL_arg3131z00_2455;
{ /* ./DotNet/instr.scm 258 */
obj_t BgL_arg3134z00_2456;
BgL_arg3134z00_2456 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_50))->BgL_codez00); 
BgL_arg3131z00_2455 = 
MAKE_PAIR(BgL_insz00_2453, BgL_arg3134z00_2456); } 
{ /* ./DotNet/instr.scm 258 */
BgL_envz00_bglt BgL_obj2963z00_2458;obj_t BgL_val2962z00_2459;
BgL_obj2963z00_2458 = BgL_envz00_50; 
BgL_val2962z00_2459 = BgL_arg3131z00_2455; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2458))->BgL_codez00) = ((obj_t)BgL_val2962z00_2459), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_50, 
CNST_TABLE_REF(((long)5)));} 
}



/* __lmul */
obj_t BGl___lmulz00zzdotnet_instrz00(obj_t BgL_envz00_3152, obj_t BgL_envz00_3153)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 258 */
return 
BGl__lmulz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3153));} 
}



/* _ldiv */
BGL_EXPORTED_DEF obj_t BGl__ldivz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_51)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 259 */
{ /* ./DotNet/instr.scm 259 */
obj_t BgL_insz00_2461;
BgL_insz00_2461 = 
CNST_TABLE_REF(((long)63)); 
{ /* ./DotNet/instr.scm 259 */
obj_t BgL_arg3131z00_2463;
{ /* ./DotNet/instr.scm 259 */
obj_t BgL_arg3134z00_2464;
BgL_arg3134z00_2464 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_51))->BgL_codez00); 
BgL_arg3131z00_2463 = 
MAKE_PAIR(BgL_insz00_2461, BgL_arg3134z00_2464); } 
{ /* ./DotNet/instr.scm 259 */
BgL_envz00_bglt BgL_obj2963z00_2466;obj_t BgL_val2962z00_2467;
BgL_obj2963z00_2466 = BgL_envz00_51; 
BgL_val2962z00_2467 = BgL_arg3131z00_2463; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2466))->BgL_codez00) = ((obj_t)BgL_val2962z00_2467), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_51, 
CNST_TABLE_REF(((long)5)));} 
}



/* __ldiv */
obj_t BGl___ldivz00zzdotnet_instrz00(obj_t BgL_envz00_3154, obj_t BgL_envz00_3155)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 259 */
return 
BGl__ldivz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3155));} 
}



/* _lrem */
BGL_EXPORTED_DEF obj_t BGl__lremz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_52)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 260 */
{ /* ./DotNet/instr.scm 260 */
obj_t BgL_insz00_2469;
BgL_insz00_2469 = 
CNST_TABLE_REF(((long)64)); 
{ /* ./DotNet/instr.scm 260 */
obj_t BgL_arg3131z00_2471;
{ /* ./DotNet/instr.scm 260 */
obj_t BgL_arg3134z00_2472;
BgL_arg3134z00_2472 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_52))->BgL_codez00); 
BgL_arg3131z00_2471 = 
MAKE_PAIR(BgL_insz00_2469, BgL_arg3134z00_2472); } 
{ /* ./DotNet/instr.scm 260 */
BgL_envz00_bglt BgL_obj2963z00_2474;obj_t BgL_val2962z00_2475;
BgL_obj2963z00_2474 = BgL_envz00_52; 
BgL_val2962z00_2475 = BgL_arg3131z00_2471; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2474))->BgL_codez00) = ((obj_t)BgL_val2962z00_2475), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_52, 
CNST_TABLE_REF(((long)5)));} 
}



/* __lrem */
obj_t BGl___lremz00zzdotnet_instrz00(obj_t BgL_envz00_3156, obj_t BgL_envz00_3157)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 260 */
return 
BGl__lremz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3157));} 
}



/* _lneg */
BGL_EXPORTED_DEF obj_t BGl__lnegz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_53)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 261 */
{ /* ./DotNet/instr.scm 261 */
obj_t BgL_insz00_2477;
BgL_insz00_2477 = 
CNST_TABLE_REF(((long)65)); 
{ /* ./DotNet/instr.scm 261 */
obj_t BgL_arg3131z00_2479;
{ /* ./DotNet/instr.scm 261 */
obj_t BgL_arg3134z00_2480;
BgL_arg3134z00_2480 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_53))->BgL_codez00); 
BgL_arg3131z00_2479 = 
MAKE_PAIR(BgL_insz00_2477, BgL_arg3134z00_2480); } 
{ /* ./DotNet/instr.scm 261 */
BgL_envz00_bglt BgL_obj2963z00_2482;obj_t BgL_val2962z00_2483;
BgL_obj2963z00_2482 = BgL_envz00_53; 
BgL_val2962z00_2483 = BgL_arg3131z00_2479; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2482))->BgL_codez00) = ((obj_t)BgL_val2962z00_2483), BUNSPEC); } } 
return BTRUE;} } 
}



/* __lneg */
obj_t BGl___lnegz00zzdotnet_instrz00(obj_t BgL_envz00_3158, obj_t BgL_envz00_3159)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 261 */
return 
BGl__lnegz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3159));} 
}



/* _lor */
BGL_EXPORTED_DEF obj_t BGl__lorz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_54)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 262 */
{ /* ./DotNet/instr.scm 262 */
obj_t BgL_insz00_2485;
BgL_insz00_2485 = 
CNST_TABLE_REF(((long)66)); 
{ /* ./DotNet/instr.scm 262 */
obj_t BgL_arg3131z00_2487;
{ /* ./DotNet/instr.scm 262 */
obj_t BgL_arg3134z00_2488;
BgL_arg3134z00_2488 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_54))->BgL_codez00); 
BgL_arg3131z00_2487 = 
MAKE_PAIR(BgL_insz00_2485, BgL_arg3134z00_2488); } 
{ /* ./DotNet/instr.scm 262 */
BgL_envz00_bglt BgL_obj2963z00_2490;obj_t BgL_val2962z00_2491;
BgL_obj2963z00_2490 = BgL_envz00_54; 
BgL_val2962z00_2491 = BgL_arg3131z00_2487; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2490))->BgL_codez00) = ((obj_t)BgL_val2962z00_2491), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_54, 
CNST_TABLE_REF(((long)5)));} 
}



/* __lor */
obj_t BGl___lorz00zzdotnet_instrz00(obj_t BgL_envz00_3160, obj_t BgL_envz00_3161)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 262 */
return 
BGl__lorz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3161));} 
}



/* _land */
BGL_EXPORTED_DEF obj_t BGl__landz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_55)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 263 */
{ /* ./DotNet/instr.scm 263 */
obj_t BgL_insz00_2493;
BgL_insz00_2493 = 
CNST_TABLE_REF(((long)67)); 
{ /* ./DotNet/instr.scm 263 */
obj_t BgL_arg3131z00_2495;
{ /* ./DotNet/instr.scm 263 */
obj_t BgL_arg3134z00_2496;
BgL_arg3134z00_2496 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_55))->BgL_codez00); 
BgL_arg3131z00_2495 = 
MAKE_PAIR(BgL_insz00_2493, BgL_arg3134z00_2496); } 
{ /* ./DotNet/instr.scm 263 */
BgL_envz00_bglt BgL_obj2963z00_2498;obj_t BgL_val2962z00_2499;
BgL_obj2963z00_2498 = BgL_envz00_55; 
BgL_val2962z00_2499 = BgL_arg3131z00_2495; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2498))->BgL_codez00) = ((obj_t)BgL_val2962z00_2499), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_55, 
CNST_TABLE_REF(((long)5)));} 
}



/* __land */
obj_t BGl___landz00zzdotnet_instrz00(obj_t BgL_envz00_3162, obj_t BgL_envz00_3163)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 263 */
return 
BGl__landz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3163));} 
}



/* _lxor */
BGL_EXPORTED_DEF obj_t BGl__lxorz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_56)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 264 */
{ /* ./DotNet/instr.scm 264 */
obj_t BgL_insz00_2501;
BgL_insz00_2501 = 
CNST_TABLE_REF(((long)68)); 
{ /* ./DotNet/instr.scm 264 */
obj_t BgL_arg3131z00_2503;
{ /* ./DotNet/instr.scm 264 */
obj_t BgL_arg3134z00_2504;
BgL_arg3134z00_2504 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_56))->BgL_codez00); 
BgL_arg3131z00_2503 = 
MAKE_PAIR(BgL_insz00_2501, BgL_arg3134z00_2504); } 
{ /* ./DotNet/instr.scm 264 */
BgL_envz00_bglt BgL_obj2963z00_2506;obj_t BgL_val2962z00_2507;
BgL_obj2963z00_2506 = BgL_envz00_56; 
BgL_val2962z00_2507 = BgL_arg3131z00_2503; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2506))->BgL_codez00) = ((obj_t)BgL_val2962z00_2507), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_56, 
CNST_TABLE_REF(((long)5)));} 
}



/* __lxor */
obj_t BGl___lxorz00zzdotnet_instrz00(obj_t BgL_envz00_3164, obj_t BgL_envz00_3165)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 264 */
return 
BGl__lxorz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3165));} 
}



/* _lshl */
BGL_EXPORTED_DEF obj_t BGl__lshlz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_57)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 265 */
{ /* ./DotNet/instr.scm 265 */
obj_t BgL_insz00_2509;
BgL_insz00_2509 = 
CNST_TABLE_REF(((long)69)); 
{ /* ./DotNet/instr.scm 265 */
obj_t BgL_arg3131z00_2511;
{ /* ./DotNet/instr.scm 265 */
obj_t BgL_arg3134z00_2512;
BgL_arg3134z00_2512 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_57))->BgL_codez00); 
BgL_arg3131z00_2511 = 
MAKE_PAIR(BgL_insz00_2509, BgL_arg3134z00_2512); } 
{ /* ./DotNet/instr.scm 265 */
BgL_envz00_bglt BgL_obj2963z00_2514;obj_t BgL_val2962z00_2515;
BgL_obj2963z00_2514 = BgL_envz00_57; 
BgL_val2962z00_2515 = BgL_arg3131z00_2511; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2514))->BgL_codez00) = ((obj_t)BgL_val2962z00_2515), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_57, 
CNST_TABLE_REF(((long)5)));} 
}



/* __lshl */
obj_t BGl___lshlz00zzdotnet_instrz00(obj_t BgL_envz00_3166, obj_t BgL_envz00_3167)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 265 */
return 
BGl__lshlz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3167));} 
}



/* _lshr */
BGL_EXPORTED_DEF obj_t BGl__lshrz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_58)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 266 */
{ /* ./DotNet/instr.scm 266 */
obj_t BgL_insz00_2517;
BgL_insz00_2517 = 
CNST_TABLE_REF(((long)70)); 
{ /* ./DotNet/instr.scm 266 */
obj_t BgL_arg3131z00_2519;
{ /* ./DotNet/instr.scm 266 */
obj_t BgL_arg3134z00_2520;
BgL_arg3134z00_2520 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_58))->BgL_codez00); 
BgL_arg3131z00_2519 = 
MAKE_PAIR(BgL_insz00_2517, BgL_arg3134z00_2520); } 
{ /* ./DotNet/instr.scm 266 */
BgL_envz00_bglt BgL_obj2963z00_2522;obj_t BgL_val2962z00_2523;
BgL_obj2963z00_2522 = BgL_envz00_58; 
BgL_val2962z00_2523 = BgL_arg3131z00_2519; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2522))->BgL_codez00) = ((obj_t)BgL_val2962z00_2523), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_58, 
CNST_TABLE_REF(((long)5)));} 
}



/* __lshr */
obj_t BGl___lshrz00zzdotnet_instrz00(obj_t BgL_envz00_3168, obj_t BgL_envz00_3169)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 266 */
return 
BGl__lshrz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3169));} 
}



/* _lushr */
BGL_EXPORTED_DEF obj_t BGl__lushrz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_59)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 267 */
{ /* ./DotNet/instr.scm 267 */
obj_t BgL_insz00_2525;
BgL_insz00_2525 = 
CNST_TABLE_REF(((long)71)); 
{ /* ./DotNet/instr.scm 267 */
obj_t BgL_arg3131z00_2527;
{ /* ./DotNet/instr.scm 267 */
obj_t BgL_arg3134z00_2528;
BgL_arg3134z00_2528 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_59))->BgL_codez00); 
BgL_arg3131z00_2527 = 
MAKE_PAIR(BgL_insz00_2525, BgL_arg3134z00_2528); } 
{ /* ./DotNet/instr.scm 267 */
BgL_envz00_bglt BgL_obj2963z00_2530;obj_t BgL_val2962z00_2531;
BgL_obj2963z00_2530 = BgL_envz00_59; 
BgL_val2962z00_2531 = BgL_arg3131z00_2527; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2530))->BgL_codez00) = ((obj_t)BgL_val2962z00_2531), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_59, 
CNST_TABLE_REF(((long)5)));} 
}



/* __lushr */
obj_t BGl___lushrz00zzdotnet_instrz00(obj_t BgL_envz00_3170, obj_t BgL_envz00_3171)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 267 */
return 
BGl__lushrz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3171));} 
}



/* _dadd */
BGL_EXPORTED_DEF obj_t BGl__daddz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_60)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 269 */
{ /* ./DotNet/instr.scm 269 */
obj_t BgL_insz00_2533;
BgL_insz00_2533 = 
CNST_TABLE_REF(((long)72)); 
{ /* ./DotNet/instr.scm 269 */
obj_t BgL_arg3131z00_2535;
{ /* ./DotNet/instr.scm 269 */
obj_t BgL_arg3134z00_2536;
BgL_arg3134z00_2536 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_60))->BgL_codez00); 
BgL_arg3131z00_2535 = 
MAKE_PAIR(BgL_insz00_2533, BgL_arg3134z00_2536); } 
{ /* ./DotNet/instr.scm 269 */
BgL_envz00_bglt BgL_obj2963z00_2538;obj_t BgL_val2962z00_2539;
BgL_obj2963z00_2538 = BgL_envz00_60; 
BgL_val2962z00_2539 = BgL_arg3131z00_2535; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2538))->BgL_codez00) = ((obj_t)BgL_val2962z00_2539), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_60, 
CNST_TABLE_REF(((long)7)));} 
}



/* __dadd */
obj_t BGl___daddz00zzdotnet_instrz00(obj_t BgL_envz00_3172, obj_t BgL_envz00_3173)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 269 */
return 
BGl__daddz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3173));} 
}



/* _dsub */
BGL_EXPORTED_DEF obj_t BGl__dsubz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_61)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 270 */
{ /* ./DotNet/instr.scm 270 */
obj_t BgL_insz00_2541;
BgL_insz00_2541 = 
CNST_TABLE_REF(((long)73)); 
{ /* ./DotNet/instr.scm 270 */
obj_t BgL_arg3131z00_2543;
{ /* ./DotNet/instr.scm 270 */
obj_t BgL_arg3134z00_2544;
BgL_arg3134z00_2544 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_61))->BgL_codez00); 
BgL_arg3131z00_2543 = 
MAKE_PAIR(BgL_insz00_2541, BgL_arg3134z00_2544); } 
{ /* ./DotNet/instr.scm 270 */
BgL_envz00_bglt BgL_obj2963z00_2546;obj_t BgL_val2962z00_2547;
BgL_obj2963z00_2546 = BgL_envz00_61; 
BgL_val2962z00_2547 = BgL_arg3131z00_2543; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2546))->BgL_codez00) = ((obj_t)BgL_val2962z00_2547), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_61, 
CNST_TABLE_REF(((long)7)));} 
}



/* __dsub */
obj_t BGl___dsubz00zzdotnet_instrz00(obj_t BgL_envz00_3174, obj_t BgL_envz00_3175)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 270 */
return 
BGl__dsubz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3175));} 
}



/* _dmul */
BGL_EXPORTED_DEF obj_t BGl__dmulz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_62)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 271 */
{ /* ./DotNet/instr.scm 271 */
obj_t BgL_insz00_2549;
BgL_insz00_2549 = 
CNST_TABLE_REF(((long)74)); 
{ /* ./DotNet/instr.scm 271 */
obj_t BgL_arg3131z00_2551;
{ /* ./DotNet/instr.scm 271 */
obj_t BgL_arg3134z00_2552;
BgL_arg3134z00_2552 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_62))->BgL_codez00); 
BgL_arg3131z00_2551 = 
MAKE_PAIR(BgL_insz00_2549, BgL_arg3134z00_2552); } 
{ /* ./DotNet/instr.scm 271 */
BgL_envz00_bglt BgL_obj2963z00_2554;obj_t BgL_val2962z00_2555;
BgL_obj2963z00_2554 = BgL_envz00_62; 
BgL_val2962z00_2555 = BgL_arg3131z00_2551; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2554))->BgL_codez00) = ((obj_t)BgL_val2962z00_2555), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_62, 
CNST_TABLE_REF(((long)7)));} 
}



/* __dmul */
obj_t BGl___dmulz00zzdotnet_instrz00(obj_t BgL_envz00_3176, obj_t BgL_envz00_3177)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 271 */
return 
BGl__dmulz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3177));} 
}



/* _ddiv */
BGL_EXPORTED_DEF obj_t BGl__ddivz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_63)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 272 */
{ /* ./DotNet/instr.scm 272 */
obj_t BgL_insz00_2557;
BgL_insz00_2557 = 
CNST_TABLE_REF(((long)75)); 
{ /* ./DotNet/instr.scm 272 */
obj_t BgL_arg3131z00_2559;
{ /* ./DotNet/instr.scm 272 */
obj_t BgL_arg3134z00_2560;
BgL_arg3134z00_2560 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_63))->BgL_codez00); 
BgL_arg3131z00_2559 = 
MAKE_PAIR(BgL_insz00_2557, BgL_arg3134z00_2560); } 
{ /* ./DotNet/instr.scm 272 */
BgL_envz00_bglt BgL_obj2963z00_2562;obj_t BgL_val2962z00_2563;
BgL_obj2963z00_2562 = BgL_envz00_63; 
BgL_val2962z00_2563 = BgL_arg3131z00_2559; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2562))->BgL_codez00) = ((obj_t)BgL_val2962z00_2563), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_63, 
CNST_TABLE_REF(((long)7)));} 
}



/* __ddiv */
obj_t BGl___ddivz00zzdotnet_instrz00(obj_t BgL_envz00_3178, obj_t BgL_envz00_3179)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 272 */
return 
BGl__ddivz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3179));} 
}



/* _drem */
BGL_EXPORTED_DEF obj_t BGl__dremz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_64)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 273 */
{ /* ./DotNet/instr.scm 273 */
obj_t BgL_insz00_2565;
BgL_insz00_2565 = 
CNST_TABLE_REF(((long)76)); 
{ /* ./DotNet/instr.scm 273 */
obj_t BgL_arg3131z00_2567;
{ /* ./DotNet/instr.scm 273 */
obj_t BgL_arg3134z00_2568;
BgL_arg3134z00_2568 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_64))->BgL_codez00); 
BgL_arg3131z00_2567 = 
MAKE_PAIR(BgL_insz00_2565, BgL_arg3134z00_2568); } 
{ /* ./DotNet/instr.scm 273 */
BgL_envz00_bglt BgL_obj2963z00_2570;obj_t BgL_val2962z00_2571;
BgL_obj2963z00_2570 = BgL_envz00_64; 
BgL_val2962z00_2571 = BgL_arg3131z00_2567; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2570))->BgL_codez00) = ((obj_t)BgL_val2962z00_2571), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_64, 
CNST_TABLE_REF(((long)7)));} 
}



/* __drem */
obj_t BGl___dremz00zzdotnet_instrz00(obj_t BgL_envz00_3180, obj_t BgL_envz00_3181)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 273 */
return 
BGl__dremz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3181));} 
}



/* _dneg */
BGL_EXPORTED_DEF obj_t BGl__dnegz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_65)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 274 */
{ /* ./DotNet/instr.scm 274 */
obj_t BgL_insz00_2573;
BgL_insz00_2573 = 
CNST_TABLE_REF(((long)77)); 
{ /* ./DotNet/instr.scm 274 */
obj_t BgL_arg3131z00_2575;
{ /* ./DotNet/instr.scm 274 */
obj_t BgL_arg3134z00_2576;
BgL_arg3134z00_2576 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_65))->BgL_codez00); 
BgL_arg3131z00_2575 = 
MAKE_PAIR(BgL_insz00_2573, BgL_arg3134z00_2576); } 
{ /* ./DotNet/instr.scm 274 */
BgL_envz00_bglt BgL_obj2963z00_2578;obj_t BgL_val2962z00_2579;
BgL_obj2963z00_2578 = BgL_envz00_65; 
BgL_val2962z00_2579 = BgL_arg3131z00_2575; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2578))->BgL_codez00) = ((obj_t)BgL_val2962z00_2579), BUNSPEC); } } 
return BTRUE;} } 
}



/* __dneg */
obj_t BGl___dnegz00zzdotnet_instrz00(obj_t BgL_envz00_3182, obj_t BgL_envz00_3183)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 274 */
return 
BGl__dnegz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3183));} 
}



/* _i2l */
BGL_EXPORTED_DEF obj_t BGl__i2lz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_66)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 276 */
{ /* ./DotNet/instr.scm 276 */
obj_t BgL_opz00_2581;obj_t BgL_tfromz00_2582;obj_t BgL_ttoz00_2583;
BgL_opz00_2581 = 
CNST_TABLE_REF(((long)78)); 
BgL_tfromz00_2582 = 
CNST_TABLE_REF(((long)4)); 
BgL_ttoz00_2583 = 
CNST_TABLE_REF(((long)5)); 
BGl_envzd2codez12zc0zzdotnet_instrz00(BgL_envz00_66, BgL_opz00_2581); 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_66, BgL_tfromz00_2582); 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_66, BgL_ttoz00_2583);} } 
}



/* __i2l */
obj_t BGl___i2lz00zzdotnet_instrz00(obj_t BgL_envz00_3184, obj_t BgL_envz00_3185)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 276 */
return 
BGl__i2lz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3185));} 
}



/* _i2b */
BGL_EXPORTED_DEF obj_t BGl__i2bz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_67)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 277 */
{ /* ./DotNet/instr.scm 277 */
obj_t BgL_opz00_2585;obj_t BgL_tfromz00_2586;obj_t BgL_ttoz00_2587;
BgL_opz00_2585 = 
CNST_TABLE_REF(((long)79)); 
BgL_tfromz00_2586 = 
CNST_TABLE_REF(((long)4)); 
BgL_ttoz00_2587 = 
CNST_TABLE_REF(((long)4)); 
BGl_envzd2codez12zc0zzdotnet_instrz00(BgL_envz00_67, BgL_opz00_2585); 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_67, BgL_tfromz00_2586); 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_67, BgL_ttoz00_2587);} } 
}



/* __i2b */
obj_t BGl___i2bz00zzdotnet_instrz00(obj_t BgL_envz00_3186, obj_t BgL_envz00_3187)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 277 */
return 
BGl__i2bz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3187));} 
}



/* _i2d */
BGL_EXPORTED_DEF obj_t BGl__i2dz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_68)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 278 */
{ /* ./DotNet/instr.scm 278 */
obj_t BgL_opz00_2589;obj_t BgL_tfromz00_2590;obj_t BgL_ttoz00_2591;
BgL_opz00_2589 = 
CNST_TABLE_REF(((long)80)); 
BgL_tfromz00_2590 = 
CNST_TABLE_REF(((long)4)); 
BgL_ttoz00_2591 = 
CNST_TABLE_REF(((long)7)); 
BGl_envzd2codez12zc0zzdotnet_instrz00(BgL_envz00_68, BgL_opz00_2589); 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_68, BgL_tfromz00_2590); 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_68, BgL_ttoz00_2591);} } 
}



/* __i2d */
obj_t BGl___i2dz00zzdotnet_instrz00(obj_t BgL_envz00_3188, obj_t BgL_envz00_3189)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 278 */
return 
BGl__i2dz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3189));} 
}



/* _l2i */
BGL_EXPORTED_DEF obj_t BGl__l2iz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_69)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 279 */
{ /* ./DotNet/instr.scm 279 */
obj_t BgL_opz00_2593;obj_t BgL_tfromz00_2594;obj_t BgL_ttoz00_2595;
BgL_opz00_2593 = 
CNST_TABLE_REF(((long)81)); 
BgL_tfromz00_2594 = 
CNST_TABLE_REF(((long)5)); 
BgL_ttoz00_2595 = 
CNST_TABLE_REF(((long)4)); 
BGl_envzd2codez12zc0zzdotnet_instrz00(BgL_envz00_69, BgL_opz00_2593); 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_69, BgL_tfromz00_2594); 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_69, BgL_ttoz00_2595);} } 
}



/* __l2i5497 */
obj_t BGl___l2i5497z00zzdotnet_instrz00(obj_t BgL_envz00_3190, obj_t BgL_envz00_3191)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 279 */
return 
BGl__l2iz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3191));} 
}



/* _l2d */
BGL_EXPORTED_DEF obj_t BGl__l2dz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_70)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 280 */
{ /* ./DotNet/instr.scm 280 */
obj_t BgL_opz00_2597;obj_t BgL_tfromz00_2598;obj_t BgL_ttoz00_2599;
BgL_opz00_2597 = 
CNST_TABLE_REF(((long)82)); 
BgL_tfromz00_2598 = 
CNST_TABLE_REF(((long)5)); 
BgL_ttoz00_2599 = 
CNST_TABLE_REF(((long)7)); 
BGl_envzd2codez12zc0zzdotnet_instrz00(BgL_envz00_70, BgL_opz00_2597); 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_70, BgL_tfromz00_2598); 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_70, BgL_ttoz00_2599);} } 
}



/* __l2d */
obj_t BGl___l2dz00zzdotnet_instrz00(obj_t BgL_envz00_3192, obj_t BgL_envz00_3193)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 280 */
return 
BGl__l2dz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3193));} 
}



/* _d2i */
BGL_EXPORTED_DEF obj_t BGl__d2iz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_71)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 281 */
{ /* ./DotNet/instr.scm 281 */
obj_t BgL_opz00_2601;obj_t BgL_tfromz00_2602;obj_t BgL_ttoz00_2603;
BgL_opz00_2601 = 
CNST_TABLE_REF(((long)83)); 
BgL_tfromz00_2602 = 
CNST_TABLE_REF(((long)7)); 
BgL_ttoz00_2603 = 
CNST_TABLE_REF(((long)4)); 
BGl_envzd2codez12zc0zzdotnet_instrz00(BgL_envz00_71, BgL_opz00_2601); 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_71, BgL_tfromz00_2602); 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_71, BgL_ttoz00_2603);} } 
}



/* __d2i */
obj_t BGl___d2iz00zzdotnet_instrz00(obj_t BgL_envz00_3194, obj_t BgL_envz00_3195)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 281 */
return 
BGl__d2iz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3195));} 
}



/* _d2l */
BGL_EXPORTED_DEF obj_t BGl__d2lz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_72)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 282 */
{ /* ./DotNet/instr.scm 282 */
obj_t BgL_opz00_2605;obj_t BgL_tfromz00_2606;obj_t BgL_ttoz00_2607;
BgL_opz00_2605 = 
CNST_TABLE_REF(((long)84)); 
BgL_tfromz00_2606 = 
CNST_TABLE_REF(((long)7)); 
BgL_ttoz00_2607 = 
CNST_TABLE_REF(((long)5)); 
BGl_envzd2codez12zc0zzdotnet_instrz00(BgL_envz00_72, BgL_opz00_2605); 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_72, BgL_tfromz00_2606); 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_72, BgL_ttoz00_2607);} } 
}



/* __d2l */
obj_t BGl___d2lz00zzdotnet_instrz00(obj_t BgL_envz00_3196, obj_t BgL_envz00_3197)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 282 */
return 
BGl__d2lz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3197));} 
}



/* _d2f */
BGL_EXPORTED_DEF obj_t BGl__d2fz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_73)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 283 */
{ /* ./DotNet/instr.scm 283 */
obj_t BgL_opz00_2609;obj_t BgL_tfromz00_2610;obj_t BgL_ttoz00_2611;
BgL_opz00_2609 = 
CNST_TABLE_REF(((long)85)); 
BgL_tfromz00_2610 = 
CNST_TABLE_REF(((long)7)); 
BgL_ttoz00_2611 = 
CNST_TABLE_REF(((long)6)); 
BGl_envzd2codez12zc0zzdotnet_instrz00(BgL_envz00_73, BgL_opz00_2609); 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_73, BgL_tfromz00_2610); 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_73, BgL_ttoz00_2611);} } 
}



/* __d2f */
obj_t BGl___d2fz00zzdotnet_instrz00(obj_t BgL_envz00_3198, obj_t BgL_envz00_3199)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 283 */
return 
BGl__d2fz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3199));} 
}



/* _f2d */
BGL_EXPORTED_DEF obj_t BGl__f2dz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_74)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 284 */
{ /* ./DotNet/instr.scm 284 */
obj_t BgL_opz00_2613;obj_t BgL_tfromz00_2614;obj_t BgL_ttoz00_2615;
BgL_opz00_2613 = 
CNST_TABLE_REF(((long)86)); 
BgL_tfromz00_2614 = 
CNST_TABLE_REF(((long)6)); 
BgL_ttoz00_2615 = 
CNST_TABLE_REF(((long)7)); 
BGl_envzd2codez12zc0zzdotnet_instrz00(BgL_envz00_74, BgL_opz00_2613); 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_74, BgL_tfromz00_2614); 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_74, BgL_ttoz00_2615);} } 
}



/* __f2d */
obj_t BGl___f2dz00zzdotnet_instrz00(obj_t BgL_envz00_3200, obj_t BgL_envz00_3201)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 284 */
return 
BGl__f2dz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3201));} 
}



/* _label */
BGL_EXPORTED_DEF obj_t BGl__labelz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_79, obj_t BgL_labz00_80)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 292 */
{ /* ./DotNet/instr.scm 293 */
bool_t BgL_auxz00_4019;
BgL_auxz00_4019 = 
BGl_envzd2newzd2labelz12z12zzdotnet_instrz00(BgL_envz00_79, BgL_labz00_80); 
return 
BBOOL(BgL_auxz00_4019);} } 
}



/* __label5504 */
obj_t BGl___label5504z00zzdotnet_instrz00(obj_t BgL_envz00_3202, obj_t BgL_envz00_3203, obj_t BgL_labz00_3204)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 292 */
return 
BGl__labelz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3203), BgL_labz00_3204);} 
}



/* _if */
BGL_EXPORTED_DEF obj_t BGl__ifz00zzdotnet_instrz00(obj_t BgL_opz00_81, BgL_envz00_bglt BgL_envz00_82, obj_t BgL_labz00_83)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 295 */
{ /* ./DotNet/instr.scm 297 */
obj_t BgL_arg3490z00_1099;
{ /* ./DotNet/instr.scm 297 */
bool_t BgL_test3492z00_1101;
BgL_test3492z00_1101 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_opz00_81, 
CNST_TABLE_REF(((long)87))); 
if(BgL_test3492z00_1101)
{ /* ./DotNet/instr.scm 298 */
obj_t BgL_arg3495z00_1102;obj_t BgL_arg3496z00_1103;
BgL_arg3495z00_1102 = 
CNST_TABLE_REF(((long)88)); 
BgL_arg3496z00_1103 = 
MAKE_PAIR(BgL_labz00_83, BNIL); 
BgL_arg3490z00_1099 = 
MAKE_PAIR(BgL_arg3495z00_1102, BgL_arg3496z00_1103); }  else 
{ /* ./DotNet/instr.scm 297 */
bool_t BgL_test3499z00_1104;
BgL_test3499z00_1104 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_opz00_81, 
CNST_TABLE_REF(((long)89))); 
if(BgL_test3499z00_1104)
{ /* ./DotNet/instr.scm 299 */
obj_t BgL_arg3501z00_1105;obj_t BgL_arg3502z00_1106;
BgL_arg3501z00_1105 = 
CNST_TABLE_REF(((long)90)); 
BgL_arg3502z00_1106 = 
MAKE_PAIR(BgL_labz00_83, BNIL); 
BgL_arg3490z00_1099 = 
MAKE_PAIR(BgL_arg3501z00_1105, BgL_arg3502z00_1106); }  else 
{ /* ./DotNet/instr.scm 297 */
bool_t BgL_test3505z00_1107;
BgL_test3505z00_1107 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_opz00_81, 
CNST_TABLE_REF(((long)91))); 
if(BgL_test3505z00_1107)
{ /* ./DotNet/instr.scm 300 */
obj_t BgL_arg3507z00_1108;obj_t BgL_arg3508z00_1109;
BgL_arg3507z00_1108 = 
CNST_TABLE_REF(((long)92)); 
BgL_arg3508z00_1109 = 
MAKE_PAIR(BgL_labz00_83, BNIL); 
BgL_arg3490z00_1099 = 
MAKE_PAIR(BgL_arg3507z00_1108, BgL_arg3508z00_1109); }  else 
{ /* ./DotNet/instr.scm 297 */
bool_t BgL_test3511z00_1110;
BgL_test3511z00_1110 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_opz00_81, 
CNST_TABLE_REF(((long)93))); 
if(BgL_test3511z00_1110)
{ /* ./DotNet/instr.scm 301 */
obj_t BgL_arg3513z00_1111;obj_t BgL_arg3514z00_1112;
BgL_arg3513z00_1111 = 
CNST_TABLE_REF(((long)94)); 
BgL_arg3514z00_1112 = 
MAKE_PAIR(BgL_labz00_83, BNIL); 
BgL_arg3490z00_1099 = 
MAKE_PAIR(BgL_arg3513z00_1111, BgL_arg3514z00_1112); }  else 
{ /* ./DotNet/instr.scm 297 */
bool_t BgL_test3517z00_1113;
BgL_test3517z00_1113 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_opz00_81, 
CNST_TABLE_REF(((long)95))); 
if(BgL_test3517z00_1113)
{ /* ./DotNet/instr.scm 302 */
obj_t BgL_arg3520z00_1114;obj_t BgL_arg3521z00_1115;
BgL_arg3520z00_1114 = 
CNST_TABLE_REF(((long)96)); 
BgL_arg3521z00_1115 = 
MAKE_PAIR(BgL_labz00_83, BNIL); 
BgL_arg3490z00_1099 = 
MAKE_PAIR(BgL_arg3520z00_1114, BgL_arg3521z00_1115); }  else 
{ /* ./DotNet/instr.scm 297 */
bool_t BgL_test3524z00_1116;
BgL_test3524z00_1116 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_opz00_81, 
CNST_TABLE_REF(((long)97))); 
if(BgL_test3524z00_1116)
{ /* ./DotNet/instr.scm 303 */
obj_t BgL_arg3526z00_1117;obj_t BgL_arg3527z00_1118;
BgL_arg3526z00_1117 = 
CNST_TABLE_REF(((long)98)); 
BgL_arg3527z00_1118 = 
MAKE_PAIR(BgL_labz00_83, BNIL); 
BgL_arg3490z00_1099 = 
MAKE_PAIR(BgL_arg3526z00_1117, BgL_arg3527z00_1118); }  else 
{ /* ./DotNet/instr.scm 304 */
obj_t BgL_procz00_2624;
BgL_procz00_2624 = 
CNST_TABLE_REF(((long)99)); 
FAILURE(BgL_procz00_2624,BGl_string5779z00zzdotnet_instrz00,BgL_opz00_81);} } } } } } } 
{ /* ./DotNet/instr.scm 296 */
obj_t BgL_arg3131z00_2630;
{ /* ./DotNet/instr.scm 296 */
obj_t BgL_arg3134z00_2631;
BgL_arg3134z00_2631 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_82))->BgL_codez00); 
BgL_arg3131z00_2630 = 
MAKE_PAIR(BgL_arg3490z00_1099, BgL_arg3134z00_2631); } 
{ /* ./DotNet/instr.scm 296 */
BgL_envz00_bglt BgL_obj2963z00_2633;obj_t BgL_val2962z00_2634;
BgL_obj2963z00_2633 = BgL_envz00_82; 
BgL_val2962z00_2634 = BgL_arg3131z00_2630; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2633))->BgL_codez00) = ((obj_t)BgL_val2962z00_2634), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_82, 
CNST_TABLE_REF(((long)4)));} 
}



/* __if5506 */
obj_t BGl___if5506z00zzdotnet_instrz00(obj_t BgL_envz00_3205, obj_t BgL_opz00_3206, obj_t BgL_envz00_3207, obj_t BgL_labz00_3208)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 295 */
return 
BGl__ifz00zzdotnet_instrz00(BgL_opz00_3206, 
(BgL_envz00_bglt)(BgL_envz00_3207), BgL_labz00_3208);} 
}



/* _if_icmp */
BGL_EXPORTED_DEF obj_t BGl__if_icmpz00zzdotnet_instrz00(obj_t BgL_opz00_84, BgL_envz00_bglt BgL_envz00_85, obj_t BgL_labz00_86)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 307 */
{ /* ./DotNet/instr.scm 309 */
obj_t BgL_arg3541z00_1119;
{ /* ./DotNet/instr.scm 309 */
bool_t BgL_test3543z00_1121;
BgL_test3543z00_1121 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_opz00_84, 
CNST_TABLE_REF(((long)87))); 
if(BgL_test3543z00_1121)
{ /* ./DotNet/instr.scm 310 */
obj_t BgL_arg3545z00_1122;obj_t BgL_arg3546z00_1123;
BgL_arg3545z00_1122 = 
CNST_TABLE_REF(((long)100)); 
BgL_arg3546z00_1123 = 
MAKE_PAIR(BgL_labz00_86, BNIL); 
BgL_arg3541z00_1119 = 
MAKE_PAIR(BgL_arg3545z00_1122, BgL_arg3546z00_1123); }  else 
{ /* ./DotNet/instr.scm 309 */
bool_t BgL_test3549z00_1124;
BgL_test3549z00_1124 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_opz00_84, 
CNST_TABLE_REF(((long)89))); 
if(BgL_test3549z00_1124)
{ /* ./DotNet/instr.scm 311 */
obj_t BgL_arg3552z00_1125;obj_t BgL_arg3553z00_1126;
BgL_arg3552z00_1125 = 
CNST_TABLE_REF(((long)101)); 
BgL_arg3553z00_1126 = 
MAKE_PAIR(BgL_labz00_86, BNIL); 
BgL_arg3541z00_1119 = 
MAKE_PAIR(BgL_arg3552z00_1125, BgL_arg3553z00_1126); }  else 
{ /* ./DotNet/instr.scm 309 */
bool_t BgL_test3556z00_1127;
BgL_test3556z00_1127 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_opz00_84, 
CNST_TABLE_REF(((long)91))); 
if(BgL_test3556z00_1127)
{ /* ./DotNet/instr.scm 312 */
obj_t BgL_arg3558z00_1128;obj_t BgL_arg3559z00_1129;
BgL_arg3558z00_1128 = 
CNST_TABLE_REF(((long)102)); 
BgL_arg3559z00_1129 = 
MAKE_PAIR(BgL_labz00_86, BNIL); 
BgL_arg3541z00_1119 = 
MAKE_PAIR(BgL_arg3558z00_1128, BgL_arg3559z00_1129); }  else 
{ /* ./DotNet/instr.scm 309 */
bool_t BgL_test3562z00_1130;
BgL_test3562z00_1130 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_opz00_84, 
CNST_TABLE_REF(((long)93))); 
if(BgL_test3562z00_1130)
{ /* ./DotNet/instr.scm 313 */
obj_t BgL_arg3564z00_1131;obj_t BgL_arg3565z00_1132;
BgL_arg3564z00_1131 = 
CNST_TABLE_REF(((long)103)); 
BgL_arg3565z00_1132 = 
MAKE_PAIR(BgL_labz00_86, BNIL); 
BgL_arg3541z00_1119 = 
MAKE_PAIR(BgL_arg3564z00_1131, BgL_arg3565z00_1132); }  else 
{ /* ./DotNet/instr.scm 309 */
bool_t BgL_test3568z00_1133;
BgL_test3568z00_1133 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_opz00_84, 
CNST_TABLE_REF(((long)95))); 
if(BgL_test3568z00_1133)
{ /* ./DotNet/instr.scm 314 */
obj_t BgL_arg3570z00_1134;obj_t BgL_arg3571z00_1135;
BgL_arg3570z00_1134 = 
CNST_TABLE_REF(((long)104)); 
BgL_arg3571z00_1135 = 
MAKE_PAIR(BgL_labz00_86, BNIL); 
BgL_arg3541z00_1119 = 
MAKE_PAIR(BgL_arg3570z00_1134, BgL_arg3571z00_1135); }  else 
{ /* ./DotNet/instr.scm 309 */
bool_t BgL_test3574z00_1136;
BgL_test3574z00_1136 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_opz00_84, 
CNST_TABLE_REF(((long)97))); 
if(BgL_test3574z00_1136)
{ /* ./DotNet/instr.scm 315 */
obj_t BgL_arg3576z00_1137;obj_t BgL_arg3577z00_1138;
BgL_arg3576z00_1137 = 
CNST_TABLE_REF(((long)105)); 
BgL_arg3577z00_1138 = 
MAKE_PAIR(BgL_labz00_86, BNIL); 
BgL_arg3541z00_1119 = 
MAKE_PAIR(BgL_arg3576z00_1137, BgL_arg3577z00_1138); }  else 
{ /* ./DotNet/instr.scm 316 */
obj_t BgL_procz00_2635;
BgL_procz00_2635 = 
CNST_TABLE_REF(((long)106)); 
FAILURE(BgL_procz00_2635,BGl_string5779z00zzdotnet_instrz00,BgL_opz00_84);} } } } } } } 
{ /* ./DotNet/instr.scm 308 */
obj_t BgL_arg3131z00_2641;
{ /* ./DotNet/instr.scm 308 */
obj_t BgL_arg3134z00_2642;
BgL_arg3134z00_2642 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_85))->BgL_codez00); 
BgL_arg3131z00_2641 = 
MAKE_PAIR(BgL_arg3541z00_1119, BgL_arg3134z00_2642); } 
{ /* ./DotNet/instr.scm 308 */
BgL_envz00_bglt BgL_obj2963z00_2644;obj_t BgL_val2962z00_2645;
BgL_obj2963z00_2644 = BgL_envz00_85; 
BgL_val2962z00_2645 = BgL_arg3131z00_2641; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2644))->BgL_codez00) = ((obj_t)BgL_val2962z00_2645), BUNSPEC); } } ((bool_t)1); } 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_85, 
CNST_TABLE_REF(((long)4))); 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_85, 
CNST_TABLE_REF(((long)4)));} 
}



/* __if_icmp5508 */
obj_t BGl___if_icmp5508z00zzdotnet_instrz00(obj_t BgL_envz00_3209, obj_t BgL_opz00_3210, obj_t BgL_envz00_3211, obj_t BgL_labz00_3212)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 307 */
return 
BGl__if_icmpz00zzdotnet_instrz00(BgL_opz00_3210, 
(BgL_envz00_bglt)(BgL_envz00_3211), BgL_labz00_3212);} 
}



/* _if_acmp */
BGL_EXPORTED_DEF obj_t BGl__if_acmpz00zzdotnet_instrz00(obj_t BgL_opz00_87, BgL_envz00_bglt BgL_envz00_88, obj_t BgL_labz00_89)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 320 */
{ /* ./DotNet/instr.scm 322 */
obj_t BgL_arg3590z00_1139;
{ /* ./DotNet/instr.scm 322 */
bool_t BgL_test3592z00_1141;
BgL_test3592z00_1141 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_opz00_87, 
CNST_TABLE_REF(((long)87))); 
if(BgL_test3592z00_1141)
{ /* ./DotNet/instr.scm 323 */
obj_t BgL_arg3594z00_1142;obj_t BgL_arg3595z00_1143;
BgL_arg3594z00_1142 = 
CNST_TABLE_REF(((long)107)); 
BgL_arg3595z00_1143 = 
MAKE_PAIR(BgL_labz00_89, BNIL); 
BgL_arg3590z00_1139 = 
MAKE_PAIR(BgL_arg3594z00_1142, BgL_arg3595z00_1143); }  else 
{ /* ./DotNet/instr.scm 322 */
bool_t BgL_test3598z00_1144;
BgL_test3598z00_1144 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_opz00_87, 
CNST_TABLE_REF(((long)89))); 
if(BgL_test3598z00_1144)
{ /* ./DotNet/instr.scm 324 */
obj_t BgL_arg3600z00_1145;obj_t BgL_arg3601z00_1146;
BgL_arg3600z00_1145 = 
CNST_TABLE_REF(((long)108)); 
BgL_arg3601z00_1146 = 
MAKE_PAIR(BgL_labz00_89, BNIL); 
BgL_arg3590z00_1139 = 
MAKE_PAIR(BgL_arg3600z00_1145, BgL_arg3601z00_1146); }  else 
{ /* ./DotNet/instr.scm 325 */
obj_t BgL_procz00_2646;
BgL_procz00_2646 = 
CNST_TABLE_REF(((long)109)); 
FAILURE(BgL_procz00_2646,BGl_string5779z00zzdotnet_instrz00,BgL_opz00_87);} } } 
{ /* ./DotNet/instr.scm 321 */
obj_t BgL_arg3131z00_2652;
{ /* ./DotNet/instr.scm 321 */
obj_t BgL_arg3134z00_2653;
BgL_arg3134z00_2653 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_88))->BgL_codez00); 
BgL_arg3131z00_2652 = 
MAKE_PAIR(BgL_arg3590z00_1139, BgL_arg3134z00_2653); } 
{ /* ./DotNet/instr.scm 321 */
BgL_envz00_bglt BgL_obj2963z00_2655;obj_t BgL_val2962z00_2656;
BgL_obj2963z00_2655 = BgL_envz00_88; 
BgL_val2962z00_2656 = BgL_arg3131z00_2652; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2655))->BgL_codez00) = ((obj_t)BgL_val2962z00_2656), BUNSPEC); } } ((bool_t)1); } 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_88, 
CNST_TABLE_REF(((long)8))); 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_88, 
CNST_TABLE_REF(((long)8)));} 
}



/* __if_acmp5510 */
obj_t BGl___if_acmp5510z00zzdotnet_instrz00(obj_t BgL_envz00_3213, obj_t BgL_opz00_3214, obj_t BgL_envz00_3215, obj_t BgL_labz00_3216)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 320 */
return 
BGl__if_acmpz00zzdotnet_instrz00(BgL_opz00_3214, 
(BgL_envz00_bglt)(BgL_envz00_3215), BgL_labz00_3216);} 
}



/* _if_dcmp */
BGL_EXPORTED_DEF obj_t BGl__if_dcmpz00zzdotnet_instrz00(obj_t BgL_opz00_90, BgL_envz00_bglt BgL_envz00_91, obj_t BgL_labz00_92)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 329 */
{ /* ./DotNet/instr.scm 331 */
obj_t BgL_arg3610z00_1147;
{ /* ./DotNet/instr.scm 331 */
bool_t BgL_test3612z00_1149;
BgL_test3612z00_1149 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_opz00_90, 
CNST_TABLE_REF(((long)87))); 
if(BgL_test3612z00_1149)
{ /* ./DotNet/instr.scm 332 */
obj_t BgL_arg3614z00_1150;obj_t BgL_arg3615z00_1151;
BgL_arg3614z00_1150 = 
CNST_TABLE_REF(((long)110)); 
BgL_arg3615z00_1151 = 
MAKE_PAIR(BgL_labz00_92, BNIL); 
BgL_arg3610z00_1147 = 
MAKE_PAIR(BgL_arg3614z00_1150, BgL_arg3615z00_1151); }  else 
{ /* ./DotNet/instr.scm 331 */
bool_t BgL_test3618z00_1152;
BgL_test3618z00_1152 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_opz00_90, 
CNST_TABLE_REF(((long)89))); 
if(BgL_test3618z00_1152)
{ /* ./DotNet/instr.scm 333 */
obj_t BgL_arg3620z00_1153;obj_t BgL_arg3621z00_1154;
BgL_arg3620z00_1153 = 
CNST_TABLE_REF(((long)111)); 
BgL_arg3621z00_1154 = 
MAKE_PAIR(BgL_labz00_92, BNIL); 
BgL_arg3610z00_1147 = 
MAKE_PAIR(BgL_arg3620z00_1153, BgL_arg3621z00_1154); }  else 
{ /* ./DotNet/instr.scm 331 */
bool_t BgL_test3624z00_1155;
BgL_test3624z00_1155 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_opz00_90, 
CNST_TABLE_REF(((long)91))); 
if(BgL_test3624z00_1155)
{ /* ./DotNet/instr.scm 334 */
obj_t BgL_arg3626z00_1156;obj_t BgL_arg3627z00_1157;
BgL_arg3626z00_1156 = 
CNST_TABLE_REF(((long)112)); 
BgL_arg3627z00_1157 = 
MAKE_PAIR(BgL_labz00_92, BNIL); 
BgL_arg3610z00_1147 = 
MAKE_PAIR(BgL_arg3626z00_1156, BgL_arg3627z00_1157); }  else 
{ /* ./DotNet/instr.scm 331 */
bool_t BgL_test3630z00_1158;
BgL_test3630z00_1158 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_opz00_90, 
CNST_TABLE_REF(((long)93))); 
if(BgL_test3630z00_1158)
{ /* ./DotNet/instr.scm 335 */
obj_t BgL_arg3632z00_1159;obj_t BgL_arg3633z00_1160;
BgL_arg3632z00_1159 = 
CNST_TABLE_REF(((long)113)); 
BgL_arg3633z00_1160 = 
MAKE_PAIR(BgL_labz00_92, BNIL); 
BgL_arg3610z00_1147 = 
MAKE_PAIR(BgL_arg3632z00_1159, BgL_arg3633z00_1160); }  else 
{ /* ./DotNet/instr.scm 331 */
bool_t BgL_test3636z00_1161;
BgL_test3636z00_1161 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_opz00_90, 
CNST_TABLE_REF(((long)95))); 
if(BgL_test3636z00_1161)
{ /* ./DotNet/instr.scm 336 */
obj_t BgL_arg3638z00_1162;obj_t BgL_arg3639z00_1163;
BgL_arg3638z00_1162 = 
CNST_TABLE_REF(((long)114)); 
BgL_arg3639z00_1163 = 
MAKE_PAIR(BgL_labz00_92, BNIL); 
BgL_arg3610z00_1147 = 
MAKE_PAIR(BgL_arg3638z00_1162, BgL_arg3639z00_1163); }  else 
{ /* ./DotNet/instr.scm 331 */
bool_t BgL_test3642z00_1164;
BgL_test3642z00_1164 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_opz00_90, 
CNST_TABLE_REF(((long)97))); 
if(BgL_test3642z00_1164)
{ /* ./DotNet/instr.scm 337 */
obj_t BgL_arg3644z00_1165;obj_t BgL_arg3645z00_1166;
BgL_arg3644z00_1165 = 
CNST_TABLE_REF(((long)115)); 
BgL_arg3645z00_1166 = 
MAKE_PAIR(BgL_labz00_92, BNIL); 
BgL_arg3610z00_1147 = 
MAKE_PAIR(BgL_arg3644z00_1165, BgL_arg3645z00_1166); }  else 
{ /* ./DotNet/instr.scm 338 */
obj_t BgL_procz00_2657;
BgL_procz00_2657 = 
CNST_TABLE_REF(((long)116)); 
FAILURE(BgL_procz00_2657,BGl_string5779z00zzdotnet_instrz00,BgL_opz00_90);} } } } } } } 
{ /* ./DotNet/instr.scm 330 */
obj_t BgL_arg3131z00_2663;
{ /* ./DotNet/instr.scm 330 */
obj_t BgL_arg3134z00_2664;
BgL_arg3134z00_2664 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_91))->BgL_codez00); 
BgL_arg3131z00_2663 = 
MAKE_PAIR(BgL_arg3610z00_1147, BgL_arg3134z00_2664); } 
{ /* ./DotNet/instr.scm 330 */
BgL_envz00_bglt BgL_obj2963z00_2666;obj_t BgL_val2962z00_2667;
BgL_obj2963z00_2666 = BgL_envz00_91; 
BgL_val2962z00_2667 = BgL_arg3131z00_2663; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2666))->BgL_codez00) = ((obj_t)BgL_val2962z00_2667), BUNSPEC); } } ((bool_t)1); } 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_91, 
CNST_TABLE_REF(((long)7))); 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_91, 
CNST_TABLE_REF(((long)7)));} 
}



/* __if_dcmp5512 */
obj_t BGl___if_dcmp5512z00zzdotnet_instrz00(obj_t BgL_envz00_3217, obj_t BgL_opz00_3218, obj_t BgL_envz00_3219, obj_t BgL_labz00_3220)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 329 */
return 
BGl__if_dcmpz00zzdotnet_instrz00(BgL_opz00_3218, 
(BgL_envz00_bglt)(BgL_envz00_3219), BgL_labz00_3220);} 
}



/* _goto */
BGL_EXPORTED_DEF obj_t BGl__gotoz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_93, obj_t BgL_labz00_94)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 342 */
{ /* ./DotNet/instr.scm 343 */
obj_t BgL_arg3658z00_2668;
{ /* ./DotNet/instr.scm 343 */
obj_t BgL_arg3661z00_2669;obj_t BgL_arg3662z00_2670;
BgL_arg3661z00_2669 = 
CNST_TABLE_REF(((long)9)); 
BgL_arg3662z00_2670 = 
MAKE_PAIR(BgL_labz00_94, BNIL); 
BgL_arg3658z00_2668 = 
MAKE_PAIR(BgL_arg3661z00_2669, BgL_arg3662z00_2670); } 
{ /* ./DotNet/instr.scm 343 */
obj_t BgL_arg3131z00_2674;
{ /* ./DotNet/instr.scm 343 */
obj_t BgL_arg3134z00_2675;
BgL_arg3134z00_2675 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_93))->BgL_codez00); 
BgL_arg3131z00_2674 = 
MAKE_PAIR(BgL_arg3658z00_2668, BgL_arg3134z00_2675); } 
{ /* ./DotNet/instr.scm 343 */
BgL_envz00_bglt BgL_obj2963z00_2677;obj_t BgL_val2962z00_2678;
BgL_obj2963z00_2677 = BgL_envz00_93; 
BgL_val2962z00_2678 = BgL_arg3131z00_2674; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2677))->BgL_codez00) = ((obj_t)BgL_val2962z00_2678), BUNSPEC); } } 
return BTRUE;} } 
}



/* __goto5514 */
obj_t BGl___goto5514z00zzdotnet_instrz00(obj_t BgL_envz00_3221, obj_t BgL_envz00_3222, obj_t BgL_labz00_3223)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 342 */
return 
BGl__gotoz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3222), BgL_labz00_3223);} 
}



/* _switch */
BGL_EXPORTED_DEF obj_t BGl__switchz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_95, obj_t BgL_ldefz00_96, obj_t BgL_num2labz00_97)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 345 */
{ /* ./DotNet/instr.scm 347 */
bool_t BgL_test3665z00_1170;
{ /* ./DotNet/instr.scm 347 */
obj_t BgL_objz00_2679;
BgL_objz00_2679 = BgL_num2labz00_97; 
BgL_test3665z00_1170 = 
NULLP(BgL_objz00_2679); } 
if(BgL_test3665z00_1170)
{ /* ./DotNet/instr.scm 347 */
BGl__popz00zzdotnet_instrz00(BgL_envz00_95, 
CNST_TABLE_REF(((long)4))); 
{ /* ./DotNet/instr.scm 349 */
obj_t BgL_arg3658z00_2682;
{ /* ./DotNet/instr.scm 349 */
obj_t BgL_arg3661z00_2683;obj_t BgL_arg3662z00_2684;
BgL_arg3661z00_2683 = 
CNST_TABLE_REF(((long)9)); 
BgL_arg3662z00_2684 = 
MAKE_PAIR(BgL_ldefz00_96, BNIL); 
BgL_arg3658z00_2682 = 
MAKE_PAIR(BgL_arg3661z00_2683, BgL_arg3662z00_2684); } 
return 
BGl_envzd2codez12zc0zzdotnet_instrz00(BgL_envz00_95, BgL_arg3658z00_2682);} }  else 
{ /* ./DotNet/instr.scm 350 */
bool_t BgL_test3668z00_1171;
{ /* ./DotNet/instr.scm 350 */
obj_t BgL_arg3739z00_1207;
{ /* ./DotNet/instr.scm 350 */
obj_t BgL_pairz00_2685;
BgL_pairz00_2685 = BgL_num2labz00_97; 
BgL_arg3739z00_1207 = 
CDR(BgL_pairz00_2685); } 
BgL_test3668z00_1171 = 
NULLP(BgL_arg3739z00_1207); } 
if(BgL_test3668z00_1171)
{ /* ./DotNet/instr.scm 350 */
{ /* ./DotNet/instr.scm 351 */
obj_t BgL_arg3670z00_1172;obj_t BgL_arg3671z00_1173;
BgL_arg3670z00_1172 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./DotNet/instr.scm 351 */
obj_t BgL_pairz00_2687;
BgL_pairz00_2687 = BgL_num2labz00_97; 
{ /* ./DotNet/instr.scm 351 */
obj_t BgL_auxz00_4206;
BgL_auxz00_4206 = 
CAR(BgL_pairz00_2687); 
BgL_arg3671z00_1173 = 
CAR(BgL_auxz00_4206); } } 
BGl__pushz00zzdotnet_instrz00(BgL_envz00_95, BgL_arg3670z00_1172, BgL_arg3671z00_1173); } 
BGl__if_icmpz00zzdotnet_instrz00(
CNST_TABLE_REF(((long)89)), BgL_envz00_95, BgL_ldefz00_96); 
{ /* ./DotNet/instr.scm 353 */
obj_t BgL_arg3676z00_1174;
{ /* ./DotNet/instr.scm 353 */
obj_t BgL_pairz00_2691;
BgL_pairz00_2691 = BgL_num2labz00_97; 
{ /* ./DotNet/instr.scm 353 */
obj_t BgL_auxz00_4212;
BgL_auxz00_4212 = 
CAR(BgL_pairz00_2691); 
BgL_arg3676z00_1174 = 
CDR(BgL_auxz00_4212); } } 
{ /* ./DotNet/instr.scm 353 */
obj_t BgL_arg3658z00_2697;
{ /* ./DotNet/instr.scm 353 */
obj_t BgL_arg3661z00_2698;obj_t BgL_arg3662z00_2699;
BgL_arg3661z00_2698 = 
CNST_TABLE_REF(((long)9)); 
BgL_arg3662z00_2699 = 
MAKE_PAIR(BgL_arg3676z00_1174, BNIL); 
BgL_arg3658z00_2697 = 
MAKE_PAIR(BgL_arg3661z00_2698, BgL_arg3662z00_2699); } 
return 
BGl_envzd2codez12zc0zzdotnet_instrz00(BgL_envz00_95, BgL_arg3658z00_2697);} } }  else 
{ /* ./DotNet/instr.scm 350 */
BgL_num2labz00_97 = 
BGl_sortz00zz__r4_vectors_6_8z00(BgL_num2labz00_97, BGl_proc5780z00zzdotnet_instrz00); 
{ /* ./DotNet/instr.scm 356 */
obj_t BgL_numsz00_1182;
{ /* ./DotNet/instr.scm 356 */
obj_t BgL_l3027z00_1191;
BgL_l3027z00_1191 = BgL_num2labz00_97; 
{ /* ./DotNet/instr.scm 356 */
bool_t BgL_test3708z00_1192;
BgL_test3708z00_1192 = 
NULLP(BgL_l3027z00_1191); 
if(BgL_test3708z00_1192)
{ /* ./DotNet/instr.scm 356 */
BgL_numsz00_1182 = BNIL; }  else 
{ /* ./DotNet/instr.scm 356 */
obj_t BgL_head3029z00_1193;
{ /* ./DotNet/instr.scm 356 */
obj_t BgL_arg3730z00_1204;
{ /* ./DotNet/instr.scm 356 */
obj_t BgL_auxz00_4222;
BgL_auxz00_4222 = 
CAR(BgL_l3027z00_1191); 
BgL_arg3730z00_1204 = 
CAR(BgL_auxz00_4222); } 
BgL_head3029z00_1193 = 
MAKE_PAIR(BgL_arg3730z00_1204, BNIL); } 
{ 
obj_t BgL_l3027z00_1194;obj_t BgL_tail3030z00_1195;
{ /* ./DotNet/instr.scm 356 */
obj_t BgL_arg3710z00_1197;
BgL_arg3710z00_1197 = 
CDR(BgL_l3027z00_1191); 
BgL_l3027z00_1194 = BgL_arg3710z00_1197; 
BgL_tail3030z00_1195 = BgL_head3029z00_1193; 
BgL_map3028z00_1196:
{ /* ./DotNet/instr.scm 356 */
bool_t BgL_test3713z00_1198;
BgL_test3713z00_1198 = 
NULLP(BgL_l3027z00_1194); 
if(BgL_test3713z00_1198)
{ /* ./DotNet/instr.scm 356 */
BgL_numsz00_1182 = BgL_head3029z00_1193; }  else 
{ /* ./DotNet/instr.scm 356 */
obj_t BgL_newtail3031z00_1199;
{ /* ./DotNet/instr.scm 356 */
obj_t BgL_arg3721z00_1201;
{ /* ./DotNet/instr.scm 356 */
obj_t BgL_auxz00_4229;
BgL_auxz00_4229 = 
CAR(BgL_l3027z00_1194); 
BgL_arg3721z00_1201 = 
CAR(BgL_auxz00_4229); } 
BgL_newtail3031z00_1199 = 
MAKE_PAIR(BgL_arg3721z00_1201, BNIL); } 
SET_CDR(BgL_tail3030z00_1195, BgL_newtail3031z00_1199); 
{ /* ./DotNet/instr.scm 356 */
obj_t BgL_arg3717z00_1200;
BgL_arg3717z00_1200 = 
CDR(BgL_l3027z00_1194); 
{ 
obj_t BgL_tail3030z00_4236;obj_t BgL_l3027z00_4235;
BgL_l3027z00_4235 = BgL_arg3717z00_1200; 
BgL_tail3030z00_4236 = BgL_newtail3031z00_1199; 
BgL_tail3030z00_1195 = BgL_tail3030z00_4236; 
BgL_l3027z00_1194 = BgL_l3027z00_4235; 
goto BgL_map3028z00_1196;} } } } } } } } } 
{ /* ./DotNet/instr.scm 359 */

{ /* ./DotNet/instr.scm 360 */
obj_t BgL_arg3691z00_1186;
{ /* ./DotNet/instr.scm 360 */
obj_t BgL_arg3694z00_1187;obj_t BgL_arg3695z00_1188;
BgL_arg3694z00_1187 = 
CNST_TABLE_REF(((long)117)); 
{ /* ./DotNet/instr.scm 360 */
obj_t BgL_arg3698z00_1189;
BgL_arg3698z00_1189 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_num2labz00_97, BNIL); 
BgL_arg3695z00_1188 = 
MAKE_PAIR(BgL_ldefz00_96, BgL_arg3698z00_1189); } 
BgL_arg3691z00_1186 = 
MAKE_PAIR(BgL_arg3694z00_1187, BgL_arg3695z00_1188); } 
{ /* ./DotNet/instr.scm 360 */
obj_t BgL_arg3131z00_2725;
{ /* ./DotNet/instr.scm 360 */
obj_t BgL_arg3134z00_2726;
BgL_arg3134z00_2726 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_95))->BgL_codez00); 
BgL_arg3131z00_2725 = 
MAKE_PAIR(BgL_arg3691z00_1186, BgL_arg3134z00_2726); } 
{ /* ./DotNet/instr.scm 360 */
BgL_envz00_bglt BgL_obj2963z00_2728;obj_t BgL_val2962z00_2729;
BgL_obj2963z00_2728 = BgL_envz00_95; 
BgL_val2962z00_2729 = BgL_arg3131z00_2725; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2728))->BgL_codez00) = ((obj_t)BgL_val2962z00_2729), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_95, 
CNST_TABLE_REF(((long)4)));} } } } } } 
}



/* __switch5516 */
obj_t BGl___switch5516z00zzdotnet_instrz00(obj_t BgL_envz00_3225, obj_t BgL_envz00_3226, obj_t BgL_ldefz00_3227, obj_t BgL_num2labz00_3228)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 345 */
return 
BGl__switchz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3226), BgL_ldefz00_3227, BgL_num2labz00_3228);} 
}



/* <anonymous:3683> */
obj_t BGl_zc3anonymousza33683ze3z83zzdotnet_instrz00(obj_t BgL_envz00_3229, obj_t BgL_xz00_3230, obj_t BgL_yz00_3231)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 355 */
{ 
obj_t BgL_xz00_1176;obj_t BgL_yz00_1177;
{ /* ./DotNet/instr.scm 355 */
bool_t BgL_auxz00_4248;
BgL_xz00_1176 = BgL_xz00_3230; 
BgL_yz00_1177 = BgL_yz00_3231; 
{ /* ./DotNet/instr.scm 355 */
long BgL_auxz00_4253;long BgL_auxz00_4249;
{ /* ./DotNet/instr.scm 355 */
obj_t BgL_auxz00_4254;
BgL_auxz00_4254 = 
CAR(BgL_yz00_1177); 
BgL_auxz00_4253 = 
(long)CINT(BgL_auxz00_4254); } 
{ /* ./DotNet/instr.scm 355 */
obj_t BgL_auxz00_4250;
BgL_auxz00_4250 = 
CAR(BgL_xz00_1176); 
BgL_auxz00_4249 = 
(long)CINT(BgL_auxz00_4250); } 
BgL_auxz00_4248 = 
(BgL_auxz00_4249<BgL_auxz00_4253); } 
return 
BBOOL(BgL_auxz00_4248);} } } 
}



/* _new */
BGL_EXPORTED_DEF obj_t BGl__newz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_100, obj_t BgL_typez00_101)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 374 */
{ /* ./DotNet/instr.scm 375 */
obj_t BgL_arg3784z00_1229;
{ /* ./DotNet/instr.scm 375 */
obj_t BgL_arg3787z00_1230;obj_t BgL_arg3788z00_1231;
BgL_arg3787z00_1230 = 
CNST_TABLE_REF(((long)118)); 
BgL_arg3788z00_1231 = 
MAKE_PAIR(BgL_typez00_101, BNIL); 
BgL_arg3784z00_1229 = 
MAKE_PAIR(BgL_arg3787z00_1230, BgL_arg3788z00_1231); } 
{ /* ./DotNet/instr.scm 375 */
obj_t BgL_arg3131z00_2733;
{ /* ./DotNet/instr.scm 375 */
obj_t BgL_arg3134z00_2734;
BgL_arg3134z00_2734 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_100))->BgL_codez00); 
BgL_arg3131z00_2733 = 
MAKE_PAIR(BgL_arg3784z00_1229, BgL_arg3134z00_2734); } 
{ /* ./DotNet/instr.scm 375 */
BgL_envz00_bglt BgL_obj2963z00_2736;obj_t BgL_val2962z00_2737;
BgL_obj2963z00_2736 = BgL_envz00_100; 
BgL_val2962z00_2737 = BgL_arg3131z00_2733; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2736))->BgL_codez00) = ((obj_t)BgL_val2962z00_2737), BUNSPEC); } } ((bool_t)1); } 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_100, 
CNST_TABLE_REF(((long)8)));} 
}



/* __new5518 */
obj_t BGl___new5518z00zzdotnet_instrz00(obj_t BgL_envz00_3232, obj_t BgL_envz00_3233, obj_t BgL_typez00_3234)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 374 */
return 
BGl__newz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3233), BgL_typez00_3234);} 
}



/* _instanceof */
BGL_EXPORTED_DEF obj_t BGl__instanceofz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_102, obj_t BgL_typez00_103)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 378 */
{ /* ./DotNet/instr.scm 379 */
obj_t BgL_arg3793z00_1232;
{ /* ./DotNet/instr.scm 379 */
obj_t BgL_arg3796z00_1233;obj_t BgL_arg3797z00_1234;
BgL_arg3796z00_1233 = 
CNST_TABLE_REF(((long)119)); 
BgL_arg3797z00_1234 = 
MAKE_PAIR(BgL_typez00_103, BNIL); 
BgL_arg3793z00_1232 = 
MAKE_PAIR(BgL_arg3796z00_1233, BgL_arg3797z00_1234); } 
{ /* ./DotNet/instr.scm 379 */
obj_t BgL_arg3131z00_2741;
{ /* ./DotNet/instr.scm 379 */
obj_t BgL_arg3134z00_2742;
BgL_arg3134z00_2742 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_102))->BgL_codez00); 
BgL_arg3131z00_2741 = 
MAKE_PAIR(BgL_arg3793z00_1232, BgL_arg3134z00_2742); } 
{ /* ./DotNet/instr.scm 379 */
BgL_envz00_bglt BgL_obj2963z00_2744;obj_t BgL_val2962z00_2745;
BgL_obj2963z00_2744 = BgL_envz00_102; 
BgL_val2962z00_2745 = BgL_arg3131z00_2741; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2744))->BgL_codez00) = ((obj_t)BgL_val2962z00_2745), BUNSPEC); } } ((bool_t)1); } 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_102, 
CNST_TABLE_REF(((long)8))); 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_102, 
CNST_TABLE_REF(((long)4)));} 
}



/* __instanceof5520 */
obj_t BGl___instanceof5520z00zzdotnet_instrz00(obj_t BgL_envz00_3235, obj_t BgL_envz00_3236, obj_t BgL_typez00_3237)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 378 */
return 
BGl__instanceofz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3236), BgL_typez00_3237);} 
}



/* _dotcheckcast */
BGL_EXPORTED_DEF obj_t BGl__dotcheckcastz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_104, obj_t BgL_fromz00_105, obj_t BgL_toz00_106)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 383 */
{ /* ./DotNet/instr.scm 384 */
obj_t BgL_bz00_1235;
BgL_bz00_1235 = 
CNST_TABLE_REF(((long)120)); 
{ /* ./DotNet/instr.scm 385 */
obj_t BgL_tfz00_1236;obj_t BgL_ttz00_1237;
BgL_tfz00_1236 = 
BGl_compilezd2typezd2zzdotnet_envz00(BgL_fromz00_105, BgL_envz00_104); 
BgL_ttz00_1237 = 
BGl_compilezd2typezd2zzdotnet_envz00(BgL_toz00_106, BgL_envz00_104); 
{ /* ./DotNet/instr.scm 386 */
bool_t BgL_test3802z00_1238;
{ /* ./DotNet/instr.scm 386 */
bool_t BgL_testz00_4284;
{ /* ./DotNet/instr.scm 386 */
obj_t BgL_auxz00_4285;
BgL_auxz00_4285 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_tfz00_1236, BgL_bz00_1235); 
BgL_testz00_4284 = 
CBOOL(BgL_auxz00_4285); } 
if(BgL_testz00_4284)
{ /* ./DotNet/instr.scm 386 */
BgL_test3802z00_1238 = ((bool_t)0); }  else 
{ /* ./DotNet/instr.scm 387 */
bool_t BgL_testz00_4288;
{ /* ./DotNet/instr.scm 387 */
obj_t BgL_auxz00_4289;
BgL_auxz00_4289 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_ttz00_1237, BgL_bz00_1235); 
BgL_testz00_4288 = 
CBOOL(BgL_auxz00_4289); } 
if(BgL_testz00_4288)
{ /* ./DotNet/instr.scm 387 */
BgL_test3802z00_1238 = ((bool_t)0); }  else 
{ /* ./DotNet/instr.scm 387 */
if(
(BgL_tfz00_1236==BgL_ttz00_1237))
{ /* ./DotNet/instr.scm 388 */
BgL_test3802z00_1238 = ((bool_t)0); }  else 
{ /* ./DotNet/instr.scm 388 */
BgL_test3802z00_1238 = ((bool_t)1); } } } } 
if(BgL_test3802z00_1238)
{ /* ./DotNet/instr.scm 389 */
obj_t BgL_arg3804z00_1239;
{ /* ./DotNet/instr.scm 389 */
obj_t BgL_arg3807z00_1240;obj_t BgL_arg3808z00_1241;
BgL_arg3807z00_1240 = 
CNST_TABLE_REF(((long)121)); 
BgL_arg3808z00_1241 = 
MAKE_PAIR(BgL_ttz00_1237, BNIL); 
BgL_arg3804z00_1239 = 
MAKE_PAIR(BgL_arg3807z00_1240, BgL_arg3808z00_1241); } 
{ /* ./DotNet/instr.scm 389 */
obj_t BgL_arg3131z00_2749;
{ /* ./DotNet/instr.scm 389 */
obj_t BgL_arg3134z00_2750;
BgL_arg3134z00_2750 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_104))->BgL_codez00); 
BgL_arg3131z00_2749 = 
MAKE_PAIR(BgL_arg3804z00_1239, BgL_arg3134z00_2750); } 
{ /* ./DotNet/instr.scm 389 */
BgL_envz00_bglt BgL_obj2963z00_2752;obj_t BgL_val2962z00_2753;
BgL_obj2963z00_2752 = BgL_envz00_104; 
BgL_val2962z00_2753 = BgL_arg3131z00_2749; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2752))->BgL_codez00) = ((obj_t)BgL_val2962z00_2753), BUNSPEC); } } 
return BTRUE;}  else 
{ /* ./DotNet/instr.scm 386 */
return BFALSE;} } } } } 
}



/* __dotcheckcast5522 */
obj_t BGl___dotcheckcast5522z00zzdotnet_instrz00(obj_t BgL_envz00_3238, obj_t BgL_envz00_3239, obj_t BgL_fromz00_3240, obj_t BgL_toz00_3241)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 383 */
return 
BGl__dotcheckcastz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3239), BgL_fromz00_3240, BgL_toz00_3241);} 
}



/* _checkcast */
BGL_EXPORTED_DEF obj_t BGl__checkcastz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_107, obj_t BgL_typez00_108)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 391 */
{ /* ./DotNet/instr.scm 392 */
bool_t BgL_test3819z00_1245;
{ /* ./DotNet/instr.scm 392 */
obj_t BgL_auxz00_4303;
BgL_auxz00_4303 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_typez00_108, 
CNST_TABLE_REF(((long)122))); 
BgL_test3819z00_1245 = 
CBOOL(BgL_auxz00_4303); } 
if(BgL_test3819z00_1245)
{ /* ./DotNet/instr.scm 392 */
return BFALSE;}  else 
{ /* ./DotNet/instr.scm 394 */
obj_t BgL_arg3821z00_1246;
{ /* ./DotNet/instr.scm 394 */
obj_t BgL_arg3824z00_1247;obj_t BgL_arg3825z00_1248;
BgL_arg3824z00_1247 = 
CNST_TABLE_REF(((long)121)); 
BgL_arg3825z00_1248 = 
MAKE_PAIR(BgL_typez00_108, BNIL); 
BgL_arg3821z00_1246 = 
MAKE_PAIR(BgL_arg3824z00_1247, BgL_arg3825z00_1248); } 
{ /* ./DotNet/instr.scm 394 */
obj_t BgL_arg3131z00_2757;
{ /* ./DotNet/instr.scm 394 */
obj_t BgL_arg3134z00_2758;
BgL_arg3134z00_2758 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_107))->BgL_codez00); 
BgL_arg3131z00_2757 = 
MAKE_PAIR(BgL_arg3821z00_1246, BgL_arg3134z00_2758); } 
{ /* ./DotNet/instr.scm 394 */
BgL_envz00_bglt BgL_obj2963z00_2760;obj_t BgL_val2962z00_2761;
BgL_obj2963z00_2760 = BgL_envz00_107; 
BgL_val2962z00_2761 = BgL_arg3131z00_2757; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2760))->BgL_codez00) = ((obj_t)BgL_val2962z00_2761), BUNSPEC); } } 
return BTRUE;} } } 
}



/* __checkcast5524 */
obj_t BGl___checkcast5524z00zzdotnet_instrz00(obj_t BgL_envz00_3242, obj_t BgL_envz00_3243, obj_t BgL_typez00_3244)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 391 */
return 
BGl__checkcastz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3243), BgL_typez00_3244);} 
}



/* _getfield */
BGL_EXPORTED_DEF obj_t BGl__getfieldz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_109, obj_t BgL_tyz00_110, obj_t BgL_varz00_111)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 396 */
{ /* ./DotNet/instr.scm 397 */
obj_t BgL_arg3830z00_1249;
{ /* ./DotNet/instr.scm 397 */
obj_t BgL_arg3833z00_1250;obj_t BgL_arg3834z00_1251;
BgL_arg3833z00_1250 = 
CNST_TABLE_REF(((long)123)); 
BgL_arg3834z00_1251 = 
MAKE_PAIR(BgL_varz00_111, BNIL); 
BgL_arg3830z00_1249 = 
MAKE_PAIR(BgL_arg3833z00_1250, BgL_arg3834z00_1251); } 
{ /* ./DotNet/instr.scm 397 */
obj_t BgL_arg3131z00_2765;
{ /* ./DotNet/instr.scm 397 */
obj_t BgL_arg3134z00_2766;
BgL_arg3134z00_2766 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_109))->BgL_codez00); 
BgL_arg3131z00_2765 = 
MAKE_PAIR(BgL_arg3830z00_1249, BgL_arg3134z00_2766); } 
{ /* ./DotNet/instr.scm 397 */
BgL_envz00_bglt BgL_obj2963z00_2768;obj_t BgL_val2962z00_2769;
BgL_obj2963z00_2768 = BgL_envz00_109; 
BgL_val2962z00_2769 = BgL_arg3131z00_2765; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2768))->BgL_codez00) = ((obj_t)BgL_val2962z00_2769), BUNSPEC); } } ((bool_t)1); } 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_109, 
CNST_TABLE_REF(((long)8))); 
{ /* ./DotNet/instr.scm 399 */
obj_t BgL_arg3839z00_1252;
BgL_arg3839z00_1252 = 
BGl_simplezd2typezd2zzdotnet_instrz00(BgL_tyz00_110); 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_109, BgL_arg3839z00_1252);} } 
}



/* __getfield5526 */
obj_t BGl___getfield5526z00zzdotnet_instrz00(obj_t BgL_envz00_3245, obj_t BgL_envz00_3246, obj_t BgL_tyz00_3247, obj_t BgL_varz00_3248)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 396 */
return 
BGl__getfieldz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3246), BgL_tyz00_3247, BgL_varz00_3248);} 
}



/* _putfield */
BGL_EXPORTED_DEF obj_t BGl__putfieldz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_112, obj_t BgL_varz00_113)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 401 */
{ /* ./DotNet/instr.scm 402 */
obj_t BgL_arg3843z00_1253;
{ /* ./DotNet/instr.scm 402 */
obj_t BgL_arg3846z00_1254;obj_t BgL_arg3847z00_1255;
BgL_arg3846z00_1254 = 
CNST_TABLE_REF(((long)124)); 
BgL_arg3847z00_1255 = 
MAKE_PAIR(BgL_varz00_113, BNIL); 
BgL_arg3843z00_1253 = 
MAKE_PAIR(BgL_arg3846z00_1254, BgL_arg3847z00_1255); } 
{ /* ./DotNet/instr.scm 402 */
obj_t BgL_arg3131z00_2773;
{ /* ./DotNet/instr.scm 402 */
obj_t BgL_arg3134z00_2774;
BgL_arg3134z00_2774 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_112))->BgL_codez00); 
BgL_arg3131z00_2773 = 
MAKE_PAIR(BgL_arg3843z00_1253, BgL_arg3134z00_2774); } 
{ /* ./DotNet/instr.scm 402 */
BgL_envz00_bglt BgL_obj2963z00_2776;obj_t BgL_val2962z00_2777;
BgL_obj2963z00_2776 = BgL_envz00_112; 
BgL_val2962z00_2777 = BgL_arg3131z00_2773; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2776))->BgL_codez00) = ((obj_t)BgL_val2962z00_2777), BUNSPEC); } } ((bool_t)1); } 
BGl_popz00zzdotnet_instrz00(BgL_envz00_112); 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_112, 
CNST_TABLE_REF(((long)8)));} 
}



/* __putfield5528 */
obj_t BGl___putfield5528z00zzdotnet_instrz00(obj_t BgL_envz00_3249, obj_t BgL_envz00_3250, obj_t BgL_varz00_3251)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 401 */
return 
BGl__putfieldz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3250), BgL_varz00_3251);} 
}



/* _newarray */
BGL_EXPORTED_DEF obj_t BGl__newarrayz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_114, obj_t BgL_typez00_115)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 407 */
{ /* ./DotNet/instr.scm 409 */
obj_t BgL_arg3853z00_1256;
{ /* ./DotNet/instr.scm 409 */
bool_t BgL_test3855z00_1258;
{ /* ./DotNet/instr.scm 409 */
obj_t BgL_auxz00_4339;
BgL_auxz00_4339 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_typez00_115, 
CNST_TABLE_REF(((long)125))); 
BgL_test3855z00_1258 = 
CBOOL(BgL_auxz00_4339); } 
if(BgL_test3855z00_1258)
{ /* ./DotNet/instr.scm 411 */
obj_t BgL_arg3857z00_1259;obj_t BgL_arg3858z00_1260;
BgL_arg3857z00_1259 = 
CNST_TABLE_REF(((long)126)); 
BgL_arg3858z00_1260 = 
MAKE_PAIR(BgL_typez00_115, BNIL); 
BgL_arg3853z00_1256 = 
MAKE_PAIR(BgL_arg3857z00_1259, BgL_arg3858z00_1260); }  else 
{ /* ./DotNet/instr.scm 412 */
obj_t BgL_arg3862z00_1261;obj_t BgL_arg3863z00_1262;
BgL_arg3862z00_1261 = 
CNST_TABLE_REF(((long)127)); 
BgL_arg3863z00_1262 = 
MAKE_PAIR(BgL_typez00_115, BNIL); 
BgL_arg3853z00_1256 = 
MAKE_PAIR(BgL_arg3862z00_1261, BgL_arg3863z00_1262); } } 
{ /* ./DotNet/instr.scm 408 */
obj_t BgL_arg3131z00_2781;
{ /* ./DotNet/instr.scm 408 */
obj_t BgL_arg3134z00_2782;
BgL_arg3134z00_2782 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_114))->BgL_codez00); 
BgL_arg3131z00_2781 = 
MAKE_PAIR(BgL_arg3853z00_1256, BgL_arg3134z00_2782); } 
{ /* ./DotNet/instr.scm 408 */
BgL_envz00_bglt BgL_obj2963z00_2784;obj_t BgL_val2962z00_2785;
BgL_obj2963z00_2784 = BgL_envz00_114; 
BgL_val2962z00_2785 = BgL_arg3131z00_2781; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2784))->BgL_codez00) = ((obj_t)BgL_val2962z00_2785), BUNSPEC); } } ((bool_t)1); } 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_114, 
CNST_TABLE_REF(((long)4))); 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_114, 
CNST_TABLE_REF(((long)8)));} 
}



/* __newarray5530 */
obj_t BGl___newarray5530z00zzdotnet_instrz00(obj_t BgL_envz00_3252, obj_t BgL_envz00_3253, obj_t BgL_typez00_3254)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 407 */
return 
BGl__newarrayz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3253), BgL_typez00_3254);} 
}



/* _aload */
BGL_EXPORTED_DEF obj_t BGl__aloadz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_116, obj_t BgL_typez00_117)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 416 */
{ /* ./DotNet/instr.scm 418 */
obj_t BgL_arg3870z00_1263;
{ /* ./DotNet/instr.scm 418 */
bool_t BgL_testz00_4359;
{ /* ./DotNet/instr.scm 418 */
obj_t BgL_auxz00_4360;
BgL_auxz00_4360 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_typez00_117, 
CNST_TABLE_REF(((long)128))); 
BgL_testz00_4359 = 
CBOOL(BgL_auxz00_4360); } 
if(BgL_testz00_4359)
{ /* ./DotNet/instr.scm 418 */
BgL_arg3870z00_1263 = 
CNST_TABLE_REF(((long)129)); }  else 
{ /* ./DotNet/instr.scm 418 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_117, 
CNST_TABLE_REF(((long)130))))
{ /* ./DotNet/instr.scm 418 */
BgL_arg3870z00_1263 = 
CNST_TABLE_REF(((long)131)); }  else 
{ /* ./DotNet/instr.scm 418 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_117, 
CNST_TABLE_REF(((long)132))))
{ /* ./DotNet/instr.scm 418 */
BgL_arg3870z00_1263 = 
CNST_TABLE_REF(((long)133)); }  else 
{ /* ./DotNet/instr.scm 418 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_117, 
CNST_TABLE_REF(((long)4))))
{ /* ./DotNet/instr.scm 418 */
BgL_arg3870z00_1263 = 
CNST_TABLE_REF(((long)134)); }  else 
{ /* ./DotNet/instr.scm 418 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_117, 
CNST_TABLE_REF(((long)5))))
{ /* ./DotNet/instr.scm 418 */
BgL_arg3870z00_1263 = 
CNST_TABLE_REF(((long)135)); }  else 
{ /* ./DotNet/instr.scm 418 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_117, 
CNST_TABLE_REF(((long)6))))
{ /* ./DotNet/instr.scm 418 */
BgL_arg3870z00_1263 = 
CNST_TABLE_REF(((long)136)); }  else 
{ /* ./DotNet/instr.scm 418 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_117, 
CNST_TABLE_REF(((long)7))))
{ /* ./DotNet/instr.scm 418 */
BgL_arg3870z00_1263 = 
CNST_TABLE_REF(((long)137)); }  else 
{ /* ./DotNet/instr.scm 418 */
BgL_arg3870z00_1263 = 
CNST_TABLE_REF(((long)138)); } } } } } } } } 
{ /* ./DotNet/instr.scm 417 */
obj_t BgL_arg3131z00_2789;
{ /* ./DotNet/instr.scm 417 */
obj_t BgL_arg3134z00_2790;
BgL_arg3134z00_2790 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_116))->BgL_codez00); 
BgL_arg3131z00_2789 = 
MAKE_PAIR(BgL_arg3870z00_1263, BgL_arg3134z00_2790); } 
{ /* ./DotNet/instr.scm 417 */
BgL_envz00_bglt BgL_obj2963z00_2792;obj_t BgL_val2962z00_2793;
BgL_obj2963z00_2792 = BgL_envz00_116; 
BgL_val2962z00_2793 = BgL_arg3131z00_2789; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2792))->BgL_codez00) = ((obj_t)BgL_val2962z00_2793), BUNSPEC); } } ((bool_t)1); } 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_116, 
CNST_TABLE_REF(((long)4))); 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_116, 
CNST_TABLE_REF(((long)8))); 
{ /* ./DotNet/instr.scm 429 */
obj_t BgL_arg3889z00_1272;
BgL_arg3889z00_1272 = 
BGl_simplezd2typezd2zzdotnet_instrz00(BgL_typez00_117); 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_116, BgL_arg3889z00_1272);} } 
}



/* __aload5532 */
obj_t BGl___aload5532z00zzdotnet_instrz00(obj_t BgL_envz00_3255, obj_t BgL_envz00_3256, obj_t BgL_typez00_3257)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 416 */
return 
BGl__aloadz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3256), BgL_typez00_3257);} 
}



/* _astore */
BGL_EXPORTED_DEF obj_t BGl__astorez00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_118, obj_t BgL_typez00_119)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 431 */
{ /* ./DotNet/instr.scm 433 */
obj_t BgL_arg3893z00_1273;
{ /* ./DotNet/instr.scm 433 */
bool_t BgL_testz00_4401;
{ /* ./DotNet/instr.scm 433 */
obj_t BgL_auxz00_4402;
BgL_auxz00_4402 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_typez00_119, 
CNST_TABLE_REF(((long)128))); 
BgL_testz00_4401 = 
CBOOL(BgL_auxz00_4402); } 
if(BgL_testz00_4401)
{ /* ./DotNet/instr.scm 433 */
BgL_arg3893z00_1273 = 
CNST_TABLE_REF(((long)139)); }  else 
{ /* ./DotNet/instr.scm 433 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_119, 
CNST_TABLE_REF(((long)130))))
{ /* ./DotNet/instr.scm 433 */
BgL_arg3893z00_1273 = 
CNST_TABLE_REF(((long)140)); }  else 
{ /* ./DotNet/instr.scm 433 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_119, 
CNST_TABLE_REF(((long)132))))
{ /* ./DotNet/instr.scm 433 */
BgL_arg3893z00_1273 = 
CNST_TABLE_REF(((long)141)); }  else 
{ /* ./DotNet/instr.scm 433 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_119, 
CNST_TABLE_REF(((long)4))))
{ /* ./DotNet/instr.scm 433 */
BgL_arg3893z00_1273 = 
CNST_TABLE_REF(((long)142)); }  else 
{ /* ./DotNet/instr.scm 433 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_119, 
CNST_TABLE_REF(((long)5))))
{ /* ./DotNet/instr.scm 433 */
BgL_arg3893z00_1273 = 
CNST_TABLE_REF(((long)143)); }  else 
{ /* ./DotNet/instr.scm 433 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_119, 
CNST_TABLE_REF(((long)6))))
{ /* ./DotNet/instr.scm 433 */
BgL_arg3893z00_1273 = 
CNST_TABLE_REF(((long)144)); }  else 
{ /* ./DotNet/instr.scm 433 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_119, 
CNST_TABLE_REF(((long)7))))
{ /* ./DotNet/instr.scm 433 */
BgL_arg3893z00_1273 = 
CNST_TABLE_REF(((long)145)); }  else 
{ /* ./DotNet/instr.scm 433 */
BgL_arg3893z00_1273 = 
CNST_TABLE_REF(((long)146)); } } } } } } } } 
{ /* ./DotNet/instr.scm 432 */
obj_t BgL_arg3131z00_2797;
{ /* ./DotNet/instr.scm 432 */
obj_t BgL_arg3134z00_2798;
BgL_arg3134z00_2798 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_118))->BgL_codez00); 
BgL_arg3131z00_2797 = 
MAKE_PAIR(BgL_arg3893z00_1273, BgL_arg3134z00_2798); } 
{ /* ./DotNet/instr.scm 432 */
BgL_envz00_bglt BgL_obj2963z00_2800;obj_t BgL_val2962z00_2801;
BgL_obj2963z00_2800 = BgL_envz00_118; 
BgL_val2962z00_2801 = BgL_arg3131z00_2797; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2800))->BgL_codez00) = ((obj_t)BgL_val2962z00_2801), BUNSPEC); } } ((bool_t)1); } 
BGl_popz00zzdotnet_instrz00(BgL_envz00_118); 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_118, 
CNST_TABLE_REF(((long)4))); 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_118, 
CNST_TABLE_REF(((long)8)));} 
}



/* __astore5534 */
obj_t BGl___astore5534z00zzdotnet_instrz00(obj_t BgL_envz00_3258, obj_t BgL_envz00_3259, obj_t BgL_typez00_3260)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 431 */
return 
BGl__astorez00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3259), BgL_typez00_3260);} 
}



/* _arraylength */
BGL_EXPORTED_DEF obj_t BGl__arraylengthz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_120)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 446 */
{ /* ./DotNet/instr.scm 447 */
obj_t BgL_insz00_2803;
BgL_insz00_2803 = 
CNST_TABLE_REF(((long)147)); 
{ /* ./DotNet/instr.scm 447 */
obj_t BgL_arg3131z00_2805;
{ /* ./DotNet/instr.scm 447 */
obj_t BgL_arg3134z00_2806;
BgL_arg3134z00_2806 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_120))->BgL_codez00); 
BgL_arg3131z00_2805 = 
MAKE_PAIR(BgL_insz00_2803, BgL_arg3134z00_2806); } 
{ /* ./DotNet/instr.scm 447 */
BgL_envz00_bglt BgL_obj2963z00_2808;obj_t BgL_val2962z00_2809;
BgL_obj2963z00_2808 = BgL_envz00_120; 
BgL_val2962z00_2809 = BgL_arg3131z00_2805; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2808))->BgL_codez00) = ((obj_t)BgL_val2962z00_2809), BUNSPEC); } } ((bool_t)1); } 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_120, 
CNST_TABLE_REF(((long)8))); 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_120, 
CNST_TABLE_REF(((long)4)));} 
}



/* __arraylength5536 */
obj_t BGl___arraylength5536z00zzdotnet_instrz00(obj_t BgL_envz00_3261, obj_t BgL_envz00_3262)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 446 */
return 
BGl__arraylengthz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3262));} 
}



/* _invokestatic */
BGL_EXPORTED_DEF obj_t BGl__invokestaticz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_121, obj_t BgL_varz00_122, obj_t BgL_targsz00_123, obj_t BgL_trz00_124)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 452 */
{ /* ./DotNet/instr.scm 453 */
obj_t BgL_arg3916z00_1282;
{ /* ./DotNet/instr.scm 453 */
obj_t BgL_arg3919z00_1283;obj_t BgL_arg3920z00_1284;
BgL_arg3919z00_1283 = 
CNST_TABLE_REF(((long)148)); 
BgL_arg3920z00_1284 = 
MAKE_PAIR(BgL_varz00_122, BNIL); 
BgL_arg3916z00_1282 = 
MAKE_PAIR(BgL_arg3919z00_1283, BgL_arg3920z00_1284); } 
{ /* ./DotNet/instr.scm 453 */
obj_t BgL_arg3131z00_2813;
{ /* ./DotNet/instr.scm 453 */
obj_t BgL_arg3134z00_2814;
BgL_arg3134z00_2814 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_121))->BgL_codez00); 
BgL_arg3131z00_2813 = 
MAKE_PAIR(BgL_arg3916z00_1282, BgL_arg3134z00_2814); } 
{ /* ./DotNet/instr.scm 453 */
BgL_envz00_bglt BgL_obj2963z00_2816;obj_t BgL_val2962z00_2817;
BgL_obj2963z00_2816 = BgL_envz00_121; 
BgL_val2962z00_2817 = BgL_arg3131z00_2813; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2816))->BgL_codez00) = ((obj_t)BgL_val2962z00_2817), BUNSPEC); } } ((bool_t)1); } 
{ 
obj_t BgL_l3032z00_1285;
{ /* ./DotNet/instr.scm 454 */
obj_t BgL_arg3924z00_1287;
BgL_arg3924z00_1287 = 
bgl_reverse(BgL_targsz00_123); 
BgL_l3032z00_1285 = BgL_arg3924z00_1287; 
BgL_forzd2each3033zd2_1286:
{ /* ./DotNet/instr.scm 454 */
bool_t BgL_test3927z00_1288;
BgL_test3927z00_1288 = 
PAIRP(BgL_l3032z00_1285); 
if(BgL_test3927z00_1288)
{ /* ./DotNet/instr.scm 454 */
{ /* ./DotNet/instr.scm 454 */
obj_t BgL_az00_1289;
BgL_az00_1289 = 
CAR(BgL_l3032z00_1285); 
{ /* ./DotNet/instr.scm 454 */
obj_t BgL_arg3929z00_1290;
BgL_arg3929z00_1290 = 
BGl_simplezd2typezd2zzdotnet_instrz00(BgL_az00_1289); 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_121, BgL_arg3929z00_1290); } } 
{ /* ./DotNet/instr.scm 454 */
obj_t BgL_arg3934z00_1291;
BgL_arg3934z00_1291 = 
CDR(BgL_l3032z00_1285); 
{ 
obj_t BgL_l3032z00_4465;
BgL_l3032z00_4465 = BgL_arg3934z00_1291; 
BgL_l3032z00_1285 = BgL_l3032z00_4465; 
goto BgL_forzd2each3033zd2_1286;} } }  else 
{ /* ./DotNet/instr.scm 454 */((bool_t)1); } } } } 
{ /* ./DotNet/instr.scm 455 */
obj_t BgL_arg3939z00_1292;
BgL_arg3939z00_1292 = 
BGl_simplezd2typezd2zzdotnet_instrz00(BgL_trz00_124); 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_121, BgL_arg3939z00_1292);} } 
}



/* __invokestatic5538 */
obj_t BGl___invokestatic5538z00zzdotnet_instrz00(obj_t BgL_envz00_3263, obj_t BgL_envz00_3264, obj_t BgL_varz00_3265, obj_t BgL_targsz00_3266, obj_t BgL_trz00_3267)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 452 */
return 
BGl__invokestaticz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3264), BgL_varz00_3265, BgL_targsz00_3266, BgL_trz00_3267);} 
}



/* _invokespecial */
BGL_EXPORTED_DEF obj_t BGl__invokespecialz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_125, obj_t BgL_varz00_126, obj_t BgL_targsz00_127, obj_t BgL_trz00_128)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 457 */
{ /* ./DotNet/instr.scm 458 */
obj_t BgL_arg3943z00_1293;
{ /* ./DotNet/instr.scm 458 */
obj_t BgL_arg3946z00_1294;obj_t BgL_arg3948z00_1295;
BgL_arg3946z00_1294 = 
CNST_TABLE_REF(((long)149)); 
BgL_arg3948z00_1295 = 
MAKE_PAIR(BgL_varz00_126, BNIL); 
BgL_arg3943z00_1293 = 
MAKE_PAIR(BgL_arg3946z00_1294, BgL_arg3948z00_1295); } 
{ /* ./DotNet/instr.scm 458 */
obj_t BgL_arg3131z00_2824;
{ /* ./DotNet/instr.scm 458 */
obj_t BgL_arg3134z00_2825;
BgL_arg3134z00_2825 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_125))->BgL_codez00); 
BgL_arg3131z00_2824 = 
MAKE_PAIR(BgL_arg3943z00_1293, BgL_arg3134z00_2825); } 
{ /* ./DotNet/instr.scm 458 */
BgL_envz00_bglt BgL_obj2963z00_2827;obj_t BgL_val2962z00_2828;
BgL_obj2963z00_2827 = BgL_envz00_125; 
BgL_val2962z00_2828 = BgL_arg3131z00_2824; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2827))->BgL_codez00) = ((obj_t)BgL_val2962z00_2828), BUNSPEC); } } ((bool_t)1); } 
{ 
obj_t BgL_l3034z00_1296;
{ /* ./DotNet/instr.scm 459 */
obj_t BgL_arg3952z00_1298;
BgL_arg3952z00_1298 = 
bgl_reverse(BgL_targsz00_127); 
BgL_l3034z00_1296 = BgL_arg3952z00_1298; 
BgL_forzd2each3035zd2_1297:
{ /* ./DotNet/instr.scm 459 */
bool_t BgL_test3955z00_1299;
BgL_test3955z00_1299 = 
PAIRP(BgL_l3034z00_1296); 
if(BgL_test3955z00_1299)
{ /* ./DotNet/instr.scm 459 */
{ /* ./DotNet/instr.scm 459 */
obj_t BgL_az00_1300;
BgL_az00_1300 = 
CAR(BgL_l3034z00_1296); 
{ /* ./DotNet/instr.scm 459 */
obj_t BgL_arg3957z00_1301;
BgL_arg3957z00_1301 = 
BGl_simplezd2typezd2zzdotnet_instrz00(BgL_az00_1300); 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_125, BgL_arg3957z00_1301); } } 
{ /* ./DotNet/instr.scm 459 */
obj_t BgL_arg3962z00_1302;
BgL_arg3962z00_1302 = 
CDR(BgL_l3034z00_1296); 
{ 
obj_t BgL_l3034z00_4483;
BgL_l3034z00_4483 = BgL_arg3962z00_1302; 
BgL_l3034z00_1296 = BgL_l3034z00_4483; 
goto BgL_forzd2each3035zd2_1297;} } }  else 
{ /* ./DotNet/instr.scm 459 */((bool_t)1); } } } } 
{ /* ./DotNet/instr.scm 460 */
obj_t BgL_arg3967z00_1303;
BgL_arg3967z00_1303 = 
BGl_simplezd2typezd2zzdotnet_instrz00(BgL_trz00_128); 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_125, BgL_arg3967z00_1303);} } 
}



/* __invokespecial5540 */
obj_t BGl___invokespecial5540z00zzdotnet_instrz00(obj_t BgL_envz00_3268, obj_t BgL_envz00_3269, obj_t BgL_varz00_3270, obj_t BgL_targsz00_3271, obj_t BgL_trz00_3272)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 457 */
return 
BGl__invokespecialz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3269), BgL_varz00_3270, BgL_targsz00_3271, BgL_trz00_3272);} 
}



/* _invokespecial_init */
BGL_EXPORTED_DEF obj_t BGl__invokespecial_initz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_129, obj_t BgL_varz00_130, obj_t BgL_targsz00_131, obj_t BgL_trz00_132)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 468 */
{ /* ./DotNet/instr.scm 470 */
obj_t BgL_argsz00_1305;obj_t BgL_ptrz00_1306;
BgL_argsz00_1305 = BNIL; 
BgL_ptrz00_1306 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_129))->BgL_codez00); 
{ 
obj_t BgL_l3038z00_1307;
{ /* ./DotNet/instr.scm 480 */
obj_t BgL_arg3971z00_1309;
BgL_arg3971z00_1309 = 
CDR(BgL_targsz00_131); 
BgL_l3038z00_1307 = BgL_arg3971z00_1309; 
BgL_forzd2each3039zd2_1308:
{ /* ./DotNet/instr.scm 471 */
bool_t BgL_test3974z00_1310;
BgL_test3974z00_1310 = 
PAIRP(BgL_l3038z00_1307); 
if(BgL_test3974z00_1310)
{ /* ./DotNet/instr.scm 471 */
{ /* ./DotNet/instr.scm 473 */
bool_t BgL_test3975z00_1312;
{ /* ./DotNet/instr.scm 473 */
bool_t BgL_test3982z00_1314;
{ /* ./DotNet/instr.scm 473 */
obj_t BgL_arg3989z00_1317;
{ /* ./DotNet/instr.scm 473 */
obj_t BgL_pairz00_2836;
BgL_pairz00_2836 = BgL_ptrz00_1306; 
BgL_arg3989z00_1317 = 
CAR(BgL_pairz00_2836); } 
BgL_test3982z00_1314 = 
PAIRP(BgL_arg3989z00_1317); } 
if(BgL_test3982z00_1314)
{ /* ./DotNet/instr.scm 473 */
obj_t BgL_arg3984z00_1315;
{ /* ./DotNet/instr.scm 473 */
obj_t BgL_pairz00_2838;
BgL_pairz00_2838 = BgL_ptrz00_1306; 
{ /* ./DotNet/instr.scm 473 */
obj_t BgL_auxz00_4495;
BgL_auxz00_4495 = 
CAR(BgL_pairz00_2838); 
BgL_arg3984z00_1315 = 
CAR(BgL_auxz00_4495); } } 
{ /* ./DotNet/instr.scm 473 */
obj_t BgL_auxz00_4498;
BgL_auxz00_4498 = 
CNST_TABLE_REF(((long)121)); 
BgL_test3975z00_1312 = 
(BgL_arg3984z00_1315==BgL_auxz00_4498); } }  else 
{ /* ./DotNet/instr.scm 473 */
BgL_test3975z00_1312 = ((bool_t)0); } } 
if(BgL_test3975z00_1312)
{ /* ./DotNet/instr.scm 473 */
{ /* ./DotNet/instr.scm 474 */
obj_t BgL_arg3978z00_1313;
{ /* ./DotNet/instr.scm 474 */
obj_t BgL_pairz00_2842;
BgL_pairz00_2842 = BgL_ptrz00_1306; 
BgL_arg3978z00_1313 = 
CAR(BgL_pairz00_2842); } 
BgL_argsz00_1305 = 
MAKE_PAIR(BgL_arg3978z00_1313, BgL_argsz00_1305); } 
{ /* ./DotNet/instr.scm 475 */
obj_t BgL_pairz00_2843;
BgL_pairz00_2843 = BgL_ptrz00_1306; 
BgL_ptrz00_1306 = 
CDR(BgL_pairz00_2843); } }  else 
{ /* ./DotNet/instr.scm 473 */BFALSE; } } 
{ /* ./DotNet/instr.scm 476 */
bool_t BgL_test3992z00_1318;
{ /* ./DotNet/instr.scm 476 */
bool_t BgL_test3998z00_1320;
{ /* ./DotNet/instr.scm 476 */
obj_t BgL_arg4004z00_1322;
{ /* ./DotNet/instr.scm 476 */
obj_t BgL_pairz00_2844;
BgL_pairz00_2844 = BgL_ptrz00_1306; 
BgL_arg4004z00_1322 = 
CAR(BgL_pairz00_2844); } 
BgL_test3998z00_1320 = 
PAIRP(BgL_arg4004z00_1322); } 
if(BgL_test3998z00_1320)
{ /* ./DotNet/instr.scm 477 */
obj_t BgL_arg4000z00_1321;
{ /* ./DotNet/instr.scm 477 */
obj_t BgL_pairz00_2846;
BgL_pairz00_2846 = BgL_ptrz00_1306; 
{ /* ./DotNet/instr.scm 477 */
obj_t BgL_auxz00_4508;
BgL_auxz00_4508 = 
CAR(BgL_pairz00_2846); 
BgL_arg4000z00_1321 = 
CAR(BgL_auxz00_4508); } } 
{ /* ./DotNet/instr.scm 477 */
obj_t BgL_auxz00_4511;
BgL_auxz00_4511 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_arg4000z00_1321, BGl_za2simplezd2pushzd2instructionsza2z00zzdotnet_instrz00); 
BgL_test3992z00_1318 = 
CBOOL(BgL_auxz00_4511); } }  else 
{ /* ./DotNet/instr.scm 476 */
BgL_test3992z00_1318 = ((bool_t)0); } } 
if(BgL_test3992z00_1318)
{ /* ./DotNet/instr.scm 476 */
{ /* ./DotNet/instr.scm 478 */
obj_t BgL_arg3994z00_1319;
{ /* ./DotNet/instr.scm 478 */
obj_t BgL_pairz00_2850;
BgL_pairz00_2850 = BgL_ptrz00_1306; 
BgL_arg3994z00_1319 = 
CAR(BgL_pairz00_2850); } 
BgL_argsz00_1305 = 
MAKE_PAIR(BgL_arg3994z00_1319, BgL_argsz00_1305); } 
{ /* ./DotNet/instr.scm 479 */
obj_t BgL_pairz00_2851;
BgL_pairz00_2851 = BgL_ptrz00_1306; 
BgL_ptrz00_1306 = 
CDR(BgL_pairz00_2851); } }  else 
{ /* ./DotNet/instr.scm 476 */BFALSE; } } 
{ /* ./DotNet/instr.scm 471 */
obj_t BgL_arg4009z00_1323;
BgL_arg4009z00_1323 = 
CDR(BgL_l3038z00_1307); 
{ 
obj_t BgL_l3038z00_4519;
BgL_l3038z00_4519 = BgL_arg4009z00_1323; 
BgL_l3038z00_1307 = BgL_l3038z00_4519; 
goto BgL_forzd2each3039zd2_1308;} } }  else 
{ /* ./DotNet/instr.scm 471 */((bool_t)1); } } } } 
{ /* ./DotNet/instr.scm 481 */
bool_t BgL_test4013z00_1324;
{ /* ./DotNet/instr.scm 481 */
bool_t BgL_test4015z00_1325;
{ /* ./DotNet/instr.scm 481 */
obj_t BgL_arg4022z00_1328;
{ /* ./DotNet/instr.scm 481 */
obj_t BgL_pairz00_2853;
BgL_pairz00_2853 = BgL_ptrz00_1306; 
BgL_arg4022z00_1328 = 
CAR(BgL_pairz00_2853); } 
BgL_test4015z00_1325 = 
PAIRP(BgL_arg4022z00_1328); } 
if(BgL_test4015z00_1325)
{ /* ./DotNet/instr.scm 481 */
obj_t BgL_arg4017z00_1326;
{ /* ./DotNet/instr.scm 481 */
obj_t BgL_pairz00_2855;
BgL_pairz00_2855 = BgL_ptrz00_1306; 
{ /* ./DotNet/instr.scm 481 */
obj_t BgL_auxz00_4523;
BgL_auxz00_4523 = 
CAR(BgL_pairz00_2855); 
BgL_arg4017z00_1326 = 
CAR(BgL_auxz00_4523); } } 
{ /* ./DotNet/instr.scm 481 */
obj_t BgL_auxz00_4526;
BgL_auxz00_4526 = 
CNST_TABLE_REF(((long)121)); 
BgL_test4013z00_1324 = 
(BgL_arg4017z00_1326==BgL_auxz00_4526); } }  else 
{ /* ./DotNet/instr.scm 481 */
BgL_test4013z00_1324 = ((bool_t)0); } } 
if(BgL_test4013z00_1324)
{ /* ./DotNet/instr.scm 482 */
obj_t BgL_pairz00_2859;
BgL_pairz00_2859 = BgL_ptrz00_1306; 
BgL_ptrz00_1306 = 
CDR(BgL_pairz00_2859); }  else 
{ /* ./DotNet/instr.scm 481 */BFALSE; } } 
{ 
obj_t BgL_xz00_1333;obj_t BgL_fromz00_1334;obj_t BgL_tz00_1335;obj_t BgL_restz00_1336;obj_t BgL_xz00_1329;obj_t BgL_tz00_1330;obj_t BgL_restz00_1331;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_ezd2120zd2_1339;
BgL_ezd2120zd2_1339 = BgL_ptrz00_1306; 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4025z00_1340;
BgL_test4025z00_1340 = 
PAIRP(BgL_ezd2120zd2_1339); 
if(BgL_test4025z00_1340)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_carzd2128zd2_1341;obj_t BgL_cdrzd2129zd2_1342;
BgL_carzd2128zd2_1341 = 
CAR(BgL_ezd2120zd2_1339); 
BgL_cdrzd2129zd2_1342 = 
CDR(BgL_ezd2120zd2_1339); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4026z00_1343;
BgL_test4026z00_1343 = 
PAIRP(BgL_carzd2128zd2_1341); 
if(BgL_test4026z00_1343)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_cdrzd2132zd2_1344;
BgL_cdrzd2132zd2_1344 = 
CDR(BgL_carzd2128zd2_1341); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4027z00_1345;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4540;obj_t BgL_auxz00_4538;
BgL_auxz00_4540 = 
CNST_TABLE_REF(((long)40)); 
BgL_auxz00_4538 = 
CAR(BgL_carzd2128zd2_1341); 
BgL_test4027z00_1345 = 
(BgL_auxz00_4538==BgL_auxz00_4540); } 
if(BgL_test4027z00_1345)
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4028z00_1346;
BgL_test4028z00_1346 = 
PAIRP(BgL_cdrzd2132zd2_1344); 
if(BgL_test4028z00_1346)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_xz00_1347;
BgL_xz00_1347 = 
CAR(BgL_cdrzd2132zd2_1344); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4029z00_1348;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4547;
BgL_auxz00_4547 = 
CDR(BgL_cdrzd2132zd2_1344); 
BgL_test4029z00_1348 = 
NULLP(BgL_auxz00_4547); } 
if(BgL_test4029z00_1348)
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4030z00_1349;
BgL_test4030z00_1349 = 
PAIRP(BgL_cdrzd2129zd2_1342); 
if(BgL_test4030z00_1349)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_carzd2140zd2_1350;obj_t BgL_cdrzd2141zd2_1351;
BgL_carzd2140zd2_1350 = 
CAR(BgL_cdrzd2129zd2_1342); 
BgL_cdrzd2141zd2_1351 = 
CDR(BgL_cdrzd2129zd2_1342); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4031z00_1352;
BgL_test4031z00_1352 = 
PAIRP(BgL_carzd2140zd2_1350); 
if(BgL_test4031z00_1352)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_cdrzd2144zd2_1353;
BgL_cdrzd2144zd2_1353 = 
CDR(BgL_carzd2140zd2_1350); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4032z00_1354;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4560;obj_t BgL_auxz00_4558;
BgL_auxz00_4560 = 
CNST_TABLE_REF(((long)45)); 
BgL_auxz00_4558 = 
CAR(BgL_carzd2140zd2_1350); 
BgL_test4032z00_1354 = 
(BgL_auxz00_4558==BgL_auxz00_4560); } 
if(BgL_test4032z00_1354)
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4033z00_1355;
BgL_test4033z00_1355 = 
PAIRP(BgL_cdrzd2144zd2_1353); 
if(BgL_test4033z00_1355)
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4034z00_1356;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4566;
BgL_auxz00_4566 = 
CAR(BgL_cdrzd2144zd2_1353); 
BgL_test4034z00_1356 = 
(BgL_xz00_1347==BgL_auxz00_4566); } 
if(BgL_test4034z00_1356)
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4035z00_1357;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4570;
BgL_auxz00_4570 = 
CDR(BgL_cdrzd2144zd2_1353); 
BgL_test4035z00_1357 = 
NULLP(BgL_auxz00_4570); } 
if(BgL_test4035z00_1357)
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4036z00_1358;
BgL_test4036z00_1358 = 
PAIRP(BgL_cdrzd2141zd2_1351); 
if(BgL_test4036z00_1358)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_carzd2151zd2_1359;
BgL_carzd2151zd2_1359 = 
CAR(BgL_cdrzd2141zd2_1351); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4037z00_1360;
BgL_test4037z00_1360 = 
PAIRP(BgL_carzd2151zd2_1359); 
if(BgL_test4037z00_1360)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_cdrzd2155zd2_1361;
BgL_cdrzd2155zd2_1361 = 
CDR(BgL_carzd2151zd2_1359); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4038z00_1362;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4582;obj_t BgL_auxz00_4580;
BgL_auxz00_4582 = 
CNST_TABLE_REF(((long)118)); 
BgL_auxz00_4580 = 
CAR(BgL_carzd2151zd2_1359); 
BgL_test4038z00_1362 = 
(BgL_auxz00_4580==BgL_auxz00_4582); } 
if(BgL_test4038z00_1362)
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4039z00_1363;
BgL_test4039z00_1363 = 
PAIRP(BgL_cdrzd2155zd2_1361); 
if(BgL_test4039z00_1363)
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4040z00_1364;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4588;
BgL_auxz00_4588 = 
CDR(BgL_cdrzd2155zd2_1361); 
BgL_test4040z00_1364 = 
NULLP(BgL_auxz00_4588); } 
if(BgL_test4040z00_1364)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_arg4042z00_1365;obj_t BgL_arg4043z00_1366;
BgL_arg4042z00_1365 = 
CAR(BgL_cdrzd2155zd2_1361); 
BgL_arg4043z00_1366 = 
CDR(BgL_cdrzd2141zd2_1351); 
BgL_xz00_1329 = BgL_xz00_1347; 
BgL_tz00_1330 = BgL_arg4042z00_1365; 
BgL_restz00_1331 = BgL_arg4043z00_1366; 
{ /* ./DotNet/instr.scm 485 */
obj_t BgL_arg4327z00_1471;
{ /* ./DotNet/instr.scm 485 */
obj_t BgL_arg4330z00_1472;obj_t BgL_arg4331z00_1473;
{ /* ./DotNet/instr.scm 485 */
obj_t BgL_arg4334z00_1474;obj_t BgL_arg4335z00_1475;
BgL_arg4334z00_1474 = 
CNST_TABLE_REF(((long)45)); 
BgL_arg4335z00_1475 = 
MAKE_PAIR(BgL_xz00_1329, BNIL); 
BgL_arg4330z00_1472 = 
MAKE_PAIR(BgL_arg4334z00_1474, BgL_arg4335z00_1475); } 
{ /* ./DotNet/instr.scm 486 */
obj_t BgL_arg4339z00_1476;obj_t BgL_arg4340z00_1477;
{ /* ./DotNet/instr.scm 486 */
obj_t BgL_arg4343z00_1478;obj_t BgL_arg4344z00_1479;
BgL_arg4343z00_1478 = 
CNST_TABLE_REF(((long)149)); 
BgL_arg4344z00_1479 = 
MAKE_PAIR(BgL_varz00_130, BNIL); 
BgL_arg4339z00_1476 = 
MAKE_PAIR(BgL_arg4343z00_1478, BgL_arg4344z00_1479); } 
{ /* ./DotNet/instr.scm 487 */
obj_t BgL_arg4348z00_1480;obj_t BgL_arg4349z00_1481;
BgL_arg4348z00_1480 = 
bgl_reverse(BgL_argsz00_1305); 
{ /* ./DotNet/instr.scm 488 */
obj_t BgL_arg4353z00_1482;obj_t BgL_arg4354z00_1483;
{ /* ./DotNet/instr.scm 488 */
obj_t BgL_auxz00_4601;
BgL_auxz00_4601 = 
CNST_TABLE_REF(((long)150)); 
BgL_arg4353z00_1482 = 
MAKE_PAIR(BgL_auxz00_4601, BNIL); } 
{ /* ./DotNet/instr.scm 489 */
obj_t BgL_arg4358z00_1484;obj_t BgL_arg4359z00_1485;
{ /* ./DotNet/instr.scm 489 */
obj_t BgL_arg4362z00_1486;obj_t BgL_arg4363z00_1487;
BgL_arg4362z00_1486 = 
CNST_TABLE_REF(((long)118)); 
BgL_arg4363z00_1487 = 
MAKE_PAIR(BgL_tz00_1330, BNIL); 
BgL_arg4358z00_1484 = 
MAKE_PAIR(BgL_arg4362z00_1486, BgL_arg4363z00_1487); } 
BgL_arg4359z00_1485 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_restz00_1331, BNIL); 
BgL_arg4354z00_1483 = 
MAKE_PAIR(BgL_arg4358z00_1484, BgL_arg4359z00_1485); } 
BgL_arg4349z00_1481 = 
MAKE_PAIR(BgL_arg4353z00_1482, BgL_arg4354z00_1483); } 
BgL_arg4340z00_1477 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg4348z00_1480, BgL_arg4349z00_1481); } 
BgL_arg4331z00_1473 = 
MAKE_PAIR(BgL_arg4339z00_1476, BgL_arg4340z00_1477); } 
BgL_arg4327z00_1471 = 
MAKE_PAIR(BgL_arg4330z00_1472, BgL_arg4331z00_1473); } 
{ /* ./DotNet/instr.scm 485 */
BgL_envz00_bglt BgL_obj2963z00_2970;obj_t BgL_val2962z00_2971;
BgL_obj2963z00_2970 = BgL_envz00_129; 
BgL_val2962z00_2971 = BgL_arg4327z00_1471; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2970))->BgL_codez00) = ((obj_t)BgL_val2962z00_2971), BUNSPEC); } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4614;
BgL_tagzd2119zd2_1338:
{ /* ./DotNet/instr.scm 500 */
obj_t BgL_port3040z00_1505;
BgL_port3040z00_1505 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string5781z00zzdotnet_instrz00, BgL_port3040z00_1505); 
{ /* ./DotNet/instr.scm 500 */
obj_t BgL_arg4411z00_1506;
BgL_arg4411z00_1506 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_129))->BgL_codez00); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4411z00_1506, BgL_port3040z00_1505); } 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3040z00_1505); } 
{ /* ./DotNet/instr.scm 501 */
obj_t BgL_port3041z00_1507;
BgL_port3041z00_1507 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string5782z00zzdotnet_instrz00, BgL_port3041z00_1507); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_targsz00_131, BgL_port3041z00_1507); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3041z00_1507); } 
{ /* ./DotNet/instr.scm 502 */
obj_t BgL_arg4421z00_1508;
{ /* ./DotNet/instr.scm 502 */
obj_t BgL_arg4424z00_1509;obj_t BgL_arg4425z00_1510;
BgL_arg4424z00_1509 = 
CNST_TABLE_REF(((long)149)); 
BgL_arg4425z00_1510 = 
MAKE_PAIR(BgL_varz00_130, BNIL); 
BgL_arg4421z00_1508 = 
MAKE_PAIR(BgL_arg4424z00_1509, BgL_arg4425z00_1510); } 
{ /* ./DotNet/instr.scm 502 */
obj_t BgL_arg3131z00_2980;
{ /* ./DotNet/instr.scm 502 */
obj_t BgL_arg3134z00_2981;
BgL_arg3134z00_2981 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_129))->BgL_codez00); 
BgL_arg3131z00_2980 = 
MAKE_PAIR(BgL_arg4421z00_1508, BgL_arg3134z00_2981); } 
{ /* ./DotNet/instr.scm 502 */
BgL_envz00_bglt BgL_obj2963z00_2983;obj_t BgL_val2962z00_2984;
BgL_obj2963z00_2983 = BgL_envz00_129; 
BgL_val2962z00_2984 = BgL_arg3131z00_2980; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2983))->BgL_codez00) = ((obj_t)BgL_val2962z00_2984), BUNSPEC); } } 
BgL_auxz00_4614 = ((bool_t)1); } 
BBOOL(BgL_auxz00_4614); } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4631;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4631); } }  else 
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_xz00_1369;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4633;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4634;
BgL_auxz00_4634 = 
CAR(BgL_ezd2120zd2_1339); 
BgL_auxz00_4633 = 
CDR(BgL_auxz00_4634); } 
BgL_xz00_1369 = 
CAR(BgL_auxz00_4633); } 
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_cdrzd2206zd2_1370;
BgL_cdrzd2206zd2_1370 = 
CDR(BgL_cdrzd2129zd2_1342); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4054z00_1371;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4639;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4640;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4641;
BgL_auxz00_4641 = 
CAR(BgL_cdrzd2129zd2_1342); 
BgL_auxz00_4640 = 
CDR(BgL_auxz00_4641); } 
BgL_auxz00_4639 = 
CAR(BgL_auxz00_4640); } 
BgL_test4054z00_1371 = 
(BgL_xz00_1369==BgL_auxz00_4639); } 
if(BgL_test4054z00_1371)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_carzd2221zd2_1372;obj_t BgL_cdrzd2222zd2_1373;
BgL_carzd2221zd2_1372 = 
CAR(BgL_cdrzd2206zd2_1370); 
BgL_cdrzd2222zd2_1373 = 
CDR(BgL_cdrzd2206zd2_1370); 
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_cdrzd2226zd2_1374;
BgL_cdrzd2226zd2_1374 = 
CDR(BgL_carzd2221zd2_1372); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4055z00_1375;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4652;obj_t BgL_auxz00_4650;
BgL_auxz00_4652 = 
CNST_TABLE_REF(((long)151)); 
BgL_auxz00_4650 = 
CAR(BgL_carzd2221zd2_1372); 
BgL_test4055z00_1375 = 
(BgL_auxz00_4650==BgL_auxz00_4652); } 
if(BgL_test4055z00_1375)
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4056z00_1376;
BgL_test4056z00_1376 = 
PAIRP(BgL_cdrzd2226zd2_1374); 
if(BgL_test4056z00_1376)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_cdrzd2230zd2_1377;
BgL_cdrzd2230zd2_1377 = 
CDR(BgL_cdrzd2226zd2_1374); 
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_fromz00_1378;
BgL_fromz00_1378 = 
CAR(BgL_cdrzd2226zd2_1374); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4057z00_1379;
BgL_test4057z00_1379 = 
PAIRP(BgL_cdrzd2230zd2_1377); 
if(BgL_test4057z00_1379)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_cdrzd2234zd2_1380;
BgL_cdrzd2234zd2_1380 = 
CDR(BgL_cdrzd2230zd2_1377); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4058z00_1381;
BgL_test4058z00_1381 = 
PAIRP(BgL_cdrzd2234zd2_1380); 
if(BgL_test4058z00_1381)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_cdrzd2237zd2_1382;
BgL_cdrzd2237zd2_1382 = 
CDR(BgL_cdrzd2234zd2_1380); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4059z00_1383;
BgL_test4059z00_1383 = 
PAIRP(BgL_cdrzd2237zd2_1382); 
if(BgL_test4059z00_1383)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_cdrzd2240zd2_1384;
BgL_cdrzd2240zd2_1384 = 
CDR(BgL_cdrzd2237zd2_1382); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4060z00_1385;
BgL_test4060z00_1385 = 
PAIRP(BgL_cdrzd2240zd2_1384); 
if(BgL_test4060z00_1385)
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4061z00_1386;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4671;
BgL_auxz00_4671 = 
CAR(BgL_cdrzd2240zd2_1384); 
BgL_test4061z00_1386 = 
(BgL_xz00_1369==BgL_auxz00_4671); } 
if(BgL_test4061z00_1386)
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4062z00_1387;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4675;
BgL_auxz00_4675 = 
CDR(BgL_cdrzd2240zd2_1384); 
BgL_test4062z00_1387 = 
NULLP(BgL_auxz00_4675); } 
if(BgL_test4062z00_1387)
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4063z00_1388;
BgL_test4063z00_1388 = 
PAIRP(BgL_cdrzd2222zd2_1373); 
if(BgL_test4063z00_1388)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_cdrzd2249zd2_1389;
BgL_cdrzd2249zd2_1389 = 
CDR(BgL_cdrzd2222zd2_1373); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4064z00_1390;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4682;
BgL_auxz00_4682 = 
CAR(BgL_cdrzd2222zd2_1373); 
BgL_test4064z00_1390 = 
(BgL_fromz00_1378==BgL_auxz00_4682); } 
if(BgL_test4064z00_1390)
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4065z00_1391;
BgL_test4065z00_1391 = 
PAIRP(BgL_cdrzd2249zd2_1389); 
if(BgL_test4065z00_1391)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_carzd2253zd2_1392;
BgL_carzd2253zd2_1392 = 
CAR(BgL_cdrzd2249zd2_1389); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4066z00_1393;
BgL_test4066z00_1393 = 
PAIRP(BgL_carzd2253zd2_1392); 
if(BgL_test4066z00_1393)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_cdrzd2257zd2_1394;
BgL_cdrzd2257zd2_1394 = 
CDR(BgL_carzd2253zd2_1392); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4067z00_1395;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4694;obj_t BgL_auxz00_4692;
BgL_auxz00_4694 = 
CNST_TABLE_REF(((long)118)); 
BgL_auxz00_4692 = 
CAR(BgL_carzd2253zd2_1392); 
BgL_test4067z00_1395 = 
(BgL_auxz00_4692==BgL_auxz00_4694); } 
if(BgL_test4067z00_1395)
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4068z00_1396;
BgL_test4068z00_1396 = 
PAIRP(BgL_cdrzd2257zd2_1394); 
if(BgL_test4068z00_1396)
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4069z00_1397;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4700;
BgL_auxz00_4700 = 
CDR(BgL_cdrzd2257zd2_1394); 
BgL_test4069z00_1397 = 
NULLP(BgL_auxz00_4700); } 
if(BgL_test4069z00_1397)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_arg4071z00_1398;obj_t BgL_arg4072z00_1399;
BgL_arg4071z00_1398 = 
CAR(BgL_cdrzd2257zd2_1394); 
BgL_arg4072z00_1399 = 
CDR(BgL_cdrzd2249zd2_1389); 
BgL_xz00_1333 = BgL_xz00_1369; 
BgL_fromz00_1334 = BgL_fromz00_1378; 
BgL_tz00_1335 = BgL_arg4071z00_1398; 
BgL_restz00_1336 = BgL_arg4072z00_1399; 
BgL_tagzd2118zd2_1337:
{ /* ./DotNet/instr.scm 493 */
obj_t BgL_arg4368z00_1488;
{ /* ./DotNet/instr.scm 493 */
obj_t BgL_arg4371z00_1489;obj_t BgL_arg4373z00_1490;
{ /* ./DotNet/instr.scm 493 */
obj_t BgL_arg4376z00_1491;obj_t BgL_arg4377z00_1492;
BgL_arg4376z00_1491 = 
CNST_TABLE_REF(((long)45)); 
BgL_arg4377z00_1492 = 
MAKE_PAIR(BgL_xz00_1333, BNIL); 
BgL_arg4371z00_1489 = 
MAKE_PAIR(BgL_arg4376z00_1491, BgL_arg4377z00_1492); } 
{ /* ./DotNet/instr.scm 494 */
obj_t BgL_arg4381z00_1493;obj_t BgL_arg4382z00_1494;
{ /* ./DotNet/instr.scm 494 */
obj_t BgL_arg4385z00_1495;obj_t BgL_arg4386z00_1496;
BgL_arg4385z00_1495 = 
CNST_TABLE_REF(((long)149)); 
BgL_arg4386z00_1496 = 
MAKE_PAIR(BgL_varz00_130, BNIL); 
BgL_arg4381z00_1493 = 
MAKE_PAIR(BgL_arg4385z00_1495, BgL_arg4386z00_1496); } 
{ /* ./DotNet/instr.scm 495 */
obj_t BgL_arg4390z00_1497;obj_t BgL_arg4391z00_1498;
BgL_arg4390z00_1497 = 
bgl_reverse(BgL_argsz00_1305); 
{ /* ./DotNet/instr.scm 496 */
obj_t BgL_arg4395z00_1499;obj_t BgL_arg4396z00_1500;
{ /* ./DotNet/instr.scm 496 */
obj_t BgL_auxz00_4713;
BgL_auxz00_4713 = 
CNST_TABLE_REF(((long)150)); 
BgL_arg4395z00_1499 = 
MAKE_PAIR(BgL_auxz00_4713, BNIL); } 
{ /* ./DotNet/instr.scm 497 */
obj_t BgL_arg4400z00_1501;obj_t BgL_arg4401z00_1502;
{ /* ./DotNet/instr.scm 497 */
obj_t BgL_arg4404z00_1503;obj_t BgL_arg4405z00_1504;
BgL_arg4404z00_1503 = 
CNST_TABLE_REF(((long)118)); 
BgL_arg4405z00_1504 = 
MAKE_PAIR(BgL_tz00_1335, BNIL); 
BgL_arg4400z00_1501 = 
MAKE_PAIR(BgL_arg4404z00_1503, BgL_arg4405z00_1504); } 
BgL_arg4401z00_1502 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_restz00_1336, BNIL); 
BgL_arg4396z00_1500 = 
MAKE_PAIR(BgL_arg4400z00_1501, BgL_arg4401z00_1502); } 
BgL_arg4391z00_1498 = 
MAKE_PAIR(BgL_arg4395z00_1499, BgL_arg4396z00_1500); } 
BgL_arg4382z00_1494 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg4390z00_1497, BgL_arg4391z00_1498); } 
BgL_arg4373z00_1490 = 
MAKE_PAIR(BgL_arg4381z00_1493, BgL_arg4382z00_1494); } 
BgL_arg4368z00_1488 = 
MAKE_PAIR(BgL_arg4371z00_1489, BgL_arg4373z00_1490); } 
{ /* ./DotNet/instr.scm 493 */
BgL_envz00_bglt BgL_obj2963z00_2972;obj_t BgL_val2962z00_2973;
BgL_obj2963z00_2972 = BgL_envz00_129; 
BgL_val2962z00_2973 = BgL_arg4368z00_1488; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2972))->BgL_codez00) = ((obj_t)BgL_val2962z00_2973), BUNSPEC); } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4726;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4726); } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4728;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4728); } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4730;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4730); } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4732;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4732); } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4734;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4734); } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4736;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4736); } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4738;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4738); } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4740;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4740); } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4742;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4742); } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4744;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4744); } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4746;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4746); } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4748;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4748); } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4750;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4750); } } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4752;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4752); } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4754;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4754); } } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4756;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4756); } } } } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4758;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4758); } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4760;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4760); } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4762;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4762); } }  else 
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_xz00_1417;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4764;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4765;
BgL_auxz00_4765 = 
CAR(BgL_ezd2120zd2_1339); 
BgL_auxz00_4764 = 
CDR(BgL_auxz00_4765); } 
BgL_xz00_1417 = 
CAR(BgL_auxz00_4764); } 
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_cdrzd2317zd2_1418;
BgL_cdrzd2317zd2_1418 = 
CDR(BgL_cdrzd2129zd2_1342); 
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_cdrzd2320zd2_1419;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4770;
BgL_auxz00_4770 = 
CAR(BgL_cdrzd2129zd2_1342); 
BgL_cdrzd2320zd2_1419 = 
CDR(BgL_auxz00_4770); } 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4173z00_1420;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4773;
BgL_auxz00_4773 = 
CAR(BgL_cdrzd2320zd2_1419); 
BgL_test4173z00_1420 = 
(BgL_xz00_1417==BgL_auxz00_4773); } 
if(BgL_test4173z00_1420)
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4174z00_1421;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4777;
BgL_auxz00_4777 = 
CDR(BgL_cdrzd2320zd2_1419); 
BgL_test4174z00_1421 = 
NULLP(BgL_auxz00_4777); } 
if(BgL_test4174z00_1421)
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4175z00_1422;
BgL_test4175z00_1422 = 
PAIRP(BgL_cdrzd2317zd2_1418); 
if(BgL_test4175z00_1422)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_carzd2329zd2_1423;obj_t BgL_cdrzd2330zd2_1424;
BgL_carzd2329zd2_1423 = 
CAR(BgL_cdrzd2317zd2_1418); 
BgL_cdrzd2330zd2_1424 = 
CDR(BgL_cdrzd2317zd2_1418); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4176z00_1425;
BgL_test4176z00_1425 = 
PAIRP(BgL_carzd2329zd2_1423); 
if(BgL_test4176z00_1425)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_cdrzd2334zd2_1426;
BgL_cdrzd2334zd2_1426 = 
CDR(BgL_carzd2329zd2_1423); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4177z00_1427;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4790;obj_t BgL_auxz00_4788;
BgL_auxz00_4790 = 
CNST_TABLE_REF(((long)151)); 
BgL_auxz00_4788 = 
CAR(BgL_carzd2329zd2_1423); 
BgL_test4177z00_1427 = 
(BgL_auxz00_4788==BgL_auxz00_4790); } 
if(BgL_test4177z00_1427)
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4178z00_1428;
BgL_test4178z00_1428 = 
PAIRP(BgL_cdrzd2334zd2_1426); 
if(BgL_test4178z00_1428)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_cdrzd2338zd2_1429;
BgL_cdrzd2338zd2_1429 = 
CDR(BgL_cdrzd2334zd2_1426); 
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_fromz00_1430;
BgL_fromz00_1430 = 
CAR(BgL_cdrzd2334zd2_1426); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4179z00_1431;
BgL_test4179z00_1431 = 
PAIRP(BgL_cdrzd2338zd2_1429); 
if(BgL_test4179z00_1431)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_cdrzd2342zd2_1432;
BgL_cdrzd2342zd2_1432 = 
CDR(BgL_cdrzd2338zd2_1429); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4180z00_1433;
BgL_test4180z00_1433 = 
PAIRP(BgL_cdrzd2342zd2_1432); 
if(BgL_test4180z00_1433)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_cdrzd2345zd2_1434;
BgL_cdrzd2345zd2_1434 = 
CDR(BgL_cdrzd2342zd2_1432); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4181z00_1435;
BgL_test4181z00_1435 = 
PAIRP(BgL_cdrzd2345zd2_1434); 
if(BgL_test4181z00_1435)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_cdrzd2348zd2_1436;
BgL_cdrzd2348zd2_1436 = 
CDR(BgL_cdrzd2345zd2_1434); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4182z00_1437;
BgL_test4182z00_1437 = 
PAIRP(BgL_cdrzd2348zd2_1436); 
if(BgL_test4182z00_1437)
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4183z00_1438;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4809;
BgL_auxz00_4809 = 
CAR(BgL_cdrzd2348zd2_1436); 
BgL_test4183z00_1438 = 
(BgL_xz00_1417==BgL_auxz00_4809); } 
if(BgL_test4183z00_1438)
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4184z00_1439;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4813;
BgL_auxz00_4813 = 
CDR(BgL_cdrzd2348zd2_1436); 
BgL_test4184z00_1439 = 
NULLP(BgL_auxz00_4813); } 
if(BgL_test4184z00_1439)
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4185z00_1440;
BgL_test4185z00_1440 = 
PAIRP(BgL_cdrzd2330zd2_1424); 
if(BgL_test4185z00_1440)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_cdrzd2357zd2_1441;
BgL_cdrzd2357zd2_1441 = 
CDR(BgL_cdrzd2330zd2_1424); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4186z00_1442;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4820;
BgL_auxz00_4820 = 
CAR(BgL_cdrzd2330zd2_1424); 
BgL_test4186z00_1442 = 
(BgL_fromz00_1430==BgL_auxz00_4820); } 
if(BgL_test4186z00_1442)
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4187z00_1443;
BgL_test4187z00_1443 = 
PAIRP(BgL_cdrzd2357zd2_1441); 
if(BgL_test4187z00_1443)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_carzd2361zd2_1444;
BgL_carzd2361zd2_1444 = 
CAR(BgL_cdrzd2357zd2_1441); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4188z00_1445;
BgL_test4188z00_1445 = 
PAIRP(BgL_carzd2361zd2_1444); 
if(BgL_test4188z00_1445)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_cdrzd2365zd2_1446;
BgL_cdrzd2365zd2_1446 = 
CDR(BgL_carzd2361zd2_1444); 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4189z00_1447;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4832;obj_t BgL_auxz00_4830;
BgL_auxz00_4832 = 
CNST_TABLE_REF(((long)118)); 
BgL_auxz00_4830 = 
CAR(BgL_carzd2361zd2_1444); 
BgL_test4189z00_1447 = 
(BgL_auxz00_4830==BgL_auxz00_4832); } 
if(BgL_test4189z00_1447)
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4190z00_1448;
BgL_test4190z00_1448 = 
PAIRP(BgL_cdrzd2365zd2_1446); 
if(BgL_test4190z00_1448)
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_test4191z00_1449;
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_auxz00_4838;
BgL_auxz00_4838 = 
CDR(BgL_cdrzd2365zd2_1446); 
BgL_test4191z00_1449 = 
NULLP(BgL_auxz00_4838); } 
if(BgL_test4191z00_1449)
{ /* ./DotNet/instr.scm 483 */
obj_t BgL_arg4193z00_1450;obj_t BgL_arg4194z00_1451;
BgL_arg4193z00_1450 = 
CAR(BgL_cdrzd2365zd2_1446); 
BgL_arg4194z00_1451 = 
CDR(BgL_cdrzd2357zd2_1441); 
{ 
obj_t BgL_restz00_4847;obj_t BgL_tz00_4846;obj_t BgL_fromz00_4845;obj_t BgL_xz00_4844;
BgL_xz00_4844 = BgL_xz00_1417; 
BgL_fromz00_4845 = BgL_fromz00_1430; 
BgL_tz00_4846 = BgL_arg4193z00_1450; 
BgL_restz00_4847 = BgL_arg4194z00_1451; 
BgL_restz00_1336 = BgL_restz00_4847; 
BgL_tz00_1335 = BgL_tz00_4846; 
BgL_fromz00_1334 = BgL_fromz00_4845; 
BgL_xz00_1333 = BgL_xz00_4844; 
goto BgL_tagzd2118zd2_1337;} }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4848;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4848); } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4850;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4850); } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4852;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4852); } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4854;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4854); } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4856;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4856); } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4858;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4858); } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4860;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4860); } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4862;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4862); } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4864;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4864); } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4866;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4866); } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4868;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4868); } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4870;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4870); } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4872;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4872); } } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4874;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4874); } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4876;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4876); } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4878;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4878); } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4880;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4880); } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4882;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4882); } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4884;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4884); } } } } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4886;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4886); } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4888;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4888); } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4890;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4890); } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4892;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4892); } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4894;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4894); } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4896;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4896); } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4898;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4898); } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4900;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4900); } } }  else 
{ /* ./DotNet/instr.scm 483 */
bool_t BgL_auxz00_4902;
goto BgL_tagzd2119zd2_1338;
BBOOL(BgL_auxz00_4902); } } } } 
{ 
obj_t BgL_l3042z00_1511;
{ /* ./DotNet/instr.scm 503 */
obj_t BgL_arg4429z00_1513;
BgL_arg4429z00_1513 = 
bgl_reverse(BgL_targsz00_131); 
BgL_l3042z00_1511 = BgL_arg4429z00_1513; 
BgL_forzd2each3043zd2_1512:
{ /* ./DotNet/instr.scm 503 */
bool_t BgL_test4432z00_1514;
BgL_test4432z00_1514 = 
PAIRP(BgL_l3042z00_1511); 
if(BgL_test4432z00_1514)
{ /* ./DotNet/instr.scm 503 */
{ /* ./DotNet/instr.scm 503 */
obj_t BgL_az00_1515;
BgL_az00_1515 = 
CAR(BgL_l3042z00_1511); 
{ /* ./DotNet/instr.scm 503 */
obj_t BgL_arg4434z00_1516;
BgL_arg4434z00_1516 = 
BGl_simplezd2typezd2zzdotnet_instrz00(BgL_az00_1515); 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_129, BgL_arg4434z00_1516); } } 
{ /* ./DotNet/instr.scm 503 */
obj_t BgL_arg4439z00_1517;
BgL_arg4439z00_1517 = 
CDR(BgL_l3042z00_1511); 
{ 
obj_t BgL_l3042z00_4911;
BgL_l3042z00_4911 = BgL_arg4439z00_1517; 
BgL_l3042z00_1511 = BgL_l3042z00_4911; 
goto BgL_forzd2each3043zd2_1512;} } }  else 
{ /* ./DotNet/instr.scm 503 */((bool_t)1); } } } } 
{ /* ./DotNet/instr.scm 504 */
obj_t BgL_arg4444z00_1518;
BgL_arg4444z00_1518 = 
BGl_simplezd2typezd2zzdotnet_instrz00(BgL_trz00_132); 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_129, BgL_arg4444z00_1518);} } } 
}



/* __invokespecial_init5542 */
obj_t BGl___invokespecial_init5542z00zzdotnet_instrz00(obj_t BgL_envz00_3273, obj_t BgL_envz00_3274, obj_t BgL_varz00_3275, obj_t BgL_targsz00_3276, obj_t BgL_trz00_3277)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 468 */
return 
BGl__invokespecial_initz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3274), BgL_varz00_3275, BgL_targsz00_3276, BgL_trz00_3277);} 
}



/* _invokevirtual */
BGL_EXPORTED_DEF obj_t BGl__invokevirtualz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_137, obj_t BgL_varz00_138, obj_t BgL_targsz00_139, obj_t BgL_trz00_140)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 544 */
{ /* ./DotNet/instr.scm 545 */
obj_t BgL_arg4928z00_1735;
{ /* ./DotNet/instr.scm 545 */
obj_t BgL_arg4931z00_1736;obj_t BgL_arg4932z00_1737;
BgL_arg4931z00_1736 = 
CNST_TABLE_REF(((long)152)); 
BgL_arg4932z00_1737 = 
MAKE_PAIR(BgL_varz00_138, BNIL); 
BgL_arg4928z00_1735 = 
MAKE_PAIR(BgL_arg4931z00_1736, BgL_arg4932z00_1737); } 
{ /* ./DotNet/instr.scm 545 */
obj_t BgL_arg3131z00_2991;
{ /* ./DotNet/instr.scm 545 */
obj_t BgL_arg3134z00_2992;
BgL_arg3134z00_2992 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_137))->BgL_codez00); 
BgL_arg3131z00_2991 = 
MAKE_PAIR(BgL_arg4928z00_1735, BgL_arg3134z00_2992); } 
{ /* ./DotNet/instr.scm 545 */
BgL_envz00_bglt BgL_obj2963z00_2994;obj_t BgL_val2962z00_2995;
BgL_obj2963z00_2994 = BgL_envz00_137; 
BgL_val2962z00_2995 = BgL_arg3131z00_2991; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_2994))->BgL_codez00) = ((obj_t)BgL_val2962z00_2995), BUNSPEC); } } ((bool_t)1); } 
{ 
obj_t BgL_l3052z00_1738;
{ /* ./DotNet/instr.scm 546 */
obj_t BgL_arg4936z00_1740;
BgL_arg4936z00_1740 = 
bgl_reverse(BgL_targsz00_139); 
BgL_l3052z00_1738 = BgL_arg4936z00_1740; 
BgL_forzd2each3053zd2_1739:
{ /* ./DotNet/instr.scm 546 */
bool_t BgL_test4939z00_1741;
BgL_test4939z00_1741 = 
PAIRP(BgL_l3052z00_1738); 
if(BgL_test4939z00_1741)
{ /* ./DotNet/instr.scm 546 */
{ /* ./DotNet/instr.scm 546 */
obj_t BgL_az00_1742;
BgL_az00_1742 = 
CAR(BgL_l3052z00_1738); 
{ /* ./DotNet/instr.scm 546 */
obj_t BgL_arg4941z00_1743;
BgL_arg4941z00_1743 = 
BGl_simplezd2typezd2zzdotnet_instrz00(BgL_az00_1742); 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_137, BgL_arg4941z00_1743); } } 
{ /* ./DotNet/instr.scm 546 */
obj_t BgL_arg4946z00_1744;
BgL_arg4946z00_1744 = 
CDR(BgL_l3052z00_1738); 
{ 
obj_t BgL_l3052z00_4929;
BgL_l3052z00_4929 = BgL_arg4946z00_1744; 
BgL_l3052z00_1738 = BgL_l3052z00_4929; 
goto BgL_forzd2each3053zd2_1739;} } }  else 
{ /* ./DotNet/instr.scm 546 */((bool_t)1); } } } } 
{ /* ./DotNet/instr.scm 547 */
obj_t BgL_arg4951z00_1745;
BgL_arg4951z00_1745 = 
BGl_simplezd2typezd2zzdotnet_instrz00(BgL_trz00_140); 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_137, BgL_arg4951z00_1745);} } 
}



/* __invokevirtual5544 */
obj_t BGl___invokevirtual5544z00zzdotnet_instrz00(obj_t BgL_envz00_3278, obj_t BgL_envz00_3279, obj_t BgL_varz00_3280, obj_t BgL_targsz00_3281, obj_t BgL_trz00_3282)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 544 */
return 
BGl__invokevirtualz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3279), BgL_varz00_3280, BgL_targsz00_3281, BgL_trz00_3282);} 
}



/* _invokeinterface */
BGL_EXPORTED_DEF obj_t BGl__invokeinterfacez00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_141, obj_t BgL_varz00_142, obj_t BgL_targsz00_143, obj_t BgL_trz00_144)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 549 */
{ /* ./DotNet/instr.scm 550 */
obj_t BgL_arg4955z00_1746;
{ /* ./DotNet/instr.scm 550 */
obj_t BgL_arg4958z00_1747;obj_t BgL_arg4959z00_1748;
BgL_arg4958z00_1747 = 
CNST_TABLE_REF(((long)153)); 
BgL_arg4959z00_1748 = 
MAKE_PAIR(BgL_varz00_142, BNIL); 
BgL_arg4955z00_1746 = 
MAKE_PAIR(BgL_arg4958z00_1747, BgL_arg4959z00_1748); } 
{ /* ./DotNet/instr.scm 550 */
obj_t BgL_arg3131z00_3002;
{ /* ./DotNet/instr.scm 550 */
obj_t BgL_arg3134z00_3003;
BgL_arg3134z00_3003 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_141))->BgL_codez00); 
BgL_arg3131z00_3002 = 
MAKE_PAIR(BgL_arg4955z00_1746, BgL_arg3134z00_3003); } 
{ /* ./DotNet/instr.scm 550 */
BgL_envz00_bglt BgL_obj2963z00_3005;obj_t BgL_val2962z00_3006;
BgL_obj2963z00_3005 = BgL_envz00_141; 
BgL_val2962z00_3006 = BgL_arg3131z00_3002; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_3005))->BgL_codez00) = ((obj_t)BgL_val2962z00_3006), BUNSPEC); } } ((bool_t)1); } 
{ 
obj_t BgL_l3054z00_1749;
{ /* ./DotNet/instr.scm 551 */
obj_t BgL_arg4963z00_1751;
BgL_arg4963z00_1751 = 
bgl_reverse(BgL_targsz00_143); 
BgL_l3054z00_1749 = BgL_arg4963z00_1751; 
BgL_forzd2each3055zd2_1750:
{ /* ./DotNet/instr.scm 551 */
bool_t BgL_test4966z00_1752;
BgL_test4966z00_1752 = 
PAIRP(BgL_l3054z00_1749); 
if(BgL_test4966z00_1752)
{ /* ./DotNet/instr.scm 551 */
{ /* ./DotNet/instr.scm 551 */
obj_t BgL_az00_1753;
BgL_az00_1753 = 
CAR(BgL_l3054z00_1749); 
{ /* ./DotNet/instr.scm 551 */
obj_t BgL_arg4968z00_1754;
BgL_arg4968z00_1754 = 
BGl_simplezd2typezd2zzdotnet_instrz00(BgL_az00_1753); 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_141, BgL_arg4968z00_1754); } } 
{ /* ./DotNet/instr.scm 551 */
obj_t BgL_arg4973z00_1755;
BgL_arg4973z00_1755 = 
CDR(BgL_l3054z00_1749); 
{ 
obj_t BgL_l3054z00_4947;
BgL_l3054z00_4947 = BgL_arg4973z00_1755; 
BgL_l3054z00_1749 = BgL_l3054z00_4947; 
goto BgL_forzd2each3055zd2_1750;} } }  else 
{ /* ./DotNet/instr.scm 551 */((bool_t)1); } } } } 
{ /* ./DotNet/instr.scm 552 */
obj_t BgL_arg4978z00_1756;
BgL_arg4978z00_1756 = 
BGl_simplezd2typezd2zzdotnet_instrz00(BgL_trz00_144); 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_141, BgL_arg4978z00_1756);} } 
}



/* __invokeinterface5546 */
obj_t BGl___invokeinterface5546z00zzdotnet_instrz00(obj_t BgL_envz00_3283, obj_t BgL_envz00_3284, obj_t BgL_varz00_3285, obj_t BgL_targsz00_3286, obj_t BgL_trz00_3287)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 549 */
return 
BGl__invokeinterfacez00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3284), BgL_varz00_3285, BgL_targsz00_3286, BgL_trz00_3287);} 
}



/* _return */
BGL_EXPORTED_DEF obj_t BGl__returnz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_145, obj_t BgL_typez00_146)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 554 */
{ /* ./DotNet/instr.scm 556 */
obj_t BgL_arg4982z00_1757;
{ /* ./DotNet/instr.scm 556 */
bool_t BgL_testz00_4952;
{ /* ./DotNet/instr.scm 556 */
obj_t BgL_auxz00_4953;
BgL_auxz00_4953 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_typez00_146, 
CNST_TABLE_REF(((long)3))); 
BgL_testz00_4952 = 
CBOOL(BgL_auxz00_4953); } 
if(BgL_testz00_4952)
{ /* ./DotNet/instr.scm 556 */
BgL_arg4982z00_1757 = 
CNST_TABLE_REF(((long)154)); }  else 
{ /* ./DotNet/instr.scm 556 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_146, 
CNST_TABLE_REF(((long)5))))
{ /* ./DotNet/instr.scm 556 */
BgL_arg4982z00_1757 = 
CNST_TABLE_REF(((long)155)); }  else 
{ /* ./DotNet/instr.scm 556 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_146, 
CNST_TABLE_REF(((long)6))))
{ /* ./DotNet/instr.scm 556 */
BgL_arg4982z00_1757 = 
CNST_TABLE_REF(((long)156)); }  else 
{ /* ./DotNet/instr.scm 556 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_typez00_146, 
CNST_TABLE_REF(((long)7))))
{ /* ./DotNet/instr.scm 556 */
BgL_arg4982z00_1757 = 
CNST_TABLE_REF(((long)157)); }  else 
{ /* ./DotNet/instr.scm 556 */
BgL_arg4982z00_1757 = 
CNST_TABLE_REF(((long)158)); } } } } } 
{ /* ./DotNet/instr.scm 555 */
obj_t BgL_arg3131z00_3013;
{ /* ./DotNet/instr.scm 555 */
obj_t BgL_arg3134z00_3014;
BgL_arg3134z00_3014 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_145))->BgL_codez00); 
BgL_arg3131z00_3013 = 
MAKE_PAIR(BgL_arg4982z00_1757, BgL_arg3134z00_3014); } 
{ /* ./DotNet/instr.scm 555 */
BgL_envz00_bglt BgL_obj2963z00_3016;obj_t BgL_val2962z00_3017;
BgL_obj2963z00_3016 = BgL_envz00_145; 
BgL_val2962z00_3017 = BgL_arg3131z00_3013; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_3016))->BgL_codez00) = ((obj_t)BgL_val2962z00_3017), BUNSPEC); } } ((bool_t)1); } 
{ /* ./DotNet/instr.scm 562 */
obj_t BgL_arg4993z00_1763;
BgL_arg4993z00_1763 = 
BGl_simplezd2typezd2zzdotnet_instrz00(BgL_typez00_146); 
return 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_145, BgL_arg4993z00_1763);} } 
}



/* __return5548 */
obj_t BGl___return5548z00zzdotnet_instrz00(obj_t BgL_envz00_3288, obj_t BgL_envz00_3289, obj_t BgL_typez00_3290)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 554 */
return 
BGl__returnz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3289), BgL_typez00_3290);} 
}



/* _athrow */
BGL_EXPORTED_DEF obj_t BGl__athrowz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_147)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 565 */
{ /* ./DotNet/instr.scm 566 */
obj_t BgL_insz00_3019;
BgL_insz00_3019 = 
CNST_TABLE_REF(((long)159)); 
{ /* ./DotNet/instr.scm 566 */
obj_t BgL_arg3131z00_3021;
{ /* ./DotNet/instr.scm 566 */
obj_t BgL_arg3134z00_3022;
BgL_arg3134z00_3022 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_147))->BgL_codez00); 
BgL_arg3131z00_3021 = 
MAKE_PAIR(BgL_insz00_3019, BgL_arg3134z00_3022); } 
{ /* ./DotNet/instr.scm 566 */
BgL_envz00_bglt BgL_obj2963z00_3024;obj_t BgL_val2962z00_3025;
BgL_obj2963z00_3024 = BgL_envz00_147; 
BgL_val2962z00_3025 = BgL_arg3131z00_3021; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_3024))->BgL_codez00) = ((obj_t)BgL_val2962z00_3025), BUNSPEC); } } ((bool_t)1); } 
BGl_cpopz00zzdotnet_instrz00(BgL_envz00_147, 
CNST_TABLE_REF(((long)8))); 
return 
BGl_pushz00zzdotnet_instrz00(BgL_envz00_147, 
CNST_TABLE_REF(((long)2)));} 
}



/* __athrow5550 */
obj_t BGl___athrow5550z00zzdotnet_instrz00(obj_t BgL_envz00_3291, obj_t BgL_envz00_3292)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 565 */
return 
BGl__athrowz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3292));} 
}



/* _handler */
BGL_EXPORTED_DEF obj_t BGl__handlerz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_148, obj_t BgL_bz00_149, obj_t BgL_ez00_150, obj_t BgL_pcz00_151, obj_t BgL_tagz00_152)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 570 */
{ /* ./DotNet/instr.scm 571 */
obj_t BgL_arg5000z00_3026;
{ /* ./DotNet/instr.scm 571 */
obj_t BgL_arg5003z00_3027;obj_t BgL_arg5004z00_3028;
BgL_arg5003z00_3027 = 
CNST_TABLE_REF(((long)160)); 
{ /* ./DotNet/instr.scm 571 */
obj_t BgL_arg5007z00_3029;
{ /* ./DotNet/instr.scm 571 */
obj_t BgL_arg5010z00_3030;
{ /* ./DotNet/instr.scm 571 */
obj_t BgL_arg5013z00_3031;
BgL_arg5013z00_3031 = 
MAKE_PAIR(BgL_tagz00_152, BNIL); 
BgL_arg5010z00_3030 = 
MAKE_PAIR(BgL_pcz00_151, BgL_arg5013z00_3031); } 
BgL_arg5007z00_3029 = 
MAKE_PAIR(BgL_ez00_150, BgL_arg5010z00_3030); } 
BgL_arg5004z00_3028 = 
MAKE_PAIR(BgL_bz00_149, BgL_arg5007z00_3029); } 
BgL_arg5000z00_3026 = 
MAKE_PAIR(BgL_arg5003z00_3027, BgL_arg5004z00_3028); } 
{ /* ./DotNet/instr.scm 571 */
obj_t BgL_arg3131z00_3035;
{ /* ./DotNet/instr.scm 571 */
obj_t BgL_arg3134z00_3036;
BgL_arg3134z00_3036 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_148))->BgL_codez00); 
BgL_arg3131z00_3035 = 
MAKE_PAIR(BgL_arg5000z00_3026, BgL_arg3134z00_3036); } 
{ /* ./DotNet/instr.scm 571 */
BgL_envz00_bglt BgL_obj2963z00_3038;obj_t BgL_val2962z00_3039;
BgL_obj2963z00_3038 = BgL_envz00_148; 
BgL_val2962z00_3039 = BgL_arg3131z00_3035; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_3038))->BgL_codez00) = ((obj_t)BgL_val2962z00_3039), BUNSPEC); } } 
return BTRUE;} } 
}



/* __handler5552 */
obj_t BGl___handler5552z00zzdotnet_instrz00(obj_t BgL_envz00_3293, obj_t BgL_envz00_3294, obj_t BgL_bz00_3295, obj_t BgL_ez00_3296, obj_t BgL_pcz00_3297, obj_t BgL_tagz00_3298)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 570 */
return 
BGl__handlerz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3294), BgL_bz00_3295, BgL_ez00_3296, BgL_pcz00_3297, BgL_tagz00_3298);} 
}



/* _comment */
BGL_EXPORTED_DEF obj_t BGl__commentz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_153, obj_t BgL_namez00_154, obj_t BgL_vz00_155)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 574 */
{ /* ./DotNet/instr.scm 575 */
obj_t BgL_arg5017z00_3040;
{ /* ./DotNet/instr.scm 575 */
obj_t BgL_arg5020z00_3041;obj_t BgL_arg5021z00_3042;
BgL_arg5020z00_3041 = 
CNST_TABLE_REF(((long)161)); 
{ /* ./DotNet/instr.scm 575 */
obj_t BgL_arg5024z00_3043;
BgL_arg5024z00_3043 = 
MAKE_PAIR(BgL_vz00_155, BNIL); 
BgL_arg5021z00_3042 = 
MAKE_PAIR(BgL_namez00_154, BgL_arg5024z00_3043); } 
BgL_arg5017z00_3040 = 
MAKE_PAIR(BgL_arg5020z00_3041, BgL_arg5021z00_3042); } 
{ /* ./DotNet/instr.scm 575 */
obj_t BgL_arg3131z00_3047;
{ /* ./DotNet/instr.scm 575 */
obj_t BgL_arg3134z00_3048;
BgL_arg3134z00_3048 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_153))->BgL_codez00); 
BgL_arg3131z00_3047 = 
MAKE_PAIR(BgL_arg5017z00_3040, BgL_arg3134z00_3048); } 
{ /* ./DotNet/instr.scm 575 */
BgL_envz00_bglt BgL_obj2963z00_3050;obj_t BgL_val2962z00_3051;
BgL_obj2963z00_3050 = BgL_envz00_153; 
BgL_val2962z00_3051 = BgL_arg3131z00_3047; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_3050))->BgL_codez00) = ((obj_t)BgL_val2962z00_3051), BUNSPEC); } } 
return BTRUE;} } 
}



/* __comment5554 */
obj_t BGl___comment5554z00zzdotnet_instrz00(obj_t BgL_envz00_3299, obj_t BgL_envz00_3300, obj_t BgL_namez00_3301, obj_t BgL_vz00_3302)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 574 */
return 
BGl__commentz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3300), BgL_namez00_3301, BgL_vz00_3302);} 
}



/* _line */
BGL_EXPORTED_DEF obj_t BGl__linez00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_156, obj_t BgL_nz00_157)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 578 */
{ /* ./DotNet/instr.scm 579 */
bool_t BgL_test5027z00_1774;
{ /* ./DotNet/instr.scm 579 */
long BgL_n1z00_3052;long BgL_n2z00_3053;
BgL_n1z00_3052 = 
(long)CINT(BgL_nz00_157); 
BgL_n2z00_3053 = 
(long)CINT(BGl_za2lastzd2lineza2zd2zzdotnet_instrz00); 
BgL_test5027z00_1774 = 
(BgL_n1z00_3052==BgL_n2z00_3053); } 
if(BgL_test5027z00_1774)
{ /* ./DotNet/instr.scm 579 */
return 
CNST_TABLE_REF(((long)33));}  else 
{ /* ./DotNet/instr.scm 579 */
{ /* ./DotNet/instr.scm 581 */
obj_t BgL_arg5030z00_1775;
{ /* ./DotNet/instr.scm 581 */
obj_t BgL_arg5033z00_1776;obj_t BgL_arg5034z00_1777;
BgL_arg5033z00_1776 = 
CNST_TABLE_REF(((long)162)); 
BgL_arg5034z00_1777 = 
MAKE_PAIR(BgL_nz00_157, BNIL); 
BgL_arg5030z00_1775 = 
MAKE_PAIR(BgL_arg5033z00_1776, BgL_arg5034z00_1777); } 
{ /* ./DotNet/instr.scm 581 */
obj_t BgL_arg3131z00_3057;
{ /* ./DotNet/instr.scm 581 */
obj_t BgL_arg3134z00_3058;
BgL_arg3134z00_3058 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_156))->BgL_codez00); 
BgL_arg3131z00_3057 = 
MAKE_PAIR(BgL_arg5030z00_1775, BgL_arg3134z00_3058); } 
{ /* ./DotNet/instr.scm 581 */
BgL_envz00_bglt BgL_obj2963z00_3060;obj_t BgL_val2962z00_3061;
BgL_obj2963z00_3060 = BgL_envz00_156; 
BgL_val2962z00_3061 = BgL_arg3131z00_3057; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_3060))->BgL_codez00) = ((obj_t)BgL_val2962z00_3061), BUNSPEC); } } ((bool_t)1); } 
return ( 
BGl_za2lastzd2lineza2zd2zzdotnet_instrz00 = BgL_nz00_157, BUNSPEC) ;} } } 
}



/* __line5556 */
obj_t BGl___line5556z00zzdotnet_instrz00(obj_t BgL_envz00_3303, obj_t BgL_envz00_3304, obj_t BgL_nz00_3305)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 578 */
return 
BGl__linez00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3304), BgL_nz00_3305);} 
}



/* _localvar */
BGL_EXPORTED_DEF obj_t BGl__localvarz00zzdotnet_instrz00(BgL_envz00_bglt BgL_envz00_158, obj_t BgL_fromz00_159, obj_t BgL_toz00_160, obj_t BgL_unamez00_161, obj_t BgL_typez00_162, obj_t BgL_namez00_163)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 584 */
{ /* ./DotNet/instr.scm 585 */
obj_t BgL_namez00_3062;
{ /* ./DotNet/instr.scm 585 */
obj_t BgL_slotz00_3073;
BgL_slotz00_3073 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_namez00_163, 
(((BgL_envz00_bglt)CREF(BgL_envz00_158))->BgL_maplocalsz00)); 
if(
CBOOL(BgL_slotz00_3073))
{ /* ./DotNet/instr.scm 585 */
BgL_namez00_3062 = 
CDR(BgL_slotz00_3073); }  else 
{ /* ./DotNet/instr.scm 585 */
BgL_namez00_3062 = BgL_namez00_163; } } 
{ /* ./DotNet/instr.scm 585 */
obj_t BgL_arg5039z00_3063;
{ /* ./DotNet/instr.scm 585 */
obj_t BgL_arg5042z00_3064;obj_t BgL_arg5043z00_3065;
BgL_arg5042z00_3064 = 
CNST_TABLE_REF(((long)151)); 
{ /* ./DotNet/instr.scm 585 */
obj_t BgL_arg5046z00_3066;
{ /* ./DotNet/instr.scm 585 */
obj_t BgL_arg5049z00_3067;
{ /* ./DotNet/instr.scm 585 */
obj_t BgL_arg5052z00_3068;
{ /* ./DotNet/instr.scm 585 */
obj_t BgL_arg5055z00_3069;
BgL_arg5055z00_3069 = 
MAKE_PAIR(BgL_namez00_3062, BNIL); 
BgL_arg5052z00_3068 = 
MAKE_PAIR(BgL_typez00_162, BgL_arg5055z00_3069); } 
BgL_arg5049z00_3067 = 
MAKE_PAIR(BgL_unamez00_161, BgL_arg5052z00_3068); } 
BgL_arg5046z00_3066 = 
MAKE_PAIR(BgL_toz00_160, BgL_arg5049z00_3067); } 
BgL_arg5043z00_3065 = 
MAKE_PAIR(BgL_fromz00_159, BgL_arg5046z00_3066); } 
BgL_arg5039z00_3063 = 
MAKE_PAIR(BgL_arg5042z00_3064, BgL_arg5043z00_3065); } 
{ /* ./DotNet/instr.scm 585 */
obj_t BgL_arg3131z00_3080;
{ /* ./DotNet/instr.scm 585 */
obj_t BgL_arg3134z00_3081;
BgL_arg3134z00_3081 = 
(((BgL_envz00_bglt)CREF(BgL_envz00_158))->BgL_codez00); 
BgL_arg3131z00_3080 = 
MAKE_PAIR(BgL_arg5039z00_3063, BgL_arg3134z00_3081); } 
{ /* ./DotNet/instr.scm 585 */
BgL_envz00_bglt BgL_obj2963z00_3083;obj_t BgL_val2962z00_3084;
BgL_obj2963z00_3083 = BgL_envz00_158; 
BgL_val2962z00_3084 = BgL_arg3131z00_3080; 
((((BgL_envz00_bglt)CREF(BgL_obj2963z00_3083))->BgL_codez00) = ((obj_t)BgL_val2962z00_3084), BUNSPEC); } } 
return BTRUE;} } } 
}



/* __localvar5558 */
obj_t BGl___localvar5558z00zzdotnet_instrz00(obj_t BgL_envz00_3306, obj_t BgL_envz00_3307, obj_t BgL_fromz00_3308, obj_t BgL_toz00_3309, obj_t BgL_unamez00_3310, obj_t BgL_typez00_3311, obj_t BgL_namez00_3312)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 584 */
return 
BGl__localvarz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_3307), BgL_fromz00_3308, BgL_toz00_3309, BgL_unamez00_3310, BgL_typez00_3311, BgL_namez00_3312);} 
}



/* create-string */
BGL_EXPORTED_DEF obj_t BGl_createzd2stringzd2zzdotnet_instrz00(obj_t BgL_envz00_164, obj_t BgL_strz00_165)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 588 */
BGl__pushz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_164), 
CNST_TABLE_REF(((long)30)), BgL_strz00_165); 
{ /* ./DotNet/instr.scm 590 */
obj_t BgL_arg5061z00_1786;obj_t BgL_arg5062z00_1787;obj_t BgL_arg5063z00_1788;
BgL_arg5061z00_1786 = 
BGl_jlibzd2declarezd2zzdotnet_envz00(
(BgL_envz00_bglt)(BgL_envz00_164), 
CNST_TABLE_REF(((long)163))); 
BgL_arg5062z00_1787 = 
CNST_TABLE_REF(((long)164)); 
BgL_arg5063z00_1788 = 
CNST_TABLE_REF(((long)8)); 
return 
BGl__invokevirtualz00zzdotnet_instrz00(
(BgL_envz00_bglt)(BgL_envz00_164), BgL_arg5061z00_1786, BgL_arg5062z00_1787, BgL_arg5063z00_1788);} } 
}



/* _create-string */
obj_t BGl__createzd2stringzd2zzdotnet_instrz00(obj_t BgL_envz00_3313, obj_t BgL_envz00_3314, obj_t BgL_strz00_3315)
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 588 */
return 
BGl_createzd2stringzd2zzdotnet_instrz00(BgL_envz00_3314, BgL_strz00_3315);} 
}



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



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzdotnet_instrz00()
{ AN_OBJECT;
{ /* ./DotNet/instr.scm 2 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "dotnet_instr"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "dotnet_instr"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "dotnet_instr"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "dotnet_instr"); 
BGl_modulezd2initializa7ationz75zzobject_classz00(((long)30791), "dotnet_instr"); 
return 
BGl_modulezd2initializa7ationz75zzdotnet_envz00(((long)58889), "dotnet_instr");} 
}

