/*===========================================================================*/
/*   (Ast/lvtype.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 Ast/lvtype.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_methodzd2initzd2zzast_lvtypez00();
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl_lvtypezd2nodez12zd2app2717z12zzast_lvtypez00(obj_t, obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
static obj_t BGl_lvtypezd2nodez12zd2select2733z12zzast_lvtypez00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_lvtypezd2nodez12zc0zzast_lvtypez00(BgL_nodez00_bglt);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
static obj_t BGl_lvtypezd2nodez12zd2cast2725z12zzast_lvtypez00(obj_t, obj_t);
extern obj_t BGl_kwotez00zzast_nodez00;
static obj_t BGl_lvtypezd2nodez12zd2boxzd2ref2748zc0zzast_lvtypez00(obj_t, obj_t);
static obj_t BGl__lvtypezd2nodez12zd2default2704z12zzast_lvtypez00(obj_t, obj_t);
static obj_t BGl_lvtypezd2nodez12zd2letzd2var2737zc0zzast_lvtypez00(obj_t, obj_t);
extern obj_t BGl_za2_za2z00zztype_cachez00;
extern BgL_typez00_bglt BGl_typeofz00zztype_typeofz00(BgL_nodez00_bglt);
static obj_t BGl_lvtypezd2nodez12zd2makezd2box2744zc0zzast_lvtypez00(obj_t, obj_t);
static obj_t BGl_lvtypezd2nodez12zd2kwote2709z12zzast_lvtypez00(obj_t, obj_t);
static obj_t BGl_lvtypezd2nodez12zd2closure2713z12zzast_lvtypez00(obj_t, obj_t);
extern obj_t BGl_castz00zzast_nodez00;
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
static obj_t BGl_lvtypezd2nodez12zd2letzd2fun2735zc0zzast_lvtypez00(obj_t, obj_t);
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_cnstzd2initzd2zzast_lvtypez00();
extern obj_t BGl_atomz00zzast_nodez00;
static obj_t BGl_lvtypezd2nodez12zd2setzd2exzd2it2740z12zzast_lvtypez00(obj_t, obj_t);
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
static obj_t BGl_importedzd2moduleszd2initz00zzast_lvtypez00();
static obj_t BGl_lvtypezd2nodez12zd2appzd2ly2719zc0zzast_lvtypez00(obj_t, obj_t);
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzast_lvtypez00();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzast_lvtypez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typeofz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(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 *);
static obj_t BGl_lvtypezd2nodez12zd2default2704z12zzast_lvtypez00(BgL_nodez00_bglt);
static obj_t BGl_lvtypezd2nodez12zd2setq2727z12zzast_lvtypez00(obj_t, obj_t);
static obj_t BGl_lvtypezd2nodez12zd2var2711z12zzast_lvtypez00(obj_t, obj_t);
static obj_t BGl_lvtypezd2nodez12zd2sequence2715z12zzast_lvtypez00(obj_t, obj_t);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
static obj_t BGl_lvtypezd2nodez12zd2atom2707z12zzast_lvtypez00(obj_t, obj_t);
extern obj_t BGl_shapez00zztools_shapez00(obj_t);
static obj_t BGl_lvtypezd2nodez12zd2extern2723z12zzast_lvtypez00(obj_t, obj_t);
static obj_t BGl_lvtypezd2nodez12zd2boxzd2setz122746zd2zzast_lvtypez00(obj_t, obj_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
static obj_t BGl_setzd2variablezd2typez12z12zzast_lvtypez00(BgL_variablez00_bglt, BgL_typez00_bglt);
static obj_t BGl_lvtypezd2nodez12zd2jumpzd2exzd2it2742z12zzast_lvtypez00(obj_t, obj_t);
extern obj_t BGl_externz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
extern obj_t BGl_sequencez00zzast_nodez00;
static obj_t BGl__lvtypezd2nodez123442zc0zzast_lvtypez00(obj_t, obj_t);
extern obj_t BGl_internalzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_lvtypezd2nodez12zd2funcall2721z12zzast_lvtypez00(obj_t, obj_t);
extern obj_t BGl_appz00zzast_nodez00;
extern obj_t BGl_closurez00zzast_nodez00;
extern obj_t BGl_za2objza2z00zztype_cachez00;
static obj_t BGl_lvtypezd2nodez12zd2fail2731z12zzast_lvtypez00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzast_lvtypez00 = BUNSPEC;
static obj_t BGl_lvtypezd2nodez12zd2conditional2729z12zzast_lvtypez00(obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzast_lvtypez00();
static bool_t BGl_lvtypezd2nodeza2z12z62zzast_lvtypez00(obj_t);
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t __cnst[ 1 ] ;


DEFINE_EXPORT_GENERIC( BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_bgl__lvtypeza7d2nodeza7123442za7c0za7za7ast_lvtypeza7003898z00, BGl__lvtypezd2nodez123442zc0zzast_lvtypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_lvtypezd2nodez12zd2default2704zd2envzc0zzast_lvtypez00, BgL_bgl__lvtypeza7d2nodeza712za7d2default2704za712za7za7ast_lvtypeza7003899za7, BGl__lvtypezd2nodez12zd2default2704z12zzast_lvtypez00, 0L, 1 );
DEFINE_STRING( BGl_string3869z00zzast_lvtypez00, BgL_bgl_string3869za700za7za7ast_lvtypeza7003900z00, "lvtype-node!-default2704 ", 25 );
DEFINE_STRING( BGl_string3868z00zzast_lvtypez00, BgL_bgl_string3868za700za7za7ast_lvtypeza7003901z00, "No method for this object", 25 );
DEFINE_STRING( BGl_string3867z00zzast_lvtypez00, BgL_bgl_string3867za700za7za7ast_lvtypeza7003902z00, "Unexpected closure", 18 );
DEFINE_STRING( BGl_string3866z00zzast_lvtypez00, BgL_bgl_string3866za700za7za7ast_lvtypeza7003903z00, "lvtype-node!", 12 );
DEFINE_STATIC_PROCEDURE( BGl_proc3845z00zzast_lvtypez00, BgL_bgl_lvtypeza7d2nodeza712za7d2atom2707za712za7za7ast_lvtypeza7003904za7, BGl_lvtypezd2nodez12zd2atom2707z12zzast_lvtypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3846z00zzast_lvtypez00, BgL_bgl_lvtypeza7d2nodeza712za7d2kwote2709za712za7za7ast_lvtypeza7003905za7, BGl_lvtypezd2nodez12zd2kwote2709z12zzast_lvtypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3847z00zzast_lvtypez00, BgL_bgl_lvtypeza7d2nodeza712za7d2var2711za712za7za7ast_lvtypeza7003906za7, BGl_lvtypezd2nodez12zd2var2711z12zzast_lvtypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3848z00zzast_lvtypez00, BgL_bgl_lvtypeza7d2nodeza712za7d2closure2713za712za7za7ast_lvtypeza7003907za7, BGl_lvtypezd2nodez12zd2closure2713z12zzast_lvtypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3850z00zzast_lvtypez00, BgL_bgl_lvtypeza7d2nodeza712za7d2app2717za712za7za7ast_lvtypeza7003908za7, BGl_lvtypezd2nodez12zd2app2717z12zzast_lvtypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3849z00zzast_lvtypez00, BgL_bgl_lvtypeza7d2nodeza712za7d2sequence2715za712za7za7ast_lvtypeza7003909za7, BGl_lvtypezd2nodez12zd2sequence2715z12zzast_lvtypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3851z00zzast_lvtypez00, BgL_bgl_lvtypeza7d2nodeza712za7d2appza7d2ly2719za7c0za7za7ast_lvtypeza7003910z00, BGl_lvtypezd2nodez12zd2appzd2ly2719zc0zzast_lvtypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3852z00zzast_lvtypez00, BgL_bgl_lvtypeza7d2nodeza712za7d2funcall2721za712za7za7ast_lvtypeza7003911za7, BGl_lvtypezd2nodez12zd2funcall2721z12zzast_lvtypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3853z00zzast_lvtypez00, BgL_bgl_lvtypeza7d2nodeza712za7d2extern2723za712za7za7ast_lvtypeza7003912za7, BGl_lvtypezd2nodez12zd2extern2723z12zzast_lvtypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3854z00zzast_lvtypez00, BgL_bgl_lvtypeza7d2nodeza712za7d2cast2725za712za7za7ast_lvtypeza7003913za7, BGl_lvtypezd2nodez12zd2cast2725z12zzast_lvtypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3855z00zzast_lvtypez00, BgL_bgl_lvtypeza7d2nodeza712za7d2setq2727za712za7za7ast_lvtypeza7003914za7, BGl_lvtypezd2nodez12zd2setq2727z12zzast_lvtypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3856z00zzast_lvtypez00, BgL_bgl_lvtypeza7d2nodeza712za7d2conditional2729za712za7za7ast_lvtypeza7003915za7, BGl_lvtypezd2nodez12zd2conditional2729z12zzast_lvtypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3857z00zzast_lvtypez00, BgL_bgl_lvtypeza7d2nodeza712za7d2fail2731za712za7za7ast_lvtypeza7003916za7, BGl_lvtypezd2nodez12zd2fail2731z12zzast_lvtypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3858z00zzast_lvtypez00, BgL_bgl_lvtypeza7d2nodeza712za7d2select2733za712za7za7ast_lvtypeza7003917za7, BGl_lvtypezd2nodez12zd2select2733z12zzast_lvtypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3860z00zzast_lvtypez00, BgL_bgl_lvtypeza7d2nodeza712za7d2letza7d2var2737za7c0za7za7ast_lvtypeza7003918z00, BGl_lvtypezd2nodez12zd2letzd2var2737zc0zzast_lvtypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3859z00zzast_lvtypez00, BgL_bgl_lvtypeza7d2nodeza712za7d2letza7d2fun2735za7c0za7za7ast_lvtypeza7003919z00, BGl_lvtypezd2nodez12zd2letzd2fun2735zc0zzast_lvtypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3861z00zzast_lvtypez00, BgL_bgl_lvtypeza7d2nodeza712za7d2setza7d2exza7d2it2740za712za7za7ast_lvtypeza7003920za7, BGl_lvtypezd2nodez12zd2setzd2exzd2it2740z12zzast_lvtypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3862z00zzast_lvtypez00, BgL_bgl_lvtypeza7d2nodeza712za7d2jumpza7d2exza7d2it2742za712za7za7ast_lvtypeza7003921za7, BGl_lvtypezd2nodez12zd2jumpzd2exzd2it2742z12zzast_lvtypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3863z00zzast_lvtypez00, BgL_bgl_lvtypeza7d2nodeza712za7d2makeza7d2box2744za7c0za7za7ast_lvtypeza7003922z00, BGl_lvtypezd2nodez12zd2makezd2box2744zc0zzast_lvtypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3864z00zzast_lvtypez00, BgL_bgl_lvtypeza7d2nodeza712za7d2boxza7d2setza7122746za7d2za7za7ast_lvtypeza7003923za7, BGl_lvtypezd2nodez12zd2boxzd2setz122746zd2zzast_lvtypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3865z00zzast_lvtypez00, BgL_bgl_lvtypeza7d2nodeza712za7d2boxza7d2ref2748za7c0za7za7ast_lvtypeza7003924z00, BGl_lvtypezd2nodez12zd2boxzd2ref2748zc0zzast_lvtypez00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzast_lvtypez00(long BgL_checksumz00_2100, char * BgL_fromz00_2101)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzast_lvtypez00))
{ 
BGl_requirezd2initializa7ationz75zzast_lvtypez00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzast_lvtypez00(); 
BGl_cnstzd2initzd2zzast_lvtypez00(); 
BGl_importedzd2moduleszd2initz00zzast_lvtypez00(); 
BGl_methodzd2initzd2zzast_lvtypez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzast_lvtypez00()
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 16 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "ast_lvtype"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "ast_lvtype"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzast_lvtypez00()
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 16 */
{ /* ./Ast/lvtype.scm 16 */
obj_t BgL_cportz00_2087;
BgL_cportz00_2087 = 
open_input_string(BGl_string3869z00zzast_lvtypez00); 
{ 
long BgL_iz00_2088;
BgL_iz00_2088 = ((long)0); 
BgL_loopz00_2089:
{ /* ./Ast/lvtype.scm 16 */
bool_t BgL_test3871z00_2090;
BgL_test3871z00_2090 = 
(BgL_iz00_2088==((long)-1)); 
if(BgL_test3871z00_2090)
{ /* ./Ast/lvtype.scm 16 */
return BUNSPEC;}  else 
{ /* ./Ast/lvtype.scm 16 */
{ /* ./Ast/lvtype.scm 16 */
obj_t BgL_arg3873z00_2091;
{ /* ./Ast/lvtype.scm 16 */
obj_t BgL_list3876z00_2092;
BgL_list3876z00_2092 = 
MAKE_PAIR(BgL_cportz00_2087, BNIL); 
BgL_arg3873z00_2091 = 
BGl_readz00zz__readerz00(BgL_list3876z00_2092); } 
{ /* ./Ast/lvtype.scm 16 */
int BgL_auxz00_2116;
BgL_auxz00_2116 = 
(int)(BgL_iz00_2088); 
CNST_TABLE_SET(BgL_auxz00_2116, BgL_arg3873z00_2091); } } 
{ /* ./Ast/lvtype.scm 16 */
int BgL_auxz00_2093;
{ /* ./Ast/lvtype.scm 16 */
long BgL_auxz00_2119;
BgL_auxz00_2119 = 
(BgL_iz00_2088-((long)1)); 
BgL_auxz00_2093 = 
(int)(BgL_auxz00_2119); } 
{ 
long BgL_iz00_2122;
BgL_iz00_2122 = 
(long)(BgL_auxz00_2093); 
BgL_iz00_2088 = BgL_iz00_2122; 
goto BgL_loopz00_2089;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzast_lvtypez00()
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 16 */
return BUNSPEC;} 
}



/* lvtype-node*! */
bool_t BGl_lvtypezd2nodeza2z12z62zzast_lvtypez00(obj_t BgL_nodeza2za2_24)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 199 */
{ 
obj_t BgL_l2702z00_684;
BgL_l2702z00_684 = BgL_nodeza2za2_24; 
BgL_forzd2each2703zd2_685:
{ /* ./Ast/lvtype.scm 200 */
bool_t BgL_test2750z00_686;
BgL_test2750z00_686 = 
PAIRP(BgL_l2702z00_684); 
if(BgL_test2750z00_686)
{ /* ./Ast/lvtype.scm 200 */
{ /* ./Ast/lvtype.scm 200 */
obj_t BgL_arg2752z00_687;
BgL_arg2752z00_687 = 
CAR(BgL_l2702z00_684); 
{ /* ./Ast/lvtype.scm 200 */
BgL_nodez00_bglt BgL_nodez00_1230;
BgL_nodez00_1230 = 
(BgL_nodez00_bglt)(BgL_arg2752z00_687); 
{ /* ./Ast/lvtype.scm 200 */
obj_t BgL_method2705z00_1231;
{ /* ./Ast/lvtype.scm 200 */
BgL_objectz00_bglt BgL_objz00_1232;
BgL_objz00_1232 = 
(BgL_objectz00_bglt)(BgL_nodez00_1230); 
{ /* ./Ast/lvtype.scm 200 */
long BgL_objzd2classzd2numz00_1233;
BgL_objzd2classzd2numz00_1233 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1232); 
{ /* ./Ast/lvtype.scm 200 */
obj_t BgL_arg2017z00_1234;
{ /* ./Ast/lvtype.scm 200 */
int BgL_auxz00_2130;
BgL_auxz00_2130 = 
(int)(((long)1)); 
BgL_arg2017z00_1234 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2130); } 
{ /* ./Ast/lvtype.scm 200 */
int BgL_offsetz00_1237;
BgL_offsetz00_1237 = 
(int)(BgL_objzd2classzd2numz00_1233); 
{ /* ./Ast/lvtype.scm 200 */
long BgL_offsetz00_1238;
{ /* ./Ast/lvtype.scm 200 */
long BgL_auxz00_2134;
BgL_auxz00_2134 = 
(long)(BgL_offsetz00_1237); 
BgL_offsetz00_1238 = 
(BgL_auxz00_2134-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 200 */
long BgL_modz00_1239;
{ /* ./Ast/lvtype.scm 200 */
int BgL_arg2028z00_1240;
BgL_arg2028z00_1240 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 200 */
long BgL_n2z00_1248;
BgL_n2z00_1248 = 
(long)(BgL_arg2028z00_1240); 
BgL_modz00_1239 = 
(BgL_offsetz00_1238/BgL_n2z00_1248); } } 
{ /* ./Ast/lvtype.scm 200 */
long BgL_restz00_1241;
{ /* ./Ast/lvtype.scm 200 */
int BgL_arg2024z00_1242;
BgL_arg2024z00_1242 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 200 */
long BgL_n2z00_1251;
BgL_n2z00_1251 = 
(long)(BgL_arg2024z00_1242); 
BgL_restz00_1241 = 
(BgL_offsetz00_1238%BgL_n2z00_1251); } } 
{ /* ./Ast/lvtype.scm 200 */

{ /* ./Ast/lvtype.scm 200 */
obj_t BgL_bucketz00_1243;
{ /* ./Ast/lvtype.scm 200 */
int BgL_kz00_1253;
BgL_kz00_1253 = 
(int)(BgL_modz00_1239); 
BgL_bucketz00_1243 = 
VECTOR_REF(BgL_arg2017z00_1234,BgL_kz00_1253); } 
{ /* ./Ast/lvtype.scm 200 */
int BgL_kz00_1255;
BgL_kz00_1255 = 
(int)(BgL_restz00_1241); 
BgL_method2705z00_1231 = 
VECTOR_REF(BgL_bucketz00_1243,BgL_kz00_1255); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2705z00_1231)(BgL_method2705z00_1231, 
(obj_t)(BgL_nodez00_1230), BEOA); } } } 
{ /* ./Ast/lvtype.scm 200 */
obj_t BgL_arg2756z00_688;
BgL_arg2756z00_688 = 
CDR(BgL_l2702z00_684); 
{ 
obj_t BgL_l2702z00_2151;
BgL_l2702z00_2151 = BgL_arg2756z00_688; 
BgL_l2702z00_684 = BgL_l2702z00_2151; 
goto BgL_forzd2each2703zd2_685;} } }  else 
{ /* ./Ast/lvtype.scm 200 */
return ((bool_t)1);} } } } 
}



/* set-variable-type! */
obj_t BGl_setzd2variablezd2typez12z12zzast_lvtypez00(BgL_variablez00_bglt BgL_variablez00_25, BgL_typez00_bglt BgL_typez00_26)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 205 */
{ /* ./Ast/lvtype.scm 206 */
obj_t BgL_ntypez00_689;BgL_typez00_bglt BgL_otypez00_690;
{ /* ./Ast/lvtype.scm 206 */
bool_t BgL_test2763z00_692;
{ /* ./Ast/lvtype.scm 206 */
obj_t BgL_auxz00_2152;
BgL_auxz00_2152 = 
(obj_t)(BgL_typez00_26); 
BgL_test2763z00_692 = 
(BgL_auxz00_2152==BGl_za2_za2z00zztype_cachez00); } 
if(BgL_test2763z00_692)
{ /* ./Ast/lvtype.scm 206 */
BgL_ntypez00_689 = BGl_za2objza2z00zztype_cachez00; }  else 
{ /* ./Ast/lvtype.scm 206 */
BgL_ntypez00_689 = 
(obj_t)(BgL_typez00_26); } } 
BgL_otypez00_690 = 
(((BgL_variablez00_bglt)CREF(BgL_variablez00_25))->BgL_typez00); 
{ /* ./Ast/lvtype.scm 208 */
bool_t BgL_test2760z00_691;
{ /* ./Ast/lvtype.scm 208 */
obj_t BgL_auxz00_2158;
BgL_auxz00_2158 = 
(obj_t)(BgL_otypez00_690); 
BgL_test2760z00_691 = 
(BgL_auxz00_2158==BGl_za2_za2z00zztype_cachez00); } 
if(BgL_test2760z00_691)
{ /* ./Ast/lvtype.scm 209 */
BgL_variablez00_bglt BgL_obj1099z00_1258;BgL_typez00_bglt BgL_val1098z00_1259;
BgL_obj1099z00_1258 = BgL_variablez00_25; 
BgL_val1098z00_1259 = 
(BgL_typez00_bglt)(BgL_ntypez00_689); 
return 
((((BgL_variablez00_bglt)CREF(BgL_obj1099z00_1258))->BgL_typez00) = ((BgL_typez00_bglt)BgL_val1098z00_1259), BUNSPEC);}  else 
{ /* ./Ast/lvtype.scm 208 */
return BFALSE;} } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzast_lvtypez00()
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 16 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BGl_lvtypezd2nodez12zd2default2704zd2envzc0zzast_lvtypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BGl_atomz00zzast_nodez00, BGl_proc3845z00zzast_lvtypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BGl_kwotez00zzast_nodez00, BGl_proc3846z00zzast_lvtypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BGl_varz00zzast_nodez00, BGl_proc3847z00zzast_lvtypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BGl_closurez00zzast_nodez00, BGl_proc3848z00zzast_lvtypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BGl_sequencez00zzast_nodez00, BGl_proc3849z00zzast_lvtypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BGl_appz00zzast_nodez00, BGl_proc3850z00zzast_lvtypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BGl_appzd2lyzd2zzast_nodez00, BGl_proc3851z00zzast_lvtypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BGl_funcallz00zzast_nodez00, BGl_proc3852z00zzast_lvtypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BGl_externz00zzast_nodez00, BGl_proc3853z00zzast_lvtypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BGl_castz00zzast_nodez00, BGl_proc3854z00zzast_lvtypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BGl_setqz00zzast_nodez00, BGl_proc3855z00zzast_lvtypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BGl_conditionalz00zzast_nodez00, BGl_proc3856z00zzast_lvtypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BGl_failz00zzast_nodez00, BGl_proc3857z00zzast_lvtypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BGl_selectz00zzast_nodez00, BGl_proc3858z00zzast_lvtypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BGl_letzd2funzd2zzast_nodez00, BGl_proc3859z00zzast_lvtypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BGl_letzd2varzd2zzast_nodez00, BGl_proc3860z00zzast_lvtypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc3861z00zzast_lvtypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc3862z00zzast_lvtypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BGl_makezd2boxzd2zzast_nodez00, BGl_proc3863z00zzast_lvtypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc3864z00zzast_lvtypez00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BGl_boxzd2refzd2zzast_nodez00, BGl_proc3865z00zzast_lvtypez00);} 
}



/* lvtype-node!-box-ref2748 */
obj_t BGl_lvtypezd2nodez12zd2boxzd2ref2748zc0zzast_lvtypez00(obj_t BgL_envz00_2043, obj_t BgL_nodez00_2044)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 192 */
{ 
BgL_boxzd2refzd2_bglt BgL_nodez00_1220;
BgL_nodez00_1220 = 
(BgL_boxzd2refzd2_bglt)(BgL_nodez00_2044); 
{ /* ./Ast/lvtype.scm 193 */
BgL_varz00_bglt BgL_arg3368z00_1964;
BgL_arg3368z00_1964 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_nodez00_1220))->BgL_varz00); 
{ /* ./Ast/lvtype.scm 193 */
BgL_nodez00_bglt BgL_nodez00_1966;
BgL_nodez00_1966 = 
(BgL_nodez00_bglt)(BgL_arg3368z00_1964); 
{ /* ./Ast/lvtype.scm 193 */
obj_t BgL_method2705z00_1967;
{ /* ./Ast/lvtype.scm 193 */
BgL_objectz00_bglt BgL_objz00_1968;
BgL_objz00_1968 = 
(BgL_objectz00_bglt)(BgL_nodez00_1966); 
{ /* ./Ast/lvtype.scm 193 */
long BgL_objzd2classzd2numz00_1969;
BgL_objzd2classzd2numz00_1969 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1968); 
{ /* ./Ast/lvtype.scm 193 */
obj_t BgL_arg2017z00_1970;
{ /* ./Ast/lvtype.scm 193 */
int BgL_auxz00_2190;
BgL_auxz00_2190 = 
(int)(((long)1)); 
BgL_arg2017z00_1970 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2190); } 
{ /* ./Ast/lvtype.scm 193 */
int BgL_offsetz00_1973;
BgL_offsetz00_1973 = 
(int)(BgL_objzd2classzd2numz00_1969); 
{ /* ./Ast/lvtype.scm 193 */
long BgL_offsetz00_1974;
{ /* ./Ast/lvtype.scm 193 */
long BgL_auxz00_2194;
BgL_auxz00_2194 = 
(long)(BgL_offsetz00_1973); 
BgL_offsetz00_1974 = 
(BgL_auxz00_2194-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 193 */
long BgL_modz00_1975;
{ /* ./Ast/lvtype.scm 193 */
int BgL_arg2028z00_1976;
BgL_arg2028z00_1976 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 193 */
long BgL_n2z00_1984;
BgL_n2z00_1984 = 
(long)(BgL_arg2028z00_1976); 
BgL_modz00_1975 = 
(BgL_offsetz00_1974/BgL_n2z00_1984); } } 
{ /* ./Ast/lvtype.scm 193 */
long BgL_restz00_1977;
{ /* ./Ast/lvtype.scm 193 */
int BgL_arg2024z00_1978;
BgL_arg2024z00_1978 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 193 */
long BgL_n2z00_1987;
BgL_n2z00_1987 = 
(long)(BgL_arg2024z00_1978); 
BgL_restz00_1977 = 
(BgL_offsetz00_1974%BgL_n2z00_1987); } } 
{ /* ./Ast/lvtype.scm 193 */

{ /* ./Ast/lvtype.scm 193 */
obj_t BgL_bucketz00_1979;
{ /* ./Ast/lvtype.scm 193 */
int BgL_kz00_1989;
BgL_kz00_1989 = 
(int)(BgL_modz00_1975); 
BgL_bucketz00_1979 = 
VECTOR_REF(BgL_arg2017z00_1970,BgL_kz00_1989); } 
{ /* ./Ast/lvtype.scm 193 */
int BgL_kz00_1991;
BgL_kz00_1991 = 
(int)(BgL_restz00_1977); 
BgL_method2705z00_1967 = 
VECTOR_REF(BgL_bucketz00_1979,BgL_kz00_1991); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2705z00_1967)(BgL_method2705z00_1967, 
(obj_t)(BgL_nodez00_1966), BEOA);} } } } } 
}



/* lvtype-node!-box-set!2746 */
obj_t BGl_lvtypezd2nodez12zd2boxzd2setz122746zd2zzast_lvtypez00(obj_t BgL_envz00_2045, obj_t BgL_nodez00_2046)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 184 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_1212;
BgL_nodez00_1212 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_2046); 
{ /* ./Ast/lvtype.scm 186 */
BgL_varz00_bglt BgL_arg3354z00_1216;
BgL_arg3354z00_1216 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1212))->BgL_varz00); 
{ /* ./Ast/lvtype.scm 186 */
BgL_nodez00_bglt BgL_nodez00_1910;
BgL_nodez00_1910 = 
(BgL_nodez00_bglt)(BgL_arg3354z00_1216); 
{ /* ./Ast/lvtype.scm 186 */
obj_t BgL_method2705z00_1911;
{ /* ./Ast/lvtype.scm 186 */
BgL_objectz00_bglt BgL_objz00_1912;
BgL_objz00_1912 = 
(BgL_objectz00_bglt)(BgL_nodez00_1910); 
{ /* ./Ast/lvtype.scm 186 */
long BgL_objzd2classzd2numz00_1913;
BgL_objzd2classzd2numz00_1913 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1912); 
{ /* ./Ast/lvtype.scm 186 */
obj_t BgL_arg2017z00_1914;
{ /* ./Ast/lvtype.scm 186 */
int BgL_auxz00_2215;
BgL_auxz00_2215 = 
(int)(((long)1)); 
BgL_arg2017z00_1914 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2215); } 
{ /* ./Ast/lvtype.scm 186 */
int BgL_offsetz00_1917;
BgL_offsetz00_1917 = 
(int)(BgL_objzd2classzd2numz00_1913); 
{ /* ./Ast/lvtype.scm 186 */
long BgL_offsetz00_1918;
{ /* ./Ast/lvtype.scm 186 */
long BgL_auxz00_2219;
BgL_auxz00_2219 = 
(long)(BgL_offsetz00_1917); 
BgL_offsetz00_1918 = 
(BgL_auxz00_2219-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 186 */
long BgL_modz00_1919;
{ /* ./Ast/lvtype.scm 186 */
int BgL_arg2028z00_1920;
BgL_arg2028z00_1920 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 186 */
long BgL_n2z00_1928;
BgL_n2z00_1928 = 
(long)(BgL_arg2028z00_1920); 
BgL_modz00_1919 = 
(BgL_offsetz00_1918/BgL_n2z00_1928); } } 
{ /* ./Ast/lvtype.scm 186 */
long BgL_restz00_1921;
{ /* ./Ast/lvtype.scm 186 */
int BgL_arg2024z00_1922;
BgL_arg2024z00_1922 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 186 */
long BgL_n2z00_1931;
BgL_n2z00_1931 = 
(long)(BgL_arg2024z00_1922); 
BgL_restz00_1921 = 
(BgL_offsetz00_1918%BgL_n2z00_1931); } } 
{ /* ./Ast/lvtype.scm 186 */

{ /* ./Ast/lvtype.scm 186 */
obj_t BgL_bucketz00_1923;
{ /* ./Ast/lvtype.scm 186 */
int BgL_kz00_1933;
BgL_kz00_1933 = 
(int)(BgL_modz00_1919); 
BgL_bucketz00_1923 = 
VECTOR_REF(BgL_arg2017z00_1914,BgL_kz00_1933); } 
{ /* ./Ast/lvtype.scm 186 */
int BgL_kz00_1935;
BgL_kz00_1935 = 
(int)(BgL_restz00_1921); 
BgL_method2705z00_1911 = 
VECTOR_REF(BgL_bucketz00_1923,BgL_kz00_1935); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2705z00_1911)(BgL_method2705z00_1911, 
(obj_t)(BgL_nodez00_1910), BEOA); } } } 
{ /* ./Ast/lvtype.scm 187 */
BgL_nodez00_bglt BgL_arg3358z00_1217;
BgL_arg3358z00_1217 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1212))->BgL_valuez00); 
{ /* ./Ast/lvtype.scm 187 */
obj_t BgL_method2705z00_1938;
{ /* ./Ast/lvtype.scm 187 */
BgL_objectz00_bglt BgL_objz00_1939;
BgL_objz00_1939 = 
(BgL_objectz00_bglt)(BgL_arg3358z00_1217); 
{ /* ./Ast/lvtype.scm 187 */
long BgL_objzd2classzd2numz00_1940;
BgL_objzd2classzd2numz00_1940 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1939); 
{ /* ./Ast/lvtype.scm 187 */
obj_t BgL_arg2017z00_1941;
{ /* ./Ast/lvtype.scm 187 */
int BgL_auxz00_2238;
BgL_auxz00_2238 = 
(int)(((long)1)); 
BgL_arg2017z00_1941 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2238); } 
{ /* ./Ast/lvtype.scm 187 */
int BgL_offsetz00_1944;
BgL_offsetz00_1944 = 
(int)(BgL_objzd2classzd2numz00_1940); 
{ /* ./Ast/lvtype.scm 187 */
long BgL_offsetz00_1945;
{ /* ./Ast/lvtype.scm 187 */
long BgL_auxz00_2242;
BgL_auxz00_2242 = 
(long)(BgL_offsetz00_1944); 
BgL_offsetz00_1945 = 
(BgL_auxz00_2242-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 187 */
long BgL_modz00_1946;
{ /* ./Ast/lvtype.scm 187 */
int BgL_arg2028z00_1947;
BgL_arg2028z00_1947 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 187 */
long BgL_n2z00_1955;
BgL_n2z00_1955 = 
(long)(BgL_arg2028z00_1947); 
BgL_modz00_1946 = 
(BgL_offsetz00_1945/BgL_n2z00_1955); } } 
{ /* ./Ast/lvtype.scm 187 */
long BgL_restz00_1948;
{ /* ./Ast/lvtype.scm 187 */
int BgL_arg2024z00_1949;
BgL_arg2024z00_1949 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 187 */
long BgL_n2z00_1958;
BgL_n2z00_1958 = 
(long)(BgL_arg2024z00_1949); 
BgL_restz00_1948 = 
(BgL_offsetz00_1945%BgL_n2z00_1958); } } 
{ /* ./Ast/lvtype.scm 187 */

{ /* ./Ast/lvtype.scm 187 */
obj_t BgL_bucketz00_1950;
{ /* ./Ast/lvtype.scm 187 */
int BgL_kz00_1960;
BgL_kz00_1960 = 
(int)(BgL_modz00_1946); 
BgL_bucketz00_1950 = 
VECTOR_REF(BgL_arg2017z00_1941,BgL_kz00_1960); } 
{ /* ./Ast/lvtype.scm 187 */
int BgL_kz00_1962;
BgL_kz00_1962 = 
(int)(BgL_restz00_1948); 
BgL_method2705z00_1938 = 
VECTOR_REF(BgL_bucketz00_1950,BgL_kz00_1962); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2705z00_1938)(BgL_method2705z00_1938, 
(obj_t)(BgL_arg3358z00_1217), BEOA);} } } } 
}



/* lvtype-node!-make-box2744 */
obj_t BGl_lvtypezd2nodez12zd2makezd2box2744zc0zzast_lvtypez00(obj_t BgL_envz00_2047, obj_t BgL_nodez00_2048)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 177 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_1205;
BgL_nodez00_1205 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_2048); 
{ /* ./Ast/lvtype.scm 178 */
BgL_nodez00_bglt BgL_arg3343z00_1881;
BgL_arg3343z00_1881 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1205))->BgL_valuez00); 
{ /* ./Ast/lvtype.scm 178 */
obj_t BgL_method2705z00_1884;
{ /* ./Ast/lvtype.scm 178 */
BgL_objectz00_bglt BgL_objz00_1885;
BgL_objz00_1885 = 
(BgL_objectz00_bglt)(BgL_arg3343z00_1881); 
{ /* ./Ast/lvtype.scm 178 */
long BgL_objzd2classzd2numz00_1886;
BgL_objzd2classzd2numz00_1886 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1885); 
{ /* ./Ast/lvtype.scm 178 */
obj_t BgL_arg2017z00_1887;
{ /* ./Ast/lvtype.scm 178 */
int BgL_auxz00_2262;
BgL_auxz00_2262 = 
(int)(((long)1)); 
BgL_arg2017z00_1887 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2262); } 
{ /* ./Ast/lvtype.scm 178 */
int BgL_offsetz00_1890;
BgL_offsetz00_1890 = 
(int)(BgL_objzd2classzd2numz00_1886); 
{ /* ./Ast/lvtype.scm 178 */
long BgL_offsetz00_1891;
{ /* ./Ast/lvtype.scm 178 */
long BgL_auxz00_2266;
BgL_auxz00_2266 = 
(long)(BgL_offsetz00_1890); 
BgL_offsetz00_1891 = 
(BgL_auxz00_2266-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 178 */
long BgL_modz00_1892;
{ /* ./Ast/lvtype.scm 178 */
int BgL_arg2028z00_1893;
BgL_arg2028z00_1893 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 178 */
long BgL_n2z00_1901;
BgL_n2z00_1901 = 
(long)(BgL_arg2028z00_1893); 
BgL_modz00_1892 = 
(BgL_offsetz00_1891/BgL_n2z00_1901); } } 
{ /* ./Ast/lvtype.scm 178 */
long BgL_restz00_1894;
{ /* ./Ast/lvtype.scm 178 */
int BgL_arg2024z00_1895;
BgL_arg2024z00_1895 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 178 */
long BgL_n2z00_1904;
BgL_n2z00_1904 = 
(long)(BgL_arg2024z00_1895); 
BgL_restz00_1894 = 
(BgL_offsetz00_1891%BgL_n2z00_1904); } } 
{ /* ./Ast/lvtype.scm 178 */

{ /* ./Ast/lvtype.scm 178 */
obj_t BgL_bucketz00_1896;
{ /* ./Ast/lvtype.scm 178 */
int BgL_kz00_1906;
BgL_kz00_1906 = 
(int)(BgL_modz00_1892); 
BgL_bucketz00_1896 = 
VECTOR_REF(BgL_arg2017z00_1887,BgL_kz00_1906); } 
{ /* ./Ast/lvtype.scm 178 */
int BgL_kz00_1908;
BgL_kz00_1908 = 
(int)(BgL_restz00_1894); 
BgL_method2705z00_1884 = 
VECTOR_REF(BgL_bucketz00_1896,BgL_kz00_1908); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2705z00_1884)(BgL_method2705z00_1884, 
(obj_t)(BgL_arg3343z00_1881), BEOA);} } } } 
}



/* lvtype-node!-jump-ex-it2742 */
obj_t BGl_lvtypezd2nodez12zd2jumpzd2exzd2it2742z12zzast_lvtypez00(obj_t BgL_envz00_2049, obj_t BgL_nodez00_2050)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 169 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_1197;
BgL_nodez00_1197 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_2050); 
{ /* ./Ast/lvtype.scm 171 */
BgL_nodez00_bglt BgL_arg3329z00_1201;
BgL_arg3329z00_1201 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1197))->BgL_exitz00); 
{ /* ./Ast/lvtype.scm 171 */
obj_t BgL_method2705z00_1828;
{ /* ./Ast/lvtype.scm 171 */
BgL_objectz00_bglt BgL_objz00_1829;
BgL_objz00_1829 = 
(BgL_objectz00_bglt)(BgL_arg3329z00_1201); 
{ /* ./Ast/lvtype.scm 171 */
long BgL_objzd2classzd2numz00_1830;
BgL_objzd2classzd2numz00_1830 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1829); 
{ /* ./Ast/lvtype.scm 171 */
obj_t BgL_arg2017z00_1831;
{ /* ./Ast/lvtype.scm 171 */
int BgL_auxz00_2286;
BgL_auxz00_2286 = 
(int)(((long)1)); 
BgL_arg2017z00_1831 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2286); } 
{ /* ./Ast/lvtype.scm 171 */
int BgL_offsetz00_1834;
BgL_offsetz00_1834 = 
(int)(BgL_objzd2classzd2numz00_1830); 
{ /* ./Ast/lvtype.scm 171 */
long BgL_offsetz00_1835;
{ /* ./Ast/lvtype.scm 171 */
long BgL_auxz00_2290;
BgL_auxz00_2290 = 
(long)(BgL_offsetz00_1834); 
BgL_offsetz00_1835 = 
(BgL_auxz00_2290-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 171 */
long BgL_modz00_1836;
{ /* ./Ast/lvtype.scm 171 */
int BgL_arg2028z00_1837;
BgL_arg2028z00_1837 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 171 */
long BgL_n2z00_1845;
BgL_n2z00_1845 = 
(long)(BgL_arg2028z00_1837); 
BgL_modz00_1836 = 
(BgL_offsetz00_1835/BgL_n2z00_1845); } } 
{ /* ./Ast/lvtype.scm 171 */
long BgL_restz00_1838;
{ /* ./Ast/lvtype.scm 171 */
int BgL_arg2024z00_1839;
BgL_arg2024z00_1839 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 171 */
long BgL_n2z00_1848;
BgL_n2z00_1848 = 
(long)(BgL_arg2024z00_1839); 
BgL_restz00_1838 = 
(BgL_offsetz00_1835%BgL_n2z00_1848); } } 
{ /* ./Ast/lvtype.scm 171 */

{ /* ./Ast/lvtype.scm 171 */
obj_t BgL_bucketz00_1840;
{ /* ./Ast/lvtype.scm 171 */
int BgL_kz00_1850;
BgL_kz00_1850 = 
(int)(BgL_modz00_1836); 
BgL_bucketz00_1840 = 
VECTOR_REF(BgL_arg2017z00_1831,BgL_kz00_1850); } 
{ /* ./Ast/lvtype.scm 171 */
int BgL_kz00_1852;
BgL_kz00_1852 = 
(int)(BgL_restz00_1838); 
BgL_method2705z00_1828 = 
VECTOR_REF(BgL_bucketz00_1840,BgL_kz00_1852); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2705z00_1828)(BgL_method2705z00_1828, 
(obj_t)(BgL_arg3329z00_1201), BEOA); } } 
{ /* ./Ast/lvtype.scm 172 */
BgL_nodez00_bglt BgL_arg3333z00_1202;
BgL_arg3333z00_1202 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1197))->BgL_valuez00); 
{ /* ./Ast/lvtype.scm 172 */
obj_t BgL_method2705z00_1855;
{ /* ./Ast/lvtype.scm 172 */
BgL_objectz00_bglt BgL_objz00_1856;
BgL_objz00_1856 = 
(BgL_objectz00_bglt)(BgL_arg3333z00_1202); 
{ /* ./Ast/lvtype.scm 172 */
long BgL_objzd2classzd2numz00_1857;
BgL_objzd2classzd2numz00_1857 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1856); 
{ /* ./Ast/lvtype.scm 172 */
obj_t BgL_arg2017z00_1858;
{ /* ./Ast/lvtype.scm 172 */
int BgL_auxz00_2309;
BgL_auxz00_2309 = 
(int)(((long)1)); 
BgL_arg2017z00_1858 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2309); } 
{ /* ./Ast/lvtype.scm 172 */
int BgL_offsetz00_1861;
BgL_offsetz00_1861 = 
(int)(BgL_objzd2classzd2numz00_1857); 
{ /* ./Ast/lvtype.scm 172 */
long BgL_offsetz00_1862;
{ /* ./Ast/lvtype.scm 172 */
long BgL_auxz00_2313;
BgL_auxz00_2313 = 
(long)(BgL_offsetz00_1861); 
BgL_offsetz00_1862 = 
(BgL_auxz00_2313-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 172 */
long BgL_modz00_1863;
{ /* ./Ast/lvtype.scm 172 */
int BgL_arg2028z00_1864;
BgL_arg2028z00_1864 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 172 */
long BgL_n2z00_1872;
BgL_n2z00_1872 = 
(long)(BgL_arg2028z00_1864); 
BgL_modz00_1863 = 
(BgL_offsetz00_1862/BgL_n2z00_1872); } } 
{ /* ./Ast/lvtype.scm 172 */
long BgL_restz00_1865;
{ /* ./Ast/lvtype.scm 172 */
int BgL_arg2024z00_1866;
BgL_arg2024z00_1866 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 172 */
long BgL_n2z00_1875;
BgL_n2z00_1875 = 
(long)(BgL_arg2024z00_1866); 
BgL_restz00_1865 = 
(BgL_offsetz00_1862%BgL_n2z00_1875); } } 
{ /* ./Ast/lvtype.scm 172 */

{ /* ./Ast/lvtype.scm 172 */
obj_t BgL_bucketz00_1867;
{ /* ./Ast/lvtype.scm 172 */
int BgL_kz00_1877;
BgL_kz00_1877 = 
(int)(BgL_modz00_1863); 
BgL_bucketz00_1867 = 
VECTOR_REF(BgL_arg2017z00_1858,BgL_kz00_1877); } 
{ /* ./Ast/lvtype.scm 172 */
int BgL_kz00_1879;
BgL_kz00_1879 = 
(int)(BgL_restz00_1865); 
BgL_method2705z00_1855 = 
VECTOR_REF(BgL_bucketz00_1867,BgL_kz00_1879); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2705z00_1855)(BgL_method2705z00_1855, 
(obj_t)(BgL_arg3333z00_1202), BEOA);} } } } 
}



/* lvtype-node!-set-ex-it2740 */
obj_t BGl_lvtypezd2nodez12zd2setzd2exzd2it2740z12zzast_lvtypez00(obj_t BgL_envz00_2051, obj_t BgL_nodez00_2052)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 161 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_1189;
BgL_nodez00_1189 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_2052); 
{ /* ./Ast/lvtype.scm 163 */
BgL_nodez00_bglt BgL_arg3315z00_1193;
BgL_arg3315z00_1193 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1189))->BgL_bodyz00); 
{ /* ./Ast/lvtype.scm 163 */
obj_t BgL_method2705z00_1774;
{ /* ./Ast/lvtype.scm 163 */
BgL_objectz00_bglt BgL_objz00_1775;
BgL_objz00_1775 = 
(BgL_objectz00_bglt)(BgL_arg3315z00_1193); 
{ /* ./Ast/lvtype.scm 163 */
long BgL_objzd2classzd2numz00_1776;
BgL_objzd2classzd2numz00_1776 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1775); 
{ /* ./Ast/lvtype.scm 163 */
obj_t BgL_arg2017z00_1777;
{ /* ./Ast/lvtype.scm 163 */
int BgL_auxz00_2333;
BgL_auxz00_2333 = 
(int)(((long)1)); 
BgL_arg2017z00_1777 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2333); } 
{ /* ./Ast/lvtype.scm 163 */
int BgL_offsetz00_1780;
BgL_offsetz00_1780 = 
(int)(BgL_objzd2classzd2numz00_1776); 
{ /* ./Ast/lvtype.scm 163 */
long BgL_offsetz00_1781;
{ /* ./Ast/lvtype.scm 163 */
long BgL_auxz00_2337;
BgL_auxz00_2337 = 
(long)(BgL_offsetz00_1780); 
BgL_offsetz00_1781 = 
(BgL_auxz00_2337-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 163 */
long BgL_modz00_1782;
{ /* ./Ast/lvtype.scm 163 */
int BgL_arg2028z00_1783;
BgL_arg2028z00_1783 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 163 */
long BgL_n2z00_1791;
BgL_n2z00_1791 = 
(long)(BgL_arg2028z00_1783); 
BgL_modz00_1782 = 
(BgL_offsetz00_1781/BgL_n2z00_1791); } } 
{ /* ./Ast/lvtype.scm 163 */
long BgL_restz00_1784;
{ /* ./Ast/lvtype.scm 163 */
int BgL_arg2024z00_1785;
BgL_arg2024z00_1785 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 163 */
long BgL_n2z00_1794;
BgL_n2z00_1794 = 
(long)(BgL_arg2024z00_1785); 
BgL_restz00_1784 = 
(BgL_offsetz00_1781%BgL_n2z00_1794); } } 
{ /* ./Ast/lvtype.scm 163 */

{ /* ./Ast/lvtype.scm 163 */
obj_t BgL_bucketz00_1786;
{ /* ./Ast/lvtype.scm 163 */
int BgL_kz00_1796;
BgL_kz00_1796 = 
(int)(BgL_modz00_1782); 
BgL_bucketz00_1786 = 
VECTOR_REF(BgL_arg2017z00_1777,BgL_kz00_1796); } 
{ /* ./Ast/lvtype.scm 163 */
int BgL_kz00_1798;
BgL_kz00_1798 = 
(int)(BgL_restz00_1784); 
BgL_method2705z00_1774 = 
VECTOR_REF(BgL_bucketz00_1786,BgL_kz00_1798); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2705z00_1774)(BgL_method2705z00_1774, 
(obj_t)(BgL_arg3315z00_1193), BEOA); } } 
{ /* ./Ast/lvtype.scm 164 */
BgL_varz00_bglt BgL_arg3319z00_1194;
BgL_arg3319z00_1194 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1189))->BgL_varz00); 
{ /* ./Ast/lvtype.scm 164 */
BgL_nodez00_bglt BgL_nodez00_1800;
BgL_nodez00_1800 = 
(BgL_nodez00_bglt)(BgL_arg3319z00_1194); 
{ /* ./Ast/lvtype.scm 164 */
obj_t BgL_method2705z00_1801;
{ /* ./Ast/lvtype.scm 164 */
BgL_objectz00_bglt BgL_objz00_1802;
BgL_objz00_1802 = 
(BgL_objectz00_bglt)(BgL_nodez00_1800); 
{ /* ./Ast/lvtype.scm 164 */
long BgL_objzd2classzd2numz00_1803;
BgL_objzd2classzd2numz00_1803 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1802); 
{ /* ./Ast/lvtype.scm 164 */
obj_t BgL_arg2017z00_1804;
{ /* ./Ast/lvtype.scm 164 */
int BgL_auxz00_2357;
BgL_auxz00_2357 = 
(int)(((long)1)); 
BgL_arg2017z00_1804 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2357); } 
{ /* ./Ast/lvtype.scm 164 */
int BgL_offsetz00_1807;
BgL_offsetz00_1807 = 
(int)(BgL_objzd2classzd2numz00_1803); 
{ /* ./Ast/lvtype.scm 164 */
long BgL_offsetz00_1808;
{ /* ./Ast/lvtype.scm 164 */
long BgL_auxz00_2361;
BgL_auxz00_2361 = 
(long)(BgL_offsetz00_1807); 
BgL_offsetz00_1808 = 
(BgL_auxz00_2361-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 164 */
long BgL_modz00_1809;
{ /* ./Ast/lvtype.scm 164 */
int BgL_arg2028z00_1810;
BgL_arg2028z00_1810 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 164 */
long BgL_n2z00_1818;
BgL_n2z00_1818 = 
(long)(BgL_arg2028z00_1810); 
BgL_modz00_1809 = 
(BgL_offsetz00_1808/BgL_n2z00_1818); } } 
{ /* ./Ast/lvtype.scm 164 */
long BgL_restz00_1811;
{ /* ./Ast/lvtype.scm 164 */
int BgL_arg2024z00_1812;
BgL_arg2024z00_1812 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 164 */
long BgL_n2z00_1821;
BgL_n2z00_1821 = 
(long)(BgL_arg2024z00_1812); 
BgL_restz00_1811 = 
(BgL_offsetz00_1808%BgL_n2z00_1821); } } 
{ /* ./Ast/lvtype.scm 164 */

{ /* ./Ast/lvtype.scm 164 */
obj_t BgL_bucketz00_1813;
{ /* ./Ast/lvtype.scm 164 */
int BgL_kz00_1823;
BgL_kz00_1823 = 
(int)(BgL_modz00_1809); 
BgL_bucketz00_1813 = 
VECTOR_REF(BgL_arg2017z00_1804,BgL_kz00_1823); } 
{ /* ./Ast/lvtype.scm 164 */
int BgL_kz00_1825;
BgL_kz00_1825 = 
(int)(BgL_restz00_1811); 
BgL_method2705z00_1801 = 
VECTOR_REF(BgL_bucketz00_1813,BgL_kz00_1825); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2705z00_1801)(BgL_method2705z00_1801, 
(obj_t)(BgL_nodez00_1800), BEOA);} } } } } 
}



/* lvtype-node!-let-var2737 */
obj_t BGl_lvtypezd2nodez12zd2letzd2var2737zc0zzast_lvtypez00(obj_t BgL_envz00_2053, obj_t BgL_nodez00_2054)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 148 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1173;
BgL_nodez00_1173 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_2054); 
{ 
obj_t BgL_l2690z00_1177;
{ /* ./Ast/lvtype.scm 150 */
obj_t BgL_arg3287z00_1179;
BgL_arg3287z00_1179 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1173))->BgL_bindingsz00); 
BgL_l2690z00_1177 = BgL_arg3287z00_1179; 
BgL_forzd2each2691zd2_1178:
{ /* ./Ast/lvtype.scm 150 */
bool_t BgL_test3290z00_1180;
BgL_test3290z00_1180 = 
PAIRP(BgL_l2690z00_1177); 
if(BgL_test3290z00_1180)
{ /* ./Ast/lvtype.scm 150 */
{ /* ./Ast/lvtype.scm 151 */
obj_t BgL_bindingz00_1181;
BgL_bindingz00_1181 = 
CAR(BgL_l2690z00_1177); 
{ /* ./Ast/lvtype.scm 151 */
obj_t BgL_varz00_1182;obj_t BgL_valz00_1183;
BgL_varz00_1182 = 
CAR(BgL_bindingz00_1181); 
BgL_valz00_1183 = 
CDR(BgL_bindingz00_1181); 
{ /* ./Ast/lvtype.scm 153 */
BgL_nodez00_bglt BgL_nodez00_1718;
BgL_nodez00_1718 = 
(BgL_nodez00_bglt)(BgL_valz00_1183); 
{ /* ./Ast/lvtype.scm 153 */
obj_t BgL_method2705z00_1719;
{ /* ./Ast/lvtype.scm 153 */
BgL_objectz00_bglt BgL_objz00_1720;
BgL_objz00_1720 = 
(BgL_objectz00_bglt)(BgL_nodez00_1718); 
{ /* ./Ast/lvtype.scm 153 */
long BgL_objzd2classzd2numz00_1721;
BgL_objzd2classzd2numz00_1721 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1720); 
{ /* ./Ast/lvtype.scm 153 */
obj_t BgL_arg2017z00_1722;
{ /* ./Ast/lvtype.scm 153 */
int BgL_auxz00_2387;
BgL_auxz00_2387 = 
(int)(((long)1)); 
BgL_arg2017z00_1722 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2387); } 
{ /* ./Ast/lvtype.scm 153 */
int BgL_offsetz00_1725;
BgL_offsetz00_1725 = 
(int)(BgL_objzd2classzd2numz00_1721); 
{ /* ./Ast/lvtype.scm 153 */
long BgL_offsetz00_1726;
{ /* ./Ast/lvtype.scm 153 */
long BgL_auxz00_2391;
BgL_auxz00_2391 = 
(long)(BgL_offsetz00_1725); 
BgL_offsetz00_1726 = 
(BgL_auxz00_2391-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 153 */
long BgL_modz00_1727;
{ /* ./Ast/lvtype.scm 153 */
int BgL_arg2028z00_1728;
BgL_arg2028z00_1728 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 153 */
long BgL_n2z00_1736;
BgL_n2z00_1736 = 
(long)(BgL_arg2028z00_1728); 
BgL_modz00_1727 = 
(BgL_offsetz00_1726/BgL_n2z00_1736); } } 
{ /* ./Ast/lvtype.scm 153 */
long BgL_restz00_1729;
{ /* ./Ast/lvtype.scm 153 */
int BgL_arg2024z00_1730;
BgL_arg2024z00_1730 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 153 */
long BgL_n2z00_1739;
BgL_n2z00_1739 = 
(long)(BgL_arg2024z00_1730); 
BgL_restz00_1729 = 
(BgL_offsetz00_1726%BgL_n2z00_1739); } } 
{ /* ./Ast/lvtype.scm 153 */

{ /* ./Ast/lvtype.scm 153 */
obj_t BgL_bucketz00_1731;
{ /* ./Ast/lvtype.scm 153 */
int BgL_kz00_1741;
BgL_kz00_1741 = 
(int)(BgL_modz00_1727); 
BgL_bucketz00_1731 = 
VECTOR_REF(BgL_arg2017z00_1722,BgL_kz00_1741); } 
{ /* ./Ast/lvtype.scm 153 */
int BgL_kz00_1743;
BgL_kz00_1743 = 
(int)(BgL_restz00_1729); 
BgL_method2705z00_1719 = 
VECTOR_REF(BgL_bucketz00_1731,BgL_kz00_1743); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2705z00_1719)(BgL_method2705z00_1719, 
(obj_t)(BgL_nodez00_1718), BEOA); } } 
{ /* ./Ast/lvtype.scm 154 */
BgL_typez00_bglt BgL_arg3293z00_1184;
BgL_arg3293z00_1184 = 
BGl_typeofz00zztype_typeofz00(
(BgL_nodez00_bglt)(BgL_valz00_1183)); 
BGl_setzd2variablezd2typez12z12zzast_lvtypez00(
(BgL_variablez00_bglt)(BgL_varz00_1182), BgL_arg3293z00_1184); } } } 
{ /* ./Ast/lvtype.scm 150 */
obj_t BgL_arg3300z00_1185;
BgL_arg3300z00_1185 = 
CDR(BgL_l2690z00_1177); 
{ 
obj_t BgL_l2690z00_2412;
BgL_l2690z00_2412 = BgL_arg3300z00_1185; 
BgL_l2690z00_1177 = BgL_l2690z00_2412; 
goto BgL_forzd2each2691zd2_1178;} } }  else 
{ /* ./Ast/lvtype.scm 150 */((bool_t)1); } } } } 
{ /* ./Ast/lvtype.scm 156 */
BgL_nodez00_bglt BgL_arg3305z00_1186;
BgL_arg3305z00_1186 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1173))->BgL_bodyz00); 
{ /* ./Ast/lvtype.scm 156 */
obj_t BgL_method2705z00_1747;
{ /* ./Ast/lvtype.scm 156 */
BgL_objectz00_bglt BgL_objz00_1748;
BgL_objz00_1748 = 
(BgL_objectz00_bglt)(BgL_arg3305z00_1186); 
{ /* ./Ast/lvtype.scm 156 */
long BgL_objzd2classzd2numz00_1749;
BgL_objzd2classzd2numz00_1749 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1748); 
{ /* ./Ast/lvtype.scm 156 */
obj_t BgL_arg2017z00_1750;
{ /* ./Ast/lvtype.scm 156 */
int BgL_auxz00_2416;
BgL_auxz00_2416 = 
(int)(((long)1)); 
BgL_arg2017z00_1750 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2416); } 
{ /* ./Ast/lvtype.scm 156 */
int BgL_offsetz00_1753;
BgL_offsetz00_1753 = 
(int)(BgL_objzd2classzd2numz00_1749); 
{ /* ./Ast/lvtype.scm 156 */
long BgL_offsetz00_1754;
{ /* ./Ast/lvtype.scm 156 */
long BgL_auxz00_2420;
BgL_auxz00_2420 = 
(long)(BgL_offsetz00_1753); 
BgL_offsetz00_1754 = 
(BgL_auxz00_2420-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 156 */
long BgL_modz00_1755;
{ /* ./Ast/lvtype.scm 156 */
int BgL_arg2028z00_1756;
BgL_arg2028z00_1756 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 156 */
long BgL_n2z00_1764;
BgL_n2z00_1764 = 
(long)(BgL_arg2028z00_1756); 
BgL_modz00_1755 = 
(BgL_offsetz00_1754/BgL_n2z00_1764); } } 
{ /* ./Ast/lvtype.scm 156 */
long BgL_restz00_1757;
{ /* ./Ast/lvtype.scm 156 */
int BgL_arg2024z00_1758;
BgL_arg2024z00_1758 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 156 */
long BgL_n2z00_1767;
BgL_n2z00_1767 = 
(long)(BgL_arg2024z00_1758); 
BgL_restz00_1757 = 
(BgL_offsetz00_1754%BgL_n2z00_1767); } } 
{ /* ./Ast/lvtype.scm 156 */

{ /* ./Ast/lvtype.scm 156 */
obj_t BgL_bucketz00_1759;
{ /* ./Ast/lvtype.scm 156 */
int BgL_kz00_1769;
BgL_kz00_1769 = 
(int)(BgL_modz00_1755); 
BgL_bucketz00_1759 = 
VECTOR_REF(BgL_arg2017z00_1750,BgL_kz00_1769); } 
{ /* ./Ast/lvtype.scm 156 */
int BgL_kz00_1771;
BgL_kz00_1771 = 
(int)(BgL_restz00_1757); 
BgL_method2705z00_1747 = 
VECTOR_REF(BgL_bucketz00_1759,BgL_kz00_1771); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2705z00_1747)(BgL_method2705z00_1747, 
(obj_t)(BgL_arg3305z00_1186), BEOA);} } } } 
}



/* lvtype-node!-let-fun2735 */
obj_t BGl_lvtypezd2nodez12zd2letzd2fun2735zc0zzast_lvtypez00(obj_t BgL_envz00_2055, obj_t BgL_nodez00_2056)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 138 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1158;
BgL_nodez00_1158 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_2056); 
{ 
obj_t BgL_l2686z00_1162;
{ /* ./Ast/lvtype.scm 140 */
obj_t BgL_arg3259z00_1164;
BgL_arg3259z00_1164 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1158))->BgL_localsz00); 
BgL_l2686z00_1162 = BgL_arg3259z00_1164; 
BgL_forzd2each2687zd2_1163:
{ /* ./Ast/lvtype.scm 140 */
bool_t BgL_test3262z00_1165;
BgL_test3262z00_1165 = 
PAIRP(BgL_l2686z00_1162); 
if(BgL_test3262z00_1165)
{ /* ./Ast/lvtype.scm 140 */
{ /* ./Ast/lvtype.scm 141 */
obj_t BgL_localz00_1166;
BgL_localz00_1166 = 
CAR(BgL_l2686z00_1162); 
{ /* ./Ast/lvtype.scm 141 */
obj_t BgL_arg3264z00_1167;
{ /* ./Ast/lvtype.scm 141 */
BgL_sfunz00_bglt BgL_obj1370z00_1658;
{ /* ./Ast/lvtype.scm 141 */
BgL_valuez00_bglt BgL_auxz00_2441;
{ /* ./Ast/lvtype.scm 141 */
BgL_variablez00_bglt BgL_obj1100z00_1657;
BgL_obj1100z00_1657 = 
(BgL_variablez00_bglt)(BgL_localz00_1166); 
BgL_auxz00_2441 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1657))->BgL_valuez00); } 
BgL_obj1370z00_1658 = 
(BgL_sfunz00_bglt)(BgL_auxz00_2441); } 
BgL_arg3264z00_1167 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1658))->BgL_bodyz00); } 
{ /* ./Ast/lvtype.scm 141 */
BgL_nodez00_bglt BgL_nodez00_1659;
BgL_nodez00_1659 = 
(BgL_nodez00_bglt)(BgL_arg3264z00_1167); 
{ /* ./Ast/lvtype.scm 141 */
obj_t BgL_method2705z00_1660;
{ /* ./Ast/lvtype.scm 141 */
BgL_objectz00_bglt BgL_objz00_1661;
BgL_objz00_1661 = 
(BgL_objectz00_bglt)(BgL_nodez00_1659); 
{ /* ./Ast/lvtype.scm 141 */
long BgL_objzd2classzd2numz00_1662;
BgL_objzd2classzd2numz00_1662 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1661); 
{ /* ./Ast/lvtype.scm 141 */
obj_t BgL_arg2017z00_1663;
{ /* ./Ast/lvtype.scm 141 */
int BgL_auxz00_2449;
BgL_auxz00_2449 = 
(int)(((long)1)); 
BgL_arg2017z00_1663 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2449); } 
{ /* ./Ast/lvtype.scm 141 */
int BgL_offsetz00_1666;
BgL_offsetz00_1666 = 
(int)(BgL_objzd2classzd2numz00_1662); 
{ /* ./Ast/lvtype.scm 141 */
long BgL_offsetz00_1667;
{ /* ./Ast/lvtype.scm 141 */
long BgL_auxz00_2453;
BgL_auxz00_2453 = 
(long)(BgL_offsetz00_1666); 
BgL_offsetz00_1667 = 
(BgL_auxz00_2453-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 141 */
long BgL_modz00_1668;
{ /* ./Ast/lvtype.scm 141 */
int BgL_arg2028z00_1669;
BgL_arg2028z00_1669 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 141 */
long BgL_n2z00_1677;
BgL_n2z00_1677 = 
(long)(BgL_arg2028z00_1669); 
BgL_modz00_1668 = 
(BgL_offsetz00_1667/BgL_n2z00_1677); } } 
{ /* ./Ast/lvtype.scm 141 */
long BgL_restz00_1670;
{ /* ./Ast/lvtype.scm 141 */
int BgL_arg2024z00_1671;
BgL_arg2024z00_1671 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 141 */
long BgL_n2z00_1680;
BgL_n2z00_1680 = 
(long)(BgL_arg2024z00_1671); 
BgL_restz00_1670 = 
(BgL_offsetz00_1667%BgL_n2z00_1680); } } 
{ /* ./Ast/lvtype.scm 141 */

{ /* ./Ast/lvtype.scm 141 */
obj_t BgL_bucketz00_1672;
{ /* ./Ast/lvtype.scm 141 */
int BgL_kz00_1682;
BgL_kz00_1682 = 
(int)(BgL_modz00_1668); 
BgL_bucketz00_1672 = 
VECTOR_REF(BgL_arg2017z00_1663,BgL_kz00_1682); } 
{ /* ./Ast/lvtype.scm 141 */
int BgL_kz00_1684;
BgL_kz00_1684 = 
(int)(BgL_restz00_1670); 
BgL_method2705z00_1660 = 
VECTOR_REF(BgL_bucketz00_1672,BgL_kz00_1684); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2705z00_1660)(BgL_method2705z00_1660, 
(obj_t)(BgL_nodez00_1659), BEOA); } } } } 
{ /* ./Ast/lvtype.scm 140 */
obj_t BgL_arg3272z00_1169;
BgL_arg3272z00_1169 = 
CDR(BgL_l2686z00_1162); 
{ 
obj_t BgL_l2686z00_2470;
BgL_l2686z00_2470 = BgL_arg3272z00_1169; 
BgL_l2686z00_1162 = BgL_l2686z00_2470; 
goto BgL_forzd2each2687zd2_1163;} } }  else 
{ /* ./Ast/lvtype.scm 140 */((bool_t)1); } } } } 
{ /* ./Ast/lvtype.scm 143 */
BgL_nodez00_bglt BgL_arg3277z00_1170;
BgL_arg3277z00_1170 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1158))->BgL_bodyz00); 
{ /* ./Ast/lvtype.scm 143 */
obj_t BgL_method2705z00_1688;
{ /* ./Ast/lvtype.scm 143 */
BgL_objectz00_bglt BgL_objz00_1689;
BgL_objz00_1689 = 
(BgL_objectz00_bglt)(BgL_arg3277z00_1170); 
{ /* ./Ast/lvtype.scm 143 */
long BgL_objzd2classzd2numz00_1690;
BgL_objzd2classzd2numz00_1690 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1689); 
{ /* ./Ast/lvtype.scm 143 */
obj_t BgL_arg2017z00_1691;
{ /* ./Ast/lvtype.scm 143 */
int BgL_auxz00_2474;
BgL_auxz00_2474 = 
(int)(((long)1)); 
BgL_arg2017z00_1691 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2474); } 
{ /* ./Ast/lvtype.scm 143 */
int BgL_offsetz00_1694;
BgL_offsetz00_1694 = 
(int)(BgL_objzd2classzd2numz00_1690); 
{ /* ./Ast/lvtype.scm 143 */
long BgL_offsetz00_1695;
{ /* ./Ast/lvtype.scm 143 */
long BgL_auxz00_2478;
BgL_auxz00_2478 = 
(long)(BgL_offsetz00_1694); 
BgL_offsetz00_1695 = 
(BgL_auxz00_2478-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 143 */
long BgL_modz00_1696;
{ /* ./Ast/lvtype.scm 143 */
int BgL_arg2028z00_1697;
BgL_arg2028z00_1697 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 143 */
long BgL_n2z00_1705;
BgL_n2z00_1705 = 
(long)(BgL_arg2028z00_1697); 
BgL_modz00_1696 = 
(BgL_offsetz00_1695/BgL_n2z00_1705); } } 
{ /* ./Ast/lvtype.scm 143 */
long BgL_restz00_1698;
{ /* ./Ast/lvtype.scm 143 */
int BgL_arg2024z00_1699;
BgL_arg2024z00_1699 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 143 */
long BgL_n2z00_1708;
BgL_n2z00_1708 = 
(long)(BgL_arg2024z00_1699); 
BgL_restz00_1698 = 
(BgL_offsetz00_1695%BgL_n2z00_1708); } } 
{ /* ./Ast/lvtype.scm 143 */

{ /* ./Ast/lvtype.scm 143 */
obj_t BgL_bucketz00_1700;
{ /* ./Ast/lvtype.scm 143 */
int BgL_kz00_1710;
BgL_kz00_1710 = 
(int)(BgL_modz00_1696); 
BgL_bucketz00_1700 = 
VECTOR_REF(BgL_arg2017z00_1691,BgL_kz00_1710); } 
{ /* ./Ast/lvtype.scm 143 */
int BgL_kz00_1712;
BgL_kz00_1712 = 
(int)(BgL_restz00_1698); 
BgL_method2705z00_1688 = 
VECTOR_REF(BgL_bucketz00_1700,BgL_kz00_1712); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2705z00_1688)(BgL_method2705z00_1688, 
(obj_t)(BgL_arg3277z00_1170), BEOA);} } } } 
}



/* lvtype-node!-select2733 */
obj_t BGl_lvtypezd2nodez12zd2select2733z12zzast_lvtypez00(obj_t BgL_envz00_2057, obj_t BgL_nodez00_2058)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 128 */
{ 
BgL_selectz00_bglt BgL_nodez00_1144;
{ /* ./Ast/lvtype.scm 129 */
bool_t BgL_auxz00_2495;
BgL_nodez00_1144 = 
(BgL_selectz00_bglt)(BgL_nodez00_2058); 
{ /* ./Ast/lvtype.scm 130 */
BgL_nodez00_bglt BgL_arg3233z00_1148;
BgL_arg3233z00_1148 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1144))->BgL_testz00); 
{ /* ./Ast/lvtype.scm 130 */
obj_t BgL_method2705z00_1598;
{ /* ./Ast/lvtype.scm 130 */
BgL_objectz00_bglt BgL_objz00_1599;
BgL_objz00_1599 = 
(BgL_objectz00_bglt)(BgL_arg3233z00_1148); 
{ /* ./Ast/lvtype.scm 130 */
long BgL_objzd2classzd2numz00_1600;
BgL_objzd2classzd2numz00_1600 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1599); 
{ /* ./Ast/lvtype.scm 130 */
obj_t BgL_arg2017z00_1601;
{ /* ./Ast/lvtype.scm 130 */
int BgL_auxz00_2499;
BgL_auxz00_2499 = 
(int)(((long)1)); 
BgL_arg2017z00_1601 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2499); } 
{ /* ./Ast/lvtype.scm 130 */
int BgL_offsetz00_1604;
BgL_offsetz00_1604 = 
(int)(BgL_objzd2classzd2numz00_1600); 
{ /* ./Ast/lvtype.scm 130 */
long BgL_offsetz00_1605;
{ /* ./Ast/lvtype.scm 130 */
long BgL_auxz00_2503;
BgL_auxz00_2503 = 
(long)(BgL_offsetz00_1604); 
BgL_offsetz00_1605 = 
(BgL_auxz00_2503-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 130 */
long BgL_modz00_1606;
{ /* ./Ast/lvtype.scm 130 */
int BgL_arg2028z00_1607;
BgL_arg2028z00_1607 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 130 */
long BgL_n2z00_1615;
BgL_n2z00_1615 = 
(long)(BgL_arg2028z00_1607); 
BgL_modz00_1606 = 
(BgL_offsetz00_1605/BgL_n2z00_1615); } } 
{ /* ./Ast/lvtype.scm 130 */
long BgL_restz00_1608;
{ /* ./Ast/lvtype.scm 130 */
int BgL_arg2024z00_1609;
BgL_arg2024z00_1609 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 130 */
long BgL_n2z00_1618;
BgL_n2z00_1618 = 
(long)(BgL_arg2024z00_1609); 
BgL_restz00_1608 = 
(BgL_offsetz00_1605%BgL_n2z00_1618); } } 
{ /* ./Ast/lvtype.scm 130 */

{ /* ./Ast/lvtype.scm 130 */
obj_t BgL_bucketz00_1610;
{ /* ./Ast/lvtype.scm 130 */
int BgL_kz00_1620;
BgL_kz00_1620 = 
(int)(BgL_modz00_1606); 
BgL_bucketz00_1610 = 
VECTOR_REF(BgL_arg2017z00_1601,BgL_kz00_1620); } 
{ /* ./Ast/lvtype.scm 130 */
int BgL_kz00_1622;
BgL_kz00_1622 = 
(int)(BgL_restz00_1608); 
BgL_method2705z00_1598 = 
VECTOR_REF(BgL_bucketz00_1610,BgL_kz00_1622); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2705z00_1598)(BgL_method2705z00_1598, 
(obj_t)(BgL_arg3233z00_1148), BEOA); } } 
{ 
obj_t BgL_l2682z00_1149;
{ /* ./Ast/lvtype.scm 131 */
obj_t BgL_arg3237z00_1151;
BgL_arg3237z00_1151 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1144))->BgL_clausesz00); 
BgL_l2682z00_1149 = BgL_arg3237z00_1151; 
BgL_forzd2each2683zd2_1150:
{ /* ./Ast/lvtype.scm 131 */
bool_t BgL_test3240z00_1152;
BgL_test3240z00_1152 = 
PAIRP(BgL_l2682z00_1149); 
if(BgL_test3240z00_1152)
{ /* ./Ast/lvtype.scm 131 */
{ /* ./Ast/lvtype.scm 132 */
obj_t BgL_clausez00_1153;
BgL_clausez00_1153 = 
CAR(BgL_l2682z00_1149); 
{ /* ./Ast/lvtype.scm 132 */
obj_t BgL_arg3242z00_1154;
BgL_arg3242z00_1154 = 
CDR(BgL_clausez00_1153); 
{ /* ./Ast/lvtype.scm 132 */
BgL_nodez00_bglt BgL_nodez00_1627;
BgL_nodez00_1627 = 
(BgL_nodez00_bglt)(BgL_arg3242z00_1154); 
{ /* ./Ast/lvtype.scm 132 */
obj_t BgL_method2705z00_1628;
{ /* ./Ast/lvtype.scm 132 */
BgL_objectz00_bglt BgL_objz00_1629;
BgL_objz00_1629 = 
(BgL_objectz00_bglt)(BgL_nodez00_1627); 
{ /* ./Ast/lvtype.scm 132 */
long BgL_objzd2classzd2numz00_1630;
BgL_objzd2classzd2numz00_1630 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1629); 
{ /* ./Ast/lvtype.scm 132 */
obj_t BgL_arg2017z00_1631;
{ /* ./Ast/lvtype.scm 132 */
int BgL_auxz00_2527;
BgL_auxz00_2527 = 
(int)(((long)1)); 
BgL_arg2017z00_1631 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2527); } 
{ /* ./Ast/lvtype.scm 132 */
int BgL_offsetz00_1634;
BgL_offsetz00_1634 = 
(int)(BgL_objzd2classzd2numz00_1630); 
{ /* ./Ast/lvtype.scm 132 */
long BgL_offsetz00_1635;
{ /* ./Ast/lvtype.scm 132 */
long BgL_auxz00_2531;
BgL_auxz00_2531 = 
(long)(BgL_offsetz00_1634); 
BgL_offsetz00_1635 = 
(BgL_auxz00_2531-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 132 */
long BgL_modz00_1636;
{ /* ./Ast/lvtype.scm 132 */
int BgL_arg2028z00_1637;
BgL_arg2028z00_1637 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 132 */
long BgL_n2z00_1645;
BgL_n2z00_1645 = 
(long)(BgL_arg2028z00_1637); 
BgL_modz00_1636 = 
(BgL_offsetz00_1635/BgL_n2z00_1645); } } 
{ /* ./Ast/lvtype.scm 132 */
long BgL_restz00_1638;
{ /* ./Ast/lvtype.scm 132 */
int BgL_arg2024z00_1639;
BgL_arg2024z00_1639 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 132 */
long BgL_n2z00_1648;
BgL_n2z00_1648 = 
(long)(BgL_arg2024z00_1639); 
BgL_restz00_1638 = 
(BgL_offsetz00_1635%BgL_n2z00_1648); } } 
{ /* ./Ast/lvtype.scm 132 */

{ /* ./Ast/lvtype.scm 132 */
obj_t BgL_bucketz00_1640;
{ /* ./Ast/lvtype.scm 132 */
int BgL_kz00_1650;
BgL_kz00_1650 = 
(int)(BgL_modz00_1636); 
BgL_bucketz00_1640 = 
VECTOR_REF(BgL_arg2017z00_1631,BgL_kz00_1650); } 
{ /* ./Ast/lvtype.scm 132 */
int BgL_kz00_1652;
BgL_kz00_1652 = 
(int)(BgL_restz00_1638); 
BgL_method2705z00_1628 = 
VECTOR_REF(BgL_bucketz00_1640,BgL_kz00_1652); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2705z00_1628)(BgL_method2705z00_1628, 
(obj_t)(BgL_nodez00_1627), BEOA); } } } } 
{ /* ./Ast/lvtype.scm 131 */
obj_t BgL_arg3247z00_1155;
BgL_arg3247z00_1155 = 
CDR(BgL_l2682z00_1149); 
{ 
obj_t BgL_l2682z00_2548;
BgL_l2682z00_2548 = BgL_arg3247z00_1155; 
BgL_l2682z00_1149 = BgL_l2682z00_2548; 
goto BgL_forzd2each2683zd2_1150;} } }  else 
{ /* ./Ast/lvtype.scm 131 */
BgL_auxz00_2495 = ((bool_t)1); } } } } 
return 
BBOOL(BgL_auxz00_2495);} } } 
}



/* lvtype-node!-fail2731 */
obj_t BGl_lvtypezd2nodez12zd2fail2731z12zzast_lvtypez00(obj_t BgL_envz00_2059, obj_t BgL_nodez00_2060)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 119 */
{ 
BgL_failz00_bglt BgL_nodez00_1135;
BgL_nodez00_1135 = 
(BgL_failz00_bglt)(BgL_nodez00_2060); 
{ /* ./Ast/lvtype.scm 121 */
BgL_nodez00_bglt BgL_arg3215z00_1139;
BgL_arg3215z00_1139 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1135))->BgL_procz00); 
{ /* ./Ast/lvtype.scm 121 */
obj_t BgL_method2705z00_1517;
{ /* ./Ast/lvtype.scm 121 */
BgL_objectz00_bglt BgL_objz00_1518;
BgL_objz00_1518 = 
(BgL_objectz00_bglt)(BgL_arg3215z00_1139); 
{ /* ./Ast/lvtype.scm 121 */
long BgL_objzd2classzd2numz00_1519;
BgL_objzd2classzd2numz00_1519 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1518); 
{ /* ./Ast/lvtype.scm 121 */
obj_t BgL_arg2017z00_1520;
{ /* ./Ast/lvtype.scm 121 */
int BgL_auxz00_2554;
BgL_auxz00_2554 = 
(int)(((long)1)); 
BgL_arg2017z00_1520 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2554); } 
{ /* ./Ast/lvtype.scm 121 */
int BgL_offsetz00_1523;
BgL_offsetz00_1523 = 
(int)(BgL_objzd2classzd2numz00_1519); 
{ /* ./Ast/lvtype.scm 121 */
long BgL_offsetz00_1524;
{ /* ./Ast/lvtype.scm 121 */
long BgL_auxz00_2558;
BgL_auxz00_2558 = 
(long)(BgL_offsetz00_1523); 
BgL_offsetz00_1524 = 
(BgL_auxz00_2558-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 121 */
long BgL_modz00_1525;
{ /* ./Ast/lvtype.scm 121 */
int BgL_arg2028z00_1526;
BgL_arg2028z00_1526 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 121 */
long BgL_n2z00_1534;
BgL_n2z00_1534 = 
(long)(BgL_arg2028z00_1526); 
BgL_modz00_1525 = 
(BgL_offsetz00_1524/BgL_n2z00_1534); } } 
{ /* ./Ast/lvtype.scm 121 */
long BgL_restz00_1527;
{ /* ./Ast/lvtype.scm 121 */
int BgL_arg2024z00_1528;
BgL_arg2024z00_1528 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 121 */
long BgL_n2z00_1537;
BgL_n2z00_1537 = 
(long)(BgL_arg2024z00_1528); 
BgL_restz00_1527 = 
(BgL_offsetz00_1524%BgL_n2z00_1537); } } 
{ /* ./Ast/lvtype.scm 121 */

{ /* ./Ast/lvtype.scm 121 */
obj_t BgL_bucketz00_1529;
{ /* ./Ast/lvtype.scm 121 */
int BgL_kz00_1539;
BgL_kz00_1539 = 
(int)(BgL_modz00_1525); 
BgL_bucketz00_1529 = 
VECTOR_REF(BgL_arg2017z00_1520,BgL_kz00_1539); } 
{ /* ./Ast/lvtype.scm 121 */
int BgL_kz00_1541;
BgL_kz00_1541 = 
(int)(BgL_restz00_1527); 
BgL_method2705z00_1517 = 
VECTOR_REF(BgL_bucketz00_1529,BgL_kz00_1541); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2705z00_1517)(BgL_method2705z00_1517, 
(obj_t)(BgL_arg3215z00_1139), BEOA); } } 
{ /* ./Ast/lvtype.scm 122 */
BgL_nodez00_bglt BgL_arg3219z00_1140;
BgL_arg3219z00_1140 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1135))->BgL_msgz00); 
{ /* ./Ast/lvtype.scm 122 */
obj_t BgL_method2705z00_1544;
{ /* ./Ast/lvtype.scm 122 */
BgL_objectz00_bglt BgL_objz00_1545;
BgL_objz00_1545 = 
(BgL_objectz00_bglt)(BgL_arg3219z00_1140); 
{ /* ./Ast/lvtype.scm 122 */
long BgL_objzd2classzd2numz00_1546;
BgL_objzd2classzd2numz00_1546 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1545); 
{ /* ./Ast/lvtype.scm 122 */
obj_t BgL_arg2017z00_1547;
{ /* ./Ast/lvtype.scm 122 */
int BgL_auxz00_2577;
BgL_auxz00_2577 = 
(int)(((long)1)); 
BgL_arg2017z00_1547 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2577); } 
{ /* ./Ast/lvtype.scm 122 */
int BgL_offsetz00_1550;
BgL_offsetz00_1550 = 
(int)(BgL_objzd2classzd2numz00_1546); 
{ /* ./Ast/lvtype.scm 122 */
long BgL_offsetz00_1551;
{ /* ./Ast/lvtype.scm 122 */
long BgL_auxz00_2581;
BgL_auxz00_2581 = 
(long)(BgL_offsetz00_1550); 
BgL_offsetz00_1551 = 
(BgL_auxz00_2581-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 122 */
long BgL_modz00_1552;
{ /* ./Ast/lvtype.scm 122 */
int BgL_arg2028z00_1553;
BgL_arg2028z00_1553 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 122 */
long BgL_n2z00_1561;
BgL_n2z00_1561 = 
(long)(BgL_arg2028z00_1553); 
BgL_modz00_1552 = 
(BgL_offsetz00_1551/BgL_n2z00_1561); } } 
{ /* ./Ast/lvtype.scm 122 */
long BgL_restz00_1554;
{ /* ./Ast/lvtype.scm 122 */
int BgL_arg2024z00_1555;
BgL_arg2024z00_1555 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 122 */
long BgL_n2z00_1564;
BgL_n2z00_1564 = 
(long)(BgL_arg2024z00_1555); 
BgL_restz00_1554 = 
(BgL_offsetz00_1551%BgL_n2z00_1564); } } 
{ /* ./Ast/lvtype.scm 122 */

{ /* ./Ast/lvtype.scm 122 */
obj_t BgL_bucketz00_1556;
{ /* ./Ast/lvtype.scm 122 */
int BgL_kz00_1566;
BgL_kz00_1566 = 
(int)(BgL_modz00_1552); 
BgL_bucketz00_1556 = 
VECTOR_REF(BgL_arg2017z00_1547,BgL_kz00_1566); } 
{ /* ./Ast/lvtype.scm 122 */
int BgL_kz00_1568;
BgL_kz00_1568 = 
(int)(BgL_restz00_1554); 
BgL_method2705z00_1544 = 
VECTOR_REF(BgL_bucketz00_1556,BgL_kz00_1568); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2705z00_1544)(BgL_method2705z00_1544, 
(obj_t)(BgL_arg3219z00_1140), BEOA); } } 
{ /* ./Ast/lvtype.scm 123 */
BgL_nodez00_bglt BgL_arg3223z00_1141;
BgL_arg3223z00_1141 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1135))->BgL_objz00); 
{ /* ./Ast/lvtype.scm 123 */
obj_t BgL_method2705z00_1571;
{ /* ./Ast/lvtype.scm 123 */
BgL_objectz00_bglt BgL_objz00_1572;
BgL_objz00_1572 = 
(BgL_objectz00_bglt)(BgL_arg3223z00_1141); 
{ /* ./Ast/lvtype.scm 123 */
long BgL_objzd2classzd2numz00_1573;
BgL_objzd2classzd2numz00_1573 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1572); 
{ /* ./Ast/lvtype.scm 123 */
obj_t BgL_arg2017z00_1574;
{ /* ./Ast/lvtype.scm 123 */
int BgL_auxz00_2600;
BgL_auxz00_2600 = 
(int)(((long)1)); 
BgL_arg2017z00_1574 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2600); } 
{ /* ./Ast/lvtype.scm 123 */
int BgL_offsetz00_1577;
BgL_offsetz00_1577 = 
(int)(BgL_objzd2classzd2numz00_1573); 
{ /* ./Ast/lvtype.scm 123 */
long BgL_offsetz00_1578;
{ /* ./Ast/lvtype.scm 123 */
long BgL_auxz00_2604;
BgL_auxz00_2604 = 
(long)(BgL_offsetz00_1577); 
BgL_offsetz00_1578 = 
(BgL_auxz00_2604-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 123 */
long BgL_modz00_1579;
{ /* ./Ast/lvtype.scm 123 */
int BgL_arg2028z00_1580;
BgL_arg2028z00_1580 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 123 */
long BgL_n2z00_1588;
BgL_n2z00_1588 = 
(long)(BgL_arg2028z00_1580); 
BgL_modz00_1579 = 
(BgL_offsetz00_1578/BgL_n2z00_1588); } } 
{ /* ./Ast/lvtype.scm 123 */
long BgL_restz00_1581;
{ /* ./Ast/lvtype.scm 123 */
int BgL_arg2024z00_1582;
BgL_arg2024z00_1582 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 123 */
long BgL_n2z00_1591;
BgL_n2z00_1591 = 
(long)(BgL_arg2024z00_1582); 
BgL_restz00_1581 = 
(BgL_offsetz00_1578%BgL_n2z00_1591); } } 
{ /* ./Ast/lvtype.scm 123 */

{ /* ./Ast/lvtype.scm 123 */
obj_t BgL_bucketz00_1583;
{ /* ./Ast/lvtype.scm 123 */
int BgL_kz00_1593;
BgL_kz00_1593 = 
(int)(BgL_modz00_1579); 
BgL_bucketz00_1583 = 
VECTOR_REF(BgL_arg2017z00_1574,BgL_kz00_1593); } 
{ /* ./Ast/lvtype.scm 123 */
int BgL_kz00_1595;
BgL_kz00_1595 = 
(int)(BgL_restz00_1581); 
BgL_method2705z00_1571 = 
VECTOR_REF(BgL_bucketz00_1583,BgL_kz00_1595); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2705z00_1571)(BgL_method2705z00_1571, 
(obj_t)(BgL_arg3223z00_1141), BEOA);} } } } 
}



/* lvtype-node!-conditional2729 */
obj_t BGl_lvtypezd2nodez12zd2conditional2729z12zzast_lvtypez00(obj_t BgL_envz00_2061, obj_t BgL_nodez00_2062)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 110 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1126;
BgL_nodez00_1126 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_2062); 
{ /* ./Ast/lvtype.scm 112 */
BgL_nodez00_bglt BgL_arg3197z00_1130;
BgL_arg3197z00_1130 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1126))->BgL_testz00); 
{ /* ./Ast/lvtype.scm 112 */
obj_t BgL_method2705z00_1436;
{ /* ./Ast/lvtype.scm 112 */
BgL_objectz00_bglt BgL_objz00_1437;
BgL_objz00_1437 = 
(BgL_objectz00_bglt)(BgL_arg3197z00_1130); 
{ /* ./Ast/lvtype.scm 112 */
long BgL_objzd2classzd2numz00_1438;
BgL_objzd2classzd2numz00_1438 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1437); 
{ /* ./Ast/lvtype.scm 112 */
obj_t BgL_arg2017z00_1439;
{ /* ./Ast/lvtype.scm 112 */
int BgL_auxz00_2624;
BgL_auxz00_2624 = 
(int)(((long)1)); 
BgL_arg2017z00_1439 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2624); } 
{ /* ./Ast/lvtype.scm 112 */
int BgL_offsetz00_1442;
BgL_offsetz00_1442 = 
(int)(BgL_objzd2classzd2numz00_1438); 
{ /* ./Ast/lvtype.scm 112 */
long BgL_offsetz00_1443;
{ /* ./Ast/lvtype.scm 112 */
long BgL_auxz00_2628;
BgL_auxz00_2628 = 
(long)(BgL_offsetz00_1442); 
BgL_offsetz00_1443 = 
(BgL_auxz00_2628-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 112 */
long BgL_modz00_1444;
{ /* ./Ast/lvtype.scm 112 */
int BgL_arg2028z00_1445;
BgL_arg2028z00_1445 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 112 */
long BgL_n2z00_1453;
BgL_n2z00_1453 = 
(long)(BgL_arg2028z00_1445); 
BgL_modz00_1444 = 
(BgL_offsetz00_1443/BgL_n2z00_1453); } } 
{ /* ./Ast/lvtype.scm 112 */
long BgL_restz00_1446;
{ /* ./Ast/lvtype.scm 112 */
int BgL_arg2024z00_1447;
BgL_arg2024z00_1447 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 112 */
long BgL_n2z00_1456;
BgL_n2z00_1456 = 
(long)(BgL_arg2024z00_1447); 
BgL_restz00_1446 = 
(BgL_offsetz00_1443%BgL_n2z00_1456); } } 
{ /* ./Ast/lvtype.scm 112 */

{ /* ./Ast/lvtype.scm 112 */
obj_t BgL_bucketz00_1448;
{ /* ./Ast/lvtype.scm 112 */
int BgL_kz00_1458;
BgL_kz00_1458 = 
(int)(BgL_modz00_1444); 
BgL_bucketz00_1448 = 
VECTOR_REF(BgL_arg2017z00_1439,BgL_kz00_1458); } 
{ /* ./Ast/lvtype.scm 112 */
int BgL_kz00_1460;
BgL_kz00_1460 = 
(int)(BgL_restz00_1446); 
BgL_method2705z00_1436 = 
VECTOR_REF(BgL_bucketz00_1448,BgL_kz00_1460); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2705z00_1436)(BgL_method2705z00_1436, 
(obj_t)(BgL_arg3197z00_1130), BEOA); } } 
{ /* ./Ast/lvtype.scm 113 */
BgL_nodez00_bglt BgL_arg3201z00_1131;
BgL_arg3201z00_1131 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1126))->BgL_truez00); 
{ /* ./Ast/lvtype.scm 113 */
obj_t BgL_method2705z00_1463;
{ /* ./Ast/lvtype.scm 113 */
BgL_objectz00_bglt BgL_objz00_1464;
BgL_objz00_1464 = 
(BgL_objectz00_bglt)(BgL_arg3201z00_1131); 
{ /* ./Ast/lvtype.scm 113 */
long BgL_objzd2classzd2numz00_1465;
BgL_objzd2classzd2numz00_1465 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1464); 
{ /* ./Ast/lvtype.scm 113 */
obj_t BgL_arg2017z00_1466;
{ /* ./Ast/lvtype.scm 113 */
int BgL_auxz00_2647;
BgL_auxz00_2647 = 
(int)(((long)1)); 
BgL_arg2017z00_1466 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2647); } 
{ /* ./Ast/lvtype.scm 113 */
int BgL_offsetz00_1469;
BgL_offsetz00_1469 = 
(int)(BgL_objzd2classzd2numz00_1465); 
{ /* ./Ast/lvtype.scm 113 */
long BgL_offsetz00_1470;
{ /* ./Ast/lvtype.scm 113 */
long BgL_auxz00_2651;
BgL_auxz00_2651 = 
(long)(BgL_offsetz00_1469); 
BgL_offsetz00_1470 = 
(BgL_auxz00_2651-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 113 */
long BgL_modz00_1471;
{ /* ./Ast/lvtype.scm 113 */
int BgL_arg2028z00_1472;
BgL_arg2028z00_1472 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 113 */
long BgL_n2z00_1480;
BgL_n2z00_1480 = 
(long)(BgL_arg2028z00_1472); 
BgL_modz00_1471 = 
(BgL_offsetz00_1470/BgL_n2z00_1480); } } 
{ /* ./Ast/lvtype.scm 113 */
long BgL_restz00_1473;
{ /* ./Ast/lvtype.scm 113 */
int BgL_arg2024z00_1474;
BgL_arg2024z00_1474 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 113 */
long BgL_n2z00_1483;
BgL_n2z00_1483 = 
(long)(BgL_arg2024z00_1474); 
BgL_restz00_1473 = 
(BgL_offsetz00_1470%BgL_n2z00_1483); } } 
{ /* ./Ast/lvtype.scm 113 */

{ /* ./Ast/lvtype.scm 113 */
obj_t BgL_bucketz00_1475;
{ /* ./Ast/lvtype.scm 113 */
int BgL_kz00_1485;
BgL_kz00_1485 = 
(int)(BgL_modz00_1471); 
BgL_bucketz00_1475 = 
VECTOR_REF(BgL_arg2017z00_1466,BgL_kz00_1485); } 
{ /* ./Ast/lvtype.scm 113 */
int BgL_kz00_1487;
BgL_kz00_1487 = 
(int)(BgL_restz00_1473); 
BgL_method2705z00_1463 = 
VECTOR_REF(BgL_bucketz00_1475,BgL_kz00_1487); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2705z00_1463)(BgL_method2705z00_1463, 
(obj_t)(BgL_arg3201z00_1131), BEOA); } } 
{ /* ./Ast/lvtype.scm 114 */
BgL_nodez00_bglt BgL_arg3205z00_1132;
BgL_arg3205z00_1132 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1126))->BgL_falsez00); 
{ /* ./Ast/lvtype.scm 114 */
obj_t BgL_method2705z00_1490;
{ /* ./Ast/lvtype.scm 114 */
BgL_objectz00_bglt BgL_objz00_1491;
BgL_objz00_1491 = 
(BgL_objectz00_bglt)(BgL_arg3205z00_1132); 
{ /* ./Ast/lvtype.scm 114 */
long BgL_objzd2classzd2numz00_1492;
BgL_objzd2classzd2numz00_1492 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1491); 
{ /* ./Ast/lvtype.scm 114 */
obj_t BgL_arg2017z00_1493;
{ /* ./Ast/lvtype.scm 114 */
int BgL_auxz00_2670;
BgL_auxz00_2670 = 
(int)(((long)1)); 
BgL_arg2017z00_1493 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2670); } 
{ /* ./Ast/lvtype.scm 114 */
int BgL_offsetz00_1496;
BgL_offsetz00_1496 = 
(int)(BgL_objzd2classzd2numz00_1492); 
{ /* ./Ast/lvtype.scm 114 */
long BgL_offsetz00_1497;
{ /* ./Ast/lvtype.scm 114 */
long BgL_auxz00_2674;
BgL_auxz00_2674 = 
(long)(BgL_offsetz00_1496); 
BgL_offsetz00_1497 = 
(BgL_auxz00_2674-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 114 */
long BgL_modz00_1498;
{ /* ./Ast/lvtype.scm 114 */
int BgL_arg2028z00_1499;
BgL_arg2028z00_1499 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 114 */
long BgL_n2z00_1507;
BgL_n2z00_1507 = 
(long)(BgL_arg2028z00_1499); 
BgL_modz00_1498 = 
(BgL_offsetz00_1497/BgL_n2z00_1507); } } 
{ /* ./Ast/lvtype.scm 114 */
long BgL_restz00_1500;
{ /* ./Ast/lvtype.scm 114 */
int BgL_arg2024z00_1501;
BgL_arg2024z00_1501 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 114 */
long BgL_n2z00_1510;
BgL_n2z00_1510 = 
(long)(BgL_arg2024z00_1501); 
BgL_restz00_1500 = 
(BgL_offsetz00_1497%BgL_n2z00_1510); } } 
{ /* ./Ast/lvtype.scm 114 */

{ /* ./Ast/lvtype.scm 114 */
obj_t BgL_bucketz00_1502;
{ /* ./Ast/lvtype.scm 114 */
int BgL_kz00_1512;
BgL_kz00_1512 = 
(int)(BgL_modz00_1498); 
BgL_bucketz00_1502 = 
VECTOR_REF(BgL_arg2017z00_1493,BgL_kz00_1512); } 
{ /* ./Ast/lvtype.scm 114 */
int BgL_kz00_1514;
BgL_kz00_1514 = 
(int)(BgL_restz00_1500); 
BgL_method2705z00_1490 = 
VECTOR_REF(BgL_bucketz00_1502,BgL_kz00_1514); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2705z00_1490)(BgL_method2705z00_1490, 
(obj_t)(BgL_arg3205z00_1132), BEOA);} } } } 
}



/* lvtype-node!-setq2727 */
obj_t BGl_lvtypezd2nodez12zd2setq2727z12zzast_lvtypez00(obj_t BgL_envz00_2063, obj_t BgL_nodez00_2064)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 102 */
{ 
BgL_setqz00_bglt BgL_nodez00_1118;
BgL_nodez00_1118 = 
(BgL_setqz00_bglt)(BgL_nodez00_2064); 
{ /* ./Ast/lvtype.scm 104 */
BgL_nodez00_bglt BgL_arg3183z00_1122;
BgL_arg3183z00_1122 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1118))->BgL_valuez00); 
{ /* ./Ast/lvtype.scm 104 */
obj_t BgL_method2705z00_1382;
{ /* ./Ast/lvtype.scm 104 */
BgL_objectz00_bglt BgL_objz00_1383;
BgL_objz00_1383 = 
(BgL_objectz00_bglt)(BgL_arg3183z00_1122); 
{ /* ./Ast/lvtype.scm 104 */
long BgL_objzd2classzd2numz00_1384;
BgL_objzd2classzd2numz00_1384 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1383); 
{ /* ./Ast/lvtype.scm 104 */
obj_t BgL_arg2017z00_1385;
{ /* ./Ast/lvtype.scm 104 */
int BgL_auxz00_2694;
BgL_auxz00_2694 = 
(int)(((long)1)); 
BgL_arg2017z00_1385 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2694); } 
{ /* ./Ast/lvtype.scm 104 */
int BgL_offsetz00_1388;
BgL_offsetz00_1388 = 
(int)(BgL_objzd2classzd2numz00_1384); 
{ /* ./Ast/lvtype.scm 104 */
long BgL_offsetz00_1389;
{ /* ./Ast/lvtype.scm 104 */
long BgL_auxz00_2698;
BgL_auxz00_2698 = 
(long)(BgL_offsetz00_1388); 
BgL_offsetz00_1389 = 
(BgL_auxz00_2698-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 104 */
long BgL_modz00_1390;
{ /* ./Ast/lvtype.scm 104 */
int BgL_arg2028z00_1391;
BgL_arg2028z00_1391 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 104 */
long BgL_n2z00_1399;
BgL_n2z00_1399 = 
(long)(BgL_arg2028z00_1391); 
BgL_modz00_1390 = 
(BgL_offsetz00_1389/BgL_n2z00_1399); } } 
{ /* ./Ast/lvtype.scm 104 */
long BgL_restz00_1392;
{ /* ./Ast/lvtype.scm 104 */
int BgL_arg2024z00_1393;
BgL_arg2024z00_1393 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 104 */
long BgL_n2z00_1402;
BgL_n2z00_1402 = 
(long)(BgL_arg2024z00_1393); 
BgL_restz00_1392 = 
(BgL_offsetz00_1389%BgL_n2z00_1402); } } 
{ /* ./Ast/lvtype.scm 104 */

{ /* ./Ast/lvtype.scm 104 */
obj_t BgL_bucketz00_1394;
{ /* ./Ast/lvtype.scm 104 */
int BgL_kz00_1404;
BgL_kz00_1404 = 
(int)(BgL_modz00_1390); 
BgL_bucketz00_1394 = 
VECTOR_REF(BgL_arg2017z00_1385,BgL_kz00_1404); } 
{ /* ./Ast/lvtype.scm 104 */
int BgL_kz00_1406;
BgL_kz00_1406 = 
(int)(BgL_restz00_1392); 
BgL_method2705z00_1382 = 
VECTOR_REF(BgL_bucketz00_1394,BgL_kz00_1406); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2705z00_1382)(BgL_method2705z00_1382, 
(obj_t)(BgL_arg3183z00_1122), BEOA); } } 
{ /* ./Ast/lvtype.scm 105 */
BgL_varz00_bglt BgL_arg3187z00_1123;
BgL_arg3187z00_1123 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1118))->BgL_varz00); 
{ /* ./Ast/lvtype.scm 105 */
BgL_nodez00_bglt BgL_nodez00_1408;
BgL_nodez00_1408 = 
(BgL_nodez00_bglt)(BgL_arg3187z00_1123); 
{ /* ./Ast/lvtype.scm 105 */
obj_t BgL_method2705z00_1409;
{ /* ./Ast/lvtype.scm 105 */
BgL_objectz00_bglt BgL_objz00_1410;
BgL_objz00_1410 = 
(BgL_objectz00_bglt)(BgL_nodez00_1408); 
{ /* ./Ast/lvtype.scm 105 */
long BgL_objzd2classzd2numz00_1411;
BgL_objzd2classzd2numz00_1411 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1410); 
{ /* ./Ast/lvtype.scm 105 */
obj_t BgL_arg2017z00_1412;
{ /* ./Ast/lvtype.scm 105 */
int BgL_auxz00_2718;
BgL_auxz00_2718 = 
(int)(((long)1)); 
BgL_arg2017z00_1412 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2718); } 
{ /* ./Ast/lvtype.scm 105 */
int BgL_offsetz00_1415;
BgL_offsetz00_1415 = 
(int)(BgL_objzd2classzd2numz00_1411); 
{ /* ./Ast/lvtype.scm 105 */
long BgL_offsetz00_1416;
{ /* ./Ast/lvtype.scm 105 */
long BgL_auxz00_2722;
BgL_auxz00_2722 = 
(long)(BgL_offsetz00_1415); 
BgL_offsetz00_1416 = 
(BgL_auxz00_2722-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 105 */
long BgL_modz00_1417;
{ /* ./Ast/lvtype.scm 105 */
int BgL_arg2028z00_1418;
BgL_arg2028z00_1418 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 105 */
long BgL_n2z00_1426;
BgL_n2z00_1426 = 
(long)(BgL_arg2028z00_1418); 
BgL_modz00_1417 = 
(BgL_offsetz00_1416/BgL_n2z00_1426); } } 
{ /* ./Ast/lvtype.scm 105 */
long BgL_restz00_1419;
{ /* ./Ast/lvtype.scm 105 */
int BgL_arg2024z00_1420;
BgL_arg2024z00_1420 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 105 */
long BgL_n2z00_1429;
BgL_n2z00_1429 = 
(long)(BgL_arg2024z00_1420); 
BgL_restz00_1419 = 
(BgL_offsetz00_1416%BgL_n2z00_1429); } } 
{ /* ./Ast/lvtype.scm 105 */

{ /* ./Ast/lvtype.scm 105 */
obj_t BgL_bucketz00_1421;
{ /* ./Ast/lvtype.scm 105 */
int BgL_kz00_1431;
BgL_kz00_1431 = 
(int)(BgL_modz00_1417); 
BgL_bucketz00_1421 = 
VECTOR_REF(BgL_arg2017z00_1412,BgL_kz00_1431); } 
{ /* ./Ast/lvtype.scm 105 */
int BgL_kz00_1433;
BgL_kz00_1433 = 
(int)(BgL_restz00_1419); 
BgL_method2705z00_1409 = 
VECTOR_REF(BgL_bucketz00_1421,BgL_kz00_1433); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2705z00_1409)(BgL_method2705z00_1409, 
(obj_t)(BgL_nodez00_1408), BEOA);} } } } } 
}



/* lvtype-node!-cast2725 */
obj_t BGl_lvtypezd2nodez12zd2cast2725z12zzast_lvtypez00(obj_t BgL_envz00_2065, obj_t BgL_nodez00_2066)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 95 */
{ 
BgL_castz00_bglt BgL_nodez00_1111;
BgL_nodez00_1111 = 
(BgL_castz00_bglt)(BgL_nodez00_2066); 
{ /* ./Ast/lvtype.scm 96 */
BgL_nodez00_bglt BgL_arg3173z00_1352;
BgL_arg3173z00_1352 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1111))->BgL_argz00); 
{ /* ./Ast/lvtype.scm 96 */
obj_t BgL_method2705z00_1355;
{ /* ./Ast/lvtype.scm 96 */
BgL_objectz00_bglt BgL_objz00_1356;
BgL_objz00_1356 = 
(BgL_objectz00_bglt)(BgL_arg3173z00_1352); 
{ /* ./Ast/lvtype.scm 96 */
long BgL_objzd2classzd2numz00_1357;
BgL_objzd2classzd2numz00_1357 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1356); 
{ /* ./Ast/lvtype.scm 96 */
obj_t BgL_arg2017z00_1358;
{ /* ./Ast/lvtype.scm 96 */
int BgL_auxz00_2742;
BgL_auxz00_2742 = 
(int)(((long)1)); 
BgL_arg2017z00_1358 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2742); } 
{ /* ./Ast/lvtype.scm 96 */
int BgL_offsetz00_1361;
BgL_offsetz00_1361 = 
(int)(BgL_objzd2classzd2numz00_1357); 
{ /* ./Ast/lvtype.scm 96 */
long BgL_offsetz00_1362;
{ /* ./Ast/lvtype.scm 96 */
long BgL_auxz00_2746;
BgL_auxz00_2746 = 
(long)(BgL_offsetz00_1361); 
BgL_offsetz00_1362 = 
(BgL_auxz00_2746-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 96 */
long BgL_modz00_1363;
{ /* ./Ast/lvtype.scm 96 */
int BgL_arg2028z00_1364;
BgL_arg2028z00_1364 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 96 */
long BgL_n2z00_1372;
BgL_n2z00_1372 = 
(long)(BgL_arg2028z00_1364); 
BgL_modz00_1363 = 
(BgL_offsetz00_1362/BgL_n2z00_1372); } } 
{ /* ./Ast/lvtype.scm 96 */
long BgL_restz00_1365;
{ /* ./Ast/lvtype.scm 96 */
int BgL_arg2024z00_1366;
BgL_arg2024z00_1366 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 96 */
long BgL_n2z00_1375;
BgL_n2z00_1375 = 
(long)(BgL_arg2024z00_1366); 
BgL_restz00_1365 = 
(BgL_offsetz00_1362%BgL_n2z00_1375); } } 
{ /* ./Ast/lvtype.scm 96 */

{ /* ./Ast/lvtype.scm 96 */
obj_t BgL_bucketz00_1367;
{ /* ./Ast/lvtype.scm 96 */
int BgL_kz00_1377;
BgL_kz00_1377 = 
(int)(BgL_modz00_1363); 
BgL_bucketz00_1367 = 
VECTOR_REF(BgL_arg2017z00_1358,BgL_kz00_1377); } 
{ /* ./Ast/lvtype.scm 96 */
int BgL_kz00_1379;
BgL_kz00_1379 = 
(int)(BgL_restz00_1365); 
BgL_method2705z00_1355 = 
VECTOR_REF(BgL_bucketz00_1367,BgL_kz00_1379); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2705z00_1355)(BgL_method2705z00_1355, 
(obj_t)(BgL_arg3173z00_1352), BEOA);} } } } 
}



/* lvtype-node!-extern2723 */
obj_t BGl_lvtypezd2nodez12zd2extern2723z12zzast_lvtypez00(obj_t BgL_envz00_2067, obj_t BgL_nodez00_2068)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 88 */
{ 
BgL_externz00_bglt BgL_nodez00_1104;
{ /* ./Ast/lvtype.scm 89 */
bool_t BgL_auxz00_2763;
BgL_nodez00_1104 = 
(BgL_externz00_bglt)(BgL_nodez00_2068); 
{ /* ./Ast/lvtype.scm 89 */
obj_t BgL_arg3163z00_1349;
BgL_arg3163z00_1349 = 
(((BgL_externz00_bglt)CREF(BgL_nodez00_1104))->BgL_exprza2za2); 
BgL_auxz00_2763 = 
BGl_lvtypezd2nodeza2z12z62zzast_lvtypez00(BgL_arg3163z00_1349); } 
return 
BBOOL(BgL_auxz00_2763);} } } 
}



/* lvtype-node!-funcall2721 */
obj_t BGl_lvtypezd2nodez12zd2funcall2721z12zzast_lvtypez00(obj_t BgL_envz00_2069, obj_t BgL_nodez00_2070)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 80 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1096;
{ /* ./Ast/lvtype.scm 81 */
bool_t BgL_auxz00_2768;
BgL_nodez00_1096 = 
(BgL_funcallz00_bglt)(BgL_nodez00_2070); 
{ /* ./Ast/lvtype.scm 82 */
BgL_nodez00_bglt BgL_arg3149z00_1100;
BgL_arg3149z00_1100 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1096))->BgL_funz00); 
{ /* ./Ast/lvtype.scm 82 */
obj_t BgL_method2705z00_1322;
{ /* ./Ast/lvtype.scm 82 */
BgL_objectz00_bglt BgL_objz00_1323;
BgL_objz00_1323 = 
(BgL_objectz00_bglt)(BgL_arg3149z00_1100); 
{ /* ./Ast/lvtype.scm 82 */
long BgL_objzd2classzd2numz00_1324;
BgL_objzd2classzd2numz00_1324 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1323); 
{ /* ./Ast/lvtype.scm 82 */
obj_t BgL_arg2017z00_1325;
{ /* ./Ast/lvtype.scm 82 */
int BgL_auxz00_2772;
BgL_auxz00_2772 = 
(int)(((long)1)); 
BgL_arg2017z00_1325 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2772); } 
{ /* ./Ast/lvtype.scm 82 */
int BgL_offsetz00_1328;
BgL_offsetz00_1328 = 
(int)(BgL_objzd2classzd2numz00_1324); 
{ /* ./Ast/lvtype.scm 82 */
long BgL_offsetz00_1329;
{ /* ./Ast/lvtype.scm 82 */
long BgL_auxz00_2776;
BgL_auxz00_2776 = 
(long)(BgL_offsetz00_1328); 
BgL_offsetz00_1329 = 
(BgL_auxz00_2776-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 82 */
long BgL_modz00_1330;
{ /* ./Ast/lvtype.scm 82 */
int BgL_arg2028z00_1331;
BgL_arg2028z00_1331 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 82 */
long BgL_n2z00_1339;
BgL_n2z00_1339 = 
(long)(BgL_arg2028z00_1331); 
BgL_modz00_1330 = 
(BgL_offsetz00_1329/BgL_n2z00_1339); } } 
{ /* ./Ast/lvtype.scm 82 */
long BgL_restz00_1332;
{ /* ./Ast/lvtype.scm 82 */
int BgL_arg2024z00_1333;
BgL_arg2024z00_1333 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 82 */
long BgL_n2z00_1342;
BgL_n2z00_1342 = 
(long)(BgL_arg2024z00_1333); 
BgL_restz00_1332 = 
(BgL_offsetz00_1329%BgL_n2z00_1342); } } 
{ /* ./Ast/lvtype.scm 82 */

{ /* ./Ast/lvtype.scm 82 */
obj_t BgL_bucketz00_1334;
{ /* ./Ast/lvtype.scm 82 */
int BgL_kz00_1344;
BgL_kz00_1344 = 
(int)(BgL_modz00_1330); 
BgL_bucketz00_1334 = 
VECTOR_REF(BgL_arg2017z00_1325,BgL_kz00_1344); } 
{ /* ./Ast/lvtype.scm 82 */
int BgL_kz00_1346;
BgL_kz00_1346 = 
(int)(BgL_restz00_1332); 
BgL_method2705z00_1322 = 
VECTOR_REF(BgL_bucketz00_1334,BgL_kz00_1346); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2705z00_1322)(BgL_method2705z00_1322, 
(obj_t)(BgL_arg3149z00_1100), BEOA); } } 
{ /* ./Ast/lvtype.scm 83 */
obj_t BgL_arg3153z00_1101;
BgL_arg3153z00_1101 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1096))->BgL_argsz00); 
BgL_auxz00_2768 = 
BGl_lvtypezd2nodeza2z12z62zzast_lvtypez00(BgL_arg3153z00_1101); } 
return 
BBOOL(BgL_auxz00_2768);} } } 
}



/* lvtype-node!-app-ly2719 */
obj_t BGl_lvtypezd2nodez12zd2appzd2ly2719zc0zzast_lvtypez00(obj_t BgL_envz00_2071, obj_t BgL_nodez00_2072)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 72 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1088;
BgL_nodez00_1088 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_2072); 
{ /* ./Ast/lvtype.scm 74 */
BgL_nodez00_bglt BgL_arg3135z00_1092;
BgL_arg3135z00_1092 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1088))->BgL_funz00); 
{ /* ./Ast/lvtype.scm 74 */
obj_t BgL_method2705z00_1268;
{ /* ./Ast/lvtype.scm 74 */
BgL_objectz00_bglt BgL_objz00_1269;
BgL_objz00_1269 = 
(BgL_objectz00_bglt)(BgL_arg3135z00_1092); 
{ /* ./Ast/lvtype.scm 74 */
long BgL_objzd2classzd2numz00_1270;
BgL_objzd2classzd2numz00_1270 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1269); 
{ /* ./Ast/lvtype.scm 74 */
obj_t BgL_arg2017z00_1271;
{ /* ./Ast/lvtype.scm 74 */
int BgL_auxz00_2799;
BgL_auxz00_2799 = 
(int)(((long)1)); 
BgL_arg2017z00_1271 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2799); } 
{ /* ./Ast/lvtype.scm 74 */
int BgL_offsetz00_1274;
BgL_offsetz00_1274 = 
(int)(BgL_objzd2classzd2numz00_1270); 
{ /* ./Ast/lvtype.scm 74 */
long BgL_offsetz00_1275;
{ /* ./Ast/lvtype.scm 74 */
long BgL_auxz00_2803;
BgL_auxz00_2803 = 
(long)(BgL_offsetz00_1274); 
BgL_offsetz00_1275 = 
(BgL_auxz00_2803-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 74 */
long BgL_modz00_1276;
{ /* ./Ast/lvtype.scm 74 */
int BgL_arg2028z00_1277;
BgL_arg2028z00_1277 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 74 */
long BgL_n2z00_1285;
BgL_n2z00_1285 = 
(long)(BgL_arg2028z00_1277); 
BgL_modz00_1276 = 
(BgL_offsetz00_1275/BgL_n2z00_1285); } } 
{ /* ./Ast/lvtype.scm 74 */
long BgL_restz00_1278;
{ /* ./Ast/lvtype.scm 74 */
int BgL_arg2024z00_1279;
BgL_arg2024z00_1279 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 74 */
long BgL_n2z00_1288;
BgL_n2z00_1288 = 
(long)(BgL_arg2024z00_1279); 
BgL_restz00_1278 = 
(BgL_offsetz00_1275%BgL_n2z00_1288); } } 
{ /* ./Ast/lvtype.scm 74 */

{ /* ./Ast/lvtype.scm 74 */
obj_t BgL_bucketz00_1280;
{ /* ./Ast/lvtype.scm 74 */
int BgL_kz00_1290;
BgL_kz00_1290 = 
(int)(BgL_modz00_1276); 
BgL_bucketz00_1280 = 
VECTOR_REF(BgL_arg2017z00_1271,BgL_kz00_1290); } 
{ /* ./Ast/lvtype.scm 74 */
int BgL_kz00_1292;
BgL_kz00_1292 = 
(int)(BgL_restz00_1278); 
BgL_method2705z00_1268 = 
VECTOR_REF(BgL_bucketz00_1280,BgL_kz00_1292); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method2705z00_1268)(BgL_method2705z00_1268, 
(obj_t)(BgL_arg3135z00_1092), BEOA); } } 
{ /* ./Ast/lvtype.scm 75 */
BgL_nodez00_bglt BgL_arg3139z00_1093;
BgL_arg3139z00_1093 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1088))->BgL_argz00); 
{ /* ./Ast/lvtype.scm 75 */
obj_t BgL_method2705z00_1295;
{ /* ./Ast/lvtype.scm 75 */
BgL_objectz00_bglt BgL_objz00_1296;
BgL_objz00_1296 = 
(BgL_objectz00_bglt)(BgL_arg3139z00_1093); 
{ /* ./Ast/lvtype.scm 75 */
long BgL_objzd2classzd2numz00_1297;
BgL_objzd2classzd2numz00_1297 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1296); 
{ /* ./Ast/lvtype.scm 75 */
obj_t BgL_arg2017z00_1298;
{ /* ./Ast/lvtype.scm 75 */
int BgL_auxz00_2822;
BgL_auxz00_2822 = 
(int)(((long)1)); 
BgL_arg2017z00_1298 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2822); } 
{ /* ./Ast/lvtype.scm 75 */
int BgL_offsetz00_1301;
BgL_offsetz00_1301 = 
(int)(BgL_objzd2classzd2numz00_1297); 
{ /* ./Ast/lvtype.scm 75 */
long BgL_offsetz00_1302;
{ /* ./Ast/lvtype.scm 75 */
long BgL_auxz00_2826;
BgL_auxz00_2826 = 
(long)(BgL_offsetz00_1301); 
BgL_offsetz00_1302 = 
(BgL_auxz00_2826-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 75 */
long BgL_modz00_1303;
{ /* ./Ast/lvtype.scm 75 */
int BgL_arg2028z00_1304;
BgL_arg2028z00_1304 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 75 */
long BgL_n2z00_1312;
BgL_n2z00_1312 = 
(long)(BgL_arg2028z00_1304); 
BgL_modz00_1303 = 
(BgL_offsetz00_1302/BgL_n2z00_1312); } } 
{ /* ./Ast/lvtype.scm 75 */
long BgL_restz00_1305;
{ /* ./Ast/lvtype.scm 75 */
int BgL_arg2024z00_1306;
BgL_arg2024z00_1306 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 75 */
long BgL_n2z00_1315;
BgL_n2z00_1315 = 
(long)(BgL_arg2024z00_1306); 
BgL_restz00_1305 = 
(BgL_offsetz00_1302%BgL_n2z00_1315); } } 
{ /* ./Ast/lvtype.scm 75 */

{ /* ./Ast/lvtype.scm 75 */
obj_t BgL_bucketz00_1307;
{ /* ./Ast/lvtype.scm 75 */
int BgL_kz00_1317;
BgL_kz00_1317 = 
(int)(BgL_modz00_1303); 
BgL_bucketz00_1307 = 
VECTOR_REF(BgL_arg2017z00_1298,BgL_kz00_1317); } 
{ /* ./Ast/lvtype.scm 75 */
int BgL_kz00_1319;
BgL_kz00_1319 = 
(int)(BgL_restz00_1305); 
BgL_method2705z00_1295 = 
VECTOR_REF(BgL_bucketz00_1307,BgL_kz00_1319); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2705z00_1295)(BgL_method2705z00_1295, 
(obj_t)(BgL_arg3139z00_1093), BEOA);} } } } 
}



/* lvtype-node!-app2717 */
obj_t BGl_lvtypezd2nodez12zd2app2717z12zzast_lvtypez00(obj_t BgL_envz00_2073, obj_t BgL_nodez00_2074)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 65 */
{ 
BgL_appz00_bglt BgL_nodez00_1081;
{ /* ./Ast/lvtype.scm 66 */
bool_t BgL_auxz00_2843;
BgL_nodez00_1081 = 
(BgL_appz00_bglt)(BgL_nodez00_2074); 
{ /* ./Ast/lvtype.scm 66 */
obj_t BgL_arg3125z00_1264;
BgL_arg3125z00_1264 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1081))->BgL_argsz00); 
BgL_auxz00_2843 = 
BGl_lvtypezd2nodeza2z12z62zzast_lvtypez00(BgL_arg3125z00_1264); } 
return 
BBOOL(BgL_auxz00_2843);} } } 
}



/* lvtype-node!-sequence2715 */
obj_t BGl_lvtypezd2nodez12zd2sequence2715z12zzast_lvtypez00(obj_t BgL_envz00_2075, obj_t BgL_nodez00_2076)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 58 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1074;
{ /* ./Ast/lvtype.scm 59 */
bool_t BgL_auxz00_2848;
BgL_nodez00_1074 = 
(BgL_sequencez00_bglt)(BgL_nodez00_2076); 
{ /* ./Ast/lvtype.scm 59 */
obj_t BgL_arg3115z00_1261;
BgL_arg3115z00_1261 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1074))->BgL_nodesz00); 
BgL_auxz00_2848 = 
BGl_lvtypezd2nodeza2z12z62zzast_lvtypez00(BgL_arg3115z00_1261); } 
return 
BBOOL(BgL_auxz00_2848);} } } 
}



/* lvtype-node!-closure2713 */
obj_t BGl_lvtypezd2nodez12zd2closure2713z12zzast_lvtypez00(obj_t BgL_envz00_2077, obj_t BgL_nodez00_2078)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 52 */
{ 
BgL_closurez00_bglt BgL_nodez00_1066;
BgL_nodez00_1066 = 
(BgL_closurez00_bglt)(BgL_nodez00_2078); 
{ /* ./Ast/lvtype.scm 53 */
obj_t BgL_arg3105z00_1071;
BgL_arg3105z00_1071 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_nodez00_1066)); 
return 
BGl_internalzd2errorzd2zztools_errorz00(BGl_string3866z00zzast_lvtypez00, BGl_string3867z00zzast_lvtypez00, BgL_arg3105z00_1071);} } } 
}



/* lvtype-node!-var2711 */
obj_t BGl_lvtypezd2nodez12zd2var2711z12zzast_lvtypez00(obj_t BgL_envz00_2079, obj_t BgL_nodez00_2080)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 46 */
return BUNSPEC;} 
}



/* lvtype-node!-kwote2709 */
obj_t BGl_lvtypezd2nodez12zd2kwote2709z12zzast_lvtypez00(obj_t BgL_envz00_2081, obj_t BgL_nodez00_2082)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 40 */
return BUNSPEC;} 
}



/* lvtype-node!-atom2707 */
obj_t BGl_lvtypezd2nodez12zd2atom2707z12zzast_lvtypez00(obj_t BgL_envz00_2083, obj_t BgL_nodez00_2084)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 34 */
return BUNSPEC;} 
}



/* lvtype-node! */
BGL_EXPORTED_DEF obj_t BGl_lvtypezd2nodez12zc0zzast_lvtypez00(BgL_nodez00_bglt BgL_nodez00_1)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 29 */
{ /* ./Ast/lvtype.scm 29 */
obj_t BgL_method2705z00_1992;
{ /* ./Ast/lvtype.scm 29 */
BgL_objectz00_bglt BgL_objz00_1993;
BgL_objz00_1993 = 
(BgL_objectz00_bglt)(BgL_nodez00_1); 
{ /* ./Ast/lvtype.scm 29 */
long BgL_objzd2classzd2numz00_1994;
BgL_objzd2classzd2numz00_1994 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1993); 
{ /* ./Ast/lvtype.scm 29 */
obj_t BgL_arg2017z00_1995;
{ /* ./Ast/lvtype.scm 29 */
int BgL_auxz00_2859;
BgL_auxz00_2859 = 
(int)(((long)1)); 
BgL_arg2017z00_1995 = 
PROCEDURE_REF(BGl_lvtypezd2nodez12zd2envz12zzast_lvtypez00, BgL_auxz00_2859); } 
{ /* ./Ast/lvtype.scm 29 */
int BgL_offsetz00_1998;
BgL_offsetz00_1998 = 
(int)(BgL_objzd2classzd2numz00_1994); 
{ /* ./Ast/lvtype.scm 29 */
long BgL_offsetz00_1999;
{ /* ./Ast/lvtype.scm 29 */
long BgL_auxz00_2863;
BgL_auxz00_2863 = 
(long)(BgL_offsetz00_1998); 
BgL_offsetz00_1999 = 
(BgL_auxz00_2863-OBJECT_TYPE); } 
{ /* ./Ast/lvtype.scm 29 */
long BgL_modz00_2000;
{ /* ./Ast/lvtype.scm 29 */
int BgL_arg2028z00_2001;
BgL_arg2028z00_2001 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 29 */
long BgL_n2z00_2009;
BgL_n2z00_2009 = 
(long)(BgL_arg2028z00_2001); 
BgL_modz00_2000 = 
(BgL_offsetz00_1999/BgL_n2z00_2009); } } 
{ /* ./Ast/lvtype.scm 29 */
long BgL_restz00_2002;
{ /* ./Ast/lvtype.scm 29 */
int BgL_arg2024z00_2003;
BgL_arg2024z00_2003 = 
(int)(((long)8)); 
{ /* ./Ast/lvtype.scm 29 */
long BgL_n2z00_2012;
BgL_n2z00_2012 = 
(long)(BgL_arg2024z00_2003); 
BgL_restz00_2002 = 
(BgL_offsetz00_1999%BgL_n2z00_2012); } } 
{ /* ./Ast/lvtype.scm 29 */

{ /* ./Ast/lvtype.scm 29 */
obj_t BgL_bucketz00_2004;
{ /* ./Ast/lvtype.scm 29 */
int BgL_kz00_2014;
BgL_kz00_2014 = 
(int)(BgL_modz00_2000); 
BgL_bucketz00_2004 = 
VECTOR_REF(BgL_arg2017z00_1995,BgL_kz00_2014); } 
{ /* ./Ast/lvtype.scm 29 */
int BgL_kz00_2016;
BgL_kz00_2016 = 
(int)(BgL_restz00_2002); 
BgL_method2705z00_1992 = 
VECTOR_REF(BgL_bucketz00_2004,BgL_kz00_2016); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2705z00_1992)(BgL_method2705z00_1992, 
(obj_t)(BgL_nodez00_1), BEOA);} } 
}



/* _lvtype-node!3442 */
obj_t BGl__lvtypezd2nodez123442zc0zzast_lvtypez00(obj_t BgL_envz00_2020, obj_t BgL_nodez00_2021)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 29 */
return 
BGl_lvtypezd2nodez12zc0zzast_lvtypez00(
(BgL_nodez00_bglt)(BgL_nodez00_2021));} 
}



/* lvtype-node!-default2704 */
obj_t BGl_lvtypezd2nodez12zd2default2704z12zzast_lvtypez00(BgL_nodez00_bglt BgL_nodez00_2)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 16 */
{ /* ./Ast/lvtype.scm 16 */
obj_t BgL_procz00_2017;obj_t BgL_objectz00_2019;
BgL_procz00_2017 = 
CNST_TABLE_REF(((long)0)); 
BgL_objectz00_2019 = 
(obj_t)(BgL_nodez00_2); 
FAILURE(BgL_procz00_2017,BGl_string3868z00zzast_lvtypez00,BgL_objectz00_2019);} } 
}



/* _lvtype-node!-default2704 */
obj_t BGl__lvtypezd2nodez12zd2default2704z12zzast_lvtypez00(obj_t BgL_envz00_2085, obj_t BgL_nodez00_2086)
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 16 */
return 
BGl_lvtypezd2nodez12zd2default2704z12zzast_lvtypez00(
(BgL_nodez00_bglt)(BgL_nodez00_2086));} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzast_lvtypez00()
{ AN_OBJECT;
{ /* ./Ast/lvtype.scm 16 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "ast_lvtype"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "ast_lvtype"); 
BGl_modulezd2initializa7ationz75zztype_typeofz00(((long)852), "ast_lvtype"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "ast_lvtype"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "ast_lvtype"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "ast_lvtype"); 
return 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "ast_lvtype");} 
}

