/*===========================================================================*/
/*   (Cnst/node.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 Cnst/node.scm)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>


/* Object type definitions */
typedef struct BgL_typez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   obj_t BgL_siza7eza7;
   obj_t BgL_classz00;
   obj_t BgL_coercezd2tozd2;
   obj_t BgL_parentsz00;
   bool_t BgL_initzf3zf3;
   bool_t BgL_magiczf3zf3;
   obj_t BgL_z42z42;
   obj_t BgL_aliasz00;
   obj_t BgL_pointedzd2tozd2byz00;
   obj_t BgL_tvectorz00;
   obj_t BgL_locationz00;
   obj_t BgL_importzd2locationzd2;
} *BgL_typez00_bglt;

typedef struct BgL_valuez00_bgl {
   header_t header;
   obj_t widening;
} *BgL_valuez00_bglt;

typedef struct BgL_variablez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_valuez00_bgl * BgL_valuez00;
   obj_t BgL_accessz00;
   obj_t BgL_fastzd2alphazd2;
   obj_t BgL_removablez00;
   long BgL_occurrencez00;
} *BgL_variablez00_bglt;

typedef struct BgL_globalz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_valuez00_bgl * BgL_valuez00;
   obj_t BgL_accessz00;
   obj_t BgL_fastzd2alphazd2;
   obj_t BgL_removablez00;
   long BgL_occurrencez00;
   obj_t BgL_modulez00;
   obj_t BgL_importz00;
   bool_t BgL_evaluablezf3zf3;
   bool_t BgL_libraryzf3zf3;
   bool_t BgL_userzf3zf3;
   obj_t BgL_pragmaz00;
   obj_t BgL_srcz00;
   obj_t BgL_jvmzd2typezd2namez00;
} *BgL_globalz00_bglt;

typedef struct BgL_localz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_valuez00_bgl * BgL_valuez00;
   obj_t BgL_accessz00;
   obj_t BgL_fastzd2alphazd2;
   obj_t BgL_removablez00;
   long BgL_occurrencez00;
   bool_t BgL_userzf3zf3;
   long BgL_keyz00;
} *BgL_localz00_bglt;

typedef struct BgL_funz00_bgl {
   header_t header;
   obj_t widening;
   long BgL_arityz00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_predicatezd2ofzd2;
   obj_t BgL_stackzd2allocatorzd2;
   bool_t BgL_topzf3zf3;
   obj_t BgL_thezd2closurezd2;
   obj_t BgL_effectz00;
} *BgL_funz00_bglt;

typedef struct BgL_sfunz00_bgl {
   header_t header;
   obj_t widening;
   long BgL_arityz00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_predicatezd2ofzd2;
   obj_t BgL_stackzd2allocatorzd2;
   bool_t BgL_topzf3zf3;
   obj_t BgL_thezd2closurezd2;
   obj_t BgL_effectz00;
   obj_t BgL_propertyz00;
   obj_t BgL_argsz00;
   obj_t BgL_bodyz00;
   obj_t BgL_classz00;
   obj_t BgL_dssslzd2keywordszd2;
   obj_t BgL_locz00;
} *BgL_sfunz00_bglt;

typedef struct BgL_cfunz00_bgl {
   header_t header;
   obj_t widening;
   long BgL_arityz00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_predicatezd2ofzd2;
   obj_t BgL_stackzd2allocatorzd2;
   bool_t BgL_topzf3zf3;
   obj_t BgL_thezd2closurezd2;
   obj_t BgL_effectz00;
   obj_t BgL_argszd2typezd2;
   bool_t BgL_macrozf3zf3;
   bool_t BgL_infixzf3zf3;
   obj_t BgL_methodz00;
} *BgL_cfunz00_bglt;

typedef struct BgL_svarz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
} *BgL_svarz00_bglt;

typedef struct BgL_scnstz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_nodez00;
   obj_t BgL_classz00;
   obj_t BgL_locz00;
} *BgL_scnstz00_bglt;

typedef struct BgL_cvarz00_bgl {
   header_t header;
   obj_t widening;
   bool_t BgL_macrozf3zf3;
} *BgL_cvarz00_bglt;

typedef struct BgL_sexitz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_handlerz00;
   bool_t BgL_detachedzf3zf3;
} *BgL_sexitz00_bglt;

typedef struct BgL_feffectz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_readz00;
   obj_t BgL_writez00;
} *BgL_feffectz00_bglt;

typedef struct BgL_nodez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
} *BgL_nodez00_bglt;

typedef struct BgL_nodezf2effectzf2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
} *BgL_nodezf2effectzf2_bglt;

typedef struct BgL_atomz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_valuez00;
} *BgL_atomz00_bglt;

typedef struct BgL_varz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_variablez00_bgl * BgL_variablez00;
} *BgL_varz00_bglt;

typedef struct BgL_closurez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_variablez00_bgl * BgL_variablez00;
} *BgL_closurez00_bglt;

typedef struct BgL_kwotez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_valuez00;
} *BgL_kwotez00_bglt;

typedef struct BgL_sequencez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_nodesz00;
} *BgL_sequencez00_bglt;

typedef struct BgL_appz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_varz00_bgl * BgL_funz00;
   obj_t BgL_argsz00;
} *BgL_appz00_bglt;

typedef struct BgL_appzd2lyzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_funz00;
   struct BgL_nodez00_bgl * BgL_argz00;
} *BgL_appzd2lyzd2_bglt;

typedef struct BgL_funcallz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_funz00;
   obj_t BgL_argsz00;
   obj_t BgL_strengthz00;
} *BgL_funcallz00_bglt;

typedef struct BgL_externz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
} *BgL_externz00_bglt;

typedef struct BgL_pragmaz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_formatz00;
} *BgL_pragmaz00_bglt;

typedef struct BgL_getfieldz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_fnamez00;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
} *BgL_getfieldz00_bglt;

typedef struct BgL_setfieldz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_fnamez00;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
} *BgL_setfieldz00_bglt;

typedef struct BgL_newz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
} *BgL_newz00_bglt;

typedef struct BgL_vallocz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2heapzd2formatz00;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
} *BgL_vallocz00_bglt;

typedef struct BgL_vrefz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vrefz00_bglt;

typedef struct BgL_vsetz12z12_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_ftypez00;
   struct BgL_typez00_bgl * BgL_otypez00;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vsetz12z12_bglt;

typedef struct BgL_vlengthz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   obj_t BgL_czd2formatzd2;
   struct BgL_typez00_bgl * BgL_vtypez00;
} *BgL_vlengthz00_bglt;

typedef struct BgL_isaz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_exprza2za2;
   obj_t BgL_effectz00;
   struct BgL_typez00_bgl * BgL_classz00;
} *BgL_isaz00_bglt;

typedef struct BgL_castz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_argz00;
} *BgL_castz00_bglt;

typedef struct BgL_setqz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_varz00_bgl * BgL_varz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_setqz00_bglt;

typedef struct BgL_conditionalz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_testz00;
   struct BgL_nodez00_bgl * BgL_truez00;
   struct BgL_nodez00_bgl * BgL_falsez00;
} *BgL_conditionalz00_bglt;

typedef struct BgL_failz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_procz00;
   struct BgL_nodez00_bgl * BgL_msgz00;
   struct BgL_nodez00_bgl * BgL_objz00;
} *BgL_failz00_bglt;

typedef struct BgL_selectz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_testz00;
   obj_t BgL_clausesz00;
   struct BgL_typez00_bgl * BgL_itemzd2typezd2;
} *BgL_selectz00_bglt;

typedef struct BgL_letzd2funzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_localsz00;
   struct BgL_nodez00_bgl * BgL_bodyz00;
} *BgL_letzd2funzd2_bglt;

typedef struct BgL_letzd2varzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   obj_t BgL_bindingsz00;
   struct BgL_nodez00_bgl * BgL_bodyz00;
   bool_t BgL_removablezf3zf3;
} *BgL_letzd2varzd2_bglt;

typedef struct BgL_setzd2exzd2itz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_varz00_bgl * BgL_varz00;
   struct BgL_nodez00_bgl * BgL_bodyz00;
} *BgL_setzd2exzd2itz00_bglt;

typedef struct BgL_jumpzd2exzd2itz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_nodez00_bgl * BgL_exitz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_jumpzd2exzd2itz00_bglt;

typedef struct BgL_makezd2boxzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_makezd2boxzd2_bglt;

typedef struct BgL_boxzd2refzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   obj_t BgL_sidezd2effectzf3z21;
   obj_t BgL_keyz00;
   struct BgL_varz00_bgl * BgL_varz00;
} *BgL_boxzd2refzd2_bglt;

typedef struct BgL_boxzd2setz12zc0_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_varz00_bgl * BgL_varz00;
   struct BgL_nodez00_bgl * BgL_valuez00;
} *BgL_boxzd2setz12zc0_bglt;

typedef struct BgL_localzf2bvaluezf2_bgl {
   struct BgL_nodez00_bgl * BgL_bindingzd2valuezd2;
} *BgL_localzf2bvaluezf2_bglt;


static obj_t BGl_cnstz12zd2kwote2776zc0zzcnst_nodez00(obj_t, obj_t);
static obj_t BGl__getzd2nodezd2atomzd2value4016zd2zzcnst_nodez00(obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzcnst_nodez00();
static BgL_nodez00_bglt BGl_cnstz12zd2default2771zc0zzcnst_nodez00(BgL_nodez00_bglt);
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl_cnstz12zd2sequence2782zc0zzcnst_nodez00(obj_t, obj_t);
BGL_IMPORT long BGl_classzd2numzd2zz__objectz00(obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
static obj_t BGl_objectzd2ze3structzd2localzf2bvalue2824z11zzcnst_nodez00(obj_t, obj_t);
extern BgL_nodez00_bglt BGl_cnstzd2alloczd2tvectorz00zzcnst_allocz00(obj_t, obj_t);
static obj_t BGl_cnstza2z12zb0zzcnst_nodez00(obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
extern obj_t BGl_za2longzd2ze3intza2z31zzcnst_cachez00;
extern BgL_atomz00_bglt BGl_makezd2atomzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t);
static obj_t BGl_cnstz12zd2extern2784zc0zzcnst_nodez00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_objectzd2ze3structz31zz__objectz00(BgL_objectz00_bglt);
static obj_t BGl_cnstz12zd2letzd2fun2796z12zzcnst_nodez00(obj_t, obj_t);
extern obj_t BGl_za2btrueza2z00zzcnst_cachez00;
extern obj_t BGl_za2boolzd2ze3bboolza2z31zzcnst_cachez00;
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
static obj_t BGl_cnstz12zd2var2778zc0zzcnst_nodez00(obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
static obj_t BGl_cnstz12zd2closure2780zc0zzcnst_nodez00(obj_t, obj_t);
extern BgL_nodez00_bglt BGl_cnstzd2alloczd2realz00zzcnst_allocz00(obj_t, obj_t);
static obj_t BGl_cnstz12zd2fail2792zc0zzcnst_nodez00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_registerzd2classz12zc0zz__objectz00(obj_t, obj_t, obj_t, obj_t, long, obj_t, obj_t, obj_t);
extern obj_t BGl_kwotez00zzast_nodez00;
static obj_t BGl_getzd2nodezd2atomzd2valuezd2app2822z00zzcnst_nodez00(obj_t, obj_t);
static obj_t BGl_getzd2nodezd2atomzd2valuezd2atom2818z00zzcnst_nodez00(obj_t, obj_t);
static obj_t BGl_cnstz12zd2letzd2var2798z12zzcnst_nodez00(obj_t, obj_t);
static obj_t BGl__cnstz124008z12zzcnst_nodez00(obj_t, obj_t);
extern obj_t BGl_za2bboolza2z00zztype_cachez00;
extern obj_t BGl_za2bfalseza2z00zzcnst_cachez00;
extern obj_t BGl_castz00zzast_nodez00;
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_cnstzd2initzd2zzcnst_nodez00();
extern obj_t BGl_atomz00zzast_nodez00;
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
static obj_t BGl_cnstz12zd2conditional2790zc0zzcnst_nodez00(obj_t, obj_t);
static obj_t BGl_localzf2bvaluezf2zzcnst_nodez00 = BUNSPEC;
extern BgL_nodez00_bglt BGl_cnstzd2alloczd2ucs2zd2stringzd2zzcnst_allocz00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzcnst_nodez00();
extern BgL_nodez00_bglt BGl_cnstzd2alloczd2listz00zzcnst_allocz00(obj_t, obj_t);
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
BGL_IMPORT obj_t make_struct(obj_t, int, obj_t);
static obj_t BGl_cnstz12zd2boxzd2ref2806z12zzcnst_nodez00(obj_t, obj_t);
static obj_t BGl_cnstz12zd2atom2774zc0zzcnst_nodez00(obj_t, obj_t);
static obj_t BGl_cnstz12zd2makezd2box2804z12zzcnst_nodez00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl__getzd2nodezd2atomzd2valuezd2default2815z00zzcnst_nodez00(obj_t, obj_t);
extern obj_t BGl_za2makezd2vazd2procedureza2z00zzcnst_cachez00;
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzcnst_nodez00();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzcnst_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_speekz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_envz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcnst_cachez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcnst_allocz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
extern obj_t BGl_za2makezd2fxzd2procedureza2z00zzcnst_cachez00;
static obj_t BGl__allocatezd2localzf2bvaluez20zzcnst_nodez00(obj_t);
extern BgL_nodez00_bglt BGl_cnstzd2alloczd2procedurez00zzcnst_allocz00(BgL_nodez00_bglt, obj_t);
static obj_t BGl_cnstz12zd2setzd2exzd2it2800zc0zzcnst_nodez00(obj_t, obj_t);
static obj_t BGl_cnstz12zd2select2794zc0zzcnst_nodez00(obj_t, obj_t);
static obj_t BGl_cnstz12zd2setq2788zc0zzcnst_nodez00(obj_t, obj_t);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
BGL_IMPORT BgL_objectz00_bglt BGl_structzb2objectzd2ze3objectz83zz__objectz00(BgL_objectz00_bglt, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2localzf2bvalue2826za3zzcnst_nodez00(obj_t, obj_t, obj_t);
extern obj_t BGl_shapez00zztools_shapez00(obj_t);
extern obj_t BGl_za2doublezd2ze3realza2z31zzcnst_cachez00;
static obj_t BGl_cnstz12zd2app2814zc0zzcnst_nodez00(obj_t, obj_t);
static obj_t BGl_getzd2nodezd2atomzd2valuezd2var2820z00zzcnst_nodez00(obj_t, obj_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
extern obj_t BGl_externz00zzast_nodez00;
static obj_t BGl_cnstz12zd2jumpzd2exzd2it2802zc0zzcnst_nodez00(obj_t, obj_t);
extern obj_t BGl_conditionalz00zzast_nodez00;
extern obj_t BGl_sequencez00zzast_nodez00;
extern obj_t BGl_internalzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t);
extern obj_t BGl_appz00zzast_nodez00;
BGL_EXPORTED_DECL BgL_nodez00_bglt BGl_cnstz12z12zzcnst_nodez00(BgL_nodez00_bglt);
extern obj_t BGl_localz00zzast_varz00;
extern obj_t BGl_closurez00zzast_nodez00;
static obj_t BGl_cnstz12zd2funcall2812zc0zzcnst_nodez00(obj_t, obj_t);
static obj_t BGl__cnstz12zd2default2771zc0zzcnst_nodez00(obj_t, obj_t);
extern BgL_nodez00_bglt BGl_cnstzd2alloczd2vectorz00zzcnst_allocz00(obj_t, obj_t);
extern BgL_varz00_bglt BGl_makezd2varzd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_variablez00_bglt);
static obj_t BGl_cnstz12zd2cast2786zc0zzcnst_nodez00(obj_t, obj_t);
static obj_t BGl_objectzd2initzd2zzcnst_nodez00();
BGL_EXPORTED_DECL obj_t BGl_getzd2nodezd2atomzd2valuezd2zzcnst_nodez00(BgL_nodez00_bglt);
static obj_t BGl_requirezd2initializa7ationz75zzcnst_nodez00 = BUNSPEC;
extern BgL_nodez00_bglt BGl_cnstzd2alloczd2keywordz00zzcnst_allocz00(obj_t, obj_t);
extern obj_t BGl_za2stringzd2ze3bstringza2z31zzcnst_cachez00;
extern BgL_nodez00_bglt BGl_cnstzd2alloczd2stringz00zzcnst_allocz00(obj_t, obj_t);
static obj_t BGl_cnstz12zd2appzd2ly2810z12zzcnst_nodez00(obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzcnst_nodez00();
static obj_t BGl_cnstz12zd2boxzd2setz122808z00zzcnst_nodez00(obj_t, obj_t);
extern BgL_nodez00_bglt BGl_cnstzd2alloczd2symbolz00zzcnst_allocz00(obj_t, obj_t);
extern obj_t BGl_setqz00zzast_nodez00;
BGL_IMPORT obj_t BGl_findzd2superzd2classzd2methodzd2zz__objectz00(BgL_objectz00_bglt, obj_t, obj_t);
static obj_t __cnst[ 6 ] ;


DEFINE_EXPORT_GENERIC( BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_bgl__cnstza7124008za712za7za7cnst_nodeza7004666za7, BGl__cnstz124008z12zzcnst_nodez00, 0L, 1 );
BGL_IMPORT obj_t BGl_objectzd2ze3structzd2envze3zz__objectz00;
DEFINE_STATIC_PROCEDURE( BGl_getzd2nodezd2atomzd2valuezd2default2815zd2envzd2zzcnst_nodez00, BgL_bgl__getza7d2nodeza7d2atomza7d2valueza7d2default2815za700za7za7cnst_nodeza7004667z00, BGl__getzd2nodezd2atomzd2valuezd2default2815z00zzcnst_nodez00, 0L, 1 );
DEFINE_STRING( BGl_string4636z00zzcnst_nodez00, BgL_bgl_string4636za700za7za7cnst_nodeza7004668z00, "cnst!-default2771 a-tvector read (no-atom-value) local/bvalue done ", 67 );
DEFINE_STRING( BGl_string4635z00zzcnst_nodez00, BgL_bgl_string4635za700za7za7cnst_nodeza7004669z00, "No method for this object", 25 );
DEFINE_STRING( BGl_string4634z00zzcnst_nodez00, BgL_bgl_string4634za700za7za7cnst_nodeza7004670z00, "Illegal expression", 18 );
DEFINE_STRING( BGl_string4633z00zzcnst_nodez00, BgL_bgl_string4633za700za7za7cnst_nodeza7004671z00, "cnst-quote", 10 );
DEFINE_STRING( BGl_string4632z00zzcnst_nodez00, BgL_bgl_string4632za700za7za7cnst_nodeza7004672z00, "Unexepected `closure' node", 26 );
DEFINE_STRING( BGl_string4631z00zzcnst_nodez00, BgL_bgl_string4631za700za7za7cnst_nodeza7004673z00, "cnst!", 5 );
DEFINE_STATIC_PROCEDURE( BGl_cnstz12zd2default2771zd2envz12zzcnst_nodez00, BgL_bgl__cnstza712za7d2default2771za7c0za7za7cnst_nodeza7004674z00, BGl__cnstz12zd2default2771zc0zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4605z00zzcnst_nodez00, BgL_bgl_cnstza712za7d2atom2774za7c0za7za7cnst_nodeza7004675z00, BGl_cnstz12zd2atom2774zc0zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4606z00zzcnst_nodez00, BgL_bgl_cnstza712za7d2kwote2776za7c0za7za7cnst_nodeza7004676z00, BGl_cnstz12zd2kwote2776zc0zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4607z00zzcnst_nodez00, BgL_bgl_cnstza712za7d2var2778za7c0za7za7cnst_nodeza7004677z00, BGl_cnstz12zd2var2778zc0zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4608z00zzcnst_nodez00, BgL_bgl_cnstza712za7d2closure2780za7c0za7za7cnst_nodeza7004678z00, BGl_cnstz12zd2closure2780zc0zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4610z00zzcnst_nodez00, BgL_bgl_cnstza712za7d2extern2784za7c0za7za7cnst_nodeza7004679z00, BGl_cnstz12zd2extern2784zc0zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4609z00zzcnst_nodez00, BgL_bgl_cnstza712za7d2sequence2782za7c0za7za7cnst_nodeza7004680z00, BGl_cnstz12zd2sequence2782zc0zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4611z00zzcnst_nodez00, BgL_bgl_cnstza712za7d2cast2786za7c0za7za7cnst_nodeza7004681z00, BGl_cnstz12zd2cast2786zc0zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4612z00zzcnst_nodez00, BgL_bgl_cnstza712za7d2setq2788za7c0za7za7cnst_nodeza7004682z00, BGl_cnstz12zd2setq2788zc0zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4613z00zzcnst_nodez00, BgL_bgl_cnstza712za7d2conditional2790za7c0za7za7cnst_nodeza7004683z00, BGl_cnstz12zd2conditional2790zc0zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4614z00zzcnst_nodez00, BgL_bgl_cnstza712za7d2fail2792za7c0za7za7cnst_nodeza7004684z00, BGl_cnstz12zd2fail2792zc0zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4615z00zzcnst_nodez00, BgL_bgl_cnstza712za7d2select2794za7c0za7za7cnst_nodeza7004685z00, BGl_cnstz12zd2select2794zc0zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4616z00zzcnst_nodez00, BgL_bgl_cnstza712za7d2letza7d2fun2796za712za7za7cnst_nodeza7004686za7, BGl_cnstz12zd2letzd2fun2796z12zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4617z00zzcnst_nodez00, BgL_bgl_cnstza712za7d2letza7d2var2798za712za7za7cnst_nodeza7004687za7, BGl_cnstz12zd2letzd2var2798z12zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4618z00zzcnst_nodez00, BgL_bgl_cnstza712za7d2setza7d2exza7d2it2800za7c0za7za7cnst_nodeza7004688z00, BGl_cnstz12zd2setzd2exzd2it2800zc0zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4620z00zzcnst_nodez00, BgL_bgl_cnstza712za7d2makeza7d2box2804za712za7za7cnst_nodeza7004689za7, BGl_cnstz12zd2makezd2box2804z12zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4619z00zzcnst_nodez00, BgL_bgl_cnstza712za7d2jumpza7d2exza7d2it2802za7c0za7za7cnst_nodeza7004690z00, BGl_cnstz12zd2jumpzd2exzd2it2802zc0zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4621z00zzcnst_nodez00, BgL_bgl_cnstza712za7d2boxza7d2ref2806za712za7za7cnst_nodeza7004691za7, BGl_cnstz12zd2boxzd2ref2806z12zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4622z00zzcnst_nodez00, BgL_bgl_cnstza712za7d2boxza7d2setza7122808za700za7za7cnst_nodeza7004692z00, BGl_cnstz12zd2boxzd2setz122808z00zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4623z00zzcnst_nodez00, BgL_bgl_cnstza712za7d2appza7d2ly2810za712za7za7cnst_nodeza7004693za7, BGl_cnstz12zd2appzd2ly2810z12zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4624z00zzcnst_nodez00, BgL_bgl_cnstza712za7d2funcall2812za7c0za7za7cnst_nodeza7004694z00, BGl_cnstz12zd2funcall2812zc0zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4625z00zzcnst_nodez00, BgL_bgl_cnstza712za7d2app2814za7c0za7za7cnst_nodeza7004695z00, BGl_cnstz12zd2app2814zc0zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4626z00zzcnst_nodez00, BgL_bgl_getza7d2nodeza7d2atomza7d2valueza7d2atom2818za700za7za7cnst_nodeza7004696z00, BGl_getzd2nodezd2atomzd2valuezd2atom2818z00zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4627z00zzcnst_nodez00, BgL_bgl_getza7d2nodeza7d2atomza7d2valueza7d2var2820za700za7za7cnst_nodeza7004697z00, BGl_getzd2nodezd2atomzd2valuezd2var2820z00zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4628z00zzcnst_nodez00, BgL_bgl_getza7d2nodeza7d2atomza7d2valueza7d2app2822za700za7za7cnst_nodeza7004698z00, BGl_getzd2nodezd2atomzd2valuezd2app2822z00zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4630z00zzcnst_nodez00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2localza7f2bvalue2826za7a3za7za7cnst_nodeza7004699za7, BGl_structzb2objectzd2ze3objectzd2localzf2bvalue2826za3zzcnst_nodez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc4629z00zzcnst_nodez00, BgL_bgl_objectza7d2za7e3structza7d2localza7f2bvalue2824za711za7za7cnst_nodeza7004700z00, BGl_objectzd2ze3structzd2localzf2bvalue2824z11zzcnst_nodez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_allocatezd2localzf2bvaluezd2envzf2zzcnst_nodez00, BgL_bgl__allocateza7d2localza7f2bvalueza720za7za7cnst_nodeza7004701z00, BGl__allocatezd2localzf2bvaluez20zzcnst_nodez00, 0L, 0 );
BGL_IMPORT obj_t BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00;
DEFINE_EXPORT_GENERIC( BGl_getzd2nodezd2atomzd2valuezd2envz00zzcnst_nodez00, BgL_bgl__getza7d2nodeza7d2atomza7d2value4016za7d2za7za7cnst_nodeza7004702za7, BGl__getzd2nodezd2atomzd2value4016zd2zzcnst_nodez00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzcnst_nodez00(long BgL_checksumz00_2663, char * BgL_fromz00_2664)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzcnst_nodez00))
{ 
BGl_requirezd2initializa7ationz75zzcnst_nodez00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzcnst_nodez00(); 
BGl_cnstzd2initzd2zzcnst_nodez00(); 
BGl_importedzd2moduleszd2initz00zzcnst_nodez00(); 
BGl_objectzd2initzd2zzcnst_nodez00(); 
BGl_methodzd2initzd2zzcnst_nodez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzcnst_nodez00()
{ AN_OBJECT;
{ /* ./Cnst/node.scm 16 */
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "cnst_node"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "cnst_node"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzcnst_nodez00()
{ AN_OBJECT;
{ /* ./Cnst/node.scm 16 */
{ /* ./Cnst/node.scm 16 */
obj_t BgL_cportz00_2642;
BgL_cportz00_2642 = 
open_input_string(BGl_string4636z00zzcnst_nodez00); 
{ 
long BgL_iz00_2643;
BgL_iz00_2643 = ((long)5); 
BgL_loopz00_2644:
{ /* ./Cnst/node.scm 16 */
bool_t BgL_test4638z00_2645;
BgL_test4638z00_2645 = 
(BgL_iz00_2643==((long)-1)); 
if(BgL_test4638z00_2645)
{ /* ./Cnst/node.scm 16 */
return BUNSPEC;}  else 
{ /* ./Cnst/node.scm 16 */
{ /* ./Cnst/node.scm 16 */
obj_t BgL_arg4640z00_2646;
{ /* ./Cnst/node.scm 16 */
obj_t BgL_list4643z00_2647;
BgL_list4643z00_2647 = 
MAKE_PAIR(BgL_cportz00_2642, BNIL); 
BgL_arg4640z00_2646 = 
BGl_readz00zz__readerz00(BgL_list4643z00_2647); } 
{ /* ./Cnst/node.scm 16 */
int BgL_auxz00_2680;
BgL_auxz00_2680 = 
(int)(BgL_iz00_2643); 
CNST_TABLE_SET(BgL_auxz00_2680, BgL_arg4640z00_2646); } } 
{ /* ./Cnst/node.scm 16 */
int BgL_auxz00_2648;
{ /* ./Cnst/node.scm 16 */
long BgL_auxz00_2683;
BgL_auxz00_2683 = 
(BgL_iz00_2643-((long)1)); 
BgL_auxz00_2648 = 
(int)(BgL_auxz00_2683); } 
{ 
long BgL_iz00_2686;
BgL_iz00_2686 = 
(long)(BgL_auxz00_2648); 
BgL_iz00_2643 = BgL_iz00_2686; 
goto BgL_loopz00_2644;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzcnst_nodez00()
{ AN_OBJECT;
{ /* ./Cnst/node.scm 16 */
return BUNSPEC;} 
}



/* cnst*! */
obj_t BGl_cnstza2z12zb0zzcnst_nodez00(obj_t BgL_nodesz00_33)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 248 */
{ 
obj_t BgL_hookz00_726;
BgL_hookz00_726 = BgL_nodesz00_33; 
BgL_loopz00_727:
{ /* ./Cnst/node.scm 250 */
bool_t BgL_test2858z00_728;
BgL_test2858z00_728 = 
NULLP(BgL_hookz00_726); 
if(BgL_test2858z00_728)
{ /* ./Cnst/node.scm 250 */
return 
CNST_TABLE_REF(((long)0));}  else 
{ /* ./Cnst/node.scm 250 */
{ /* ./Cnst/node.scm 253 */
BgL_nodez00_bglt BgL_arg2860z00_729;
{ /* ./Cnst/node.scm 253 */
obj_t BgL_arg2863z00_730;
BgL_arg2863z00_730 = 
CAR(BgL_hookz00_726); 
{ /* ./Cnst/node.scm 253 */
BgL_nodez00_bglt BgL_res3914z00_1490;
{ /* ./Cnst/node.scm 253 */
BgL_nodez00_bglt BgL_nodez00_1464;
BgL_nodez00_1464 = 
(BgL_nodez00_bglt)(BgL_arg2863z00_730); 
{ /* ./Cnst/node.scm 253 */
obj_t BgL_method2772z00_1465;
{ /* ./Cnst/node.scm 253 */
BgL_objectz00_bglt BgL_objz00_1466;
BgL_objz00_1466 = 
(BgL_objectz00_bglt)(BgL_nodez00_1464); 
{ /* ./Cnst/node.scm 253 */
long BgL_objzd2classzd2numz00_1467;
BgL_objzd2classzd2numz00_1467 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1466); 
{ /* ./Cnst/node.scm 253 */
obj_t BgL_arg2017z00_1468;
{ /* ./Cnst/node.scm 253 */
int BgL_auxz00_2695;
BgL_auxz00_2695 = 
(int)(((long)1)); 
BgL_arg2017z00_1468 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_2695); } 
{ /* ./Cnst/node.scm 253 */
int BgL_offsetz00_1471;
BgL_offsetz00_1471 = 
(int)(BgL_objzd2classzd2numz00_1467); 
{ /* ./Cnst/node.scm 253 */
long BgL_offsetz00_1472;
{ /* ./Cnst/node.scm 253 */
long BgL_auxz00_2699;
BgL_auxz00_2699 = 
(long)(BgL_offsetz00_1471); 
BgL_offsetz00_1472 = 
(BgL_auxz00_2699-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 253 */
long BgL_modz00_1473;
{ /* ./Cnst/node.scm 253 */
int BgL_arg2028z00_1474;
BgL_arg2028z00_1474 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 253 */
long BgL_n2z00_1482;
BgL_n2z00_1482 = 
(long)(BgL_arg2028z00_1474); 
BgL_modz00_1473 = 
(BgL_offsetz00_1472/BgL_n2z00_1482); } } 
{ /* ./Cnst/node.scm 253 */
long BgL_restz00_1475;
{ /* ./Cnst/node.scm 253 */
int BgL_arg2024z00_1476;
BgL_arg2024z00_1476 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 253 */
long BgL_n2z00_1485;
BgL_n2z00_1485 = 
(long)(BgL_arg2024z00_1476); 
BgL_restz00_1475 = 
(BgL_offsetz00_1472%BgL_n2z00_1485); } } 
{ /* ./Cnst/node.scm 253 */

{ /* ./Cnst/node.scm 253 */
obj_t BgL_bucketz00_1477;
{ /* ./Cnst/node.scm 253 */
int BgL_kz00_1487;
BgL_kz00_1487 = 
(int)(BgL_modz00_1473); 
BgL_bucketz00_1477 = 
VECTOR_REF(BgL_arg2017z00_1468,BgL_kz00_1487); } 
{ /* ./Cnst/node.scm 253 */
int BgL_kz00_1489;
BgL_kz00_1489 = 
(int)(BgL_restz00_1475); 
BgL_method2772z00_1465 = 
VECTOR_REF(BgL_bucketz00_1477,BgL_kz00_1489); } } } } } } } } } } 
{ /* ./Cnst/node.scm 253 */
obj_t BgL_auxz00_2712;
BgL_auxz00_2712 = 
PROCEDURE_ENTRY(BgL_method2772z00_1465)(BgL_method2772z00_1465, 
(obj_t)(BgL_nodez00_1464), BEOA); 
BgL_res3914z00_1490 = 
(BgL_nodez00_bglt)(BgL_auxz00_2712); } } } 
BgL_arg2860z00_729 = BgL_res3914z00_1490; } } 
{ /* ./Cnst/node.scm 253 */
obj_t BgL_objz00_1492;
BgL_objz00_1492 = 
(obj_t)(BgL_arg2860z00_729); 
SET_CAR(BgL_hookz00_726, BgL_objz00_1492); } } 
{ /* ./Cnst/node.scm 254 */
obj_t BgL_arg2868z00_731;
BgL_arg2868z00_731 = 
CDR(BgL_hookz00_726); 
{ 
obj_t BgL_hookz00_2720;
BgL_hookz00_2720 = BgL_arg2868z00_731; 
BgL_hookz00_726 = BgL_hookz00_2720; 
goto BgL_loopz00_727;} } } } } } 
}



/* object-init */
obj_t BGl_objectzd2initzd2zzcnst_nodez00()
{ AN_OBJECT;
{ /* ./Cnst/node.scm 16 */
{ /* ./Cnst/node.scm 31 */
obj_t BgL_arg2873z00_732;obj_t BgL_arg2874z00_733;obj_t BgL_arg2878z00_737;
BgL_arg2873z00_732 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg2874z00_733 = BGl_localz00zzast_varz00; 
{ /* ./Cnst/node.scm 31 */
obj_t BgL_v2769z00_738;
{ 
int BgL_auxz00_2722;
BgL_auxz00_2722 = 
(int)(((long)0)); 
BgL_v2769z00_738 = 
create_vector(BgL_auxz00_2722); } 
BgL_arg2878z00_737 = BgL_v2769z00_738; } 
BGl_localzf2bvaluezf2zzcnst_nodez00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg2873z00_732, BgL_arg2874z00_733, BFALSE, BGl_allocatezd2localzf2bvaluezd2envzf2zzcnst_nodez00, ((long)7486), BNIL, BFALSE, BgL_arg2878z00_737); } 
return BUNSPEC;} 
}



/* _allocate-local/bvalue */
obj_t BGl__allocatezd2localzf2bvaluez20zzcnst_nodez00(obj_t BgL_envz00_2550)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 31 */
{ /* ./Cnst/node.scm 31 */
BgL_localz00_bglt BgL_auxz00_2726;
{ /* ./Cnst/node.scm 31 */
BgL_localz00_bglt BgL_res4652z00_2657;
{ /* ./Cnst/node.scm 31 */
BgL_localz00_bglt BgL_new2682z00_2653;
BgL_new2682z00_2653 = 
((BgL_localz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_localz00_bgl) ))); 
{ /* ./Cnst/node.scm 31 */
long BgL_arg2894z00_2654;
BgL_arg2894z00_2654 = 
BGl_classzd2numzd2zz__objectz00(BGl_localzf2bvaluezf2zzcnst_nodez00); 
{ /* ./Cnst/node.scm 31 */
BgL_objectz00_bglt BgL_objz00_2655;
BgL_objz00_2655 = 
(BgL_objectz00_bglt)(BgL_new2682z00_2653); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2655, BgL_arg2894z00_2654); } } 
{ /* ./Cnst/node.scm 31 */
BgL_objectz00_bglt BgL_auxz00_2731;
BgL_auxz00_2731 = 
(BgL_objectz00_bglt)(BgL_new2682z00_2653); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2731, BFALSE); } 
{ /* ./Cnst/node.scm 31 */
obj_t BgL_objz00_2656;
BgL_objz00_2656 = 
(obj_t)(BgL_new2682z00_2653); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2656); BUNSPEC; } 
BgL_res4652z00_2657 = BgL_new2682z00_2653; } 
BgL_auxz00_2726 = BgL_res4652z00_2657; } 
return 
(obj_t)(BgL_auxz00_2726);} } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzcnst_nodez00()
{ AN_OBJECT;
{ /* ./Cnst/node.scm 16 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_cnstz12zd2envzc0zzcnst_nodez00, BGl_cnstz12zd2default2771zd2envz12zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cnstz12zd2envzc0zzcnst_nodez00, BGl_atomz00zzast_nodez00, BGl_proc4605z00zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cnstz12zd2envzc0zzcnst_nodez00, BGl_kwotez00zzast_nodez00, BGl_proc4606z00zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cnstz12zd2envzc0zzcnst_nodez00, BGl_varz00zzast_nodez00, BGl_proc4607z00zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cnstz12zd2envzc0zzcnst_nodez00, BGl_closurez00zzast_nodez00, BGl_proc4608z00zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cnstz12zd2envzc0zzcnst_nodez00, BGl_sequencez00zzast_nodez00, BGl_proc4609z00zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cnstz12zd2envzc0zzcnst_nodez00, BGl_externz00zzast_nodez00, BGl_proc4610z00zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cnstz12zd2envzc0zzcnst_nodez00, BGl_castz00zzast_nodez00, BGl_proc4611z00zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cnstz12zd2envzc0zzcnst_nodez00, BGl_setqz00zzast_nodez00, BGl_proc4612z00zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cnstz12zd2envzc0zzcnst_nodez00, BGl_conditionalz00zzast_nodez00, BGl_proc4613z00zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cnstz12zd2envzc0zzcnst_nodez00, BGl_failz00zzast_nodez00, BGl_proc4614z00zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cnstz12zd2envzc0zzcnst_nodez00, BGl_selectz00zzast_nodez00, BGl_proc4615z00zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cnstz12zd2envzc0zzcnst_nodez00, BGl_letzd2funzd2zzast_nodez00, BGl_proc4616z00zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cnstz12zd2envzc0zzcnst_nodez00, BGl_letzd2varzd2zzast_nodez00, BGl_proc4617z00zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cnstz12zd2envzc0zzcnst_nodez00, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc4618z00zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cnstz12zd2envzc0zzcnst_nodez00, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc4619z00zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cnstz12zd2envzc0zzcnst_nodez00, BGl_makezd2boxzd2zzast_nodez00, BGl_proc4620z00zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cnstz12zd2envzc0zzcnst_nodez00, BGl_boxzd2refzd2zzast_nodez00, BGl_proc4621z00zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cnstz12zd2envzc0zzcnst_nodez00, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc4622z00zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cnstz12zd2envzc0zzcnst_nodez00, BGl_appzd2lyzd2zzast_nodez00, BGl_proc4623z00zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cnstz12zd2envzc0zzcnst_nodez00, BGl_funcallz00zzast_nodez00, BGl_proc4624z00zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cnstz12zd2envzc0zzcnst_nodez00, BGl_appz00zzast_nodez00, BGl_proc4625z00zzcnst_nodez00); 
BGl_addzd2genericz12zc0zz__objectz00(BGl_getzd2nodezd2atomzd2valuezd2envz00zzcnst_nodez00, BGl_getzd2nodezd2atomzd2valuezd2default2815zd2envzd2zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2nodezd2atomzd2valuezd2envz00zzcnst_nodez00, BGl_atomz00zzast_nodez00, BGl_proc4626z00zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2nodezd2atomzd2valuezd2envz00zzcnst_nodez00, BGl_varz00zzast_nodez00, BGl_proc4627z00zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2nodezd2atomzd2valuezd2envz00zzcnst_nodez00, BGl_appz00zzast_nodez00, BGl_proc4628z00zzcnst_nodez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_localzf2bvaluezf2zzcnst_nodez00, BGl_proc4629z00zzcnst_nodez00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_localzf2bvaluezf2zzcnst_nodez00, BGl_proc4630z00zzcnst_nodez00);} 
}



/* struct+object->object-local/bvalue2826 */
obj_t BGl_structzb2objectzd2ze3objectzd2localzf2bvalue2826za3zzcnst_nodez00(obj_t BgL_envz00_2584, obj_t BgL_oz00_2585, obj_t BgL_sz00_2586)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 31 */
{ 
BgL_localzf2bvaluezf2_bglt BgL_oz00_1435;obj_t BgL_sz00_1436;
{ /* ./Cnst/node.scm 31 */
BgL_localzf2bvaluezf2_bglt BgL_auxz00_2765;
BgL_oz00_1435 = 
(BgL_localzf2bvaluezf2_bglt)(BgL_oz00_2585); 
BgL_sz00_1436 = BgL_sz00_2586; 
{ 

{ /* ./Cnst/node.scm 31 */
obj_t BgL_old2686z00_1439;obj_t BgL_aux2687z00_1440;
{ /* ./Cnst/node.scm 31 */
obj_t BgL_nextzd2method2825zd2_1445;
BgL_nextzd2method2825zd2_1445 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1435), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_localzf2bvaluezf2zzcnst_nodez00); 
{ /* ./Cnst/node.scm 31 */
bool_t BgL_test3889z00_1446;
BgL_test3889z00_1446 = 
PROCEDUREP(BgL_nextzd2method2825zd2_1445); 
if(BgL_test3889z00_1446)
{ /* ./Cnst/node.scm 31 */
BgL_old2686z00_1439 = 
PROCEDURE_ENTRY(BgL_nextzd2method2825zd2_1445)(BgL_nextzd2method2825zd2_1445, 
(obj_t)(BgL_oz00_1435), BgL_sz00_1436, BEOA); }  else 
{ /* ./Cnst/node.scm 31 */
{ /* ./Cnst/node.scm 31 */
BgL_objectz00_bglt BgL_auxz00_2773;
BgL_auxz00_2773 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1435), BgL_sz00_1436); 
BgL_old2686z00_1439 = 
(obj_t)(BgL_auxz00_2773); } } } } 
{ /* ./Cnst/node.scm 31 */
int BgL_auxz00_2777;
BgL_auxz00_2777 = 
(int)(((long)0)); 
BgL_aux2687z00_1440 = 
STRUCT_REF(BgL_sz00_1436, BgL_auxz00_2777); } 
{ /* ./Cnst/node.scm 31 */
BgL_localzf2bvaluezf2_bglt BgL_new2688z00_1441;
BgL_new2688z00_1441 = 
((BgL_localzf2bvaluezf2_bglt)(BgL_old2686z00_1439)); 
{ /* ./Cnst/node.scm 31 */
long BgL_arg3876z00_1442;
BgL_arg3876z00_1442 = 
BGl_classzd2numzd2zz__objectz00(BGl_localzf2bvaluezf2zzcnst_nodez00); 
{ /* ./Cnst/node.scm 31 */
BgL_objectz00_bglt BgL_objz00_2482;
BgL_objz00_2482 = 
(BgL_objectz00_bglt)(BgL_new2688z00_1441); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2482, BgL_arg3876z00_1442); } } 
{ /* ./Cnst/node.scm 31 */
BgL_localzf2bvaluezf2_bglt BgL_arg3880z00_1443;
{ /* ./Cnst/node.scm 31 */
obj_t BgL_arg3883z00_1444;
{ /* ./Cnst/node.scm 31 */
int BgL_auxz00_2784;
BgL_auxz00_2784 = 
(int)(((long)0)); 
BgL_arg3883z00_1444 = 
STRUCT_REF(BgL_aux2687z00_1440, BgL_auxz00_2784); } 
{ /* ./Cnst/node.scm 31 */
BgL_localzf2bvaluezf2_bglt BgL_res4003z00_2492;
{ /* ./Cnst/node.scm 31 */
BgL_nodez00_bglt BgL_bindingzd2value2662zd2_2486;
BgL_bindingzd2value2662zd2_2486 = 
(BgL_nodez00_bglt)(BgL_arg3883z00_1444); 
{ /* ./Cnst/node.scm 31 */
BgL_localzf2bvaluezf2_bglt BgL_new2663z00_2487;
BgL_new2663z00_2487 = 
((BgL_localzf2bvaluezf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_localzf2bvaluezf2_bgl)))); 
{ /* ./Cnst/node.scm 31 */
BgL_localzf2bvaluezf2_bglt BgL_res4002z00_2491;
{ /* ./Cnst/node.scm 31 */
BgL_localzf2bvaluezf2_bglt BgL_new2679z00_2488;
BgL_new2679z00_2488 = BgL_new2663z00_2487; 
{ /* ./Cnst/node.scm 31 */
BgL_nodez00_bglt BgL_bindingzd2value2678zd2_2490;
BgL_bindingzd2value2678zd2_2490 = BgL_bindingzd2value2662zd2_2486; 
((((BgL_localzf2bvaluezf2_bglt)CREF(BgL_new2679z00_2488))->BgL_bindingzd2valuezd2) = ((BgL_nodez00_bglt)BgL_bindingzd2value2678zd2_2490), BUNSPEC); 
BgL_res4002z00_2491 = BgL_new2679z00_2488; } } BgL_res4002z00_2491; } 
BgL_res4003z00_2492 = BgL_new2663z00_2487; } } 
BgL_arg3880z00_1443 = BgL_res4003z00_2492; } } 
{ /* ./Cnst/node.scm 31 */
obj_t BgL_auxz00_2792;BgL_objectz00_bglt BgL_auxz00_2790;
BgL_auxz00_2792 = 
(obj_t)(BgL_arg3880z00_1443); 
BgL_auxz00_2790 = 
(BgL_objectz00_bglt)(BgL_new2688z00_1441); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2790, BgL_auxz00_2792); } } 
{ /* ./Cnst/node.scm 31 */
obj_t BgL_objz00_2493;
BgL_objz00_2493 = 
(obj_t)(BgL_new2688z00_1441); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2493); BUNSPEC; } 
BgL_auxz00_2765 = BgL_new2688z00_1441; } } } 
return 
(obj_t)(BgL_auxz00_2765);} } } 
}



