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


static obj_t BGl_compilezd2lispzd2fail2820z00zzdotnet_lispz00(obj_t, obj_t);
static obj_t BGl_compilezd2lispzd2app2792z00zzdotnet_lispz00(obj_t, obj_t);
extern obj_t BGl_vrefz00zzast_nodez00;
BGL_IMPORT obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_compilezd2lispzd2appzd2ly2794zd2zzdotnet_lispz00(obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzdotnet_lispz00();
BGL_IMPORT obj_t open_input_string(obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
static obj_t BGl_compilezd2lispzd2conditional2786z00zzdotnet_lispz00(obj_t, obj_t);
static obj_t BGl_compilezd2lispzd2boxzd2ref2824zd2zzdotnet_lispz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilezd2lispzd2zzdotnet_lispz00(BgL_nodez00_bglt);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
static obj_t BGl_compilezd2lispzd2makezd2box2822zd2zzdotnet_lispz00(obj_t, obj_t);
extern obj_t BGl_typez00zztype_typez00;
extern obj_t BGl_castz00zzast_nodez00;
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_compilezd2lispzd2cast2814z00zzdotnet_lispz00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zzdotnet_lispz00();
extern obj_t BGl_atomz00zzast_nodez00;
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
static obj_t BGl_compilezd2lispzd2jumpzd2exzd2it2818z00zzdotnet_lispz00(obj_t, obj_t);
static obj_t BGl_compilezd2sfunzd2zzdotnet_lispz00(obj_t);
static obj_t BGl_compilezd2lispzd2new2802z00zzdotnet_lispz00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzdotnet_lispz00();
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
static obj_t BGl_compilezd2lispzd2vsetz122808z12zzdotnet_lispz00(obj_t, obj_t);
extern obj_t BGl_getfieldz00zzast_nodez00;
extern obj_t BGl_isaz00zzast_nodez00;
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_selectz00zzast_nodez00;
extern obj_t BGl_vallocz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzdotnet_lispz00();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
static obj_t BGl_compilezd2lispzd2select2788z00zzdotnet_lispz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzdotnet_lispz00(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 *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
static obj_t BGl_compilezd2lispzd2var2778z00zzdotnet_lispz00(obj_t, obj_t);
static obj_t BGl_compilezd2lispzd2vref2806z00zzdotnet_lispz00(obj_t, obj_t);
static obj_t BGl_compilezd2lispzd2setq2782z00zzdotnet_lispz00(obj_t, obj_t);
static obj_t BGl_compilezd2lispzd2default2773z00zzdotnet_lispz00(BgL_nodez00_bglt);
static obj_t BGl_compilezd2lispzd2letzd2fun2790zd2zzdotnet_lispz00(obj_t, obj_t);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
static obj_t BGl_compilezd2lispzd2funcall2796z00zzdotnet_lispz00(obj_t, obj_t);
static obj_t BGl_compilezd2lispzd2letzd2var2780zd2zzdotnet_lispz00(obj_t, obj_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
static obj_t BGl_compilezd2lispzd2setzd2exzd2it2816z00zzdotnet_lispz00(obj_t, obj_t);
extern obj_t BGl_newz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
extern obj_t BGl_sequencez00zzast_nodez00;
static obj_t BGl_compilezd2lispzd2boxzd2setz122826zc0zzdotnet_lispz00(obj_t, obj_t);
static obj_t BGl_compilezd2lispzd2atom2776z00zzdotnet_lispz00(obj_t, obj_t);
extern obj_t BGl_appz00zzast_nodez00;
static obj_t BGl__compilezd2lisp4235zd2zzdotnet_lispz00(obj_t, obj_t);
static obj_t BGl_compilezd2lispzd2isa2812z00zzdotnet_lispz00(obj_t, obj_t);
extern obj_t BGl_localz00zzast_varz00;
extern obj_t BGl_vlengthz00zzast_nodez00;
static obj_t BGl_compilezd2lispzd2getfield2798z00zzdotnet_lispz00(obj_t, obj_t);
extern obj_t BGl_setfieldz00zzast_nodez00;
static obj_t BGl_compilezd2lispzd2valloc2804z00zzdotnet_lispz00(obj_t, obj_t);
static obj_t BGl_compilezd2lispzd2sequence2784z00zzdotnet_lispz00(obj_t, obj_t);
static obj_t BGl_compilezd2lispzd2vlength2810z00zzdotnet_lispz00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzdotnet_lispz00 = BUNSPEC;
static obj_t BGl_compilezd2lispzd2setfield2800z00zzdotnet_lispz00(obj_t, obj_t);
static obj_t BGl__compilezd2lispzd2default2773z00zzdotnet_lispz00(obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzdotnet_lispz00();
extern obj_t BGl_vsetz12z12zzast_nodez00;
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t __cnst[ 24 ] ;


DEFINE_STRING( BGl_string4933z00zzdotnet_lispz00, BgL_bgl_string4933za700za7za7dotnet_lispza7004960z00, "compile-lisp-default2773 let setq progn if selectq flet apply funcall getfield setfield new makevector vref vset vlength is? cast setexit throw fail make-box box-ref box-set ", 174 );
DEFINE_STRING( BGl_string4932z00zzdotnet_lispz00, BgL_bgl_string4932za700za7za7dotnet_lispza7004961z00, "No method for this object", 25 );
DEFINE_STATIC_PROCEDURE( BGl_compilezd2lispzd2default2773zd2envzd2zzdotnet_lispz00, BgL_bgl__compileza7d2lispza7d2default2773za700za7za7dotnet_lispza7004962z00, BGl__compilezd2lispzd2default2773z00zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4906z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2atom2776za700za7za7dotnet_lispza7004963z00, BGl_compilezd2lispzd2atom2776z00zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4907z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2var2778za700za7za7dotnet_lispza7004964z00, BGl_compilezd2lispzd2var2778z00zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4908z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2letza7d2var2780za7d2za7za7dotnet_lispza7004965za7, BGl_compilezd2lispzd2letzd2var2780zd2zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4910z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2sequence2784za700za7za7dotnet_lispza7004966z00, BGl_compilezd2lispzd2sequence2784z00zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4909z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2setq2782za700za7za7dotnet_lispza7004967z00, BGl_compilezd2lispzd2setq2782z00zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4911z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2conditional2786za700za7za7dotnet_lispza7004968z00, BGl_compilezd2lispzd2conditional2786z00zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4912z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2select2788za700za7za7dotnet_lispza7004969z00, BGl_compilezd2lispzd2select2788z00zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4913z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2letza7d2fun2790za7d2za7za7dotnet_lispza7004970za7, BGl_compilezd2lispzd2letzd2fun2790zd2zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4914z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2app2792za700za7za7dotnet_lispza7004971z00, BGl_compilezd2lispzd2app2792z00zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4915z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2appza7d2ly2794za7d2za7za7dotnet_lispza7004972za7, BGl_compilezd2lispzd2appzd2ly2794zd2zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4916z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2funcall2796za700za7za7dotnet_lispza7004973z00, BGl_compilezd2lispzd2funcall2796z00zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4917z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2getfield2798za700za7za7dotnet_lispza7004974z00, BGl_compilezd2lispzd2getfield2798z00zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4918z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2setfield2800za700za7za7dotnet_lispza7004975z00, BGl_compilezd2lispzd2setfield2800z00zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4920z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2valloc2804za700za7za7dotnet_lispza7004976z00, BGl_compilezd2lispzd2valloc2804z00zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4919z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2new2802za700za7za7dotnet_lispza7004977z00, BGl_compilezd2lispzd2new2802z00zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4921z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2vref2806za700za7za7dotnet_lispza7004978z00, BGl_compilezd2lispzd2vref2806z00zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4922z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2vsetza7122808za712za7za7dotnet_lispza7004979za7, BGl_compilezd2lispzd2vsetz122808z12zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4923z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2vlength2810za700za7za7dotnet_lispza7004980z00, BGl_compilezd2lispzd2vlength2810z00zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4924z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2isa2812za700za7za7dotnet_lispza7004981z00, BGl_compilezd2lispzd2isa2812z00zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4925z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2cast2814za700za7za7dotnet_lispza7004982z00, BGl_compilezd2lispzd2cast2814z00zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4926z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2setza7d2exza7d2it2816za700za7za7dotnet_lispza7004983z00, BGl_compilezd2lispzd2setzd2exzd2it2816z00zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4927z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2jumpza7d2exza7d2it2818za700za7za7dotnet_lispza7004984z00, BGl_compilezd2lispzd2jumpzd2exzd2it2818z00zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4928z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2fail2820za700za7za7dotnet_lispza7004985z00, BGl_compilezd2lispzd2fail2820z00zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4930z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2boxza7d2ref2824za7d2za7za7dotnet_lispza7004986za7, BGl_compilezd2lispzd2boxzd2ref2824zd2zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4929z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2makeza7d2box2822za7d2za7za7dotnet_lispza7004987za7, BGl_compilezd2lispzd2makezd2box2822zd2zzdotnet_lispz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4931z00zzdotnet_lispz00, BgL_bgl_compileza7d2lispza7d2boxza7d2setza7122826za7c0za7za7dotnet_lispza7004988z00, BGl_compilezd2lispzd2boxzd2setz122826zc0zzdotnet_lispz00, 0L, 1 );
DEFINE_EXPORT_GENERIC( BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_bgl__compileza7d2lisp4235za7d2za7za7dotnet_lispza7004989za7, BGl__compilezd2lisp4235zd2zzdotnet_lispz00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzdotnet_lispz00(long BgL_checksumz00_3189, char * BgL_fromz00_3190)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzdotnet_lispz00))
{ 
BGl_requirezd2initializa7ationz75zzdotnet_lispz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzdotnet_lispz00(); 
BGl_cnstzd2initzd2zzdotnet_lispz00(); 
BGl_importedzd2moduleszd2initz00zzdotnet_lispz00(); 
BGl_methodzd2initzd2zzdotnet_lispz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzdotnet_lispz00()
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 1 */
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "dotnet_lisp"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "dotnet_lisp"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "dotnet_lisp"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzdotnet_lispz00()
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 1 */
{ /* ./DotNet/lisp.scm 1 */
obj_t BgL_cportz00_3181;
BgL_cportz00_3181 = 
open_input_string(BGl_string4933z00zzdotnet_lispz00); 
{ 
long BgL_iz00_3182;
BgL_iz00_3182 = ((long)23); 
BgL_loopz00_3183:
{ /* ./DotNet/lisp.scm 1 */
bool_t BgL_test4935z00_3184;
BgL_test4935z00_3184 = 
(BgL_iz00_3182==((long)-1)); 
if(BgL_test4935z00_3184)
{ /* ./DotNet/lisp.scm 1 */
return BUNSPEC;}  else 
{ /* ./DotNet/lisp.scm 1 */
{ /* ./DotNet/lisp.scm 1 */
obj_t BgL_arg4937z00_3185;
{ /* ./DotNet/lisp.scm 1 */
obj_t BgL_list4940z00_3186;
BgL_list4940z00_3186 = 
MAKE_PAIR(BgL_cportz00_3181, BNIL); 
BgL_arg4937z00_3185 = 
BGl_readz00zz__readerz00(BgL_list4940z00_3186); } 
{ /* ./DotNet/lisp.scm 1 */
int BgL_auxz00_3206;
BgL_auxz00_3206 = 
(int)(BgL_iz00_3182); 
CNST_TABLE_SET(BgL_auxz00_3206, BgL_arg4937z00_3185); } } 
{ /* ./DotNet/lisp.scm 1 */
int BgL_auxz00_3187;
{ /* ./DotNet/lisp.scm 1 */
long BgL_auxz00_3209;
BgL_auxz00_3209 = 
(BgL_iz00_3182-((long)1)); 
BgL_auxz00_3187 = 
(int)(BgL_auxz00_3209); } 
{ 
long BgL_iz00_3212;
BgL_iz00_3212 = 
(long)(BgL_auxz00_3187); 
BgL_iz00_3182 = BgL_iz00_3212; 
goto BgL_loopz00_3183;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzdotnet_lispz00()
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 1 */
return BUNSPEC;} 
}



/* compile-sfun */
obj_t BGl_compilezd2sfunzd2zzdotnet_lispz00(obj_t BgL_vz00_11)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 46 */
{ /* ./DotNet/lisp.scm 48 */
BgL_valuez00_bglt BgL_instance2696z00_688;
{ /* ./DotNet/lisp.scm 49 */
BgL_variablez00_bglt BgL_obj1100z00_1588;
BgL_obj1100z00_1588 = 
(BgL_variablez00_bglt)(BgL_vz00_11); 
BgL_instance2696z00_688 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1588))->BgL_valuez00); } 
{ /* ./DotNet/lisp.scm 49 */
obj_t BgL_arg2828z00_689;obj_t BgL_arg2829z00_690;
{ /* ./DotNet/lisp.scm 49 */
obj_t BgL_l2698z00_691;
{ /* ./DotNet/lisp.scm 49 */
BgL_sfunz00_bglt BgL_obj1367z00_1589;
BgL_obj1367z00_1589 = 
(BgL_sfunz00_bglt)(BgL_instance2696z00_688); 
BgL_l2698z00_691 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_1589))->BgL_argsz00); } 
{ /* ./DotNet/lisp.scm 49 */
bool_t BgL_test2831z00_692;
BgL_test2831z00_692 = 
NULLP(BgL_l2698z00_691); 
if(BgL_test2831z00_692)
{ /* ./DotNet/lisp.scm 49 */
BgL_arg2828z00_689 = BNIL; }  else 
{ /* ./DotNet/lisp.scm 49 */
obj_t BgL_head2700z00_693;
{ /* ./DotNet/lisp.scm 49 */
obj_t BgL_arg2852z00_704;
{ /* ./DotNet/lisp.scm 49 */
BgL_variablez00_bglt BgL_obj1094z00_1592;
{ /* ./DotNet/lisp.scm 49 */
obj_t BgL_auxz00_3220;
BgL_auxz00_3220 = 
CAR(BgL_l2698z00_691); 
BgL_obj1094z00_1592 = 
(BgL_variablez00_bglt)(BgL_auxz00_3220); } 
BgL_arg2852z00_704 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1094z00_1592))->BgL_namez00); } 
BgL_head2700z00_693 = 
MAKE_PAIR(BgL_arg2852z00_704, BNIL); } 
{ 
obj_t BgL_l2698z00_694;obj_t BgL_tail2701z00_695;
{ /* ./DotNet/lisp.scm 49 */
obj_t BgL_arg2833z00_697;
BgL_arg2833z00_697 = 
CDR(BgL_l2698z00_691); 
BgL_l2698z00_694 = BgL_arg2833z00_697; 
BgL_tail2701z00_695 = BgL_head2700z00_693; 
BgL_map2699z00_696:
{ /* ./DotNet/lisp.scm 49 */
bool_t BgL_test2836z00_698;
BgL_test2836z00_698 = 
NULLP(BgL_l2698z00_694); 
if(BgL_test2836z00_698)
{ /* ./DotNet/lisp.scm 49 */
BgL_arg2828z00_689 = BgL_head2700z00_693; }  else 
{ /* ./DotNet/lisp.scm 49 */
obj_t BgL_newtail2702z00_699;
{ /* ./DotNet/lisp.scm 49 */
obj_t BgL_arg2843z00_701;
{ /* ./DotNet/lisp.scm 49 */
BgL_variablez00_bglt BgL_obj1094z00_1598;
{ /* ./DotNet/lisp.scm 49 */
obj_t BgL_auxz00_3228;
BgL_auxz00_3228 = 
CAR(BgL_l2698z00_694); 
BgL_obj1094z00_1598 = 
(BgL_variablez00_bglt)(BgL_auxz00_3228); } 
BgL_arg2843z00_701 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1094z00_1598))->BgL_namez00); } 
BgL_newtail2702z00_699 = 
MAKE_PAIR(BgL_arg2843z00_701, BNIL); } 
SET_CDR(BgL_tail2701z00_695, BgL_newtail2702z00_699); 
{ /* ./DotNet/lisp.scm 49 */
obj_t BgL_arg2839z00_700;
BgL_arg2839z00_700 = 
CDR(BgL_l2698z00_694); 
{ 
obj_t BgL_tail2701z00_3236;obj_t BgL_l2698z00_3235;
BgL_l2698z00_3235 = BgL_arg2839z00_700; 
BgL_tail2701z00_3236 = BgL_newtail2702z00_699; 
BgL_tail2701z00_695 = BgL_tail2701z00_3236; 
BgL_l2698z00_694 = BgL_l2698z00_3235; 
goto BgL_map2699z00_696;} } } } } } } } } 
{ /* ./DotNet/lisp.scm 50 */
obj_t BgL_arg2862z00_707;
{ /* ./DotNet/lisp.scm 50 */
obj_t BgL_arg2866z00_709;
{ /* ./DotNet/lisp.scm 50 */
BgL_sfunz00_bglt BgL_obj1370z00_1604;
BgL_obj1370z00_1604 = 
(BgL_sfunz00_bglt)(BgL_instance2696z00_688); 
BgL_arg2866z00_709 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1604))->BgL_bodyz00); } 
{ /* ./DotNet/lisp.scm 50 */
BgL_nodez00_bglt BgL_ez00_1605;
BgL_ez00_1605 = 
(BgL_nodez00_bglt)(BgL_arg2866z00_709); 
{ /* ./DotNet/lisp.scm 50 */
obj_t BgL_method2774z00_1606;
{ /* ./DotNet/lisp.scm 50 */
BgL_objectz00_bglt BgL_objz00_1607;
BgL_objz00_1607 = 
(BgL_objectz00_bglt)(BgL_ez00_1605); 
{ /* ./DotNet/lisp.scm 50 */
long BgL_objzd2classzd2numz00_1608;
BgL_objzd2classzd2numz00_1608 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1607); 
{ /* ./DotNet/lisp.scm 50 */
obj_t BgL_arg2017z00_1609;
{ /* ./DotNet/lisp.scm 50 */
int BgL_auxz00_3242;
BgL_auxz00_3242 = 
(int)(((long)1)); 
BgL_arg2017z00_1609 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3242); } 
{ /* ./DotNet/lisp.scm 50 */
int BgL_offsetz00_1612;
BgL_offsetz00_1612 = 
(int)(BgL_objzd2classzd2numz00_1608); 
{ /* ./DotNet/lisp.scm 50 */
long BgL_offsetz00_1613;
{ /* ./DotNet/lisp.scm 50 */
long BgL_auxz00_3246;
BgL_auxz00_3246 = 
(long)(BgL_offsetz00_1612); 
BgL_offsetz00_1613 = 
(BgL_auxz00_3246-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 50 */
long BgL_modz00_1614;
{ /* ./DotNet/lisp.scm 50 */
int BgL_arg2028z00_1615;
BgL_arg2028z00_1615 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 50 */
long BgL_n2z00_1623;
BgL_n2z00_1623 = 
(long)(BgL_arg2028z00_1615); 
BgL_modz00_1614 = 
(BgL_offsetz00_1613/BgL_n2z00_1623); } } 
{ /* ./DotNet/lisp.scm 50 */
long BgL_restz00_1616;
{ /* ./DotNet/lisp.scm 50 */
int BgL_arg2024z00_1617;
BgL_arg2024z00_1617 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 50 */
long BgL_n2z00_1626;
BgL_n2z00_1626 = 
(long)(BgL_arg2024z00_1617); 
BgL_restz00_1616 = 
(BgL_offsetz00_1613%BgL_n2z00_1626); } } 
{ /* ./DotNet/lisp.scm 50 */

{ /* ./DotNet/lisp.scm 50 */
obj_t BgL_bucketz00_1618;
{ /* ./DotNet/lisp.scm 50 */
int BgL_kz00_1628;
BgL_kz00_1628 = 
(int)(BgL_modz00_1614); 
BgL_bucketz00_1618 = 
VECTOR_REF(BgL_arg2017z00_1609,BgL_kz00_1628); } 
{ /* ./DotNet/lisp.scm 50 */
int BgL_kz00_1630;
BgL_kz00_1630 = 
(int)(BgL_restz00_1616); 
BgL_method2774z00_1606 = 
VECTOR_REF(BgL_bucketz00_1618,BgL_kz00_1630); } } } } } } } } } } 
BgL_arg2862z00_707 = 
PROCEDURE_ENTRY(BgL_method2774z00_1606)(BgL_method2774z00_1606, 
(obj_t)(BgL_ez00_1605), BEOA); } } } 
BgL_arg2829z00_690 = 
MAKE_PAIR(BgL_arg2862z00_707, BNIL); } 
return 
MAKE_PAIR(BgL_arg2828z00_689, BgL_arg2829z00_690);} } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzdotnet_lispz00()
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 1 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_compilezd2lispzd2default2773zd2envzd2zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_atomz00zzast_nodez00, BGl_proc4906z00zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_varz00zzast_nodez00, BGl_proc4907z00zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_letzd2varzd2zzast_nodez00, BGl_proc4908z00zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_setqz00zzast_nodez00, BGl_proc4909z00zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_sequencez00zzast_nodez00, BGl_proc4910z00zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_conditionalz00zzast_nodez00, BGl_proc4911z00zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_selectz00zzast_nodez00, BGl_proc4912z00zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_letzd2funzd2zzast_nodez00, BGl_proc4913z00zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_appz00zzast_nodez00, BGl_proc4914z00zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_appzd2lyzd2zzast_nodez00, BGl_proc4915z00zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_funcallz00zzast_nodez00, BGl_proc4916z00zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_getfieldz00zzast_nodez00, BGl_proc4917z00zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_setfieldz00zzast_nodez00, BGl_proc4918z00zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_newz00zzast_nodez00, BGl_proc4919z00zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_vallocz00zzast_nodez00, BGl_proc4920z00zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_vrefz00zzast_nodez00, BGl_proc4921z00zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_vsetz12z12zzast_nodez00, BGl_proc4922z00zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_vlengthz00zzast_nodez00, BGl_proc4923z00zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_isaz00zzast_nodez00, BGl_proc4924z00zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_castz00zzast_nodez00, BGl_proc4925z00zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc4926z00zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc4927z00zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_failz00zzast_nodez00, BGl_proc4928z00zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_makezd2boxzd2zzast_nodez00, BGl_proc4929z00zzdotnet_lispz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_boxzd2refzd2zzast_nodez00, BGl_proc4930z00zzdotnet_lispz00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc4931z00zzdotnet_lispz00);} 
}



/* compile-lisp-box-set!2826 */
obj_t BGl_compilezd2lispzd2boxzd2setz122826zc0zzdotnet_lispz00(obj_t BgL_envz00_3127, obj_t BgL_ez00_3128)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 112 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_ez00_1573;
BgL_ez00_1573 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_ez00_3128); 
{ /* ./DotNet/lisp.scm 114 */
obj_t BgL_arg4104z00_1577;obj_t BgL_arg4105z00_1578;
BgL_arg4104z00_1577 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./DotNet/lisp.scm 114 */
obj_t BgL_arg4108z00_1579;obj_t BgL_arg4109z00_1580;
{ /* ./DotNet/lisp.scm 114 */
BgL_varz00_bglt BgL_arg4112z00_1581;
BgL_arg4112z00_1581 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_ez00_1573))->BgL_varz00); 
{ /* ./DotNet/lisp.scm 114 */
BgL_nodez00_bglt BgL_ez00_3018;
BgL_ez00_3018 = 
(BgL_nodez00_bglt)(BgL_arg4112z00_1581); 
{ /* ./DotNet/lisp.scm 114 */
obj_t BgL_method2774z00_3019;
{ /* ./DotNet/lisp.scm 114 */
BgL_objectz00_bglt BgL_objz00_3020;
BgL_objz00_3020 = 
(BgL_objectz00_bglt)(BgL_ez00_3018); 
{ /* ./DotNet/lisp.scm 114 */
long BgL_objzd2classzd2numz00_3021;
BgL_objzd2classzd2numz00_3021 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3020); 
{ /* ./DotNet/lisp.scm 114 */
obj_t BgL_arg2017z00_3022;
{ /* ./DotNet/lisp.scm 114 */
int BgL_auxz00_3296;
BgL_auxz00_3296 = 
(int)(((long)1)); 
BgL_arg2017z00_3022 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3296); } 
{ /* ./DotNet/lisp.scm 114 */
int BgL_offsetz00_3025;
BgL_offsetz00_3025 = 
(int)(BgL_objzd2classzd2numz00_3021); 
{ /* ./DotNet/lisp.scm 114 */
long BgL_offsetz00_3026;
{ /* ./DotNet/lisp.scm 114 */
long BgL_auxz00_3300;
BgL_auxz00_3300 = 
(long)(BgL_offsetz00_3025); 
BgL_offsetz00_3026 = 
(BgL_auxz00_3300-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 114 */
long BgL_modz00_3027;
{ /* ./DotNet/lisp.scm 114 */
int BgL_arg2028z00_3028;
BgL_arg2028z00_3028 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 114 */
long BgL_n2z00_3036;
BgL_n2z00_3036 = 
(long)(BgL_arg2028z00_3028); 
BgL_modz00_3027 = 
(BgL_offsetz00_3026/BgL_n2z00_3036); } } 
{ /* ./DotNet/lisp.scm 114 */
long BgL_restz00_3029;
{ /* ./DotNet/lisp.scm 114 */
int BgL_arg2024z00_3030;
BgL_arg2024z00_3030 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 114 */
long BgL_n2z00_3039;
BgL_n2z00_3039 = 
(long)(BgL_arg2024z00_3030); 
BgL_restz00_3029 = 
(BgL_offsetz00_3026%BgL_n2z00_3039); } } 
{ /* ./DotNet/lisp.scm 114 */

{ /* ./DotNet/lisp.scm 114 */
obj_t BgL_bucketz00_3031;
{ /* ./DotNet/lisp.scm 114 */
int BgL_kz00_3041;
BgL_kz00_3041 = 
(int)(BgL_modz00_3027); 
BgL_bucketz00_3031 = 
VECTOR_REF(BgL_arg2017z00_3022,BgL_kz00_3041); } 
{ /* ./DotNet/lisp.scm 114 */
int BgL_kz00_3043;
BgL_kz00_3043 = 
(int)(BgL_restz00_3029); 
BgL_method2774z00_3019 = 
VECTOR_REF(BgL_bucketz00_3031,BgL_kz00_3043); } } } } } } } } } } 
BgL_arg4108z00_1579 = 
PROCEDURE_ENTRY(BgL_method2774z00_3019)(BgL_method2774z00_3019, 
(obj_t)(BgL_ez00_3018), BEOA); } } } 
{ /* ./DotNet/lisp.scm 114 */
obj_t BgL_arg4116z00_1582;
{ /* ./DotNet/lisp.scm 114 */
BgL_nodez00_bglt BgL_arg4121z00_1584;
BgL_arg4121z00_1584 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_ez00_1573))->BgL_valuez00); 
{ /* ./DotNet/lisp.scm 114 */
obj_t BgL_method2774z00_3046;
{ /* ./DotNet/lisp.scm 114 */
BgL_objectz00_bglt BgL_objz00_3047;
BgL_objz00_3047 = 
(BgL_objectz00_bglt)(BgL_arg4121z00_1584); 
{ /* ./DotNet/lisp.scm 114 */
long BgL_objzd2classzd2numz00_3048;
BgL_objzd2classzd2numz00_3048 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3047); 
{ /* ./DotNet/lisp.scm 114 */
obj_t BgL_arg2017z00_3049;
{ /* ./DotNet/lisp.scm 114 */
int BgL_auxz00_3319;
BgL_auxz00_3319 = 
(int)(((long)1)); 
BgL_arg2017z00_3049 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3319); } 
{ /* ./DotNet/lisp.scm 114 */
int BgL_offsetz00_3052;
BgL_offsetz00_3052 = 
(int)(BgL_objzd2classzd2numz00_3048); 
{ /* ./DotNet/lisp.scm 114 */
long BgL_offsetz00_3053;
{ /* ./DotNet/lisp.scm 114 */
long BgL_auxz00_3323;
BgL_auxz00_3323 = 
(long)(BgL_offsetz00_3052); 
BgL_offsetz00_3053 = 
(BgL_auxz00_3323-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 114 */
long BgL_modz00_3054;
{ /* ./DotNet/lisp.scm 114 */
int BgL_arg2028z00_3055;
BgL_arg2028z00_3055 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 114 */
long BgL_n2z00_3063;
BgL_n2z00_3063 = 
(long)(BgL_arg2028z00_3055); 
BgL_modz00_3054 = 
(BgL_offsetz00_3053/BgL_n2z00_3063); } } 
{ /* ./DotNet/lisp.scm 114 */
long BgL_restz00_3056;
{ /* ./DotNet/lisp.scm 114 */
int BgL_arg2024z00_3057;
BgL_arg2024z00_3057 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 114 */
long BgL_n2z00_3066;
BgL_n2z00_3066 = 
(long)(BgL_arg2024z00_3057); 
BgL_restz00_3056 = 
(BgL_offsetz00_3053%BgL_n2z00_3066); } } 
{ /* ./DotNet/lisp.scm 114 */

{ /* ./DotNet/lisp.scm 114 */
obj_t BgL_bucketz00_3058;
{ /* ./DotNet/lisp.scm 114 */
int BgL_kz00_3068;
BgL_kz00_3068 = 
(int)(BgL_modz00_3054); 
BgL_bucketz00_3058 = 
VECTOR_REF(BgL_arg2017z00_3049,BgL_kz00_3068); } 
{ /* ./DotNet/lisp.scm 114 */
int BgL_kz00_3070;
BgL_kz00_3070 = 
(int)(BgL_restz00_3056); 
BgL_method2774z00_3046 = 
VECTOR_REF(BgL_bucketz00_3058,BgL_kz00_3070); } } } } } } } } } } 
BgL_arg4116z00_1582 = 
PROCEDURE_ENTRY(BgL_method2774z00_3046)(BgL_method2774z00_3046, 
(obj_t)(BgL_arg4121z00_1584), BEOA); } } 
BgL_arg4109z00_1580 = 
MAKE_PAIR(BgL_arg4116z00_1582, BNIL); } 
BgL_arg4105z00_1578 = 
MAKE_PAIR(BgL_arg4108z00_1579, BgL_arg4109z00_1580); } 
return 
MAKE_PAIR(BgL_arg4104z00_1577, BgL_arg4105z00_1578);} } } 
}



/* compile-lisp-box-ref2824 */
obj_t BGl_compilezd2lispzd2boxzd2ref2824zd2zzdotnet_lispz00(obj_t BgL_envz00_3129, obj_t BgL_ez00_3130)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 108 */
{ 
BgL_boxzd2refzd2_bglt BgL_ez00_1562;
BgL_ez00_1562 = 
(BgL_boxzd2refzd2_bglt)(BgL_ez00_3130); 
{ /* ./DotNet/lisp.scm 110 */
obj_t BgL_arg4086z00_1566;obj_t BgL_arg4087z00_1567;
BgL_arg4086z00_1566 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./DotNet/lisp.scm 110 */
obj_t BgL_arg4090z00_1568;
{ /* ./DotNet/lisp.scm 110 */
BgL_varz00_bglt BgL_arg4094z00_1570;
BgL_arg4094z00_1570 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_ez00_1562))->BgL_varz00); 
{ /* ./DotNet/lisp.scm 110 */
BgL_nodez00_bglt BgL_ez00_2991;
BgL_ez00_2991 = 
(BgL_nodez00_bglt)(BgL_arg4094z00_1570); 
{ /* ./DotNet/lisp.scm 110 */
obj_t BgL_method2774z00_2992;
{ /* ./DotNet/lisp.scm 110 */
BgL_objectz00_bglt BgL_objz00_2993;
BgL_objz00_2993 = 
(BgL_objectz00_bglt)(BgL_ez00_2991); 
{ /* ./DotNet/lisp.scm 110 */
long BgL_objzd2classzd2numz00_2994;
BgL_objzd2classzd2numz00_2994 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2993); 
{ /* ./DotNet/lisp.scm 110 */
obj_t BgL_arg2017z00_2995;
{ /* ./DotNet/lisp.scm 110 */
int BgL_auxz00_3348;
BgL_auxz00_3348 = 
(int)(((long)1)); 
BgL_arg2017z00_2995 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3348); } 
{ /* ./DotNet/lisp.scm 110 */
int BgL_offsetz00_2998;
BgL_offsetz00_2998 = 
(int)(BgL_objzd2classzd2numz00_2994); 
{ /* ./DotNet/lisp.scm 110 */
long BgL_offsetz00_2999;
{ /* ./DotNet/lisp.scm 110 */
long BgL_auxz00_3352;
BgL_auxz00_3352 = 
(long)(BgL_offsetz00_2998); 
BgL_offsetz00_2999 = 
(BgL_auxz00_3352-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 110 */
long BgL_modz00_3000;
{ /* ./DotNet/lisp.scm 110 */
int BgL_arg2028z00_3001;
BgL_arg2028z00_3001 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 110 */
long BgL_n2z00_3009;
BgL_n2z00_3009 = 
(long)(BgL_arg2028z00_3001); 
BgL_modz00_3000 = 
(BgL_offsetz00_2999/BgL_n2z00_3009); } } 
{ /* ./DotNet/lisp.scm 110 */
long BgL_restz00_3002;
{ /* ./DotNet/lisp.scm 110 */
int BgL_arg2024z00_3003;
BgL_arg2024z00_3003 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 110 */
long BgL_n2z00_3012;
BgL_n2z00_3012 = 
(long)(BgL_arg2024z00_3003); 
BgL_restz00_3002 = 
(BgL_offsetz00_2999%BgL_n2z00_3012); } } 
{ /* ./DotNet/lisp.scm 110 */

{ /* ./DotNet/lisp.scm 110 */
obj_t BgL_bucketz00_3004;
{ /* ./DotNet/lisp.scm 110 */
int BgL_kz00_3014;
BgL_kz00_3014 = 
(int)(BgL_modz00_3000); 
BgL_bucketz00_3004 = 
VECTOR_REF(BgL_arg2017z00_2995,BgL_kz00_3014); } 
{ /* ./DotNet/lisp.scm 110 */
int BgL_kz00_3016;
BgL_kz00_3016 = 
(int)(BgL_restz00_3002); 
BgL_method2774z00_2992 = 
VECTOR_REF(BgL_bucketz00_3004,BgL_kz00_3016); } } } } } } } } } } 
BgL_arg4090z00_1568 = 
PROCEDURE_ENTRY(BgL_method2774z00_2992)(BgL_method2774z00_2992, 
(obj_t)(BgL_ez00_2991), BEOA); } } } 
BgL_arg4087z00_1567 = 
MAKE_PAIR(BgL_arg4090z00_1568, BNIL); } 
return 
MAKE_PAIR(BgL_arg4086z00_1566, BgL_arg4087z00_1567);} } } 
}