/* object->struct-local/bvalue2824 */
obj_t BGl_objectzd2ze3structzd2localzf2bvalue2824z11zzcnst_nodez00(obj_t BgL_envz00_2587, obj_t BgL_obj2683z00_2588)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 31 */
{ 
BgL_localzf2bvaluezf2_bglt BgL_obj2683z00_1425;
BgL_obj2683z00_1425 = 
(BgL_localzf2bvaluezf2_bglt)(BgL_obj2683z00_2588); 
{ 

{ /* ./Cnst/node.scm 31 */
obj_t BgL_res2684z00_1428;
{ /* ./Cnst/node.scm 31 */
obj_t BgL_nextzd2method2823zd2_1433;
BgL_nextzd2method2823zd2_1433 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj2683z00_1425), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_localzf2bvaluezf2zzcnst_nodez00); 
{ /* ./Cnst/node.scm 31 */
bool_t BgL_test3869z00_1434;
BgL_test3869z00_1434 = 
PROCEDUREP(BgL_nextzd2method2823zd2_1433); 
if(BgL_test3869z00_1434)
{ /* ./Cnst/node.scm 31 */
BgL_res2684z00_1428 = 
PROCEDURE_ENTRY(BgL_nextzd2method2823zd2_1433)(BgL_nextzd2method2823zd2_1433, 
(obj_t)(BgL_obj2683z00_1425), BEOA); }  else 
{ /* ./Cnst/node.scm 31 */
BgL_res2684z00_1428 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj2683z00_1425)); } } } 
{ /* ./Cnst/node.scm 31 */
obj_t BgL_aux2685z00_1429;
{ /* ./Cnst/node.scm 31 */
obj_t BgL_keyz00_2463;int BgL_lenz00_2464;
BgL_keyz00_2463 = 
CNST_TABLE_REF(((long)1)); 
BgL_lenz00_2464 = 
(int)(((long)1)); 
BgL_aux2685z00_1429 = 
make_struct(BgL_keyz00_2463, BgL_lenz00_2464, BUNSPEC); } 
{ /* ./Cnst/node.scm 31 */
BgL_nodez00_bglt BgL_arg3858z00_1431;
{ 
obj_t BgL_auxz00_2811;
{ /* ./Cnst/node.scm 31 */
BgL_objectz00_bglt BgL_auxz00_2812;
BgL_auxz00_2812 = 
(BgL_objectz00_bglt)(BgL_obj2683z00_1425); 
BgL_auxz00_2811 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2812); } 
BgL_arg3858z00_1431 = 
(((BgL_localzf2bvaluezf2_bglt)CREF(BgL_auxz00_2811))->BgL_bindingzd2valuezd2); } 
{ /* ./Cnst/node.scm 31 */
int BgL_kz00_2468;obj_t BgL_oz00_2469;
BgL_kz00_2468 = 
(int)(((long)0)); 
BgL_oz00_2469 = 
(obj_t)(BgL_arg3858z00_1431); 
STRUCT_SET(BgL_aux2685z00_1429, BgL_kz00_2468, BgL_oz00_2469); } } 
{ /* ./Cnst/node.scm 31 */
int BgL_kz00_2471;
BgL_kz00_2471 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res2684z00_1428, BgL_kz00_2471, BgL_aux2685z00_1429); } 
{ /* ./Cnst/node.scm 31 */
obj_t BgL_arg3863z00_1432;
BgL_arg3863z00_1432 = 
STRUCT_KEY(BgL_res2684z00_1428); 
STRUCT_KEY_SET(BgL_aux2685z00_1429, BgL_arg3863z00_1432); } 
{ /* ./Cnst/node.scm 31 */
obj_t BgL_kz00_2478;
BgL_kz00_2478 = 
CNST_TABLE_REF(((long)1)); 
STRUCT_KEY_SET(BgL_res2684z00_1428, BgL_kz00_2478); } 
return BgL_res2684z00_1428;} } } } } 
}



/* get-node-atom-value-app2822 */
obj_t BGl_getzd2nodezd2atomzd2valuezd2app2822z00zzcnst_nodez00(obj_t BgL_envz00_2589, obj_t BgL_nodez00_2590)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 326 */
{ 
BgL_appz00_bglt BgL_nodez00_1409;
BgL_nodez00_1409 = 
(BgL_appz00_bglt)(BgL_nodez00_2590); 
{ /* ./Cnst/node.scm 328 */
BgL_variablez00_bglt BgL_funz00_1413;
{ /* ./Cnst/node.scm 328 */
BgL_varz00_bglt BgL_arg3847z00_1422;
BgL_arg3847z00_1422 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1409))->BgL_funz00); 
BgL_funz00_1413 = 
(((BgL_varz00_bglt)CREF(BgL_arg3847z00_1422))->BgL_variablez00); } 
{ /* ./Cnst/node.scm 330 */
bool_t BgL_test3823z00_1414;
{ /* ./Cnst/node.scm 330 */
obj_t BgL_auxz00_2828;
BgL_auxz00_2828 = 
(obj_t)(BgL_funz00_1413); 
BgL_test3823z00_1414 = 
(BgL_auxz00_2828==BGl_za2longzd2ze3intza2z31zzcnst_cachez00); } 
if(BgL_test3823z00_1414)
{ /* ./Cnst/node.scm 330 */
{ /* ./Cnst/node.scm 331 */
bool_t BgL_test3824z00_1415;
{ /* ./Cnst/node.scm 331 */
bool_t BgL_testz00_2832;
{ /* ./Cnst/node.scm 331 */
obj_t BgL_auxz00_2833;
BgL_auxz00_2833 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1409))->BgL_argsz00); 
BgL_testz00_2832 = 
PAIRP(BgL_auxz00_2833); } 
if(BgL_testz00_2832)
{ /* ./Cnst/node.scm 331 */
obj_t BgL_auxz00_2836;
{ /* ./Cnst/node.scm 331 */
obj_t BgL_auxz00_2837;
BgL_auxz00_2837 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1409))->BgL_argsz00); 
BgL_auxz00_2836 = 
CDR(BgL_auxz00_2837); } 
BgL_test3824z00_1415 = 
NULLP(BgL_auxz00_2836); }  else 
{ /* ./Cnst/node.scm 331 */
BgL_test3824z00_1415 = ((bool_t)0); } } 
if(BgL_test3824z00_1415)
{ /* ./Cnst/node.scm 332 */
obj_t BgL_arg3826z00_1416;
{ /* ./Cnst/node.scm 332 */
obj_t BgL_auxz00_2842;
BgL_auxz00_2842 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1409))->BgL_argsz00); 
BgL_arg3826z00_1416 = 
CAR(BgL_auxz00_2842); } 
{ /* ./Cnst/node.scm 332 */
BgL_nodez00_bglt BgL_nodez00_2437;
BgL_nodez00_2437 = 
(BgL_nodez00_bglt)(BgL_arg3826z00_1416); 
{ /* ./Cnst/node.scm 332 */
obj_t BgL_method2816z00_2438;
{ /* ./Cnst/node.scm 332 */
BgL_objectz00_bglt BgL_objz00_2439;
BgL_objz00_2439 = 
(BgL_objectz00_bglt)(BgL_nodez00_2437); 
{ /* ./Cnst/node.scm 332 */
long BgL_objzd2classzd2numz00_2440;
BgL_objzd2classzd2numz00_2440 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2439); 
{ /* ./Cnst/node.scm 332 */
obj_t BgL_arg2017z00_2441;
{ /* ./Cnst/node.scm 332 */
int BgL_auxz00_2848;
BgL_auxz00_2848 = 
(int)(((long)1)); 
BgL_arg2017z00_2441 = 
PROCEDURE_REF(BGl_getzd2nodezd2atomzd2valuezd2envz00zzcnst_nodez00, BgL_auxz00_2848); } 
{ /* ./Cnst/node.scm 332 */
int BgL_offsetz00_2444;
BgL_offsetz00_2444 = 
(int)(BgL_objzd2classzd2numz00_2440); 
{ /* ./Cnst/node.scm 332 */
long BgL_offsetz00_2445;
{ /* ./Cnst/node.scm 332 */
long BgL_auxz00_2852;
BgL_auxz00_2852 = 
(long)(BgL_offsetz00_2444); 
BgL_offsetz00_2445 = 
(BgL_auxz00_2852-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 332 */
long BgL_modz00_2446;
{ /* ./Cnst/node.scm 332 */
int BgL_arg2028z00_2447;
BgL_arg2028z00_2447 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 332 */
long BgL_n2z00_2455;
BgL_n2z00_2455 = 
(long)(BgL_arg2028z00_2447); 
BgL_modz00_2446 = 
(BgL_offsetz00_2445/BgL_n2z00_2455); } } 
{ /* ./Cnst/node.scm 332 */
long BgL_restz00_2448;
{ /* ./Cnst/node.scm 332 */
int BgL_arg2024z00_2449;
BgL_arg2024z00_2449 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 332 */
long BgL_n2z00_2458;
BgL_n2z00_2458 = 
(long)(BgL_arg2024z00_2449); 
BgL_restz00_2448 = 
(BgL_offsetz00_2445%BgL_n2z00_2458); } } 
{ /* ./Cnst/node.scm 332 */

{ /* ./Cnst/node.scm 332 */
obj_t BgL_bucketz00_2450;
{ /* ./Cnst/node.scm 332 */
int BgL_kz00_2460;
BgL_kz00_2460 = 
(int)(BgL_modz00_2446); 
BgL_bucketz00_2450 = 
VECTOR_REF(BgL_arg2017z00_2441,BgL_kz00_2460); } 
{ /* ./Cnst/node.scm 332 */
int BgL_kz00_2462;
BgL_kz00_2462 = 
(int)(BgL_restz00_2448); 
BgL_method2816z00_2438 = 
VECTOR_REF(BgL_bucketz00_2450,BgL_kz00_2462); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2816z00_2438)(BgL_method2816z00_2438, 
(obj_t)(BgL_nodez00_2437), BEOA);} } }  else 
{ /* ./Cnst/node.scm 331 */
return 
CNST_TABLE_REF(((long)2));} } }  else 
{ /* ./Cnst/node.scm 330 */
return 
CNST_TABLE_REF(((long)2));} } } } } 
}