/* compile-lisp-make-box2822 */
obj_t BGl_compilezd2lispzd2makezd2box2822zd2zzdotnet_lispz00(obj_t BgL_envz00_3131, obj_t BgL_ez00_3132)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 104 */
{ 
BgL_makezd2boxzd2_bglt BgL_ez00_1551;
BgL_ez00_1551 = 
(BgL_makezd2boxzd2_bglt)(BgL_ez00_3132); 
{ /* ./DotNet/lisp.scm 106 */
obj_t BgL_arg4068z00_1555;obj_t BgL_arg4069z00_1556;
BgL_arg4068z00_1555 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./DotNet/lisp.scm 106 */
obj_t BgL_arg4072z00_1557;
{ /* ./DotNet/lisp.scm 106 */
BgL_nodez00_bglt BgL_arg4076z00_1559;
BgL_arg4076z00_1559 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_ez00_1551))->BgL_valuez00); 
{ /* ./DotNet/lisp.scm 106 */
obj_t BgL_method2774z00_2965;
{ /* ./DotNet/lisp.scm 106 */
BgL_objectz00_bglt BgL_objz00_2966;
BgL_objz00_2966 = 
(BgL_objectz00_bglt)(BgL_arg4076z00_1559); 
{ /* ./DotNet/lisp.scm 106 */
long BgL_objzd2classzd2numz00_2967;
BgL_objzd2classzd2numz00_2967 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2966); 
{ /* ./DotNet/lisp.scm 106 */
obj_t BgL_arg2017z00_2968;
{ /* ./DotNet/lisp.scm 106 */
int BgL_auxz00_3375;
BgL_auxz00_3375 = 
(int)(((long)1)); 
BgL_arg2017z00_2968 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3375); } 
{ /* ./DotNet/lisp.scm 106 */
int BgL_offsetz00_2971;
BgL_offsetz00_2971 = 
(int)(BgL_objzd2classzd2numz00_2967); 
{ /* ./DotNet/lisp.scm 106 */
long BgL_offsetz00_2972;
{ /* ./DotNet/lisp.scm 106 */
long BgL_auxz00_3379;
BgL_auxz00_3379 = 
(long)(BgL_offsetz00_2971); 
BgL_offsetz00_2972 = 
(BgL_auxz00_3379-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 106 */
long BgL_modz00_2973;
{ /* ./DotNet/lisp.scm 106 */
int BgL_arg2028z00_2974;
BgL_arg2028z00_2974 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 106 */
long BgL_n2z00_2982;
BgL_n2z00_2982 = 
(long)(BgL_arg2028z00_2974); 
BgL_modz00_2973 = 
(BgL_offsetz00_2972/BgL_n2z00_2982); } } 
{ /* ./DotNet/lisp.scm 106 */
long BgL_restz00_2975;
{ /* ./DotNet/lisp.scm 106 */
int BgL_arg2024z00_2976;
BgL_arg2024z00_2976 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 106 */
long BgL_n2z00_2985;
BgL_n2z00_2985 = 
(long)(BgL_arg2024z00_2976); 
BgL_restz00_2975 = 
(BgL_offsetz00_2972%BgL_n2z00_2985); } } 
{ /* ./DotNet/lisp.scm 106 */

{ /* ./DotNet/lisp.scm 106 */
obj_t BgL_bucketz00_2977;
{ /* ./DotNet/lisp.scm 106 */
int BgL_kz00_2987;
BgL_kz00_2987 = 
(int)(BgL_modz00_2973); 
BgL_bucketz00_2977 = 
VECTOR_REF(BgL_arg2017z00_2968,BgL_kz00_2987); } 
{ /* ./DotNet/lisp.scm 106 */
int BgL_kz00_2989;
BgL_kz00_2989 = 
(int)(BgL_restz00_2975); 
BgL_method2774z00_2965 = 
VECTOR_REF(BgL_bucketz00_2977,BgL_kz00_2989); } } } } } } } } } } 
BgL_arg4072z00_1557 = 
PROCEDURE_ENTRY(BgL_method2774z00_2965)(BgL_method2774z00_2965, 
(obj_t)(BgL_arg4076z00_1559), BEOA); } } 
BgL_arg4069z00_1556 = 
MAKE_PAIR(BgL_arg4072z00_1557, BNIL); } 
return 
MAKE_PAIR(BgL_arg4068z00_1555, BgL_arg4069z00_1556);} } } 
}



/* compile-lisp-fail2820 */
obj_t BGl_compilezd2lispzd2fail2820z00zzdotnet_lispz00(obj_t BgL_envz00_3133, obj_t BgL_ez00_3134)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 100 */
{ 
BgL_failz00_bglt BgL_ez00_1534;
BgL_ez00_1534 = 
(BgL_failz00_bglt)(BgL_ez00_3134); 
{ /* ./DotNet/lisp.scm 102 */
obj_t BgL_arg4034z00_1538;obj_t BgL_arg4035z00_1539;
BgL_arg4034z00_1538 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./DotNet/lisp.scm 102 */
obj_t BgL_arg4038z00_1540;obj_t BgL_arg4039z00_1541;
{ /* ./DotNet/lisp.scm 102 */
BgL_nodez00_bglt BgL_arg4042z00_1542;
BgL_arg4042z00_1542 = 
(((BgL_failz00_bglt)CREF(BgL_ez00_1534))->BgL_procz00); 
{ /* ./DotNet/lisp.scm 102 */
obj_t BgL_method2774z00_2884;
{ /* ./DotNet/lisp.scm 102 */
BgL_objectz00_bglt BgL_objz00_2885;
BgL_objz00_2885 = 
(BgL_objectz00_bglt)(BgL_arg4042z00_1542); 
{ /* ./DotNet/lisp.scm 102 */
long BgL_objzd2classzd2numz00_2886;
BgL_objzd2classzd2numz00_2886 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2885); 
{ /* ./DotNet/lisp.scm 102 */
obj_t BgL_arg2017z00_2887;
{ /* ./DotNet/lisp.scm 102 */
int BgL_auxz00_3402;
BgL_auxz00_3402 = 
(int)(((long)1)); 
BgL_arg2017z00_2887 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3402); } 
{ /* ./DotNet/lisp.scm 102 */
int BgL_offsetz00_2890;
BgL_offsetz00_2890 = 
(int)(BgL_objzd2classzd2numz00_2886); 
{ /* ./DotNet/lisp.scm 102 */
long BgL_offsetz00_2891;
{ /* ./DotNet/lisp.scm 102 */
long BgL_auxz00_3406;
BgL_auxz00_3406 = 
(long)(BgL_offsetz00_2890); 
BgL_offsetz00_2891 = 
(BgL_auxz00_3406-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 102 */
long BgL_modz00_2892;
{ /* ./DotNet/lisp.scm 102 */
int BgL_arg2028z00_2893;
BgL_arg2028z00_2893 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 102 */
long BgL_n2z00_2901;
BgL_n2z00_2901 = 
(long)(BgL_arg2028z00_2893); 
BgL_modz00_2892 = 
(BgL_offsetz00_2891/BgL_n2z00_2901); } } 
{ /* ./DotNet/lisp.scm 102 */
long BgL_restz00_2894;
{ /* ./DotNet/lisp.scm 102 */
int BgL_arg2024z00_2895;
BgL_arg2024z00_2895 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 102 */
long BgL_n2z00_2904;
BgL_n2z00_2904 = 
(long)(BgL_arg2024z00_2895); 
BgL_restz00_2894 = 
(BgL_offsetz00_2891%BgL_n2z00_2904); } } 
{ /* ./DotNet/lisp.scm 102 */

{ /* ./DotNet/lisp.scm 102 */
obj_t BgL_bucketz00_2896;
{ /* ./DotNet/lisp.scm 102 */
int BgL_kz00_2906;
BgL_kz00_2906 = 
(int)(BgL_modz00_2892); 
BgL_bucketz00_2896 = 
VECTOR_REF(BgL_arg2017z00_2887,BgL_kz00_2906); } 
{ /* ./DotNet/lisp.scm 102 */
int BgL_kz00_2908;
BgL_kz00_2908 = 
(int)(BgL_restz00_2894); 
BgL_method2774z00_2884 = 
VECTOR_REF(BgL_bucketz00_2896,BgL_kz00_2908); } } } } } } } } } } 
BgL_arg4038z00_1540 = 
PROCEDURE_ENTRY(BgL_method2774z00_2884)(BgL_method2774z00_2884, 
(obj_t)(BgL_arg4042z00_1542), BEOA); } } 
{ /* ./DotNet/lisp.scm 102 */
obj_t BgL_arg4046z00_1543;obj_t BgL_arg4047z00_1544;
{ /* ./DotNet/lisp.scm 102 */
BgL_nodez00_bglt BgL_arg4050z00_1545;
BgL_arg4050z00_1545 = 
(((BgL_failz00_bglt)CREF(BgL_ez00_1534))->BgL_msgz00); 
{ /* ./DotNet/lisp.scm 102 */
obj_t BgL_method2774z00_2911;
{ /* ./DotNet/lisp.scm 102 */
BgL_objectz00_bglt BgL_objz00_2912;
BgL_objz00_2912 = 
(BgL_objectz00_bglt)(BgL_arg4050z00_1545); 
{ /* ./DotNet/lisp.scm 102 */
long BgL_objzd2classzd2numz00_2913;
BgL_objzd2classzd2numz00_2913 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2912); 
{ /* ./DotNet/lisp.scm 102 */
obj_t BgL_arg2017z00_2914;
{ /* ./DotNet/lisp.scm 102 */
int BgL_auxz00_3425;
BgL_auxz00_3425 = 
(int)(((long)1)); 
BgL_arg2017z00_2914 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3425); } 
{ /* ./DotNet/lisp.scm 102 */
int BgL_offsetz00_2917;
BgL_offsetz00_2917 = 
(int)(BgL_objzd2classzd2numz00_2913); 
{ /* ./DotNet/lisp.scm 102 */
long BgL_offsetz00_2918;
{ /* ./DotNet/lisp.scm 102 */
long BgL_auxz00_3429;
BgL_auxz00_3429 = 
(long)(BgL_offsetz00_2917); 
BgL_offsetz00_2918 = 
(BgL_auxz00_3429-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 102 */
long BgL_modz00_2919;
{ /* ./DotNet/lisp.scm 102 */
int BgL_arg2028z00_2920;
BgL_arg2028z00_2920 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 102 */
long BgL_n2z00_2928;
BgL_n2z00_2928 = 
(long)(BgL_arg2028z00_2920); 
BgL_modz00_2919 = 
(BgL_offsetz00_2918/BgL_n2z00_2928); } } 
{ /* ./DotNet/lisp.scm 102 */
long BgL_restz00_2921;
{ /* ./DotNet/lisp.scm 102 */
int BgL_arg2024z00_2922;
BgL_arg2024z00_2922 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 102 */
long BgL_n2z00_2931;
BgL_n2z00_2931 = 
(long)(BgL_arg2024z00_2922); 
BgL_restz00_2921 = 
(BgL_offsetz00_2918%BgL_n2z00_2931); } } 
{ /* ./DotNet/lisp.scm 102 */

{ /* ./DotNet/lisp.scm 102 */
obj_t BgL_bucketz00_2923;
{ /* ./DotNet/lisp.scm 102 */
int BgL_kz00_2933;
BgL_kz00_2933 = 
(int)(BgL_modz00_2919); 
BgL_bucketz00_2923 = 
VECTOR_REF(BgL_arg2017z00_2914,BgL_kz00_2933); } 
{ /* ./DotNet/lisp.scm 102 */
int BgL_kz00_2935;
BgL_kz00_2935 = 
(int)(BgL_restz00_2921); 
BgL_method2774z00_2911 = 
VECTOR_REF(BgL_bucketz00_2923,BgL_kz00_2935); } } } } } } } } } } 
BgL_arg4046z00_1543 = 
PROCEDURE_ENTRY(BgL_method2774z00_2911)(BgL_method2774z00_2911, 
(obj_t)(BgL_arg4050z00_1545), BEOA); } } 
{ /* ./DotNet/lisp.scm 102 */
obj_t BgL_arg4054z00_1546;
{ /* ./DotNet/lisp.scm 102 */
BgL_nodez00_bglt BgL_arg4058z00_1548;
BgL_arg4058z00_1548 = 
(((BgL_failz00_bglt)CREF(BgL_ez00_1534))->BgL_objz00); 
{ /* ./DotNet/lisp.scm 102 */
obj_t BgL_method2774z00_2938;
{ /* ./DotNet/lisp.scm 102 */
BgL_objectz00_bglt BgL_objz00_2939;
BgL_objz00_2939 = 
(BgL_objectz00_bglt)(BgL_arg4058z00_1548); 
{ /* ./DotNet/lisp.scm 102 */
long BgL_objzd2classzd2numz00_2940;
BgL_objzd2classzd2numz00_2940 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2939); 
{ /* ./DotNet/lisp.scm 102 */
obj_t BgL_arg2017z00_2941;
{ /* ./DotNet/lisp.scm 102 */
int BgL_auxz00_3448;
BgL_auxz00_3448 = 
(int)(((long)1)); 
BgL_arg2017z00_2941 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3448); } 
{ /* ./DotNet/lisp.scm 102 */
int BgL_offsetz00_2944;
BgL_offsetz00_2944 = 
(int)(BgL_objzd2classzd2numz00_2940); 
{ /* ./DotNet/lisp.scm 102 */
long BgL_offsetz00_2945;
{ /* ./DotNet/lisp.scm 102 */
long BgL_auxz00_3452;
BgL_auxz00_3452 = 
(long)(BgL_offsetz00_2944); 
BgL_offsetz00_2945 = 
(BgL_auxz00_3452-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 102 */
long BgL_modz00_2946;
{ /* ./DotNet/lisp.scm 102 */
int BgL_arg2028z00_2947;
BgL_arg2028z00_2947 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 102 */
long BgL_n2z00_2955;
BgL_n2z00_2955 = 
(long)(BgL_arg2028z00_2947); 
BgL_modz00_2946 = 
(BgL_offsetz00_2945/BgL_n2z00_2955); } } 
{ /* ./DotNet/lisp.scm 102 */
long BgL_restz00_2948;
{ /* ./DotNet/lisp.scm 102 */
int BgL_arg2024z00_2949;
BgL_arg2024z00_2949 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 102 */
long BgL_n2z00_2958;
BgL_n2z00_2958 = 
(long)(BgL_arg2024z00_2949); 
BgL_restz00_2948 = 
(BgL_offsetz00_2945%BgL_n2z00_2958); } } 
{ /* ./DotNet/lisp.scm 102 */

{ /* ./DotNet/lisp.scm 102 */
obj_t BgL_bucketz00_2950;
{ /* ./DotNet/lisp.scm 102 */
int BgL_kz00_2960;
BgL_kz00_2960 = 
(int)(BgL_modz00_2946); 
BgL_bucketz00_2950 = 
VECTOR_REF(BgL_arg2017z00_2941,BgL_kz00_2960); } 
{ /* ./DotNet/lisp.scm 102 */
int BgL_kz00_2962;
BgL_kz00_2962 = 
(int)(BgL_restz00_2948); 
BgL_method2774z00_2938 = 
VECTOR_REF(BgL_bucketz00_2950,BgL_kz00_2962); } } } } } } } } } } 
BgL_arg4054z00_1546 = 
PROCEDURE_ENTRY(BgL_method2774z00_2938)(BgL_method2774z00_2938, 
(obj_t)(BgL_arg4058z00_1548), BEOA); } } 
BgL_arg4047z00_1544 = 
MAKE_PAIR(BgL_arg4054z00_1546, BNIL); } 
BgL_arg4039z00_1541 = 
MAKE_PAIR(BgL_arg4046z00_1543, BgL_arg4047z00_1544); } 
BgL_arg4035z00_1539 = 
MAKE_PAIR(BgL_arg4038z00_1540, BgL_arg4039z00_1541); } 
return 
MAKE_PAIR(BgL_arg4034z00_1538, BgL_arg4035z00_1539);} } } 
}



/* compile-lisp-jump-ex-it2818 */
obj_t BGl_compilezd2lispzd2jumpzd2exzd2it2818z00zzdotnet_lispz00(obj_t BgL_envz00_3135, obj_t BgL_ez00_3136)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 96 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_ez00_1520;
BgL_ez00_1520 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_ez00_3136); 
{ /* ./DotNet/lisp.scm 98 */
obj_t BgL_arg4008z00_1524;obj_t BgL_arg4009z00_1525;
BgL_arg4008z00_1524 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./DotNet/lisp.scm 98 */
obj_t BgL_arg4012z00_1526;obj_t BgL_arg4013z00_1527;
{ /* ./DotNet/lisp.scm 98 */
BgL_nodez00_bglt BgL_arg4016z00_1528;
BgL_arg4016z00_1528 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_ez00_1520))->BgL_exitz00); 
{ /* ./DotNet/lisp.scm 98 */
obj_t BgL_method2774z00_2830;
{ /* ./DotNet/lisp.scm 98 */
BgL_objectz00_bglt BgL_objz00_2831;
BgL_objz00_2831 = 
(BgL_objectz00_bglt)(BgL_arg4016z00_1528); 
{ /* ./DotNet/lisp.scm 98 */
long BgL_objzd2classzd2numz00_2832;
BgL_objzd2classzd2numz00_2832 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2831); 
{ /* ./DotNet/lisp.scm 98 */
obj_t BgL_arg2017z00_2833;
{ /* ./DotNet/lisp.scm 98 */
int BgL_auxz00_3477;
BgL_auxz00_3477 = 
(int)(((long)1)); 
BgL_arg2017z00_2833 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3477); } 
{ /* ./DotNet/lisp.scm 98 */
int BgL_offsetz00_2836;
BgL_offsetz00_2836 = 
(int)(BgL_objzd2classzd2numz00_2832); 
{ /* ./DotNet/lisp.scm 98 */
long BgL_offsetz00_2837;
{ /* ./DotNet/lisp.scm 98 */
long BgL_auxz00_3481;
BgL_auxz00_3481 = 
(long)(BgL_offsetz00_2836); 
BgL_offsetz00_2837 = 
(BgL_auxz00_3481-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 98 */
long BgL_modz00_2838;
{ /* ./DotNet/lisp.scm 98 */
int BgL_arg2028z00_2839;
BgL_arg2028z00_2839 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 98 */
long BgL_n2z00_2847;
BgL_n2z00_2847 = 
(long)(BgL_arg2028z00_2839); 
BgL_modz00_2838 = 
(BgL_offsetz00_2837/BgL_n2z00_2847); } } 
{ /* ./DotNet/lisp.scm 98 */
long BgL_restz00_2840;
{ /* ./DotNet/lisp.scm 98 */
int BgL_arg2024z00_2841;
BgL_arg2024z00_2841 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 98 */
long BgL_n2z00_2850;
BgL_n2z00_2850 = 
(long)(BgL_arg2024z00_2841); 
BgL_restz00_2840 = 
(BgL_offsetz00_2837%BgL_n2z00_2850); } } 
{ /* ./DotNet/lisp.scm 98 */

{ /* ./DotNet/lisp.scm 98 */
obj_t BgL_bucketz00_2842;
{ /* ./DotNet/lisp.scm 98 */
int BgL_kz00_2852;
BgL_kz00_2852 = 
(int)(BgL_modz00_2838); 
BgL_bucketz00_2842 = 
VECTOR_REF(BgL_arg2017z00_2833,BgL_kz00_2852); } 
{ /* ./DotNet/lisp.scm 98 */
int BgL_kz00_2854;
BgL_kz00_2854 = 
(int)(BgL_restz00_2840); 
BgL_method2774z00_2830 = 
VECTOR_REF(BgL_bucketz00_2842,BgL_kz00_2854); } } } } } } } } } } 
BgL_arg4012z00_1526 = 
PROCEDURE_ENTRY(BgL_method2774z00_2830)(BgL_method2774z00_2830, 
(obj_t)(BgL_arg4016z00_1528), BEOA); } } 
{ /* ./DotNet/lisp.scm 98 */
obj_t BgL_arg4020z00_1529;
{ /* ./DotNet/lisp.scm 98 */
BgL_nodez00_bglt BgL_arg4024z00_1531;
BgL_arg4024z00_1531 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_ez00_1520))->BgL_valuez00); 
{ /* ./DotNet/lisp.scm 98 */
obj_t BgL_method2774z00_2857;
{ /* ./DotNet/lisp.scm 98 */
BgL_objectz00_bglt BgL_objz00_2858;
BgL_objz00_2858 = 
(BgL_objectz00_bglt)(BgL_arg4024z00_1531); 
{ /* ./DotNet/lisp.scm 98 */
long BgL_objzd2classzd2numz00_2859;
BgL_objzd2classzd2numz00_2859 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2858); 
{ /* ./DotNet/lisp.scm 98 */
obj_t BgL_arg2017z00_2860;
{ /* ./DotNet/lisp.scm 98 */
int BgL_auxz00_3500;
BgL_auxz00_3500 = 
(int)(((long)1)); 
BgL_arg2017z00_2860 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3500); } 
{ /* ./DotNet/lisp.scm 98 */
int BgL_offsetz00_2863;
BgL_offsetz00_2863 = 
(int)(BgL_objzd2classzd2numz00_2859); 
{ /* ./DotNet/lisp.scm 98 */
long BgL_offsetz00_2864;
{ /* ./DotNet/lisp.scm 98 */
long BgL_auxz00_3504;
BgL_auxz00_3504 = 
(long)(BgL_offsetz00_2863); 
BgL_offsetz00_2864 = 
(BgL_auxz00_3504-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 98 */
long BgL_modz00_2865;
{ /* ./DotNet/lisp.scm 98 */
int BgL_arg2028z00_2866;
BgL_arg2028z00_2866 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 98 */
long BgL_n2z00_2874;
BgL_n2z00_2874 = 
(long)(BgL_arg2028z00_2866); 
BgL_modz00_2865 = 
(BgL_offsetz00_2864/BgL_n2z00_2874); } } 
{ /* ./DotNet/lisp.scm 98 */
long BgL_restz00_2867;
{ /* ./DotNet/lisp.scm 98 */
int BgL_arg2024z00_2868;
BgL_arg2024z00_2868 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 98 */
long BgL_n2z00_2877;
BgL_n2z00_2877 = 
(long)(BgL_arg2024z00_2868); 
BgL_restz00_2867 = 
(BgL_offsetz00_2864%BgL_n2z00_2877); } } 
{ /* ./DotNet/lisp.scm 98 */

{ /* ./DotNet/lisp.scm 98 */
obj_t BgL_bucketz00_2869;
{ /* ./DotNet/lisp.scm 98 */
int BgL_kz00_2879;
BgL_kz00_2879 = 
(int)(BgL_modz00_2865); 
BgL_bucketz00_2869 = 
VECTOR_REF(BgL_arg2017z00_2860,BgL_kz00_2879); } 
{ /* ./DotNet/lisp.scm 98 */
int BgL_kz00_2881;
BgL_kz00_2881 = 
(int)(BgL_restz00_2867); 
BgL_method2774z00_2857 = 
VECTOR_REF(BgL_bucketz00_2869,BgL_kz00_2881); } } } } } } } } } } 
BgL_arg4020z00_1529 = 
PROCEDURE_ENTRY(BgL_method2774z00_2857)(BgL_method2774z00_2857, 
(obj_t)(BgL_arg4024z00_1531), BEOA); } } 
BgL_arg4013z00_1527 = 
MAKE_PAIR(BgL_arg4020z00_1529, BNIL); } 
BgL_arg4009z00_1525 = 
MAKE_PAIR(BgL_arg4012z00_1526, BgL_arg4013z00_1527); } 
return 
MAKE_PAIR(BgL_arg4008z00_1524, BgL_arg4009z00_1525);} } } 
}



/* compile-lisp-set-ex-it2816 */
obj_t BGl_compilezd2lispzd2setzd2exzd2it2816z00zzdotnet_lispz00(obj_t BgL_envz00_3137, obj_t BgL_ez00_3138)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 92 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_ez00_1506;
BgL_ez00_1506 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_ez00_3138); 
{ /* ./DotNet/lisp.scm 94 */
obj_t BgL_arg3982z00_1510;obj_t BgL_arg3983z00_1511;
BgL_arg3982z00_1510 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./DotNet/lisp.scm 94 */
obj_t BgL_arg3986z00_1512;obj_t BgL_arg3987z00_1513;
{ /* ./DotNet/lisp.scm 94 */
BgL_varz00_bglt BgL_arg3990z00_1514;
BgL_arg3990z00_1514 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_ez00_1506))->BgL_varz00); 
{ /* ./DotNet/lisp.scm 94 */
BgL_nodez00_bglt BgL_ez00_2775;
BgL_ez00_2775 = 
(BgL_nodez00_bglt)(BgL_arg3990z00_1514); 
{ /* ./DotNet/lisp.scm 94 */
obj_t BgL_method2774z00_2776;
{ /* ./DotNet/lisp.scm 94 */
BgL_objectz00_bglt BgL_objz00_2777;
BgL_objz00_2777 = 
(BgL_objectz00_bglt)(BgL_ez00_2775); 
{ /* ./DotNet/lisp.scm 94 */
long BgL_objzd2classzd2numz00_2778;
BgL_objzd2classzd2numz00_2778 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2777); 
{ /* ./DotNet/lisp.scm 94 */
obj_t BgL_arg2017z00_2779;
{ /* ./DotNet/lisp.scm 94 */
int BgL_auxz00_3529;
BgL_auxz00_3529 = 
(int)(((long)1)); 
BgL_arg2017z00_2779 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3529); } 
{ /* ./DotNet/lisp.scm 94 */
int BgL_offsetz00_2782;
BgL_offsetz00_2782 = 
(int)(BgL_objzd2classzd2numz00_2778); 
{ /* ./DotNet/lisp.scm 94 */
long BgL_offsetz00_2783;
{ /* ./DotNet/lisp.scm 94 */
long BgL_auxz00_3533;
BgL_auxz00_3533 = 
(long)(BgL_offsetz00_2782); 
BgL_offsetz00_2783 = 
(BgL_auxz00_3533-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 94 */
long BgL_modz00_2784;
{ /* ./DotNet/lisp.scm 94 */
int BgL_arg2028z00_2785;
BgL_arg2028z00_2785 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 94 */
long BgL_n2z00_2793;
BgL_n2z00_2793 = 
(long)(BgL_arg2028z00_2785); 
BgL_modz00_2784 = 
(BgL_offsetz00_2783/BgL_n2z00_2793); } } 
{ /* ./DotNet/lisp.scm 94 */
long BgL_restz00_2786;
{ /* ./DotNet/lisp.scm 94 */
int BgL_arg2024z00_2787;
BgL_arg2024z00_2787 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 94 */
long BgL_n2z00_2796;
BgL_n2z00_2796 = 
(long)(BgL_arg2024z00_2787); 
BgL_restz00_2786 = 
(BgL_offsetz00_2783%BgL_n2z00_2796); } } 
{ /* ./DotNet/lisp.scm 94 */

{ /* ./DotNet/lisp.scm 94 */
obj_t BgL_bucketz00_2788;
{ /* ./DotNet/lisp.scm 94 */
int BgL_kz00_2798;
BgL_kz00_2798 = 
(int)(BgL_modz00_2784); 
BgL_bucketz00_2788 = 
VECTOR_REF(BgL_arg2017z00_2779,BgL_kz00_2798); } 
{ /* ./DotNet/lisp.scm 94 */
int BgL_kz00_2800;
BgL_kz00_2800 = 
(int)(BgL_restz00_2786); 
BgL_method2774z00_2776 = 
VECTOR_REF(BgL_bucketz00_2788,BgL_kz00_2800); } } } } } } } } } } 
BgL_arg3986z00_1512 = 
PROCEDURE_ENTRY(BgL_method2774z00_2776)(BgL_method2774z00_2776, 
(obj_t)(BgL_ez00_2775), BEOA); } } } 
{ /* ./DotNet/lisp.scm 94 */
obj_t BgL_arg3994z00_1515;
{ /* ./DotNet/lisp.scm 94 */
BgL_nodez00_bglt BgL_arg3998z00_1517;
BgL_arg3998z00_1517 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_ez00_1506))->BgL_bodyz00); 
{ /* ./DotNet/lisp.scm 94 */
obj_t BgL_method2774z00_2803;
{ /* ./DotNet/lisp.scm 94 */
BgL_objectz00_bglt BgL_objz00_2804;
BgL_objz00_2804 = 
(BgL_objectz00_bglt)(BgL_arg3998z00_1517); 
{ /* ./DotNet/lisp.scm 94 */
long BgL_objzd2classzd2numz00_2805;
BgL_objzd2classzd2numz00_2805 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2804); 
{ /* ./DotNet/lisp.scm 94 */
obj_t BgL_arg2017z00_2806;
{ /* ./DotNet/lisp.scm 94 */
int BgL_auxz00_3552;
BgL_auxz00_3552 = 
(int)(((long)1)); 
BgL_arg2017z00_2806 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3552); } 
{ /* ./DotNet/lisp.scm 94 */
int BgL_offsetz00_2809;
BgL_offsetz00_2809 = 
(int)(BgL_objzd2classzd2numz00_2805); 
{ /* ./DotNet/lisp.scm 94 */
long BgL_offsetz00_2810;
{ /* ./DotNet/lisp.scm 94 */
long BgL_auxz00_3556;
BgL_auxz00_3556 = 
(long)(BgL_offsetz00_2809); 
BgL_offsetz00_2810 = 
(BgL_auxz00_3556-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 94 */
long BgL_modz00_2811;
{ /* ./DotNet/lisp.scm 94 */
int BgL_arg2028z00_2812;
BgL_arg2028z00_2812 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 94 */
long BgL_n2z00_2820;
BgL_n2z00_2820 = 
(long)(BgL_arg2028z00_2812); 
BgL_modz00_2811 = 
(BgL_offsetz00_2810/BgL_n2z00_2820); } } 
{ /* ./DotNet/lisp.scm 94 */
long BgL_restz00_2813;
{ /* ./DotNet/lisp.scm 94 */
int BgL_arg2024z00_2814;
BgL_arg2024z00_2814 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 94 */
long BgL_n2z00_2823;
BgL_n2z00_2823 = 
(long)(BgL_arg2024z00_2814); 
BgL_restz00_2813 = 
(BgL_offsetz00_2810%BgL_n2z00_2823); } } 
{ /* ./DotNet/lisp.scm 94 */

{ /* ./DotNet/lisp.scm 94 */
obj_t BgL_bucketz00_2815;
{ /* ./DotNet/lisp.scm 94 */
int BgL_kz00_2825;
BgL_kz00_2825 = 
(int)(BgL_modz00_2811); 
BgL_bucketz00_2815 = 
VECTOR_REF(BgL_arg2017z00_2806,BgL_kz00_2825); } 
{ /* ./DotNet/lisp.scm 94 */
int BgL_kz00_2827;
BgL_kz00_2827 = 
(int)(BgL_restz00_2813); 
BgL_method2774z00_2803 = 
VECTOR_REF(BgL_bucketz00_2815,BgL_kz00_2827); } } } } } } } } } } 
BgL_arg3994z00_1515 = 
PROCEDURE_ENTRY(BgL_method2774z00_2803)(BgL_method2774z00_2803, 
(obj_t)(BgL_arg3998z00_1517), BEOA); } } 
BgL_arg3987z00_1513 = 
MAKE_PAIR(BgL_arg3994z00_1515, BNIL); } 
BgL_arg3983z00_1511 = 
MAKE_PAIR(BgL_arg3986z00_1512, BgL_arg3987z00_1513); } 
return 
MAKE_PAIR(BgL_arg3982z00_1510, BgL_arg3983z00_1511);} } } 
}



/* compile-lisp-cast2814 */
obj_t BGl_compilezd2lispzd2cast2814z00zzdotnet_lispz00(obj_t BgL_envz00_3139, obj_t BgL_ez00_3140)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 88 */
{ 
BgL_castz00_bglt BgL_ez00_1494;
BgL_ez00_1494 = 
(BgL_castz00_bglt)(BgL_ez00_3140); 
{ /* ./DotNet/lisp.scm 90 */
obj_t BgL_arg3961z00_1498;obj_t BgL_arg3962z00_1499;
BgL_arg3961z00_1498 = 
CNST_TABLE_REF(((long)6)); 
{ /* ./DotNet/lisp.scm 90 */
obj_t BgL_arg3965z00_1500;
{ /* ./DotNet/lisp.scm 90 */
obj_t BgL_arg3968z00_1501;
{ /* ./DotNet/lisp.scm 90 */
BgL_nodez00_bglt BgL_arg3972z00_1503;
BgL_arg3972z00_1503 = 
(((BgL_castz00_bglt)CREF(BgL_ez00_1494))->BgL_argz00); 
{ /* ./DotNet/lisp.scm 90 */
obj_t BgL_method2774z00_2749;
{ /* ./DotNet/lisp.scm 90 */
BgL_objectz00_bglt BgL_objz00_2750;
BgL_objz00_2750 = 
(BgL_objectz00_bglt)(BgL_arg3972z00_1503); 
{ /* ./DotNet/lisp.scm 90 */
long BgL_objzd2classzd2numz00_2751;
BgL_objzd2classzd2numz00_2751 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2750); 
{ /* ./DotNet/lisp.scm 90 */
obj_t BgL_arg2017z00_2752;
{ /* ./DotNet/lisp.scm 90 */
int BgL_auxz00_3580;
BgL_auxz00_3580 = 
(int)(((long)1)); 
BgL_arg2017z00_2752 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3580); } 
{ /* ./DotNet/lisp.scm 90 */
int BgL_offsetz00_2755;
BgL_offsetz00_2755 = 
(int)(BgL_objzd2classzd2numz00_2751); 
{ /* ./DotNet/lisp.scm 90 */
long BgL_offsetz00_2756;
{ /* ./DotNet/lisp.scm 90 */
long BgL_auxz00_3584;
BgL_auxz00_3584 = 
(long)(BgL_offsetz00_2755); 
BgL_offsetz00_2756 = 
(BgL_auxz00_3584-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 90 */
long BgL_modz00_2757;
{ /* ./DotNet/lisp.scm 90 */
int BgL_arg2028z00_2758;
BgL_arg2028z00_2758 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 90 */
long BgL_n2z00_2766;
BgL_n2z00_2766 = 
(long)(BgL_arg2028z00_2758); 
BgL_modz00_2757 = 
(BgL_offsetz00_2756/BgL_n2z00_2766); } } 
{ /* ./DotNet/lisp.scm 90 */
long BgL_restz00_2759;
{ /* ./DotNet/lisp.scm 90 */
int BgL_arg2024z00_2760;
BgL_arg2024z00_2760 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 90 */
long BgL_n2z00_2769;
BgL_n2z00_2769 = 
(long)(BgL_arg2024z00_2760); 
BgL_restz00_2759 = 
(BgL_offsetz00_2756%BgL_n2z00_2769); } } 
{ /* ./DotNet/lisp.scm 90 */

{ /* ./DotNet/lisp.scm 90 */
obj_t BgL_bucketz00_2761;
{ /* ./DotNet/lisp.scm 90 */
int BgL_kz00_2771;
BgL_kz00_2771 = 
(int)(BgL_modz00_2757); 
BgL_bucketz00_2761 = 
VECTOR_REF(BgL_arg2017z00_2752,BgL_kz00_2771); } 
{ /* ./DotNet/lisp.scm 90 */
int BgL_kz00_2773;
BgL_kz00_2773 = 
(int)(BgL_restz00_2759); 
BgL_method2774z00_2749 = 
VECTOR_REF(BgL_bucketz00_2761,BgL_kz00_2773); } } } } } } } } } } 
BgL_arg3968z00_1501 = 
PROCEDURE_ENTRY(BgL_method2774z00_2749)(BgL_method2774z00_2749, 
(obj_t)(BgL_arg3972z00_1503), BEOA); } } 
BgL_arg3965z00_1500 = 
MAKE_PAIR(BgL_arg3968z00_1501, BNIL); } 
BgL_arg3962z00_1499 = 
MAKE_PAIR(BGl_typez00zztype_typez00, BgL_arg3965z00_1500); } 
return 
MAKE_PAIR(BgL_arg3961z00_1498, BgL_arg3962z00_1499);} } } 
}



/* compile-lisp-isa2812 */
obj_t BGl_compilezd2lispzd2isa2812z00zzdotnet_lispz00(obj_t BgL_envz00_3141, obj_t BgL_ez00_3142)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 85 */
{ 
BgL_isaz00_bglt BgL_ez00_1467;
BgL_ez00_1467 = 
(BgL_isaz00_bglt)(BgL_ez00_3142); 
{ /* ./DotNet/lisp.scm 86 */
obj_t BgL_arg3911z00_1470;obj_t BgL_arg3912z00_1471;
BgL_arg3911z00_1470 = 
CNST_TABLE_REF(((long)7)); 
{ /* ./DotNet/lisp.scm 86 */
BgL_typez00_bglt BgL_arg3915z00_1472;obj_t BgL_arg3916z00_1473;
BgL_arg3915z00_1472 = 
(((BgL_isaz00_bglt)CREF(BgL_ez00_1467))->BgL_classz00); 
{ /* ./DotNet/lisp.scm 86 */
obj_t BgL_arg3920z00_1474;
{ /* ./DotNet/lisp.scm 86 */
obj_t BgL_l2754z00_1476;
{ /* ./DotNet/lisp.scm 86 */
BgL_externz00_bglt BgL_obj1817z00_2682;
BgL_obj1817z00_2682 = 
(BgL_externz00_bglt)(BgL_ez00_1467); 
BgL_l2754z00_1476 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2682))->BgL_exprza2za2); } 
{ /* ./DotNet/lisp.scm 86 */
bool_t BgL_test3923z00_1477;
BgL_test3923z00_1477 = 
NULLP(BgL_l2754z00_1476); 
if(BgL_test3923z00_1477)
{ /* ./DotNet/lisp.scm 86 */
BgL_arg3920z00_1474 = BNIL; }  else 
{ /* ./DotNet/lisp.scm 86 */
obj_t BgL_head2756z00_1478;
{ /* ./DotNet/lisp.scm 86 */
obj_t BgL_arg3945z00_1489;
{ /* ./DotNet/lisp.scm 86 */
obj_t BgL_arg3949z00_1491;
BgL_arg3949z00_1491 = 
CAR(BgL_l2754z00_1476); 
{ /* ./DotNet/lisp.scm 86 */
BgL_nodez00_bglt BgL_ez00_2685;
BgL_ez00_2685 = 
(BgL_nodez00_bglt)(BgL_arg3949z00_1491); 
{ /* ./DotNet/lisp.scm 86 */
obj_t BgL_method2774z00_2686;
{ /* ./DotNet/lisp.scm 86 */
BgL_objectz00_bglt BgL_objz00_2687;
BgL_objz00_2687 = 
(BgL_objectz00_bglt)(BgL_ez00_2685); 
{ /* ./DotNet/lisp.scm 86 */
long BgL_objzd2classzd2numz00_2688;
BgL_objzd2classzd2numz00_2688 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2687); 
{ /* ./DotNet/lisp.scm 86 */
obj_t BgL_arg2017z00_2689;
{ /* ./DotNet/lisp.scm 86 */
int BgL_auxz00_3614;
BgL_auxz00_3614 = 
(int)(((long)1)); 
BgL_arg2017z00_2689 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3614); } 
{ /* ./DotNet/lisp.scm 86 */
int BgL_offsetz00_2692;
BgL_offsetz00_2692 = 
(int)(BgL_objzd2classzd2numz00_2688); 
{ /* ./DotNet/lisp.scm 86 */
long BgL_offsetz00_2693;
{ /* ./DotNet/lisp.scm 86 */
long BgL_auxz00_3618;
BgL_auxz00_3618 = 
(long)(BgL_offsetz00_2692); 
BgL_offsetz00_2693 = 
(BgL_auxz00_3618-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 86 */
long BgL_modz00_2694;
{ /* ./DotNet/lisp.scm 86 */
int BgL_arg2028z00_2695;
BgL_arg2028z00_2695 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 86 */
long BgL_n2z00_2703;
BgL_n2z00_2703 = 
(long)(BgL_arg2028z00_2695); 
BgL_modz00_2694 = 
(BgL_offsetz00_2693/BgL_n2z00_2703); } } 
{ /* ./DotNet/lisp.scm 86 */
long BgL_restz00_2696;
{ /* ./DotNet/lisp.scm 86 */
int BgL_arg2024z00_2697;
BgL_arg2024z00_2697 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 86 */
long BgL_n2z00_2706;
BgL_n2z00_2706 = 
(long)(BgL_arg2024z00_2697); 
BgL_restz00_2696 = 
(BgL_offsetz00_2693%BgL_n2z00_2706); } } 
{ /* ./DotNet/lisp.scm 86 */

{ /* ./DotNet/lisp.scm 86 */
obj_t BgL_bucketz00_2698;
{ /* ./DotNet/lisp.scm 86 */
int BgL_kz00_2708;
BgL_kz00_2708 = 
(int)(BgL_modz00_2694); 
BgL_bucketz00_2698 = 
VECTOR_REF(BgL_arg2017z00_2689,BgL_kz00_2708); } 
{ /* ./DotNet/lisp.scm 86 */
int BgL_kz00_2710;
BgL_kz00_2710 = 
(int)(BgL_restz00_2696); 
BgL_method2774z00_2686 = 
VECTOR_REF(BgL_bucketz00_2698,BgL_kz00_2710); } } } } } } } } } } 
BgL_arg3945z00_1489 = 
PROCEDURE_ENTRY(BgL_method2774z00_2686)(BgL_method2774z00_2686, 
(obj_t)(BgL_ez00_2685), BEOA); } } } 
BgL_head2756z00_1478 = 
MAKE_PAIR(BgL_arg3945z00_1489, BNIL); } 
{ 
obj_t BgL_l2754z00_1479;obj_t BgL_tail2757z00_1480;
{ /* ./DotNet/lisp.scm 86 */
obj_t BgL_arg3925z00_1482;
BgL_arg3925z00_1482 = 
CDR(BgL_l2754z00_1476); 
BgL_l2754z00_1479 = BgL_arg3925z00_1482; 
BgL_tail2757z00_1480 = BgL_head2756z00_1478; 
BgL_map2755z00_1481:
{ /* ./DotNet/lisp.scm 86 */
bool_t BgL_test3928z00_1483;
BgL_test3928z00_1483 = 
NULLP(BgL_l2754z00_1479); 
if(BgL_test3928z00_1483)
{ /* ./DotNet/lisp.scm 86 */
BgL_arg3920z00_1474 = BgL_head2756z00_1478; }  else 
{ /* ./DotNet/lisp.scm 86 */
obj_t BgL_newtail2758z00_1484;
{ /* ./DotNet/lisp.scm 86 */
obj_t BgL_arg3935z00_1486;
{ /* ./DotNet/lisp.scm 86 */
obj_t BgL_arg3940z00_1488;
BgL_arg3940z00_1488 = 
CAR(BgL_l2754z00_1479); 
{ /* ./DotNet/lisp.scm 86 */
BgL_nodez00_bglt BgL_ez00_2716;
BgL_ez00_2716 = 
(BgL_nodez00_bglt)(BgL_arg3940z00_1488); 
{ /* ./DotNet/lisp.scm 86 */
obj_t BgL_method2774z00_2717;
{ /* ./DotNet/lisp.scm 86 */
BgL_objectz00_bglt BgL_objz00_2718;
BgL_objz00_2718 = 
(BgL_objectz00_bglt)(BgL_ez00_2716); 
{ /* ./DotNet/lisp.scm 86 */
long BgL_objzd2classzd2numz00_2719;
BgL_objzd2classzd2numz00_2719 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2718); 
{ /* ./DotNet/lisp.scm 86 */
obj_t BgL_arg2017z00_2720;
{ /* ./DotNet/lisp.scm 86 */
int BgL_auxz00_3642;
BgL_auxz00_3642 = 
(int)(((long)1)); 
BgL_arg2017z00_2720 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3642); } 
{ /* ./DotNet/lisp.scm 86 */
int BgL_offsetz00_2723;
BgL_offsetz00_2723 = 
(int)(BgL_objzd2classzd2numz00_2719); 
{ /* ./DotNet/lisp.scm 86 */
long BgL_offsetz00_2724;
{ /* ./DotNet/lisp.scm 86 */
long BgL_auxz00_3646;
BgL_auxz00_3646 = 
(long)(BgL_offsetz00_2723); 
BgL_offsetz00_2724 = 
(BgL_auxz00_3646-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 86 */
long BgL_modz00_2725;
{ /* ./DotNet/lisp.scm 86 */
int BgL_arg2028z00_2726;
BgL_arg2028z00_2726 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 86 */
long BgL_n2z00_2734;
BgL_n2z00_2734 = 
(long)(BgL_arg2028z00_2726); 
BgL_modz00_2725 = 
(BgL_offsetz00_2724/BgL_n2z00_2734); } } 
{ /* ./DotNet/lisp.scm 86 */
long BgL_restz00_2727;
{ /* ./DotNet/lisp.scm 86 */
int BgL_arg2024z00_2728;
BgL_arg2024z00_2728 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 86 */
long BgL_n2z00_2737;
BgL_n2z00_2737 = 
(long)(BgL_arg2024z00_2728); 
BgL_restz00_2727 = 
(BgL_offsetz00_2724%BgL_n2z00_2737); } } 
{ /* ./DotNet/lisp.scm 86 */

{ /* ./DotNet/lisp.scm 86 */
obj_t BgL_bucketz00_2729;
{ /* ./DotNet/lisp.scm 86 */
int BgL_kz00_2739;
BgL_kz00_2739 = 
(int)(BgL_modz00_2725); 
BgL_bucketz00_2729 = 
VECTOR_REF(BgL_arg2017z00_2720,BgL_kz00_2739); } 
{ /* ./DotNet/lisp.scm 86 */
int BgL_kz00_2741;
BgL_kz00_2741 = 
(int)(BgL_restz00_2727); 
BgL_method2774z00_2717 = 
VECTOR_REF(BgL_bucketz00_2729,BgL_kz00_2741); } } } } } } } } } } 
BgL_arg3935z00_1486 = 
PROCEDURE_ENTRY(BgL_method2774z00_2717)(BgL_method2774z00_2717, 
(obj_t)(BgL_ez00_2716), BEOA); } } } 
BgL_newtail2758z00_1484 = 
MAKE_PAIR(BgL_arg3935z00_1486, BNIL); } 
SET_CDR(BgL_tail2757z00_1480, BgL_newtail2758z00_1484); 
{ /* ./DotNet/lisp.scm 86 */
obj_t BgL_arg3931z00_1485;
BgL_arg3931z00_1485 = 
CDR(BgL_l2754z00_1479); 
{ 
obj_t BgL_tail2757z00_3666;obj_t BgL_l2754z00_3665;
BgL_l2754z00_3665 = BgL_arg3931z00_1485; 
BgL_tail2757z00_3666 = BgL_newtail2758z00_1484; 
BgL_tail2757z00_1480 = BgL_tail2757z00_3666; 
BgL_l2754z00_1479 = BgL_l2754z00_3665; 
goto BgL_map2755z00_1481;} } } } } } } } } 
BgL_arg3916z00_1473 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3920z00_1474, BNIL); } 
{ /* ./DotNet/lisp.scm 86 */
obj_t BgL_auxz00_3668;
BgL_auxz00_3668 = 
(obj_t)(BgL_arg3915z00_1472); 
BgL_arg3912z00_1471 = 
MAKE_PAIR(BgL_auxz00_3668, BgL_arg3916z00_1473); } } 
return 
MAKE_PAIR(BgL_arg3911z00_1470, BgL_arg3912z00_1471);} } } 
}



/* compile-lisp-vlength2810 */
obj_t BGl_compilezd2lispzd2vlength2810z00zzdotnet_lispz00(obj_t BgL_envz00_3143, obj_t BgL_ez00_3144)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 82 */
{ 
BgL_vlengthz00_bglt BgL_ez00_1442;
BgL_ez00_1442 = 
(BgL_vlengthz00_bglt)(BgL_ez00_3144); 
{ /* ./DotNet/lisp.scm 83 */
obj_t BgL_arg3867z00_1445;obj_t BgL_arg3868z00_1446;
BgL_arg3867z00_1445 = 
CNST_TABLE_REF(((long)8)); 
{ /* ./DotNet/lisp.scm 83 */
obj_t BgL_arg3871z00_1447;
{ /* ./DotNet/lisp.scm 83 */
obj_t BgL_l2749z00_1449;
{ /* ./DotNet/lisp.scm 83 */
BgL_externz00_bglt BgL_obj1817z00_2616;
BgL_obj1817z00_2616 = 
(BgL_externz00_bglt)(BgL_ez00_1442); 
BgL_l2749z00_1449 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2616))->BgL_exprza2za2); } 
{ /* ./DotNet/lisp.scm 83 */
bool_t BgL_test3874z00_1450;
BgL_test3874z00_1450 = 
NULLP(BgL_l2749z00_1449); 
if(BgL_test3874z00_1450)
{ /* ./DotNet/lisp.scm 83 */
BgL_arg3871z00_1447 = BNIL; }  else 
{ /* ./DotNet/lisp.scm 83 */
obj_t BgL_head2751z00_1451;
{ /* ./DotNet/lisp.scm 83 */
obj_t BgL_arg3895z00_1462;
{ /* ./DotNet/lisp.scm 83 */
obj_t BgL_arg3899z00_1464;
BgL_arg3899z00_1464 = 
CAR(BgL_l2749z00_1449); 
{ /* ./DotNet/lisp.scm 83 */
BgL_nodez00_bglt BgL_ez00_2619;
BgL_ez00_2619 = 
(BgL_nodez00_bglt)(BgL_arg3899z00_1464); 
{ /* ./DotNet/lisp.scm 83 */
obj_t BgL_method2774z00_2620;
{ /* ./DotNet/lisp.scm 83 */
BgL_objectz00_bglt BgL_objz00_2621;
BgL_objz00_2621 = 
(BgL_objectz00_bglt)(BgL_ez00_2619); 
{ /* ./DotNet/lisp.scm 83 */
long BgL_objzd2classzd2numz00_2622;
BgL_objzd2classzd2numz00_2622 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2621); 
{ /* ./DotNet/lisp.scm 83 */
obj_t BgL_arg2017z00_2623;
{ /* ./DotNet/lisp.scm 83 */
int BgL_auxz00_3682;
BgL_auxz00_3682 = 
(int)(((long)1)); 
BgL_arg2017z00_2623 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3682); } 
{ /* ./DotNet/lisp.scm 83 */
int BgL_offsetz00_2626;
BgL_offsetz00_2626 = 
(int)(BgL_objzd2classzd2numz00_2622); 
{ /* ./DotNet/lisp.scm 83 */
long BgL_offsetz00_2627;
{ /* ./DotNet/lisp.scm 83 */
long BgL_auxz00_3686;
BgL_auxz00_3686 = 
(long)(BgL_offsetz00_2626); 
BgL_offsetz00_2627 = 
(BgL_auxz00_3686-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 83 */
long BgL_modz00_2628;
{ /* ./DotNet/lisp.scm 83 */
int BgL_arg2028z00_2629;
BgL_arg2028z00_2629 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 83 */
long BgL_n2z00_2637;
BgL_n2z00_2637 = 
(long)(BgL_arg2028z00_2629); 
BgL_modz00_2628 = 
(BgL_offsetz00_2627/BgL_n2z00_2637); } } 
{ /* ./DotNet/lisp.scm 83 */
long BgL_restz00_2630;
{ /* ./DotNet/lisp.scm 83 */
int BgL_arg2024z00_2631;
BgL_arg2024z00_2631 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 83 */
long BgL_n2z00_2640;
BgL_n2z00_2640 = 
(long)(BgL_arg2024z00_2631); 
BgL_restz00_2630 = 
(BgL_offsetz00_2627%BgL_n2z00_2640); } } 
{ /* ./DotNet/lisp.scm 83 */

{ /* ./DotNet/lisp.scm 83 */
obj_t BgL_bucketz00_2632;
{ /* ./DotNet/lisp.scm 83 */
int BgL_kz00_2642;
BgL_kz00_2642 = 
(int)(BgL_modz00_2628); 
BgL_bucketz00_2632 = 
VECTOR_REF(BgL_arg2017z00_2623,BgL_kz00_2642); } 
{ /* ./DotNet/lisp.scm 83 */
int BgL_kz00_2644;
BgL_kz00_2644 = 
(int)(BgL_restz00_2630); 
BgL_method2774z00_2620 = 
VECTOR_REF(BgL_bucketz00_2632,BgL_kz00_2644); } } } } } } } } } } 
BgL_arg3895z00_1462 = 
PROCEDURE_ENTRY(BgL_method2774z00_2620)(BgL_method2774z00_2620, 
(obj_t)(BgL_ez00_2619), BEOA); } } } 
BgL_head2751z00_1451 = 
MAKE_PAIR(BgL_arg3895z00_1462, BNIL); } 
{ 
obj_t BgL_l2749z00_1452;obj_t BgL_tail2752z00_1453;
{ /* ./DotNet/lisp.scm 83 */
obj_t BgL_arg3876z00_1455;
BgL_arg3876z00_1455 = 
CDR(BgL_l2749z00_1449); 
BgL_l2749z00_1452 = BgL_arg3876z00_1455; 
BgL_tail2752z00_1453 = BgL_head2751z00_1451; 
BgL_map2750z00_1454:
{ /* ./DotNet/lisp.scm 83 */
bool_t BgL_test3879z00_1456;
BgL_test3879z00_1456 = 
NULLP(BgL_l2749z00_1452); 
if(BgL_test3879z00_1456)
{ /* ./DotNet/lisp.scm 83 */
BgL_arg3871z00_1447 = BgL_head2751z00_1451; }  else 
{ /* ./DotNet/lisp.scm 83 */
obj_t BgL_newtail2753z00_1457;
{ /* ./DotNet/lisp.scm 83 */
obj_t BgL_arg3886z00_1459;
{ /* ./DotNet/lisp.scm 83 */
obj_t BgL_arg3890z00_1461;
BgL_arg3890z00_1461 = 
CAR(BgL_l2749z00_1452); 
{ /* ./DotNet/lisp.scm 83 */
BgL_nodez00_bglt BgL_ez00_2650;
BgL_ez00_2650 = 
(BgL_nodez00_bglt)(BgL_arg3890z00_1461); 
{ /* ./DotNet/lisp.scm 83 */
obj_t BgL_method2774z00_2651;
{ /* ./DotNet/lisp.scm 83 */
BgL_objectz00_bglt BgL_objz00_2652;
BgL_objz00_2652 = 
(BgL_objectz00_bglt)(BgL_ez00_2650); 
{ /* ./DotNet/lisp.scm 83 */
long BgL_objzd2classzd2numz00_2653;
BgL_objzd2classzd2numz00_2653 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2652); 
{ /* ./DotNet/lisp.scm 83 */
obj_t BgL_arg2017z00_2654;
{ /* ./DotNet/lisp.scm 83 */
int BgL_auxz00_3710;
BgL_auxz00_3710 = 
(int)(((long)1)); 
BgL_arg2017z00_2654 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3710); } 
{ /* ./DotNet/lisp.scm 83 */
int BgL_offsetz00_2657;
BgL_offsetz00_2657 = 
(int)(BgL_objzd2classzd2numz00_2653); 
{ /* ./DotNet/lisp.scm 83 */
long BgL_offsetz00_2658;
{ /* ./DotNet/lisp.scm 83 */
long BgL_auxz00_3714;
BgL_auxz00_3714 = 
(long)(BgL_offsetz00_2657); 
BgL_offsetz00_2658 = 
(BgL_auxz00_3714-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 83 */
long BgL_modz00_2659;
{ /* ./DotNet/lisp.scm 83 */
int BgL_arg2028z00_2660;
BgL_arg2028z00_2660 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 83 */
long BgL_n2z00_2668;
BgL_n2z00_2668 = 
(long)(BgL_arg2028z00_2660); 
BgL_modz00_2659 = 
(BgL_offsetz00_2658/BgL_n2z00_2668); } } 
{ /* ./DotNet/lisp.scm 83 */
long BgL_restz00_2661;
{ /* ./DotNet/lisp.scm 83 */
int BgL_arg2024z00_2662;
BgL_arg2024z00_2662 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 83 */
long BgL_n2z00_2671;
BgL_n2z00_2671 = 
(long)(BgL_arg2024z00_2662); 
BgL_restz00_2661 = 
(BgL_offsetz00_2658%BgL_n2z00_2671); } } 
{ /* ./DotNet/lisp.scm 83 */

{ /* ./DotNet/lisp.scm 83 */
obj_t BgL_bucketz00_2663;
{ /* ./DotNet/lisp.scm 83 */
int BgL_kz00_2673;
BgL_kz00_2673 = 
(int)(BgL_modz00_2659); 
BgL_bucketz00_2663 = 
VECTOR_REF(BgL_arg2017z00_2654,BgL_kz00_2673); } 
{ /* ./DotNet/lisp.scm 83 */
int BgL_kz00_2675;
BgL_kz00_2675 = 
(int)(BgL_restz00_2661); 
BgL_method2774z00_2651 = 
VECTOR_REF(BgL_bucketz00_2663,BgL_kz00_2675); } } } } } } } } } } 
BgL_arg3886z00_1459 = 
PROCEDURE_ENTRY(BgL_method2774z00_2651)(BgL_method2774z00_2651, 
(obj_t)(BgL_ez00_2650), BEOA); } } } 
BgL_newtail2753z00_1457 = 
MAKE_PAIR(BgL_arg3886z00_1459, BNIL); } 
SET_CDR(BgL_tail2752z00_1453, BgL_newtail2753z00_1457); 
{ /* ./DotNet/lisp.scm 83 */
obj_t BgL_arg3882z00_1458;
BgL_arg3882z00_1458 = 
CDR(BgL_l2749z00_1452); 
{ 
obj_t BgL_tail2752z00_3734;obj_t BgL_l2749z00_3733;
BgL_l2749z00_3733 = BgL_arg3882z00_1458; 
BgL_tail2752z00_3734 = BgL_newtail2753z00_1457; 
BgL_tail2752z00_1453 = BgL_tail2752z00_3734; 
BgL_l2749z00_1452 = BgL_l2749z00_3733; 
goto BgL_map2750z00_1454;} } } } } } } } } 
BgL_arg3868z00_1446 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3871z00_1447, BNIL); } 
return 
MAKE_PAIR(BgL_arg3867z00_1445, BgL_arg3868z00_1446);} } } 
}