/* get-node-atom-value-var2820 */
obj_t BGl_getzd2nodezd2atomzd2valuezd2var2820z00zzcnst_nodez00(obj_t BgL_envz00_2591, obj_t BgL_nodez00_2592)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 317 */
{ 
BgL_varz00_bglt BgL_nodez00_1401;
BgL_nodez00_1401 = 
(BgL_varz00_bglt)(BgL_nodez00_2592); 
{ /* ./Cnst/node.scm 318 */
BgL_variablez00_bglt BgL_vz00_1404;
BgL_vz00_1404 = 
(((BgL_varz00_bglt)CREF(BgL_nodez00_1401))->BgL_variablez00); 
{ /* ./Cnst/node.scm 319 */
bool_t BgL_test3810z00_1405;
BgL_test3810z00_1405 = 
BGl_iszd2azf3z21zz__objectz00(
(obj_t)(BgL_vz00_1404), BGl_localzf2bvaluezf2zzcnst_nodez00); 
if(BgL_test3810z00_1405)
{ /* ./Cnst/node.scm 320 */
BgL_nodez00_bglt BgL_arg3812z00_1406;
{ /* ./Cnst/node.scm 320 */
BgL_localzf2bvaluezf2_bglt BgL_obj2691z00_2401;
BgL_obj2691z00_2401 = 
(BgL_localzf2bvaluezf2_bglt)(BgL_vz00_1404); 
{ 
obj_t BgL_auxz00_2876;
{ /* ./Cnst/node.scm 320 */
BgL_objectz00_bglt BgL_auxz00_2877;
BgL_auxz00_2877 = 
(BgL_objectz00_bglt)(BgL_obj2691z00_2401); 
BgL_auxz00_2876 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2877); } 
BgL_arg3812z00_1406 = 
(((BgL_localzf2bvaluezf2_bglt)CREF(BgL_auxz00_2876))->BgL_bindingzd2valuezd2); } } 
{ /* ./Cnst/node.scm 320 */
obj_t BgL_method2816z00_2403;
{ /* ./Cnst/node.scm 320 */
BgL_objectz00_bglt BgL_objz00_2404;
BgL_objz00_2404 = 
(BgL_objectz00_bglt)(BgL_arg3812z00_1406); 
{ /* ./Cnst/node.scm 320 */
long BgL_objzd2classzd2numz00_2405;
BgL_objzd2classzd2numz00_2405 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2404); 
{ /* ./Cnst/node.scm 320 */
obj_t BgL_arg2017z00_2406;
{ /* ./Cnst/node.scm 320 */
int BgL_auxz00_2883;
BgL_auxz00_2883 = 
(int)(((long)1)); 
BgL_arg2017z00_2406 = 
PROCEDURE_REF(BGl_getzd2nodezd2atomzd2valuezd2envz00zzcnst_nodez00, BgL_auxz00_2883); } 
{ /* ./Cnst/node.scm 320 */
int BgL_offsetz00_2409;
BgL_offsetz00_2409 = 
(int)(BgL_objzd2classzd2numz00_2405); 
{ /* ./Cnst/node.scm 320 */
long BgL_offsetz00_2410;
{ /* ./Cnst/node.scm 320 */
long BgL_auxz00_2887;
BgL_auxz00_2887 = 
(long)(BgL_offsetz00_2409); 
BgL_offsetz00_2410 = 
(BgL_auxz00_2887-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 320 */
long BgL_modz00_2411;
{ /* ./Cnst/node.scm 320 */
int BgL_arg2028z00_2412;
BgL_arg2028z00_2412 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 320 */
long BgL_n2z00_2420;
BgL_n2z00_2420 = 
(long)(BgL_arg2028z00_2412); 
BgL_modz00_2411 = 
(BgL_offsetz00_2410/BgL_n2z00_2420); } } 
{ /* ./Cnst/node.scm 320 */
long BgL_restz00_2413;
{ /* ./Cnst/node.scm 320 */
int BgL_arg2024z00_2414;
BgL_arg2024z00_2414 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 320 */
long BgL_n2z00_2423;
BgL_n2z00_2423 = 
(long)(BgL_arg2024z00_2414); 
BgL_restz00_2413 = 
(BgL_offsetz00_2410%BgL_n2z00_2423); } } 
{ /* ./Cnst/node.scm 320 */

{ /* ./Cnst/node.scm 320 */
obj_t BgL_bucketz00_2415;
{ /* ./Cnst/node.scm 320 */
int BgL_kz00_2425;
BgL_kz00_2425 = 
(int)(BgL_modz00_2411); 
BgL_bucketz00_2415 = 
VECTOR_REF(BgL_arg2017z00_2406,BgL_kz00_2425); } 
{ /* ./Cnst/node.scm 320 */
int BgL_kz00_2427;
BgL_kz00_2427 = 
(int)(BgL_restz00_2413); 
BgL_method2816z00_2403 = 
VECTOR_REF(BgL_bucketz00_2415,BgL_kz00_2427); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2816z00_2403)(BgL_method2816z00_2403, 
(obj_t)(BgL_arg3812z00_1406), BEOA);} }  else 
{ /* ./Cnst/node.scm 319 */
return 
CNST_TABLE_REF(((long)2));} } } } } 
}



/* get-node-atom-value-atom2818 */
obj_t BGl_getzd2nodezd2atomzd2valuezd2atom2818z00zzcnst_nodez00(obj_t BgL_envz00_2593, obj_t BgL_nodez00_2594)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 311 */
{ /* ./Cnst/node.scm 312 */
BgL_atomz00_bglt BgL_nodez00_2658;
BgL_nodez00_2658 = 
(BgL_atomz00_bglt)(BgL_nodez00_2594); 
return 
(((BgL_atomz00_bglt)CREF(BgL_nodez00_2658))->BgL_valuez00);} } 
}



/* cnst!-app2814 */
obj_t BGl_cnstz12zd2app2814zc0zzcnst_nodez00(obj_t BgL_envz00_2595, obj_t BgL_nodez00_2596)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 259 */
{ 
BgL_appz00_bglt BgL_nodez00_1359;
BgL_nodez00_1359 = 
(BgL_appz00_bglt)(BgL_nodez00_2596); 
{ /* ./Cnst/node.scm 261 */
obj_t BgL_arg3728z00_1363;
BgL_arg3728z00_1363 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1359))->BgL_argsz00); 
BGl_cnstza2z12zb0zzcnst_nodez00(BgL_arg3728z00_1363); } 
{ /* ./Cnst/node.scm 263 */
bool_t BgL_test3731z00_1364;
{ /* ./Cnst/node.scm 263 */
obj_t BgL_auxz00_2909;
BgL_auxz00_2909 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1359))->BgL_argsz00); 
BgL_test3731z00_1364 = 
NULLP(BgL_auxz00_2909); } 
if(BgL_test3731z00_1364)
{ /* ./Cnst/node.scm 263 */
return 
(obj_t)(BgL_nodez00_1359);}  else 
{ /* ./Cnst/node.scm 265 */
BgL_variablez00_bglt BgL_funz00_1365;
{ /* ./Cnst/node.scm 265 */
BgL_varz00_bglt BgL_arg3789z00_1392;
BgL_arg3789z00_1392 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1359))->BgL_funz00); 
BgL_funz00_1365 = 
(((BgL_varz00_bglt)CREF(BgL_arg3789z00_1392))->BgL_variablez00); } 
{ /* ./Cnst/node.scm 265 */
obj_t BgL_actualz00_1366;
{ /* ./Cnst/node.scm 266 */
obj_t BgL_auxz00_2916;
BgL_auxz00_2916 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1359))->BgL_argsz00); 
BgL_actualz00_1366 = 
CAR(BgL_auxz00_2916); } 
{ /* ./Cnst/node.scm 266 */
obj_t BgL_actualzd2valuezd2_1367;
{ /* ./Cnst/node.scm 267 */
BgL_nodez00_bglt BgL_nodez00_2326;
BgL_nodez00_2326 = 
(BgL_nodez00_bglt)(BgL_actualz00_1366); 
{ /* ./Cnst/node.scm 267 */
obj_t BgL_method2816z00_2327;
{ /* ./Cnst/node.scm 267 */
BgL_objectz00_bglt BgL_objz00_2328;
BgL_objz00_2328 = 
(BgL_objectz00_bglt)(BgL_nodez00_2326); 
{ /* ./Cnst/node.scm 267 */
long BgL_objzd2classzd2numz00_2329;
BgL_objzd2classzd2numz00_2329 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2328); 
{ /* ./Cnst/node.scm 267 */
obj_t BgL_arg2017z00_2330;
{ /* ./Cnst/node.scm 267 */
int BgL_auxz00_2922;
BgL_auxz00_2922 = 
(int)(((long)1)); 
BgL_arg2017z00_2330 = 
PROCEDURE_REF(BGl_getzd2nodezd2atomzd2valuezd2envz00zzcnst_nodez00, BgL_auxz00_2922); } 
{ /* ./Cnst/node.scm 267 */
int BgL_offsetz00_2333;
BgL_offsetz00_2333 = 
(int)(BgL_objzd2classzd2numz00_2329); 
{ /* ./Cnst/node.scm 267 */
long BgL_offsetz00_2334;
{ /* ./Cnst/node.scm 267 */
long BgL_auxz00_2926;
BgL_auxz00_2926 = 
(long)(BgL_offsetz00_2333); 
BgL_offsetz00_2334 = 
(BgL_auxz00_2926-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 267 */
long BgL_modz00_2335;
{ /* ./Cnst/node.scm 267 */
int BgL_arg2028z00_2336;
BgL_arg2028z00_2336 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 267 */
long BgL_n2z00_2344;
BgL_n2z00_2344 = 
(long)(BgL_arg2028z00_2336); 
BgL_modz00_2335 = 
(BgL_offsetz00_2334/BgL_n2z00_2344); } } 
{ /* ./Cnst/node.scm 267 */
long BgL_restz00_2337;
{ /* ./Cnst/node.scm 267 */
int BgL_arg2024z00_2338;
BgL_arg2024z00_2338 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 267 */
long BgL_n2z00_2347;
BgL_n2z00_2347 = 
(long)(BgL_arg2024z00_2338); 
BgL_restz00_2337 = 
(BgL_offsetz00_2334%BgL_n2z00_2347); } } 
{ /* ./Cnst/node.scm 267 */

{ /* ./Cnst/node.scm 267 */
obj_t BgL_bucketz00_2339;
{ /* ./Cnst/node.scm 267 */
int BgL_kz00_2349;
BgL_kz00_2349 = 
(int)(BgL_modz00_2335); 
BgL_bucketz00_2339 = 
VECTOR_REF(BgL_arg2017z00_2330,BgL_kz00_2349); } 
{ /* ./Cnst/node.scm 267 */
int BgL_kz00_2351;
BgL_kz00_2351 = 
(int)(BgL_restz00_2337); 
BgL_method2816z00_2327 = 
VECTOR_REF(BgL_bucketz00_2339,BgL_kz00_2351); } } } } } } } } } } 
BgL_actualzd2valuezd2_1367 = 
PROCEDURE_ENTRY(BgL_method2816z00_2327)(BgL_method2816z00_2327, 
(obj_t)(BgL_nodez00_2326), BEOA); } } 
{ /* ./Cnst/node.scm 267 */

{ /* ./Cnst/node.scm 269 */
bool_t BgL_test3732z00_1368;
{ /* ./Cnst/node.scm 269 */
obj_t BgL_auxz00_2942;
BgL_auxz00_2942 = 
(obj_t)(BgL_funz00_1365); 
BgL_test3732z00_1368 = 
(BgL_auxz00_2942==BGl_za2stringzd2ze3bstringza2z31zzcnst_cachez00); } 
if(BgL_test3732z00_1368)
{ /* ./Cnst/node.scm 269 */
{ /* ./Cnst/node.scm 270 */
bool_t BgL_test3733z00_1369;
BgL_test3733z00_1369 = 
STRINGP(BgL_actualzd2valuezd2_1367); 
if(BgL_test3733z00_1369)
{ /* ./Cnst/node.scm 271 */
BgL_nodez00_bglt BgL_rz00_1370;
{ /* ./Cnst/node.scm 271 */
obj_t BgL_arg3735z00_1371;
{ /* ./Cnst/node.scm 271 */
BgL_nodez00_bglt BgL_obj1560z00_2353;
BgL_obj1560z00_2353 = 
(BgL_nodez00_bglt)(BgL_nodez00_1359); 
BgL_arg3735z00_1371 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2353))->BgL_locz00); } 
BgL_rz00_1370 = 
BGl_cnstzd2alloczd2stringz00zzcnst_allocz00(BgL_actualzd2valuezd2_1367, BgL_arg3735z00_1371); } 
return 
(obj_t)(BgL_rz00_1370);}  else 
{ /* ./Cnst/node.scm 270 */
return 
(obj_t)(BgL_nodez00_1359);} } }  else 
{ /* ./Cnst/node.scm 275 */
bool_t BgL_test3739z00_1372;
{ /* ./Cnst/node.scm 275 */
obj_t BgL_auxz00_2953;
BgL_auxz00_2953 = 
(obj_t)(BgL_funz00_1365); 
BgL_test3739z00_1372 = 
(BgL_auxz00_2953==BGl_za2boolzd2ze3bboolza2z31zzcnst_cachez00); } 
if(BgL_test3739z00_1372)
{ /* ./Cnst/node.scm 275 */
{ /* ./Cnst/node.scm 276 */
bool_t BgL_test3740z00_1373;
BgL_test3740z00_1373 = 
BOOLEANP(BgL_actualzd2valuezd2_1367); 
if(BgL_test3740z00_1373)
{ /* ./Cnst/node.scm 276 */
if(
CBOOL(BgL_actualzd2valuezd2_1367))
{ /* ./Cnst/node.scm 279 */
obj_t BgL_arg3742z00_1374;obj_t BgL_arg3743z00_1375;obj_t BgL_arg3744z00_1376;
{ /* ./Cnst/node.scm 279 */
BgL_nodez00_bglt BgL_obj1560z00_2355;
BgL_obj1560z00_2355 = 
(BgL_nodez00_bglt)(BgL_nodez00_1359); 
BgL_arg3742z00_1374 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2355))->BgL_locz00); } 
BgL_arg3743z00_1375 = BGl_za2bboolza2z00zztype_cachez00; 
BgL_arg3744z00_1376 = BGl_za2btrueza2z00zzcnst_cachez00; 
{ /* ./Cnst/node.scm 278 */
BgL_varz00_bglt BgL_auxz00_2963;
BgL_auxz00_2963 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3742z00_1374, 
(BgL_typez00_bglt)(BgL_arg3743z00_1375), 
(BgL_variablez00_bglt)(BgL_arg3744z00_1376)); 
return 
(obj_t)(BgL_auxz00_2963);} }  else 
{ /* ./Cnst/node.scm 283 */
obj_t BgL_arg3748z00_1377;obj_t BgL_arg3749z00_1378;obj_t BgL_arg3750z00_1379;
{ /* ./Cnst/node.scm 283 */
BgL_nodez00_bglt BgL_obj1560z00_2356;
BgL_obj1560z00_2356 = 
(BgL_nodez00_bglt)(BgL_nodez00_1359); 
BgL_arg3748z00_1377 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2356))->BgL_locz00); } 
BgL_arg3749z00_1378 = BGl_za2bboolza2z00zztype_cachez00; 
BgL_arg3750z00_1379 = BGl_za2bfalseza2z00zzcnst_cachez00; 
{ /* ./Cnst/node.scm 282 */
BgL_varz00_bglt BgL_auxz00_2970;
BgL_auxz00_2970 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3748z00_1377, 
(BgL_typez00_bglt)(BgL_arg3749z00_1378), 
(BgL_variablez00_bglt)(BgL_arg3750z00_1379)); 
return 
(obj_t)(BgL_auxz00_2970);} } }  else 
{ /* ./Cnst/node.scm 276 */
return 
(obj_t)(BgL_nodez00_1359);} } }  else 
{ /* ./Cnst/node.scm 287 */
bool_t BgL_test3754z00_1380;
{ /* ./Cnst/node.scm 287 */
bool_t BgL_test3778z00_1390;
{ /* ./Cnst/node.scm 287 */
obj_t BgL_auxz00_2976;
BgL_auxz00_2976 = 
(obj_t)(BgL_funz00_1365); 
BgL_test3778z00_1390 = 
(BgL_auxz00_2976==BGl_za2makezd2fxzd2procedureza2z00zzcnst_cachez00); } 
if(BgL_test3778z00_1390)
{ /* ./Cnst/node.scm 287 */
BgL_test3754z00_1380 = ((bool_t)1); }  else 
{ /* ./Cnst/node.scm 288 */
obj_t BgL_auxz00_2980;
BgL_auxz00_2980 = 
(obj_t)(BgL_funz00_1365); 
BgL_test3754z00_1380 = 
(BgL_auxz00_2980==BGl_za2makezd2vazd2procedureza2z00zzcnst_cachez00); } } 
if(BgL_test3754z00_1380)
{ /* ./Cnst/node.scm 287 */
{ /* ./Cnst/node.scm 289 */
obj_t BgL_siza7ezd2valuez75_1381;
{ /* ./Cnst/node.scm 289 */
obj_t BgL_arg3764z00_1385;
{ /* ./Cnst/node.scm 289 */
obj_t BgL_auxz00_2984;
{ /* ./Cnst/node.scm 289 */
obj_t BgL_auxz00_2985;
{ /* ./Cnst/node.scm 289 */
obj_t BgL_auxz00_2986;
BgL_auxz00_2986 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1359))->BgL_argsz00); 
BgL_auxz00_2985 = 
CDR(BgL_auxz00_2986); } 
BgL_auxz00_2984 = 
CDR(BgL_auxz00_2985); } 
BgL_arg3764z00_1385 = 
CAR(BgL_auxz00_2984); } 
{ /* ./Cnst/node.scm 289 */
BgL_nodez00_bglt BgL_nodez00_2364;
BgL_nodez00_2364 = 
(BgL_nodez00_bglt)(BgL_arg3764z00_1385); 
{ /* ./Cnst/node.scm 289 */
obj_t BgL_method2816z00_2365;
{ /* ./Cnst/node.scm 289 */
BgL_objectz00_bglt BgL_objz00_2366;
BgL_objz00_2366 = 
(BgL_objectz00_bglt)(BgL_nodez00_2364); 
{ /* ./Cnst/node.scm 289 */
long BgL_objzd2classzd2numz00_2367;
BgL_objzd2classzd2numz00_2367 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2366); 
{ /* ./Cnst/node.scm 289 */
obj_t BgL_arg2017z00_2368;
{ /* ./Cnst/node.scm 289 */
int BgL_auxz00_2994;
BgL_auxz00_2994 = 
(int)(((long)1)); 
BgL_arg2017z00_2368 = 
PROCEDURE_REF(BGl_getzd2nodezd2atomzd2valuezd2envz00zzcnst_nodez00, BgL_auxz00_2994); } 
{ /* ./Cnst/node.scm 289 */
int BgL_offsetz00_2371;
BgL_offsetz00_2371 = 
(int)(BgL_objzd2classzd2numz00_2367); 
{ /* ./Cnst/node.scm 289 */
long BgL_offsetz00_2372;
{ /* ./Cnst/node.scm 289 */
long BgL_auxz00_2998;
BgL_auxz00_2998 = 
(long)(BgL_offsetz00_2371); 
BgL_offsetz00_2372 = 
(BgL_auxz00_2998-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 289 */
long BgL_modz00_2373;
{ /* ./Cnst/node.scm 289 */
int BgL_arg2028z00_2374;
BgL_arg2028z00_2374 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 289 */
long BgL_n2z00_2382;
BgL_n2z00_2382 = 
(long)(BgL_arg2028z00_2374); 
BgL_modz00_2373 = 
(BgL_offsetz00_2372/BgL_n2z00_2382); } } 
{ /* ./Cnst/node.scm 289 */
long BgL_restz00_2375;
{ /* ./Cnst/node.scm 289 */
int BgL_arg2024z00_2376;
BgL_arg2024z00_2376 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 289 */
long BgL_n2z00_2385;
BgL_n2z00_2385 = 
(long)(BgL_arg2024z00_2376); 
BgL_restz00_2375 = 
(BgL_offsetz00_2372%BgL_n2z00_2385); } } 
{ /* ./Cnst/node.scm 289 */

{ /* ./Cnst/node.scm 289 */
obj_t BgL_bucketz00_2377;
{ /* ./Cnst/node.scm 289 */
int BgL_kz00_2387;
BgL_kz00_2387 = 
(int)(BgL_modz00_2373); 
BgL_bucketz00_2377 = 
VECTOR_REF(BgL_arg2017z00_2368,BgL_kz00_2387); } 
{ /* ./Cnst/node.scm 289 */
int BgL_kz00_2389;
BgL_kz00_2389 = 
(int)(BgL_restz00_2375); 
BgL_method2816z00_2365 = 
VECTOR_REF(BgL_bucketz00_2377,BgL_kz00_2389); } } } } } } } } } } 
BgL_siza7ezd2valuez75_1381 = 
PROCEDURE_ENTRY(BgL_method2816z00_2365)(BgL_method2816z00_2365, 
(obj_t)(BgL_nodez00_2364), BEOA); } } } 
{ /* ./Cnst/node.scm 290 */
bool_t BgL_test3755z00_1382;
if(
INTEGERP(BgL_siza7ezd2valuez75_1381))
{ /* ./Cnst/node.scm 290 */
long BgL_auxz00_3016;
BgL_auxz00_3016 = 
(long)CINT(BgL_siza7ezd2valuez75_1381); 
BgL_test3755z00_1382 = 
(BgL_auxz00_3016==((long)0)); }  else 
{ /* ./Cnst/node.scm 290 */
BgL_test3755z00_1382 = ((bool_t)0); } 
if(BgL_test3755z00_1382)
{ /* ./Cnst/node.scm 291 */
obj_t BgL_arg3757z00_1383;
{ /* ./Cnst/node.scm 291 */
BgL_nodez00_bglt BgL_obj1560z00_2393;
BgL_obj1560z00_2393 = 
(BgL_nodez00_bglt)(BgL_nodez00_1359); 
BgL_arg3757z00_1383 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2393))->BgL_locz00); } 
{ /* ./Cnst/node.scm 291 */
BgL_nodez00_bglt BgL_auxz00_3022;
BgL_auxz00_3022 = 
BGl_cnstzd2alloczd2procedurez00zzcnst_allocz00(
(BgL_nodez00_bglt)(BgL_nodez00_1359), BgL_arg3757z00_1383); 
return 
(obj_t)(BgL_auxz00_3022);} }  else 
{ /* ./Cnst/node.scm 290 */
return 
(obj_t)(BgL_nodez00_1359);} } } }  else 
{ /* ./Cnst/node.scm 293 */
bool_t BgL_test3770z00_1387;
{ /* ./Cnst/node.scm 293 */
obj_t BgL_auxz00_3027;
BgL_auxz00_3027 = 
(obj_t)(BgL_funz00_1365); 
BgL_test3770z00_1387 = 
(BgL_auxz00_3027==BGl_za2doublezd2ze3realza2z31zzcnst_cachez00); } 
if(BgL_test3770z00_1387)
{ /* ./Cnst/node.scm 293 */
{ /* ./Cnst/node.scm 294 */
bool_t BgL_test3771z00_1388;
if(
INTEGERP(BgL_actualzd2valuezd2_1367))
{ /* ./Cnst/node.scm 294 */
BgL_test3771z00_1388 = ((bool_t)1); }  else 
{ /* ./Cnst/node.scm 294 */
BgL_test3771z00_1388 = 
REALP(BgL_actualzd2valuezd2_1367); } 
if(BgL_test3771z00_1388)
{ /* ./Cnst/node.scm 295 */
obj_t BgL_arg3773z00_1389;
{ /* ./Cnst/node.scm 295 */
BgL_nodez00_bglt BgL_obj1560z00_2397;
BgL_obj1560z00_2397 = 
(BgL_nodez00_bglt)(BgL_nodez00_1359); 
BgL_arg3773z00_1389 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_2397))->BgL_locz00); } 
{ /* ./Cnst/node.scm 295 */
BgL_nodez00_bglt BgL_auxz00_3037;
BgL_auxz00_3037 = 
BGl_cnstzd2alloczd2realz00zzcnst_allocz00(BgL_actualzd2valuezd2_1367, BgL_arg3773z00_1389); 
return 
(obj_t)(BgL_auxz00_3037);} }  else 
{ /* ./Cnst/node.scm 294 */
return 
(obj_t)(BgL_nodez00_1359);} } }  else 
{ /* ./Cnst/node.scm 293 */
return 
(obj_t)(BgL_nodez00_1359);} } } } } } } } } } } } 
}



/* cnst!-funcall2812 */
obj_t BGl_cnstz12zd2funcall2812zc0zzcnst_nodez00(obj_t BgL_envz00_2597, obj_t BgL_nodez00_2598)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 239 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1350;
{ /* ./Cnst/node.scm 240 */
BgL_funcallz00_bglt BgL_auxz00_3043;
BgL_nodez00_1350 = 
(BgL_funcallz00_bglt)(BgL_nodez00_2598); 
{ /* ./Cnst/node.scm 241 */
BgL_nodez00_bglt BgL_arg3710z00_1354;
{ /* ./Cnst/node.scm 241 */
BgL_nodez00_bglt BgL_arg3713z00_1355;
BgL_arg3713z00_1355 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1350))->BgL_funz00); 
{ /* ./Cnst/node.scm 241 */
BgL_nodez00_bglt BgL_res3991z00_2315;
{ /* ./Cnst/node.scm 241 */
obj_t BgL_method2772z00_2290;
{ /* ./Cnst/node.scm 241 */
BgL_objectz00_bglt BgL_objz00_2291;
BgL_objz00_2291 = 
(BgL_objectz00_bglt)(BgL_arg3713z00_1355); 
{ /* ./Cnst/node.scm 241 */
long BgL_objzd2classzd2numz00_2292;
BgL_objzd2classzd2numz00_2292 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2291); 
{ /* ./Cnst/node.scm 241 */
obj_t BgL_arg2017z00_2293;
{ /* ./Cnst/node.scm 241 */
int BgL_auxz00_3047;
BgL_auxz00_3047 = 
(int)(((long)1)); 
BgL_arg2017z00_2293 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3047); } 
{ /* ./Cnst/node.scm 241 */
int BgL_offsetz00_2296;
BgL_offsetz00_2296 = 
(int)(BgL_objzd2classzd2numz00_2292); 
{ /* ./Cnst/node.scm 241 */
long BgL_offsetz00_2297;
{ /* ./Cnst/node.scm 241 */
long BgL_auxz00_3051;
BgL_auxz00_3051 = 
(long)(BgL_offsetz00_2296); 
BgL_offsetz00_2297 = 
(BgL_auxz00_3051-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 241 */
long BgL_modz00_2298;
{ /* ./Cnst/node.scm 241 */
int BgL_arg2028z00_2299;
BgL_arg2028z00_2299 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 241 */
long BgL_n2z00_2307;
BgL_n2z00_2307 = 
(long)(BgL_arg2028z00_2299); 
BgL_modz00_2298 = 
(BgL_offsetz00_2297/BgL_n2z00_2307); } } 
{ /* ./Cnst/node.scm 241 */
long BgL_restz00_2300;
{ /* ./Cnst/node.scm 241 */
int BgL_arg2024z00_2301;
BgL_arg2024z00_2301 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 241 */
long BgL_n2z00_2310;
BgL_n2z00_2310 = 
(long)(BgL_arg2024z00_2301); 
BgL_restz00_2300 = 
(BgL_offsetz00_2297%BgL_n2z00_2310); } } 
{ /* ./Cnst/node.scm 241 */

{ /* ./Cnst/node.scm 241 */
obj_t BgL_bucketz00_2302;
{ /* ./Cnst/node.scm 241 */
int BgL_kz00_2312;
BgL_kz00_2312 = 
(int)(BgL_modz00_2298); 
BgL_bucketz00_2302 = 
VECTOR_REF(BgL_arg2017z00_2293,BgL_kz00_2312); } 
{ /* ./Cnst/node.scm 241 */
int BgL_kz00_2314;
BgL_kz00_2314 = 
(int)(BgL_restz00_2300); 
BgL_method2772z00_2290 = 
VECTOR_REF(BgL_bucketz00_2302,BgL_kz00_2314); } } } } } } } } } } 
{ /* ./Cnst/node.scm 241 */
obj_t BgL_auxz00_3064;
BgL_auxz00_3064 = 
PROCEDURE_ENTRY(BgL_method2772z00_2290)(BgL_method2772z00_2290, 
(obj_t)(BgL_arg3713z00_1355), BEOA); 
BgL_res3991z00_2315 = 
(BgL_nodez00_bglt)(BgL_auxz00_3064); } } 
BgL_arg3710z00_1354 = BgL_res3991z00_2315; } } 
{ /* ./Cnst/node.scm 241 */
BgL_funcallz00_bglt BgL_obj1781z00_2316;BgL_nodez00_bglt BgL_val1780z00_2317;
BgL_obj1781z00_2316 = BgL_nodez00_1350; 
BgL_val1780z00_2317 = BgL_arg3710z00_1354; 
((((BgL_funcallz00_bglt)CREF(BgL_obj1781z00_2316))->BgL_funz00) = ((BgL_nodez00_bglt)BgL_val1780z00_2317), BUNSPEC); } } 
{ /* ./Cnst/node.scm 242 */
obj_t BgL_arg3717z00_1356;
BgL_arg3717z00_1356 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1350))->BgL_argsz00); 
BGl_cnstza2z12zb0zzcnst_nodez00(BgL_arg3717z00_1356); } 
BgL_auxz00_3043 = BgL_nodez00_1350; 
return 
(obj_t)(BgL_auxz00_3043);} } } 
}