/* compile-lisp-vset!2808 */
obj_t BGl_compilezd2lispzd2vsetz122808z12zzdotnet_lispz00(obj_t BgL_envz00_3145, obj_t BgL_ez00_3146)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 79 */
{ 
BgL_vsetz12z12_bglt BgL_ez00_1417;
BgL_ez00_1417 = 
(BgL_vsetz12z12_bglt)(BgL_ez00_3146); 
{ /* ./DotNet/lisp.scm 80 */
obj_t BgL_arg3822z00_1420;obj_t BgL_arg3823z00_1421;
BgL_arg3822z00_1420 = 
CNST_TABLE_REF(((long)9)); 
{ /* ./DotNet/lisp.scm 80 */
obj_t BgL_arg3826z00_1422;
{ /* ./DotNet/lisp.scm 80 */
obj_t BgL_l2744z00_1424;
{ /* ./DotNet/lisp.scm 80 */
BgL_externz00_bglt BgL_obj1817z00_2551;
BgL_obj1817z00_2551 = 
(BgL_externz00_bglt)(BgL_ez00_1417); 
BgL_l2744z00_1424 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2551))->BgL_exprza2za2); } 
{ /* ./DotNet/lisp.scm 80 */
bool_t BgL_test3829z00_1425;
BgL_test3829z00_1425 = 
NULLP(BgL_l2744z00_1424); 
if(BgL_test3829z00_1425)
{ /* ./DotNet/lisp.scm 80 */
BgL_arg3826z00_1422 = BNIL; }  else 
{ /* ./DotNet/lisp.scm 80 */
obj_t BgL_head2746z00_1426;
{ /* ./DotNet/lisp.scm 80 */
obj_t BgL_arg3851z00_1437;
{ /* ./DotNet/lisp.scm 80 */
obj_t BgL_arg3855z00_1439;
BgL_arg3855z00_1439 = 
CAR(BgL_l2744z00_1424); 
{ /* ./DotNet/lisp.scm 80 */
BgL_nodez00_bglt BgL_ez00_2554;
BgL_ez00_2554 = 
(BgL_nodez00_bglt)(BgL_arg3855z00_1439); 
{ /* ./DotNet/lisp.scm 80 */
obj_t BgL_method2774z00_2555;
{ /* ./DotNet/lisp.scm 80 */
BgL_objectz00_bglt BgL_objz00_2556;
BgL_objz00_2556 = 
(BgL_objectz00_bglt)(BgL_ez00_2554); 
{ /* ./DotNet/lisp.scm 80 */
long BgL_objzd2classzd2numz00_2557;
BgL_objzd2classzd2numz00_2557 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2556); 
{ /* ./DotNet/lisp.scm 80 */
obj_t BgL_arg2017z00_2558;
{ /* ./DotNet/lisp.scm 80 */
int BgL_auxz00_3747;
BgL_auxz00_3747 = 
(int)(((long)1)); 
BgL_arg2017z00_2558 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3747); } 
{ /* ./DotNet/lisp.scm 80 */
int BgL_offsetz00_2561;
BgL_offsetz00_2561 = 
(int)(BgL_objzd2classzd2numz00_2557); 
{ /* ./DotNet/lisp.scm 80 */
long BgL_offsetz00_2562;
{ /* ./DotNet/lisp.scm 80 */
long BgL_auxz00_3751;
BgL_auxz00_3751 = 
(long)(BgL_offsetz00_2561); 
BgL_offsetz00_2562 = 
(BgL_auxz00_3751-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 80 */
long BgL_modz00_2563;
{ /* ./DotNet/lisp.scm 80 */
int BgL_arg2028z00_2564;
BgL_arg2028z00_2564 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 80 */
long BgL_n2z00_2572;
BgL_n2z00_2572 = 
(long)(BgL_arg2028z00_2564); 
BgL_modz00_2563 = 
(BgL_offsetz00_2562/BgL_n2z00_2572); } } 
{ /* ./DotNet/lisp.scm 80 */
long BgL_restz00_2565;
{ /* ./DotNet/lisp.scm 80 */
int BgL_arg2024z00_2566;
BgL_arg2024z00_2566 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 80 */
long BgL_n2z00_2575;
BgL_n2z00_2575 = 
(long)(BgL_arg2024z00_2566); 
BgL_restz00_2565 = 
(BgL_offsetz00_2562%BgL_n2z00_2575); } } 
{ /* ./DotNet/lisp.scm 80 */

{ /* ./DotNet/lisp.scm 80 */
obj_t BgL_bucketz00_2567;
{ /* ./DotNet/lisp.scm 80 */
int BgL_kz00_2577;
BgL_kz00_2577 = 
(int)(BgL_modz00_2563); 
BgL_bucketz00_2567 = 
VECTOR_REF(BgL_arg2017z00_2558,BgL_kz00_2577); } 
{ /* ./DotNet/lisp.scm 80 */
int BgL_kz00_2579;
BgL_kz00_2579 = 
(int)(BgL_restz00_2565); 
BgL_method2774z00_2555 = 
VECTOR_REF(BgL_bucketz00_2567,BgL_kz00_2579); } } } } } } } } } } 
BgL_arg3851z00_1437 = 
PROCEDURE_ENTRY(BgL_method2774z00_2555)(BgL_method2774z00_2555, 
(obj_t)(BgL_ez00_2554), BEOA); } } } 
BgL_head2746z00_1426 = 
MAKE_PAIR(BgL_arg3851z00_1437, BNIL); } 
{ 
obj_t BgL_l2744z00_1427;obj_t BgL_tail2747z00_1428;
{ /* ./DotNet/lisp.scm 80 */
obj_t BgL_arg3832z00_1430;
BgL_arg3832z00_1430 = 
CDR(BgL_l2744z00_1424); 
BgL_l2744z00_1427 = BgL_arg3832z00_1430; 
BgL_tail2747z00_1428 = BgL_head2746z00_1426; 
BgL_map2745z00_1429:
{ /* ./DotNet/lisp.scm 80 */
bool_t BgL_test3835z00_1431;
BgL_test3835z00_1431 = 
NULLP(BgL_l2744z00_1427); 
if(BgL_test3835z00_1431)
{ /* ./DotNet/lisp.scm 80 */
BgL_arg3826z00_1422 = BgL_head2746z00_1426; }  else 
{ /* ./DotNet/lisp.scm 80 */
obj_t BgL_newtail2748z00_1432;
{ /* ./DotNet/lisp.scm 80 */
obj_t BgL_arg3842z00_1434;
{ /* ./DotNet/lisp.scm 80 */
obj_t BgL_arg3846z00_1436;
BgL_arg3846z00_1436 = 
CAR(BgL_l2744z00_1427); 
{ /* ./DotNet/lisp.scm 80 */
BgL_nodez00_bglt BgL_ez00_2585;
BgL_ez00_2585 = 
(BgL_nodez00_bglt)(BgL_arg3846z00_1436); 
{ /* ./DotNet/lisp.scm 80 */
obj_t BgL_method2774z00_2586;
{ /* ./DotNet/lisp.scm 80 */
BgL_objectz00_bglt BgL_objz00_2587;
BgL_objz00_2587 = 
(BgL_objectz00_bglt)(BgL_ez00_2585); 
{ /* ./DotNet/lisp.scm 80 */
long BgL_objzd2classzd2numz00_2588;
BgL_objzd2classzd2numz00_2588 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2587); 
{ /* ./DotNet/lisp.scm 80 */
obj_t BgL_arg2017z00_2589;
{ /* ./DotNet/lisp.scm 80 */
int BgL_auxz00_3775;
BgL_auxz00_3775 = 
(int)(((long)1)); 
BgL_arg2017z00_2589 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3775); } 
{ /* ./DotNet/lisp.scm 80 */
int BgL_offsetz00_2592;
BgL_offsetz00_2592 = 
(int)(BgL_objzd2classzd2numz00_2588); 
{ /* ./DotNet/lisp.scm 80 */
long BgL_offsetz00_2593;
{ /* ./DotNet/lisp.scm 80 */
long BgL_auxz00_3779;
BgL_auxz00_3779 = 
(long)(BgL_offsetz00_2592); 
BgL_offsetz00_2593 = 
(BgL_auxz00_3779-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 80 */
long BgL_modz00_2594;
{ /* ./DotNet/lisp.scm 80 */
int BgL_arg2028z00_2595;
BgL_arg2028z00_2595 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 80 */
long BgL_n2z00_2603;
BgL_n2z00_2603 = 
(long)(BgL_arg2028z00_2595); 
BgL_modz00_2594 = 
(BgL_offsetz00_2593/BgL_n2z00_2603); } } 
{ /* ./DotNet/lisp.scm 80 */
long BgL_restz00_2596;
{ /* ./DotNet/lisp.scm 80 */
int BgL_arg2024z00_2597;
BgL_arg2024z00_2597 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 80 */
long BgL_n2z00_2606;
BgL_n2z00_2606 = 
(long)(BgL_arg2024z00_2597); 
BgL_restz00_2596 = 
(BgL_offsetz00_2593%BgL_n2z00_2606); } } 
{ /* ./DotNet/lisp.scm 80 */

{ /* ./DotNet/lisp.scm 80 */
obj_t BgL_bucketz00_2598;
{ /* ./DotNet/lisp.scm 80 */
int BgL_kz00_2608;
BgL_kz00_2608 = 
(int)(BgL_modz00_2594); 
BgL_bucketz00_2598 = 
VECTOR_REF(BgL_arg2017z00_2589,BgL_kz00_2608); } 
{ /* ./DotNet/lisp.scm 80 */
int BgL_kz00_2610;
BgL_kz00_2610 = 
(int)(BgL_restz00_2596); 
BgL_method2774z00_2586 = 
VECTOR_REF(BgL_bucketz00_2598,BgL_kz00_2610); } } } } } } } } } } 
BgL_arg3842z00_1434 = 
PROCEDURE_ENTRY(BgL_method2774z00_2586)(BgL_method2774z00_2586, 
(obj_t)(BgL_ez00_2585), BEOA); } } } 
BgL_newtail2748z00_1432 = 
MAKE_PAIR(BgL_arg3842z00_1434, BNIL); } 
SET_CDR(BgL_tail2747z00_1428, BgL_newtail2748z00_1432); 
{ /* ./DotNet/lisp.scm 80 */
obj_t BgL_arg3838z00_1433;
BgL_arg3838z00_1433 = 
CDR(BgL_l2744z00_1427); 
{ 
obj_t BgL_tail2747z00_3799;obj_t BgL_l2744z00_3798;
BgL_l2744z00_3798 = BgL_arg3838z00_1433; 
BgL_tail2747z00_3799 = BgL_newtail2748z00_1432; 
BgL_tail2747z00_1428 = BgL_tail2747z00_3799; 
BgL_l2744z00_1427 = BgL_l2744z00_3798; 
goto BgL_map2745z00_1429;} } } } } } } } } 
BgL_arg3823z00_1421 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3826z00_1422, BNIL); } 
return 
MAKE_PAIR(BgL_arg3822z00_1420, BgL_arg3823z00_1421);} } } 
}



/* compile-lisp-vref2806 */
obj_t BGl_compilezd2lispzd2vref2806z00zzdotnet_lispz00(obj_t BgL_envz00_3147, obj_t BgL_ez00_3148)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 76 */
{ 
BgL_vrefz00_bglt BgL_ez00_1392;
BgL_ez00_1392 = 
(BgL_vrefz00_bglt)(BgL_ez00_3148); 
{ /* ./DotNet/lisp.scm 77 */
obj_t BgL_arg3778z00_1395;obj_t BgL_arg3779z00_1396;
BgL_arg3778z00_1395 = 
CNST_TABLE_REF(((long)10)); 
{ /* ./DotNet/lisp.scm 77 */
obj_t BgL_arg3782z00_1397;
{ /* ./DotNet/lisp.scm 77 */
obj_t BgL_l2739z00_1399;
{ /* ./DotNet/lisp.scm 77 */
BgL_externz00_bglt BgL_obj1817z00_2486;
BgL_obj1817z00_2486 = 
(BgL_externz00_bglt)(BgL_ez00_1392); 
BgL_l2739z00_1399 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2486))->BgL_exprza2za2); } 
{ /* ./DotNet/lisp.scm 77 */
bool_t BgL_test3785z00_1400;
BgL_test3785z00_1400 = 
NULLP(BgL_l2739z00_1399); 
if(BgL_test3785z00_1400)
{ /* ./DotNet/lisp.scm 77 */
BgL_arg3782z00_1397 = BNIL; }  else 
{ /* ./DotNet/lisp.scm 77 */
obj_t BgL_head2741z00_1401;
{ /* ./DotNet/lisp.scm 77 */
obj_t BgL_arg3806z00_1412;
{ /* ./DotNet/lisp.scm 77 */
obj_t BgL_arg3810z00_1414;
BgL_arg3810z00_1414 = 
CAR(BgL_l2739z00_1399); 
{ /* ./DotNet/lisp.scm 77 */
BgL_nodez00_bglt BgL_ez00_2489;
BgL_ez00_2489 = 
(BgL_nodez00_bglt)(BgL_arg3810z00_1414); 
{ /* ./DotNet/lisp.scm 77 */
obj_t BgL_method2774z00_2490;
{ /* ./DotNet/lisp.scm 77 */
BgL_objectz00_bglt BgL_objz00_2491;
BgL_objz00_2491 = 
(BgL_objectz00_bglt)(BgL_ez00_2489); 
{ /* ./DotNet/lisp.scm 77 */
long BgL_objzd2classzd2numz00_2492;
BgL_objzd2classzd2numz00_2492 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2491); 
{ /* ./DotNet/lisp.scm 77 */
obj_t BgL_arg2017z00_2493;
{ /* ./DotNet/lisp.scm 77 */
int BgL_auxz00_3812;
BgL_auxz00_3812 = 
(int)(((long)1)); 
BgL_arg2017z00_2493 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3812); } 
{ /* ./DotNet/lisp.scm 77 */
int BgL_offsetz00_2496;
BgL_offsetz00_2496 = 
(int)(BgL_objzd2classzd2numz00_2492); 
{ /* ./DotNet/lisp.scm 77 */
long BgL_offsetz00_2497;
{ /* ./DotNet/lisp.scm 77 */
long BgL_auxz00_3816;
BgL_auxz00_3816 = 
(long)(BgL_offsetz00_2496); 
BgL_offsetz00_2497 = 
(BgL_auxz00_3816-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 77 */
long BgL_modz00_2498;
{ /* ./DotNet/lisp.scm 77 */
int BgL_arg2028z00_2499;
BgL_arg2028z00_2499 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 77 */
long BgL_n2z00_2507;
BgL_n2z00_2507 = 
(long)(BgL_arg2028z00_2499); 
BgL_modz00_2498 = 
(BgL_offsetz00_2497/BgL_n2z00_2507); } } 
{ /* ./DotNet/lisp.scm 77 */
long BgL_restz00_2500;
{ /* ./DotNet/lisp.scm 77 */
int BgL_arg2024z00_2501;
BgL_arg2024z00_2501 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 77 */
long BgL_n2z00_2510;
BgL_n2z00_2510 = 
(long)(BgL_arg2024z00_2501); 
BgL_restz00_2500 = 
(BgL_offsetz00_2497%BgL_n2z00_2510); } } 
{ /* ./DotNet/lisp.scm 77 */

{ /* ./DotNet/lisp.scm 77 */
obj_t BgL_bucketz00_2502;
{ /* ./DotNet/lisp.scm 77 */
int BgL_kz00_2512;
BgL_kz00_2512 = 
(int)(BgL_modz00_2498); 
BgL_bucketz00_2502 = 
VECTOR_REF(BgL_arg2017z00_2493,BgL_kz00_2512); } 
{ /* ./DotNet/lisp.scm 77 */
int BgL_kz00_2514;
BgL_kz00_2514 = 
(int)(BgL_restz00_2500); 
BgL_method2774z00_2490 = 
VECTOR_REF(BgL_bucketz00_2502,BgL_kz00_2514); } } } } } } } } } } 
BgL_arg3806z00_1412 = 
PROCEDURE_ENTRY(BgL_method2774z00_2490)(BgL_method2774z00_2490, 
(obj_t)(BgL_ez00_2489), BEOA); } } } 
BgL_head2741z00_1401 = 
MAKE_PAIR(BgL_arg3806z00_1412, BNIL); } 
{ 
obj_t BgL_l2739z00_1402;obj_t BgL_tail2742z00_1403;
{ /* ./DotNet/lisp.scm 77 */
obj_t BgL_arg3787z00_1405;
BgL_arg3787z00_1405 = 
CDR(BgL_l2739z00_1399); 
BgL_l2739z00_1402 = BgL_arg3787z00_1405; 
BgL_tail2742z00_1403 = BgL_head2741z00_1401; 
BgL_map2740z00_1404:
{ /* ./DotNet/lisp.scm 77 */
bool_t BgL_test3790z00_1406;
BgL_test3790z00_1406 = 
NULLP(BgL_l2739z00_1402); 
if(BgL_test3790z00_1406)
{ /* ./DotNet/lisp.scm 77 */
BgL_arg3782z00_1397 = BgL_head2741z00_1401; }  else 
{ /* ./DotNet/lisp.scm 77 */
obj_t BgL_newtail2743z00_1407;
{ /* ./DotNet/lisp.scm 77 */
obj_t BgL_arg3797z00_1409;
{ /* ./DotNet/lisp.scm 77 */
obj_t BgL_arg3801z00_1411;
BgL_arg3801z00_1411 = 
CAR(BgL_l2739z00_1402); 
{ /* ./DotNet/lisp.scm 77 */
BgL_nodez00_bglt BgL_ez00_2520;
BgL_ez00_2520 = 
(BgL_nodez00_bglt)(BgL_arg3801z00_1411); 
{ /* ./DotNet/lisp.scm 77 */
obj_t BgL_method2774z00_2521;
{ /* ./DotNet/lisp.scm 77 */
BgL_objectz00_bglt BgL_objz00_2522;
BgL_objz00_2522 = 
(BgL_objectz00_bglt)(BgL_ez00_2520); 
{ /* ./DotNet/lisp.scm 77 */
long BgL_objzd2classzd2numz00_2523;
BgL_objzd2classzd2numz00_2523 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2522); 
{ /* ./DotNet/lisp.scm 77 */
obj_t BgL_arg2017z00_2524;
{ /* ./DotNet/lisp.scm 77 */
int BgL_auxz00_3840;
BgL_auxz00_3840 = 
(int)(((long)1)); 
BgL_arg2017z00_2524 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3840); } 
{ /* ./DotNet/lisp.scm 77 */
int BgL_offsetz00_2527;
BgL_offsetz00_2527 = 
(int)(BgL_objzd2classzd2numz00_2523); 
{ /* ./DotNet/lisp.scm 77 */
long BgL_offsetz00_2528;
{ /* ./DotNet/lisp.scm 77 */
long BgL_auxz00_3844;
BgL_auxz00_3844 = 
(long)(BgL_offsetz00_2527); 
BgL_offsetz00_2528 = 
(BgL_auxz00_3844-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 77 */
long BgL_modz00_2529;
{ /* ./DotNet/lisp.scm 77 */
int BgL_arg2028z00_2530;
BgL_arg2028z00_2530 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 77 */
long BgL_n2z00_2538;
BgL_n2z00_2538 = 
(long)(BgL_arg2028z00_2530); 
BgL_modz00_2529 = 
(BgL_offsetz00_2528/BgL_n2z00_2538); } } 
{ /* ./DotNet/lisp.scm 77 */
long BgL_restz00_2531;
{ /* ./DotNet/lisp.scm 77 */
int BgL_arg2024z00_2532;
BgL_arg2024z00_2532 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 77 */
long BgL_n2z00_2541;
BgL_n2z00_2541 = 
(long)(BgL_arg2024z00_2532); 
BgL_restz00_2531 = 
(BgL_offsetz00_2528%BgL_n2z00_2541); } } 
{ /* ./DotNet/lisp.scm 77 */

{ /* ./DotNet/lisp.scm 77 */
obj_t BgL_bucketz00_2533;
{ /* ./DotNet/lisp.scm 77 */
int BgL_kz00_2543;
BgL_kz00_2543 = 
(int)(BgL_modz00_2529); 
BgL_bucketz00_2533 = 
VECTOR_REF(BgL_arg2017z00_2524,BgL_kz00_2543); } 
{ /* ./DotNet/lisp.scm 77 */
int BgL_kz00_2545;
BgL_kz00_2545 = 
(int)(BgL_restz00_2531); 
BgL_method2774z00_2521 = 
VECTOR_REF(BgL_bucketz00_2533,BgL_kz00_2545); } } } } } } } } } } 
BgL_arg3797z00_1409 = 
PROCEDURE_ENTRY(BgL_method2774z00_2521)(BgL_method2774z00_2521, 
(obj_t)(BgL_ez00_2520), BEOA); } } } 
BgL_newtail2743z00_1407 = 
MAKE_PAIR(BgL_arg3797z00_1409, BNIL); } 
SET_CDR(BgL_tail2742z00_1403, BgL_newtail2743z00_1407); 
{ /* ./DotNet/lisp.scm 77 */
obj_t BgL_arg3793z00_1408;
BgL_arg3793z00_1408 = 
CDR(BgL_l2739z00_1402); 
{ 
obj_t BgL_tail2742z00_3864;obj_t BgL_l2739z00_3863;
BgL_l2739z00_3863 = BgL_arg3793z00_1408; 
BgL_tail2742z00_3864 = BgL_newtail2743z00_1407; 
BgL_tail2742z00_1403 = BgL_tail2742z00_3864; 
BgL_l2739z00_1402 = BgL_l2739z00_3863; 
goto BgL_map2740z00_1404;} } } } } } } } } 
BgL_arg3779z00_1396 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3782z00_1397, BNIL); } 
return 
MAKE_PAIR(BgL_arg3778z00_1395, BgL_arg3779z00_1396);} } } 
}



/* compile-lisp-valloc2804 */
obj_t BGl_compilezd2lispzd2valloc2804z00zzdotnet_lispz00(obj_t BgL_envz00_3149, obj_t BgL_ez00_3150)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 73 */
{ 
BgL_vallocz00_bglt BgL_ez00_1367;
BgL_ez00_1367 = 
(BgL_vallocz00_bglt)(BgL_ez00_3150); 
{ /* ./DotNet/lisp.scm 74 */
obj_t BgL_arg3734z00_1370;obj_t BgL_arg3735z00_1371;
BgL_arg3734z00_1370 = 
CNST_TABLE_REF(((long)11)); 
{ /* ./DotNet/lisp.scm 74 */
obj_t BgL_arg3738z00_1372;
{ /* ./DotNet/lisp.scm 74 */
obj_t BgL_l2734z00_1374;
{ /* ./DotNet/lisp.scm 74 */
BgL_externz00_bglt BgL_obj1817z00_2421;
BgL_obj1817z00_2421 = 
(BgL_externz00_bglt)(BgL_ez00_1367); 
BgL_l2734z00_1374 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2421))->BgL_exprza2za2); } 
{ /* ./DotNet/lisp.scm 74 */
bool_t BgL_test3741z00_1375;
BgL_test3741z00_1375 = 
NULLP(BgL_l2734z00_1374); 
if(BgL_test3741z00_1375)
{ /* ./DotNet/lisp.scm 74 */
BgL_arg3738z00_1372 = BNIL; }  else 
{ /* ./DotNet/lisp.scm 74 */
obj_t BgL_head2736z00_1376;
{ /* ./DotNet/lisp.scm 74 */
obj_t BgL_arg3762z00_1387;
{ /* ./DotNet/lisp.scm 74 */
obj_t BgL_arg3766z00_1389;
BgL_arg3766z00_1389 = 
CAR(BgL_l2734z00_1374); 
{ /* ./DotNet/lisp.scm 74 */
BgL_nodez00_bglt BgL_ez00_2424;
BgL_ez00_2424 = 
(BgL_nodez00_bglt)(BgL_arg3766z00_1389); 
{ /* ./DotNet/lisp.scm 74 */
obj_t BgL_method2774z00_2425;
{ /* ./DotNet/lisp.scm 74 */
BgL_objectz00_bglt BgL_objz00_2426;
BgL_objz00_2426 = 
(BgL_objectz00_bglt)(BgL_ez00_2424); 
{ /* ./DotNet/lisp.scm 74 */
long BgL_objzd2classzd2numz00_2427;
BgL_objzd2classzd2numz00_2427 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2426); 
{ /* ./DotNet/lisp.scm 74 */
obj_t BgL_arg2017z00_2428;
{ /* ./DotNet/lisp.scm 74 */
int BgL_auxz00_3877;
BgL_auxz00_3877 = 
(int)(((long)1)); 
BgL_arg2017z00_2428 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3877); } 
{ /* ./DotNet/lisp.scm 74 */
int BgL_offsetz00_2431;
BgL_offsetz00_2431 = 
(int)(BgL_objzd2classzd2numz00_2427); 
{ /* ./DotNet/lisp.scm 74 */
long BgL_offsetz00_2432;
{ /* ./DotNet/lisp.scm 74 */
long BgL_auxz00_3881;
BgL_auxz00_3881 = 
(long)(BgL_offsetz00_2431); 
BgL_offsetz00_2432 = 
(BgL_auxz00_3881-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 74 */
long BgL_modz00_2433;
{ /* ./DotNet/lisp.scm 74 */
int BgL_arg2028z00_2434;
BgL_arg2028z00_2434 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 74 */
long BgL_n2z00_2442;
BgL_n2z00_2442 = 
(long)(BgL_arg2028z00_2434); 
BgL_modz00_2433 = 
(BgL_offsetz00_2432/BgL_n2z00_2442); } } 
{ /* ./DotNet/lisp.scm 74 */
long BgL_restz00_2435;
{ /* ./DotNet/lisp.scm 74 */
int BgL_arg2024z00_2436;
BgL_arg2024z00_2436 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 74 */
long BgL_n2z00_2445;
BgL_n2z00_2445 = 
(long)(BgL_arg2024z00_2436); 
BgL_restz00_2435 = 
(BgL_offsetz00_2432%BgL_n2z00_2445); } } 
{ /* ./DotNet/lisp.scm 74 */

{ /* ./DotNet/lisp.scm 74 */
obj_t BgL_bucketz00_2437;
{ /* ./DotNet/lisp.scm 74 */
int BgL_kz00_2447;
BgL_kz00_2447 = 
(int)(BgL_modz00_2433); 
BgL_bucketz00_2437 = 
VECTOR_REF(BgL_arg2017z00_2428,BgL_kz00_2447); } 
{ /* ./DotNet/lisp.scm 74 */
int BgL_kz00_2449;
BgL_kz00_2449 = 
(int)(BgL_restz00_2435); 
BgL_method2774z00_2425 = 
VECTOR_REF(BgL_bucketz00_2437,BgL_kz00_2449); } } } } } } } } } } 
BgL_arg3762z00_1387 = 
PROCEDURE_ENTRY(BgL_method2774z00_2425)(BgL_method2774z00_2425, 
(obj_t)(BgL_ez00_2424), BEOA); } } } 
BgL_head2736z00_1376 = 
MAKE_PAIR(BgL_arg3762z00_1387, BNIL); } 
{ 
obj_t BgL_l2734z00_1377;obj_t BgL_tail2737z00_1378;
{ /* ./DotNet/lisp.scm 74 */
obj_t BgL_arg3743z00_1380;
BgL_arg3743z00_1380 = 
CDR(BgL_l2734z00_1374); 
BgL_l2734z00_1377 = BgL_arg3743z00_1380; 
BgL_tail2737z00_1378 = BgL_head2736z00_1376; 
BgL_map2735z00_1379:
{ /* ./DotNet/lisp.scm 74 */
bool_t BgL_test3746z00_1381;
BgL_test3746z00_1381 = 
NULLP(BgL_l2734z00_1377); 
if(BgL_test3746z00_1381)
{ /* ./DotNet/lisp.scm 74 */
BgL_arg3738z00_1372 = BgL_head2736z00_1376; }  else 
{ /* ./DotNet/lisp.scm 74 */
obj_t BgL_newtail2738z00_1382;
{ /* ./DotNet/lisp.scm 74 */
obj_t BgL_arg3753z00_1384;
{ /* ./DotNet/lisp.scm 74 */
obj_t BgL_arg3757z00_1386;
BgL_arg3757z00_1386 = 
CAR(BgL_l2734z00_1377); 
{ /* ./DotNet/lisp.scm 74 */
BgL_nodez00_bglt BgL_ez00_2455;
BgL_ez00_2455 = 
(BgL_nodez00_bglt)(BgL_arg3757z00_1386); 
{ /* ./DotNet/lisp.scm 74 */
obj_t BgL_method2774z00_2456;
{ /* ./DotNet/lisp.scm 74 */
BgL_objectz00_bglt BgL_objz00_2457;
BgL_objz00_2457 = 
(BgL_objectz00_bglt)(BgL_ez00_2455); 
{ /* ./DotNet/lisp.scm 74 */
long BgL_objzd2classzd2numz00_2458;
BgL_objzd2classzd2numz00_2458 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2457); 
{ /* ./DotNet/lisp.scm 74 */
obj_t BgL_arg2017z00_2459;
{ /* ./DotNet/lisp.scm 74 */
int BgL_auxz00_3905;
BgL_auxz00_3905 = 
(int)(((long)1)); 
BgL_arg2017z00_2459 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3905); } 
{ /* ./DotNet/lisp.scm 74 */
int BgL_offsetz00_2462;
BgL_offsetz00_2462 = 
(int)(BgL_objzd2classzd2numz00_2458); 
{ /* ./DotNet/lisp.scm 74 */
long BgL_offsetz00_2463;
{ /* ./DotNet/lisp.scm 74 */
long BgL_auxz00_3909;
BgL_auxz00_3909 = 
(long)(BgL_offsetz00_2462); 
BgL_offsetz00_2463 = 
(BgL_auxz00_3909-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 74 */
long BgL_modz00_2464;
{ /* ./DotNet/lisp.scm 74 */
int BgL_arg2028z00_2465;
BgL_arg2028z00_2465 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 74 */
long BgL_n2z00_2473;
BgL_n2z00_2473 = 
(long)(BgL_arg2028z00_2465); 
BgL_modz00_2464 = 
(BgL_offsetz00_2463/BgL_n2z00_2473); } } 
{ /* ./DotNet/lisp.scm 74 */
long BgL_restz00_2466;
{ /* ./DotNet/lisp.scm 74 */
int BgL_arg2024z00_2467;
BgL_arg2024z00_2467 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 74 */
long BgL_n2z00_2476;
BgL_n2z00_2476 = 
(long)(BgL_arg2024z00_2467); 
BgL_restz00_2466 = 
(BgL_offsetz00_2463%BgL_n2z00_2476); } } 
{ /* ./DotNet/lisp.scm 74 */

{ /* ./DotNet/lisp.scm 74 */
obj_t BgL_bucketz00_2468;
{ /* ./DotNet/lisp.scm 74 */
int BgL_kz00_2478;
BgL_kz00_2478 = 
(int)(BgL_modz00_2464); 
BgL_bucketz00_2468 = 
VECTOR_REF(BgL_arg2017z00_2459,BgL_kz00_2478); } 
{ /* ./DotNet/lisp.scm 74 */
int BgL_kz00_2480;
BgL_kz00_2480 = 
(int)(BgL_restz00_2466); 
BgL_method2774z00_2456 = 
VECTOR_REF(BgL_bucketz00_2468,BgL_kz00_2480); } } } } } } } } } } 
BgL_arg3753z00_1384 = 
PROCEDURE_ENTRY(BgL_method2774z00_2456)(BgL_method2774z00_2456, 
(obj_t)(BgL_ez00_2455), BEOA); } } } 
BgL_newtail2738z00_1382 = 
MAKE_PAIR(BgL_arg3753z00_1384, BNIL); } 
SET_CDR(BgL_tail2737z00_1378, BgL_newtail2738z00_1382); 
{ /* ./DotNet/lisp.scm 74 */
obj_t BgL_arg3749z00_1383;
BgL_arg3749z00_1383 = 
CDR(BgL_l2734z00_1377); 
{ 
obj_t BgL_tail2737z00_3929;obj_t BgL_l2734z00_3928;
BgL_l2734z00_3928 = BgL_arg3749z00_1383; 
BgL_tail2737z00_3929 = BgL_newtail2738z00_1382; 
BgL_tail2737z00_1378 = BgL_tail2737z00_3929; 
BgL_l2734z00_1377 = BgL_l2734z00_3928; 
goto BgL_map2735z00_1379;} } } } } } } } } 
BgL_arg3735z00_1371 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3738z00_1372, BNIL); } 
return 
MAKE_PAIR(BgL_arg3734z00_1370, BgL_arg3735z00_1371);} } } 
}



/* compile-lisp-new2802 */
obj_t BGl_compilezd2lispzd2new2802z00zzdotnet_lispz00(obj_t BgL_envz00_3151, obj_t BgL_ez00_3152)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 70 */
{ 
BgL_newz00_bglt BgL_ez00_1342;
BgL_ez00_1342 = 
(BgL_newz00_bglt)(BgL_ez00_3152); 
{ /* ./DotNet/lisp.scm 71 */
obj_t BgL_arg3690z00_1345;obj_t BgL_arg3691z00_1346;
BgL_arg3690z00_1345 = 
CNST_TABLE_REF(((long)12)); 
{ /* ./DotNet/lisp.scm 71 */
obj_t BgL_arg3694z00_1347;
{ /* ./DotNet/lisp.scm 71 */
obj_t BgL_l2729z00_1349;
{ /* ./DotNet/lisp.scm 71 */
BgL_externz00_bglt BgL_obj1817z00_2356;
BgL_obj1817z00_2356 = 
(BgL_externz00_bglt)(BgL_ez00_1342); 
BgL_l2729z00_1349 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2356))->BgL_exprza2za2); } 
{ /* ./DotNet/lisp.scm 71 */
bool_t BgL_test3697z00_1350;
BgL_test3697z00_1350 = 
NULLP(BgL_l2729z00_1349); 
if(BgL_test3697z00_1350)
{ /* ./DotNet/lisp.scm 71 */
BgL_arg3694z00_1347 = BNIL; }  else 
{ /* ./DotNet/lisp.scm 71 */
obj_t BgL_head2731z00_1351;
{ /* ./DotNet/lisp.scm 71 */
obj_t BgL_arg3718z00_1362;
{ /* ./DotNet/lisp.scm 71 */
obj_t BgL_arg3722z00_1364;
BgL_arg3722z00_1364 = 
CAR(BgL_l2729z00_1349); 
{ /* ./DotNet/lisp.scm 71 */
BgL_nodez00_bglt BgL_ez00_2359;
BgL_ez00_2359 = 
(BgL_nodez00_bglt)(BgL_arg3722z00_1364); 
{ /* ./DotNet/lisp.scm 71 */
obj_t BgL_method2774z00_2360;
{ /* ./DotNet/lisp.scm 71 */
BgL_objectz00_bglt BgL_objz00_2361;
BgL_objz00_2361 = 
(BgL_objectz00_bglt)(BgL_ez00_2359); 
{ /* ./DotNet/lisp.scm 71 */
long BgL_objzd2classzd2numz00_2362;
BgL_objzd2classzd2numz00_2362 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2361); 
{ /* ./DotNet/lisp.scm 71 */
obj_t BgL_arg2017z00_2363;
{ /* ./DotNet/lisp.scm 71 */
int BgL_auxz00_3942;
BgL_auxz00_3942 = 
(int)(((long)1)); 
BgL_arg2017z00_2363 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3942); } 
{ /* ./DotNet/lisp.scm 71 */
int BgL_offsetz00_2366;
BgL_offsetz00_2366 = 
(int)(BgL_objzd2classzd2numz00_2362); 
{ /* ./DotNet/lisp.scm 71 */
long BgL_offsetz00_2367;
{ /* ./DotNet/lisp.scm 71 */
long BgL_auxz00_3946;
BgL_auxz00_3946 = 
(long)(BgL_offsetz00_2366); 
BgL_offsetz00_2367 = 
(BgL_auxz00_3946-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 71 */
long BgL_modz00_2368;
{ /* ./DotNet/lisp.scm 71 */
int BgL_arg2028z00_2369;
BgL_arg2028z00_2369 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 71 */
long BgL_n2z00_2377;
BgL_n2z00_2377 = 
(long)(BgL_arg2028z00_2369); 
BgL_modz00_2368 = 
(BgL_offsetz00_2367/BgL_n2z00_2377); } } 
{ /* ./DotNet/lisp.scm 71 */
long BgL_restz00_2370;
{ /* ./DotNet/lisp.scm 71 */
int BgL_arg2024z00_2371;
BgL_arg2024z00_2371 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 71 */
long BgL_n2z00_2380;
BgL_n2z00_2380 = 
(long)(BgL_arg2024z00_2371); 
BgL_restz00_2370 = 
(BgL_offsetz00_2367%BgL_n2z00_2380); } } 
{ /* ./DotNet/lisp.scm 71 */

{ /* ./DotNet/lisp.scm 71 */
obj_t BgL_bucketz00_2372;
{ /* ./DotNet/lisp.scm 71 */
int BgL_kz00_2382;
BgL_kz00_2382 = 
(int)(BgL_modz00_2368); 
BgL_bucketz00_2372 = 
VECTOR_REF(BgL_arg2017z00_2363,BgL_kz00_2382); } 
{ /* ./DotNet/lisp.scm 71 */
int BgL_kz00_2384;
BgL_kz00_2384 = 
(int)(BgL_restz00_2370); 
BgL_method2774z00_2360 = 
VECTOR_REF(BgL_bucketz00_2372,BgL_kz00_2384); } } } } } } } } } } 
BgL_arg3718z00_1362 = 
PROCEDURE_ENTRY(BgL_method2774z00_2360)(BgL_method2774z00_2360, 
(obj_t)(BgL_ez00_2359), BEOA); } } } 
BgL_head2731z00_1351 = 
MAKE_PAIR(BgL_arg3718z00_1362, BNIL); } 
{ 
obj_t BgL_l2729z00_1352;obj_t BgL_tail2732z00_1353;
{ /* ./DotNet/lisp.scm 71 */
obj_t BgL_arg3699z00_1355;
BgL_arg3699z00_1355 = 
CDR(BgL_l2729z00_1349); 
BgL_l2729z00_1352 = BgL_arg3699z00_1355; 
BgL_tail2732z00_1353 = BgL_head2731z00_1351; 
BgL_map2730z00_1354:
{ /* ./DotNet/lisp.scm 71 */
bool_t BgL_test3702z00_1356;
BgL_test3702z00_1356 = 
NULLP(BgL_l2729z00_1352); 
if(BgL_test3702z00_1356)
{ /* ./DotNet/lisp.scm 71 */
BgL_arg3694z00_1347 = BgL_head2731z00_1351; }  else 
{ /* ./DotNet/lisp.scm 71 */
obj_t BgL_newtail2733z00_1357;
{ /* ./DotNet/lisp.scm 71 */
obj_t BgL_arg3709z00_1359;
{ /* ./DotNet/lisp.scm 71 */
obj_t BgL_arg3713z00_1361;
BgL_arg3713z00_1361 = 
CAR(BgL_l2729z00_1352); 
{ /* ./DotNet/lisp.scm 71 */
BgL_nodez00_bglt BgL_ez00_2390;
BgL_ez00_2390 = 
(BgL_nodez00_bglt)(BgL_arg3713z00_1361); 
{ /* ./DotNet/lisp.scm 71 */
obj_t BgL_method2774z00_2391;
{ /* ./DotNet/lisp.scm 71 */
BgL_objectz00_bglt BgL_objz00_2392;
BgL_objz00_2392 = 
(BgL_objectz00_bglt)(BgL_ez00_2390); 
{ /* ./DotNet/lisp.scm 71 */
long BgL_objzd2classzd2numz00_2393;
BgL_objzd2classzd2numz00_2393 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2392); 
{ /* ./DotNet/lisp.scm 71 */
obj_t BgL_arg2017z00_2394;
{ /* ./DotNet/lisp.scm 71 */
int BgL_auxz00_3970;
BgL_auxz00_3970 = 
(int)(((long)1)); 
BgL_arg2017z00_2394 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_3970); } 
{ /* ./DotNet/lisp.scm 71 */
int BgL_offsetz00_2397;
BgL_offsetz00_2397 = 
(int)(BgL_objzd2classzd2numz00_2393); 
{ /* ./DotNet/lisp.scm 71 */
long BgL_offsetz00_2398;
{ /* ./DotNet/lisp.scm 71 */
long BgL_auxz00_3974;
BgL_auxz00_3974 = 
(long)(BgL_offsetz00_2397); 
BgL_offsetz00_2398 = 
(BgL_auxz00_3974-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 71 */
long BgL_modz00_2399;
{ /* ./DotNet/lisp.scm 71 */
int BgL_arg2028z00_2400;
BgL_arg2028z00_2400 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 71 */
long BgL_n2z00_2408;
BgL_n2z00_2408 = 
(long)(BgL_arg2028z00_2400); 
BgL_modz00_2399 = 
(BgL_offsetz00_2398/BgL_n2z00_2408); } } 
{ /* ./DotNet/lisp.scm 71 */
long BgL_restz00_2401;
{ /* ./DotNet/lisp.scm 71 */
int BgL_arg2024z00_2402;
BgL_arg2024z00_2402 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 71 */
long BgL_n2z00_2411;
BgL_n2z00_2411 = 
(long)(BgL_arg2024z00_2402); 
BgL_restz00_2401 = 
(BgL_offsetz00_2398%BgL_n2z00_2411); } } 
{ /* ./DotNet/lisp.scm 71 */

{ /* ./DotNet/lisp.scm 71 */
obj_t BgL_bucketz00_2403;
{ /* ./DotNet/lisp.scm 71 */
int BgL_kz00_2413;
BgL_kz00_2413 = 
(int)(BgL_modz00_2399); 
BgL_bucketz00_2403 = 
VECTOR_REF(BgL_arg2017z00_2394,BgL_kz00_2413); } 
{ /* ./DotNet/lisp.scm 71 */
int BgL_kz00_2415;
BgL_kz00_2415 = 
(int)(BgL_restz00_2401); 
BgL_method2774z00_2391 = 
VECTOR_REF(BgL_bucketz00_2403,BgL_kz00_2415); } } } } } } } } } } 
BgL_arg3709z00_1359 = 
PROCEDURE_ENTRY(BgL_method2774z00_2391)(BgL_method2774z00_2391, 
(obj_t)(BgL_ez00_2390), BEOA); } } } 
BgL_newtail2733z00_1357 = 
MAKE_PAIR(BgL_arg3709z00_1359, BNIL); } 
SET_CDR(BgL_tail2732z00_1353, BgL_newtail2733z00_1357); 
{ /* ./DotNet/lisp.scm 71 */
obj_t BgL_arg3705z00_1358;
BgL_arg3705z00_1358 = 
CDR(BgL_l2729z00_1352); 
{ 
obj_t BgL_tail2732z00_3994;obj_t BgL_l2729z00_3993;
BgL_l2729z00_3993 = BgL_arg3705z00_1358; 
BgL_tail2732z00_3994 = BgL_newtail2733z00_1357; 
BgL_tail2732z00_1353 = BgL_tail2732z00_3994; 
BgL_l2729z00_1352 = BgL_l2729z00_3993; 
goto BgL_map2730z00_1354;} } } } } } } } } 
BgL_arg3691z00_1346 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3694z00_1347, BNIL); } 
return 
MAKE_PAIR(BgL_arg3690z00_1345, BgL_arg3691z00_1346);} } } 
}



/* compile-lisp-setfield2800 */
obj_t BGl_compilezd2lispzd2setfield2800z00zzdotnet_lispz00(obj_t BgL_envz00_3153, obj_t BgL_ez00_3154)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 67 */
{ 
BgL_setfieldz00_bglt BgL_ez00_1317;
BgL_ez00_1317 = 
(BgL_setfieldz00_bglt)(BgL_ez00_3154); 
{ /* ./DotNet/lisp.scm 68 */
obj_t BgL_arg3645z00_1320;obj_t BgL_arg3646z00_1321;
BgL_arg3645z00_1320 = 
CNST_TABLE_REF(((long)13)); 
{ /* ./DotNet/lisp.scm 68 */
obj_t BgL_arg3650z00_1322;
{ /* ./DotNet/lisp.scm 68 */
obj_t BgL_l2724z00_1324;
{ /* ./DotNet/lisp.scm 68 */
BgL_externz00_bglt BgL_obj1817z00_2291;
BgL_obj1817z00_2291 = 
(BgL_externz00_bglt)(BgL_ez00_1317); 
BgL_l2724z00_1324 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2291))->BgL_exprza2za2); } 
{ /* ./DotNet/lisp.scm 68 */
bool_t BgL_test3653z00_1325;
BgL_test3653z00_1325 = 
NULLP(BgL_l2724z00_1324); 
if(BgL_test3653z00_1325)
{ /* ./DotNet/lisp.scm 68 */
BgL_arg3650z00_1322 = BNIL; }  else 
{ /* ./DotNet/lisp.scm 68 */
obj_t BgL_head2726z00_1326;
{ /* ./DotNet/lisp.scm 68 */
obj_t BgL_arg3674z00_1337;
{ /* ./DotNet/lisp.scm 68 */
obj_t BgL_arg3678z00_1339;
BgL_arg3678z00_1339 = 
CAR(BgL_l2724z00_1324); 
{ /* ./DotNet/lisp.scm 68 */
BgL_nodez00_bglt BgL_ez00_2294;
BgL_ez00_2294 = 
(BgL_nodez00_bglt)(BgL_arg3678z00_1339); 
{ /* ./DotNet/lisp.scm 68 */
obj_t BgL_method2774z00_2295;
{ /* ./DotNet/lisp.scm 68 */
BgL_objectz00_bglt BgL_objz00_2296;
BgL_objz00_2296 = 
(BgL_objectz00_bglt)(BgL_ez00_2294); 
{ /* ./DotNet/lisp.scm 68 */
long BgL_objzd2classzd2numz00_2297;
BgL_objzd2classzd2numz00_2297 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2296); 
{ /* ./DotNet/lisp.scm 68 */
obj_t BgL_arg2017z00_2298;
{ /* ./DotNet/lisp.scm 68 */
int BgL_auxz00_4007;
BgL_auxz00_4007 = 
(int)(((long)1)); 
BgL_arg2017z00_2298 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_4007); } 
{ /* ./DotNet/lisp.scm 68 */
int BgL_offsetz00_2301;
BgL_offsetz00_2301 = 
(int)(BgL_objzd2classzd2numz00_2297); 
{ /* ./DotNet/lisp.scm 68 */
long BgL_offsetz00_2302;
{ /* ./DotNet/lisp.scm 68 */
long BgL_auxz00_4011;
BgL_auxz00_4011 = 
(long)(BgL_offsetz00_2301); 
BgL_offsetz00_2302 = 
(BgL_auxz00_4011-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 68 */
long BgL_modz00_2303;
{ /* ./DotNet/lisp.scm 68 */
int BgL_arg2028z00_2304;
BgL_arg2028z00_2304 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 68 */
long BgL_n2z00_2312;
BgL_n2z00_2312 = 
(long)(BgL_arg2028z00_2304); 
BgL_modz00_2303 = 
(BgL_offsetz00_2302/BgL_n2z00_2312); } } 
{ /* ./DotNet/lisp.scm 68 */
long BgL_restz00_2305;
{ /* ./DotNet/lisp.scm 68 */
int BgL_arg2024z00_2306;
BgL_arg2024z00_2306 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 68 */
long BgL_n2z00_2315;
BgL_n2z00_2315 = 
(long)(BgL_arg2024z00_2306); 
BgL_restz00_2305 = 
(BgL_offsetz00_2302%BgL_n2z00_2315); } } 
{ /* ./DotNet/lisp.scm 68 */

{ /* ./DotNet/lisp.scm 68 */
obj_t BgL_bucketz00_2307;
{ /* ./DotNet/lisp.scm 68 */
int BgL_kz00_2317;
BgL_kz00_2317 = 
(int)(BgL_modz00_2303); 
BgL_bucketz00_2307 = 
VECTOR_REF(BgL_arg2017z00_2298,BgL_kz00_2317); } 
{ /* ./DotNet/lisp.scm 68 */
int BgL_kz00_2319;
BgL_kz00_2319 = 
(int)(BgL_restz00_2305); 
BgL_method2774z00_2295 = 
VECTOR_REF(BgL_bucketz00_2307,BgL_kz00_2319); } } } } } } } } } } 
BgL_arg3674z00_1337 = 
PROCEDURE_ENTRY(BgL_method2774z00_2295)(BgL_method2774z00_2295, 
(obj_t)(BgL_ez00_2294), BEOA); } } } 
BgL_head2726z00_1326 = 
MAKE_PAIR(BgL_arg3674z00_1337, BNIL); } 
{ 
obj_t BgL_l2724z00_1327;obj_t BgL_tail2727z00_1328;
{ /* ./DotNet/lisp.scm 68 */
obj_t BgL_arg3655z00_1330;
BgL_arg3655z00_1330 = 
CDR(BgL_l2724z00_1324); 
BgL_l2724z00_1327 = BgL_arg3655z00_1330; 
BgL_tail2727z00_1328 = BgL_head2726z00_1326; 
BgL_map2725z00_1329:
{ /* ./DotNet/lisp.scm 68 */
bool_t BgL_test3658z00_1331;
BgL_test3658z00_1331 = 
NULLP(BgL_l2724z00_1327); 
if(BgL_test3658z00_1331)
{ /* ./DotNet/lisp.scm 68 */
BgL_arg3650z00_1322 = BgL_head2726z00_1326; }  else 
{ /* ./DotNet/lisp.scm 68 */
obj_t BgL_newtail2728z00_1332;
{ /* ./DotNet/lisp.scm 68 */
obj_t BgL_arg3665z00_1334;
{ /* ./DotNet/lisp.scm 68 */
obj_t BgL_arg3669z00_1336;
BgL_arg3669z00_1336 = 
CAR(BgL_l2724z00_1327); 
{ /* ./DotNet/lisp.scm 68 */
BgL_nodez00_bglt BgL_ez00_2325;
BgL_ez00_2325 = 
(BgL_nodez00_bglt)(BgL_arg3669z00_1336); 
{ /* ./DotNet/lisp.scm 68 */
obj_t BgL_method2774z00_2326;
{ /* ./DotNet/lisp.scm 68 */
BgL_objectz00_bglt BgL_objz00_2327;
BgL_objz00_2327 = 
(BgL_objectz00_bglt)(BgL_ez00_2325); 
{ /* ./DotNet/lisp.scm 68 */
long BgL_objzd2classzd2numz00_2328;
BgL_objzd2classzd2numz00_2328 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2327); 
{ /* ./DotNet/lisp.scm 68 */
obj_t BgL_arg2017z00_2329;
{ /* ./DotNet/lisp.scm 68 */
int BgL_auxz00_4035;
BgL_auxz00_4035 = 
(int)(((long)1)); 
BgL_arg2017z00_2329 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_4035); } 
{ /* ./DotNet/lisp.scm 68 */
int BgL_offsetz00_2332;
BgL_offsetz00_2332 = 
(int)(BgL_objzd2classzd2numz00_2328); 
{ /* ./DotNet/lisp.scm 68 */
long BgL_offsetz00_2333;
{ /* ./DotNet/lisp.scm 68 */
long BgL_auxz00_4039;
BgL_auxz00_4039 = 
(long)(BgL_offsetz00_2332); 
BgL_offsetz00_2333 = 
(BgL_auxz00_4039-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 68 */
long BgL_modz00_2334;
{ /* ./DotNet/lisp.scm 68 */
int BgL_arg2028z00_2335;
BgL_arg2028z00_2335 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 68 */
long BgL_n2z00_2343;
BgL_n2z00_2343 = 
(long)(BgL_arg2028z00_2335); 
BgL_modz00_2334 = 
(BgL_offsetz00_2333/BgL_n2z00_2343); } } 
{ /* ./DotNet/lisp.scm 68 */
long BgL_restz00_2336;
{ /* ./DotNet/lisp.scm 68 */
int BgL_arg2024z00_2337;
BgL_arg2024z00_2337 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 68 */
long BgL_n2z00_2346;
BgL_n2z00_2346 = 
(long)(BgL_arg2024z00_2337); 
BgL_restz00_2336 = 
(BgL_offsetz00_2333%BgL_n2z00_2346); } } 
{ /* ./DotNet/lisp.scm 68 */

{ /* ./DotNet/lisp.scm 68 */
obj_t BgL_bucketz00_2338;
{ /* ./DotNet/lisp.scm 68 */
int BgL_kz00_2348;
BgL_kz00_2348 = 
(int)(BgL_modz00_2334); 
BgL_bucketz00_2338 = 
VECTOR_REF(BgL_arg2017z00_2329,BgL_kz00_2348); } 
{ /* ./DotNet/lisp.scm 68 */
int BgL_kz00_2350;
BgL_kz00_2350 = 
(int)(BgL_restz00_2336); 
BgL_method2774z00_2326 = 
VECTOR_REF(BgL_bucketz00_2338,BgL_kz00_2350); } } } } } } } } } } 
BgL_arg3665z00_1334 = 
PROCEDURE_ENTRY(BgL_method2774z00_2326)(BgL_method2774z00_2326, 
(obj_t)(BgL_ez00_2325), BEOA); } } } 
BgL_newtail2728z00_1332 = 
MAKE_PAIR(BgL_arg3665z00_1334, BNIL); } 
SET_CDR(BgL_tail2727z00_1328, BgL_newtail2728z00_1332); 
{ /* ./DotNet/lisp.scm 68 */
obj_t BgL_arg3661z00_1333;
BgL_arg3661z00_1333 = 
CDR(BgL_l2724z00_1327); 
{ 
obj_t BgL_tail2727z00_4059;obj_t BgL_l2724z00_4058;
BgL_l2724z00_4058 = BgL_arg3661z00_1333; 
BgL_tail2727z00_4059 = BgL_newtail2728z00_1332; 
BgL_tail2727z00_1328 = BgL_tail2727z00_4059; 
BgL_l2724z00_1327 = BgL_l2724z00_4058; 
goto BgL_map2725z00_1329;} } } } } } } } } 
BgL_arg3646z00_1321 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3650z00_1322, BNIL); } 
return 
MAKE_PAIR(BgL_arg3645z00_1320, BgL_arg3646z00_1321);} } } 
}



/* compile-lisp-getfield2798 */
obj_t BGl_compilezd2lispzd2getfield2798z00zzdotnet_lispz00(obj_t BgL_envz00_3155, obj_t BgL_ez00_3156)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 64 */
{ 
BgL_getfieldz00_bglt BgL_ez00_1292;
BgL_ez00_1292 = 
(BgL_getfieldz00_bglt)(BgL_ez00_3156); 
{ /* ./DotNet/lisp.scm 65 */
obj_t BgL_arg3601z00_1295;obj_t BgL_arg3602z00_1296;
BgL_arg3601z00_1295 = 
CNST_TABLE_REF(((long)14)); 
{ /* ./DotNet/lisp.scm 65 */
obj_t BgL_arg3605z00_1297;
{ /* ./DotNet/lisp.scm 65 */
obj_t BgL_l2719z00_1299;
{ /* ./DotNet/lisp.scm 65 */
BgL_externz00_bglt BgL_obj1817z00_2226;
BgL_obj1817z00_2226 = 
(BgL_externz00_bglt)(BgL_ez00_1292); 
BgL_l2719z00_1299 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2226))->BgL_exprza2za2); } 
{ /* ./DotNet/lisp.scm 65 */
bool_t BgL_test3608z00_1300;
BgL_test3608z00_1300 = 
NULLP(BgL_l2719z00_1299); 
if(BgL_test3608z00_1300)
{ /* ./DotNet/lisp.scm 65 */
BgL_arg3605z00_1297 = BNIL; }  else 
{ /* ./DotNet/lisp.scm 65 */
obj_t BgL_head2721z00_1301;
{ /* ./DotNet/lisp.scm 65 */
obj_t BgL_arg3629z00_1312;
{ /* ./DotNet/lisp.scm 65 */
obj_t BgL_arg3633z00_1314;
BgL_arg3633z00_1314 = 
CAR(BgL_l2719z00_1299); 
{ /* ./DotNet/lisp.scm 65 */
BgL_nodez00_bglt BgL_ez00_2229;
BgL_ez00_2229 = 
(BgL_nodez00_bglt)(BgL_arg3633z00_1314); 
{ /* ./DotNet/lisp.scm 65 */
obj_t BgL_method2774z00_2230;
{ /* ./DotNet/lisp.scm 65 */
BgL_objectz00_bglt BgL_objz00_2231;
BgL_objz00_2231 = 
(BgL_objectz00_bglt)(BgL_ez00_2229); 
{ /* ./DotNet/lisp.scm 65 */
long BgL_objzd2classzd2numz00_2232;
BgL_objzd2classzd2numz00_2232 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2231); 
{ /* ./DotNet/lisp.scm 65 */
obj_t BgL_arg2017z00_2233;
{ /* ./DotNet/lisp.scm 65 */
int BgL_auxz00_4072;
BgL_auxz00_4072 = 
(int)(((long)1)); 
BgL_arg2017z00_2233 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_4072); } 
{ /* ./DotNet/lisp.scm 65 */
int BgL_offsetz00_2236;
BgL_offsetz00_2236 = 
(int)(BgL_objzd2classzd2numz00_2232); 
{ /* ./DotNet/lisp.scm 65 */
long BgL_offsetz00_2237;
{ /* ./DotNet/lisp.scm 65 */
long BgL_auxz00_4076;
BgL_auxz00_4076 = 
(long)(BgL_offsetz00_2236); 
BgL_offsetz00_2237 = 
(BgL_auxz00_4076-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 65 */
long BgL_modz00_2238;
{ /* ./DotNet/lisp.scm 65 */
int BgL_arg2028z00_2239;
BgL_arg2028z00_2239 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 65 */
long BgL_n2z00_2247;
BgL_n2z00_2247 = 
(long)(BgL_arg2028z00_2239); 
BgL_modz00_2238 = 
(BgL_offsetz00_2237/BgL_n2z00_2247); } } 
{ /* ./DotNet/lisp.scm 65 */
long BgL_restz00_2240;
{ /* ./DotNet/lisp.scm 65 */
int BgL_arg2024z00_2241;
BgL_arg2024z00_2241 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 65 */
long BgL_n2z00_2250;
BgL_n2z00_2250 = 
(long)(BgL_arg2024z00_2241); 
BgL_restz00_2240 = 
(BgL_offsetz00_2237%BgL_n2z00_2250); } } 
{ /* ./DotNet/lisp.scm 65 */

{ /* ./DotNet/lisp.scm 65 */
obj_t BgL_bucketz00_2242;
{ /* ./DotNet/lisp.scm 65 */
int BgL_kz00_2252;
BgL_kz00_2252 = 
(int)(BgL_modz00_2238); 
BgL_bucketz00_2242 = 
VECTOR_REF(BgL_arg2017z00_2233,BgL_kz00_2252); } 
{ /* ./DotNet/lisp.scm 65 */
int BgL_kz00_2254;
BgL_kz00_2254 = 
(int)(BgL_restz00_2240); 
BgL_method2774z00_2230 = 
VECTOR_REF(BgL_bucketz00_2242,BgL_kz00_2254); } } } } } } } } } } 
BgL_arg3629z00_1312 = 
PROCEDURE_ENTRY(BgL_method2774z00_2230)(BgL_method2774z00_2230, 
(obj_t)(BgL_ez00_2229), BEOA); } } } 
BgL_head2721z00_1301 = 
MAKE_PAIR(BgL_arg3629z00_1312, BNIL); } 
{ 
obj_t BgL_l2719z00_1302;obj_t BgL_tail2722z00_1303;
{ /* ./DotNet/lisp.scm 65 */
obj_t BgL_arg3610z00_1305;
BgL_arg3610z00_1305 = 
CDR(BgL_l2719z00_1299); 
BgL_l2719z00_1302 = BgL_arg3610z00_1305; 
BgL_tail2722z00_1303 = BgL_head2721z00_1301; 
BgL_map2720z00_1304:
{ /* ./DotNet/lisp.scm 65 */
bool_t BgL_test3613z00_1306;
BgL_test3613z00_1306 = 
NULLP(BgL_l2719z00_1302); 
if(BgL_test3613z00_1306)
{ /* ./DotNet/lisp.scm 65 */
BgL_arg3605z00_1297 = BgL_head2721z00_1301; }  else 
{ /* ./DotNet/lisp.scm 65 */
obj_t BgL_newtail2723z00_1307;
{ /* ./DotNet/lisp.scm 65 */
obj_t BgL_arg3620z00_1309;
{ /* ./DotNet/lisp.scm 65 */
obj_t BgL_arg3624z00_1311;
BgL_arg3624z00_1311 = 
CAR(BgL_l2719z00_1302); 
{ /* ./DotNet/lisp.scm 65 */
BgL_nodez00_bglt BgL_ez00_2260;
BgL_ez00_2260 = 
(BgL_nodez00_bglt)(BgL_arg3624z00_1311); 
{ /* ./DotNet/lisp.scm 65 */
obj_t BgL_method2774z00_2261;
{ /* ./DotNet/lisp.scm 65 */
BgL_objectz00_bglt BgL_objz00_2262;
BgL_objz00_2262 = 
(BgL_objectz00_bglt)(BgL_ez00_2260); 
{ /* ./DotNet/lisp.scm 65 */
long BgL_objzd2classzd2numz00_2263;
BgL_objzd2classzd2numz00_2263 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2262); 
{ /* ./DotNet/lisp.scm 65 */
obj_t BgL_arg2017z00_2264;
{ /* ./DotNet/lisp.scm 65 */
int BgL_auxz00_4100;
BgL_auxz00_4100 = 
(int)(((long)1)); 
BgL_arg2017z00_2264 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_4100); } 
{ /* ./DotNet/lisp.scm 65 */
int BgL_offsetz00_2267;
BgL_offsetz00_2267 = 
(int)(BgL_objzd2classzd2numz00_2263); 
{ /* ./DotNet/lisp.scm 65 */
long BgL_offsetz00_2268;
{ /* ./DotNet/lisp.scm 65 */
long BgL_auxz00_4104;
BgL_auxz00_4104 = 
(long)(BgL_offsetz00_2267); 
BgL_offsetz00_2268 = 
(BgL_auxz00_4104-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 65 */
long BgL_modz00_2269;
{ /* ./DotNet/lisp.scm 65 */
int BgL_arg2028z00_2270;
BgL_arg2028z00_2270 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 65 */
long BgL_n2z00_2278;
BgL_n2z00_2278 = 
(long)(BgL_arg2028z00_2270); 
BgL_modz00_2269 = 
(BgL_offsetz00_2268/BgL_n2z00_2278); } } 
{ /* ./DotNet/lisp.scm 65 */
long BgL_restz00_2271;
{ /* ./DotNet/lisp.scm 65 */
int BgL_arg2024z00_2272;
BgL_arg2024z00_2272 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 65 */
long BgL_n2z00_2281;
BgL_n2z00_2281 = 
(long)(BgL_arg2024z00_2272); 
BgL_restz00_2271 = 
(BgL_offsetz00_2268%BgL_n2z00_2281); } } 
{ /* ./DotNet/lisp.scm 65 */

{ /* ./DotNet/lisp.scm 65 */
obj_t BgL_bucketz00_2273;
{ /* ./DotNet/lisp.scm 65 */
int BgL_kz00_2283;
BgL_kz00_2283 = 
(int)(BgL_modz00_2269); 
BgL_bucketz00_2273 = 
VECTOR_REF(BgL_arg2017z00_2264,BgL_kz00_2283); } 
{ /* ./DotNet/lisp.scm 65 */
int BgL_kz00_2285;
BgL_kz00_2285 = 
(int)(BgL_restz00_2271); 
BgL_method2774z00_2261 = 
VECTOR_REF(BgL_bucketz00_2273,BgL_kz00_2285); } } } } } } } } } } 
BgL_arg3620z00_1309 = 
PROCEDURE_ENTRY(BgL_method2774z00_2261)(BgL_method2774z00_2261, 
(obj_t)(BgL_ez00_2260), BEOA); } } } 
BgL_newtail2723z00_1307 = 
MAKE_PAIR(BgL_arg3620z00_1309, BNIL); } 
SET_CDR(BgL_tail2722z00_1303, BgL_newtail2723z00_1307); 
{ /* ./DotNet/lisp.scm 65 */
obj_t BgL_arg3616z00_1308;
BgL_arg3616z00_1308 = 
CDR(BgL_l2719z00_1302); 
{ 
obj_t BgL_tail2722z00_4124;obj_t BgL_l2719z00_4123;
BgL_l2719z00_4123 = BgL_arg3616z00_1308; 
BgL_tail2722z00_4124 = BgL_newtail2723z00_1307; 
BgL_tail2722z00_1303 = BgL_tail2722z00_4124; 
BgL_l2719z00_1302 = BgL_l2719z00_4123; 
goto BgL_map2720z00_1304;} } } } } } } } } 
BgL_arg3602z00_1296 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3605z00_1297, BNIL); } 
return 
MAKE_PAIR(BgL_arg3601z00_1295, BgL_arg3602z00_1296);} } } 
}