/* cnst!-app-ly2810 */
obj_t BGl_cnstz12zd2appzd2ly2810z12zzcnst_nodez00(obj_t BgL_envz00_2599, obj_t BgL_nodez00_2600)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 230 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1340;
{ /* ./Cnst/node.scm 231 */
BgL_appzd2lyzd2_bglt BgL_auxz00_3074;
BgL_nodez00_1340 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_2600); 
{ /* ./Cnst/node.scm 232 */
BgL_nodez00_bglt BgL_arg3689z00_1344;
{ /* ./Cnst/node.scm 232 */
BgL_nodez00_bglt BgL_arg3692z00_1345;
BgL_arg3692z00_1345 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1340))->BgL_funz00); 
{ /* ./Cnst/node.scm 232 */
BgL_nodez00_bglt BgL_res3985z00_2255;
{ /* ./Cnst/node.scm 232 */
obj_t BgL_method2772z00_2230;
{ /* ./Cnst/node.scm 232 */
BgL_objectz00_bglt BgL_objz00_2231;
BgL_objz00_2231 = 
(BgL_objectz00_bglt)(BgL_arg3692z00_1345); 
{ /* ./Cnst/node.scm 232 */
long BgL_objzd2classzd2numz00_2232;
BgL_objzd2classzd2numz00_2232 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2231); 
{ /* ./Cnst/node.scm 232 */
obj_t BgL_arg2017z00_2233;
{ /* ./Cnst/node.scm 232 */
int BgL_auxz00_3078;
BgL_auxz00_3078 = 
(int)(((long)1)); 
BgL_arg2017z00_2233 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3078); } 
{ /* ./Cnst/node.scm 232 */
int BgL_offsetz00_2236;
BgL_offsetz00_2236 = 
(int)(BgL_objzd2classzd2numz00_2232); 
{ /* ./Cnst/node.scm 232 */
long BgL_offsetz00_2237;
{ /* ./Cnst/node.scm 232 */
long BgL_auxz00_3082;
BgL_auxz00_3082 = 
(long)(BgL_offsetz00_2236); 
BgL_offsetz00_2237 = 
(BgL_auxz00_3082-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 232 */
long BgL_modz00_2238;
{ /* ./Cnst/node.scm 232 */
int BgL_arg2028z00_2239;
BgL_arg2028z00_2239 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 232 */
long BgL_n2z00_2247;
BgL_n2z00_2247 = 
(long)(BgL_arg2028z00_2239); 
BgL_modz00_2238 = 
(BgL_offsetz00_2237/BgL_n2z00_2247); } } 
{ /* ./Cnst/node.scm 232 */
long BgL_restz00_2240;
{ /* ./Cnst/node.scm 232 */
int BgL_arg2024z00_2241;
BgL_arg2024z00_2241 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 232 */
long BgL_n2z00_2250;
BgL_n2z00_2250 = 
(long)(BgL_arg2024z00_2241); 
BgL_restz00_2240 = 
(BgL_offsetz00_2237%BgL_n2z00_2250); } } 
{ /* ./Cnst/node.scm 232 */

{ /* ./Cnst/node.scm 232 */
obj_t BgL_bucketz00_2242;
{ /* ./Cnst/node.scm 232 */
int BgL_kz00_2252;
BgL_kz00_2252 = 
(int)(BgL_modz00_2238); 
BgL_bucketz00_2242 = 
VECTOR_REF(BgL_arg2017z00_2233,BgL_kz00_2252); } 
{ /* ./Cnst/node.scm 232 */
int BgL_kz00_2254;
BgL_kz00_2254 = 
(int)(BgL_restz00_2240); 
BgL_method2772z00_2230 = 
VECTOR_REF(BgL_bucketz00_2242,BgL_kz00_2254); } } } } } } } } } } 
{ /* ./Cnst/node.scm 232 */
obj_t BgL_auxz00_3095;
BgL_auxz00_3095 = 
PROCEDURE_ENTRY(BgL_method2772z00_2230)(BgL_method2772z00_2230, 
(obj_t)(BgL_arg3692z00_1345), BEOA); 
BgL_res3985z00_2255 = 
(BgL_nodez00_bglt)(BgL_auxz00_3095); } } 
BgL_arg3689z00_1344 = BgL_res3985z00_2255; } } 
{ /* ./Cnst/node.scm 232 */
BgL_appzd2lyzd2_bglt BgL_obj1753z00_2256;BgL_nodez00_bglt BgL_val1752z00_2257;
BgL_obj1753z00_2256 = BgL_nodez00_1340; 
BgL_val1752z00_2257 = BgL_arg3689z00_1344; 
((((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1753z00_2256))->BgL_funz00) = ((BgL_nodez00_bglt)BgL_val1752z00_2257), BUNSPEC); } } 
{ /* ./Cnst/node.scm 233 */
BgL_nodez00_bglt BgL_arg3697z00_1346;
{ /* ./Cnst/node.scm 233 */
BgL_nodez00_bglt BgL_arg3700z00_1347;
BgL_arg3700z00_1347 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1340))->BgL_argz00); 
{ /* ./Cnst/node.scm 233 */
BgL_nodez00_bglt BgL_res3988z00_2285;
{ /* ./Cnst/node.scm 233 */
obj_t BgL_method2772z00_2260;
{ /* ./Cnst/node.scm 233 */
BgL_objectz00_bglt BgL_objz00_2261;
BgL_objz00_2261 = 
(BgL_objectz00_bglt)(BgL_arg3700z00_1347); 
{ /* ./Cnst/node.scm 233 */
long BgL_objzd2classzd2numz00_2262;
BgL_objzd2classzd2numz00_2262 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2261); 
{ /* ./Cnst/node.scm 233 */
obj_t BgL_arg2017z00_2263;
{ /* ./Cnst/node.scm 233 */
int BgL_auxz00_3104;
BgL_auxz00_3104 = 
(int)(((long)1)); 
BgL_arg2017z00_2263 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3104); } 
{ /* ./Cnst/node.scm 233 */
int BgL_offsetz00_2266;
BgL_offsetz00_2266 = 
(int)(BgL_objzd2classzd2numz00_2262); 
{ /* ./Cnst/node.scm 233 */
long BgL_offsetz00_2267;
{ /* ./Cnst/node.scm 233 */
long BgL_auxz00_3108;
BgL_auxz00_3108 = 
(long)(BgL_offsetz00_2266); 
BgL_offsetz00_2267 = 
(BgL_auxz00_3108-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 233 */
long BgL_modz00_2268;
{ /* ./Cnst/node.scm 233 */
int BgL_arg2028z00_2269;
BgL_arg2028z00_2269 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 233 */
long BgL_n2z00_2277;
BgL_n2z00_2277 = 
(long)(BgL_arg2028z00_2269); 
BgL_modz00_2268 = 
(BgL_offsetz00_2267/BgL_n2z00_2277); } } 
{ /* ./Cnst/node.scm 233 */
long BgL_restz00_2270;
{ /* ./Cnst/node.scm 233 */
int BgL_arg2024z00_2271;
BgL_arg2024z00_2271 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 233 */
long BgL_n2z00_2280;
BgL_n2z00_2280 = 
(long)(BgL_arg2024z00_2271); 
BgL_restz00_2270 = 
(BgL_offsetz00_2267%BgL_n2z00_2280); } } 
{ /* ./Cnst/node.scm 233 */

{ /* ./Cnst/node.scm 233 */
obj_t BgL_bucketz00_2272;
{ /* ./Cnst/node.scm 233 */
int BgL_kz00_2282;
BgL_kz00_2282 = 
(int)(BgL_modz00_2268); 
BgL_bucketz00_2272 = 
VECTOR_REF(BgL_arg2017z00_2263,BgL_kz00_2282); } 
{ /* ./Cnst/node.scm 233 */
int BgL_kz00_2284;
BgL_kz00_2284 = 
(int)(BgL_restz00_2270); 
BgL_method2772z00_2260 = 
VECTOR_REF(BgL_bucketz00_2272,BgL_kz00_2284); } } } } } } } } } } 
{ /* ./Cnst/node.scm 233 */
obj_t BgL_auxz00_3121;
BgL_auxz00_3121 = 
PROCEDURE_ENTRY(BgL_method2772z00_2260)(BgL_method2772z00_2260, 
(obj_t)(BgL_arg3700z00_1347), BEOA); 
BgL_res3988z00_2285 = 
(BgL_nodez00_bglt)(BgL_auxz00_3121); } } 
BgL_arg3697z00_1346 = BgL_res3988z00_2285; } } 
{ /* ./Cnst/node.scm 233 */
BgL_appzd2lyzd2_bglt BgL_obj1756z00_2286;BgL_nodez00_bglt BgL_val1755z00_2287;
BgL_obj1756z00_2286 = BgL_nodez00_1340; 
BgL_val1755z00_2287 = BgL_arg3697z00_1346; 
((((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1756z00_2286))->BgL_argz00) = ((BgL_nodez00_bglt)BgL_val1755z00_2287), BUNSPEC); } } 
BgL_auxz00_3074 = BgL_nodez00_1340; 
return 
(obj_t)(BgL_auxz00_3074);} } } 
}



/* cnst!-box-set!2808 */
obj_t BGl_cnstz12zd2boxzd2setz122808z00zzcnst_nodez00(obj_t BgL_envz00_2601, obj_t BgL_nodez00_2602)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 221 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_1330;
{ /* ./Cnst/node.scm 222 */
BgL_boxzd2setz12zc0_bglt BgL_auxz00_3129;
BgL_nodez00_1330 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_2602); 
{ /* ./Cnst/node.scm 223 */
BgL_nodez00_bglt BgL_arg3669z00_1334;
{ /* ./Cnst/node.scm 223 */
BgL_varz00_bglt BgL_arg3672z00_1335;
BgL_arg3672z00_1335 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1330))->BgL_varz00); 
{ /* ./Cnst/node.scm 223 */
BgL_nodez00_bglt BgL_res3979z00_2195;
{ /* ./Cnst/node.scm 223 */
BgL_nodez00_bglt BgL_nodez00_2169;
BgL_nodez00_2169 = 
(BgL_nodez00_bglt)(BgL_arg3672z00_1335); 
{ /* ./Cnst/node.scm 223 */
obj_t BgL_method2772z00_2170;
{ /* ./Cnst/node.scm 223 */
BgL_objectz00_bglt BgL_objz00_2171;
BgL_objz00_2171 = 
(BgL_objectz00_bglt)(BgL_nodez00_2169); 
{ /* ./Cnst/node.scm 223 */
long BgL_objzd2classzd2numz00_2172;
BgL_objzd2classzd2numz00_2172 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2171); 
{ /* ./Cnst/node.scm 223 */
obj_t BgL_arg2017z00_2173;
{ /* ./Cnst/node.scm 223 */
int BgL_auxz00_3134;
BgL_auxz00_3134 = 
(int)(((long)1)); 
BgL_arg2017z00_2173 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3134); } 
{ /* ./Cnst/node.scm 223 */
int BgL_offsetz00_2176;
BgL_offsetz00_2176 = 
(int)(BgL_objzd2classzd2numz00_2172); 
{ /* ./Cnst/node.scm 223 */
long BgL_offsetz00_2177;
{ /* ./Cnst/node.scm 223 */
long BgL_auxz00_3138;
BgL_auxz00_3138 = 
(long)(BgL_offsetz00_2176); 
BgL_offsetz00_2177 = 
(BgL_auxz00_3138-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 223 */
long BgL_modz00_2178;
{ /* ./Cnst/node.scm 223 */
int BgL_arg2028z00_2179;
BgL_arg2028z00_2179 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 223 */
long BgL_n2z00_2187;
BgL_n2z00_2187 = 
(long)(BgL_arg2028z00_2179); 
BgL_modz00_2178 = 
(BgL_offsetz00_2177/BgL_n2z00_2187); } } 
{ /* ./Cnst/node.scm 223 */
long BgL_restz00_2180;
{ /* ./Cnst/node.scm 223 */
int BgL_arg2024z00_2181;
BgL_arg2024z00_2181 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 223 */
long BgL_n2z00_2190;
BgL_n2z00_2190 = 
(long)(BgL_arg2024z00_2181); 
BgL_restz00_2180 = 
(BgL_offsetz00_2177%BgL_n2z00_2190); } } 
{ /* ./Cnst/node.scm 223 */

{ /* ./Cnst/node.scm 223 */
obj_t BgL_bucketz00_2182;
{ /* ./Cnst/node.scm 223 */
int BgL_kz00_2192;
BgL_kz00_2192 = 
(int)(BgL_modz00_2178); 
BgL_bucketz00_2182 = 
VECTOR_REF(BgL_arg2017z00_2173,BgL_kz00_2192); } 
{ /* ./Cnst/node.scm 223 */
int BgL_kz00_2194;
BgL_kz00_2194 = 
(int)(BgL_restz00_2180); 
BgL_method2772z00_2170 = 
VECTOR_REF(BgL_bucketz00_2182,BgL_kz00_2194); } } } } } } } } } } 
{ /* ./Cnst/node.scm 223 */
obj_t BgL_auxz00_3151;
BgL_auxz00_3151 = 
PROCEDURE_ENTRY(BgL_method2772z00_2170)(BgL_method2772z00_2170, 
(obj_t)(BgL_nodez00_2169), BEOA); 
BgL_res3979z00_2195 = 
(BgL_nodez00_bglt)(BgL_auxz00_3151); } } } 
BgL_arg3669z00_1334 = BgL_res3979z00_2195; } } 
{ /* ./Cnst/node.scm 223 */
BgL_boxzd2setz12zc0_bglt BgL_obj2642z00_2196;BgL_varz00_bglt BgL_val2641z00_2197;
BgL_obj2642z00_2196 = BgL_nodez00_1330; 
BgL_val2641z00_2197 = 
(BgL_varz00_bglt)(BgL_arg3669z00_1334); 
((((BgL_boxzd2setz12zc0_bglt)CREF(BgL_obj2642z00_2196))->BgL_varz00) = ((BgL_varz00_bglt)BgL_val2641z00_2197), BUNSPEC); } } 
{ /* ./Cnst/node.scm 224 */
BgL_nodez00_bglt BgL_arg3676z00_1336;
{ /* ./Cnst/node.scm 224 */
BgL_nodez00_bglt BgL_arg3679z00_1337;
BgL_arg3679z00_1337 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1330))->BgL_valuez00); 
{ /* ./Cnst/node.scm 224 */
BgL_nodez00_bglt BgL_res3982z00_2225;
{ /* ./Cnst/node.scm 224 */
obj_t BgL_method2772z00_2200;
{ /* ./Cnst/node.scm 224 */
BgL_objectz00_bglt BgL_objz00_2201;
BgL_objz00_2201 = 
(BgL_objectz00_bglt)(BgL_arg3679z00_1337); 
{ /* ./Cnst/node.scm 224 */
long BgL_objzd2classzd2numz00_2202;
BgL_objzd2classzd2numz00_2202 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2201); 
{ /* ./Cnst/node.scm 224 */
obj_t BgL_arg2017z00_2203;
{ /* ./Cnst/node.scm 224 */
int BgL_auxz00_3161;
BgL_auxz00_3161 = 
(int)(((long)1)); 
BgL_arg2017z00_2203 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3161); } 
{ /* ./Cnst/node.scm 224 */
int BgL_offsetz00_2206;
BgL_offsetz00_2206 = 
(int)(BgL_objzd2classzd2numz00_2202); 
{ /* ./Cnst/node.scm 224 */
long BgL_offsetz00_2207;
{ /* ./Cnst/node.scm 224 */
long BgL_auxz00_3165;
BgL_auxz00_3165 = 
(long)(BgL_offsetz00_2206); 
BgL_offsetz00_2207 = 
(BgL_auxz00_3165-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 224 */
long BgL_modz00_2208;
{ /* ./Cnst/node.scm 224 */
int BgL_arg2028z00_2209;
BgL_arg2028z00_2209 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 224 */
long BgL_n2z00_2217;
BgL_n2z00_2217 = 
(long)(BgL_arg2028z00_2209); 
BgL_modz00_2208 = 
(BgL_offsetz00_2207/BgL_n2z00_2217); } } 
{ /* ./Cnst/node.scm 224 */
long BgL_restz00_2210;
{ /* ./Cnst/node.scm 224 */
int BgL_arg2024z00_2211;
BgL_arg2024z00_2211 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 224 */
long BgL_n2z00_2220;
BgL_n2z00_2220 = 
(long)(BgL_arg2024z00_2211); 
BgL_restz00_2210 = 
(BgL_offsetz00_2207%BgL_n2z00_2220); } } 
{ /* ./Cnst/node.scm 224 */

{ /* ./Cnst/node.scm 224 */
obj_t BgL_bucketz00_2212;
{ /* ./Cnst/node.scm 224 */
int BgL_kz00_2222;
BgL_kz00_2222 = 
(int)(BgL_modz00_2208); 
BgL_bucketz00_2212 = 
VECTOR_REF(BgL_arg2017z00_2203,BgL_kz00_2222); } 
{ /* ./Cnst/node.scm 224 */
int BgL_kz00_2224;
BgL_kz00_2224 = 
(int)(BgL_restz00_2210); 
BgL_method2772z00_2200 = 
VECTOR_REF(BgL_bucketz00_2212,BgL_kz00_2224); } } } } } } } } } } 
{ /* ./Cnst/node.scm 224 */
obj_t BgL_auxz00_3178;
BgL_auxz00_3178 = 
PROCEDURE_ENTRY(BgL_method2772z00_2200)(BgL_method2772z00_2200, 
(obj_t)(BgL_arg3679z00_1337), BEOA); 
BgL_res3982z00_2225 = 
(BgL_nodez00_bglt)(BgL_auxz00_3178); } } 
BgL_arg3676z00_1336 = BgL_res3982z00_2225; } } 
{ /* ./Cnst/node.scm 224 */
BgL_boxzd2setz12zc0_bglt BgL_obj2645z00_2226;BgL_nodez00_bglt BgL_val2644z00_2227;
BgL_obj2645z00_2226 = BgL_nodez00_1330; 
BgL_val2644z00_2227 = BgL_arg3676z00_1336; 
((((BgL_boxzd2setz12zc0_bglt)CREF(BgL_obj2645z00_2226))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2644z00_2227), BUNSPEC); } } 
BgL_auxz00_3129 = BgL_nodez00_1330; 
return 
(obj_t)(BgL_auxz00_3129);} } } 
}



/* cnst!-box-ref2806 */
obj_t BGl_cnstz12zd2boxzd2ref2806z12zzcnst_nodez00(obj_t BgL_envz00_2603, obj_t BgL_nodez00_2604)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 213 */
{ 
BgL_boxzd2refzd2_bglt BgL_nodez00_1322;
{ /* ./Cnst/node.scm 214 */
BgL_boxzd2refzd2_bglt BgL_auxz00_3186;
BgL_nodez00_1322 = 
(BgL_boxzd2refzd2_bglt)(BgL_nodez00_2604); 
{ /* ./Cnst/node.scm 215 */
BgL_nodez00_bglt BgL_arg3656z00_1326;
{ /* ./Cnst/node.scm 215 */
BgL_varz00_bglt BgL_arg3659z00_1327;
BgL_arg3659z00_1327 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_nodez00_1322))->BgL_varz00); 
{ /* ./Cnst/node.scm 215 */
BgL_nodez00_bglt BgL_res3976z00_2165;
{ /* ./Cnst/node.scm 215 */
BgL_nodez00_bglt BgL_nodez00_2139;
BgL_nodez00_2139 = 
(BgL_nodez00_bglt)(BgL_arg3659z00_1327); 
{ /* ./Cnst/node.scm 215 */
obj_t BgL_method2772z00_2140;
{ /* ./Cnst/node.scm 215 */
BgL_objectz00_bglt BgL_objz00_2141;
BgL_objz00_2141 = 
(BgL_objectz00_bglt)(BgL_nodez00_2139); 
{ /* ./Cnst/node.scm 215 */
long BgL_objzd2classzd2numz00_2142;
BgL_objzd2classzd2numz00_2142 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2141); 
{ /* ./Cnst/node.scm 215 */
obj_t BgL_arg2017z00_2143;
{ /* ./Cnst/node.scm 215 */
int BgL_auxz00_3191;
BgL_auxz00_3191 = 
(int)(((long)1)); 
BgL_arg2017z00_2143 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3191); } 
{ /* ./Cnst/node.scm 215 */
int BgL_offsetz00_2146;
BgL_offsetz00_2146 = 
(int)(BgL_objzd2classzd2numz00_2142); 
{ /* ./Cnst/node.scm 215 */
long BgL_offsetz00_2147;
{ /* ./Cnst/node.scm 215 */
long BgL_auxz00_3195;
BgL_auxz00_3195 = 
(long)(BgL_offsetz00_2146); 
BgL_offsetz00_2147 = 
(BgL_auxz00_3195-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 215 */
long BgL_modz00_2148;
{ /* ./Cnst/node.scm 215 */
int BgL_arg2028z00_2149;
BgL_arg2028z00_2149 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 215 */
long BgL_n2z00_2157;
BgL_n2z00_2157 = 
(long)(BgL_arg2028z00_2149); 
BgL_modz00_2148 = 
(BgL_offsetz00_2147/BgL_n2z00_2157); } } 
{ /* ./Cnst/node.scm 215 */
long BgL_restz00_2150;
{ /* ./Cnst/node.scm 215 */
int BgL_arg2024z00_2151;
BgL_arg2024z00_2151 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 215 */
long BgL_n2z00_2160;
BgL_n2z00_2160 = 
(long)(BgL_arg2024z00_2151); 
BgL_restz00_2150 = 
(BgL_offsetz00_2147%BgL_n2z00_2160); } } 
{ /* ./Cnst/node.scm 215 */

{ /* ./Cnst/node.scm 215 */
obj_t BgL_bucketz00_2152;
{ /* ./Cnst/node.scm 215 */
int BgL_kz00_2162;
BgL_kz00_2162 = 
(int)(BgL_modz00_2148); 
BgL_bucketz00_2152 = 
VECTOR_REF(BgL_arg2017z00_2143,BgL_kz00_2162); } 
{ /* ./Cnst/node.scm 215 */
int BgL_kz00_2164;
BgL_kz00_2164 = 
(int)(BgL_restz00_2150); 
BgL_method2772z00_2140 = 
VECTOR_REF(BgL_bucketz00_2152,BgL_kz00_2164); } } } } } } } } } } 
{ /* ./Cnst/node.scm 215 */
obj_t BgL_auxz00_3208;
BgL_auxz00_3208 = 
PROCEDURE_ENTRY(BgL_method2772z00_2140)(BgL_method2772z00_2140, 
(obj_t)(BgL_nodez00_2139), BEOA); 
BgL_res3976z00_2165 = 
(BgL_nodez00_bglt)(BgL_auxz00_3208); } } } 
BgL_arg3656z00_1326 = BgL_res3976z00_2165; } } 
{ /* ./Cnst/node.scm 215 */
BgL_boxzd2refzd2_bglt BgL_obj2616z00_2166;BgL_varz00_bglt BgL_val2615z00_2167;
BgL_obj2616z00_2166 = BgL_nodez00_1322; 
BgL_val2615z00_2167 = 
(BgL_varz00_bglt)(BgL_arg3656z00_1326); 
((((BgL_boxzd2refzd2_bglt)CREF(BgL_obj2616z00_2166))->BgL_varz00) = ((BgL_varz00_bglt)BgL_val2615z00_2167), BUNSPEC); } } 
BgL_auxz00_3186 = BgL_nodez00_1322; 
return 
(obj_t)(BgL_auxz00_3186);} } } 
}



/* cnst!-make-box2804 */
obj_t BGl_cnstz12zd2makezd2box2804z12zzcnst_nodez00(obj_t BgL_envz00_2605, obj_t BgL_nodez00_2606)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 205 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_1314;
{ /* ./Cnst/node.scm 206 */
BgL_makezd2boxzd2_bglt BgL_auxz00_3217;
BgL_nodez00_1314 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_2606); 
{ /* ./Cnst/node.scm 207 */
BgL_nodez00_bglt BgL_arg3643z00_1318;
{ /* ./Cnst/node.scm 207 */
BgL_nodez00_bglt BgL_arg3646z00_1319;
BgL_arg3646z00_1319 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1314))->BgL_valuez00); 
{ /* ./Cnst/node.scm 207 */
BgL_nodez00_bglt BgL_res3973z00_2135;
{ /* ./Cnst/node.scm 207 */
obj_t BgL_method2772z00_2110;
{ /* ./Cnst/node.scm 207 */
BgL_objectz00_bglt BgL_objz00_2111;
BgL_objz00_2111 = 
(BgL_objectz00_bglt)(BgL_arg3646z00_1319); 
{ /* ./Cnst/node.scm 207 */
long BgL_objzd2classzd2numz00_2112;
BgL_objzd2classzd2numz00_2112 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2111); 
{ /* ./Cnst/node.scm 207 */
obj_t BgL_arg2017z00_2113;
{ /* ./Cnst/node.scm 207 */
int BgL_auxz00_3221;
BgL_auxz00_3221 = 
(int)(((long)1)); 
BgL_arg2017z00_2113 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3221); } 
{ /* ./Cnst/node.scm 207 */
int BgL_offsetz00_2116;
BgL_offsetz00_2116 = 
(int)(BgL_objzd2classzd2numz00_2112); 
{ /* ./Cnst/node.scm 207 */
long BgL_offsetz00_2117;
{ /* ./Cnst/node.scm 207 */
long BgL_auxz00_3225;
BgL_auxz00_3225 = 
(long)(BgL_offsetz00_2116); 
BgL_offsetz00_2117 = 
(BgL_auxz00_3225-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 207 */
long BgL_modz00_2118;
{ /* ./Cnst/node.scm 207 */
int BgL_arg2028z00_2119;
BgL_arg2028z00_2119 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 207 */
long BgL_n2z00_2127;
BgL_n2z00_2127 = 
(long)(BgL_arg2028z00_2119); 
BgL_modz00_2118 = 
(BgL_offsetz00_2117/BgL_n2z00_2127); } } 
{ /* ./Cnst/node.scm 207 */
long BgL_restz00_2120;
{ /* ./Cnst/node.scm 207 */
int BgL_arg2024z00_2121;
BgL_arg2024z00_2121 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 207 */
long BgL_n2z00_2130;
BgL_n2z00_2130 = 
(long)(BgL_arg2024z00_2121); 
BgL_restz00_2120 = 
(BgL_offsetz00_2117%BgL_n2z00_2130); } } 
{ /* ./Cnst/node.scm 207 */

{ /* ./Cnst/node.scm 207 */
obj_t BgL_bucketz00_2122;
{ /* ./Cnst/node.scm 207 */
int BgL_kz00_2132;
BgL_kz00_2132 = 
(int)(BgL_modz00_2118); 
BgL_bucketz00_2122 = 
VECTOR_REF(BgL_arg2017z00_2113,BgL_kz00_2132); } 
{ /* ./Cnst/node.scm 207 */
int BgL_kz00_2134;
BgL_kz00_2134 = 
(int)(BgL_restz00_2120); 
BgL_method2772z00_2110 = 
VECTOR_REF(BgL_bucketz00_2122,BgL_kz00_2134); } } } } } } } } } } 
{ /* ./Cnst/node.scm 207 */
obj_t BgL_auxz00_3238;
BgL_auxz00_3238 = 
PROCEDURE_ENTRY(BgL_method2772z00_2110)(BgL_method2772z00_2110, 
(obj_t)(BgL_arg3646z00_1319), BEOA); 
BgL_res3973z00_2135 = 
(BgL_nodez00_bglt)(BgL_auxz00_3238); } } 
BgL_arg3643z00_1318 = BgL_res3973z00_2135; } } 
{ /* ./Cnst/node.scm 207 */
BgL_makezd2boxzd2_bglt BgL_obj2584z00_2136;BgL_nodez00_bglt BgL_val2583z00_2137;
BgL_obj2584z00_2136 = BgL_nodez00_1314; 
BgL_val2583z00_2137 = BgL_arg3643z00_1318; 
((((BgL_makezd2boxzd2_bglt)CREF(BgL_obj2584z00_2136))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2583z00_2137), BUNSPEC); } } 
BgL_auxz00_3217 = BgL_nodez00_1314; 
return 
(obj_t)(BgL_auxz00_3217);} } } 
}