/* compile-lisp-funcall2796 */
obj_t BGl_compilezd2lispzd2funcall2796z00zzdotnet_lispz00(obj_t BgL_envz00_3157, obj_t BgL_ez00_3158)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 60 */
{ 
BgL_funcallz00_bglt BgL_ez00_1263;
BgL_ez00_1263 = 
(BgL_funcallz00_bglt)(BgL_ez00_3158); 
{ /* ./DotNet/lisp.scm 62 */
obj_t BgL_arg3546z00_1267;obj_t BgL_arg3547z00_1268;
BgL_arg3546z00_1267 = 
CNST_TABLE_REF(((long)15)); 
{ /* ./DotNet/lisp.scm 62 */
obj_t BgL_arg3550z00_1269;obj_t BgL_arg3552z00_1270;
{ /* ./DotNet/lisp.scm 62 */
BgL_nodez00_bglt BgL_arg3556z00_1271;
BgL_arg3556z00_1271 = 
(((BgL_funcallz00_bglt)CREF(BgL_ez00_1263))->BgL_funz00); 
{ /* ./DotNet/lisp.scm 62 */
obj_t BgL_method2774z00_2136;
{ /* ./DotNet/lisp.scm 62 */
BgL_objectz00_bglt BgL_objz00_2137;
BgL_objz00_2137 = 
(BgL_objectz00_bglt)(BgL_arg3556z00_1271); 
{ /* ./DotNet/lisp.scm 62 */
long BgL_objzd2classzd2numz00_2138;
BgL_objzd2classzd2numz00_2138 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2137); 
{ /* ./DotNet/lisp.scm 62 */
obj_t BgL_arg2017z00_2139;
{ /* ./DotNet/lisp.scm 62 */
int BgL_auxz00_4132;
BgL_auxz00_4132 = 
(int)(((long)1)); 
BgL_arg2017z00_2139 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_4132); } 
{ /* ./DotNet/lisp.scm 62 */
int BgL_offsetz00_2142;
BgL_offsetz00_2142 = 
(int)(BgL_objzd2classzd2numz00_2138); 
{ /* ./DotNet/lisp.scm 62 */
long BgL_offsetz00_2143;
{ /* ./DotNet/lisp.scm 62 */
long BgL_auxz00_4136;
BgL_auxz00_4136 = 
(long)(BgL_offsetz00_2142); 
BgL_offsetz00_2143 = 
(BgL_auxz00_4136-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 62 */
long BgL_modz00_2144;
{ /* ./DotNet/lisp.scm 62 */
int BgL_arg2028z00_2145;
BgL_arg2028z00_2145 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 62 */
long BgL_n2z00_2153;
BgL_n2z00_2153 = 
(long)(BgL_arg2028z00_2145); 
BgL_modz00_2144 = 
(BgL_offsetz00_2143/BgL_n2z00_2153); } } 
{ /* ./DotNet/lisp.scm 62 */
long BgL_restz00_2146;
{ /* ./DotNet/lisp.scm 62 */
int BgL_arg2024z00_2147;
BgL_arg2024z00_2147 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 62 */
long BgL_n2z00_2156;
BgL_n2z00_2156 = 
(long)(BgL_arg2024z00_2147); 
BgL_restz00_2146 = 
(BgL_offsetz00_2143%BgL_n2z00_2156); } } 
{ /* ./DotNet/lisp.scm 62 */

{ /* ./DotNet/lisp.scm 62 */
obj_t BgL_bucketz00_2148;
{ /* ./DotNet/lisp.scm 62 */
int BgL_kz00_2158;
BgL_kz00_2158 = 
(int)(BgL_modz00_2144); 
BgL_bucketz00_2148 = 
VECTOR_REF(BgL_arg2017z00_2139,BgL_kz00_2158); } 
{ /* ./DotNet/lisp.scm 62 */
int BgL_kz00_2160;
BgL_kz00_2160 = 
(int)(BgL_restz00_2146); 
BgL_method2774z00_2136 = 
VECTOR_REF(BgL_bucketz00_2148,BgL_kz00_2160); } } } } } } } } } } 
BgL_arg3550z00_1269 = 
PROCEDURE_ENTRY(BgL_method2774z00_2136)(BgL_method2774z00_2136, 
(obj_t)(BgL_arg3556z00_1271), BEOA); } } 
{ /* ./DotNet/lisp.scm 62 */
obj_t BgL_arg3560z00_1272;
{ /* ./DotNet/lisp.scm 62 */
obj_t BgL_l2714z00_1274;
BgL_l2714z00_1274 = 
(((BgL_funcallz00_bglt)CREF(BgL_ez00_1263))->BgL_argsz00); 
{ /* ./DotNet/lisp.scm 62 */
bool_t BgL_test3563z00_1275;
BgL_test3563z00_1275 = 
NULLP(BgL_l2714z00_1274); 
if(BgL_test3563z00_1275)
{ /* ./DotNet/lisp.scm 62 */
BgL_arg3560z00_1272 = BNIL; }  else 
{ /* ./DotNet/lisp.scm 62 */
obj_t BgL_head2716z00_1276;
{ /* ./DotNet/lisp.scm 62 */
obj_t BgL_arg3585z00_1287;
{ /* ./DotNet/lisp.scm 62 */
obj_t BgL_arg3589z00_1289;
BgL_arg3589z00_1289 = 
CAR(BgL_l2714z00_1274); 
{ /* ./DotNet/lisp.scm 62 */
BgL_nodez00_bglt BgL_ez00_2164;
BgL_ez00_2164 = 
(BgL_nodez00_bglt)(BgL_arg3589z00_1289); 
{ /* ./DotNet/lisp.scm 62 */
obj_t BgL_method2774z00_2165;
{ /* ./DotNet/lisp.scm 62 */
BgL_objectz00_bglt BgL_objz00_2166;
BgL_objz00_2166 = 
(BgL_objectz00_bglt)(BgL_ez00_2164); 
{ /* ./DotNet/lisp.scm 62 */
long BgL_objzd2classzd2numz00_2167;
BgL_objzd2classzd2numz00_2167 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2166); 
{ /* ./DotNet/lisp.scm 62 */
obj_t BgL_arg2017z00_2168;
{ /* ./DotNet/lisp.scm 62 */
int BgL_auxz00_4159;
BgL_auxz00_4159 = 
(int)(((long)1)); 
BgL_arg2017z00_2168 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_4159); } 
{ /* ./DotNet/lisp.scm 62 */
int BgL_offsetz00_2171;
BgL_offsetz00_2171 = 
(int)(BgL_objzd2classzd2numz00_2167); 
{ /* ./DotNet/lisp.scm 62 */
long BgL_offsetz00_2172;
{ /* ./DotNet/lisp.scm 62 */
long BgL_auxz00_4163;
BgL_auxz00_4163 = 
(long)(BgL_offsetz00_2171); 
BgL_offsetz00_2172 = 
(BgL_auxz00_4163-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 62 */
long BgL_modz00_2173;
{ /* ./DotNet/lisp.scm 62 */
int BgL_arg2028z00_2174;
BgL_arg2028z00_2174 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 62 */
long BgL_n2z00_2182;
BgL_n2z00_2182 = 
(long)(BgL_arg2028z00_2174); 
BgL_modz00_2173 = 
(BgL_offsetz00_2172/BgL_n2z00_2182); } } 
{ /* ./DotNet/lisp.scm 62 */
long BgL_restz00_2175;
{ /* ./DotNet/lisp.scm 62 */
int BgL_arg2024z00_2176;
BgL_arg2024z00_2176 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 62 */
long BgL_n2z00_2185;
BgL_n2z00_2185 = 
(long)(BgL_arg2024z00_2176); 
BgL_restz00_2175 = 
(BgL_offsetz00_2172%BgL_n2z00_2185); } } 
{ /* ./DotNet/lisp.scm 62 */

{ /* ./DotNet/lisp.scm 62 */
obj_t BgL_bucketz00_2177;
{ /* ./DotNet/lisp.scm 62 */
int BgL_kz00_2187;
BgL_kz00_2187 = 
(int)(BgL_modz00_2173); 
BgL_bucketz00_2177 = 
VECTOR_REF(BgL_arg2017z00_2168,BgL_kz00_2187); } 
{ /* ./DotNet/lisp.scm 62 */
int BgL_kz00_2189;
BgL_kz00_2189 = 
(int)(BgL_restz00_2175); 
BgL_method2774z00_2165 = 
VECTOR_REF(BgL_bucketz00_2177,BgL_kz00_2189); } } } } } } } } } } 
BgL_arg3585z00_1287 = 
PROCEDURE_ENTRY(BgL_method2774z00_2165)(BgL_method2774z00_2165, 
(obj_t)(BgL_ez00_2164), BEOA); } } } 
BgL_head2716z00_1276 = 
MAKE_PAIR(BgL_arg3585z00_1287, BNIL); } 
{ 
obj_t BgL_l2714z00_1277;obj_t BgL_tail2717z00_1278;
{ /* ./DotNet/lisp.scm 62 */
obj_t BgL_arg3565z00_1280;
BgL_arg3565z00_1280 = 
CDR(BgL_l2714z00_1274); 
BgL_l2714z00_1277 = BgL_arg3565z00_1280; 
BgL_tail2717z00_1278 = BgL_head2716z00_1276; 
BgL_map2715z00_1279:
{ /* ./DotNet/lisp.scm 62 */
bool_t BgL_test3568z00_1281;
BgL_test3568z00_1281 = 
NULLP(BgL_l2714z00_1277); 
if(BgL_test3568z00_1281)
{ /* ./DotNet/lisp.scm 62 */
BgL_arg3560z00_1272 = BgL_head2716z00_1276; }  else 
{ /* ./DotNet/lisp.scm 62 */
obj_t BgL_newtail2718z00_1282;
{ /* ./DotNet/lisp.scm 62 */
obj_t BgL_arg3575z00_1284;
{ /* ./DotNet/lisp.scm 62 */
obj_t BgL_arg3579z00_1286;
BgL_arg3579z00_1286 = 
CAR(BgL_l2714z00_1277); 
{ /* ./DotNet/lisp.scm 62 */
BgL_nodez00_bglt BgL_ez00_2195;
BgL_ez00_2195 = 
(BgL_nodez00_bglt)(BgL_arg3579z00_1286); 
{ /* ./DotNet/lisp.scm 62 */
obj_t BgL_method2774z00_2196;
{ /* ./DotNet/lisp.scm 62 */
BgL_objectz00_bglt BgL_objz00_2197;
BgL_objz00_2197 = 
(BgL_objectz00_bglt)(BgL_ez00_2195); 
{ /* ./DotNet/lisp.scm 62 */
long BgL_objzd2classzd2numz00_2198;
BgL_objzd2classzd2numz00_2198 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2197); 
{ /* ./DotNet/lisp.scm 62 */
obj_t BgL_arg2017z00_2199;
{ /* ./DotNet/lisp.scm 62 */
int BgL_auxz00_4187;
BgL_auxz00_4187 = 
(int)(((long)1)); 
BgL_arg2017z00_2199 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_4187); } 
{ /* ./DotNet/lisp.scm 62 */
int BgL_offsetz00_2202;
BgL_offsetz00_2202 = 
(int)(BgL_objzd2classzd2numz00_2198); 
{ /* ./DotNet/lisp.scm 62 */
long BgL_offsetz00_2203;
{ /* ./DotNet/lisp.scm 62 */
long BgL_auxz00_4191;
BgL_auxz00_4191 = 
(long)(BgL_offsetz00_2202); 
BgL_offsetz00_2203 = 
(BgL_auxz00_4191-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 62 */
long BgL_modz00_2204;
{ /* ./DotNet/lisp.scm 62 */
int BgL_arg2028z00_2205;
BgL_arg2028z00_2205 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 62 */
long BgL_n2z00_2213;
BgL_n2z00_2213 = 
(long)(BgL_arg2028z00_2205); 
BgL_modz00_2204 = 
(BgL_offsetz00_2203/BgL_n2z00_2213); } } 
{ /* ./DotNet/lisp.scm 62 */
long BgL_restz00_2206;
{ /* ./DotNet/lisp.scm 62 */
int BgL_arg2024z00_2207;
BgL_arg2024z00_2207 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 62 */
long BgL_n2z00_2216;
BgL_n2z00_2216 = 
(long)(BgL_arg2024z00_2207); 
BgL_restz00_2206 = 
(BgL_offsetz00_2203%BgL_n2z00_2216); } } 
{ /* ./DotNet/lisp.scm 62 */

{ /* ./DotNet/lisp.scm 62 */
obj_t BgL_bucketz00_2208;
{ /* ./DotNet/lisp.scm 62 */
int BgL_kz00_2218;
BgL_kz00_2218 = 
(int)(BgL_modz00_2204); 
BgL_bucketz00_2208 = 
VECTOR_REF(BgL_arg2017z00_2199,BgL_kz00_2218); } 
{ /* ./DotNet/lisp.scm 62 */
int BgL_kz00_2220;
BgL_kz00_2220 = 
(int)(BgL_restz00_2206); 
BgL_method2774z00_2196 = 
VECTOR_REF(BgL_bucketz00_2208,BgL_kz00_2220); } } } } } } } } } } 
BgL_arg3575z00_1284 = 
PROCEDURE_ENTRY(BgL_method2774z00_2196)(BgL_method2774z00_2196, 
(obj_t)(BgL_ez00_2195), BEOA); } } } 
BgL_newtail2718z00_1282 = 
MAKE_PAIR(BgL_arg3575z00_1284, BNIL); } 
SET_CDR(BgL_tail2717z00_1278, BgL_newtail2718z00_1282); 
{ /* ./DotNet/lisp.scm 62 */
obj_t BgL_arg3571z00_1283;
BgL_arg3571z00_1283 = 
CDR(BgL_l2714z00_1277); 
{ 
obj_t BgL_tail2717z00_4211;obj_t BgL_l2714z00_4210;
BgL_l2714z00_4210 = BgL_arg3571z00_1283; 
BgL_tail2717z00_4211 = BgL_newtail2718z00_1282; 
BgL_tail2717z00_1278 = BgL_tail2717z00_4211; 
BgL_l2714z00_1277 = BgL_l2714z00_4210; 
goto BgL_map2715z00_1279;} } } } } } } } } 
BgL_arg3552z00_1270 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3560z00_1272, BNIL); } 
BgL_arg3547z00_1268 = 
MAKE_PAIR(BgL_arg3550z00_1269, BgL_arg3552z00_1270); } 
return 
MAKE_PAIR(BgL_arg3546z00_1267, BgL_arg3547z00_1268);} } } 
}



/* compile-lisp-app-ly2794 */
obj_t BGl_compilezd2lispzd2appzd2ly2794zd2zzdotnet_lispz00(obj_t BgL_envz00_3159, obj_t BgL_ez00_3160)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 56 */
{ 
BgL_appzd2lyzd2_bglt BgL_ez00_1249;
BgL_ez00_1249 = 
(BgL_appzd2lyzd2_bglt)(BgL_ez00_3160); 
{ /* ./DotNet/lisp.scm 58 */
obj_t BgL_arg3520z00_1253;obj_t BgL_arg3521z00_1254;
BgL_arg3520z00_1253 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./DotNet/lisp.scm 58 */
obj_t BgL_arg3524z00_1255;obj_t BgL_arg3525z00_1256;
{ /* ./DotNet/lisp.scm 58 */
BgL_nodez00_bglt BgL_arg3528z00_1257;
BgL_arg3528z00_1257 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_ez00_1249))->BgL_funz00); 
{ /* ./DotNet/lisp.scm 58 */
obj_t BgL_method2774z00_2082;
{ /* ./DotNet/lisp.scm 58 */
BgL_objectz00_bglt BgL_objz00_2083;
BgL_objz00_2083 = 
(BgL_objectz00_bglt)(BgL_arg3528z00_1257); 
{ /* ./DotNet/lisp.scm 58 */
long BgL_objzd2classzd2numz00_2084;
BgL_objzd2classzd2numz00_2084 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2083); 
{ /* ./DotNet/lisp.scm 58 */
obj_t BgL_arg2017z00_2085;
{ /* ./DotNet/lisp.scm 58 */
int BgL_auxz00_4220;
BgL_auxz00_4220 = 
(int)(((long)1)); 
BgL_arg2017z00_2085 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_4220); } 
{ /* ./DotNet/lisp.scm 58 */
int BgL_offsetz00_2088;
BgL_offsetz00_2088 = 
(int)(BgL_objzd2classzd2numz00_2084); 
{ /* ./DotNet/lisp.scm 58 */
long BgL_offsetz00_2089;
{ /* ./DotNet/lisp.scm 58 */
long BgL_auxz00_4224;
BgL_auxz00_4224 = 
(long)(BgL_offsetz00_2088); 
BgL_offsetz00_2089 = 
(BgL_auxz00_4224-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 58 */
long BgL_modz00_2090;
{ /* ./DotNet/lisp.scm 58 */
int BgL_arg2028z00_2091;
BgL_arg2028z00_2091 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 58 */
long BgL_n2z00_2099;
BgL_n2z00_2099 = 
(long)(BgL_arg2028z00_2091); 
BgL_modz00_2090 = 
(BgL_offsetz00_2089/BgL_n2z00_2099); } } 
{ /* ./DotNet/lisp.scm 58 */
long BgL_restz00_2092;
{ /* ./DotNet/lisp.scm 58 */
int BgL_arg2024z00_2093;
BgL_arg2024z00_2093 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 58 */
long BgL_n2z00_2102;
BgL_n2z00_2102 = 
(long)(BgL_arg2024z00_2093); 
BgL_restz00_2092 = 
(BgL_offsetz00_2089%BgL_n2z00_2102); } } 
{ /* ./DotNet/lisp.scm 58 */

{ /* ./DotNet/lisp.scm 58 */
obj_t BgL_bucketz00_2094;
{ /* ./DotNet/lisp.scm 58 */
int BgL_kz00_2104;
BgL_kz00_2104 = 
(int)(BgL_modz00_2090); 
BgL_bucketz00_2094 = 
VECTOR_REF(BgL_arg2017z00_2085,BgL_kz00_2104); } 
{ /* ./DotNet/lisp.scm 58 */
int BgL_kz00_2106;
BgL_kz00_2106 = 
(int)(BgL_restz00_2092); 
BgL_method2774z00_2082 = 
VECTOR_REF(BgL_bucketz00_2094,BgL_kz00_2106); } } } } } } } } } } 
BgL_arg3524z00_1255 = 
PROCEDURE_ENTRY(BgL_method2774z00_2082)(BgL_method2774z00_2082, 
(obj_t)(BgL_arg3528z00_1257), BEOA); } } 
{ /* ./DotNet/lisp.scm 58 */
obj_t BgL_arg3532z00_1258;
{ /* ./DotNet/lisp.scm 58 */
BgL_nodez00_bglt BgL_arg3536z00_1260;
BgL_arg3536z00_1260 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_ez00_1249))->BgL_argz00); 
{ /* ./DotNet/lisp.scm 58 */
obj_t BgL_method2774z00_2109;
{ /* ./DotNet/lisp.scm 58 */
BgL_objectz00_bglt BgL_objz00_2110;
BgL_objz00_2110 = 
(BgL_objectz00_bglt)(BgL_arg3536z00_1260); 
{ /* ./DotNet/lisp.scm 58 */
long BgL_objzd2classzd2numz00_2111;
BgL_objzd2classzd2numz00_2111 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2110); 
{ /* ./DotNet/lisp.scm 58 */
obj_t BgL_arg2017z00_2112;
{ /* ./DotNet/lisp.scm 58 */
int BgL_auxz00_4243;
BgL_auxz00_4243 = 
(int)(((long)1)); 
BgL_arg2017z00_2112 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_4243); } 
{ /* ./DotNet/lisp.scm 58 */
int BgL_offsetz00_2115;
BgL_offsetz00_2115 = 
(int)(BgL_objzd2classzd2numz00_2111); 
{ /* ./DotNet/lisp.scm 58 */
long BgL_offsetz00_2116;
{ /* ./DotNet/lisp.scm 58 */
long BgL_auxz00_4247;
BgL_auxz00_4247 = 
(long)(BgL_offsetz00_2115); 
BgL_offsetz00_2116 = 
(BgL_auxz00_4247-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 58 */
long BgL_modz00_2117;
{ /* ./DotNet/lisp.scm 58 */
int BgL_arg2028z00_2118;
BgL_arg2028z00_2118 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 58 */
long BgL_n2z00_2126;
BgL_n2z00_2126 = 
(long)(BgL_arg2028z00_2118); 
BgL_modz00_2117 = 
(BgL_offsetz00_2116/BgL_n2z00_2126); } } 
{ /* ./DotNet/lisp.scm 58 */
long BgL_restz00_2119;
{ /* ./DotNet/lisp.scm 58 */
int BgL_arg2024z00_2120;
BgL_arg2024z00_2120 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 58 */
long BgL_n2z00_2129;
BgL_n2z00_2129 = 
(long)(BgL_arg2024z00_2120); 
BgL_restz00_2119 = 
(BgL_offsetz00_2116%BgL_n2z00_2129); } } 
{ /* ./DotNet/lisp.scm 58 */

{ /* ./DotNet/lisp.scm 58 */
obj_t BgL_bucketz00_2121;
{ /* ./DotNet/lisp.scm 58 */
int BgL_kz00_2131;
BgL_kz00_2131 = 
(int)(BgL_modz00_2117); 
BgL_bucketz00_2121 = 
VECTOR_REF(BgL_arg2017z00_2112,BgL_kz00_2131); } 
{ /* ./DotNet/lisp.scm 58 */
int BgL_kz00_2133;
BgL_kz00_2133 = 
(int)(BgL_restz00_2119); 
BgL_method2774z00_2109 = 
VECTOR_REF(BgL_bucketz00_2121,BgL_kz00_2133); } } } } } } } } } } 
BgL_arg3532z00_1258 = 
PROCEDURE_ENTRY(BgL_method2774z00_2109)(BgL_method2774z00_2109, 
(obj_t)(BgL_arg3536z00_1260), BEOA); } } 
BgL_arg3525z00_1256 = 
MAKE_PAIR(BgL_arg3532z00_1258, BNIL); } 
BgL_arg3521z00_1254 = 
MAKE_PAIR(BgL_arg3524z00_1255, BgL_arg3525z00_1256); } 
return 
MAKE_PAIR(BgL_arg3520z00_1253, BgL_arg3521z00_1254);} } } 
}



/* compile-lisp-app2792 */
obj_t BGl_compilezd2lispzd2app2792z00zzdotnet_lispz00(obj_t BgL_envz00_3161, obj_t BgL_ez00_3162)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 52 */
{ 
BgL_appz00_bglt BgL_ez00_1222;
BgL_ez00_1222 = 
(BgL_appz00_bglt)(BgL_ez00_3162); 
{ /* ./DotNet/lisp.scm 54 */
obj_t BgL_arg3470z00_1226;obj_t BgL_arg3471z00_1227;
{ /* ./DotNet/lisp.scm 54 */
BgL_varz00_bglt BgL_arg3474z00_1228;
BgL_arg3474z00_1228 = 
(((BgL_appz00_bglt)CREF(BgL_ez00_1222))->BgL_funz00); 
{ /* ./DotNet/lisp.scm 54 */
BgL_nodez00_bglt BgL_ez00_1989;
BgL_ez00_1989 = 
(BgL_nodez00_bglt)(BgL_arg3474z00_1228); 
{ /* ./DotNet/lisp.scm 54 */
obj_t BgL_method2774z00_1990;
{ /* ./DotNet/lisp.scm 54 */
BgL_objectz00_bglt BgL_objz00_1991;
BgL_objz00_1991 = 
(BgL_objectz00_bglt)(BgL_ez00_1989); 
{ /* ./DotNet/lisp.scm 54 */
long BgL_objzd2classzd2numz00_1992;
BgL_objzd2classzd2numz00_1992 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1991); 
{ /* ./DotNet/lisp.scm 54 */
obj_t BgL_arg2017z00_1993;
{ /* ./DotNet/lisp.scm 54 */
int BgL_auxz00_4271;
BgL_auxz00_4271 = 
(int)(((long)1)); 
BgL_arg2017z00_1993 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_4271); } 
{ /* ./DotNet/lisp.scm 54 */
int BgL_offsetz00_1996;
BgL_offsetz00_1996 = 
(int)(BgL_objzd2classzd2numz00_1992); 
{ /* ./DotNet/lisp.scm 54 */
long BgL_offsetz00_1997;
{ /* ./DotNet/lisp.scm 54 */
long BgL_auxz00_4275;
BgL_auxz00_4275 = 
(long)(BgL_offsetz00_1996); 
BgL_offsetz00_1997 = 
(BgL_auxz00_4275-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 54 */
long BgL_modz00_1998;
{ /* ./DotNet/lisp.scm 54 */
int BgL_arg2028z00_1999;
BgL_arg2028z00_1999 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 54 */
long BgL_n2z00_2007;
BgL_n2z00_2007 = 
(long)(BgL_arg2028z00_1999); 
BgL_modz00_1998 = 
(BgL_offsetz00_1997/BgL_n2z00_2007); } } 
{ /* ./DotNet/lisp.scm 54 */
long BgL_restz00_2000;
{ /* ./DotNet/lisp.scm 54 */
int BgL_arg2024z00_2001;
BgL_arg2024z00_2001 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 54 */
long BgL_n2z00_2010;
BgL_n2z00_2010 = 
(long)(BgL_arg2024z00_2001); 
BgL_restz00_2000 = 
(BgL_offsetz00_1997%BgL_n2z00_2010); } } 
{ /* ./DotNet/lisp.scm 54 */

{ /* ./DotNet/lisp.scm 54 */
obj_t BgL_bucketz00_2002;
{ /* ./DotNet/lisp.scm 54 */
int BgL_kz00_2012;
BgL_kz00_2012 = 
(int)(BgL_modz00_1998); 
BgL_bucketz00_2002 = 
VECTOR_REF(BgL_arg2017z00_1993,BgL_kz00_2012); } 
{ /* ./DotNet/lisp.scm 54 */
int BgL_kz00_2014;
BgL_kz00_2014 = 
(int)(BgL_restz00_2000); 
BgL_method2774z00_1990 = 
VECTOR_REF(BgL_bucketz00_2002,BgL_kz00_2014); } } } } } } } } } } 
BgL_arg3470z00_1226 = 
PROCEDURE_ENTRY(BgL_method2774z00_1990)(BgL_method2774z00_1990, 
(obj_t)(BgL_ez00_1989), BEOA); } } } 
{ /* ./DotNet/lisp.scm 54 */
obj_t BgL_arg3478z00_1229;
{ /* ./DotNet/lisp.scm 54 */
obj_t BgL_l2705z00_1231;
BgL_l2705z00_1231 = 
(((BgL_appz00_bglt)CREF(BgL_ez00_1222))->BgL_argsz00); 
{ /* ./DotNet/lisp.scm 54 */
bool_t BgL_test3481z00_1232;
BgL_test3481z00_1232 = 
NULLP(BgL_l2705z00_1231); 
if(BgL_test3481z00_1232)
{ /* ./DotNet/lisp.scm 54 */
BgL_arg3478z00_1229 = BNIL; }  else 
{ /* ./DotNet/lisp.scm 54 */
obj_t BgL_head2707z00_1233;
{ /* ./DotNet/lisp.scm 54 */
obj_t BgL_arg3503z00_1244;
{ /* ./DotNet/lisp.scm 54 */
obj_t BgL_arg3507z00_1246;
BgL_arg3507z00_1246 = 
CAR(BgL_l2705z00_1231); 
{ /* ./DotNet/lisp.scm 54 */
BgL_nodez00_bglt BgL_ez00_2018;
BgL_ez00_2018 = 
(BgL_nodez00_bglt)(BgL_arg3507z00_1246); 
{ /* ./DotNet/lisp.scm 54 */
obj_t BgL_method2774z00_2019;
{ /* ./DotNet/lisp.scm 54 */
BgL_objectz00_bglt BgL_objz00_2020;
BgL_objz00_2020 = 
(BgL_objectz00_bglt)(BgL_ez00_2018); 
{ /* ./DotNet/lisp.scm 54 */
long BgL_objzd2classzd2numz00_2021;
BgL_objzd2classzd2numz00_2021 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2020); 
{ /* ./DotNet/lisp.scm 54 */
obj_t BgL_arg2017z00_2022;
{ /* ./DotNet/lisp.scm 54 */
int BgL_auxz00_4298;
BgL_auxz00_4298 = 
(int)(((long)1)); 
BgL_arg2017z00_2022 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_4298); } 
{ /* ./DotNet/lisp.scm 54 */
int BgL_offsetz00_2025;
BgL_offsetz00_2025 = 
(int)(BgL_objzd2classzd2numz00_2021); 
{ /* ./DotNet/lisp.scm 54 */
long BgL_offsetz00_2026;
{ /* ./DotNet/lisp.scm 54 */
long BgL_auxz00_4302;
BgL_auxz00_4302 = 
(long)(BgL_offsetz00_2025); 
BgL_offsetz00_2026 = 
(BgL_auxz00_4302-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 54 */
long BgL_modz00_2027;
{ /* ./DotNet/lisp.scm 54 */
int BgL_arg2028z00_2028;
BgL_arg2028z00_2028 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 54 */
long BgL_n2z00_2036;
BgL_n2z00_2036 = 
(long)(BgL_arg2028z00_2028); 
BgL_modz00_2027 = 
(BgL_offsetz00_2026/BgL_n2z00_2036); } } 
{ /* ./DotNet/lisp.scm 54 */
long BgL_restz00_2029;
{ /* ./DotNet/lisp.scm 54 */
int BgL_arg2024z00_2030;
BgL_arg2024z00_2030 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 54 */
long BgL_n2z00_2039;
BgL_n2z00_2039 = 
(long)(BgL_arg2024z00_2030); 
BgL_restz00_2029 = 
(BgL_offsetz00_2026%BgL_n2z00_2039); } } 
{ /* ./DotNet/lisp.scm 54 */

{ /* ./DotNet/lisp.scm 54 */
obj_t BgL_bucketz00_2031;
{ /* ./DotNet/lisp.scm 54 */
int BgL_kz00_2041;
BgL_kz00_2041 = 
(int)(BgL_modz00_2027); 
BgL_bucketz00_2031 = 
VECTOR_REF(BgL_arg2017z00_2022,BgL_kz00_2041); } 
{ /* ./DotNet/lisp.scm 54 */
int BgL_kz00_2043;
BgL_kz00_2043 = 
(int)(BgL_restz00_2029); 
BgL_method2774z00_2019 = 
VECTOR_REF(BgL_bucketz00_2031,BgL_kz00_2043); } } } } } } } } } } 
BgL_arg3503z00_1244 = 
PROCEDURE_ENTRY(BgL_method2774z00_2019)(BgL_method2774z00_2019, 
(obj_t)(BgL_ez00_2018), BEOA); } } } 
BgL_head2707z00_1233 = 
MAKE_PAIR(BgL_arg3503z00_1244, BNIL); } 
{ 
obj_t BgL_l2705z00_1234;obj_t BgL_tail2708z00_1235;
{ /* ./DotNet/lisp.scm 54 */
obj_t BgL_arg3483z00_1237;
BgL_arg3483z00_1237 = 
CDR(BgL_l2705z00_1231); 
BgL_l2705z00_1234 = BgL_arg3483z00_1237; 
BgL_tail2708z00_1235 = BgL_head2707z00_1233; 
BgL_map2706z00_1236:
{ /* ./DotNet/lisp.scm 54 */
bool_t BgL_test3486z00_1238;
BgL_test3486z00_1238 = 
NULLP(BgL_l2705z00_1234); 
if(BgL_test3486z00_1238)
{ /* ./DotNet/lisp.scm 54 */
BgL_arg3478z00_1229 = BgL_head2707z00_1233; }  else 
{ /* ./DotNet/lisp.scm 54 */
obj_t BgL_newtail2709z00_1239;
{ /* ./DotNet/lisp.scm 54 */
obj_t BgL_arg3493z00_1241;
{ /* ./DotNet/lisp.scm 54 */
obj_t BgL_arg3498z00_1243;
BgL_arg3498z00_1243 = 
CAR(BgL_l2705z00_1234); 
{ /* ./DotNet/lisp.scm 54 */
BgL_nodez00_bglt BgL_ez00_2049;
BgL_ez00_2049 = 
(BgL_nodez00_bglt)(BgL_arg3498z00_1243); 
{ /* ./DotNet/lisp.scm 54 */
obj_t BgL_method2774z00_2050;
{ /* ./DotNet/lisp.scm 54 */
BgL_objectz00_bglt BgL_objz00_2051;
BgL_objz00_2051 = 
(BgL_objectz00_bglt)(BgL_ez00_2049); 
{ /* ./DotNet/lisp.scm 54 */
long BgL_objzd2classzd2numz00_2052;
BgL_objzd2classzd2numz00_2052 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2051); 
{ /* ./DotNet/lisp.scm 54 */
obj_t BgL_arg2017z00_2053;
{ /* ./DotNet/lisp.scm 54 */
int BgL_auxz00_4326;
BgL_auxz00_4326 = 
(int)(((long)1)); 
BgL_arg2017z00_2053 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_4326); } 
{ /* ./DotNet/lisp.scm 54 */
int BgL_offsetz00_2056;
BgL_offsetz00_2056 = 
(int)(BgL_objzd2classzd2numz00_2052); 
{ /* ./DotNet/lisp.scm 54 */
long BgL_offsetz00_2057;
{ /* ./DotNet/lisp.scm 54 */
long BgL_auxz00_4330;
BgL_auxz00_4330 = 
(long)(BgL_offsetz00_2056); 
BgL_offsetz00_2057 = 
(BgL_auxz00_4330-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 54 */
long BgL_modz00_2058;
{ /* ./DotNet/lisp.scm 54 */
int BgL_arg2028z00_2059;
BgL_arg2028z00_2059 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 54 */
long BgL_n2z00_2067;
BgL_n2z00_2067 = 
(long)(BgL_arg2028z00_2059); 
BgL_modz00_2058 = 
(BgL_offsetz00_2057/BgL_n2z00_2067); } } 
{ /* ./DotNet/lisp.scm 54 */
long BgL_restz00_2060;
{ /* ./DotNet/lisp.scm 54 */
int BgL_arg2024z00_2061;
BgL_arg2024z00_2061 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 54 */
long BgL_n2z00_2070;
BgL_n2z00_2070 = 
(long)(BgL_arg2024z00_2061); 
BgL_restz00_2060 = 
(BgL_offsetz00_2057%BgL_n2z00_2070); } } 
{ /* ./DotNet/lisp.scm 54 */

{ /* ./DotNet/lisp.scm 54 */
obj_t BgL_bucketz00_2062;
{ /* ./DotNet/lisp.scm 54 */
int BgL_kz00_2072;
BgL_kz00_2072 = 
(int)(BgL_modz00_2058); 
BgL_bucketz00_2062 = 
VECTOR_REF(BgL_arg2017z00_2053,BgL_kz00_2072); } 
{ /* ./DotNet/lisp.scm 54 */
int BgL_kz00_2074;
BgL_kz00_2074 = 
(int)(BgL_restz00_2060); 
BgL_method2774z00_2050 = 
VECTOR_REF(BgL_bucketz00_2062,BgL_kz00_2074); } } } } } } } } } } 
BgL_arg3493z00_1241 = 
PROCEDURE_ENTRY(BgL_method2774z00_2050)(BgL_method2774z00_2050, 
(obj_t)(BgL_ez00_2049), BEOA); } } } 
BgL_newtail2709z00_1239 = 
MAKE_PAIR(BgL_arg3493z00_1241, BNIL); } 
SET_CDR(BgL_tail2708z00_1235, BgL_newtail2709z00_1239); 
{ /* ./DotNet/lisp.scm 54 */
obj_t BgL_arg3489z00_1240;
BgL_arg3489z00_1240 = 
CDR(BgL_l2705z00_1234); 
{ 
obj_t BgL_tail2708z00_4350;obj_t BgL_l2705z00_4349;
BgL_l2705z00_4349 = BgL_arg3489z00_1240; 
BgL_tail2708z00_4350 = BgL_newtail2709z00_1239; 
BgL_tail2708z00_1235 = BgL_tail2708z00_4350; 
BgL_l2705z00_1234 = BgL_l2705z00_4349; 
goto BgL_map2706z00_1236;} } } } } } } } } 
BgL_arg3471z00_1227 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3478z00_1229, BNIL); } 
return 
MAKE_PAIR(BgL_arg3470z00_1226, BgL_arg3471z00_1227);} } } 
}