/* cnst!-jump-ex-it2802 */
obj_t BGl_cnstz12zd2jumpzd2exzd2it2802zc0zzcnst_nodez00(obj_t BgL_envz00_2607, obj_t BgL_nodez00_2608)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 196 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_1304;
{ /* ./Cnst/node.scm 197 */
BgL_jumpzd2exzd2itz00_bglt BgL_auxz00_3246;
BgL_nodez00_1304 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_2608); 
{ /* ./Cnst/node.scm 198 */
BgL_nodez00_bglt BgL_arg3623z00_1308;
{ /* ./Cnst/node.scm 198 */
BgL_nodez00_bglt BgL_arg3626z00_1309;
BgL_arg3626z00_1309 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1304))->BgL_exitz00); 
{ /* ./Cnst/node.scm 198 */
BgL_nodez00_bglt BgL_res3967z00_2075;
{ /* ./Cnst/node.scm 198 */
obj_t BgL_method2772z00_2050;
{ /* ./Cnst/node.scm 198 */
BgL_objectz00_bglt BgL_objz00_2051;
BgL_objz00_2051 = 
(BgL_objectz00_bglt)(BgL_arg3626z00_1309); 
{ /* ./Cnst/node.scm 198 */
long BgL_objzd2classzd2numz00_2052;
BgL_objzd2classzd2numz00_2052 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2051); 
{ /* ./Cnst/node.scm 198 */
obj_t BgL_arg2017z00_2053;
{ /* ./Cnst/node.scm 198 */
int BgL_auxz00_3250;
BgL_auxz00_3250 = 
(int)(((long)1)); 
BgL_arg2017z00_2053 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3250); } 
{ /* ./Cnst/node.scm 198 */
int BgL_offsetz00_2056;
BgL_offsetz00_2056 = 
(int)(BgL_objzd2classzd2numz00_2052); 
{ /* ./Cnst/node.scm 198 */
long BgL_offsetz00_2057;
{ /* ./Cnst/node.scm 198 */
long BgL_auxz00_3254;
BgL_auxz00_3254 = 
(long)(BgL_offsetz00_2056); 
BgL_offsetz00_2057 = 
(BgL_auxz00_3254-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 198 */
long BgL_modz00_2058;
{ /* ./Cnst/node.scm 198 */
int BgL_arg2028z00_2059;
BgL_arg2028z00_2059 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 198 */
long BgL_n2z00_2067;
BgL_n2z00_2067 = 
(long)(BgL_arg2028z00_2059); 
BgL_modz00_2058 = 
(BgL_offsetz00_2057/BgL_n2z00_2067); } } 
{ /* ./Cnst/node.scm 198 */
long BgL_restz00_2060;
{ /* ./Cnst/node.scm 198 */
int BgL_arg2024z00_2061;
BgL_arg2024z00_2061 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 198 */
long BgL_n2z00_2070;
BgL_n2z00_2070 = 
(long)(BgL_arg2024z00_2061); 
BgL_restz00_2060 = 
(BgL_offsetz00_2057%BgL_n2z00_2070); } } 
{ /* ./Cnst/node.scm 198 */

{ /* ./Cnst/node.scm 198 */
obj_t BgL_bucketz00_2062;
{ /* ./Cnst/node.scm 198 */
int BgL_kz00_2072;
BgL_kz00_2072 = 
(int)(BgL_modz00_2058); 
BgL_bucketz00_2062 = 
VECTOR_REF(BgL_arg2017z00_2053,BgL_kz00_2072); } 
{ /* ./Cnst/node.scm 198 */
int BgL_kz00_2074;
BgL_kz00_2074 = 
(int)(BgL_restz00_2060); 
BgL_method2772z00_2050 = 
VECTOR_REF(BgL_bucketz00_2062,BgL_kz00_2074); } } } } } } } } } } 
{ /* ./Cnst/node.scm 198 */
obj_t BgL_auxz00_3267;
BgL_auxz00_3267 = 
PROCEDURE_ENTRY(BgL_method2772z00_2050)(BgL_method2772z00_2050, 
(obj_t)(BgL_arg3626z00_1309), BEOA); 
BgL_res3967z00_2075 = 
(BgL_nodez00_bglt)(BgL_auxz00_3267); } } 
BgL_arg3623z00_1308 = BgL_res3967z00_2075; } } 
{ /* ./Cnst/node.scm 198 */
BgL_jumpzd2exzd2itz00_bglt BgL_obj2552z00_2076;BgL_nodez00_bglt BgL_val2551z00_2077;
BgL_obj2552z00_2076 = BgL_nodez00_1304; 
BgL_val2551z00_2077 = BgL_arg3623z00_1308; 
((((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_obj2552z00_2076))->BgL_exitz00) = ((BgL_nodez00_bglt)BgL_val2551z00_2077), BUNSPEC); } } 
{ /* ./Cnst/node.scm 199 */
BgL_nodez00_bglt BgL_arg3630z00_1310;
{ /* ./Cnst/node.scm 199 */
BgL_nodez00_bglt BgL_arg3633z00_1311;
BgL_arg3633z00_1311 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1304))->BgL_valuez00); 
{ /* ./Cnst/node.scm 199 */
BgL_nodez00_bglt BgL_res3970z00_2105;
{ /* ./Cnst/node.scm 199 */
obj_t BgL_method2772z00_2080;
{ /* ./Cnst/node.scm 199 */
BgL_objectz00_bglt BgL_objz00_2081;
BgL_objz00_2081 = 
(BgL_objectz00_bglt)(BgL_arg3633z00_1311); 
{ /* ./Cnst/node.scm 199 */
long BgL_objzd2classzd2numz00_2082;
BgL_objzd2classzd2numz00_2082 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2081); 
{ /* ./Cnst/node.scm 199 */
obj_t BgL_arg2017z00_2083;
{ /* ./Cnst/node.scm 199 */
int BgL_auxz00_3276;
BgL_auxz00_3276 = 
(int)(((long)1)); 
BgL_arg2017z00_2083 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3276); } 
{ /* ./Cnst/node.scm 199 */
int BgL_offsetz00_2086;
BgL_offsetz00_2086 = 
(int)(BgL_objzd2classzd2numz00_2082); 
{ /* ./Cnst/node.scm 199 */
long BgL_offsetz00_2087;
{ /* ./Cnst/node.scm 199 */
long BgL_auxz00_3280;
BgL_auxz00_3280 = 
(long)(BgL_offsetz00_2086); 
BgL_offsetz00_2087 = 
(BgL_auxz00_3280-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 199 */
long BgL_modz00_2088;
{ /* ./Cnst/node.scm 199 */
int BgL_arg2028z00_2089;
BgL_arg2028z00_2089 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 199 */
long BgL_n2z00_2097;
BgL_n2z00_2097 = 
(long)(BgL_arg2028z00_2089); 
BgL_modz00_2088 = 
(BgL_offsetz00_2087/BgL_n2z00_2097); } } 
{ /* ./Cnst/node.scm 199 */
long BgL_restz00_2090;
{ /* ./Cnst/node.scm 199 */
int BgL_arg2024z00_2091;
BgL_arg2024z00_2091 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 199 */
long BgL_n2z00_2100;
BgL_n2z00_2100 = 
(long)(BgL_arg2024z00_2091); 
BgL_restz00_2090 = 
(BgL_offsetz00_2087%BgL_n2z00_2100); } } 
{ /* ./Cnst/node.scm 199 */

{ /* ./Cnst/node.scm 199 */
obj_t BgL_bucketz00_2092;
{ /* ./Cnst/node.scm 199 */
int BgL_kz00_2102;
BgL_kz00_2102 = 
(int)(BgL_modz00_2088); 
BgL_bucketz00_2092 = 
VECTOR_REF(BgL_arg2017z00_2083,BgL_kz00_2102); } 
{ /* ./Cnst/node.scm 199 */
int BgL_kz00_2104;
BgL_kz00_2104 = 
(int)(BgL_restz00_2090); 
BgL_method2772z00_2080 = 
VECTOR_REF(BgL_bucketz00_2092,BgL_kz00_2104); } } } } } } } } } } 
{ /* ./Cnst/node.scm 199 */
obj_t BgL_auxz00_3293;
BgL_auxz00_3293 = 
PROCEDURE_ENTRY(BgL_method2772z00_2080)(BgL_method2772z00_2080, 
(obj_t)(BgL_arg3633z00_1311), BEOA); 
BgL_res3970z00_2105 = 
(BgL_nodez00_bglt)(BgL_auxz00_3293); } } 
BgL_arg3630z00_1310 = BgL_res3970z00_2105; } } 
{ /* ./Cnst/node.scm 199 */
BgL_jumpzd2exzd2itz00_bglt BgL_obj2555z00_2106;BgL_nodez00_bglt BgL_val2554z00_2107;
BgL_obj2555z00_2106 = BgL_nodez00_1304; 
BgL_val2554z00_2107 = BgL_arg3630z00_1310; 
((((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_obj2555z00_2106))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2554z00_2107), BUNSPEC); } } 
BgL_auxz00_3246 = BgL_nodez00_1304; 
return 
(obj_t)(BgL_auxz00_3246);} } } 
}



/* cnst!-set-ex-it2800 */
obj_t BGl_cnstz12zd2setzd2exzd2it2800zc0zzcnst_nodez00(obj_t BgL_envz00_2609, obj_t BgL_nodez00_2610)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 188 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_1296;
{ /* ./Cnst/node.scm 189 */
BgL_setzd2exzd2itz00_bglt BgL_auxz00_3301;
BgL_nodez00_1296 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_2610); 
{ /* ./Cnst/node.scm 190 */
BgL_nodez00_bglt BgL_arg3610z00_1300;
{ /* ./Cnst/node.scm 190 */
BgL_nodez00_bglt BgL_arg3613z00_1301;
BgL_arg3613z00_1301 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1296))->BgL_bodyz00); 
{ /* ./Cnst/node.scm 190 */
BgL_nodez00_bglt BgL_res3964z00_2045;
{ /* ./Cnst/node.scm 190 */
obj_t BgL_method2772z00_2020;
{ /* ./Cnst/node.scm 190 */
BgL_objectz00_bglt BgL_objz00_2021;
BgL_objz00_2021 = 
(BgL_objectz00_bglt)(BgL_arg3613z00_1301); 
{ /* ./Cnst/node.scm 190 */
long BgL_objzd2classzd2numz00_2022;
BgL_objzd2classzd2numz00_2022 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2021); 
{ /* ./Cnst/node.scm 190 */
obj_t BgL_arg2017z00_2023;
{ /* ./Cnst/node.scm 190 */
int BgL_auxz00_3305;
BgL_auxz00_3305 = 
(int)(((long)1)); 
BgL_arg2017z00_2023 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3305); } 
{ /* ./Cnst/node.scm 190 */
int BgL_offsetz00_2026;
BgL_offsetz00_2026 = 
(int)(BgL_objzd2classzd2numz00_2022); 
{ /* ./Cnst/node.scm 190 */
long BgL_offsetz00_2027;
{ /* ./Cnst/node.scm 190 */
long BgL_auxz00_3309;
BgL_auxz00_3309 = 
(long)(BgL_offsetz00_2026); 
BgL_offsetz00_2027 = 
(BgL_auxz00_3309-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 190 */
long BgL_modz00_2028;
{ /* ./Cnst/node.scm 190 */
int BgL_arg2028z00_2029;
BgL_arg2028z00_2029 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 190 */
long BgL_n2z00_2037;
BgL_n2z00_2037 = 
(long)(BgL_arg2028z00_2029); 
BgL_modz00_2028 = 
(BgL_offsetz00_2027/BgL_n2z00_2037); } } 
{ /* ./Cnst/node.scm 190 */
long BgL_restz00_2030;
{ /* ./Cnst/node.scm 190 */
int BgL_arg2024z00_2031;
BgL_arg2024z00_2031 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 190 */
long BgL_n2z00_2040;
BgL_n2z00_2040 = 
(long)(BgL_arg2024z00_2031); 
BgL_restz00_2030 = 
(BgL_offsetz00_2027%BgL_n2z00_2040); } } 
{ /* ./Cnst/node.scm 190 */

{ /* ./Cnst/node.scm 190 */
obj_t BgL_bucketz00_2032;
{ /* ./Cnst/node.scm 190 */
int BgL_kz00_2042;
BgL_kz00_2042 = 
(int)(BgL_modz00_2028); 
BgL_bucketz00_2032 = 
VECTOR_REF(BgL_arg2017z00_2023,BgL_kz00_2042); } 
{ /* ./Cnst/node.scm 190 */
int BgL_kz00_2044;
BgL_kz00_2044 = 
(int)(BgL_restz00_2030); 
BgL_method2772z00_2020 = 
VECTOR_REF(BgL_bucketz00_2032,BgL_kz00_2044); } } } } } } } } } } 
{ /* ./Cnst/node.scm 190 */
obj_t BgL_auxz00_3322;
BgL_auxz00_3322 = 
PROCEDURE_ENTRY(BgL_method2772z00_2020)(BgL_method2772z00_2020, 
(obj_t)(BgL_arg3613z00_1301), BEOA); 
BgL_res3964z00_2045 = 
(BgL_nodez00_bglt)(BgL_auxz00_3322); } } 
BgL_arg3610z00_1300 = BgL_res3964z00_2045; } } 
{ /* ./Cnst/node.scm 190 */
BgL_setzd2exzd2itz00_bglt BgL_obj2529z00_2046;BgL_nodez00_bglt BgL_val2528z00_2047;
BgL_obj2529z00_2046 = BgL_nodez00_1296; 
BgL_val2528z00_2047 = BgL_arg3610z00_1300; 
((((BgL_setzd2exzd2itz00_bglt)CREF(BgL_obj2529z00_2046))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2528z00_2047), BUNSPEC); } } 
BgL_auxz00_3301 = BgL_nodez00_1296; 
return 
(obj_t)(BgL_auxz00_3301);} } } 
}



/* cnst!-let-var2798 */
obj_t BGl_cnstz12zd2letzd2var2798z12zzcnst_nodez00(obj_t BgL_envz00_2611, obj_t BgL_nodez00_2612)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 173 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1272;
{ /* ./Cnst/node.scm 174 */
BgL_letzd2varzd2_bglt BgL_auxz00_3330;
BgL_nodez00_1272 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_2612); 
{ 
obj_t BgL_l2746z00_1276;
{ /* ./Cnst/node.scm 175 */
obj_t BgL_arg3560z00_1278;
BgL_arg3560z00_1278 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1272))->BgL_bindingsz00); 
BgL_l2746z00_1276 = BgL_arg3560z00_1278; 
BgL_forzd2each2747zd2_1277:
{ /* ./Cnst/node.scm 175 */
bool_t BgL_test3563z00_1279;
BgL_test3563z00_1279 = 
PAIRP(BgL_l2746z00_1276); 
if(BgL_test3563z00_1279)
{ /* ./Cnst/node.scm 175 */
{ /* ./Cnst/node.scm 176 */
obj_t BgL_bindingz00_1280;
BgL_bindingz00_1280 = 
CAR(BgL_l2746z00_1276); 
{ /* ./Cnst/node.scm 176 */
obj_t BgL_varz00_1281;
BgL_varz00_1281 = 
CAR(BgL_bindingz00_1280); 
{ /* ./Cnst/node.scm 177 */
BgL_nodez00_bglt BgL_arg3565z00_1282;
{ /* ./Cnst/node.scm 177 */
obj_t BgL_arg3568z00_1283;
BgL_arg3568z00_1283 = 
CDR(BgL_bindingz00_1280); 
{ /* ./Cnst/node.scm 177 */
BgL_nodez00_bglt BgL_res3956z00_1972;
{ /* ./Cnst/node.scm 177 */
BgL_nodez00_bglt BgL_nodez00_1946;
BgL_nodez00_1946 = 
(BgL_nodez00_bglt)(BgL_arg3568z00_1283); 
{ /* ./Cnst/node.scm 177 */
obj_t BgL_method2772z00_1947;
{ /* ./Cnst/node.scm 177 */
BgL_objectz00_bglt BgL_objz00_1948;
BgL_objz00_1948 = 
(BgL_objectz00_bglt)(BgL_nodez00_1946); 
{ /* ./Cnst/node.scm 177 */
long BgL_objzd2classzd2numz00_1949;
BgL_objzd2classzd2numz00_1949 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1948); 
{ /* ./Cnst/node.scm 177 */
obj_t BgL_arg2017z00_1950;
{ /* ./Cnst/node.scm 177 */
int BgL_auxz00_3340;
BgL_auxz00_3340 = 
(int)(((long)1)); 
BgL_arg2017z00_1950 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3340); } 
{ /* ./Cnst/node.scm 177 */
int BgL_offsetz00_1953;
BgL_offsetz00_1953 = 
(int)(BgL_objzd2classzd2numz00_1949); 
{ /* ./Cnst/node.scm 177 */
long BgL_offsetz00_1954;
{ /* ./Cnst/node.scm 177 */
long BgL_auxz00_3344;
BgL_auxz00_3344 = 
(long)(BgL_offsetz00_1953); 
BgL_offsetz00_1954 = 
(BgL_auxz00_3344-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 177 */
long BgL_modz00_1955;
{ /* ./Cnst/node.scm 177 */
int BgL_arg2028z00_1956;
BgL_arg2028z00_1956 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 177 */
long BgL_n2z00_1964;
BgL_n2z00_1964 = 
(long)(BgL_arg2028z00_1956); 
BgL_modz00_1955 = 
(BgL_offsetz00_1954/BgL_n2z00_1964); } } 
{ /* ./Cnst/node.scm 177 */
long BgL_restz00_1957;
{ /* ./Cnst/node.scm 177 */
int BgL_arg2024z00_1958;
BgL_arg2024z00_1958 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 177 */
long BgL_n2z00_1967;
BgL_n2z00_1967 = 
(long)(BgL_arg2024z00_1958); 
BgL_restz00_1957 = 
(BgL_offsetz00_1954%BgL_n2z00_1967); } } 
{ /* ./Cnst/node.scm 177 */

{ /* ./Cnst/node.scm 177 */
obj_t BgL_bucketz00_1959;
{ /* ./Cnst/node.scm 177 */
int BgL_kz00_1969;
BgL_kz00_1969 = 
(int)(BgL_modz00_1955); 
BgL_bucketz00_1959 = 
VECTOR_REF(BgL_arg2017z00_1950,BgL_kz00_1969); } 
{ /* ./Cnst/node.scm 177 */
int BgL_kz00_1971;
BgL_kz00_1971 = 
(int)(BgL_restz00_1957); 
BgL_method2772z00_1947 = 
VECTOR_REF(BgL_bucketz00_1959,BgL_kz00_1971); } } } } } } } } } } 
{ /* ./Cnst/node.scm 177 */
obj_t BgL_auxz00_3357;
BgL_auxz00_3357 = 
PROCEDURE_ENTRY(BgL_method2772z00_1947)(BgL_method2772z00_1947, 
(obj_t)(BgL_nodez00_1946), BEOA); 
BgL_res3956z00_1972 = 
(BgL_nodez00_bglt)(BgL_auxz00_3357); } } } 
BgL_arg3565z00_1282 = BgL_res3956z00_1972; } } 
{ /* ./Cnst/node.scm 177 */
obj_t BgL_objz00_1974;
BgL_objz00_1974 = 
(obj_t)(BgL_arg3565z00_1282); 
SET_CDR(BgL_bindingz00_1280, BgL_objz00_1974); } } 
{ /* ./Cnst/node.scm 178 */
bool_t BgL_test3571z00_1284;
{ /* ./Cnst/node.scm 178 */
obj_t BgL_auxz00_3367;obj_t BgL_auxz00_3364;
BgL_auxz00_3367 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./Cnst/node.scm 178 */
BgL_variablez00_bglt BgL_obj1103z00_1975;
BgL_obj1103z00_1975 = 
(BgL_variablez00_bglt)(BgL_varz00_1281); 
BgL_auxz00_3364 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1103z00_1975))->BgL_accessz00); } 
BgL_test3571z00_1284 = 
(BgL_auxz00_3364==BgL_auxz00_3367); } 
if(BgL_test3571z00_1284)
{ /* ./Cnst/node.scm 179 */
BgL_localz00_bglt BgL_obj2748z00_1285;
{ 
BgL_localz00_bglt BgL_auxz00_3371;
BgL_auxz00_3371 = 
(BgL_localz00_bglt)(BgL_varz00_1281); 
BgL_obj2748z00_1285 = 
((BgL_localz00_bglt)BgL_auxz00_3371); } 
{ /* ./Cnst/node.scm 180 */
BgL_localzf2bvaluezf2_bglt BgL_arg3573z00_1286;
{ /* ./Cnst/node.scm 180 */
obj_t BgL_arg3576z00_1287;
BgL_arg3576z00_1287 = 
CDR(BgL_bindingz00_1280); 
{ /* ./Cnst/node.scm 179 */
BgL_localzf2bvaluezf2_bglt BgL_res3958z00_1983;
{ /* ./Cnst/node.scm 179 */
BgL_nodez00_bglt BgL_bindingzd2value2662zd2_1977;
BgL_bindingzd2value2662zd2_1977 = 
(BgL_nodez00_bglt)(BgL_arg3576z00_1287); 
{ /* ./Cnst/node.scm 179 */
BgL_localzf2bvaluezf2_bglt BgL_new2663z00_1978;
BgL_new2663z00_1978 = 
((BgL_localzf2bvaluezf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_localzf2bvaluezf2_bgl)))); 
{ /* ./Cnst/node.scm 179 */
BgL_localzf2bvaluezf2_bglt BgL_res3957z00_1982;
{ /* ./Cnst/node.scm 179 */
BgL_localzf2bvaluezf2_bglt BgL_new2679z00_1979;
BgL_new2679z00_1979 = BgL_new2663z00_1978; 
{ /* ./Cnst/node.scm 179 */
BgL_nodez00_bglt BgL_bindingzd2value2678zd2_1981;
BgL_bindingzd2value2678zd2_1981 = BgL_bindingzd2value2662zd2_1977; 
((((BgL_localzf2bvaluezf2_bglt)CREF(BgL_new2679z00_1979))->BgL_bindingzd2valuezd2) = ((BgL_nodez00_bglt)BgL_bindingzd2value2678zd2_1981), BUNSPEC); 
BgL_res3957z00_1982 = BgL_new2679z00_1979; } } BgL_res3957z00_1982; } 
BgL_res3958z00_1983 = BgL_new2663z00_1978; } } 
BgL_arg3573z00_1286 = BgL_res3958z00_1983; } } 
{ /* ./Cnst/node.scm 179 */
obj_t BgL_auxz00_3380;BgL_objectz00_bglt BgL_auxz00_3378;
BgL_auxz00_3380 = 
(obj_t)(BgL_arg3573z00_1286); 
BgL_auxz00_3378 = 
(BgL_objectz00_bglt)(BgL_obj2748z00_1285); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3378, BgL_auxz00_3380); } } 
{ /* ./Cnst/node.scm 179 */
long BgL_arg3580z00_1288;
BgL_arg3580z00_1288 = 
BGl_classzd2numzd2zz__objectz00(BGl_localzf2bvaluezf2zzcnst_nodez00); 
{ /* ./Cnst/node.scm 179 */
BgL_objectz00_bglt BgL_objz00_1984;
BgL_objz00_1984 = 
(BgL_objectz00_bglt)(BgL_obj2748z00_1285); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1984, BgL_arg3580z00_1288); } } 
{ /* ./Cnst/node.scm 179 */
obj_t BgL_objz00_1986;
BgL_objz00_1986 = 
(obj_t)(BgL_obj2748z00_1285); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1986); BUNSPEC; } 
(obj_t)(BgL_obj2748z00_1285); }  else 
{ /* ./Cnst/node.scm 178 */BFALSE; } } } } 
{ /* ./Cnst/node.scm 175 */
obj_t BgL_arg3592z00_1291;
BgL_arg3592z00_1291 = 
CDR(BgL_l2746z00_1276); 
{ 
obj_t BgL_l2746z00_3390;
BgL_l2746z00_3390 = BgL_arg3592z00_1291; 
BgL_l2746z00_1276 = BgL_l2746z00_3390; 
goto BgL_forzd2each2747zd2_1277;} } }  else 
{ /* ./Cnst/node.scm 175 */((bool_t)1); } } } } 
{ /* ./Cnst/node.scm 182 */
BgL_nodez00_bglt BgL_arg3597z00_1292;
{ /* ./Cnst/node.scm 182 */
BgL_nodez00_bglt BgL_arg3600z00_1293;
BgL_arg3600z00_1293 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1272))->BgL_bodyz00); 
{ /* ./Cnst/node.scm 182 */
BgL_nodez00_bglt BgL_res3961z00_2015;
{ /* ./Cnst/node.scm 182 */
obj_t BgL_method2772z00_1990;
{ /* ./Cnst/node.scm 182 */
BgL_objectz00_bglt BgL_objz00_1991;
BgL_objz00_1991 = 
(BgL_objectz00_bglt)(BgL_arg3600z00_1293); 
{ /* ./Cnst/node.scm 182 */
long BgL_objzd2classzd2numz00_1992;
BgL_objzd2classzd2numz00_1992 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1991); 
{ /* ./Cnst/node.scm 182 */
obj_t BgL_arg2017z00_1993;
{ /* ./Cnst/node.scm 182 */
int BgL_auxz00_3394;
BgL_auxz00_3394 = 
(int)(((long)1)); 
BgL_arg2017z00_1993 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3394); } 
{ /* ./Cnst/node.scm 182 */
int BgL_offsetz00_1996;
BgL_offsetz00_1996 = 
(int)(BgL_objzd2classzd2numz00_1992); 
{ /* ./Cnst/node.scm 182 */
long BgL_offsetz00_1997;
{ /* ./Cnst/node.scm 182 */
long BgL_auxz00_3398;
BgL_auxz00_3398 = 
(long)(BgL_offsetz00_1996); 
BgL_offsetz00_1997 = 
(BgL_auxz00_3398-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 182 */
long BgL_modz00_1998;
{ /* ./Cnst/node.scm 182 */
int BgL_arg2028z00_1999;
BgL_arg2028z00_1999 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 182 */
long BgL_n2z00_2007;
BgL_n2z00_2007 = 
(long)(BgL_arg2028z00_1999); 
BgL_modz00_1998 = 
(BgL_offsetz00_1997/BgL_n2z00_2007); } } 
{ /* ./Cnst/node.scm 182 */
long BgL_restz00_2000;
{ /* ./Cnst/node.scm 182 */
int BgL_arg2024z00_2001;
BgL_arg2024z00_2001 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 182 */
long BgL_n2z00_2010;
BgL_n2z00_2010 = 
(long)(BgL_arg2024z00_2001); 
BgL_restz00_2000 = 
(BgL_offsetz00_1997%BgL_n2z00_2010); } } 
{ /* ./Cnst/node.scm 182 */

{ /* ./Cnst/node.scm 182 */
obj_t BgL_bucketz00_2002;
{ /* ./Cnst/node.scm 182 */
int BgL_kz00_2012;
BgL_kz00_2012 = 
(int)(BgL_modz00_1998); 
BgL_bucketz00_2002 = 
VECTOR_REF(BgL_arg2017z00_1993,BgL_kz00_2012); } 
{ /* ./Cnst/node.scm 182 */
int BgL_kz00_2014;
BgL_kz00_2014 = 
(int)(BgL_restz00_2000); 
BgL_method2772z00_1990 = 
VECTOR_REF(BgL_bucketz00_2002,BgL_kz00_2014); } } } } } } } } } } 
{ /* ./Cnst/node.scm 182 */
obj_t BgL_auxz00_3411;
BgL_auxz00_3411 = 
PROCEDURE_ENTRY(BgL_method2772z00_1990)(BgL_method2772z00_1990, 
(obj_t)(BgL_arg3600z00_1293), BEOA); 
BgL_res3961z00_2015 = 
(BgL_nodez00_bglt)(BgL_auxz00_3411); } } 
BgL_arg3597z00_1292 = BgL_res3961z00_2015; } } 
{ /* ./Cnst/node.scm 182 */
BgL_letzd2varzd2_bglt BgL_obj2491z00_2016;BgL_nodez00_bglt BgL_val2490z00_2017;
BgL_obj2491z00_2016 = BgL_nodez00_1272; 
BgL_val2490z00_2017 = BgL_arg3597z00_1292; 
((((BgL_letzd2varzd2_bglt)CREF(BgL_obj2491z00_2016))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2490z00_2017), BUNSPEC); } } 
BgL_auxz00_3330 = BgL_nodez00_1272; 
return 
(obj_t)(BgL_auxz00_3330);} } } 
}