/* compile-lisp-let-fun2790 */
obj_t BGl_compilezd2lispzd2letzd2fun2790zd2zzdotnet_lispz00(obj_t BgL_envz00_3163, obj_t BgL_ez00_3164)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 40 */
{ 
BgL_letzd2funzd2_bglt BgL_ez00_1195;
BgL_ez00_1195 = 
(BgL_letzd2funzd2_bglt)(BgL_ez00_3164); 
{ /* ./DotNet/lisp.scm 42 */
obj_t BgL_arg3422z00_1199;obj_t BgL_arg3423z00_1200;
BgL_arg3422z00_1199 = 
CNST_TABLE_REF(((long)17)); 
{ /* ./DotNet/lisp.scm 42 */
obj_t BgL_arg3426z00_1201;obj_t BgL_arg3427z00_1202;
{ /* ./DotNet/lisp.scm 42 */
obj_t BgL_l2689z00_1203;
BgL_l2689z00_1203 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_ez00_1195))->BgL_localsz00); 
{ /* ./DotNet/lisp.scm 42 */
bool_t BgL_test3429z00_1204;
BgL_test3429z00_1204 = 
NULLP(BgL_l2689z00_1203); 
if(BgL_test3429z00_1204)
{ /* ./DotNet/lisp.scm 42 */
BgL_arg3426z00_1201 = BNIL; }  else 
{ /* ./DotNet/lisp.scm 42 */
obj_t BgL_head2691z00_1205;
BgL_head2691z00_1205 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l2689z00_1206;obj_t BgL_tail2692z00_1207;
BgL_l2689z00_1206 = BgL_l2689z00_1203; 
BgL_tail2692z00_1207 = BgL_head2691z00_1205; 
BgL_map2690z00_1208:
{ /* ./DotNet/lisp.scm 42 */
bool_t BgL_test3431z00_1209;
BgL_test3431z00_1209 = 
NULLP(BgL_l2689z00_1206); 
if(BgL_test3431z00_1209)
{ /* ./DotNet/lisp.scm 42 */
BgL_arg3426z00_1201 = 
CDR(BgL_head2691z00_1205); }  else 
{ /* ./DotNet/lisp.scm 42 */
obj_t BgL_newtail2693z00_1210;
{ /* ./DotNet/lisp.scm 42 */
obj_t BgL_arg3440z00_1212;
{ /* ./DotNet/lisp.scm 42 */
obj_t BgL_bz00_1214;
BgL_bz00_1214 = 
CAR(BgL_l2689z00_1206); 
{ /* ./DotNet/lisp.scm 42 */
obj_t BgL_arg3444z00_1215;obj_t BgL_arg3446z00_1216;
{ /* ./DotNet/lisp.scm 42 */
BgL_variablez00_bglt BgL_obj1094z00_1955;
BgL_obj1094z00_1955 = 
(BgL_variablez00_bglt)(BgL_bz00_1214); 
BgL_arg3444z00_1215 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1094z00_1955))->BgL_namez00); } 
BgL_arg3446z00_1216 = 
BGl_compilezd2sfunzd2zzdotnet_lispz00(BgL_bz00_1214); 
BgL_arg3440z00_1212 = 
MAKE_PAIR(BgL_arg3444z00_1215, BgL_arg3446z00_1216); } } 
BgL_newtail2693z00_1210 = 
MAKE_PAIR(BgL_arg3440z00_1212, BNIL); } 
SET_CDR(BgL_tail2692z00_1207, BgL_newtail2693z00_1210); 
{ /* ./DotNet/lisp.scm 42 */
obj_t BgL_arg3436z00_1211;
BgL_arg3436z00_1211 = 
CDR(BgL_l2689z00_1206); 
{ 
obj_t BgL_tail2692z00_4371;obj_t BgL_l2689z00_4370;
BgL_l2689z00_4370 = BgL_arg3436z00_1211; 
BgL_tail2692z00_4371 = BgL_newtail2693z00_1210; 
BgL_tail2692z00_1207 = BgL_tail2692z00_4371; 
BgL_l2689z00_1206 = BgL_l2689z00_4370; 
goto BgL_map2690z00_1208;} } } } } } } } 
{ /* ./DotNet/lisp.scm 44 */
obj_t BgL_arg3456z00_1217;
{ /* ./DotNet/lisp.scm 44 */
BgL_nodez00_bglt BgL_arg3460z00_1219;
BgL_arg3460z00_1219 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_ez00_1195))->BgL_bodyz00); 
{ /* ./DotNet/lisp.scm 44 */
obj_t BgL_method2774z00_1963;
{ /* ./DotNet/lisp.scm 44 */
BgL_objectz00_bglt BgL_objz00_1964;
BgL_objz00_1964 = 
(BgL_objectz00_bglt)(BgL_arg3460z00_1219); 
{ /* ./DotNet/lisp.scm 44 */
long BgL_objzd2classzd2numz00_1965;
BgL_objzd2classzd2numz00_1965 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1964); 
{ /* ./DotNet/lisp.scm 44 */
obj_t BgL_arg2017z00_1966;
{ /* ./DotNet/lisp.scm 44 */
int BgL_auxz00_4375;
BgL_auxz00_4375 = 
(int)(((long)1)); 
BgL_arg2017z00_1966 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_4375); } 
{ /* ./DotNet/lisp.scm 44 */
int BgL_offsetz00_1969;
BgL_offsetz00_1969 = 
(int)(BgL_objzd2classzd2numz00_1965); 
{ /* ./DotNet/lisp.scm 44 */
long BgL_offsetz00_1970;
{ /* ./DotNet/lisp.scm 44 */
long BgL_auxz00_4379;
BgL_auxz00_4379 = 
(long)(BgL_offsetz00_1969); 
BgL_offsetz00_1970 = 
(BgL_auxz00_4379-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 44 */
long BgL_modz00_1971;
{ /* ./DotNet/lisp.scm 44 */
int BgL_arg2028z00_1972;
BgL_arg2028z00_1972 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 44 */
long BgL_n2z00_1980;
BgL_n2z00_1980 = 
(long)(BgL_arg2028z00_1972); 
BgL_modz00_1971 = 
(BgL_offsetz00_1970/BgL_n2z00_1980); } } 
{ /* ./DotNet/lisp.scm 44 */
long BgL_restz00_1973;
{ /* ./DotNet/lisp.scm 44 */
int BgL_arg2024z00_1974;
BgL_arg2024z00_1974 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 44 */
long BgL_n2z00_1983;
BgL_n2z00_1983 = 
(long)(BgL_arg2024z00_1974); 
BgL_restz00_1973 = 
(BgL_offsetz00_1970%BgL_n2z00_1983); } } 
{ /* ./DotNet/lisp.scm 44 */

{ /* ./DotNet/lisp.scm 44 */
obj_t BgL_bucketz00_1975;
{ /* ./DotNet/lisp.scm 44 */
int BgL_kz00_1985;
BgL_kz00_1985 = 
(int)(BgL_modz00_1971); 
BgL_bucketz00_1975 = 
VECTOR_REF(BgL_arg2017z00_1966,BgL_kz00_1985); } 
{ /* ./DotNet/lisp.scm 44 */
int BgL_kz00_1987;
BgL_kz00_1987 = 
(int)(BgL_restz00_1973); 
BgL_method2774z00_1963 = 
VECTOR_REF(BgL_bucketz00_1975,BgL_kz00_1987); } } } } } } } } } } 
BgL_arg3456z00_1217 = 
PROCEDURE_ENTRY(BgL_method2774z00_1963)(BgL_method2774z00_1963, 
(obj_t)(BgL_arg3460z00_1219), BEOA); } } 
BgL_arg3427z00_1202 = 
MAKE_PAIR(BgL_arg3456z00_1217, BNIL); } 
BgL_arg3423z00_1200 = 
MAKE_PAIR(BgL_arg3426z00_1201, BgL_arg3427z00_1202); } 
return 
MAKE_PAIR(BgL_arg3422z00_1199, BgL_arg3423z00_1200);} } } 
}



/* compile-lisp-select2788 */
obj_t BGl_compilezd2lispzd2select2788z00zzdotnet_lispz00(obj_t BgL_envz00_3165, obj_t BgL_ez00_3166)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 35 */
{ 
BgL_selectz00_bglt BgL_ez00_1168;
BgL_ez00_1168 = 
(BgL_selectz00_bglt)(BgL_ez00_3166); 
{ /* ./DotNet/lisp.scm 37 */
obj_t BgL_arg3376z00_1172;obj_t BgL_arg3377z00_1173;
BgL_arg3376z00_1172 = 
CNST_TABLE_REF(((long)18)); 
{ /* ./DotNet/lisp.scm 38 */
obj_t BgL_arg3380z00_1174;
{ /* ./DotNet/lisp.scm 38 */
obj_t BgL_l2682z00_1176;
BgL_l2682z00_1176 = 
(((BgL_selectz00_bglt)CREF(BgL_ez00_1168))->BgL_clausesz00); 
{ /* ./DotNet/lisp.scm 38 */
bool_t BgL_test3383z00_1177;
BgL_test3383z00_1177 = 
NULLP(BgL_l2682z00_1176); 
if(BgL_test3383z00_1177)
{ /* ./DotNet/lisp.scm 38 */
BgL_arg3380z00_1174 = BNIL; }  else 
{ /* ./DotNet/lisp.scm 38 */
obj_t BgL_head2684z00_1178;
BgL_head2684z00_1178 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l2682z00_1179;obj_t BgL_tail2685z00_1180;
BgL_l2682z00_1179 = BgL_l2682z00_1176; 
BgL_tail2685z00_1180 = BgL_head2684z00_1178; 
BgL_map2683z00_1181:
{ /* ./DotNet/lisp.scm 38 */
bool_t BgL_test3385z00_1182;
BgL_test3385z00_1182 = 
NULLP(BgL_l2682z00_1179); 
if(BgL_test3385z00_1182)
{ /* ./DotNet/lisp.scm 38 */
BgL_arg3380z00_1174 = 
CDR(BgL_head2684z00_1178); }  else 
{ /* ./DotNet/lisp.scm 38 */
obj_t BgL_newtail2686z00_1183;
{ /* ./DotNet/lisp.scm 38 */
obj_t BgL_arg3393z00_1185;
{ /* ./DotNet/lisp.scm 38 */
obj_t BgL_bz00_1187;
BgL_bz00_1187 = 
CAR(BgL_l2682z00_1179); 
{ /* ./DotNet/lisp.scm 38 */
obj_t BgL_arg3397z00_1188;obj_t BgL_arg3398z00_1189;
BgL_arg3397z00_1188 = 
CAR(BgL_bz00_1187); 
{ /* ./DotNet/lisp.scm 38 */
obj_t BgL_arg3407z00_1192;
BgL_arg3407z00_1192 = 
CDR(BgL_bz00_1187); 
{ /* ./DotNet/lisp.scm 38 */
BgL_nodez00_bglt BgL_ez00_1915;
BgL_ez00_1915 = 
(BgL_nodez00_bglt)(BgL_arg3407z00_1192); 
{ /* ./DotNet/lisp.scm 38 */
obj_t BgL_method2774z00_1916;
{ /* ./DotNet/lisp.scm 38 */
BgL_objectz00_bglt BgL_objz00_1917;
BgL_objz00_1917 = 
(BgL_objectz00_bglt)(BgL_ez00_1915); 
{ /* ./DotNet/lisp.scm 38 */
long BgL_objzd2classzd2numz00_1918;
BgL_objzd2classzd2numz00_1918 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1917); 
{ /* ./DotNet/lisp.scm 38 */
obj_t BgL_arg2017z00_1919;
{ /* ./DotNet/lisp.scm 38 */
int BgL_auxz00_4413;
BgL_auxz00_4413 = 
(int)(((long)1)); 
BgL_arg2017z00_1919 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_4413); } 
{ /* ./DotNet/lisp.scm 38 */
int BgL_offsetz00_1922;
BgL_offsetz00_1922 = 
(int)(BgL_objzd2classzd2numz00_1918); 
{ /* ./DotNet/lisp.scm 38 */
long BgL_offsetz00_1923;
{ /* ./DotNet/lisp.scm 38 */
long BgL_auxz00_4417;
BgL_auxz00_4417 = 
(long)(BgL_offsetz00_1922); 
BgL_offsetz00_1923 = 
(BgL_auxz00_4417-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 38 */
long BgL_modz00_1924;
{ /* ./DotNet/lisp.scm 38 */
int BgL_arg2028z00_1925;
BgL_arg2028z00_1925 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 38 */
long BgL_n2z00_1933;
BgL_n2z00_1933 = 
(long)(BgL_arg2028z00_1925); 
BgL_modz00_1924 = 
(BgL_offsetz00_1923/BgL_n2z00_1933); } } 
{ /* ./DotNet/lisp.scm 38 */
long BgL_restz00_1926;
{ /* ./DotNet/lisp.scm 38 */
int BgL_arg2024z00_1927;
BgL_arg2024z00_1927 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 38 */
long BgL_n2z00_1936;
BgL_n2z00_1936 = 
(long)(BgL_arg2024z00_1927); 
BgL_restz00_1926 = 
(BgL_offsetz00_1923%BgL_n2z00_1936); } } 
{ /* ./DotNet/lisp.scm 38 */

{ /* ./DotNet/lisp.scm 38 */
obj_t BgL_bucketz00_1928;
{ /* ./DotNet/lisp.scm 38 */
int BgL_kz00_1938;
BgL_kz00_1938 = 
(int)(BgL_modz00_1924); 
BgL_bucketz00_1928 = 
VECTOR_REF(BgL_arg2017z00_1919,BgL_kz00_1938); } 
{ /* ./DotNet/lisp.scm 38 */
int BgL_kz00_1940;
BgL_kz00_1940 = 
(int)(BgL_restz00_1926); 
BgL_method2774z00_1916 = 
VECTOR_REF(BgL_bucketz00_1928,BgL_kz00_1940); } } } } } } } } } } 
BgL_arg3398z00_1189 = 
PROCEDURE_ENTRY(BgL_method2774z00_1916)(BgL_method2774z00_1916, 
(obj_t)(BgL_ez00_1915), BEOA); } } } 
{ /* ./DotNet/lisp.scm 38 */
obj_t BgL_list3400z00_1190;
{ /* ./DotNet/lisp.scm 38 */
obj_t BgL_arg3402z00_1191;
BgL_arg3402z00_1191 = 
MAKE_PAIR(BgL_arg3398z00_1189, BNIL); 
BgL_list3400z00_1190 = 
MAKE_PAIR(BgL_arg3397z00_1188, BgL_arg3402z00_1191); } 
BgL_arg3393z00_1185 = BgL_list3400z00_1190; } } } 
BgL_newtail2686z00_1183 = 
MAKE_PAIR(BgL_arg3393z00_1185, BNIL); } 
SET_CDR(BgL_tail2685z00_1180, BgL_newtail2686z00_1183); 
{ /* ./DotNet/lisp.scm 38 */
obj_t BgL_arg3389z00_1184;
BgL_arg3389z00_1184 = 
CDR(BgL_l2682z00_1179); 
{ 
obj_t BgL_tail2685z00_4439;obj_t BgL_l2682z00_4438;
BgL_l2682z00_4438 = BgL_arg3389z00_1184; 
BgL_tail2685z00_4439 = BgL_newtail2686z00_1183; 
BgL_tail2685z00_1180 = BgL_tail2685z00_4439; 
BgL_l2682z00_1179 = BgL_l2682z00_4438; 
goto BgL_map2683z00_1181;} } } } } } } } 
BgL_arg3377z00_1173 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3380z00_1174, BNIL); } 
return 
MAKE_PAIR(BgL_arg3376z00_1172, BgL_arg3377z00_1173);} } } 
}



/* compile-lisp-conditional2786 */
obj_t BGl_compilezd2lispzd2conditional2786z00zzdotnet_lispz00(obj_t BgL_envz00_3167, obj_t BgL_ez00_3168)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 31 */
{ 
BgL_conditionalz00_bglt BgL_ez00_1151;
BgL_ez00_1151 = 
(BgL_conditionalz00_bglt)(BgL_ez00_3168); 
{ /* ./DotNet/lisp.scm 33 */
obj_t BgL_arg3340z00_1155;obj_t BgL_arg3341z00_1156;
BgL_arg3340z00_1155 = 
CNST_TABLE_REF(((long)19)); 
{ /* ./DotNet/lisp.scm 33 */
obj_t BgL_arg3344z00_1157;obj_t BgL_arg3345z00_1158;
{ /* ./DotNet/lisp.scm 33 */
BgL_nodez00_bglt BgL_arg3348z00_1159;
BgL_arg3348z00_1159 = 
(((BgL_conditionalz00_bglt)CREF(BgL_ez00_1151))->BgL_testz00); 
{ /* ./DotNet/lisp.scm 33 */
obj_t BgL_method2774z00_1827;
{ /* ./DotNet/lisp.scm 33 */
BgL_objectz00_bglt BgL_objz00_1828;
BgL_objz00_1828 = 
(BgL_objectz00_bglt)(BgL_arg3348z00_1159); 
{ /* ./DotNet/lisp.scm 33 */
long BgL_objzd2classzd2numz00_1829;
BgL_objzd2classzd2numz00_1829 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1828); 
{ /* ./DotNet/lisp.scm 33 */
obj_t BgL_arg2017z00_1830;
{ /* ./DotNet/lisp.scm 33 */
int BgL_auxz00_4447;
BgL_auxz00_4447 = 
(int)(((long)1)); 
BgL_arg2017z00_1830 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_4447); } 
{ /* ./DotNet/lisp.scm 33 */
int BgL_offsetz00_1833;
BgL_offsetz00_1833 = 
(int)(BgL_objzd2classzd2numz00_1829); 
{ /* ./DotNet/lisp.scm 33 */
long BgL_offsetz00_1834;
{ /* ./DotNet/lisp.scm 33 */
long BgL_auxz00_4451;
BgL_auxz00_4451 = 
(long)(BgL_offsetz00_1833); 
BgL_offsetz00_1834 = 
(BgL_auxz00_4451-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 33 */
long BgL_modz00_1835;
{ /* ./DotNet/lisp.scm 33 */
int BgL_arg2028z00_1836;
BgL_arg2028z00_1836 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 33 */
long BgL_n2z00_1844;
BgL_n2z00_1844 = 
(long)(BgL_arg2028z00_1836); 
BgL_modz00_1835 = 
(BgL_offsetz00_1834/BgL_n2z00_1844); } } 
{ /* ./DotNet/lisp.scm 33 */
long BgL_restz00_1837;
{ /* ./DotNet/lisp.scm 33 */
int BgL_arg2024z00_1838;
BgL_arg2024z00_1838 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 33 */
long BgL_n2z00_1847;
BgL_n2z00_1847 = 
(long)(BgL_arg2024z00_1838); 
BgL_restz00_1837 = 
(BgL_offsetz00_1834%BgL_n2z00_1847); } } 
{ /* ./DotNet/lisp.scm 33 */

{ /* ./DotNet/lisp.scm 33 */
obj_t BgL_bucketz00_1839;
{ /* ./DotNet/lisp.scm 33 */
int BgL_kz00_1849;
BgL_kz00_1849 = 
(int)(BgL_modz00_1835); 
BgL_bucketz00_1839 = 
VECTOR_REF(BgL_arg2017z00_1830,BgL_kz00_1849); } 
{ /* ./DotNet/lisp.scm 33 */
int BgL_kz00_1851;
BgL_kz00_1851 = 
(int)(BgL_restz00_1837); 
BgL_method2774z00_1827 = 
VECTOR_REF(BgL_bucketz00_1839,BgL_kz00_1851); } } } } } } } } } } 
BgL_arg3344z00_1157 = 
PROCEDURE_ENTRY(BgL_method2774z00_1827)(BgL_method2774z00_1827, 
(obj_t)(BgL_arg3348z00_1159), BEOA); } } 
{ /* ./DotNet/lisp.scm 33 */
obj_t BgL_arg3352z00_1160;obj_t BgL_arg3354z00_1161;
{ /* ./DotNet/lisp.scm 33 */
BgL_nodez00_bglt BgL_arg3357z00_1162;
BgL_arg3357z00_1162 = 
(((BgL_conditionalz00_bglt)CREF(BgL_ez00_1151))->BgL_truez00); 
{ /* ./DotNet/lisp.scm 33 */
obj_t BgL_method2774z00_1854;
{ /* ./DotNet/lisp.scm 33 */
BgL_objectz00_bglt BgL_objz00_1855;
BgL_objz00_1855 = 
(BgL_objectz00_bglt)(BgL_arg3357z00_1162); 
{ /* ./DotNet/lisp.scm 33 */
long BgL_objzd2classzd2numz00_1856;
BgL_objzd2classzd2numz00_1856 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1855); 
{ /* ./DotNet/lisp.scm 33 */
obj_t BgL_arg2017z00_1857;
{ /* ./DotNet/lisp.scm 33 */
int BgL_auxz00_4470;
BgL_auxz00_4470 = 
(int)(((long)1)); 
BgL_arg2017z00_1857 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_4470); } 
{ /* ./DotNet/lisp.scm 33 */
int BgL_offsetz00_1860;
BgL_offsetz00_1860 = 
(int)(BgL_objzd2classzd2numz00_1856); 
{ /* ./DotNet/lisp.scm 33 */
long BgL_offsetz00_1861;
{ /* ./DotNet/lisp.scm 33 */
long BgL_auxz00_4474;
BgL_auxz00_4474 = 
(long)(BgL_offsetz00_1860); 
BgL_offsetz00_1861 = 
(BgL_auxz00_4474-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 33 */
long BgL_modz00_1862;
{ /* ./DotNet/lisp.scm 33 */
int BgL_arg2028z00_1863;
BgL_arg2028z00_1863 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 33 */
long BgL_n2z00_1871;
BgL_n2z00_1871 = 
(long)(BgL_arg2028z00_1863); 
BgL_modz00_1862 = 
(BgL_offsetz00_1861/BgL_n2z00_1871); } } 
{ /* ./DotNet/lisp.scm 33 */
long BgL_restz00_1864;
{ /* ./DotNet/lisp.scm 33 */
int BgL_arg2024z00_1865;
BgL_arg2024z00_1865 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 33 */
long BgL_n2z00_1874;
BgL_n2z00_1874 = 
(long)(BgL_arg2024z00_1865); 
BgL_restz00_1864 = 
(BgL_offsetz00_1861%BgL_n2z00_1874); } } 
{ /* ./DotNet/lisp.scm 33 */

{ /* ./DotNet/lisp.scm 33 */
obj_t BgL_bucketz00_1866;
{ /* ./DotNet/lisp.scm 33 */
int BgL_kz00_1876;
BgL_kz00_1876 = 
(int)(BgL_modz00_1862); 
BgL_bucketz00_1866 = 
VECTOR_REF(BgL_arg2017z00_1857,BgL_kz00_1876); } 
{ /* ./DotNet/lisp.scm 33 */
int BgL_kz00_1878;
BgL_kz00_1878 = 
(int)(BgL_restz00_1864); 
BgL_method2774z00_1854 = 
VECTOR_REF(BgL_bucketz00_1866,BgL_kz00_1878); } } } } } } } } } } 
BgL_arg3352z00_1160 = 
PROCEDURE_ENTRY(BgL_method2774z00_1854)(BgL_method2774z00_1854, 
(obj_t)(BgL_arg3357z00_1162), BEOA); } } 
{ /* ./DotNet/lisp.scm 33 */
obj_t BgL_arg3362z00_1163;
{ /* ./DotNet/lisp.scm 33 */
BgL_nodez00_bglt BgL_arg3366z00_1165;
BgL_arg3366z00_1165 = 
(((BgL_conditionalz00_bglt)CREF(BgL_ez00_1151))->BgL_falsez00); 
{ /* ./DotNet/lisp.scm 33 */
obj_t BgL_method2774z00_1881;
{ /* ./DotNet/lisp.scm 33 */
BgL_objectz00_bglt BgL_objz00_1882;
BgL_objz00_1882 = 
(BgL_objectz00_bglt)(BgL_arg3366z00_1165); 
{ /* ./DotNet/lisp.scm 33 */
long BgL_objzd2classzd2numz00_1883;
BgL_objzd2classzd2numz00_1883 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1882); 
{ /* ./DotNet/lisp.scm 33 */
obj_t BgL_arg2017z00_1884;
{ /* ./DotNet/lisp.scm 33 */
int BgL_auxz00_4493;
BgL_auxz00_4493 = 
(int)(((long)1)); 
BgL_arg2017z00_1884 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_4493); } 
{ /* ./DotNet/lisp.scm 33 */
int BgL_offsetz00_1887;
BgL_offsetz00_1887 = 
(int)(BgL_objzd2classzd2numz00_1883); 
{ /* ./DotNet/lisp.scm 33 */
long BgL_offsetz00_1888;
{ /* ./DotNet/lisp.scm 33 */
long BgL_auxz00_4497;
BgL_auxz00_4497 = 
(long)(BgL_offsetz00_1887); 
BgL_offsetz00_1888 = 
(BgL_auxz00_4497-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 33 */
long BgL_modz00_1889;
{ /* ./DotNet/lisp.scm 33 */
int BgL_arg2028z00_1890;
BgL_arg2028z00_1890 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 33 */
long BgL_n2z00_1898;
BgL_n2z00_1898 = 
(long)(BgL_arg2028z00_1890); 
BgL_modz00_1889 = 
(BgL_offsetz00_1888/BgL_n2z00_1898); } } 
{ /* ./DotNet/lisp.scm 33 */
long BgL_restz00_1891;
{ /* ./DotNet/lisp.scm 33 */
int BgL_arg2024z00_1892;
BgL_arg2024z00_1892 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 33 */
long BgL_n2z00_1901;
BgL_n2z00_1901 = 
(long)(BgL_arg2024z00_1892); 
BgL_restz00_1891 = 
(BgL_offsetz00_1888%BgL_n2z00_1901); } } 
{ /* ./DotNet/lisp.scm 33 */

{ /* ./DotNet/lisp.scm 33 */
obj_t BgL_bucketz00_1893;
{ /* ./DotNet/lisp.scm 33 */
int BgL_kz00_1903;
BgL_kz00_1903 = 
(int)(BgL_modz00_1889); 
BgL_bucketz00_1893 = 
VECTOR_REF(BgL_arg2017z00_1884,BgL_kz00_1903); } 
{ /* ./DotNet/lisp.scm 33 */
int BgL_kz00_1905;
BgL_kz00_1905 = 
(int)(BgL_restz00_1891); 
BgL_method2774z00_1881 = 
VECTOR_REF(BgL_bucketz00_1893,BgL_kz00_1905); } } } } } } } } } } 
BgL_arg3362z00_1163 = 
PROCEDURE_ENTRY(BgL_method2774z00_1881)(BgL_method2774z00_1881, 
(obj_t)(BgL_arg3366z00_1165), BEOA); } } 
BgL_arg3354z00_1161 = 
MAKE_PAIR(BgL_arg3362z00_1163, BNIL); } 
BgL_arg3345z00_1158 = 
MAKE_PAIR(BgL_arg3352z00_1160, BgL_arg3354z00_1161); } 
BgL_arg3341z00_1156 = 
MAKE_PAIR(BgL_arg3344z00_1157, BgL_arg3345z00_1158); } 
return 
MAKE_PAIR(BgL_arg3340z00_1155, BgL_arg3341z00_1156);} } } 
}