/* cnst!-let-fun2796 */
obj_t BGl_cnstz12zd2letzd2fun2796z12zzcnst_nodez00(obj_t BgL_envz00_2613, obj_t BgL_nodez00_2614)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 161 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1255;
{ /* ./Cnst/node.scm 162 */
BgL_letzd2funzd2_bglt BgL_auxz00_3419;
BgL_nodez00_1255 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_2614); 
{ 
obj_t BgL_l2742z00_1259;
{ /* ./Cnst/node.scm 163 */
obj_t BgL_arg3528z00_1261;
BgL_arg3528z00_1261 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1255))->BgL_localsz00); 
BgL_l2742z00_1259 = BgL_arg3528z00_1261; 
BgL_forzd2each2743zd2_1260:
{ /* ./Cnst/node.scm 163 */
bool_t BgL_test3531z00_1262;
BgL_test3531z00_1262 = 
PAIRP(BgL_l2742z00_1259); 
if(BgL_test3531z00_1262)
{ /* ./Cnst/node.scm 163 */
{ /* ./Cnst/node.scm 164 */
obj_t BgL_localz00_1263;
BgL_localz00_1263 = 
CAR(BgL_l2742z00_1259); 
{ /* ./Cnst/node.scm 164 */
BgL_valuez00_bglt BgL_funz00_1264;
{ /* ./Cnst/node.scm 164 */
BgL_variablez00_bglt BgL_obj1100z00_1879;
BgL_obj1100z00_1879 = 
(BgL_variablez00_bglt)(BgL_localz00_1263); 
BgL_funz00_1264 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1879))->BgL_valuez00); } 
{ /* ./Cnst/node.scm 165 */
BgL_nodez00_bglt BgL_arg3533z00_1265;
{ /* ./Cnst/node.scm 165 */
obj_t BgL_arg3536z00_1266;
{ /* ./Cnst/node.scm 165 */
BgL_sfunz00_bglt BgL_obj1370z00_1880;
BgL_obj1370z00_1880 = 
(BgL_sfunz00_bglt)(BgL_funz00_1264); 
BgL_arg3536z00_1266 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1880))->BgL_bodyz00); } 
{ /* ./Cnst/node.scm 165 */
BgL_nodez00_bglt BgL_res3950z00_1907;
{ /* ./Cnst/node.scm 165 */
BgL_nodez00_bglt BgL_nodez00_1881;
BgL_nodez00_1881 = 
(BgL_nodez00_bglt)(BgL_arg3536z00_1266); 
{ /* ./Cnst/node.scm 165 */
obj_t BgL_method2772z00_1882;
{ /* ./Cnst/node.scm 165 */
BgL_objectz00_bglt BgL_objz00_1883;
BgL_objz00_1883 = 
(BgL_objectz00_bglt)(BgL_nodez00_1881); 
{ /* ./Cnst/node.scm 165 */
long BgL_objzd2classzd2numz00_1884;
BgL_objzd2classzd2numz00_1884 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1883); 
{ /* ./Cnst/node.scm 165 */
obj_t BgL_arg2017z00_1885;
{ /* ./Cnst/node.scm 165 */
int BgL_auxz00_3431;
BgL_auxz00_3431 = 
(int)(((long)1)); 
BgL_arg2017z00_1885 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3431); } 
{ /* ./Cnst/node.scm 165 */
int BgL_offsetz00_1888;
BgL_offsetz00_1888 = 
(int)(BgL_objzd2classzd2numz00_1884); 
{ /* ./Cnst/node.scm 165 */
long BgL_offsetz00_1889;
{ /* ./Cnst/node.scm 165 */
long BgL_auxz00_3435;
BgL_auxz00_3435 = 
(long)(BgL_offsetz00_1888); 
BgL_offsetz00_1889 = 
(BgL_auxz00_3435-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 165 */
long BgL_modz00_1890;
{ /* ./Cnst/node.scm 165 */
int BgL_arg2028z00_1891;
BgL_arg2028z00_1891 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 165 */
long BgL_n2z00_1899;
BgL_n2z00_1899 = 
(long)(BgL_arg2028z00_1891); 
BgL_modz00_1890 = 
(BgL_offsetz00_1889/BgL_n2z00_1899); } } 
{ /* ./Cnst/node.scm 165 */
long BgL_restz00_1892;
{ /* ./Cnst/node.scm 165 */
int BgL_arg2024z00_1893;
BgL_arg2024z00_1893 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 165 */
long BgL_n2z00_1902;
BgL_n2z00_1902 = 
(long)(BgL_arg2024z00_1893); 
BgL_restz00_1892 = 
(BgL_offsetz00_1889%BgL_n2z00_1902); } } 
{ /* ./Cnst/node.scm 165 */

{ /* ./Cnst/node.scm 165 */
obj_t BgL_bucketz00_1894;
{ /* ./Cnst/node.scm 165 */
int BgL_kz00_1904;
BgL_kz00_1904 = 
(int)(BgL_modz00_1890); 
BgL_bucketz00_1894 = 
VECTOR_REF(BgL_arg2017z00_1885,BgL_kz00_1904); } 
{ /* ./Cnst/node.scm 165 */
int BgL_kz00_1906;
BgL_kz00_1906 = 
(int)(BgL_restz00_1892); 
BgL_method2772z00_1882 = 
VECTOR_REF(BgL_bucketz00_1894,BgL_kz00_1906); } } } } } } } } } } 
{ /* ./Cnst/node.scm 165 */
obj_t BgL_auxz00_3448;
BgL_auxz00_3448 = 
PROCEDURE_ENTRY(BgL_method2772z00_1882)(BgL_method2772z00_1882, 
(obj_t)(BgL_nodez00_1881), BEOA); 
BgL_res3950z00_1907 = 
(BgL_nodez00_bglt)(BgL_auxz00_3448); } } } 
BgL_arg3533z00_1265 = BgL_res3950z00_1907; } } 
{ /* ./Cnst/node.scm 165 */
BgL_sfunz00_bglt BgL_obj1373z00_1908;obj_t BgL_val1371z00_1909;
BgL_obj1373z00_1908 = 
(BgL_sfunz00_bglt)(BgL_funz00_1264); 
BgL_val1371z00_1909 = 
(obj_t)(BgL_arg3533z00_1265); 
((((BgL_sfunz00_bglt)CREF(BgL_obj1373z00_1908))->BgL_bodyz00) = ((obj_t)BgL_val1371z00_1909), BUNSPEC); } } } } 
{ /* ./Cnst/node.scm 163 */
obj_t BgL_arg3542z00_1267;
BgL_arg3542z00_1267 = 
CDR(BgL_l2742z00_1259); 
{ 
obj_t BgL_l2742z00_3457;
BgL_l2742z00_3457 = BgL_arg3542z00_1267; 
BgL_l2742z00_1259 = BgL_l2742z00_3457; 
goto BgL_forzd2each2743zd2_1260;} } }  else 
{ /* ./Cnst/node.scm 163 */((bool_t)1); } } } } 
{ /* ./Cnst/node.scm 167 */
BgL_nodez00_bglt BgL_arg3547z00_1268;
{ /* ./Cnst/node.scm 167 */
BgL_nodez00_bglt BgL_arg3550z00_1269;
BgL_arg3550z00_1269 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1255))->BgL_bodyz00); 
{ /* ./Cnst/node.scm 167 */
BgL_nodez00_bglt BgL_res3953z00_1938;
{ /* ./Cnst/node.scm 167 */
obj_t BgL_method2772z00_1913;
{ /* ./Cnst/node.scm 167 */
BgL_objectz00_bglt BgL_objz00_1914;
BgL_objz00_1914 = 
(BgL_objectz00_bglt)(BgL_arg3550z00_1269); 
{ /* ./Cnst/node.scm 167 */
long BgL_objzd2classzd2numz00_1915;
BgL_objzd2classzd2numz00_1915 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1914); 
{ /* ./Cnst/node.scm 167 */
obj_t BgL_arg2017z00_1916;
{ /* ./Cnst/node.scm 167 */
int BgL_auxz00_3461;
BgL_auxz00_3461 = 
(int)(((long)1)); 
BgL_arg2017z00_1916 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3461); } 
{ /* ./Cnst/node.scm 167 */
int BgL_offsetz00_1919;
BgL_offsetz00_1919 = 
(int)(BgL_objzd2classzd2numz00_1915); 
{ /* ./Cnst/node.scm 167 */
long BgL_offsetz00_1920;
{ /* ./Cnst/node.scm 167 */
long BgL_auxz00_3465;
BgL_auxz00_3465 = 
(long)(BgL_offsetz00_1919); 
BgL_offsetz00_1920 = 
(BgL_auxz00_3465-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 167 */
long BgL_modz00_1921;
{ /* ./Cnst/node.scm 167 */
int BgL_arg2028z00_1922;
BgL_arg2028z00_1922 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 167 */
long BgL_n2z00_1930;
BgL_n2z00_1930 = 
(long)(BgL_arg2028z00_1922); 
BgL_modz00_1921 = 
(BgL_offsetz00_1920/BgL_n2z00_1930); } } 
{ /* ./Cnst/node.scm 167 */
long BgL_restz00_1923;
{ /* ./Cnst/node.scm 167 */
int BgL_arg2024z00_1924;
BgL_arg2024z00_1924 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 167 */
long BgL_n2z00_1933;
BgL_n2z00_1933 = 
(long)(BgL_arg2024z00_1924); 
BgL_restz00_1923 = 
(BgL_offsetz00_1920%BgL_n2z00_1933); } } 
{ /* ./Cnst/node.scm 167 */

{ /* ./Cnst/node.scm 167 */
obj_t BgL_bucketz00_1925;
{ /* ./Cnst/node.scm 167 */
int BgL_kz00_1935;
BgL_kz00_1935 = 
(int)(BgL_modz00_1921); 
BgL_bucketz00_1925 = 
VECTOR_REF(BgL_arg2017z00_1916,BgL_kz00_1935); } 
{ /* ./Cnst/node.scm 167 */
int BgL_kz00_1937;
BgL_kz00_1937 = 
(int)(BgL_restz00_1923); 
BgL_method2772z00_1913 = 
VECTOR_REF(BgL_bucketz00_1925,BgL_kz00_1937); } } } } } } } } } } 
{ /* ./Cnst/node.scm 167 */
obj_t BgL_auxz00_3478;
BgL_auxz00_3478 = 
PROCEDURE_ENTRY(BgL_method2772z00_1913)(BgL_method2772z00_1913, 
(obj_t)(BgL_arg3550z00_1269), BEOA); 
BgL_res3953z00_1938 = 
(BgL_nodez00_bglt)(BgL_auxz00_3478); } } 
BgL_arg3547z00_1268 = BgL_res3953z00_1938; } } 
{ /* ./Cnst/node.scm 167 */
BgL_letzd2funzd2_bglt BgL_obj2453z00_1939;BgL_nodez00_bglt BgL_val2452z00_1940;
BgL_obj2453z00_1939 = BgL_nodez00_1255; 
BgL_val2452z00_1940 = BgL_arg3547z00_1268; 
((((BgL_letzd2funzd2_bglt)CREF(BgL_obj2453z00_1939))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2452z00_1940), BUNSPEC); } } 
BgL_auxz00_3419 = BgL_nodez00_1255; 
return 
(obj_t)(BgL_auxz00_3419);} } } 
}



/* cnst!-select2794 */
obj_t BGl_cnstz12zd2select2794zc0zzcnst_nodez00(obj_t BgL_envz00_2615, obj_t BgL_nodez00_2616)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 150 */
{ 
BgL_selectz00_bglt BgL_nodez00_1239;
{ /* ./Cnst/node.scm 151 */
BgL_selectz00_bglt BgL_auxz00_3486;
BgL_nodez00_1239 = 
(BgL_selectz00_bglt)(BgL_nodez00_2616); 
{ /* ./Cnst/node.scm 152 */
BgL_nodez00_bglt BgL_arg3497z00_1243;
{ /* ./Cnst/node.scm 152 */
BgL_nodez00_bglt BgL_arg3500z00_1244;
BgL_arg3500z00_1244 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1239))->BgL_testz00); 
{ /* ./Cnst/node.scm 152 */
BgL_nodez00_bglt BgL_res3944z00_1839;
{ /* ./Cnst/node.scm 152 */
obj_t BgL_method2772z00_1814;
{ /* ./Cnst/node.scm 152 */
BgL_objectz00_bglt BgL_objz00_1815;
BgL_objz00_1815 = 
(BgL_objectz00_bglt)(BgL_arg3500z00_1244); 
{ /* ./Cnst/node.scm 152 */
long BgL_objzd2classzd2numz00_1816;
BgL_objzd2classzd2numz00_1816 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1815); 
{ /* ./Cnst/node.scm 152 */
obj_t BgL_arg2017z00_1817;
{ /* ./Cnst/node.scm 152 */
int BgL_auxz00_3490;
BgL_auxz00_3490 = 
(int)(((long)1)); 
BgL_arg2017z00_1817 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3490); } 
{ /* ./Cnst/node.scm 152 */
int BgL_offsetz00_1820;
BgL_offsetz00_1820 = 
(int)(BgL_objzd2classzd2numz00_1816); 
{ /* ./Cnst/node.scm 152 */
long BgL_offsetz00_1821;
{ /* ./Cnst/node.scm 152 */
long BgL_auxz00_3494;
BgL_auxz00_3494 = 
(long)(BgL_offsetz00_1820); 
BgL_offsetz00_1821 = 
(BgL_auxz00_3494-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 152 */
long BgL_modz00_1822;
{ /* ./Cnst/node.scm 152 */
int BgL_arg2028z00_1823;
BgL_arg2028z00_1823 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 152 */
long BgL_n2z00_1831;
BgL_n2z00_1831 = 
(long)(BgL_arg2028z00_1823); 
BgL_modz00_1822 = 
(BgL_offsetz00_1821/BgL_n2z00_1831); } } 
{ /* ./Cnst/node.scm 152 */
long BgL_restz00_1824;
{ /* ./Cnst/node.scm 152 */
int BgL_arg2024z00_1825;
BgL_arg2024z00_1825 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 152 */
long BgL_n2z00_1834;
BgL_n2z00_1834 = 
(long)(BgL_arg2024z00_1825); 
BgL_restz00_1824 = 
(BgL_offsetz00_1821%BgL_n2z00_1834); } } 
{ /* ./Cnst/node.scm 152 */

{ /* ./Cnst/node.scm 152 */
obj_t BgL_bucketz00_1826;
{ /* ./Cnst/node.scm 152 */
int BgL_kz00_1836;
BgL_kz00_1836 = 
(int)(BgL_modz00_1822); 
BgL_bucketz00_1826 = 
VECTOR_REF(BgL_arg2017z00_1817,BgL_kz00_1836); } 
{ /* ./Cnst/node.scm 152 */
int BgL_kz00_1838;
BgL_kz00_1838 = 
(int)(BgL_restz00_1824); 
BgL_method2772z00_1814 = 
VECTOR_REF(BgL_bucketz00_1826,BgL_kz00_1838); } } } } } } } } } } 
{ /* ./Cnst/node.scm 152 */
obj_t BgL_auxz00_3507;
BgL_auxz00_3507 = 
PROCEDURE_ENTRY(BgL_method2772z00_1814)(BgL_method2772z00_1814, 
(obj_t)(BgL_arg3500z00_1244), BEOA); 
BgL_res3944z00_1839 = 
(BgL_nodez00_bglt)(BgL_auxz00_3507); } } 
BgL_arg3497z00_1243 = BgL_res3944z00_1839; } } 
{ /* ./Cnst/node.scm 152 */
BgL_selectz00_bglt BgL_obj2410z00_1840;BgL_nodez00_bglt BgL_val2409z00_1841;
BgL_obj2410z00_1840 = BgL_nodez00_1239; 
BgL_val2409z00_1841 = BgL_arg3497z00_1243; 
((((BgL_selectz00_bglt)CREF(BgL_obj2410z00_1840))->BgL_testz00) = ((BgL_nodez00_bglt)BgL_val2409z00_1841), BUNSPEC); } } 
{ 
obj_t BgL_l2738z00_1245;
{ /* ./Cnst/node.scm 153 */
obj_t BgL_arg3504z00_1247;
BgL_arg3504z00_1247 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1239))->BgL_clausesz00); 
BgL_l2738z00_1245 = BgL_arg3504z00_1247; 
BgL_forzd2each2739zd2_1246:
{ /* ./Cnst/node.scm 153 */
bool_t BgL_test3507z00_1248;
BgL_test3507z00_1248 = 
PAIRP(BgL_l2738z00_1245); 
if(BgL_test3507z00_1248)
{ /* ./Cnst/node.scm 153 */
{ /* ./Cnst/node.scm 154 */
obj_t BgL_clausez00_1249;
BgL_clausez00_1249 = 
CAR(BgL_l2738z00_1245); 
{ /* ./Cnst/node.scm 154 */
BgL_nodez00_bglt BgL_arg3509z00_1250;
{ /* ./Cnst/node.scm 154 */
obj_t BgL_arg3512z00_1251;
BgL_arg3512z00_1251 = 
CDR(BgL_clausez00_1249); 
{ /* ./Cnst/node.scm 154 */
BgL_nodez00_bglt BgL_res3947z00_1872;
{ /* ./Cnst/node.scm 154 */
BgL_nodez00_bglt BgL_nodez00_1846;
BgL_nodez00_1846 = 
(BgL_nodez00_bglt)(BgL_arg3512z00_1251); 
{ /* ./Cnst/node.scm 154 */
obj_t BgL_method2772z00_1847;
{ /* ./Cnst/node.scm 154 */
BgL_objectz00_bglt BgL_objz00_1848;
BgL_objz00_1848 = 
(BgL_objectz00_bglt)(BgL_nodez00_1846); 
{ /* ./Cnst/node.scm 154 */
long BgL_objzd2classzd2numz00_1849;
BgL_objzd2classzd2numz00_1849 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1848); 
{ /* ./Cnst/node.scm 154 */
obj_t BgL_arg2017z00_1850;
{ /* ./Cnst/node.scm 154 */
int BgL_auxz00_3521;
BgL_auxz00_3521 = 
(int)(((long)1)); 
BgL_arg2017z00_1850 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3521); } 
{ /* ./Cnst/node.scm 154 */
int BgL_offsetz00_1853;
BgL_offsetz00_1853 = 
(int)(BgL_objzd2classzd2numz00_1849); 
{ /* ./Cnst/node.scm 154 */
long BgL_offsetz00_1854;
{ /* ./Cnst/node.scm 154 */
long BgL_auxz00_3525;
BgL_auxz00_3525 = 
(long)(BgL_offsetz00_1853); 
BgL_offsetz00_1854 = 
(BgL_auxz00_3525-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 154 */
long BgL_modz00_1855;
{ /* ./Cnst/node.scm 154 */
int BgL_arg2028z00_1856;
BgL_arg2028z00_1856 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 154 */
long BgL_n2z00_1864;
BgL_n2z00_1864 = 
(long)(BgL_arg2028z00_1856); 
BgL_modz00_1855 = 
(BgL_offsetz00_1854/BgL_n2z00_1864); } } 
{ /* ./Cnst/node.scm 154 */
long BgL_restz00_1857;
{ /* ./Cnst/node.scm 154 */
int BgL_arg2024z00_1858;
BgL_arg2024z00_1858 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 154 */
long BgL_n2z00_1867;
BgL_n2z00_1867 = 
(long)(BgL_arg2024z00_1858); 
BgL_restz00_1857 = 
(BgL_offsetz00_1854%BgL_n2z00_1867); } } 
{ /* ./Cnst/node.scm 154 */

{ /* ./Cnst/node.scm 154 */
obj_t BgL_bucketz00_1859;
{ /* ./Cnst/node.scm 154 */
int BgL_kz00_1869;
BgL_kz00_1869 = 
(int)(BgL_modz00_1855); 
BgL_bucketz00_1859 = 
VECTOR_REF(BgL_arg2017z00_1850,BgL_kz00_1869); } 
{ /* ./Cnst/node.scm 154 */
int BgL_kz00_1871;
BgL_kz00_1871 = 
(int)(BgL_restz00_1857); 
BgL_method2772z00_1847 = 
VECTOR_REF(BgL_bucketz00_1859,BgL_kz00_1871); } } } } } } } } } } 
{ /* ./Cnst/node.scm 154 */
obj_t BgL_auxz00_3538;
BgL_auxz00_3538 = 
PROCEDURE_ENTRY(BgL_method2772z00_1847)(BgL_method2772z00_1847, 
(obj_t)(BgL_nodez00_1846), BEOA); 
BgL_res3947z00_1872 = 
(BgL_nodez00_bglt)(BgL_auxz00_3538); } } } 
BgL_arg3509z00_1250 = BgL_res3947z00_1872; } } 
{ /* ./Cnst/node.scm 154 */
obj_t BgL_objz00_1874;
BgL_objz00_1874 = 
(obj_t)(BgL_arg3509z00_1250); 
SET_CDR(BgL_clausez00_1249, BgL_objz00_1874); } } } 
{ /* ./Cnst/node.scm 153 */
obj_t BgL_arg3517z00_1252;
BgL_arg3517z00_1252 = 
CDR(BgL_l2738z00_1245); 
{ 
obj_t BgL_l2738z00_3546;
BgL_l2738z00_3546 = BgL_arg3517z00_1252; 
BgL_l2738z00_1245 = BgL_l2738z00_3546; 
goto BgL_forzd2each2739zd2_1246;} } }  else 
{ /* ./Cnst/node.scm 153 */((bool_t)1); } } } } 
BgL_auxz00_3486 = BgL_nodez00_1239; 
return 
(obj_t)(BgL_auxz00_3486);} } } 
}



/* cnst!-fail2792 */
obj_t BGl_cnstz12zd2fail2792zc0zzcnst_nodez00(obj_t BgL_envz00_2617, obj_t BgL_nodez00_2618)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 140 */
{ 
BgL_failz00_bglt BgL_nodez00_1227;
{ /* ./Cnst/node.scm 141 */
BgL_failz00_bglt BgL_auxz00_3549;
BgL_nodez00_1227 = 
(BgL_failz00_bglt)(BgL_nodez00_2618); 
{ /* ./Cnst/node.scm 142 */
BgL_nodez00_bglt BgL_arg3470z00_1231;
{ /* ./Cnst/node.scm 142 */
BgL_nodez00_bglt BgL_arg3473z00_1232;
BgL_arg3473z00_1232 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1227))->BgL_procz00); 
{ /* ./Cnst/node.scm 142 */
BgL_nodez00_bglt BgL_res3935z00_1749;
{ /* ./Cnst/node.scm 142 */
obj_t BgL_method2772z00_1724;
{ /* ./Cnst/node.scm 142 */
BgL_objectz00_bglt BgL_objz00_1725;
BgL_objz00_1725 = 
(BgL_objectz00_bglt)(BgL_arg3473z00_1232); 
{ /* ./Cnst/node.scm 142 */
long BgL_objzd2classzd2numz00_1726;
BgL_objzd2classzd2numz00_1726 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1725); 
{ /* ./Cnst/node.scm 142 */
obj_t BgL_arg2017z00_1727;
{ /* ./Cnst/node.scm 142 */
int BgL_auxz00_3553;
BgL_auxz00_3553 = 
(int)(((long)1)); 
BgL_arg2017z00_1727 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3553); } 
{ /* ./Cnst/node.scm 142 */
int BgL_offsetz00_1730;
BgL_offsetz00_1730 = 
(int)(BgL_objzd2classzd2numz00_1726); 
{ /* ./Cnst/node.scm 142 */
long BgL_offsetz00_1731;
{ /* ./Cnst/node.scm 142 */
long BgL_auxz00_3557;
BgL_auxz00_3557 = 
(long)(BgL_offsetz00_1730); 
BgL_offsetz00_1731 = 
(BgL_auxz00_3557-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 142 */
long BgL_modz00_1732;
{ /* ./Cnst/node.scm 142 */
int BgL_arg2028z00_1733;
BgL_arg2028z00_1733 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 142 */
long BgL_n2z00_1741;
BgL_n2z00_1741 = 
(long)(BgL_arg2028z00_1733); 
BgL_modz00_1732 = 
(BgL_offsetz00_1731/BgL_n2z00_1741); } } 
{ /* ./Cnst/node.scm 142 */
long BgL_restz00_1734;
{ /* ./Cnst/node.scm 142 */
int BgL_arg2024z00_1735;
BgL_arg2024z00_1735 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 142 */
long BgL_n2z00_1744;
BgL_n2z00_1744 = 
(long)(BgL_arg2024z00_1735); 
BgL_restz00_1734 = 
(BgL_offsetz00_1731%BgL_n2z00_1744); } } 
{ /* ./Cnst/node.scm 142 */

{ /* ./Cnst/node.scm 142 */
obj_t BgL_bucketz00_1736;
{ /* ./Cnst/node.scm 142 */
int BgL_kz00_1746;
BgL_kz00_1746 = 
(int)(BgL_modz00_1732); 
BgL_bucketz00_1736 = 
VECTOR_REF(BgL_arg2017z00_1727,BgL_kz00_1746); } 
{ /* ./Cnst/node.scm 142 */
int BgL_kz00_1748;
BgL_kz00_1748 = 
(int)(BgL_restz00_1734); 
BgL_method2772z00_1724 = 
VECTOR_REF(BgL_bucketz00_1736,BgL_kz00_1748); } } } } } } } } } } 
{ /* ./Cnst/node.scm 142 */
obj_t BgL_auxz00_3570;
BgL_auxz00_3570 = 
PROCEDURE_ENTRY(BgL_method2772z00_1724)(BgL_method2772z00_1724, 
(obj_t)(BgL_arg3473z00_1232), BEOA); 
BgL_res3935z00_1749 = 
(BgL_nodez00_bglt)(BgL_auxz00_3570); } } 
BgL_arg3470z00_1231 = BgL_res3935z00_1749; } } 
{ /* ./Cnst/node.scm 142 */
BgL_failz00_bglt BgL_obj2372z00_1750;BgL_nodez00_bglt BgL_val2371z00_1751;
BgL_obj2372z00_1750 = BgL_nodez00_1227; 
BgL_val2371z00_1751 = BgL_arg3470z00_1231; 
((((BgL_failz00_bglt)CREF(BgL_obj2372z00_1750))->BgL_procz00) = ((BgL_nodez00_bglt)BgL_val2371z00_1751), BUNSPEC); } } 
{ /* ./Cnst/node.scm 143 */
BgL_nodez00_bglt BgL_arg3477z00_1233;
{ /* ./Cnst/node.scm 143 */
BgL_nodez00_bglt BgL_arg3480z00_1234;
BgL_arg3480z00_1234 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1227))->BgL_msgz00); 
{ /* ./Cnst/node.scm 143 */
BgL_nodez00_bglt BgL_res3938z00_1779;
{ /* ./Cnst/node.scm 143 */
obj_t BgL_method2772z00_1754;
{ /* ./Cnst/node.scm 143 */
BgL_objectz00_bglt BgL_objz00_1755;
BgL_objz00_1755 = 
(BgL_objectz00_bglt)(BgL_arg3480z00_1234); 
{ /* ./Cnst/node.scm 143 */
long BgL_objzd2classzd2numz00_1756;
BgL_objzd2classzd2numz00_1756 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1755); 
{ /* ./Cnst/node.scm 143 */
obj_t BgL_arg2017z00_1757;
{ /* ./Cnst/node.scm 143 */
int BgL_auxz00_3579;
BgL_auxz00_3579 = 
(int)(((long)1)); 
BgL_arg2017z00_1757 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3579); } 
{ /* ./Cnst/node.scm 143 */
int BgL_offsetz00_1760;
BgL_offsetz00_1760 = 
(int)(BgL_objzd2classzd2numz00_1756); 
{ /* ./Cnst/node.scm 143 */
long BgL_offsetz00_1761;
{ /* ./Cnst/node.scm 143 */
long BgL_auxz00_3583;
BgL_auxz00_3583 = 
(long)(BgL_offsetz00_1760); 
BgL_offsetz00_1761 = 
(BgL_auxz00_3583-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 143 */
long BgL_modz00_1762;
{ /* ./Cnst/node.scm 143 */
int BgL_arg2028z00_1763;
BgL_arg2028z00_1763 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 143 */
long BgL_n2z00_1771;
BgL_n2z00_1771 = 
(long)(BgL_arg2028z00_1763); 
BgL_modz00_1762 = 
(BgL_offsetz00_1761/BgL_n2z00_1771); } } 
{ /* ./Cnst/node.scm 143 */
long BgL_restz00_1764;
{ /* ./Cnst/node.scm 143 */
int BgL_arg2024z00_1765;
BgL_arg2024z00_1765 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 143 */
long BgL_n2z00_1774;
BgL_n2z00_1774 = 
(long)(BgL_arg2024z00_1765); 
BgL_restz00_1764 = 
(BgL_offsetz00_1761%BgL_n2z00_1774); } } 
{ /* ./Cnst/node.scm 143 */

{ /* ./Cnst/node.scm 143 */
obj_t BgL_bucketz00_1766;
{ /* ./Cnst/node.scm 143 */
int BgL_kz00_1776;
BgL_kz00_1776 = 
(int)(BgL_modz00_1762); 
BgL_bucketz00_1766 = 
VECTOR_REF(BgL_arg2017z00_1757,BgL_kz00_1776); } 
{ /* ./Cnst/node.scm 143 */
int BgL_kz00_1778;
BgL_kz00_1778 = 
(int)(BgL_restz00_1764); 
BgL_method2772z00_1754 = 
VECTOR_REF(BgL_bucketz00_1766,BgL_kz00_1778); } } } } } } } } } } 
{ /* ./Cnst/node.scm 143 */
obj_t BgL_auxz00_3596;
BgL_auxz00_3596 = 
PROCEDURE_ENTRY(BgL_method2772z00_1754)(BgL_method2772z00_1754, 
(obj_t)(BgL_arg3480z00_1234), BEOA); 
BgL_res3938z00_1779 = 
(BgL_nodez00_bglt)(BgL_auxz00_3596); } } 
BgL_arg3477z00_1233 = BgL_res3938z00_1779; } } 
{ /* ./Cnst/node.scm 143 */
BgL_failz00_bglt BgL_obj2375z00_1780;BgL_nodez00_bglt BgL_val2374z00_1781;
BgL_obj2375z00_1780 = BgL_nodez00_1227; 
BgL_val2374z00_1781 = BgL_arg3477z00_1233; 
((((BgL_failz00_bglt)CREF(BgL_obj2375z00_1780))->BgL_msgz00) = ((BgL_nodez00_bglt)BgL_val2374z00_1781), BUNSPEC); } } 
{ /* ./Cnst/node.scm 144 */
BgL_nodez00_bglt BgL_arg3484z00_1235;
{ /* ./Cnst/node.scm 144 */
BgL_nodez00_bglt BgL_arg3487z00_1236;
BgL_arg3487z00_1236 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1227))->BgL_objz00); 
{ /* ./Cnst/node.scm 144 */
BgL_nodez00_bglt BgL_res3941z00_1809;
{ /* ./Cnst/node.scm 144 */
obj_t BgL_method2772z00_1784;
{ /* ./Cnst/node.scm 144 */
BgL_objectz00_bglt BgL_objz00_1785;
BgL_objz00_1785 = 
(BgL_objectz00_bglt)(BgL_arg3487z00_1236); 
{ /* ./Cnst/node.scm 144 */
long BgL_objzd2classzd2numz00_1786;
BgL_objzd2classzd2numz00_1786 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1785); 
{ /* ./Cnst/node.scm 144 */
obj_t BgL_arg2017z00_1787;
{ /* ./Cnst/node.scm 144 */
int BgL_auxz00_3605;
BgL_auxz00_3605 = 
(int)(((long)1)); 
BgL_arg2017z00_1787 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3605); } 
{ /* ./Cnst/node.scm 144 */
int BgL_offsetz00_1790;
BgL_offsetz00_1790 = 
(int)(BgL_objzd2classzd2numz00_1786); 
{ /* ./Cnst/node.scm 144 */
long BgL_offsetz00_1791;
{ /* ./Cnst/node.scm 144 */
long BgL_auxz00_3609;
BgL_auxz00_3609 = 
(long)(BgL_offsetz00_1790); 
BgL_offsetz00_1791 = 
(BgL_auxz00_3609-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 144 */
long BgL_modz00_1792;
{ /* ./Cnst/node.scm 144 */
int BgL_arg2028z00_1793;
BgL_arg2028z00_1793 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 144 */
long BgL_n2z00_1801;
BgL_n2z00_1801 = 
(long)(BgL_arg2028z00_1793); 
BgL_modz00_1792 = 
(BgL_offsetz00_1791/BgL_n2z00_1801); } } 
{ /* ./Cnst/node.scm 144 */
long BgL_restz00_1794;
{ /* ./Cnst/node.scm 144 */
int BgL_arg2024z00_1795;
BgL_arg2024z00_1795 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 144 */
long BgL_n2z00_1804;
BgL_n2z00_1804 = 
(long)(BgL_arg2024z00_1795); 
BgL_restz00_1794 = 
(BgL_offsetz00_1791%BgL_n2z00_1804); } } 
{ /* ./Cnst/node.scm 144 */

{ /* ./Cnst/node.scm 144 */
obj_t BgL_bucketz00_1796;
{ /* ./Cnst/node.scm 144 */
int BgL_kz00_1806;
BgL_kz00_1806 = 
(int)(BgL_modz00_1792); 
BgL_bucketz00_1796 = 
VECTOR_REF(BgL_arg2017z00_1787,BgL_kz00_1806); } 
{ /* ./Cnst/node.scm 144 */
int BgL_kz00_1808;
BgL_kz00_1808 = 
(int)(BgL_restz00_1794); 
BgL_method2772z00_1784 = 
VECTOR_REF(BgL_bucketz00_1796,BgL_kz00_1808); } } } } } } } } } } 
{ /* ./Cnst/node.scm 144 */
obj_t BgL_auxz00_3622;
BgL_auxz00_3622 = 
PROCEDURE_ENTRY(BgL_method2772z00_1784)(BgL_method2772z00_1784, 
(obj_t)(BgL_arg3487z00_1236), BEOA); 
BgL_res3941z00_1809 = 
(BgL_nodez00_bglt)(BgL_auxz00_3622); } } 
BgL_arg3484z00_1235 = BgL_res3941z00_1809; } } 
{ /* ./Cnst/node.scm 144 */
BgL_failz00_bglt BgL_obj2378z00_1810;BgL_nodez00_bglt BgL_val2377z00_1811;
BgL_obj2378z00_1810 = BgL_nodez00_1227; 
BgL_val2377z00_1811 = BgL_arg3484z00_1235; 
((((BgL_failz00_bglt)CREF(BgL_obj2378z00_1810))->BgL_objz00) = ((BgL_nodez00_bglt)BgL_val2377z00_1811), BUNSPEC); } } 
BgL_auxz00_3549 = BgL_nodez00_1227; 
return 
(obj_t)(BgL_auxz00_3549);} } } 
}



/* cnst!-conditional2790 */
obj_t BGl_cnstz12zd2conditional2790zc0zzcnst_nodez00(obj_t BgL_envz00_2619, obj_t BgL_nodez00_2620)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 130 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1215;
{ /* ./Cnst/node.scm 131 */
BgL_conditionalz00_bglt BgL_auxz00_3630;
BgL_nodez00_1215 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_2620); 
{ /* ./Cnst/node.scm 132 */
BgL_nodez00_bglt BgL_arg3443z00_1219;
{ /* ./Cnst/node.scm 132 */
BgL_nodez00_bglt BgL_arg3446z00_1220;
BgL_arg3446z00_1220 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1215))->BgL_testz00); 
{ /* ./Cnst/node.scm 132 */
BgL_nodez00_bglt BgL_res3926z00_1659;
{ /* ./Cnst/node.scm 132 */
obj_t BgL_method2772z00_1634;
{ /* ./Cnst/node.scm 132 */
BgL_objectz00_bglt BgL_objz00_1635;
BgL_objz00_1635 = 
(BgL_objectz00_bglt)(BgL_arg3446z00_1220); 
{ /* ./Cnst/node.scm 132 */
long BgL_objzd2classzd2numz00_1636;
BgL_objzd2classzd2numz00_1636 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1635); 
{ /* ./Cnst/node.scm 132 */
obj_t BgL_arg2017z00_1637;
{ /* ./Cnst/node.scm 132 */
int BgL_auxz00_3634;
BgL_auxz00_3634 = 
(int)(((long)1)); 
BgL_arg2017z00_1637 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3634); } 
{ /* ./Cnst/node.scm 132 */
int BgL_offsetz00_1640;
BgL_offsetz00_1640 = 
(int)(BgL_objzd2classzd2numz00_1636); 
{ /* ./Cnst/node.scm 132 */
long BgL_offsetz00_1641;
{ /* ./Cnst/node.scm 132 */
long BgL_auxz00_3638;
BgL_auxz00_3638 = 
(long)(BgL_offsetz00_1640); 
BgL_offsetz00_1641 = 
(BgL_auxz00_3638-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 132 */
long BgL_modz00_1642;
{ /* ./Cnst/node.scm 132 */
int BgL_arg2028z00_1643;
BgL_arg2028z00_1643 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 132 */
long BgL_n2z00_1651;
BgL_n2z00_1651 = 
(long)(BgL_arg2028z00_1643); 
BgL_modz00_1642 = 
(BgL_offsetz00_1641/BgL_n2z00_1651); } } 
{ /* ./Cnst/node.scm 132 */
long BgL_restz00_1644;
{ /* ./Cnst/node.scm 132 */
int BgL_arg2024z00_1645;
BgL_arg2024z00_1645 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 132 */
long BgL_n2z00_1654;
BgL_n2z00_1654 = 
(long)(BgL_arg2024z00_1645); 
BgL_restz00_1644 = 
(BgL_offsetz00_1641%BgL_n2z00_1654); } } 
{ /* ./Cnst/node.scm 132 */

{ /* ./Cnst/node.scm 132 */
obj_t BgL_bucketz00_1646;
{ /* ./Cnst/node.scm 132 */
int BgL_kz00_1656;
BgL_kz00_1656 = 
(int)(BgL_modz00_1642); 
BgL_bucketz00_1646 = 
VECTOR_REF(BgL_arg2017z00_1637,BgL_kz00_1656); } 
{ /* ./Cnst/node.scm 132 */
int BgL_kz00_1658;
BgL_kz00_1658 = 
(int)(BgL_restz00_1644); 
BgL_method2772z00_1634 = 
VECTOR_REF(BgL_bucketz00_1646,BgL_kz00_1658); } } } } } } } } } } 
{ /* ./Cnst/node.scm 132 */
obj_t BgL_auxz00_3651;
BgL_auxz00_3651 = 
PROCEDURE_ENTRY(BgL_method2772z00_1634)(BgL_method2772z00_1634, 
(obj_t)(BgL_arg3446z00_1220), BEOA); 
BgL_res3926z00_1659 = 
(BgL_nodez00_bglt)(BgL_auxz00_3651); } } 
BgL_arg3443z00_1219 = BgL_res3926z00_1659; } } 
{ /* ./Cnst/node.scm 132 */
BgL_conditionalz00_bglt BgL_obj2334z00_1660;BgL_nodez00_bglt BgL_val2333z00_1661;
BgL_obj2334z00_1660 = BgL_nodez00_1215; 
BgL_val2333z00_1661 = BgL_arg3443z00_1219; 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2334z00_1660))->BgL_testz00) = ((BgL_nodez00_bglt)BgL_val2333z00_1661), BUNSPEC); } } 
{ /* ./Cnst/node.scm 133 */
BgL_nodez00_bglt BgL_arg3450z00_1221;
{ /* ./Cnst/node.scm 133 */
BgL_nodez00_bglt BgL_arg3453z00_1222;
BgL_arg3453z00_1222 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1215))->BgL_truez00); 
{ /* ./Cnst/node.scm 133 */
BgL_nodez00_bglt BgL_res3929z00_1689;
{ /* ./Cnst/node.scm 133 */
obj_t BgL_method2772z00_1664;
{ /* ./Cnst/node.scm 133 */
BgL_objectz00_bglt BgL_objz00_1665;
BgL_objz00_1665 = 
(BgL_objectz00_bglt)(BgL_arg3453z00_1222); 
{ /* ./Cnst/node.scm 133 */
long BgL_objzd2classzd2numz00_1666;
BgL_objzd2classzd2numz00_1666 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1665); 
{ /* ./Cnst/node.scm 133 */
obj_t BgL_arg2017z00_1667;
{ /* ./Cnst/node.scm 133 */
int BgL_auxz00_3660;
BgL_auxz00_3660 = 
(int)(((long)1)); 
BgL_arg2017z00_1667 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3660); } 
{ /* ./Cnst/node.scm 133 */
int BgL_offsetz00_1670;
BgL_offsetz00_1670 = 
(int)(BgL_objzd2classzd2numz00_1666); 
{ /* ./Cnst/node.scm 133 */
long BgL_offsetz00_1671;
{ /* ./Cnst/node.scm 133 */
long BgL_auxz00_3664;
BgL_auxz00_3664 = 
(long)(BgL_offsetz00_1670); 
BgL_offsetz00_1671 = 
(BgL_auxz00_3664-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 133 */
long BgL_modz00_1672;
{ /* ./Cnst/node.scm 133 */
int BgL_arg2028z00_1673;
BgL_arg2028z00_1673 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 133 */
long BgL_n2z00_1681;
BgL_n2z00_1681 = 
(long)(BgL_arg2028z00_1673); 
BgL_modz00_1672 = 
(BgL_offsetz00_1671/BgL_n2z00_1681); } } 
{ /* ./Cnst/node.scm 133 */
long BgL_restz00_1674;
{ /* ./Cnst/node.scm 133 */
int BgL_arg2024z00_1675;
BgL_arg2024z00_1675 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 133 */
long BgL_n2z00_1684;
BgL_n2z00_1684 = 
(long)(BgL_arg2024z00_1675); 
BgL_restz00_1674 = 
(BgL_offsetz00_1671%BgL_n2z00_1684); } } 
{ /* ./Cnst/node.scm 133 */

{ /* ./Cnst/node.scm 133 */
obj_t BgL_bucketz00_1676;
{ /* ./Cnst/node.scm 133 */
int BgL_kz00_1686;
BgL_kz00_1686 = 
(int)(BgL_modz00_1672); 
BgL_bucketz00_1676 = 
VECTOR_REF(BgL_arg2017z00_1667,BgL_kz00_1686); } 
{ /* ./Cnst/node.scm 133 */
int BgL_kz00_1688;
BgL_kz00_1688 = 
(int)(BgL_restz00_1674); 
BgL_method2772z00_1664 = 
VECTOR_REF(BgL_bucketz00_1676,BgL_kz00_1688); } } } } } } } } } } 
{ /* ./Cnst/node.scm 133 */
obj_t BgL_auxz00_3677;
BgL_auxz00_3677 = 
PROCEDURE_ENTRY(BgL_method2772z00_1664)(BgL_method2772z00_1664, 
(obj_t)(BgL_arg3453z00_1222), BEOA); 
BgL_res3929z00_1689 = 
(BgL_nodez00_bglt)(BgL_auxz00_3677); } } 
BgL_arg3450z00_1221 = BgL_res3929z00_1689; } } 
{ /* ./Cnst/node.scm 133 */
BgL_conditionalz00_bglt BgL_obj2337z00_1690;BgL_nodez00_bglt BgL_val2336z00_1691;
BgL_obj2337z00_1690 = BgL_nodez00_1215; 
BgL_val2336z00_1691 = BgL_arg3450z00_1221; 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2337z00_1690))->BgL_truez00) = ((BgL_nodez00_bglt)BgL_val2336z00_1691), BUNSPEC); } } 
{ /* ./Cnst/node.scm 134 */
BgL_nodez00_bglt BgL_arg3457z00_1223;
{ /* ./Cnst/node.scm 134 */
BgL_nodez00_bglt BgL_arg3460z00_1224;
BgL_arg3460z00_1224 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1215))->BgL_falsez00); 
{ /* ./Cnst/node.scm 134 */
BgL_nodez00_bglt BgL_res3932z00_1719;
{ /* ./Cnst/node.scm 134 */
obj_t BgL_method2772z00_1694;
{ /* ./Cnst/node.scm 134 */
BgL_objectz00_bglt BgL_objz00_1695;
BgL_objz00_1695 = 
(BgL_objectz00_bglt)(BgL_arg3460z00_1224); 
{ /* ./Cnst/node.scm 134 */
long BgL_objzd2classzd2numz00_1696;
BgL_objzd2classzd2numz00_1696 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1695); 
{ /* ./Cnst/node.scm 134 */
obj_t BgL_arg2017z00_1697;
{ /* ./Cnst/node.scm 134 */
int BgL_auxz00_3686;
BgL_auxz00_3686 = 
(int)(((long)1)); 
BgL_arg2017z00_1697 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3686); } 
{ /* ./Cnst/node.scm 134 */
int BgL_offsetz00_1700;
BgL_offsetz00_1700 = 
(int)(BgL_objzd2classzd2numz00_1696); 
{ /* ./Cnst/node.scm 134 */
long BgL_offsetz00_1701;
{ /* ./Cnst/node.scm 134 */
long BgL_auxz00_3690;
BgL_auxz00_3690 = 
(long)(BgL_offsetz00_1700); 
BgL_offsetz00_1701 = 
(BgL_auxz00_3690-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 134 */
long BgL_modz00_1702;
{ /* ./Cnst/node.scm 134 */
int BgL_arg2028z00_1703;
BgL_arg2028z00_1703 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 134 */
long BgL_n2z00_1711;
BgL_n2z00_1711 = 
(long)(BgL_arg2028z00_1703); 
BgL_modz00_1702 = 
(BgL_offsetz00_1701/BgL_n2z00_1711); } } 
{ /* ./Cnst/node.scm 134 */
long BgL_restz00_1704;
{ /* ./Cnst/node.scm 134 */
int BgL_arg2024z00_1705;
BgL_arg2024z00_1705 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 134 */
long BgL_n2z00_1714;
BgL_n2z00_1714 = 
(long)(BgL_arg2024z00_1705); 
BgL_restz00_1704 = 
(BgL_offsetz00_1701%BgL_n2z00_1714); } } 
{ /* ./Cnst/node.scm 134 */

{ /* ./Cnst/node.scm 134 */
obj_t BgL_bucketz00_1706;
{ /* ./Cnst/node.scm 134 */
int BgL_kz00_1716;
BgL_kz00_1716 = 
(int)(BgL_modz00_1702); 
BgL_bucketz00_1706 = 
VECTOR_REF(BgL_arg2017z00_1697,BgL_kz00_1716); } 
{ /* ./Cnst/node.scm 134 */
int BgL_kz00_1718;
BgL_kz00_1718 = 
(int)(BgL_restz00_1704); 
BgL_method2772z00_1694 = 
VECTOR_REF(BgL_bucketz00_1706,BgL_kz00_1718); } } } } } } } } } } 
{ /* ./Cnst/node.scm 134 */
obj_t BgL_auxz00_3703;
BgL_auxz00_3703 = 
PROCEDURE_ENTRY(BgL_method2772z00_1694)(BgL_method2772z00_1694, 
(obj_t)(BgL_arg3460z00_1224), BEOA); 
BgL_res3932z00_1719 = 
(BgL_nodez00_bglt)(BgL_auxz00_3703); } } 
BgL_arg3457z00_1223 = BgL_res3932z00_1719; } } 
{ /* ./Cnst/node.scm 134 */
BgL_conditionalz00_bglt BgL_obj2340z00_1720;BgL_nodez00_bglt BgL_val2339z00_1721;
BgL_obj2340z00_1720 = BgL_nodez00_1215; 
BgL_val2339z00_1721 = BgL_arg3457z00_1223; 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2340z00_1720))->BgL_falsez00) = ((BgL_nodez00_bglt)BgL_val2339z00_1721), BUNSPEC); } } 
BgL_auxz00_3630 = BgL_nodez00_1215; 
return 
(obj_t)(BgL_auxz00_3630);} } } 
}



/* cnst!-setq2788 */
obj_t BGl_cnstz12zd2setq2788zc0zzcnst_nodez00(obj_t BgL_envz00_2621, obj_t BgL_nodez00_2622)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 122 */
{ 
BgL_setqz00_bglt BgL_nodez00_1207;
{ /* ./Cnst/node.scm 123 */
BgL_setqz00_bglt BgL_auxz00_3711;
BgL_nodez00_1207 = 
(BgL_setqz00_bglt)(BgL_nodez00_2622); 
{ /* ./Cnst/node.scm 124 */
BgL_nodez00_bglt BgL_arg3430z00_1211;
{ /* ./Cnst/node.scm 124 */
BgL_nodez00_bglt BgL_arg3433z00_1212;
BgL_arg3433z00_1212 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1207))->BgL_valuez00); 
{ /* ./Cnst/node.scm 124 */
BgL_nodez00_bglt BgL_res3923z00_1629;
{ /* ./Cnst/node.scm 124 */
obj_t BgL_method2772z00_1604;
{ /* ./Cnst/node.scm 124 */
BgL_objectz00_bglt BgL_objz00_1605;
BgL_objz00_1605 = 
(BgL_objectz00_bglt)(BgL_arg3433z00_1212); 
{ /* ./Cnst/node.scm 124 */
long BgL_objzd2classzd2numz00_1606;
BgL_objzd2classzd2numz00_1606 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1605); 
{ /* ./Cnst/node.scm 124 */
obj_t BgL_arg2017z00_1607;
{ /* ./Cnst/node.scm 124 */
int BgL_auxz00_3715;
BgL_auxz00_3715 = 
(int)(((long)1)); 
BgL_arg2017z00_1607 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3715); } 
{ /* ./Cnst/node.scm 124 */
int BgL_offsetz00_1610;
BgL_offsetz00_1610 = 
(int)(BgL_objzd2classzd2numz00_1606); 
{ /* ./Cnst/node.scm 124 */
long BgL_offsetz00_1611;
{ /* ./Cnst/node.scm 124 */
long BgL_auxz00_3719;
BgL_auxz00_3719 = 
(long)(BgL_offsetz00_1610); 
BgL_offsetz00_1611 = 
(BgL_auxz00_3719-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 124 */
long BgL_modz00_1612;
{ /* ./Cnst/node.scm 124 */
int BgL_arg2028z00_1613;
BgL_arg2028z00_1613 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 124 */
long BgL_n2z00_1621;
BgL_n2z00_1621 = 
(long)(BgL_arg2028z00_1613); 
BgL_modz00_1612 = 
(BgL_offsetz00_1611/BgL_n2z00_1621); } } 
{ /* ./Cnst/node.scm 124 */
long BgL_restz00_1614;
{ /* ./Cnst/node.scm 124 */
int BgL_arg2024z00_1615;
BgL_arg2024z00_1615 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 124 */
long BgL_n2z00_1624;
BgL_n2z00_1624 = 
(long)(BgL_arg2024z00_1615); 
BgL_restz00_1614 = 
(BgL_offsetz00_1611%BgL_n2z00_1624); } } 
{ /* ./Cnst/node.scm 124 */

{ /* ./Cnst/node.scm 124 */
obj_t BgL_bucketz00_1616;
{ /* ./Cnst/node.scm 124 */
int BgL_kz00_1626;
BgL_kz00_1626 = 
(int)(BgL_modz00_1612); 
BgL_bucketz00_1616 = 
VECTOR_REF(BgL_arg2017z00_1607,BgL_kz00_1626); } 
{ /* ./Cnst/node.scm 124 */
int BgL_kz00_1628;
BgL_kz00_1628 = 
(int)(BgL_restz00_1614); 
BgL_method2772z00_1604 = 
VECTOR_REF(BgL_bucketz00_1616,BgL_kz00_1628); } } } } } } } } } } 
{ /* ./Cnst/node.scm 124 */
obj_t BgL_auxz00_3732;
BgL_auxz00_3732 = 
PROCEDURE_ENTRY(BgL_method2772z00_1604)(BgL_method2772z00_1604, 
(obj_t)(BgL_arg3433z00_1212), BEOA); 
BgL_res3923z00_1629 = 
(BgL_nodez00_bglt)(BgL_auxz00_3732); } } 
BgL_arg3430z00_1211 = BgL_res3923z00_1629; } } 
{ /* ./Cnst/node.scm 124 */
BgL_setqz00_bglt BgL_obj2305z00_1630;BgL_nodez00_bglt BgL_val2304z00_1631;
BgL_obj2305z00_1630 = BgL_nodez00_1207; 
BgL_val2304z00_1631 = BgL_arg3430z00_1211; 
((((BgL_setqz00_bglt)CREF(BgL_obj2305z00_1630))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2304z00_1631), BUNSPEC); } } 
BgL_auxz00_3711 = BgL_nodez00_1207; 
return 
(obj_t)(BgL_auxz00_3711);} } } 
}



/* cnst!-cast2786 */
obj_t BGl_cnstz12zd2cast2786zc0zzcnst_nodez00(obj_t BgL_envz00_2623, obj_t BgL_nodez00_2624)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 114 */
{ 
BgL_castz00_bglt BgL_nodez00_1200;
{ /* ./Cnst/node.scm 115 */
BgL_castz00_bglt BgL_auxz00_3740;
BgL_nodez00_1200 = 
(BgL_castz00_bglt)(BgL_nodez00_2624); 
{ /* ./Cnst/node.scm 115 */
BgL_nodez00_bglt BgL_arg3420z00_1573;
BgL_arg3420z00_1573 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1200))->BgL_argz00); 
{ /* ./Cnst/node.scm 115 */
BgL_nodez00_bglt BgL_res3920z00_1601;
{ /* ./Cnst/node.scm 115 */
obj_t BgL_method2772z00_1576;
{ /* ./Cnst/node.scm 115 */
BgL_objectz00_bglt BgL_objz00_1577;
BgL_objz00_1577 = 
(BgL_objectz00_bglt)(BgL_arg3420z00_1573); 
{ /* ./Cnst/node.scm 115 */
long BgL_objzd2classzd2numz00_1578;
BgL_objzd2classzd2numz00_1578 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1577); 
{ /* ./Cnst/node.scm 115 */
obj_t BgL_arg2017z00_1579;
{ /* ./Cnst/node.scm 115 */
int BgL_auxz00_3744;
BgL_auxz00_3744 = 
(int)(((long)1)); 
BgL_arg2017z00_1579 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3744); } 
{ /* ./Cnst/node.scm 115 */
int BgL_offsetz00_1582;
BgL_offsetz00_1582 = 
(int)(BgL_objzd2classzd2numz00_1578); 
{ /* ./Cnst/node.scm 115 */
long BgL_offsetz00_1583;
{ /* ./Cnst/node.scm 115 */
long BgL_auxz00_3748;
BgL_auxz00_3748 = 
(long)(BgL_offsetz00_1582); 
BgL_offsetz00_1583 = 
(BgL_auxz00_3748-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 115 */
long BgL_modz00_1584;
{ /* ./Cnst/node.scm 115 */
int BgL_arg2028z00_1585;
BgL_arg2028z00_1585 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 115 */
long BgL_n2z00_1593;
BgL_n2z00_1593 = 
(long)(BgL_arg2028z00_1585); 
BgL_modz00_1584 = 
(BgL_offsetz00_1583/BgL_n2z00_1593); } } 
{ /* ./Cnst/node.scm 115 */
long BgL_restz00_1586;
{ /* ./Cnst/node.scm 115 */
int BgL_arg2024z00_1587;
BgL_arg2024z00_1587 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 115 */
long BgL_n2z00_1596;
BgL_n2z00_1596 = 
(long)(BgL_arg2024z00_1587); 
BgL_restz00_1586 = 
(BgL_offsetz00_1583%BgL_n2z00_1596); } } 
{ /* ./Cnst/node.scm 115 */

{ /* ./Cnst/node.scm 115 */
obj_t BgL_bucketz00_1588;
{ /* ./Cnst/node.scm 115 */
int BgL_kz00_1598;
BgL_kz00_1598 = 
(int)(BgL_modz00_1584); 
BgL_bucketz00_1588 = 
VECTOR_REF(BgL_arg2017z00_1579,BgL_kz00_1598); } 
{ /* ./Cnst/node.scm 115 */
int BgL_kz00_1600;
BgL_kz00_1600 = 
(int)(BgL_restz00_1586); 
BgL_method2772z00_1576 = 
VECTOR_REF(BgL_bucketz00_1588,BgL_kz00_1600); } } } } } } } } } } 
{ /* ./Cnst/node.scm 115 */
obj_t BgL_auxz00_3761;
BgL_auxz00_3761 = 
PROCEDURE_ENTRY(BgL_method2772z00_1576)(BgL_method2772z00_1576, 
(obj_t)(BgL_arg3420z00_1573), BEOA); 
BgL_res3920z00_1601 = 
(BgL_nodez00_bglt)(BgL_auxz00_3761); } } BgL_res3920z00_1601; } } 
BgL_auxz00_3740 = BgL_nodez00_1200; 
return 
(obj_t)(BgL_auxz00_3740);} } } 
}



/* cnst!-extern2784 */
obj_t BGl_cnstz12zd2extern2784zc0zzcnst_nodez00(obj_t BgL_envz00_2625, obj_t BgL_nodez00_2626)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 106 */
{ 
BgL_externz00_bglt BgL_nodez00_1193;
{ /* ./Cnst/node.scm 107 */
BgL_externz00_bglt BgL_auxz00_3768;
BgL_nodez00_1193 = 
(BgL_externz00_bglt)(BgL_nodez00_2626); 
{ /* ./Cnst/node.scm 107 */
obj_t BgL_arg3410z00_1570;
BgL_arg3410z00_1570 = 
(((BgL_externz00_bglt)CREF(BgL_nodez00_1193))->BgL_exprza2za2); 
BGl_cnstza2z12zb0zzcnst_nodez00(BgL_arg3410z00_1570); } 
BgL_auxz00_3768 = BgL_nodez00_1193; 
return 
(obj_t)(BgL_auxz00_3768);} } } 
}



/* cnst!-sequence2782 */
obj_t BGl_cnstz12zd2sequence2782zc0zzcnst_nodez00(obj_t BgL_envz00_2627, obj_t BgL_nodez00_2628)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 98 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1186;
{ /* ./Cnst/node.scm 99 */
BgL_sequencez00_bglt BgL_auxz00_3773;
BgL_nodez00_1186 = 
(BgL_sequencez00_bglt)(BgL_nodez00_2628); 
{ /* ./Cnst/node.scm 99 */
obj_t BgL_arg3400z00_1567;
BgL_arg3400z00_1567 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1186))->BgL_nodesz00); 
BGl_cnstza2z12zb0zzcnst_nodez00(BgL_arg3400z00_1567); } 
BgL_auxz00_3773 = BgL_nodez00_1186; 
return 
(obj_t)(BgL_auxz00_3773);} } } 
}



/* cnst!-closure2780 */
obj_t BGl_cnstz12zd2closure2780zc0zzcnst_nodez00(obj_t BgL_envz00_2629, obj_t BgL_nodez00_2630)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 92 */
{ 
BgL_closurez00_bglt BgL_nodez00_1178;
BgL_nodez00_1178 = 
(BgL_closurez00_bglt)(BgL_nodez00_2630); 
{ /* ./Cnst/node.scm 93 */
obj_t BgL_arg3390z00_1183;
BgL_arg3390z00_1183 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_nodez00_1178)); 
return 
BGl_internalzd2errorzd2zztools_errorz00(BGl_string4631z00zzcnst_nodez00, BGl_string4632z00zzcnst_nodez00, BgL_arg3390z00_1183);} } } 
}



/* cnst!-var2778 */
obj_t BGl_cnstz12zd2var2778zc0zzcnst_nodez00(obj_t BgL_envz00_2631, obj_t BgL_nodez00_2632)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 86 */
{ /* ./Cnst/node.scm 87 */
BgL_varz00_bglt BgL_auxz00_3782;
BgL_auxz00_3782 = 
(BgL_varz00_bglt)(BgL_nodez00_2632); 
return 
(obj_t)(BgL_auxz00_3782);} } 
}