/* compile-lisp-sequence2784 */
obj_t BGl_compilezd2lispzd2sequence2784z00zzdotnet_lispz00(obj_t BgL_envz00_3169, obj_t BgL_ez00_3170)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 27 */
{ 
BgL_sequencez00_bglt BgL_ez00_1125;
BgL_ez00_1125 = 
(BgL_sequencez00_bglt)(BgL_ez00_3170); 
{ /* ./DotNet/lisp.scm 29 */
obj_t BgL_arg3295z00_1129;obj_t BgL_arg3296z00_1130;
BgL_arg3295z00_1129 = 
CNST_TABLE_REF(((long)20)); 
{ /* ./DotNet/lisp.scm 29 */
obj_t BgL_arg3299z00_1131;
{ /* ./DotNet/lisp.scm 29 */
obj_t BgL_l2673z00_1133;
BgL_l2673z00_1133 = 
(((BgL_sequencez00_bglt)CREF(BgL_ez00_1125))->BgL_nodesz00); 
{ /* ./DotNet/lisp.scm 29 */
bool_t BgL_test3302z00_1134;
BgL_test3302z00_1134 = 
NULLP(BgL_l2673z00_1133); 
if(BgL_test3302z00_1134)
{ /* ./DotNet/lisp.scm 29 */
BgL_arg3299z00_1131 = BNIL; }  else 
{ /* ./DotNet/lisp.scm 29 */
obj_t BgL_head2675z00_1135;
{ /* ./DotNet/lisp.scm 29 */
obj_t BgL_arg3324z00_1146;
{ /* ./DotNet/lisp.scm 29 */
obj_t BgL_arg3328z00_1148;
BgL_arg3328z00_1148 = 
CAR(BgL_l2673z00_1133); 
{ /* ./DotNet/lisp.scm 29 */
BgL_nodez00_bglt BgL_ez00_1763;
BgL_ez00_1763 = 
(BgL_nodez00_bglt)(BgL_arg3328z00_1148); 
{ /* ./DotNet/lisp.scm 29 */
obj_t BgL_method2774z00_1764;
{ /* ./DotNet/lisp.scm 29 */
BgL_objectz00_bglt BgL_objz00_1765;
BgL_objz00_1765 = 
(BgL_objectz00_bglt)(BgL_ez00_1763); 
{ /* ./DotNet/lisp.scm 29 */
long BgL_objzd2classzd2numz00_1766;
BgL_objzd2classzd2numz00_1766 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1765); 
{ /* ./DotNet/lisp.scm 29 */
obj_t BgL_arg2017z00_1767;
{ /* ./DotNet/lisp.scm 29 */
int BgL_auxz00_4526;
BgL_auxz00_4526 = 
(int)(((long)1)); 
BgL_arg2017z00_1767 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_4526); } 
{ /* ./DotNet/lisp.scm 29 */
int BgL_offsetz00_1770;
BgL_offsetz00_1770 = 
(int)(BgL_objzd2classzd2numz00_1766); 
{ /* ./DotNet/lisp.scm 29 */
long BgL_offsetz00_1771;
{ /* ./DotNet/lisp.scm 29 */
long BgL_auxz00_4530;
BgL_auxz00_4530 = 
(long)(BgL_offsetz00_1770); 
BgL_offsetz00_1771 = 
(BgL_auxz00_4530-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 29 */
long BgL_modz00_1772;
{ /* ./DotNet/lisp.scm 29 */
int BgL_arg2028z00_1773;
BgL_arg2028z00_1773 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 29 */
long BgL_n2z00_1781;
BgL_n2z00_1781 = 
(long)(BgL_arg2028z00_1773); 
BgL_modz00_1772 = 
(BgL_offsetz00_1771/BgL_n2z00_1781); } } 
{ /* ./DotNet/lisp.scm 29 */
long BgL_restz00_1774;
{ /* ./DotNet/lisp.scm 29 */
int BgL_arg2024z00_1775;
BgL_arg2024z00_1775 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 29 */
long BgL_n2z00_1784;
BgL_n2z00_1784 = 
(long)(BgL_arg2024z00_1775); 
BgL_restz00_1774 = 
(BgL_offsetz00_1771%BgL_n2z00_1784); } } 
{ /* ./DotNet/lisp.scm 29 */

{ /* ./DotNet/lisp.scm 29 */
obj_t BgL_bucketz00_1776;
{ /* ./DotNet/lisp.scm 29 */
int BgL_kz00_1786;
BgL_kz00_1786 = 
(int)(BgL_modz00_1772); 
BgL_bucketz00_1776 = 
VECTOR_REF(BgL_arg2017z00_1767,BgL_kz00_1786); } 
{ /* ./DotNet/lisp.scm 29 */
int BgL_kz00_1788;
BgL_kz00_1788 = 
(int)(BgL_restz00_1774); 
BgL_method2774z00_1764 = 
VECTOR_REF(BgL_bucketz00_1776,BgL_kz00_1788); } } } } } } } } } } 
BgL_arg3324z00_1146 = 
PROCEDURE_ENTRY(BgL_method2774z00_1764)(BgL_method2774z00_1764, 
(obj_t)(BgL_ez00_1763), BEOA); } } } 
BgL_head2675z00_1135 = 
MAKE_PAIR(BgL_arg3324z00_1146, BNIL); } 
{ 
obj_t BgL_l2673z00_1136;obj_t BgL_tail2676z00_1137;
{ /* ./DotNet/lisp.scm 29 */
obj_t BgL_arg3304z00_1139;
BgL_arg3304z00_1139 = 
CDR(BgL_l2673z00_1133); 
BgL_l2673z00_1136 = BgL_arg3304z00_1139; 
BgL_tail2676z00_1137 = BgL_head2675z00_1135; 
BgL_map2674z00_1138:
{ /* ./DotNet/lisp.scm 29 */
bool_t BgL_test3307z00_1140;
BgL_test3307z00_1140 = 
NULLP(BgL_l2673z00_1136); 
if(BgL_test3307z00_1140)
{ /* ./DotNet/lisp.scm 29 */
BgL_arg3299z00_1131 = BgL_head2675z00_1135; }  else 
{ /* ./DotNet/lisp.scm 29 */
obj_t BgL_newtail2677z00_1141;
{ /* ./DotNet/lisp.scm 29 */
obj_t BgL_arg3314z00_1143;
{ /* ./DotNet/lisp.scm 29 */
obj_t BgL_arg3319z00_1145;
BgL_arg3319z00_1145 = 
CAR(BgL_l2673z00_1136); 
{ /* ./DotNet/lisp.scm 29 */
BgL_nodez00_bglt BgL_ez00_1794;
BgL_ez00_1794 = 
(BgL_nodez00_bglt)(BgL_arg3319z00_1145); 
{ /* ./DotNet/lisp.scm 29 */
obj_t BgL_method2774z00_1795;
{ /* ./DotNet/lisp.scm 29 */
BgL_objectz00_bglt BgL_objz00_1796;
BgL_objz00_1796 = 
(BgL_objectz00_bglt)(BgL_ez00_1794); 
{ /* ./DotNet/lisp.scm 29 */
long BgL_objzd2classzd2numz00_1797;
BgL_objzd2classzd2numz00_1797 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1796); 
{ /* ./DotNet/lisp.scm 29 */
obj_t BgL_arg2017z00_1798;
{ /* ./DotNet/lisp.scm 29 */
int BgL_auxz00_4554;
BgL_auxz00_4554 = 
(int)(((long)1)); 
BgL_arg2017z00_1798 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_4554); } 
{ /* ./DotNet/lisp.scm 29 */
int BgL_offsetz00_1801;
BgL_offsetz00_1801 = 
(int)(BgL_objzd2classzd2numz00_1797); 
{ /* ./DotNet/lisp.scm 29 */
long BgL_offsetz00_1802;
{ /* ./DotNet/lisp.scm 29 */
long BgL_auxz00_4558;
BgL_auxz00_4558 = 
(long)(BgL_offsetz00_1801); 
BgL_offsetz00_1802 = 
(BgL_auxz00_4558-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 29 */
long BgL_modz00_1803;
{ /* ./DotNet/lisp.scm 29 */
int BgL_arg2028z00_1804;
BgL_arg2028z00_1804 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 29 */
long BgL_n2z00_1812;
BgL_n2z00_1812 = 
(long)(BgL_arg2028z00_1804); 
BgL_modz00_1803 = 
(BgL_offsetz00_1802/BgL_n2z00_1812); } } 
{ /* ./DotNet/lisp.scm 29 */
long BgL_restz00_1805;
{ /* ./DotNet/lisp.scm 29 */
int BgL_arg2024z00_1806;
BgL_arg2024z00_1806 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 29 */
long BgL_n2z00_1815;
BgL_n2z00_1815 = 
(long)(BgL_arg2024z00_1806); 
BgL_restz00_1805 = 
(BgL_offsetz00_1802%BgL_n2z00_1815); } } 
{ /* ./DotNet/lisp.scm 29 */

{ /* ./DotNet/lisp.scm 29 */
obj_t BgL_bucketz00_1807;
{ /* ./DotNet/lisp.scm 29 */
int BgL_kz00_1817;
BgL_kz00_1817 = 
(int)(BgL_modz00_1803); 
BgL_bucketz00_1807 = 
VECTOR_REF(BgL_arg2017z00_1798,BgL_kz00_1817); } 
{ /* ./DotNet/lisp.scm 29 */
int BgL_kz00_1819;
BgL_kz00_1819 = 
(int)(BgL_restz00_1805); 
BgL_method2774z00_1795 = 
VECTOR_REF(BgL_bucketz00_1807,BgL_kz00_1819); } } } } } } } } } } 
BgL_arg3314z00_1143 = 
PROCEDURE_ENTRY(BgL_method2774z00_1795)(BgL_method2774z00_1795, 
(obj_t)(BgL_ez00_1794), BEOA); } } } 
BgL_newtail2677z00_1141 = 
MAKE_PAIR(BgL_arg3314z00_1143, BNIL); } 
SET_CDR(BgL_tail2676z00_1137, BgL_newtail2677z00_1141); 
{ /* ./DotNet/lisp.scm 29 */
obj_t BgL_arg3310z00_1142;
BgL_arg3310z00_1142 = 
CDR(BgL_l2673z00_1136); 
{ 
obj_t BgL_tail2676z00_4578;obj_t BgL_l2673z00_4577;
BgL_l2673z00_4577 = BgL_arg3310z00_1142; 
BgL_tail2676z00_4578 = BgL_newtail2677z00_1141; 
BgL_tail2676z00_1137 = BgL_tail2676z00_4578; 
BgL_l2673z00_1136 = BgL_l2673z00_4577; 
goto BgL_map2674z00_1138;} } } } } } } } } 
BgL_arg3296z00_1130 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3299z00_1131, BNIL); } 
return 
MAKE_PAIR(BgL_arg3295z00_1129, BgL_arg3296z00_1130);} } } 
}



/* compile-lisp-setq2782 */
obj_t BGl_compilezd2lispzd2setq2782z00zzdotnet_lispz00(obj_t BgL_envz00_3171, obj_t BgL_ez00_3172)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 23 */
{ 
BgL_setqz00_bglt BgL_ez00_1111;
BgL_ez00_1111 = 
(BgL_setqz00_bglt)(BgL_ez00_3172); 
{ /* ./DotNet/lisp.scm 25 */
obj_t BgL_arg3269z00_1115;obj_t BgL_arg3270z00_1116;
BgL_arg3269z00_1115 = 
CNST_TABLE_REF(((long)21)); 
{ /* ./DotNet/lisp.scm 25 */
obj_t BgL_arg3273z00_1117;obj_t BgL_arg3274z00_1118;
{ /* ./DotNet/lisp.scm 25 */
BgL_varz00_bglt BgL_arg3277z00_1119;
BgL_arg3277z00_1119 = 
(((BgL_setqz00_bglt)CREF(BgL_ez00_1111))->BgL_varz00); 
{ /* ./DotNet/lisp.scm 25 */
BgL_nodez00_bglt BgL_ez00_1707;
BgL_ez00_1707 = 
(BgL_nodez00_bglt)(BgL_arg3277z00_1119); 
{ /* ./DotNet/lisp.scm 25 */
obj_t BgL_method2774z00_1708;
{ /* ./DotNet/lisp.scm 25 */
BgL_objectz00_bglt BgL_objz00_1709;
BgL_objz00_1709 = 
(BgL_objectz00_bglt)(BgL_ez00_1707); 
{ /* ./DotNet/lisp.scm 25 */
long BgL_objzd2classzd2numz00_1710;
BgL_objzd2classzd2numz00_1710 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1709); 
{ /* ./DotNet/lisp.scm 25 */
obj_t BgL_arg2017z00_1711;
{ /* ./DotNet/lisp.scm 25 */
int BgL_auxz00_4587;
BgL_auxz00_4587 = 
(int)(((long)1)); 
BgL_arg2017z00_1711 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_4587); } 
{ /* ./DotNet/lisp.scm 25 */
int BgL_offsetz00_1714;
BgL_offsetz00_1714 = 
(int)(BgL_objzd2classzd2numz00_1710); 
{ /* ./DotNet/lisp.scm 25 */
long BgL_offsetz00_1715;
{ /* ./DotNet/lisp.scm 25 */
long BgL_auxz00_4591;
BgL_auxz00_4591 = 
(long)(BgL_offsetz00_1714); 
BgL_offsetz00_1715 = 
(BgL_auxz00_4591-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 25 */
long BgL_modz00_1716;
{ /* ./DotNet/lisp.scm 25 */
int BgL_arg2028z00_1717;
BgL_arg2028z00_1717 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 25 */
long BgL_n2z00_1725;
BgL_n2z00_1725 = 
(long)(BgL_arg2028z00_1717); 
BgL_modz00_1716 = 
(BgL_offsetz00_1715/BgL_n2z00_1725); } } 
{ /* ./DotNet/lisp.scm 25 */
long BgL_restz00_1718;
{ /* ./DotNet/lisp.scm 25 */
int BgL_arg2024z00_1719;
BgL_arg2024z00_1719 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 25 */
long BgL_n2z00_1728;
BgL_n2z00_1728 = 
(long)(BgL_arg2024z00_1719); 
BgL_restz00_1718 = 
(BgL_offsetz00_1715%BgL_n2z00_1728); } } 
{ /* ./DotNet/lisp.scm 25 */

{ /* ./DotNet/lisp.scm 25 */
obj_t BgL_bucketz00_1720;
{ /* ./DotNet/lisp.scm 25 */
int BgL_kz00_1730;
BgL_kz00_1730 = 
(int)(BgL_modz00_1716); 
BgL_bucketz00_1720 = 
VECTOR_REF(BgL_arg2017z00_1711,BgL_kz00_1730); } 
{ /* ./DotNet/lisp.scm 25 */
int BgL_kz00_1732;
BgL_kz00_1732 = 
(int)(BgL_restz00_1718); 
BgL_method2774z00_1708 = 
VECTOR_REF(BgL_bucketz00_1720,BgL_kz00_1732); } } } } } } } } } } 
BgL_arg3273z00_1117 = 
PROCEDURE_ENTRY(BgL_method2774z00_1708)(BgL_method2774z00_1708, 
(obj_t)(BgL_ez00_1707), BEOA); } } } 
{ /* ./DotNet/lisp.scm 25 */
obj_t BgL_arg3281z00_1120;
{ /* ./DotNet/lisp.scm 25 */
BgL_nodez00_bglt BgL_arg3285z00_1122;
BgL_arg3285z00_1122 = 
(((BgL_setqz00_bglt)CREF(BgL_ez00_1111))->BgL_valuez00); 
{ /* ./DotNet/lisp.scm 25 */
obj_t BgL_method2774z00_1735;
{ /* ./DotNet/lisp.scm 25 */
BgL_objectz00_bglt BgL_objz00_1736;
BgL_objz00_1736 = 
(BgL_objectz00_bglt)(BgL_arg3285z00_1122); 
{ /* ./DotNet/lisp.scm 25 */
long BgL_objzd2classzd2numz00_1737;
BgL_objzd2classzd2numz00_1737 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1736); 
{ /* ./DotNet/lisp.scm 25 */
obj_t BgL_arg2017z00_1738;
{ /* ./DotNet/lisp.scm 25 */
int BgL_auxz00_4610;
BgL_auxz00_4610 = 
(int)(((long)1)); 
BgL_arg2017z00_1738 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_4610); } 
{ /* ./DotNet/lisp.scm 25 */
int BgL_offsetz00_1741;
BgL_offsetz00_1741 = 
(int)(BgL_objzd2classzd2numz00_1737); 
{ /* ./DotNet/lisp.scm 25 */
long BgL_offsetz00_1742;
{ /* ./DotNet/lisp.scm 25 */
long BgL_auxz00_4614;
BgL_auxz00_4614 = 
(long)(BgL_offsetz00_1741); 
BgL_offsetz00_1742 = 
(BgL_auxz00_4614-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 25 */
long BgL_modz00_1743;
{ /* ./DotNet/lisp.scm 25 */
int BgL_arg2028z00_1744;
BgL_arg2028z00_1744 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 25 */
long BgL_n2z00_1752;
BgL_n2z00_1752 = 
(long)(BgL_arg2028z00_1744); 
BgL_modz00_1743 = 
(BgL_offsetz00_1742/BgL_n2z00_1752); } } 
{ /* ./DotNet/lisp.scm 25 */
long BgL_restz00_1745;
{ /* ./DotNet/lisp.scm 25 */
int BgL_arg2024z00_1746;
BgL_arg2024z00_1746 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 25 */
long BgL_n2z00_1755;
BgL_n2z00_1755 = 
(long)(BgL_arg2024z00_1746); 
BgL_restz00_1745 = 
(BgL_offsetz00_1742%BgL_n2z00_1755); } } 
{ /* ./DotNet/lisp.scm 25 */

{ /* ./DotNet/lisp.scm 25 */
obj_t BgL_bucketz00_1747;
{ /* ./DotNet/lisp.scm 25 */
int BgL_kz00_1757;
BgL_kz00_1757 = 
(int)(BgL_modz00_1743); 
BgL_bucketz00_1747 = 
VECTOR_REF(BgL_arg2017z00_1738,BgL_kz00_1757); } 
{ /* ./DotNet/lisp.scm 25 */
int BgL_kz00_1759;
BgL_kz00_1759 = 
(int)(BgL_restz00_1745); 
BgL_method2774z00_1735 = 
VECTOR_REF(BgL_bucketz00_1747,BgL_kz00_1759); } } } } } } } } } } 
BgL_arg3281z00_1120 = 
PROCEDURE_ENTRY(BgL_method2774z00_1735)(BgL_method2774z00_1735, 
(obj_t)(BgL_arg3285z00_1122), BEOA); } } 
BgL_arg3274z00_1118 = 
MAKE_PAIR(BgL_arg3281z00_1120, BNIL); } 
BgL_arg3270z00_1116 = 
MAKE_PAIR(BgL_arg3273z00_1117, BgL_arg3274z00_1118); } 
return 
MAKE_PAIR(BgL_arg3269z00_1115, BgL_arg3270z00_1116);} } } 
}



/* compile-lisp-let-var2780 */
obj_t BGl_compilezd2lispzd2letzd2var2780zd2zzdotnet_lispz00(obj_t BgL_envz00_3173, obj_t BgL_ez00_3174)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 16 */
{ 
BgL_letzd2varzd2_bglt BgL_ez00_1080;
BgL_ez00_1080 = 
(BgL_letzd2varzd2_bglt)(BgL_ez00_3174); 
{ /* ./DotNet/lisp.scm 18 */
obj_t BgL_arg3210z00_1084;obj_t BgL_arg3211z00_1085;
BgL_arg3210z00_1084 = 
CNST_TABLE_REF(((long)22)); 
{ /* ./DotNet/lisp.scm 18 */
obj_t BgL_arg3214z00_1086;obj_t BgL_arg3215z00_1087;
{ /* ./DotNet/lisp.scm 18 */
obj_t BgL_l2664z00_1088;
BgL_l2664z00_1088 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_ez00_1080))->BgL_bindingsz00); 
{ /* ./DotNet/lisp.scm 18 */
bool_t BgL_test3217z00_1089;
BgL_test3217z00_1089 = 
NULLP(BgL_l2664z00_1088); 
if(BgL_test3217z00_1089)
{ /* ./DotNet/lisp.scm 18 */
BgL_arg3214z00_1086 = BNIL; }  else 
{ /* ./DotNet/lisp.scm 18 */
obj_t BgL_head2666z00_1090;
BgL_head2666z00_1090 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l2664z00_1091;obj_t BgL_tail2667z00_1092;
BgL_l2664z00_1091 = BgL_l2664z00_1088; 
BgL_tail2667z00_1092 = BgL_head2666z00_1090; 
BgL_map2665z00_1093:
{ /* ./DotNet/lisp.scm 18 */
bool_t BgL_test3219z00_1094;
BgL_test3219z00_1094 = 
NULLP(BgL_l2664z00_1091); 
if(BgL_test3219z00_1094)
{ /* ./DotNet/lisp.scm 18 */
BgL_arg3214z00_1086 = 
CDR(BgL_head2666z00_1090); }  else 
{ /* ./DotNet/lisp.scm 18 */
obj_t BgL_newtail2668z00_1095;
{ /* ./DotNet/lisp.scm 18 */
obj_t BgL_arg3227z00_1097;
{ /* ./DotNet/lisp.scm 18 */
obj_t BgL_bz00_1099;
BgL_bz00_1099 = 
CAR(BgL_l2664z00_1091); 
{ /* ./DotNet/lisp.scm 18 */
obj_t BgL_arg3231z00_1100;obj_t BgL_arg3232z00_1101;
{ /* ./DotNet/lisp.scm 18 */
BgL_variablez00_bglt BgL_obj1094z00_1644;
{ /* ./DotNet/lisp.scm 18 */
obj_t BgL_auxz00_4643;
BgL_auxz00_4643 = 
CAR(BgL_bz00_1099); 
BgL_obj1094z00_1644 = 
(BgL_variablez00_bglt)(BgL_auxz00_4643); } 
BgL_arg3231z00_1100 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1094z00_1644))->BgL_namez00); } 
{ /* ./DotNet/lisp.scm 19 */
obj_t BgL_arg3245z00_1105;
BgL_arg3245z00_1105 = 
CDR(BgL_bz00_1099); 
{ /* ./DotNet/lisp.scm 19 */
BgL_nodez00_bglt BgL_ez00_1646;
BgL_ez00_1646 = 
(BgL_nodez00_bglt)(BgL_arg3245z00_1105); 
{ /* ./DotNet/lisp.scm 19 */
obj_t BgL_method2774z00_1647;
{ /* ./DotNet/lisp.scm 19 */
BgL_objectz00_bglt BgL_objz00_1648;
BgL_objz00_1648 = 
(BgL_objectz00_bglt)(BgL_ez00_1646); 
{ /* ./DotNet/lisp.scm 19 */
long BgL_objzd2classzd2numz00_1649;
BgL_objzd2classzd2numz00_1649 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1648); 
{ /* ./DotNet/lisp.scm 19 */
obj_t BgL_arg2017z00_1650;
{ /* ./DotNet/lisp.scm 19 */
int BgL_auxz00_4651;
BgL_auxz00_4651 = 
(int)(((long)1)); 
BgL_arg2017z00_1650 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_4651); } 
{ /* ./DotNet/lisp.scm 19 */
int BgL_offsetz00_1653;
BgL_offsetz00_1653 = 
(int)(BgL_objzd2classzd2numz00_1649); 
{ /* ./DotNet/lisp.scm 19 */
long BgL_offsetz00_1654;
{ /* ./DotNet/lisp.scm 19 */
long BgL_auxz00_4655;
BgL_auxz00_4655 = 
(long)(BgL_offsetz00_1653); 
BgL_offsetz00_1654 = 
(BgL_auxz00_4655-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 19 */
long BgL_modz00_1655;
{ /* ./DotNet/lisp.scm 19 */
int BgL_arg2028z00_1656;
BgL_arg2028z00_1656 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 19 */
long BgL_n2z00_1664;
BgL_n2z00_1664 = 
(long)(BgL_arg2028z00_1656); 
BgL_modz00_1655 = 
(BgL_offsetz00_1654/BgL_n2z00_1664); } } 
{ /* ./DotNet/lisp.scm 19 */
long BgL_restz00_1657;
{ /* ./DotNet/lisp.scm 19 */
int BgL_arg2024z00_1658;
BgL_arg2024z00_1658 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 19 */
long BgL_n2z00_1667;
BgL_n2z00_1667 = 
(long)(BgL_arg2024z00_1658); 
BgL_restz00_1657 = 
(BgL_offsetz00_1654%BgL_n2z00_1667); } } 
{ /* ./DotNet/lisp.scm 19 */

{ /* ./DotNet/lisp.scm 19 */
obj_t BgL_bucketz00_1659;
{ /* ./DotNet/lisp.scm 19 */
int BgL_kz00_1669;
BgL_kz00_1669 = 
(int)(BgL_modz00_1655); 
BgL_bucketz00_1659 = 
VECTOR_REF(BgL_arg2017z00_1650,BgL_kz00_1669); } 
{ /* ./DotNet/lisp.scm 19 */
int BgL_kz00_1671;
BgL_kz00_1671 = 
(int)(BgL_restz00_1657); 
BgL_method2774z00_1647 = 
VECTOR_REF(BgL_bucketz00_1659,BgL_kz00_1671); } } } } } } } } } } 
BgL_arg3232z00_1101 = 
PROCEDURE_ENTRY(BgL_method2774z00_1647)(BgL_method2774z00_1647, 
(obj_t)(BgL_ez00_1646), BEOA); } } } 
{ /* ./DotNet/lisp.scm 18 */
obj_t BgL_list3234z00_1102;
{ /* ./DotNet/lisp.scm 18 */
obj_t BgL_arg3236z00_1103;
BgL_arg3236z00_1103 = 
MAKE_PAIR(BgL_arg3232z00_1101, BNIL); 
BgL_list3234z00_1102 = 
MAKE_PAIR(BgL_arg3231z00_1100, BgL_arg3236z00_1103); } 
BgL_arg3227z00_1097 = BgL_list3234z00_1102; } } } 
BgL_newtail2668z00_1095 = 
MAKE_PAIR(BgL_arg3227z00_1097, BNIL); } 
SET_CDR(BgL_tail2667z00_1092, BgL_newtail2668z00_1095); 
{ /* ./DotNet/lisp.scm 18 */
obj_t BgL_arg3223z00_1096;
BgL_arg3223z00_1096 = 
CDR(BgL_l2664z00_1091); 
{ 
obj_t BgL_tail2667z00_4677;obj_t BgL_l2664z00_4676;
BgL_l2664z00_4676 = BgL_arg3223z00_1096; 
BgL_tail2667z00_4677 = BgL_newtail2668z00_1095; 
BgL_tail2667z00_1092 = BgL_tail2667z00_4677; 
BgL_l2664z00_1091 = BgL_l2664z00_4676; 
goto BgL_map2665z00_1093;} } } } } } } } 
{ /* ./DotNet/lisp.scm 21 */
obj_t BgL_arg3254z00_1106;
{ /* ./DotNet/lisp.scm 21 */
BgL_nodez00_bglt BgL_arg3259z00_1108;
BgL_arg3259z00_1108 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_ez00_1080))->BgL_bodyz00); 
{ /* ./DotNet/lisp.scm 21 */
obj_t BgL_method2774z00_1681;
{ /* ./DotNet/lisp.scm 21 */
BgL_objectz00_bglt BgL_objz00_1682;
BgL_objz00_1682 = 
(BgL_objectz00_bglt)(BgL_arg3259z00_1108); 
{ /* ./DotNet/lisp.scm 21 */
long BgL_objzd2classzd2numz00_1683;
BgL_objzd2classzd2numz00_1683 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1682); 
{ /* ./DotNet/lisp.scm 21 */
obj_t BgL_arg2017z00_1684;
{ /* ./DotNet/lisp.scm 21 */
int BgL_auxz00_4681;
BgL_auxz00_4681 = 
(int)(((long)1)); 
BgL_arg2017z00_1684 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_4681); } 
{ /* ./DotNet/lisp.scm 21 */
int BgL_offsetz00_1687;
BgL_offsetz00_1687 = 
(int)(BgL_objzd2classzd2numz00_1683); 
{ /* ./DotNet/lisp.scm 21 */
long BgL_offsetz00_1688;
{ /* ./DotNet/lisp.scm 21 */
long BgL_auxz00_4685;
BgL_auxz00_4685 = 
(long)(BgL_offsetz00_1687); 
BgL_offsetz00_1688 = 
(BgL_auxz00_4685-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 21 */
long BgL_modz00_1689;
{ /* ./DotNet/lisp.scm 21 */
int BgL_arg2028z00_1690;
BgL_arg2028z00_1690 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 21 */
long BgL_n2z00_1698;
BgL_n2z00_1698 = 
(long)(BgL_arg2028z00_1690); 
BgL_modz00_1689 = 
(BgL_offsetz00_1688/BgL_n2z00_1698); } } 
{ /* ./DotNet/lisp.scm 21 */
long BgL_restz00_1691;
{ /* ./DotNet/lisp.scm 21 */
int BgL_arg2024z00_1692;
BgL_arg2024z00_1692 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 21 */
long BgL_n2z00_1701;
BgL_n2z00_1701 = 
(long)(BgL_arg2024z00_1692); 
BgL_restz00_1691 = 
(BgL_offsetz00_1688%BgL_n2z00_1701); } } 
{ /* ./DotNet/lisp.scm 21 */

{ /* ./DotNet/lisp.scm 21 */
obj_t BgL_bucketz00_1693;
{ /* ./DotNet/lisp.scm 21 */
int BgL_kz00_1703;
BgL_kz00_1703 = 
(int)(BgL_modz00_1689); 
BgL_bucketz00_1693 = 
VECTOR_REF(BgL_arg2017z00_1684,BgL_kz00_1703); } 
{ /* ./DotNet/lisp.scm 21 */
int BgL_kz00_1705;
BgL_kz00_1705 = 
(int)(BgL_restz00_1691); 
BgL_method2774z00_1681 = 
VECTOR_REF(BgL_bucketz00_1693,BgL_kz00_1705); } } } } } } } } } } 
BgL_arg3254z00_1106 = 
PROCEDURE_ENTRY(BgL_method2774z00_1681)(BgL_method2774z00_1681, 
(obj_t)(BgL_arg3259z00_1108), BEOA); } } 
BgL_arg3215z00_1087 = 
MAKE_PAIR(BgL_arg3254z00_1106, BNIL); } 
BgL_arg3211z00_1085 = 
MAKE_PAIR(BgL_arg3214z00_1086, BgL_arg3215z00_1087); } 
return 
MAKE_PAIR(BgL_arg3210z00_1084, BgL_arg3211z00_1085);} } } 
}



/* compile-lisp-var2778 */
obj_t BGl_compilezd2lispzd2var2778z00zzdotnet_lispz00(obj_t BgL_envz00_3175, obj_t BgL_ez00_3176)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 10 */
{ 
BgL_varz00_bglt BgL_ez00_1073;
BgL_ez00_1073 = 
(BgL_varz00_bglt)(BgL_ez00_3176); 
{ /* ./DotNet/lisp.scm 11 */
BgL_variablez00_bglt BgL_vz00_1076;
BgL_vz00_1076 = 
(((BgL_varz00_bglt)CREF(BgL_ez00_1073))->BgL_variablez00); 
{ /* ./DotNet/lisp.scm 12 */
bool_t BgL_test3197z00_1077;
{ /* ./DotNet/lisp.scm 12 */
obj_t BgL_obj1300z00_1633;
BgL_obj1300z00_1633 = 
(obj_t)(BgL_vz00_1076); 
BgL_test3197z00_1077 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1300z00_1633, BGl_localz00zzast_varz00); } 
if(BgL_test3197z00_1077)
{ /* ./DotNet/lisp.scm 12 */
return 
(((BgL_variablez00_bglt)CREF(BgL_vz00_1076))->BgL_namez00);}  else 
{ /* ./DotNet/lisp.scm 12 */
return 
(((BgL_variablez00_bglt)CREF(BgL_vz00_1076))->BgL_idz00);} } } } } 
}



/* compile-lisp-atom2776 */
obj_t BGl_compilezd2lispzd2atom2776z00zzdotnet_lispz00(obj_t BgL_envz00_3177, obj_t BgL_ez00_3178)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 7 */
{ /* ./DotNet/lisp.scm 8 */
BgL_atomz00_bglt BgL_ez00_3188;
BgL_ez00_3188 = 
(BgL_atomz00_bglt)(BgL_ez00_3178); 
return 
(((BgL_atomz00_bglt)CREF(BgL_ez00_3188))->BgL_valuez00);} } 
}



/* compile-lisp */
BGL_EXPORTED_DEF obj_t BGl_compilezd2lispzd2zzdotnet_lispz00(BgL_nodez00_bglt BgL_ez00_1)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 5 */
{ /* ./DotNet/lisp.scm 5 */
obj_t BgL_method2774z00_3071;
{ /* ./DotNet/lisp.scm 5 */
BgL_objectz00_bglt BgL_objz00_3072;
BgL_objz00_3072 = 
(BgL_objectz00_bglt)(BgL_ez00_1); 
{ /* ./DotNet/lisp.scm 5 */
long BgL_objzd2classzd2numz00_3073;
BgL_objzd2classzd2numz00_3073 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3072); 
{ /* ./DotNet/lisp.scm 5 */
obj_t BgL_arg2017z00_3074;
{ /* ./DotNet/lisp.scm 5 */
int BgL_auxz00_4716;
BgL_auxz00_4716 = 
(int)(((long)1)); 
BgL_arg2017z00_3074 = 
PROCEDURE_REF(BGl_compilezd2lispzd2envz00zzdotnet_lispz00, BgL_auxz00_4716); } 
{ /* ./DotNet/lisp.scm 5 */
int BgL_offsetz00_3077;
BgL_offsetz00_3077 = 
(int)(BgL_objzd2classzd2numz00_3073); 
{ /* ./DotNet/lisp.scm 5 */
long BgL_offsetz00_3078;
{ /* ./DotNet/lisp.scm 5 */
long BgL_auxz00_4720;
BgL_auxz00_4720 = 
(long)(BgL_offsetz00_3077); 
BgL_offsetz00_3078 = 
(BgL_auxz00_4720-OBJECT_TYPE); } 
{ /* ./DotNet/lisp.scm 5 */
long BgL_modz00_3079;
{ /* ./DotNet/lisp.scm 5 */
int BgL_arg2028z00_3080;
BgL_arg2028z00_3080 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 5 */
long BgL_n2z00_3088;
BgL_n2z00_3088 = 
(long)(BgL_arg2028z00_3080); 
BgL_modz00_3079 = 
(BgL_offsetz00_3078/BgL_n2z00_3088); } } 
{ /* ./DotNet/lisp.scm 5 */
long BgL_restz00_3081;
{ /* ./DotNet/lisp.scm 5 */
int BgL_arg2024z00_3082;
BgL_arg2024z00_3082 = 
(int)(((long)8)); 
{ /* ./DotNet/lisp.scm 5 */
long BgL_n2z00_3091;
BgL_n2z00_3091 = 
(long)(BgL_arg2024z00_3082); 
BgL_restz00_3081 = 
(BgL_offsetz00_3078%BgL_n2z00_3091); } } 
{ /* ./DotNet/lisp.scm 5 */

{ /* ./DotNet/lisp.scm 5 */
obj_t BgL_bucketz00_3083;
{ /* ./DotNet/lisp.scm 5 */
int BgL_kz00_3093;
BgL_kz00_3093 = 
(int)(BgL_modz00_3079); 
BgL_bucketz00_3083 = 
VECTOR_REF(BgL_arg2017z00_3074,BgL_kz00_3093); } 
{ /* ./DotNet/lisp.scm 5 */
int BgL_kz00_3095;
BgL_kz00_3095 = 
(int)(BgL_restz00_3081); 
BgL_method2774z00_3071 = 
VECTOR_REF(BgL_bucketz00_3083,BgL_kz00_3095); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2774z00_3071)(BgL_method2774z00_3071, 
(obj_t)(BgL_ez00_1), BEOA);} } 
}



/* _compile-lisp4235 */
obj_t BGl__compilezd2lisp4235zd2zzdotnet_lispz00(obj_t BgL_envz00_3099, obj_t BgL_ez00_3100)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 5 */
return 
BGl_compilezd2lispzd2zzdotnet_lispz00(
(BgL_nodez00_bglt)(BgL_ez00_3100));} 
}



/* compile-lisp-default2773 */
obj_t BGl_compilezd2lispzd2default2773z00zzdotnet_lispz00(BgL_nodez00_bglt BgL_ez00_2)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 1 */
{ /* ./DotNet/lisp.scm 1 */
obj_t BgL_procz00_3096;obj_t BgL_objectz00_3098;
BgL_procz00_3096 = 
CNST_TABLE_REF(((long)23)); 
BgL_objectz00_3098 = 
(obj_t)(BgL_ez00_2); 
FAILURE(BgL_procz00_3096,BGl_string4932z00zzdotnet_lispz00,BgL_objectz00_3098);} } 
}



/* _compile-lisp-default2773 */
obj_t BGl__compilezd2lispzd2default2773z00zzdotnet_lispz00(obj_t BgL_envz00_3179, obj_t BgL_ez00_3180)
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 1 */
return 
BGl_compilezd2lispzd2default2773z00zzdotnet_lispz00(
(BgL_nodez00_bglt)(BgL_ez00_3180));} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzdotnet_lispz00()
{ AN_OBJECT;
{ /* ./DotNet/lisp.scm 1 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "dotnet_lisp"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "dotnet_lisp"); 
return 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "dotnet_lisp");} 
}