/* cnst!-kwote2776 */
obj_t BGl_cnstz12zd2kwote2776zc0zzcnst_nodez00(obj_t BgL_envz00_2633, obj_t BgL_nodez00_2634)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 55 */
{ 
BgL_kwotez00_bglt BgL_nodez00_1119;
BgL_nodez00_1119 = 
(BgL_kwotez00_bglt)(BgL_nodez00_2634); 
{ /* ./Cnst/node.scm 58 */
bool_t BgL_test3248z00_1123;
{ /* ./Cnst/node.scm 58 */
obj_t BgL_auxz00_3785;
BgL_auxz00_3785 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1119))->BgL_valuez00); 
BgL_test3248z00_1123 = 
SYMBOLP(BgL_auxz00_3785); } 
if(BgL_test3248z00_1123)
{ /* ./Cnst/node.scm 58 */
{ /* ./Cnst/node.scm 59 */
obj_t BgL_arg3250z00_1124;obj_t BgL_arg3251z00_1125;
BgL_arg3250z00_1124 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1119))->BgL_valuez00); 
{ /* ./Cnst/node.scm 59 */
BgL_nodez00_bglt BgL_obj1560z00_1516;
BgL_obj1560z00_1516 = 
(BgL_nodez00_bglt)(BgL_nodez00_1119); 
BgL_arg3251z00_1125 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1516))->BgL_locz00); } 
{ /* ./Cnst/node.scm 59 */
BgL_nodez00_bglt BgL_auxz00_3792;
BgL_auxz00_3792 = 
BGl_cnstzd2alloczd2symbolz00zzcnst_allocz00(BgL_arg3250z00_1124, BgL_arg3251z00_1125); 
return 
(obj_t)(BgL_auxz00_3792);} } }  else 
{ /* ./Cnst/node.scm 60 */
bool_t BgL_test3255z00_1126;
{ /* ./Cnst/node.scm 60 */
obj_t BgL_auxz00_3795;
BgL_auxz00_3795 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1119))->BgL_valuez00); 
BgL_test3255z00_1126 = 
KEYWORDP(BgL_auxz00_3795); } 
if(BgL_test3255z00_1126)
{ /* ./Cnst/node.scm 60 */
{ /* ./Cnst/node.scm 61 */
obj_t BgL_arg3257z00_1127;obj_t BgL_arg3259z00_1128;
BgL_arg3257z00_1127 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1119))->BgL_valuez00); 
{ /* ./Cnst/node.scm 61 */
BgL_nodez00_bglt BgL_obj1560z00_1520;
BgL_obj1560z00_1520 = 
(BgL_nodez00_bglt)(BgL_nodez00_1119); 
BgL_arg3259z00_1128 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1520))->BgL_locz00); } 
{ /* ./Cnst/node.scm 61 */
BgL_nodez00_bglt BgL_auxz00_3802;
BgL_auxz00_3802 = 
BGl_cnstzd2alloczd2keywordz00zzcnst_allocz00(BgL_arg3257z00_1127, BgL_arg3259z00_1128); 
return 
(obj_t)(BgL_auxz00_3802);} } }  else 
{ /* ./Cnst/node.scm 62 */
bool_t BgL_test3263z00_1129;
{ /* ./Cnst/node.scm 62 */
obj_t BgL_auxz00_3805;
BgL_auxz00_3805 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1119))->BgL_valuez00); 
BgL_test3263z00_1129 = 
PAIRP(BgL_auxz00_3805); } 
if(BgL_test3263z00_1129)
{ /* ./Cnst/node.scm 62 */
{ /* ./Cnst/node.scm 63 */
obj_t BgL_arg3265z00_1130;obj_t BgL_arg3266z00_1131;
BgL_arg3265z00_1130 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1119))->BgL_valuez00); 
{ /* ./Cnst/node.scm 63 */
BgL_nodez00_bglt BgL_obj1560z00_1524;
BgL_obj1560z00_1524 = 
(BgL_nodez00_bglt)(BgL_nodez00_1119); 
BgL_arg3266z00_1131 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1524))->BgL_locz00); } 
{ /* ./Cnst/node.scm 63 */
BgL_nodez00_bglt BgL_auxz00_3812;
BgL_auxz00_3812 = 
BGl_cnstzd2alloczd2listz00zzcnst_allocz00(BgL_arg3265z00_1130, BgL_arg3266z00_1131); 
return 
(obj_t)(BgL_auxz00_3812);} } }  else 
{ /* ./Cnst/node.scm 64 */
bool_t BgL_test3270z00_1132;
{ /* ./Cnst/node.scm 64 */
obj_t BgL_auxz00_3815;
BgL_auxz00_3815 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1119))->BgL_valuez00); 
BgL_test3270z00_1132 = 
VECTORP(BgL_auxz00_3815); } 
if(BgL_test3270z00_1132)
{ /* ./Cnst/node.scm 64 */
{ /* ./Cnst/node.scm 65 */
obj_t BgL_arg3272z00_1133;obj_t BgL_arg3273z00_1134;
BgL_arg3272z00_1133 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1119))->BgL_valuez00); 
{ /* ./Cnst/node.scm 65 */
BgL_nodez00_bglt BgL_obj1560z00_1528;
BgL_obj1560z00_1528 = 
(BgL_nodez00_bglt)(BgL_nodez00_1119); 
BgL_arg3273z00_1134 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1528))->BgL_locz00); } 
{ /* ./Cnst/node.scm 65 */
BgL_nodez00_bglt BgL_auxz00_3822;
BgL_auxz00_3822 = 
BGl_cnstzd2alloczd2vectorz00zzcnst_allocz00(BgL_arg3272z00_1133, BgL_arg3273z00_1134); 
return 
(obj_t)(BgL_auxz00_3822);} } }  else 
{ /* ./Cnst/node.scm 66 */
bool_t BgL_test3277z00_1135;
{ /* ./Cnst/node.scm 66 */
obj_t BgL_auxz00_3825;
BgL_auxz00_3825 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1119))->BgL_valuez00); 
BgL_test3277z00_1135 = 
STRINGP(BgL_auxz00_3825); } 
if(BgL_test3277z00_1135)
{ /* ./Cnst/node.scm 66 */
{ /* ./Cnst/node.scm 67 */
obj_t BgL_arg3279z00_1136;obj_t BgL_arg3280z00_1137;
BgL_arg3279z00_1136 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1119))->BgL_valuez00); 
{ /* ./Cnst/node.scm 67 */
BgL_nodez00_bglt BgL_obj1560z00_1532;
BgL_obj1560z00_1532 = 
(BgL_nodez00_bglt)(BgL_nodez00_1119); 
BgL_arg3280z00_1137 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1532))->BgL_locz00); } 
{ /* ./Cnst/node.scm 67 */
BgL_nodez00_bglt BgL_auxz00_3832;
BgL_auxz00_3832 = 
BGl_cnstzd2alloczd2stringz00zzcnst_allocz00(BgL_arg3279z00_1136, BgL_arg3280z00_1137); 
return 
(obj_t)(BgL_auxz00_3832);} } }  else 
{ /* ./Cnst/node.scm 68 */
bool_t BgL_test3284z00_1138;
{ /* ./Cnst/node.scm 68 */
obj_t BgL_auxz00_3835;
BgL_auxz00_3835 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1119))->BgL_valuez00); 
BgL_test3284z00_1138 = 
UCS2_STRINGP(BgL_auxz00_3835); } 
if(BgL_test3284z00_1138)
{ /* ./Cnst/node.scm 68 */
{ /* ./Cnst/node.scm 69 */
obj_t BgL_arg3286z00_1139;obj_t BgL_arg3287z00_1140;
BgL_arg3286z00_1139 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1119))->BgL_valuez00); 
{ /* ./Cnst/node.scm 69 */
BgL_nodez00_bglt BgL_obj1560z00_1536;
BgL_obj1560z00_1536 = 
(BgL_nodez00_bglt)(BgL_nodez00_1119); 
BgL_arg3287z00_1140 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1536))->BgL_locz00); } 
{ /* ./Cnst/node.scm 69 */
BgL_nodez00_bglt BgL_auxz00_3842;
BgL_auxz00_3842 = 
BGl_cnstzd2alloczd2ucs2zd2stringzd2zzcnst_allocz00(BgL_arg3286z00_1139, BgL_arg3287z00_1140); 
return 
(obj_t)(BgL_auxz00_3842);} } }  else 
{ /* ./Cnst/node.scm 70 */
bool_t BgL_test3291z00_1141;
{ /* ./Cnst/node.scm 70 */
obj_t BgL_arg3348z00_1164;
BgL_arg3348z00_1164 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1119))->BgL_valuez00); 
if(
STRUCTP(BgL_arg3348z00_1164))
{ /* ./Cnst/node.scm 70 */
obj_t BgL_auxz00_3850;obj_t BgL_auxz00_3848;
BgL_auxz00_3850 = 
CNST_TABLE_REF(((long)4)); 
BgL_auxz00_3848 = 
STRUCT_KEY(BgL_arg3348z00_1164); 
BgL_test3291z00_1141 = 
(BgL_auxz00_3848==BgL_auxz00_3850); }  else 
{ /* ./Cnst/node.scm 70 */
BgL_test3291z00_1141 = ((bool_t)0); } } 
if(BgL_test3291z00_1141)
{ /* ./Cnst/node.scm 70 */
{ /* ./Cnst/node.scm 71 */
obj_t BgL_arg3293z00_1142;obj_t BgL_arg3294z00_1143;
BgL_arg3293z00_1142 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1119))->BgL_valuez00); 
{ /* ./Cnst/node.scm 71 */
BgL_nodez00_bglt BgL_obj1560z00_1546;
BgL_obj1560z00_1546 = 
(BgL_nodez00_bglt)(BgL_nodez00_1119); 
BgL_arg3294z00_1143 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1546))->BgL_locz00); } 
{ /* ./Cnst/node.scm 71 */
BgL_nodez00_bglt BgL_auxz00_3857;
BgL_auxz00_3857 = 
BGl_cnstzd2alloczd2tvectorz00zzcnst_allocz00(BgL_arg3293z00_1142, BgL_arg3294z00_1143); 
return 
(obj_t)(BgL_auxz00_3857);} } }  else 
{ /* ./Cnst/node.scm 72 */
bool_t BgL_test3298z00_1144;
{ /* ./Cnst/node.scm 72 */
bool_t BgL_testz00_3860;
{ /* ./Cnst/node.scm 72 */
obj_t BgL_auxz00_3861;
BgL_auxz00_3861 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1119))->BgL_valuez00); 
BgL_testz00_3860 = 
CHARP(BgL_auxz00_3861); } 
if(BgL_testz00_3860)
{ /* ./Cnst/node.scm 72 */
BgL_test3298z00_1144 = ((bool_t)1); }  else 
{ /* ./Cnst/node.scm 73 */
bool_t BgL_testz00_3864;
{ /* ./Cnst/node.scm 73 */
obj_t BgL_auxz00_3865;
BgL_auxz00_3865 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1119))->BgL_valuez00); 
BgL_testz00_3864 = 
INTEGERP(BgL_auxz00_3865); } 
if(BgL_testz00_3864)
{ /* ./Cnst/node.scm 73 */
BgL_test3298z00_1144 = ((bool_t)1); }  else 
{ /* ./Cnst/node.scm 74 */
bool_t BgL_testz00_3868;
{ /* ./Cnst/node.scm 74 */
obj_t BgL_auxz00_3869;
BgL_auxz00_3869 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1119))->BgL_valuez00); 
BgL_testz00_3868 = 
BOOLEANP(BgL_auxz00_3869); } 
if(BgL_testz00_3868)
{ /* ./Cnst/node.scm 74 */
BgL_test3298z00_1144 = ((bool_t)1); }  else 
{ /* ./Cnst/node.scm 75 */
bool_t BgL_testz00_3872;
{ /* ./Cnst/node.scm 75 */
obj_t BgL_arg3332z00_1160;
BgL_arg3332z00_1160 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1119))->BgL_valuez00); 
if(
INTEGERP(BgL_arg3332z00_1160))
{ /* ./Cnst/node.scm 75 */
BgL_testz00_3872 = ((bool_t)1)
; }  else 
{ /* ./Cnst/node.scm 75 */
BgL_testz00_3872 = 
REALP(BgL_arg3332z00_1160)
; } } 
if(BgL_testz00_3872)
{ /* ./Cnst/node.scm 75 */
BgL_test3298z00_1144 = ((bool_t)1); }  else 
{ /* ./Cnst/node.scm 76 */
bool_t BgL_testz00_3877;
{ /* ./Cnst/node.scm 76 */
obj_t BgL_auxz00_3878;
BgL_auxz00_3878 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1119))->BgL_valuez00); 
BgL_testz00_3877 = 
CNSTP(BgL_auxz00_3878); } 
if(BgL_testz00_3877)
{ /* ./Cnst/node.scm 76 */
BgL_test3298z00_1144 = ((bool_t)1); }  else 
{ /* ./Cnst/node.scm 77 */
bool_t BgL_testz00_3881;
{ /* ./Cnst/node.scm 77 */
obj_t BgL_auxz00_3882;
BgL_auxz00_3882 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1119))->BgL_valuez00); 
BgL_testz00_3881 = 
ELONGP(BgL_auxz00_3882); } 
if(BgL_testz00_3881)
{ /* ./Cnst/node.scm 77 */
BgL_test3298z00_1144 = ((bool_t)1); }  else 
{ /* ./Cnst/node.scm 78 */
obj_t BgL_auxz00_3885;
BgL_auxz00_3885 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1119))->BgL_valuez00); 
BgL_test3298z00_1144 = 
LLONGP(BgL_auxz00_3885); } } } } } } } 
if(BgL_test3298z00_1144)
{ /* ./Cnst/node.scm 72 */
{ /* ./Cnst/node.scm 79 */
obj_t BgL_arg3300z00_1145;BgL_typez00_bglt BgL_arg3301z00_1146;obj_t BgL_arg3302z00_1147;
{ /* ./Cnst/node.scm 79 */
BgL_nodez00_bglt BgL_obj1560z00_1563;
BgL_obj1560z00_1563 = 
(BgL_nodez00_bglt)(BgL_nodez00_1119); 
BgL_arg3300z00_1145 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1563))->BgL_locz00); } 
{ /* ./Cnst/node.scm 79 */
BgL_nodez00_bglt BgL_obj1561z00_1564;
BgL_obj1561z00_1564 = 
(BgL_nodez00_bglt)(BgL_nodez00_1119); 
BgL_arg3301z00_1146 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_1564))->BgL_typez00); } 
BgL_arg3302z00_1147 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1119))->BgL_valuez00); 
{ /* ./Cnst/node.scm 79 */
BgL_atomz00_bglt BgL_auxz00_3894;
BgL_auxz00_3894 = 
BGl_makezd2atomzd2zzast_nodez00(BgL_arg3300z00_1145, BgL_arg3301z00_1146, BgL_arg3302z00_1147); 
return 
(obj_t)(BgL_auxz00_3894);} } }  else 
{ /* ./Cnst/node.scm 72 */
{ /* ./Cnst/node.scm 81 */
obj_t BgL_arg3310z00_1150;
BgL_arg3310z00_1150 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_nodez00_1119)); 
return 
BGl_internalzd2errorzd2zztools_errorz00(BGl_string4633z00zzcnst_nodez00, BGl_string4634z00zzcnst_nodez00, BgL_arg3310z00_1150);} } } } } } } } } } } } 
}



/* cnst!-atom2774 */
obj_t BGl_cnstz12zd2atom2774zc0zzcnst_nodez00(obj_t BgL_envz00_2635, obj_t BgL_nodez00_2636)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 42 */
{ 
BgL_atomz00_bglt BgL_nodez00_1105;
BgL_nodez00_1105 = 
(BgL_atomz00_bglt)(BgL_nodez00_2636); 
{ /* ./Cnst/node.scm 45 */
bool_t BgL_test3220z00_1109;
{ /* ./Cnst/node.scm 45 */
obj_t BgL_auxz00_3901;
BgL_auxz00_3901 = 
(((BgL_atomz00_bglt)CREF(BgL_nodez00_1105))->BgL_valuez00); 
BgL_test3220z00_1109 = 
KEYWORDP(BgL_auxz00_3901); } 
if(BgL_test3220z00_1109)
{ /* ./Cnst/node.scm 45 */
{ /* ./Cnst/node.scm 46 */
obj_t BgL_arg3222z00_1110;obj_t BgL_arg3223z00_1111;
BgL_arg3222z00_1110 = 
(((BgL_atomz00_bglt)CREF(BgL_nodez00_1105))->BgL_valuez00); 
{ /* ./Cnst/node.scm 46 */
BgL_nodez00_bglt BgL_obj1560z00_1508;
BgL_obj1560z00_1508 = 
(BgL_nodez00_bglt)(BgL_nodez00_1105); 
BgL_arg3223z00_1111 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1508))->BgL_locz00); } 
{ /* ./Cnst/node.scm 46 */
BgL_nodez00_bglt BgL_auxz00_3908;
BgL_auxz00_3908 = 
BGl_cnstzd2alloczd2keywordz00zzcnst_allocz00(BgL_arg3222z00_1110, BgL_arg3223z00_1111); 
return 
(obj_t)(BgL_auxz00_3908);} } }  else 
{ /* ./Cnst/node.scm 47 */
bool_t BgL_test3227z00_1112;
{ /* ./Cnst/node.scm 47 */
obj_t BgL_auxz00_3911;
BgL_auxz00_3911 = 
(((BgL_atomz00_bglt)CREF(BgL_nodez00_1105))->BgL_valuez00); 
BgL_test3227z00_1112 = 
UCS2_STRINGP(BgL_auxz00_3911); } 
if(BgL_test3227z00_1112)
{ /* ./Cnst/node.scm 47 */
{ /* ./Cnst/node.scm 48 */
obj_t BgL_arg3229z00_1113;obj_t BgL_arg3230z00_1114;
BgL_arg3229z00_1113 = 
(((BgL_atomz00_bglt)CREF(BgL_nodez00_1105))->BgL_valuez00); 
{ /* ./Cnst/node.scm 48 */
BgL_nodez00_bglt BgL_obj1560z00_1512;
BgL_obj1560z00_1512 = 
(BgL_nodez00_bglt)(BgL_nodez00_1105); 
BgL_arg3230z00_1114 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1512))->BgL_locz00); } 
{ /* ./Cnst/node.scm 48 */
BgL_nodez00_bglt BgL_auxz00_3918;
BgL_auxz00_3918 = 
BGl_cnstzd2alloczd2ucs2zd2stringzd2zzcnst_allocz00(BgL_arg3229z00_1113, BgL_arg3230z00_1114); 
return 
(obj_t)(BgL_auxz00_3918);} } }  else 
{ /* ./Cnst/node.scm 47 */
return 
(obj_t)(BgL_nodez00_1105);} } } } } 
}



/* cnst! */
BGL_EXPORTED_DEF BgL_nodez00_bglt BGl_cnstz12z12zzcnst_nodez00(BgL_nodez00_bglt BgL_nodez00_11)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 37 */
{ /* ./Cnst/node.scm 37 */
obj_t BgL_method2772z00_2495;
{ /* ./Cnst/node.scm 37 */
BgL_objectz00_bglt BgL_objz00_2496;
BgL_objz00_2496 = 
(BgL_objectz00_bglt)(BgL_nodez00_11); 
{ /* ./Cnst/node.scm 37 */
long BgL_objzd2classzd2numz00_2497;
BgL_objzd2classzd2numz00_2497 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2496); 
{ /* ./Cnst/node.scm 37 */
obj_t BgL_arg2017z00_2498;
{ /* ./Cnst/node.scm 37 */
int BgL_auxz00_3925;
BgL_auxz00_3925 = 
(int)(((long)1)); 
BgL_arg2017z00_2498 = 
PROCEDURE_REF(BGl_cnstz12zd2envzc0zzcnst_nodez00, BgL_auxz00_3925); } 
{ /* ./Cnst/node.scm 37 */
int BgL_offsetz00_2501;
BgL_offsetz00_2501 = 
(int)(BgL_objzd2classzd2numz00_2497); 
{ /* ./Cnst/node.scm 37 */
long BgL_offsetz00_2502;
{ /* ./Cnst/node.scm 37 */
long BgL_auxz00_3929;
BgL_auxz00_3929 = 
(long)(BgL_offsetz00_2501); 
BgL_offsetz00_2502 = 
(BgL_auxz00_3929-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 37 */
long BgL_modz00_2503;
{ /* ./Cnst/node.scm 37 */
int BgL_arg2028z00_2504;
BgL_arg2028z00_2504 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 37 */
long BgL_n2z00_2512;
BgL_n2z00_2512 = 
(long)(BgL_arg2028z00_2504); 
BgL_modz00_2503 = 
(BgL_offsetz00_2502/BgL_n2z00_2512); } } 
{ /* ./Cnst/node.scm 37 */
long BgL_restz00_2505;
{ /* ./Cnst/node.scm 37 */
int BgL_arg2024z00_2506;
BgL_arg2024z00_2506 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 37 */
long BgL_n2z00_2515;
BgL_n2z00_2515 = 
(long)(BgL_arg2024z00_2506); 
BgL_restz00_2505 = 
(BgL_offsetz00_2502%BgL_n2z00_2515); } } 
{ /* ./Cnst/node.scm 37 */

{ /* ./Cnst/node.scm 37 */
obj_t BgL_bucketz00_2507;
{ /* ./Cnst/node.scm 37 */
int BgL_kz00_2517;
BgL_kz00_2517 = 
(int)(BgL_modz00_2503); 
BgL_bucketz00_2507 = 
VECTOR_REF(BgL_arg2017z00_2498,BgL_kz00_2517); } 
{ /* ./Cnst/node.scm 37 */
int BgL_kz00_2519;
BgL_kz00_2519 = 
(int)(BgL_restz00_2505); 
BgL_method2772z00_2495 = 
VECTOR_REF(BgL_bucketz00_2507,BgL_kz00_2519); } } } } } } } } } } 
{ /* ./Cnst/node.scm 37 */
obj_t BgL_auxz00_3942;
BgL_auxz00_3942 = 
PROCEDURE_ENTRY(BgL_method2772z00_2495)(BgL_method2772z00_2495, 
(obj_t)(BgL_nodez00_11), BEOA); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_3942);} } } 
}



/* _cnst!4008 */
obj_t BGl__cnstz124008z12zzcnst_nodez00(obj_t BgL_envz00_2548, obj_t BgL_nodez00_2549)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 37 */
{ /* ./Cnst/node.scm 37 */
BgL_nodez00_bglt BgL_auxz00_3947;
BgL_auxz00_3947 = 
BGl_cnstz12z12zzcnst_nodez00(
(BgL_nodez00_bglt)(BgL_nodez00_2549)); 
return 
(obj_t)(BgL_auxz00_3947);} } 
}



/* cnst!-default2771 */
BgL_nodez00_bglt BGl_cnstz12zd2default2771zc0zzcnst_nodez00(BgL_nodez00_bglt BgL_nodez00_12)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 16 */
{ /* ./Cnst/node.scm 16 */
obj_t BgL_procz00_2520;obj_t BgL_objectz00_2522;
BgL_procz00_2520 = 
CNST_TABLE_REF(((long)5)); 
BgL_objectz00_2522 = 
(obj_t)(BgL_nodez00_12); 
FAILURE(BgL_procz00_2520,BGl_string4635z00zzcnst_nodez00,BgL_objectz00_2522);} } 
}



/* _cnst!-default2771 */
obj_t BGl__cnstz12zd2default2771zc0zzcnst_nodez00(obj_t BgL_envz00_2637, obj_t BgL_nodez00_2638)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 16 */
{ /* ./Cnst/node.scm 16 */
BgL_nodez00_bglt BgL_auxz00_3954;
BgL_auxz00_3954 = 
BGl_cnstz12zd2default2771zc0zzcnst_nodez00(
(BgL_nodez00_bglt)(BgL_nodez00_2638)); 
return 
(obj_t)(BgL_auxz00_3954);} } 
}



/* get-node-atom-value */
BGL_EXPORTED_DEF obj_t BGl_getzd2nodezd2atomzd2valuezd2zzcnst_nodez00(BgL_nodez00_bglt BgL_nodez00_35)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 305 */
{ /* ./Cnst/node.scm 305 */
obj_t BgL_method2816z00_2523;
{ /* ./Cnst/node.scm 305 */
BgL_objectz00_bglt BgL_objz00_2524;
BgL_objz00_2524 = 
(BgL_objectz00_bglt)(BgL_nodez00_35); 
{ /* ./Cnst/node.scm 305 */
long BgL_objzd2classzd2numz00_2525;
BgL_objzd2classzd2numz00_2525 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2524); 
{ /* ./Cnst/node.scm 305 */
obj_t BgL_arg2017z00_2526;
{ /* ./Cnst/node.scm 305 */
int BgL_auxz00_3960;
BgL_auxz00_3960 = 
(int)(((long)1)); 
BgL_arg2017z00_2526 = 
PROCEDURE_REF(BGl_getzd2nodezd2atomzd2valuezd2envz00zzcnst_nodez00, BgL_auxz00_3960); } 
{ /* ./Cnst/node.scm 305 */
int BgL_offsetz00_2529;
BgL_offsetz00_2529 = 
(int)(BgL_objzd2classzd2numz00_2525); 
{ /* ./Cnst/node.scm 305 */
long BgL_offsetz00_2530;
{ /* ./Cnst/node.scm 305 */
long BgL_auxz00_3964;
BgL_auxz00_3964 = 
(long)(BgL_offsetz00_2529); 
BgL_offsetz00_2530 = 
(BgL_auxz00_3964-OBJECT_TYPE); } 
{ /* ./Cnst/node.scm 305 */
long BgL_modz00_2531;
{ /* ./Cnst/node.scm 305 */
int BgL_arg2028z00_2532;
BgL_arg2028z00_2532 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 305 */
long BgL_n2z00_2540;
BgL_n2z00_2540 = 
(long)(BgL_arg2028z00_2532); 
BgL_modz00_2531 = 
(BgL_offsetz00_2530/BgL_n2z00_2540); } } 
{ /* ./Cnst/node.scm 305 */
long BgL_restz00_2533;
{ /* ./Cnst/node.scm 305 */
int BgL_arg2024z00_2534;
BgL_arg2024z00_2534 = 
(int)(((long)8)); 
{ /* ./Cnst/node.scm 305 */
long BgL_n2z00_2543;
BgL_n2z00_2543 = 
(long)(BgL_arg2024z00_2534); 
BgL_restz00_2533 = 
(BgL_offsetz00_2530%BgL_n2z00_2543); } } 
{ /* ./Cnst/node.scm 305 */

{ /* ./Cnst/node.scm 305 */
obj_t BgL_bucketz00_2535;
{ /* ./Cnst/node.scm 305 */
int BgL_kz00_2545;
BgL_kz00_2545 = 
(int)(BgL_modz00_2531); 
BgL_bucketz00_2535 = 
VECTOR_REF(BgL_arg2017z00_2526,BgL_kz00_2545); } 
{ /* ./Cnst/node.scm 305 */
int BgL_kz00_2547;
BgL_kz00_2547 = 
(int)(BgL_restz00_2533); 
BgL_method2816z00_2523 = 
VECTOR_REF(BgL_bucketz00_2535,BgL_kz00_2547); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method2816z00_2523)(BgL_method2816z00_2523, 
(obj_t)(BgL_nodez00_35), BEOA);} } 
}



/* _get-node-atom-value4016 */
obj_t BGl__getzd2nodezd2atomzd2value4016zd2zzcnst_nodez00(obj_t BgL_envz00_2559, obj_t BgL_nodez00_2560)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 305 */
return 
BGl_getzd2nodezd2atomzd2valuezd2zzcnst_nodez00(
(BgL_nodez00_bglt)(BgL_nodez00_2560));} 
}



/* _get-node-atom-value-default2815 */
obj_t BGl__getzd2nodezd2atomzd2valuezd2default2815z00zzcnst_nodez00(obj_t BgL_envz00_2639, obj_t BgL_nodez00_2640)
{ AN_OBJECT;
{ /* ./Cnst/node.scm 16 */
{ /* ./Cnst/node.scm 306 */
obj_t BgL_res4654z00_2662;
BgL_res4654z00_2662 = 
CNST_TABLE_REF(((long)2)); 
return BgL_res4654z00_2662;} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzcnst_nodez00()
{ AN_OBJECT;
{ /* ./Cnst/node.scm 16 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "cnst_node"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "cnst_node"); 
BGl_modulezd2initializa7ationz75zztools_speekz00(((long)23537), "cnst_node"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "cnst_node"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "cnst_node"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "cnst_node"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "cnst_node"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "cnst_node"); 
BGl_modulezd2initializa7ationz75zzast_envz00(((long)62031), "cnst_node"); 
BGl_modulezd2initializa7ationz75zzcnst_cachez00(((long)32847), "cnst_node"); 
return 
BGl_modulezd2initializa7ationz75zzcnst_allocz00(((long)26410), "cnst_node");} 
}

