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

#include <bigloo.h>


/* Object type definitions */
typedef struct BgL_ccompz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_producerz00;
   obj_t BgL_consumerz00;
   obj_t BgL_finaliza7erza7;
} *BgL_ccompz00_bglt;

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_tvecz00_bgl {
   struct BgL_typez00_bgl * BgL_itemzd2typezd2;
} *BgL_tvecz00_bglt;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


static obj_t BGl_methodzd2initzd2zzcnst_allocz00();
extern obj_t BGl_za2consza2z00zzcnst_cachez00;
static obj_t BGl__cnstzd2alloczd2tvectorz00zzcnst_allocz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
extern bool_t BGl_tvectorzd2Czd2staticzf3zf3zztvector_cnstz00(obj_t);
static obj_t BGl__cnstzd2alloczd2procedure4176z00zzcnst_allocz00(obj_t, obj_t, obj_t);
static obj_t BGl__cnstzd2alloczd2string4168z00zzcnst_allocz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_nodez00_bglt BGl_cnstzd2alloczd2tvectorz00zzcnst_allocz00(obj_t, obj_t);
static obj_t BGl__getzd2cnstzd2tablez00zzcnst_allocz00(obj_t);
extern BgL_letzd2varzd2_bglt BGl_makezd2letzd2varz00zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, BgL_nodez00_bglt, bool_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT obj_t ucs2_string_to_utf8_string(obj_t);
static obj_t BGl_za2cnstzd2tableza2zd2zzcnst_allocz00 = BUNSPEC;
extern BgL_atomz00_bglt BGl_makezd2atomzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t);
extern obj_t BGl_za2compilerzd2debugza2zd2zzengine_paramz00;
BGL_IMPORT bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_nodez00_bglt BGl_cnstzd2alloczd2realz00zzcnst_allocz00(obj_t, obj_t);
extern obj_t BGl_za2moduleza2z00zzmodule_modulez00;
extern obj_t BGl_za2symbolza2z00zztype_cachez00;
extern obj_t BGl_za2stringzd2ze3ucs2stringza2z31zzcnst_cachez00;
BGL_IMPORT obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
static obj_t BGl_za2keywordzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_getzd2cnstzd2offsetz00zzcnst_allocz00();
static obj_t BGl_za2globalzd2sexpza2zd2zzcnst_allocz00 = BUNSPEC;
static obj_t BGl__cnstzd2alloczd2real4178z00zzcnst_allocz00(obj_t, obj_t, obj_t);
static obj_t BGl_typedzd2cnstzd2tablezd2idzd2zzcnst_allocz00();
BGL_IMPORT obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__stopzd2cnstzd2allocz12z12zzcnst_allocz00(obj_t);
BGL_IMPORT obj_t BGl_hashtablezd2putz12zc0zz__hashz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(obj_t);
extern BgL_appz00_bglt BGl_makezd2appzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt, obj_t);
extern obj_t BGl_za2bdbzd2debugza2zd2zzengine_paramz00;
static obj_t BGl_cnstzd2initzd2zzcnst_allocz00();
static obj_t BGl__getzd2cnstzd2sexpz00zzcnst_allocz00(obj_t);
static obj_t BGl_za2realzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
static obj_t BGl__cnstzd2alloczd2vector4181z00zzcnst_allocz00(obj_t, obj_t, obj_t);
extern obj_t BGl_za2stringzd2ze3symbolza2z31zzcnst_cachez00;
static obj_t BGl__cnstzd2tablezd2idz00zzcnst_allocz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_getzd2cnstzd2setz00zzcnst_allocz00();
BGL_EXPORTED_DECL BgL_nodez00_bglt BGl_cnstzd2alloczd2ucs2zd2stringzd2zzcnst_allocz00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzcnst_allocz00();
BGL_IMPORT obj_t BGl_makezd2hashtablezd2zz__hashz00(obj_t);
BGL_EXPORTED_DECL BgL_nodez00_bglt BGl_cnstzd2alloczd2listz00zzcnst_allocz00(obj_t, obj_t);
static obj_t BGl_za2stringzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
static obj_t BGl_za2symbolzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
extern obj_t BGl_za2ucs2stringza2z00zztype_cachez00;
extern BgL_nodez00_bglt BGl_coercez12z12zzcoerce_coercez00(BgL_nodez00_bglt, obj_t, BgL_typez00_bglt);
extern obj_t BGl_za2sharedzd2cnstzf3za2z21zzengine_paramz00;
extern obj_t BGl_za2bnilza2z00zztype_cachez00;
extern obj_t BGl_makezd2typedzd2identz00zzast_identz00(obj_t, obj_t);
static obj_t BGl__cnstzd2alloczd2listz00zzcnst_allocz00(obj_t, obj_t, obj_t);
extern obj_t BGl_za2bstringza2z00zztype_cachez00;
static obj_t BGl_toplevelzd2initzd2zzcnst_allocz00();
static obj_t BGl__getzd2cnstzd2setz00zzcnst_allocz00(obj_t);
extern BgL_sequencez00_bglt BGl_makezd2sequencezd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t);
extern obj_t BGl_za2vectorzd2tagzd2setz12za2z12zzcnst_cachez00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzcnst_allocz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_modulez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(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_modulezd2initializa7ationz75zztvector_tvectorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztvector_cnstz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_sexpz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_localz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_glozd2defzd2(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcoerce_coercez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcnst_cachez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcnst_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_identz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__hashz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long, char *);
extern obj_t BGl_za2keywordza2z00zztype_cachez00;
static obj_t BGl__cnstzd2alloczd2symbol4172z00zzcnst_allocz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_nodez00_bglt BGl_cnstzd2alloczd2procedurez00zzcnst_allocz00(BgL_nodez00_bglt, obj_t);
extern BgL_globalz00_bglt BGl_defzd2globalzd2svarz12z12zzast_glozd2defzd2(obj_t, obj_t, obj_t, obj_t);
extern BgL_kwotez00_bglt BGl_makezd2kwotezd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t);
BGL_IMPORT obj_t BGl_hashtablezd2getzd2zz__hashz00(obj_t, obj_t);
static obj_t BGl__cnstzd2alloczd2ucs2zd2string4170zd2zzcnst_allocz00(obj_t, obj_t, obj_t);
extern obj_t BGl_za2cnstzd2tablezd2refza2z00zzcnst_cachez00;
static obj_t BGl_za2globalzd2setza2zd2zzcnst_allocz00 = BUNSPEC;
extern obj_t BGl_za2intza2z00zztype_cachez00;
extern obj_t BGl_za2vectorza2z00zztype_cachez00;
BGL_EXPORTED_DECL obj_t BGl_startzd2cnstzd2allocz12z12zzcnst_allocz00();
extern BgL_typez00_bglt BGl_getzd2defaultzd2typez00zztype_cachez00();
extern obj_t BGl_za2initzd2modeza2zd2zzengine_paramz00;
BGL_EXPORTED_DECL obj_t BGl_getzd2cnstzd2tablez00zzcnst_allocz00();
static obj_t BGl_za2oldzd2debugza2zd2zzcnst_allocz00 = BUNSPEC;
extern BgL_localz00_bglt BGl_makezd2localzd2svarz00zzast_localz00(obj_t, BgL_typez00_bglt);
extern obj_t BGl_za2stringza2z00zztype_cachez00;
extern obj_t BGl_za2listzd2ze3vectorza2z31zzcnst_cachez00;
static obj_t BGl_loopz00zzcnst_allocz00(obj_t, obj_t);
extern obj_t BGl_internalzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t);
static long BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00;
BGL_IMPORT obj_t create_struct(obj_t, int);
BGL_EXPORTED_DECL obj_t BGl_cnstzd2tablezd2idz00zzcnst_allocz00();
extern BgL_nodez00_bglt BGl_cnstz12z12zzcnst_nodez00(BgL_nodez00_bglt);
static obj_t BGl_za2ucs2stringzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
extern BgL_globalz00_bglt BGl_defzd2globalzd2scnstz12z12zzast_glozd2defzd2(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stopzd2cnstzd2allocz12z12zzcnst_allocz00();
BGL_EXPORTED_DECL obj_t BGl_getzd2cnstzd2sexpz00zzcnst_allocz00();
BGL_EXPORTED_DECL 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__startzd2cnstzd2allocz12z12zzcnst_allocz00(obj_t);
extern obj_t BGl_za2stringzd2ze3keywordza2z31zzcnst_cachez00;
extern obj_t BGl_za2objza2z00zztype_cachez00;
static BgL_appz00_bglt BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00(obj_t, obj_t);
static obj_t BGl__cnstzd2alloczd2keyword4174z00zzcnst_allocz00(obj_t, obj_t, obj_t);
static obj_t BGl_za2vectorzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
static obj_t BGl_requirezd2initializa7ationz75zzcnst_allocz00 = BUNSPEC;
BGL_EXPORTED_DECL BgL_nodez00_bglt BGl_cnstzd2alloczd2keywordz00zzcnst_allocz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_nodez00_bglt BGl_cnstzd2alloczd2stringz00zzcnst_allocz00(obj_t, obj_t);
static obj_t BGl__getzd2cnstzd2offsetz00zzcnst_allocz00(obj_t);
extern obj_t BGl_za2pairza2z00zztype_cachez00;
static obj_t BGl_libraryzd2moduleszd2initz00zzcnst_allocz00();
static obj_t BGl_za2listzd2envza2zd2zzcnst_allocz00 = BUNSPEC;
BGL_EXPORTED_DECL BgL_nodez00_bglt BGl_cnstzd2alloczd2symbolz00zzcnst_allocz00(obj_t, obj_t);
static obj_t __cnst[ 33 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_getzd2cnstzd2offsetzd2envzd2zzcnst_allocz00, BgL_bgl__getza7d2cnstza7d2offsetza700za7za7cnst_allocza7004484z00, BGl__getzd2cnstzd2offsetz00zzcnst_allocz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_cnstzd2alloczd2stringzd2envzd2zzcnst_allocz00, BgL_bgl__cnstza7d2allocza7d2string4168za700za7za7cnst_allocza7004485z00, BGl__cnstzd2alloczd2string4168z00zzcnst_allocz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_cnstzd2alloczd2procedurezd2envzd2zzcnst_allocz00, BgL_bgl__cnstza7d2allocza7d2procedure4176za700za7za7cnst_allocza7004486z00, BGl__cnstzd2alloczd2procedure4176z00zzcnst_allocz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_cnstzd2alloczd2ucs2zd2stringzd2envz00zzcnst_allocz00, BgL_bgl__cnstza7d2allocza7d2ucs2za7d2string4170za7d2za7za7cnst_allocza7004487za7, BGl__cnstzd2alloczd2ucs2zd2string4170zd2zzcnst_allocz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_getzd2cnstzd2setzd2envzd2zzcnst_allocz00, BgL_bgl__getza7d2cnstza7d2setza700za7za7cnst_allocza7004488z00, BGl__getzd2cnstzd2setz00zzcnst_allocz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_getzd2cnstzd2tablezd2envzd2zzcnst_allocz00, BgL_bgl__getza7d2cnstza7d2tableza700za7za7cnst_allocza7004489z00, BGl__getzd2cnstzd2tablez00zzcnst_allocz00, 0L, 0 );
DEFINE_STRING( BGl_string4454z00zzcnst_allocz00, BgL_bgl_string4454za700za7za7cnst_allocza7004490z00, "get-tvector-descriptor tvector-descr-set! stvector tvector tvec var vector cnst-list pair list sreal real sfun procedure proc a-keyword keyword a-symbol symbol lib @ set! an-ucs2-string ucs2string cnst-info sstring bstring string static now cnst-vector cnst* __cnsts_table ", 273 );
DEFINE_STRING( BGl_string4453z00zzcnst_allocz00, BgL_bgl_string4453za700za7za7cnst_allocza7004491z00, "Unimplementable until bootstrap", 31 );
DEFINE_STRING( BGl_string4452z00zzcnst_allocz00, BgL_bgl_string4452za700za7za7cnst_allocza7004492z00, "read-alloc-tvector", 18 );
DEFINE_EXPORT_PROCEDURE( BGl_cnstzd2alloczd2keywordzd2envzd2zzcnst_allocz00, BgL_bgl__cnstza7d2allocza7d2keyword4174za700za7za7cnst_allocza7004493z00, BGl__cnstzd2alloczd2keyword4174z00zzcnst_allocz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_cnstzd2alloczd2symbolzd2envzd2zzcnst_allocz00, BgL_bgl__cnstza7d2allocza7d2symbol4172za700za7za7cnst_allocza7004494z00, BGl__cnstzd2alloczd2symbol4172z00zzcnst_allocz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_startzd2cnstzd2allocz12zd2envzc0zzcnst_allocz00, BgL_bgl__startza7d2cnstza7d2allocza712za712za7za7cnst_allocza7004495za7, BGl__startzd2cnstzd2allocz12z12zzcnst_allocz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_stopzd2cnstzd2allocz12zd2envzc0zzcnst_allocz00, BgL_bgl__stopza7d2cnstza7d2allocza712za712za7za7cnst_allocza7004496za7, BGl__stopzd2cnstzd2allocz12z12zzcnst_allocz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_cnstzd2tablezd2idzd2envzd2zzcnst_allocz00, BgL_bgl__cnstza7d2tableza7d2idza700za7za7cnst_allocza7004497z00, BGl__cnstzd2tablezd2idz00zzcnst_allocz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_cnstzd2alloczd2vectorzd2envzd2zzcnst_allocz00, BgL_bgl__cnstza7d2allocza7d2vector4181za700za7za7cnst_allocza7004498z00, BGl__cnstzd2alloczd2vector4181z00zzcnst_allocz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_cnstzd2alloczd2listzd2envzd2zzcnst_allocz00, BgL_bgl__cnstza7d2allocza7d2listza700za7za7cnst_allocza7004499z00, BGl__cnstzd2alloczd2listz00zzcnst_allocz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_cnstzd2alloczd2realzd2envzd2zzcnst_allocz00, BgL_bgl__cnstza7d2allocza7d2real4178za700za7za7cnst_allocza7004500z00, BGl__cnstzd2alloczd2real4178z00zzcnst_allocz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_cnstzd2alloczd2tvectorzd2envzd2zzcnst_allocz00, BgL_bgl__cnstza7d2allocza7d2tvectorza700za7za7cnst_allocza7004501z00, BGl__cnstzd2alloczd2tvectorz00zzcnst_allocz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_getzd2cnstzd2sexpzd2envzd2zzcnst_allocz00, BgL_bgl__getza7d2cnstza7d2sexpza700za7za7cnst_allocza7004502z00, BGl__getzd2cnstzd2sexpz00zzcnst_allocz00, 0L, 0 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzcnst_allocz00(long BgL_checksumz00_2004, char * BgL_fromz00_2005)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzcnst_allocz00))
{ 
BGl_requirezd2initializa7ationz75zzcnst_allocz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzcnst_allocz00(); 
BGl_cnstzd2initzd2zzcnst_allocz00(); 
BGl_importedzd2moduleszd2initz00zzcnst_allocz00(); 
BGl_toplevelzd2initzd2zzcnst_allocz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzcnst_allocz00()
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 15 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "cnst_alloc"); 
BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long)0), "cnst_alloc"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)0), "cnst_alloc"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "cnst_alloc"); 
BGl_modulezd2initializa7ationz75zz__hashz00(((long)0), "cnst_alloc"); 
BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(((long)0), "cnst_alloc"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzcnst_allocz00()
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 15 */
{ /* ./Cnst/alloc.scm 15 */
obj_t BgL_cportz00_1995;
BgL_cportz00_1995 = 
open_input_string(BGl_string4454z00zzcnst_allocz00); 
{ 
long BgL_iz00_1996;
BgL_iz00_1996 = ((long)32); 
BgL_loopz00_1997:
{ /* ./Cnst/alloc.scm 15 */
bool_t BgL_test4456z00_1998;
BgL_test4456z00_1998 = 
(BgL_iz00_1996==((long)-1)); 
if(BgL_test4456z00_1998)
{ /* ./Cnst/alloc.scm 15 */
return BUNSPEC;}  else 
{ /* ./Cnst/alloc.scm 15 */
{ /* ./Cnst/alloc.scm 15 */
obj_t BgL_arg4458z00_1999;
{ /* ./Cnst/alloc.scm 15 */
obj_t BgL_list4461z00_2000;
BgL_list4461z00_2000 = 
MAKE_PAIR(BgL_cportz00_1995, BNIL); 
BgL_arg4458z00_1999 = 
BGl_readz00zz__readerz00(BgL_list4461z00_2000); } 
{ /* ./Cnst/alloc.scm 15 */
int BgL_auxz00_2024;
BgL_auxz00_2024 = 
(int)(BgL_iz00_1996); 
CNST_TABLE_SET(BgL_auxz00_2024, BgL_arg4458z00_1999); } } 
{ /* ./Cnst/alloc.scm 15 */
int BgL_auxz00_2001;
{ /* ./Cnst/alloc.scm 15 */
long BgL_auxz00_2027;
BgL_auxz00_2027 = 
(BgL_iz00_1996-((long)1)); 
BgL_auxz00_2001 = 
(int)(BgL_auxz00_2027); } 
{ 
long BgL_iz00_2030;
BgL_iz00_2030 = 
(long)(BgL_auxz00_2001); 
BgL_iz00_1996 = BgL_iz00_2030; 
goto BgL_loopz00_1997;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzcnst_allocz00()
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 15 */
BGl_za2cnstzd2tableza2zd2zzcnst_allocz00 = BUNSPEC; 
BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00 = ((long)-1); 
BGl_za2stringzd2envza2zd2zzcnst_allocz00 = BNIL; 
BGl_za2ucs2stringzd2envza2zd2zzcnst_allocz00 = BNIL; 
BGl_za2realzd2envza2zd2zzcnst_allocz00 = BNIL; 
BGl_za2symbolzd2envza2zd2zzcnst_allocz00 = BNIL; 
BGl_za2keywordzd2envza2zd2zzcnst_allocz00 = BNIL; 
BGl_za2listzd2envza2zd2zzcnst_allocz00 = BNIL; 
BGl_za2vectorzd2envza2zd2zzcnst_allocz00 = BNIL; 
BGl_za2globalzd2setza2zd2zzcnst_allocz00 = BNIL; 
BGl_za2globalzd2sexpza2zd2zzcnst_allocz00 = BNIL; 
return ( 
BGl_za2oldzd2debugza2zd2zzcnst_allocz00 = BUNSPEC, BUNSPEC) ;} 
}



/* get-cnst-offset */
BGL_EXPORTED_DEF obj_t BGl_getzd2cnstzd2offsetz00zzcnst_allocz00()
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 66 */
return 
BINT(BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00);} 
}



/* _get-cnst-offset */
obj_t BGl__getzd2cnstzd2offsetz00zzcnst_allocz00(obj_t BgL_envz00_1956)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 66 */
return 
BGl_getzd2cnstzd2offsetz00zzcnst_allocz00();} 
}



/* get-cnst-set */
BGL_EXPORTED_DEF obj_t BGl_getzd2cnstzd2setz00zzcnst_allocz00()
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 72 */
return BGl_za2globalzd2setza2zd2zzcnst_allocz00;} 
}



/* _get-cnst-set */
obj_t BGl__getzd2cnstzd2setz00zzcnst_allocz00(obj_t BgL_envz00_1957)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 72 */
return BGl_za2globalzd2setza2zd2zzcnst_allocz00;} 
}



/* get-cnst-table */
BGL_EXPORTED_DEF obj_t BGl_getzd2cnstzd2tablez00zzcnst_allocz00()
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 78 */
return BGl_za2cnstzd2tableza2zd2zzcnst_allocz00;} 
}



/* _get-cnst-table */
obj_t BGl__getzd2cnstzd2tablez00zzcnst_allocz00(obj_t BgL_envz00_1958)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 78 */
return BGl_za2cnstzd2tableza2zd2zzcnst_allocz00;} 
}



/* get-cnst-sexp */
BGL_EXPORTED_DEF obj_t BGl_getzd2cnstzd2sexpz00zzcnst_allocz00()
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 84 */
return 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BGl_za2globalzd2sexpza2zd2zzcnst_allocz00);} 
}



/* _get-cnst-sexp */
obj_t BGl__getzd2cnstzd2sexpz00zzcnst_allocz00(obj_t BgL_envz00_1959)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 84 */
return 
BGl_getzd2cnstzd2sexpz00zzcnst_allocz00();} 
}



/* cnst-table-id */
BGL_EXPORTED_DEF obj_t BGl_cnstzd2tablezd2idz00zzcnst_allocz00()
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 122 */
return 
CNST_TABLE_REF(((long)0));} 
}



/* _cnst-table-id */
obj_t BGl__cnstzd2tablezd2idz00zzcnst_allocz00(obj_t BgL_envz00_1960)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 122 */
return 
BGl_cnstzd2tablezd2idz00zzcnst_allocz00();} 
}



/* typed-cnst-table-id */
obj_t BGl_typedzd2cnstzd2tablezd2idzd2zzcnst_allocz00()
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 128 */
{ /* ./Cnst/alloc.scm 129 */
obj_t BgL_arg2890z00_756;obj_t BgL_arg2891z00_757;
BgL_arg2890z00_756 = 
CNST_TABLE_REF(((long)0)); 
BgL_arg2891z00_757 = 
CNST_TABLE_REF(((long)1)); 
return 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_arg2890z00_756, BgL_arg2891z00_757);} } 
}



/* start-cnst-alloc! */
BGL_EXPORTED_DEF obj_t BGl_startzd2cnstzd2allocz12z12zzcnst_allocz00()
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 134 */
BGl_za2oldzd2debugza2zd2zzcnst_allocz00 = BGl_za2compilerzd2debugza2zd2zzengine_paramz00; 
BGl_za2compilerzd2debugza2zd2zzengine_paramz00 = 
BINT(((long)0)); 
{ /* ./Cnst/alloc.scm 140 */
obj_t BgL_arg2895z00_758;obj_t BgL_arg2896z00_759;obj_t BgL_arg2897z00_760;
BgL_arg2895z00_758 = 
BGl_typedzd2cnstzd2tablezd2idzd2zzcnst_allocz00(); 
BgL_arg2896z00_759 = 
CNST_TABLE_REF(((long)2)); 
BgL_arg2897z00_760 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./Cnst/alloc.scm 140 */
BgL_globalz00_bglt BgL_auxz00_2045;
BgL_auxz00_2045 = 
BGl_defzd2globalzd2svarz12z12zzast_glozd2defzd2(BgL_arg2895z00_758, BGl_za2moduleza2z00zzmodule_modulez00, BgL_arg2896z00_759, BgL_arg2897z00_760); 
BGl_za2cnstzd2tableza2zd2zzcnst_allocz00 = 
(obj_t)(BgL_auxz00_2045); } } 
{ /* ./Cnst/alloc.scm 147 */
bool_t BgL_test2900z00_761;
{ /* ./Cnst/alloc.scm 147 */
long BgL_n1z00_1652;
BgL_n1z00_1652 = 
(long)CINT(BGl_za2bdbzd2debugza2zd2zzengine_paramz00); 
BgL_test2900z00_761 = 
(BgL_n1z00_1652>=((long)3)); } 
if(BgL_test2900z00_761)
{ /* ./Cnst/alloc.scm 148 */
BgL_globalz00_bglt BgL_obj1253z00_1654;obj_t BgL_val1252z00_1655;
BgL_obj1253z00_1654 = 
(BgL_globalz00_bglt)(BGl_za2cnstzd2tableza2zd2zzcnst_allocz00); 
BgL_val1252z00_1655 = 
CNST_TABLE_REF(((long)4)); 
((((BgL_globalz00_bglt)CREF(BgL_obj1253z00_1654))->BgL_importz00) = ((obj_t)BgL_val1252z00_1655), BUNSPEC); }  else 
{ /* ./Cnst/alloc.scm 147 */BFALSE; } } 
BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00 = ((long)0); 
BGl_za2stringzd2envza2zd2zzcnst_allocz00 = 
BGl_makezd2hashtablezd2zz__hashz00(BNIL); 
BGl_za2ucs2stringzd2envza2zd2zzcnst_allocz00 = 
BGl_makezd2hashtablezd2zz__hashz00(BNIL); 
BGl_za2realzd2envza2zd2zzcnst_allocz00 = BNIL; 
BGl_za2symbolzd2envza2zd2zzcnst_allocz00 = 
BGl_makezd2hashtablezd2zz__hashz00(BNIL); 
BGl_za2keywordzd2envza2zd2zzcnst_allocz00 = 
BGl_makezd2hashtablezd2zz__hashz00(BNIL); 
return BTRUE;} 
}



/* _start-cnst-alloc! */
obj_t BGl__startzd2cnstzd2allocz12z12zzcnst_allocz00(obj_t BgL_envz00_1961)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 134 */
return 
BGl_startzd2cnstzd2allocz12z12zzcnst_allocz00();} 
}



/* stop-cnst-alloc! */
BGL_EXPORTED_DEF obj_t BGl_stopzd2cnstzd2allocz12z12zzcnst_allocz00()
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 160 */
BGl_za2compilerzd2debugza2zd2zzengine_paramz00 = BGl_za2oldzd2debugza2zd2zzcnst_allocz00; 
BGl_za2stringzd2envza2zd2zzcnst_allocz00 = BUNSPEC; 
BGl_za2ucs2stringzd2envza2zd2zzcnst_allocz00 = BUNSPEC; 
BGl_za2realzd2envza2zd2zzcnst_allocz00 = BUNSPEC; 
BGl_za2symbolzd2envza2zd2zzcnst_allocz00 = BUNSPEC; 
BGl_za2keywordzd2envza2zd2zzcnst_allocz00 = BUNSPEC; 
BGl_za2listzd2envza2zd2zzcnst_allocz00 = BUNSPEC; 
BGl_za2vectorzd2envza2zd2zzcnst_allocz00 = BUNSPEC; 
return BTRUE;} 
}



/* _stop-cnst-alloc! */
obj_t BGl__stopzd2cnstzd2allocz12z12zzcnst_allocz00(obj_t BgL_envz00_1962)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 160 */
return 
BGl_stopzd2cnstzd2allocz12z12zzcnst_allocz00();} 
}



/* make-cnst-table-ref */
BgL_appz00_bglt BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00(obj_t BgL_offsetz00_33, obj_t BgL_locz00_34)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 174 */
{ /* ./Cnst/alloc.scm 176 */
obj_t BgL_arg2912z00_766;BgL_typez00_bglt BgL_arg2913z00_767;BgL_varz00_bglt BgL_arg2915z00_769;obj_t BgL_arg2916z00_770;
BgL_arg2912z00_766 = BgL_locz00_34; 
BgL_arg2913z00_767 = 
BGl_getzd2defaultzd2typez00zztype_cachez00(); 
{ /* ./Cnst/alloc.scm 179 */
obj_t BgL_arg2920z00_771;BgL_typez00_bglt BgL_arg2921z00_772;obj_t BgL_arg2922z00_773;
BgL_arg2920z00_771 = BgL_locz00_34; 
{ /* ./Cnst/alloc.scm 180 */
BgL_variablez00_bglt BgL_obj1180z00_1656;
BgL_obj1180z00_1656 = 
(BgL_variablez00_bglt)(BGl_za2cnstzd2tablezd2refza2z00zzcnst_cachez00); 
BgL_arg2921z00_772 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1180z00_1656))->BgL_typez00); } 
BgL_arg2922z00_773 = BGl_za2cnstzd2tablezd2refza2z00zzcnst_cachez00; 
BgL_arg2915z00_769 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg2920z00_771, BgL_arg2921z00_772, 
(BgL_variablez00_bglt)(BgL_arg2922z00_773)); } 
{ /* ./Cnst/alloc.scm 183 */
BgL_atomz00_bglt BgL_arg2926z00_774;
{ /* ./Cnst/alloc.scm 183 */
obj_t BgL_arg2931z00_776;obj_t BgL_arg2932z00_777;obj_t BgL_arg2933z00_778;
BgL_arg2931z00_776 = BgL_locz00_34; 
BgL_arg2932z00_777 = BGl_za2intza2z00zztype_cachez00; 
BgL_arg2933z00_778 = BgL_offsetz00_33; 
BgL_arg2926z00_774 = 
BGl_makezd2atomzd2zzast_nodez00(BgL_arg2931z00_776, 
(BgL_typez00_bglt)(BgL_arg2932z00_777), BgL_arg2933z00_778); } 
{ /* ./Cnst/alloc.scm 182 */
obj_t BgL_list2928z00_775;
{ /* ./Cnst/alloc.scm 182 */
obj_t BgL_auxz00_2067;
BgL_auxz00_2067 = 
(obj_t)(BgL_arg2926z00_774); 
BgL_list2928z00_775 = 
MAKE_PAIR(BgL_auxz00_2067, BNIL); } 
BgL_arg2916z00_770 = BgL_list2928z00_775; } } 
return 
BGl_makezd2appzd2zzast_nodez00(BgL_arg2912z00_766, BgL_arg2913z00_767, BUNSPEC, 
BINT(((long)-1)), BgL_arg2915z00_769, BgL_arg2916z00_770);} } 
}



/* cnst-alloc-string */
BGL_EXPORTED_DEF BgL_nodez00_bglt BGl_cnstzd2alloczd2stringz00zzcnst_allocz00(obj_t BgL_stringz00_35, obj_t BgL_locz00_36)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 194 */
{ 

{ /* ./Cnst/alloc.scm 209 */
obj_t BgL_oldz00_780;
{ /* ./Cnst/alloc.scm 209 */
obj_t BgL__andtest_2751z00_784;
BgL__andtest_2751z00_784 = BGl_za2sharedzd2cnstzf3za2z21zzengine_paramz00; 
if(
CBOOL(BgL__andtest_2751z00_784))
{ /* ./Cnst/alloc.scm 209 */
BgL_oldz00_780 = 
BGl_hashtablezd2getzd2zz__hashz00(BGl_za2stringzd2envza2zd2zzcnst_allocz00, BgL_stringz00_35); }  else 
{ /* ./Cnst/alloc.scm 209 */
BgL_oldz00_780 = BFALSE; } } 
if(
CBOOL(BgL_oldz00_780))
{ /* ./Cnst/alloc.scm 211 */
{ /* ./Cnst/alloc.scm 213 */
obj_t BgL_arg2936z00_781;obj_t BgL_arg2937z00_782;obj_t BgL_arg2938z00_783;
BgL_arg2936z00_781 = BgL_locz00_36; 
BgL_arg2937z00_782 = BGl_za2bstringza2z00zztype_cachez00; 
{ /* ./Cnst/alloc.scm 215 */
int BgL_auxz00_2077;
BgL_auxz00_2077 = 
(int)(((long)1)); 
BgL_arg2938z00_783 = 
STRUCT_REF(BgL_oldz00_780, BgL_auxz00_2077); } 
{ /* ./Cnst/alloc.scm 212 */
BgL_varz00_bglt BgL_auxz00_2080;
BgL_auxz00_2080 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg2936z00_781, 
(BgL_typez00_bglt)(BgL_arg2937z00_782), 
(BgL_variablez00_bglt)(BgL_arg2938z00_783)); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2080);} } }  else 
{ /* ./Cnst/alloc.scm 211 */
{ /* ./Cnst/alloc.scm 217 */
BgL_varz00_bglt BgL_auxz00_2085;
{ /* ./Cnst/alloc.scm 197 */
BgL_globalz00_bglt BgL_varz00_786;
{ /* ./Cnst/alloc.scm 197 */
obj_t BgL_arg2956z00_791;obj_t BgL_arg2957z00_792;
{ /* ./Cnst/alloc.scm 197 */
obj_t BgL_arg2960z00_793;obj_t BgL_arg2961z00_794;
BgL_arg2960z00_793 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)5)), BEOA); 
BgL_arg2961z00_794 = 
CNST_TABLE_REF(((long)6)); 
BgL_arg2956z00_791 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_arg2960z00_793, BgL_arg2961z00_794); } 
BgL_arg2957z00_792 = 
CNST_TABLE_REF(((long)7)); 
BgL_varz00_786 = 
BGl_defzd2globalzd2scnstz12z12zzast_glozd2defzd2(BgL_arg2956z00_791, BGl_za2moduleza2z00zzmodule_modulez00, BgL_stringz00_35, BgL_arg2957z00_792, BgL_locz00_36); } 
if(
CBOOL(BGl_za2sharedzd2cnstzf3za2z21zzengine_paramz00))
{ /* ./Cnst/alloc.scm 204 */
obj_t BgL_arg2946z00_787;
{ /* ./Cnst/alloc.scm 204 */
obj_t BgL_newz00_1664;
{ /* ./Cnst/alloc.scm 204 */
int BgL_auxz00_2097;obj_t BgL_auxz00_2095;
BgL_auxz00_2097 = 
(int)(((long)2)); 
BgL_auxz00_2095 = 
CNST_TABLE_REF(((long)8)); 
BgL_newz00_1664 = 
create_struct(BgL_auxz00_2095, BgL_auxz00_2097); } 
{ /* ./Cnst/alloc.scm 204 */
int BgL_kz00_1668;obj_t BgL_oz00_1669;
BgL_kz00_1668 = 
(int)(((long)1)); 
BgL_oz00_1669 = 
(obj_t)(BgL_varz00_786); 
STRUCT_SET(BgL_newz00_1664, BgL_kz00_1668, BgL_oz00_1669); } 
{ /* ./Cnst/alloc.scm 204 */
int BgL_kz00_1673;
BgL_kz00_1673 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_1664, BgL_kz00_1673, BgL_stringz00_35); } 
BgL_arg2946z00_787 = BgL_newz00_1664; } 
BGl_hashtablezd2putz12zc0zz__hashz00(BGl_za2stringzd2envza2zd2zzcnst_allocz00, BgL_stringz00_35, BgL_arg2946z00_787); }  else 
{ /* ./Cnst/alloc.scm 203 */BFALSE; } 
{ /* ./Cnst/alloc.scm 206 */
obj_t BgL_arg2950z00_788;BgL_typez00_bglt BgL_arg2951z00_789;BgL_globalz00_bglt BgL_arg2952z00_790;
BgL_arg2950z00_788 = BgL_locz00_36; 
{ /* ./Cnst/alloc.scm 207 */
BgL_variablez00_bglt BgL_obj1180z00_1675;
BgL_obj1180z00_1675 = 
(BgL_variablez00_bglt)(BgL_varz00_786); 
BgL_arg2951z00_789 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1180z00_1675))->BgL_typez00); } 
BgL_arg2952z00_790 = BgL_varz00_786; 
BgL_auxz00_2085 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg2950z00_788, BgL_arg2951z00_789, 
(BgL_variablez00_bglt)(BgL_arg2952z00_790)); } } 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2085);} } } } } 
}



/* _cnst-alloc-string4168 */
obj_t BGl__cnstzd2alloczd2string4168z00zzcnst_allocz00(obj_t BgL_envz00_1963, obj_t BgL_stringz00_1964, obj_t BgL_locz00_1965)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 194 */
{ /* ./Cnst/alloc.scm 208 */
BgL_nodez00_bglt BgL_auxz00_2111;
BgL_auxz00_2111 = 
BGl_cnstzd2alloczd2stringz00zzcnst_allocz00(BgL_stringz00_1964, BgL_locz00_1965); 
return 
(obj_t)(BgL_auxz00_2111);} } 
}



/* cnst-alloc-ucs2-string */
BGL_EXPORTED_DEF BgL_nodez00_bglt BGl_cnstzd2alloczd2ucs2zd2stringzd2zzcnst_allocz00(obj_t BgL_stringz00_37, obj_t BgL_locz00_38)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 222 */
{ 
obj_t BgL_bstringz00_814;
{ /* ./Cnst/alloc.scm 255 */
obj_t BgL_oldz00_798;obj_t BgL_stringzd2aszd2bstringz00_799;
BgL_oldz00_798 = 
BGl_hashtablezd2getzd2zz__hashz00(BGl_za2ucs2stringzd2envza2zd2zzcnst_allocz00, BgL_stringz00_37); 
BgL_stringzd2aszd2bstringz00_799 = 
ucs2_string_to_utf8_string(BgL_stringz00_37); 
if(
CBOOL(BgL_oldz00_798))
{ /* ./Cnst/alloc.scm 258 */
{ /* ./Cnst/alloc.scm 259 */
bool_t BgL_test2964z00_800;
{ /* ./Cnst/alloc.scm 259 */
obj_t BgL_auxz00_2118;
BgL_auxz00_2118 = 
CNST_TABLE_REF(((long)13)); 
BgL_test2964z00_800 = 
(BGl_za2initzd2modeza2zd2zzengine_paramz00==BgL_auxz00_2118); } 
if(BgL_test2964z00_800)
{ /* ./Cnst/alloc.scm 261 */
obj_t BgL_arg2966z00_801;BgL_typez00_bglt BgL_arg2967z00_802;obj_t BgL_arg2968z00_803;
BgL_arg2966z00_801 = BgL_locz00_38; 
BgL_arg2967z00_802 = 
BGl_getzd2defaultzd2typez00zztype_cachez00(); 
{ /* ./Cnst/alloc.scm 263 */
int BgL_auxz00_2123;
BgL_auxz00_2123 = 
(int)(((long)1)); 
BgL_arg2968z00_803 = 
STRUCT_REF(BgL_oldz00_798, BgL_auxz00_2123); } 
{ /* ./Cnst/alloc.scm 260 */
BgL_varz00_bglt BgL_auxz00_2126;
BgL_auxz00_2126 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg2966z00_801, BgL_arg2967z00_802, 
(BgL_variablez00_bglt)(BgL_arg2968z00_803)); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2126);} }  else 
{ /* ./Cnst/alloc.scm 264 */
obj_t BgL_arg2973z00_804;
{ /* ./Cnst/alloc.scm 264 */
int BgL_auxz00_2130;
BgL_auxz00_2130 = 
(int)(((long)1)); 
BgL_arg2973z00_804 = 
STRUCT_REF(BgL_oldz00_798, BgL_auxz00_2130); } 
{ /* ./Cnst/alloc.scm 264 */
BgL_appz00_bglt BgL_auxz00_2133;
BgL_auxz00_2133 = 
BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00(BgL_arg2973z00_804, BgL_locz00_38); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2133);} } } }  else 
{ /* ./Cnst/alloc.scm 265 */
bool_t BgL_test2977z00_805;
{ /* ./Cnst/alloc.scm 265 */
bool_t BgL_test2980z00_806;
{ /* ./Cnst/alloc.scm 265 */
obj_t BgL_auxz00_2136;
BgL_auxz00_2136 = 
CNST_TABLE_REF(((long)13)); 
BgL_test2980z00_806 = 
(BGl_za2initzd2modeza2zd2zzengine_paramz00==BgL_auxz00_2136); } 
if(BgL_test2980z00_806)
{ /* ./Cnst/alloc.scm 265 */
BgL_test2977z00_805 = ((bool_t)1); }  else 
{ /* ./Cnst/alloc.scm 266 */
bool_t BgL_testz00_2140;
{ /* ./Cnst/alloc.scm 266 */
long BgL_auxz00_2141;
{ /* ./Cnst/alloc.scm 266 */
int BgL_auxz00_2142;
BgL_auxz00_2142 = 
STRING_LENGTH(BgL_stringzd2aszd2bstringz00_799); 
BgL_auxz00_2141 = 
(long)(BgL_auxz00_2142); } 
BgL_testz00_2140 = 
(BgL_auxz00_2141==((long)0)); } 
if(BgL_testz00_2140)
{ /* ./Cnst/alloc.scm 266 */
BgL_test2977z00_805 = ((bool_t)1); }  else 
{ /* ./Cnst/alloc.scm 267 */
unsigned char BgL_auxz00_2146;
{ /* ./Cnst/alloc.scm 267 */
int BgL_auxz00_2147;
BgL_auxz00_2147 = 
(int)(((long)0)); 
BgL_auxz00_2146 = 
STRING_REF(BgL_stringzd2aszd2bstringz00_799, BgL_auxz00_2147); } 
BgL_test2977z00_805 = 
(BgL_auxz00_2146==((unsigned char)';')); } } } 
if(BgL_test2977z00_805)
{ /* ./Cnst/alloc.scm 265 */
{ /* ./Cnst/alloc.scm 268 */
BgL_varz00_bglt BgL_auxz00_2152;
BgL_bstringz00_814 = BgL_stringzd2aszd2bstringz00_799; 
{ /* ./Cnst/alloc.scm 224 */
BgL_globalz00_bglt BgL_varz00_816;
{ /* ./Cnst/alloc.scm 224 */
obj_t BgL_arg3068z00_848;obj_t BgL_arg3069z00_849;obj_t BgL_arg3070z00_850;
{ /* ./Cnst/alloc.scm 224 */
obj_t BgL_arg3073z00_851;obj_t BgL_arg3074z00_852;
BgL_arg3073z00_851 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)9)), BEOA); 
BgL_arg3074z00_852 = 
CNST_TABLE_REF(((long)9)); 
BgL_arg3068z00_848 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_arg3073z00_851, BgL_arg3074z00_852); } 
BgL_arg3069z00_849 = 
CNST_TABLE_REF(((long)10)); 
BgL_arg3070z00_850 = 
CNST_TABLE_REF(((long)3)); 
BgL_varz00_816 = 
BGl_defzd2globalzd2svarz12z12zzast_glozd2defzd2(BgL_arg3068z00_848, BGl_za2moduleza2z00zzmodule_modulez00, BgL_arg3069z00_849, BgL_arg3070z00_850); } 
{ /* ./Cnst/alloc.scm 229 */
obj_t BgL_arg3004z00_817;
{ /* ./Cnst/alloc.scm 229 */
obj_t BgL_newz00_1707;
{ /* ./Cnst/alloc.scm 229 */
int BgL_auxz00_2163;obj_t BgL_auxz00_2161;
BgL_auxz00_2163 = 
(int)(((long)2)); 
BgL_auxz00_2161 = 
CNST_TABLE_REF(((long)8)); 
BgL_newz00_1707 = 
create_struct(BgL_auxz00_2161, BgL_auxz00_2163); } 
{ /* ./Cnst/alloc.scm 229 */
int BgL_kz00_1711;obj_t BgL_oz00_1712;
BgL_kz00_1711 = 
(int)(((long)1)); 
BgL_oz00_1712 = 
(obj_t)(BgL_varz00_816); 
STRUCT_SET(BgL_newz00_1707, BgL_kz00_1711, BgL_oz00_1712); } 
{ /* ./Cnst/alloc.scm 229 */
int BgL_kz00_1716;
BgL_kz00_1716 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_1707, BgL_kz00_1716, BgL_stringz00_37); } 
BgL_arg3004z00_817 = BgL_newz00_1707; } 
BGl_hashtablezd2putz12zc0zz__hashz00(BGl_za2ucs2stringzd2envza2zd2zzcnst_allocz00, BgL_stringz00_37, BgL_arg3004z00_817); } 
{ /* ./Cnst/alloc.scm 230 */
obj_t BgL_arg3008z00_818;
{ /* ./Cnst/alloc.scm 230 */
obj_t BgL_arg3011z00_819;obj_t BgL_arg3012z00_820;
BgL_arg3011z00_819 = 
CNST_TABLE_REF(((long)11)); 
{ /* ./Cnst/alloc.scm 230 */
obj_t BgL_arg3015z00_821;obj_t BgL_arg3016z00_822;
{ /* ./Cnst/alloc.scm 230 */
obj_t BgL_arg3019z00_823;obj_t BgL_arg3020z00_824;
BgL_arg3019z00_823 = 
CNST_TABLE_REF(((long)12)); 
{ /* ./Cnst/alloc.scm 230 */
obj_t BgL_arg3023z00_825;obj_t BgL_arg3024z00_826;
{ /* ./Cnst/alloc.scm 230 */
BgL_variablez00_bglt BgL_obj1176z00_1718;
BgL_obj1176z00_1718 = 
(BgL_variablez00_bglt)(BgL_varz00_816); 
BgL_arg3023z00_825 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1176z00_1718))->BgL_idz00); } 
{ /* ./Cnst/alloc.scm 230 */
obj_t BgL_arg3028z00_827;
BgL_arg3028z00_827 = 
(((BgL_globalz00_bglt)CREF(BgL_varz00_816))->BgL_modulez00); 
BgL_arg3024z00_826 = 
MAKE_PAIR(BgL_arg3028z00_827, BNIL); } 
BgL_arg3020z00_824 = 
MAKE_PAIR(BgL_arg3023z00_825, BgL_arg3024z00_826); } 
BgL_arg3015z00_821 = 
MAKE_PAIR(BgL_arg3019z00_823, BgL_arg3020z00_824); } 
{ /* ./Cnst/alloc.scm 233 */
BgL_nodez00_bglt BgL_arg3033z00_829;
{ /* ./Cnst/alloc.scm 233 */
BgL_appz00_bglt BgL_arg3037z00_831;
{ /* ./Cnst/alloc.scm 233 */
obj_t BgL_arg3040z00_832;obj_t BgL_arg3041z00_833;BgL_varz00_bglt BgL_arg3043z00_835;obj_t BgL_arg3044z00_836;
BgL_arg3040z00_832 = BgL_locz00_38; 
BgL_arg3041z00_833 = BGl_za2ucs2stringza2z00zztype_cachez00; 
{ /* ./Cnst/alloc.scm 236 */
obj_t BgL_arg3047z00_837;obj_t BgL_arg3048z00_838;obj_t BgL_arg3049z00_839;
BgL_arg3047z00_837 = BgL_locz00_38; 
BgL_arg3048z00_838 = BGl_za2ucs2stringza2z00zztype_cachez00; 
BgL_arg3049z00_839 = BGl_za2stringzd2ze3ucs2stringza2z31zzcnst_cachez00; 
BgL_arg3043z00_835 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3047z00_837, 
(BgL_typez00_bglt)(BgL_arg3048z00_838), 
(BgL_variablez00_bglt)(BgL_arg3049z00_839)); } 
{ /* ./Cnst/alloc.scm 240 */
BgL_atomz00_bglt BgL_arg3052z00_840;
{ /* ./Cnst/alloc.scm 240 */
obj_t BgL_arg3057z00_842;obj_t BgL_arg3058z00_843;obj_t BgL_arg3059z00_844;
BgL_arg3057z00_842 = BgL_locz00_38; 
BgL_arg3058z00_843 = BGl_za2ucs2stringza2z00zztype_cachez00; 
BgL_arg3059z00_844 = BgL_bstringz00_814; 
BgL_arg3052z00_840 = 
BGl_makezd2atomzd2zzast_nodez00(BgL_arg3057z00_842, 
(BgL_typez00_bglt)(BgL_arg3058z00_843), BgL_arg3059z00_844); } 
{ /* ./Cnst/alloc.scm 239 */
obj_t BgL_list3054z00_841;
{ /* ./Cnst/alloc.scm 239 */
obj_t BgL_auxz00_2185;
BgL_auxz00_2185 = 
(obj_t)(BgL_arg3052z00_840); 
BgL_list3054z00_841 = 
MAKE_PAIR(BgL_auxz00_2185, BNIL); } 
BgL_arg3044z00_836 = BgL_list3054z00_841; } } 
BgL_arg3037z00_831 = 
BGl_makezd2appzd2zzast_nodez00(BgL_arg3040z00_832, 
(BgL_typez00_bglt)(BgL_arg3041z00_833), BUNSPEC, 
BINT(((long)-1)), BgL_arg3043z00_835, BgL_arg3044z00_836); } 
BgL_arg3033z00_829 = 
BGl_coercez12z12zzcoerce_coercez00(
(BgL_nodez00_bglt)(BgL_arg3037z00_831), 
(obj_t)(BgL_varz00_816), 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00)); } 
{ /* ./Cnst/alloc.scm 230 */
obj_t BgL_auxz00_2195;
BgL_auxz00_2195 = 
(obj_t)(BgL_arg3033z00_829); 
BgL_arg3016z00_822 = 
MAKE_PAIR(BgL_auxz00_2195, BNIL); } } 
BgL_arg3012z00_820 = 
MAKE_PAIR(BgL_arg3015z00_821, BgL_arg3016z00_822); } 
BgL_arg3008z00_818 = 
MAKE_PAIR(BgL_arg3011z00_819, BgL_arg3012z00_820); } 
BGl_za2globalzd2sexpza2zd2zzcnst_allocz00 = 
MAKE_PAIR(BgL_arg3008z00_818, BGl_za2globalzd2sexpza2zd2zzcnst_allocz00); } 
{ /* ./Cnst/alloc.scm 246 */
obj_t BgL_arg3062z00_845;BgL_typez00_bglt BgL_arg3063z00_846;BgL_globalz00_bglt BgL_arg3064z00_847;
BgL_arg3062z00_845 = BgL_locz00_38; 
{ /* ./Cnst/alloc.scm 247 */
BgL_variablez00_bglt BgL_obj1180z00_1723;
BgL_obj1180z00_1723 = 
(BgL_variablez00_bglt)(BgL_varz00_816); 
BgL_arg3063z00_846 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1180z00_1723))->BgL_typez00); } 
BgL_arg3064z00_847 = BgL_varz00_816; 
BgL_auxz00_2152 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3062z00_845, BgL_arg3063z00_846, 
(BgL_variablez00_bglt)(BgL_arg3064z00_847)); } } 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2152);} }  else 
{ /* ./Cnst/alloc.scm 265 */
{ /* ./Cnst/alloc.scm 270 */
BgL_appz00_bglt BgL_auxz00_2206;
{ /* ./Cnst/alloc.scm 250 */
long BgL_offsetz00_812;
BgL_offsetz00_812 = BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00; 
{ /* ./Cnst/alloc.scm 251 */
long BgL_za72za7_1691;
BgL_za72za7_1691 = BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00; 
BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00 = 
(((long)1)+BgL_za72za7_1691); } 
BGl_za2globalzd2setza2zd2zzcnst_allocz00 = 
MAKE_PAIR(BgL_stringz00_37, BGl_za2globalzd2setza2zd2zzcnst_allocz00); 
{ /* ./Cnst/alloc.scm 253 */
obj_t BgL_arg2998z00_813;
{ /* ./Cnst/alloc.scm 253 */
obj_t BgL_newz00_1694;
{ /* ./Cnst/alloc.scm 253 */
int BgL_auxz00_2211;obj_t BgL_auxz00_2209;
BgL_auxz00_2211 = 
(int)(((long)2)); 
BgL_auxz00_2209 = 
CNST_TABLE_REF(((long)8)); 
BgL_newz00_1694 = 
create_struct(BgL_auxz00_2209, BgL_auxz00_2211); } 
{ /* ./Cnst/alloc.scm 253 */
int BgL_kz00_1698;obj_t BgL_oz00_1699;
BgL_kz00_1698 = 
(int)(((long)1)); 
BgL_oz00_1699 = 
BINT(BgL_offsetz00_812); 
STRUCT_SET(BgL_newz00_1694, BgL_kz00_1698, BgL_oz00_1699); } 
{ /* ./Cnst/alloc.scm 253 */
int BgL_kz00_1703;
BgL_kz00_1703 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_1694, BgL_kz00_1703, BgL_stringz00_37); } 
BgL_arg2998z00_813 = BgL_newz00_1694; } 
BGl_hashtablezd2putz12zc0zz__hashz00(BGl_za2ucs2stringzd2envza2zd2zzcnst_allocz00, BgL_stringz00_37, BgL_arg2998z00_813); } 
BgL_auxz00_2206 = 
BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00(
BINT(BgL_offsetz00_812), BgL_locz00_38); } 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2206);} } } } } } 
}



/* _cnst-alloc-ucs2-string4170 */
obj_t BGl__cnstzd2alloczd2ucs2zd2string4170zd2zzcnst_allocz00(obj_t BgL_envz00_1966, obj_t BgL_stringz00_1967, obj_t BgL_locz00_1968)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 222 */
{ /* ./Cnst/alloc.scm 248 */
BgL_nodez00_bglt BgL_auxz00_2223;
BgL_auxz00_2223 = 
BGl_cnstzd2alloczd2ucs2zd2stringzd2zzcnst_allocz00(BgL_stringz00_1967, BgL_locz00_1968); 
return 
(obj_t)(BgL_auxz00_2223);} } 
}



/* cnst-alloc-symbol */
BGL_EXPORTED_DEF BgL_nodez00_bglt BGl_cnstzd2alloczd2symbolz00zzcnst_allocz00(obj_t BgL_symbolz00_39, obj_t BgL_locz00_40)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 275 */
{ 

{ /* ./Cnst/alloc.scm 308 */
obj_t BgL_oldz00_857;obj_t BgL_symbolzd2aszd2stringz00_858;
BgL_oldz00_857 = 
BGl_hashtablezd2getzd2zz__hashz00(BGl_za2symbolzd2envza2zd2zzcnst_allocz00, BgL_symbolz00_39); 
BgL_symbolzd2aszd2stringz00_858 = 
SYMBOL_TO_STRING(BgL_symbolz00_39); 
if(
CBOOL(BgL_oldz00_857))
{ /* ./Cnst/alloc.scm 311 */
{ /* ./Cnst/alloc.scm 312 */
bool_t BgL_test3077z00_859;
{ /* ./Cnst/alloc.scm 312 */
obj_t BgL_auxz00_2230;
BgL_auxz00_2230 = 
CNST_TABLE_REF(((long)13)); 
BgL_test3077z00_859 = 
(BGl_za2initzd2modeza2zd2zzengine_paramz00==BgL_auxz00_2230); } 
if(BgL_test3077z00_859)
{ /* ./Cnst/alloc.scm 314 */
obj_t BgL_arg3079z00_860;BgL_typez00_bglt BgL_arg3080z00_861;obj_t BgL_arg3081z00_862;
BgL_arg3079z00_860 = BgL_locz00_40; 
BgL_arg3080z00_861 = 
BGl_getzd2defaultzd2typez00zztype_cachez00(); 
{ /* ./Cnst/alloc.scm 316 */
int BgL_auxz00_2235;
BgL_auxz00_2235 = 
(int)(((long)1)); 
BgL_arg3081z00_862 = 
STRUCT_REF(BgL_oldz00_857, BgL_auxz00_2235); } 
{ /* ./Cnst/alloc.scm 313 */
BgL_varz00_bglt BgL_auxz00_2238;
BgL_auxz00_2238 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3079z00_860, BgL_arg3080z00_861, 
(BgL_variablez00_bglt)(BgL_arg3081z00_862)); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2238);} }  else 
{ /* ./Cnst/alloc.scm 317 */
obj_t BgL_arg3086z00_863;
{ /* ./Cnst/alloc.scm 317 */
int BgL_auxz00_2242;
BgL_auxz00_2242 = 
(int)(((long)1)); 
BgL_arg3086z00_863 = 
STRUCT_REF(BgL_oldz00_857, BgL_auxz00_2242); } 
{ /* ./Cnst/alloc.scm 317 */
BgL_appz00_bglt BgL_auxz00_2245;
BgL_auxz00_2245 = 
BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00(BgL_arg3086z00_863, BgL_locz00_40); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2245);} } } }  else 
{ /* ./Cnst/alloc.scm 318 */
bool_t BgL_test3090z00_864;
{ /* ./Cnst/alloc.scm 318 */
bool_t BgL_test3093z00_865;
{ /* ./Cnst/alloc.scm 318 */
obj_t BgL_auxz00_2248;
BgL_auxz00_2248 = 
CNST_TABLE_REF(((long)13)); 
BgL_test3093z00_865 = 
(BGl_za2initzd2modeza2zd2zzengine_paramz00==BgL_auxz00_2248); } 
if(BgL_test3093z00_865)
{ /* ./Cnst/alloc.scm 318 */
BgL_test3090z00_864 = ((bool_t)1); }  else 
{ /* ./Cnst/alloc.scm 319 */
bool_t BgL_testz00_2252;
{ /* ./Cnst/alloc.scm 319 */
long BgL_auxz00_2253;
{ /* ./Cnst/alloc.scm 319 */
int BgL_auxz00_2254;
BgL_auxz00_2254 = 
STRING_LENGTH(BgL_symbolzd2aszd2stringz00_858); 
BgL_auxz00_2253 = 
(long)(BgL_auxz00_2254); } 
BgL_testz00_2252 = 
(BgL_auxz00_2253==((long)0)); } 
if(BgL_testz00_2252)
{ /* ./Cnst/alloc.scm 319 */
BgL_test3090z00_864 = ((bool_t)1); }  else 
{ /* ./Cnst/alloc.scm 320 */
unsigned char BgL_auxz00_2258;
{ /* ./Cnst/alloc.scm 320 */
int BgL_auxz00_2259;
BgL_auxz00_2259 = 
(int)(((long)0)); 
BgL_auxz00_2258 = 
STRING_REF(BgL_symbolzd2aszd2stringz00_858, BgL_auxz00_2259); } 
BgL_test3090z00_864 = 
(BgL_auxz00_2258==((unsigned char)';')); } } } 
if(BgL_test3090z00_864)
{ /* ./Cnst/alloc.scm 318 */
{ /* ./Cnst/alloc.scm 321 */
BgL_varz00_bglt BgL_auxz00_2264;
{ /* ./Cnst/alloc.scm 277 */
BgL_globalz00_bglt BgL_varz00_874;
{ /* ./Cnst/alloc.scm 277 */
obj_t BgL_arg3183z00_906;obj_t BgL_arg3184z00_907;obj_t BgL_arg3185z00_908;
{ /* ./Cnst/alloc.scm 277 */
obj_t BgL_arg3188z00_909;obj_t BgL_arg3189z00_910;
BgL_arg3188z00_909 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)14)), BEOA); 
BgL_arg3189z00_910 = 
CNST_TABLE_REF(((long)14)); 
BgL_arg3183z00_906 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_arg3188z00_909, BgL_arg3189z00_910); } 
BgL_arg3184z00_907 = 
CNST_TABLE_REF(((long)15)); 
BgL_arg3185z00_908 = 
CNST_TABLE_REF(((long)3)); 
BgL_varz00_874 = 
BGl_defzd2globalzd2svarz12z12zzast_glozd2defzd2(BgL_arg3183z00_906, BGl_za2moduleza2z00zzmodule_modulez00, BgL_arg3184z00_907, BgL_arg3185z00_908); } 
{ /* ./Cnst/alloc.scm 281 */
obj_t BgL_arg3117z00_875;
{ /* ./Cnst/alloc.scm 281 */
obj_t BgL_newz00_1755;
{ /* ./Cnst/alloc.scm 281 */
int BgL_auxz00_2275;obj_t BgL_auxz00_2273;
BgL_auxz00_2275 = 
(int)(((long)2)); 
BgL_auxz00_2273 = 
CNST_TABLE_REF(((long)8)); 
BgL_newz00_1755 = 
create_struct(BgL_auxz00_2273, BgL_auxz00_2275); } 
{ /* ./Cnst/alloc.scm 281 */
int BgL_kz00_1759;obj_t BgL_oz00_1760;
BgL_kz00_1759 = 
(int)(((long)1)); 
BgL_oz00_1760 = 
(obj_t)(BgL_varz00_874); 
STRUCT_SET(BgL_newz00_1755, BgL_kz00_1759, BgL_oz00_1760); } 
{ /* ./Cnst/alloc.scm 281 */
int BgL_kz00_1764;
BgL_kz00_1764 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_1755, BgL_kz00_1764, BgL_symbolz00_39); } 
BgL_arg3117z00_875 = BgL_newz00_1755; } 
BGl_hashtablezd2putz12zc0zz__hashz00(BGl_za2symbolzd2envza2zd2zzcnst_allocz00, BgL_symbolz00_39, BgL_arg3117z00_875); } 
{ /* ./Cnst/alloc.scm 282 */
obj_t BgL_arg3121z00_876;
{ /* ./Cnst/alloc.scm 282 */
obj_t BgL_arg3124z00_877;obj_t BgL_arg3125z00_878;
BgL_arg3124z00_877 = 
CNST_TABLE_REF(((long)11)); 
{ /* ./Cnst/alloc.scm 282 */
obj_t BgL_arg3128z00_879;obj_t BgL_arg3129z00_880;
{ /* ./Cnst/alloc.scm 282 */
obj_t BgL_arg3132z00_881;obj_t BgL_arg3133z00_882;
BgL_arg3132z00_881 = 
CNST_TABLE_REF(((long)12)); 
{ /* ./Cnst/alloc.scm 282 */
obj_t BgL_arg3136z00_883;obj_t BgL_arg3137z00_884;
{ /* ./Cnst/alloc.scm 282 */
BgL_variablez00_bglt BgL_obj1176z00_1766;
BgL_obj1176z00_1766 = 
(BgL_variablez00_bglt)(BgL_varz00_874); 
BgL_arg3136z00_883 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1176z00_1766))->BgL_idz00); } 
{ /* ./Cnst/alloc.scm 282 */
obj_t BgL_arg3141z00_885;
BgL_arg3141z00_885 = 
(((BgL_globalz00_bglt)CREF(BgL_varz00_874))->BgL_modulez00); 
BgL_arg3137z00_884 = 
MAKE_PAIR(BgL_arg3141z00_885, BNIL); } 
BgL_arg3133z00_882 = 
MAKE_PAIR(BgL_arg3136z00_883, BgL_arg3137z00_884); } 
BgL_arg3128z00_879 = 
MAKE_PAIR(BgL_arg3132z00_881, BgL_arg3133z00_882); } 
{ /* ./Cnst/alloc.scm 285 */
BgL_nodez00_bglt BgL_arg3146z00_887;
{ /* ./Cnst/alloc.scm 285 */
BgL_appz00_bglt BgL_arg3150z00_889;
{ /* ./Cnst/alloc.scm 285 */
obj_t BgL_arg3153z00_890;obj_t BgL_arg3154z00_891;BgL_varz00_bglt BgL_arg3157z00_893;obj_t BgL_arg3158z00_894;
BgL_arg3153z00_890 = BgL_locz00_40; 
BgL_arg3154z00_891 = BGl_za2symbolza2z00zztype_cachez00; 
{ /* ./Cnst/alloc.scm 288 */
obj_t BgL_arg3161z00_895;obj_t BgL_arg3162z00_896;obj_t BgL_arg3163z00_897;
BgL_arg3161z00_895 = BgL_locz00_40; 
BgL_arg3162z00_896 = BGl_za2symbolza2z00zztype_cachez00; 
BgL_arg3163z00_897 = BGl_za2stringzd2ze3symbolza2z31zzcnst_cachez00; 
BgL_arg3157z00_893 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3161z00_895, 
(BgL_typez00_bglt)(BgL_arg3162z00_896), 
(BgL_variablez00_bglt)(BgL_arg3163z00_897)); } 
{ /* ./Cnst/alloc.scm 292 */
BgL_atomz00_bglt BgL_arg3166z00_898;
{ /* ./Cnst/alloc.scm 292 */
obj_t BgL_arg3171z00_900;obj_t BgL_arg3172z00_901;obj_t BgL_arg3173z00_902;
BgL_arg3171z00_900 = BgL_locz00_40; 
BgL_arg3172z00_901 = BGl_za2stringza2z00zztype_cachez00; 
BgL_arg3173z00_902 = 
SYMBOL_TO_STRING(BgL_symbolz00_39); 
BgL_arg3166z00_898 = 
BGl_makezd2atomzd2zzast_nodez00(BgL_arg3171z00_900, 
(BgL_typez00_bglt)(BgL_arg3172z00_901), BgL_arg3173z00_902); } 
{ /* ./Cnst/alloc.scm 291 */
obj_t BgL_list3168z00_899;
{ /* ./Cnst/alloc.scm 291 */
obj_t BgL_auxz00_2298;
BgL_auxz00_2298 = 
(obj_t)(BgL_arg3166z00_898); 
BgL_list3168z00_899 = 
MAKE_PAIR(BgL_auxz00_2298, BNIL); } 
BgL_arg3158z00_894 = BgL_list3168z00_899; } } 
BgL_arg3150z00_889 = 
BGl_makezd2appzd2zzast_nodez00(BgL_arg3153z00_890, 
(BgL_typez00_bglt)(BgL_arg3154z00_891), BUNSPEC, 
BINT(((long)-1)), BgL_arg3157z00_893, BgL_arg3158z00_894); } 
BgL_arg3146z00_887 = 
BGl_coercez12z12zzcoerce_coercez00(
(BgL_nodez00_bglt)(BgL_arg3150z00_889), 
(obj_t)(BgL_varz00_874), 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00)); } 
{ /* ./Cnst/alloc.scm 282 */
obj_t BgL_auxz00_2308;
BgL_auxz00_2308 = 
(obj_t)(BgL_arg3146z00_887); 
BgL_arg3129z00_880 = 
MAKE_PAIR(BgL_auxz00_2308, BNIL); } } 
BgL_arg3125z00_878 = 
MAKE_PAIR(BgL_arg3128z00_879, BgL_arg3129z00_880); } 
BgL_arg3121z00_876 = 
MAKE_PAIR(BgL_arg3124z00_877, BgL_arg3125z00_878); } 
BGl_za2globalzd2sexpza2zd2zzcnst_allocz00 = 
MAKE_PAIR(BgL_arg3121z00_876, BGl_za2globalzd2sexpza2zd2zzcnst_allocz00); } 
{ /* ./Cnst/alloc.scm 299 */
obj_t BgL_arg3177z00_903;BgL_typez00_bglt BgL_arg3178z00_904;BgL_globalz00_bglt BgL_arg3179z00_905;
BgL_arg3177z00_903 = BgL_locz00_40; 
{ /* ./Cnst/alloc.scm 300 */
BgL_variablez00_bglt BgL_obj1180z00_1772;
BgL_obj1180z00_1772 = 
(BgL_variablez00_bglt)(BgL_varz00_874); 
BgL_arg3178z00_904 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1180z00_1772))->BgL_typez00); } 
BgL_arg3179z00_905 = BgL_varz00_874; 
BgL_auxz00_2264 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3177z00_903, BgL_arg3178z00_904, 
(BgL_variablez00_bglt)(BgL_arg3179z00_905)); } } 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2264);} }  else 
{ /* ./Cnst/alloc.scm 318 */
{ /* ./Cnst/alloc.scm 323 */
BgL_appz00_bglt BgL_auxz00_2319;
{ /* ./Cnst/alloc.scm 303 */
long BgL_offsetz00_871;
BgL_offsetz00_871 = BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00; 
{ /* ./Cnst/alloc.scm 304 */
long BgL_za72za7_1739;
BgL_za72za7_1739 = BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00; 
BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00 = 
(((long)1)+BgL_za72za7_1739); } 
BGl_za2globalzd2setza2zd2zzcnst_allocz00 = 
MAKE_PAIR(BgL_symbolz00_39, BGl_za2globalzd2setza2zd2zzcnst_allocz00); 
{ /* ./Cnst/alloc.scm 306 */
obj_t BgL_arg3111z00_872;
{ /* ./Cnst/alloc.scm 306 */
obj_t BgL_newz00_1742;
{ /* ./Cnst/alloc.scm 306 */
int BgL_auxz00_2324;obj_t BgL_auxz00_2322;
BgL_auxz00_2324 = 
(int)(((long)2)); 
BgL_auxz00_2322 = 
CNST_TABLE_REF(((long)8)); 
BgL_newz00_1742 = 
create_struct(BgL_auxz00_2322, BgL_auxz00_2324); } 
{ /* ./Cnst/alloc.scm 306 */
int BgL_kz00_1746;obj_t BgL_oz00_1747;
BgL_kz00_1746 = 
(int)(((long)1)); 
BgL_oz00_1747 = 
BINT(BgL_offsetz00_871); 
STRUCT_SET(BgL_newz00_1742, BgL_kz00_1746, BgL_oz00_1747); } 
{ /* ./Cnst/alloc.scm 306 */
int BgL_kz00_1751;
BgL_kz00_1751 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_1742, BgL_kz00_1751, BgL_symbolz00_39); } 
BgL_arg3111z00_872 = BgL_newz00_1742; } 
BGl_hashtablezd2putz12zc0zz__hashz00(BGl_za2symbolzd2envza2zd2zzcnst_allocz00, BgL_symbolz00_39, BgL_arg3111z00_872); } 
BgL_auxz00_2319 = 
BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00(
BINT(BgL_offsetz00_871), BgL_locz00_40); } 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2319);} } } } } } 
}



/* _cnst-alloc-symbol4172 */
obj_t BGl__cnstzd2alloczd2symbol4172z00zzcnst_allocz00(obj_t BgL_envz00_1969, obj_t BgL_symbolz00_1970, obj_t BgL_locz00_1971)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 275 */
{ /* ./Cnst/alloc.scm 301 */
BgL_nodez00_bglt BgL_auxz00_2336;
BgL_auxz00_2336 = 
BGl_cnstzd2alloczd2symbolz00zzcnst_allocz00(BgL_symbolz00_1970, BgL_locz00_1971); 
return 
(obj_t)(BgL_auxz00_2336);} } 
}



/* cnst-alloc-keyword */
BGL_EXPORTED_DEF BgL_nodez00_bglt BGl_cnstzd2alloczd2keywordz00zzcnst_allocz00(obj_t BgL_keywordz00_41, obj_t BgL_locz00_42)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 328 */
{ 

{ /* ./Cnst/alloc.scm 362 */
obj_t BgL_oldz00_915;obj_t BgL_keywordzd2aszd2stringz00_916;
BgL_oldz00_915 = 
BGl_hashtablezd2getzd2zz__hashz00(BGl_za2keywordzd2envza2zd2zzcnst_allocz00, BgL_keywordz00_41); 
BgL_keywordzd2aszd2stringz00_916 = 
KEYWORD_TO_STRING(BgL_keywordz00_41); 
if(
CBOOL(BgL_oldz00_915))
{ /* ./Cnst/alloc.scm 365 */
{ /* ./Cnst/alloc.scm 366 */
bool_t BgL_test3192z00_917;
{ /* ./Cnst/alloc.scm 366 */
obj_t BgL_auxz00_2343;
BgL_auxz00_2343 = 
CNST_TABLE_REF(((long)13)); 
BgL_test3192z00_917 = 
(BGl_za2initzd2modeza2zd2zzengine_paramz00==BgL_auxz00_2343); } 
if(BgL_test3192z00_917)
{ /* ./Cnst/alloc.scm 368 */
obj_t BgL_arg3194z00_918;BgL_typez00_bglt BgL_arg3195z00_919;obj_t BgL_arg3196z00_920;
BgL_arg3194z00_918 = BgL_locz00_42; 
BgL_arg3195z00_919 = 
BGl_getzd2defaultzd2typez00zztype_cachez00(); 
{ /* ./Cnst/alloc.scm 370 */
int BgL_auxz00_2348;
BgL_auxz00_2348 = 
(int)(((long)1)); 
BgL_arg3196z00_920 = 
STRUCT_REF(BgL_oldz00_915, BgL_auxz00_2348); } 
{ /* ./Cnst/alloc.scm 367 */
BgL_varz00_bglt BgL_auxz00_2351;
BgL_auxz00_2351 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3194z00_918, BgL_arg3195z00_919, 
(BgL_variablez00_bglt)(BgL_arg3196z00_920)); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2351);} }  else 
{ /* ./Cnst/alloc.scm 371 */
obj_t BgL_arg3201z00_921;
{ /* ./Cnst/alloc.scm 371 */
int BgL_auxz00_2355;
BgL_auxz00_2355 = 
(int)(((long)1)); 
BgL_arg3201z00_921 = 
STRUCT_REF(BgL_oldz00_915, BgL_auxz00_2355); } 
{ /* ./Cnst/alloc.scm 371 */
BgL_appz00_bglt BgL_auxz00_2358;
BgL_auxz00_2358 = 
BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00(BgL_arg3201z00_921, BgL_locz00_42); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2358);} } } }  else 
{ /* ./Cnst/alloc.scm 372 */
bool_t BgL_test3205z00_922;
{ /* ./Cnst/alloc.scm 372 */
bool_t BgL_test3208z00_923;
{ /* ./Cnst/alloc.scm 372 */
obj_t BgL_auxz00_2361;
BgL_auxz00_2361 = 
CNST_TABLE_REF(((long)13)); 
BgL_test3208z00_923 = 
(BGl_za2initzd2modeza2zd2zzengine_paramz00==BgL_auxz00_2361); } 
if(BgL_test3208z00_923)
{ /* ./Cnst/alloc.scm 372 */
BgL_test3205z00_922 = ((bool_t)1); }  else 
{ /* ./Cnst/alloc.scm 373 */
bool_t BgL_testz00_2365;
{ /* ./Cnst/alloc.scm 373 */
long BgL_auxz00_2366;
{ /* ./Cnst/alloc.scm 373 */
int BgL_auxz00_2367;
BgL_auxz00_2367 = 
STRING_LENGTH(BgL_keywordzd2aszd2stringz00_916); 
BgL_auxz00_2366 = 
(long)(BgL_auxz00_2367); } 
BgL_testz00_2365 = 
(BgL_auxz00_2366==((long)0)); } 
if(BgL_testz00_2365)
{ /* ./Cnst/alloc.scm 373 */
BgL_test3205z00_922 = ((bool_t)1); }  else 
{ /* ./Cnst/alloc.scm 374 */
unsigned char BgL_auxz00_2371;
{ /* ./Cnst/alloc.scm 374 */
int BgL_auxz00_2372;
BgL_auxz00_2372 = 
(int)(((long)0)); 
BgL_auxz00_2371 = 
STRING_REF(BgL_keywordzd2aszd2stringz00_916, BgL_auxz00_2372); } 
BgL_test3205z00_922 = 
(BgL_auxz00_2371==((unsigned char)';')); } } } 
if(BgL_test3205z00_922)
{ /* ./Cnst/alloc.scm 372 */
{ /* ./Cnst/alloc.scm 375 */
BgL_varz00_bglt BgL_auxz00_2377;
{ /* ./Cnst/alloc.scm 330 */
BgL_globalz00_bglt BgL_varz00_932;
{ /* ./Cnst/alloc.scm 330 */
obj_t BgL_arg3300z00_964;obj_t BgL_arg3301z00_965;obj_t BgL_arg3302z00_966;
{ /* ./Cnst/alloc.scm 330 */
obj_t BgL_arg3305z00_967;obj_t BgL_arg3306z00_968;
BgL_arg3305z00_967 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)16)), BEOA); 
BgL_arg3306z00_968 = 
CNST_TABLE_REF(((long)16)); 
BgL_arg3300z00_964 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_arg3305z00_967, BgL_arg3306z00_968); } 
BgL_arg3301z00_965 = 
CNST_TABLE_REF(((long)17)); 
BgL_arg3302z00_966 = 
CNST_TABLE_REF(((long)3)); 
BgL_varz00_932 = 
BGl_defzd2globalzd2svarz12z12zzast_glozd2defzd2(BgL_arg3300z00_964, BGl_za2moduleza2z00zzmodule_modulez00, BgL_arg3301z00_965, BgL_arg3302z00_966); } 
{ /* ./Cnst/alloc.scm 335 */
obj_t BgL_arg3232z00_933;
{ /* ./Cnst/alloc.scm 335 */
obj_t BgL_newz00_1804;
{ /* ./Cnst/alloc.scm 335 */
int BgL_auxz00_2388;obj_t BgL_auxz00_2386;
BgL_auxz00_2388 = 
(int)(((long)2)); 
BgL_auxz00_2386 = 
CNST_TABLE_REF(((long)8)); 
BgL_newz00_1804 = 
create_struct(BgL_auxz00_2386, BgL_auxz00_2388); } 
{ /* ./Cnst/alloc.scm 335 */
int BgL_kz00_1808;obj_t BgL_oz00_1809;
BgL_kz00_1808 = 
(int)(((long)1)); 
BgL_oz00_1809 = 
(obj_t)(BgL_varz00_932); 
STRUCT_SET(BgL_newz00_1804, BgL_kz00_1808, BgL_oz00_1809); } 
{ /* ./Cnst/alloc.scm 335 */
int BgL_kz00_1813;
BgL_kz00_1813 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_1804, BgL_kz00_1813, BgL_keywordz00_41); } 
BgL_arg3232z00_933 = BgL_newz00_1804; } 
BGl_hashtablezd2putz12zc0zz__hashz00(BGl_za2keywordzd2envza2zd2zzcnst_allocz00, BgL_keywordz00_41, BgL_arg3232z00_933); } 
{ /* ./Cnst/alloc.scm 336 */
obj_t BgL_arg3236z00_934;
{ /* ./Cnst/alloc.scm 336 */
obj_t BgL_arg3239z00_935;obj_t BgL_arg3240z00_936;
BgL_arg3239z00_935 = 
CNST_TABLE_REF(((long)11)); 
{ /* ./Cnst/alloc.scm 336 */
obj_t BgL_arg3243z00_937;obj_t BgL_arg3245z00_938;
{ /* ./Cnst/alloc.scm 336 */
obj_t BgL_arg3248z00_939;obj_t BgL_arg3249z00_940;
BgL_arg3248z00_939 = 
CNST_TABLE_REF(((long)12)); 
{ /* ./Cnst/alloc.scm 336 */
obj_t BgL_arg3252z00_941;obj_t BgL_arg3253z00_942;
{ /* ./Cnst/alloc.scm 336 */
BgL_variablez00_bglt BgL_obj1176z00_1815;
BgL_obj1176z00_1815 = 
(BgL_variablez00_bglt)(BgL_varz00_932); 
BgL_arg3252z00_941 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1176z00_1815))->BgL_idz00); } 
{ /* ./Cnst/alloc.scm 336 */
obj_t BgL_arg3257z00_943;
BgL_arg3257z00_943 = 
(((BgL_globalz00_bglt)CREF(BgL_varz00_932))->BgL_modulez00); 
BgL_arg3253z00_942 = 
MAKE_PAIR(BgL_arg3257z00_943, BNIL); } 
BgL_arg3249z00_940 = 
MAKE_PAIR(BgL_arg3252z00_941, BgL_arg3253z00_942); } 
BgL_arg3243z00_937 = 
MAKE_PAIR(BgL_arg3248z00_939, BgL_arg3249z00_940); } 
{ /* ./Cnst/alloc.scm 339 */
BgL_nodez00_bglt BgL_arg3263z00_945;
{ /* ./Cnst/alloc.scm 339 */
BgL_appz00_bglt BgL_arg3267z00_947;
{ /* ./Cnst/alloc.scm 339 */
obj_t BgL_arg3270z00_948;obj_t BgL_arg3272z00_949;BgL_varz00_bglt BgL_arg3274z00_951;obj_t BgL_arg3275z00_952;
BgL_arg3270z00_948 = BgL_locz00_42; 
BgL_arg3272z00_949 = BGl_za2keywordza2z00zztype_cachez00; 
{ /* ./Cnst/alloc.scm 342 */
obj_t BgL_arg3278z00_953;obj_t BgL_arg3279z00_954;obj_t BgL_arg3280z00_955;
BgL_arg3278z00_953 = BgL_locz00_42; 
BgL_arg3279z00_954 = BGl_za2keywordza2z00zztype_cachez00; 
BgL_arg3280z00_955 = BGl_za2stringzd2ze3keywordza2z31zzcnst_cachez00; 
BgL_arg3274z00_951 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3278z00_953, 
(BgL_typez00_bglt)(BgL_arg3279z00_954), 
(BgL_variablez00_bglt)(BgL_arg3280z00_955)); } 
{ /* ./Cnst/alloc.scm 346 */
BgL_atomz00_bglt BgL_arg3283z00_956;
{ /* ./Cnst/alloc.scm 346 */
obj_t BgL_arg3288z00_958;obj_t BgL_arg3289z00_959;obj_t BgL_arg3290z00_960;
BgL_arg3288z00_958 = BgL_locz00_42; 
BgL_arg3289z00_959 = BGl_za2stringza2z00zztype_cachez00; 
BgL_arg3290z00_960 = 
KEYWORD_TO_STRING(BgL_keywordz00_41); 
BgL_arg3283z00_956 = 
BGl_makezd2atomzd2zzast_nodez00(BgL_arg3288z00_958, 
(BgL_typez00_bglt)(BgL_arg3289z00_959), BgL_arg3290z00_960); } 
{ /* ./Cnst/alloc.scm 345 */
obj_t BgL_list3285z00_957;
{ /* ./Cnst/alloc.scm 345 */
obj_t BgL_auxz00_2411;
BgL_auxz00_2411 = 
(obj_t)(BgL_arg3283z00_956); 
BgL_list3285z00_957 = 
MAKE_PAIR(BgL_auxz00_2411, BNIL); } 
BgL_arg3275z00_952 = BgL_list3285z00_957; } } 
BgL_arg3267z00_947 = 
BGl_makezd2appzd2zzast_nodez00(BgL_arg3270z00_948, 
(BgL_typez00_bglt)(BgL_arg3272z00_949), BUNSPEC, 
BINT(((long)-1)), BgL_arg3274z00_951, BgL_arg3275z00_952); } 
BgL_arg3263z00_945 = 
BGl_coercez12z12zzcoerce_coercez00(
(BgL_nodez00_bglt)(BgL_arg3267z00_947), 
(obj_t)(BgL_varz00_932), 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00)); } 
{ /* ./Cnst/alloc.scm 336 */
obj_t BgL_auxz00_2421;
BgL_auxz00_2421 = 
(obj_t)(BgL_arg3263z00_945); 
BgL_arg3245z00_938 = 
MAKE_PAIR(BgL_auxz00_2421, BNIL); } } 
BgL_arg3240z00_936 = 
MAKE_PAIR(BgL_arg3243z00_937, BgL_arg3245z00_938); } 
BgL_arg3236z00_934 = 
MAKE_PAIR(BgL_arg3239z00_935, BgL_arg3240z00_936); } 
BGl_za2globalzd2sexpza2zd2zzcnst_allocz00 = 
MAKE_PAIR(BgL_arg3236z00_934, BGl_za2globalzd2sexpza2zd2zzcnst_allocz00); } 
{ /* ./Cnst/alloc.scm 353 */
obj_t BgL_arg3294z00_961;BgL_typez00_bglt BgL_arg3295z00_962;BgL_globalz00_bglt BgL_arg3296z00_963;
BgL_arg3294z00_961 = BgL_locz00_42; 
{ /* ./Cnst/alloc.scm 354 */
BgL_variablez00_bglt BgL_obj1180z00_1821;
BgL_obj1180z00_1821 = 
(BgL_variablez00_bglt)(BgL_varz00_932); 
BgL_arg3295z00_962 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1180z00_1821))->BgL_typez00); } 
BgL_arg3296z00_963 = BgL_varz00_932; 
BgL_auxz00_2377 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3294z00_961, BgL_arg3295z00_962, 
(BgL_variablez00_bglt)(BgL_arg3296z00_963)); } } 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2377);} }  else 
{ /* ./Cnst/alloc.scm 372 */
{ /* ./Cnst/alloc.scm 377 */
BgL_appz00_bglt BgL_auxz00_2432;
{ /* ./Cnst/alloc.scm 357 */
long BgL_offsetz00_929;
BgL_offsetz00_929 = BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00; 
{ /* ./Cnst/alloc.scm 358 */
long BgL_za72za7_1788;
BgL_za72za7_1788 = BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00; 
BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00 = 
(((long)1)+BgL_za72za7_1788); } 
BGl_za2globalzd2setza2zd2zzcnst_allocz00 = 
MAKE_PAIR(BgL_keywordz00_41, BGl_za2globalzd2setza2zd2zzcnst_allocz00); 
{ /* ./Cnst/alloc.scm 360 */
obj_t BgL_arg3226z00_930;
{ /* ./Cnst/alloc.scm 360 */
obj_t BgL_newz00_1791;
{ /* ./Cnst/alloc.scm 360 */
int BgL_auxz00_2437;obj_t BgL_auxz00_2435;
BgL_auxz00_2437 = 
(int)(((long)2)); 
BgL_auxz00_2435 = 
CNST_TABLE_REF(((long)8)); 
BgL_newz00_1791 = 
create_struct(BgL_auxz00_2435, BgL_auxz00_2437); } 
{ /* ./Cnst/alloc.scm 360 */
int BgL_kz00_1795;obj_t BgL_oz00_1796;
BgL_kz00_1795 = 
(int)(((long)1)); 
BgL_oz00_1796 = 
BINT(BgL_offsetz00_929); 
STRUCT_SET(BgL_newz00_1791, BgL_kz00_1795, BgL_oz00_1796); } 
{ /* ./Cnst/alloc.scm 360 */
int BgL_kz00_1800;
BgL_kz00_1800 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_1791, BgL_kz00_1800, BgL_keywordz00_41); } 
BgL_arg3226z00_930 = BgL_newz00_1791; } 
BGl_hashtablezd2putz12zc0zz__hashz00(BGl_za2keywordzd2envza2zd2zzcnst_allocz00, BgL_keywordz00_41, BgL_arg3226z00_930); } 
BgL_auxz00_2432 = 
BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00(
BINT(BgL_offsetz00_929), BgL_locz00_42); } 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2432);} } } } } } 
}



/* _cnst-alloc-keyword4174 */
obj_t BGl__cnstzd2alloczd2keyword4174z00zzcnst_allocz00(obj_t BgL_envz00_1972, obj_t BgL_keywordz00_1973, obj_t BgL_locz00_1974)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 328 */
{ /* ./Cnst/alloc.scm 355 */
BgL_nodez00_bglt BgL_auxz00_2449;
BgL_auxz00_2449 = 
BGl_cnstzd2alloczd2keywordz00zzcnst_allocz00(BgL_keywordz00_1973, BgL_locz00_1974); 
return 
(obj_t)(BgL_auxz00_2449);} } 
}



/* cnst-alloc-procedure */
BGL_EXPORTED_DEF BgL_nodez00_bglt BGl_cnstzd2alloczd2procedurez00zzcnst_allocz00(BgL_nodez00_bglt BgL_procedurez00_43, obj_t BgL_locz00_44)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 382 */
{ /* ./Cnst/alloc.scm 383 */
BgL_globalz00_bglt BgL_varz00_971;
{ /* ./Cnst/alloc.scm 383 */
obj_t BgL_arg3316z00_975;obj_t BgL_arg3317z00_976;
{ /* ./Cnst/alloc.scm 383 */
obj_t BgL_arg3320z00_977;obj_t BgL_arg3321z00_978;
BgL_arg3320z00_977 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)18)), BEOA); 
BgL_arg3321z00_978 = 
CNST_TABLE_REF(((long)19)); 
BgL_arg3316z00_975 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_arg3320z00_977, BgL_arg3321z00_978); } 
BgL_arg3317z00_976 = 
CNST_TABLE_REF(((long)20)); 
BgL_varz00_971 = 
BGl_defzd2globalzd2scnstz12z12zzast_glozd2defzd2(BgL_arg3316z00_975, BGl_za2moduleza2z00zzmodule_modulez00, 
(obj_t)(BgL_procedurez00_43), BgL_arg3317z00_976, BgL_locz00_44); } 
{ /* ./Cnst/alloc.scm 389 */
obj_t BgL_arg3310z00_972;BgL_typez00_bglt BgL_arg3311z00_973;BgL_globalz00_bglt BgL_arg3312z00_974;
BgL_arg3310z00_972 = BgL_locz00_44; 
{ /* ./Cnst/alloc.scm 390 */
BgL_variablez00_bglt BgL_obj1180z00_1822;
BgL_obj1180z00_1822 = 
(BgL_variablez00_bglt)(BgL_varz00_971); 
BgL_arg3311z00_973 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1180z00_1822))->BgL_typez00); } 
BgL_arg3312z00_974 = BgL_varz00_971; 
{ /* ./Cnst/alloc.scm 388 */
BgL_varz00_bglt BgL_auxz00_2462;
BgL_auxz00_2462 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3310z00_972, BgL_arg3311z00_973, 
(BgL_variablez00_bglt)(BgL_arg3312z00_974)); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2462);} } } } 
}



/* _cnst-alloc-procedure4176 */
obj_t BGl__cnstzd2alloczd2procedure4176z00zzcnst_allocz00(obj_t BgL_envz00_1975, obj_t BgL_procedurez00_1976, obj_t BgL_locz00_1977)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 382 */
{ /* ./Cnst/alloc.scm 383 */
BgL_nodez00_bglt BgL_auxz00_2466;
BgL_auxz00_2466 = 
BGl_cnstzd2alloczd2procedurez00zzcnst_allocz00(
(BgL_nodez00_bglt)(BgL_procedurez00_1976), BgL_locz00_1977); 
return 
(obj_t)(BgL_auxz00_2466);} } 
}



/* cnst-alloc-real */
BGL_EXPORTED_DEF BgL_nodez00_bglt BGl_cnstzd2alloczd2realz00zzcnst_allocz00(obj_t BgL_realz00_45, obj_t BgL_locz00_46)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 396 */
{ 

{ /* ./Cnst/alloc.scm 417 */
obj_t BgL_oldz00_981;
{ 
obj_t BgL_listz00_986;
BgL_listz00_986 = BGl_za2realzd2envza2zd2zzcnst_allocz00; 
BgL_loopz00_987:
if(
NULLP(BgL_listz00_986))
{ /* ./Cnst/alloc.scm 411 */
BgL_oldz00_981 = BFALSE; }  else 
{ /* ./Cnst/alloc.scm 413 */
bool_t BgL_testz00_2472;
{ /* ./Cnst/alloc.scm 413 */
double BgL_auxz00_2479;double BgL_auxz00_2473;
BgL_auxz00_2479 = 
REAL_TO_DOUBLE(BgL_realz00_45); 
{ /* ./Cnst/alloc.scm 413 */
obj_t BgL_auxz00_2474;
{ /* ./Cnst/alloc.scm 413 */
obj_t BgL_auxz00_2475;
BgL_auxz00_2475 = 
CAR(BgL_listz00_986); 
BgL_auxz00_2474 = 
CAR(BgL_auxz00_2475); } 
BgL_auxz00_2473 = 
REAL_TO_DOUBLE(BgL_auxz00_2474); } 
BgL_testz00_2472 = 
(BgL_auxz00_2473==BgL_auxz00_2479); } 
if(BgL_testz00_2472)
{ /* ./Cnst/alloc.scm 413 */
{ /* ./Cnst/alloc.scm 414 */
obj_t BgL_auxz00_2482;
BgL_auxz00_2482 = 
CAR(BgL_listz00_986); 
BgL_oldz00_981 = 
CDR(BgL_auxz00_2482); } }  else 
{ /* ./Cnst/alloc.scm 413 */
{ 
obj_t BgL_listz00_2485;
BgL_listz00_2485 = 
CDR(BgL_listz00_986); 
BgL_listz00_986 = BgL_listz00_2485; 
goto BgL_loopz00_987;} } } } 
if(
CBOOL(BgL_oldz00_981))
{ /* ./Cnst/alloc.scm 419 */
{ /* ./Cnst/alloc.scm 421 */
obj_t BgL_arg3325z00_982;BgL_typez00_bglt BgL_arg3326z00_983;obj_t BgL_arg3327z00_984;
BgL_arg3325z00_982 = BgL_locz00_46; 
{ /* ./Cnst/alloc.scm 422 */
BgL_variablez00_bglt BgL_obj1180z00_1823;
BgL_obj1180z00_1823 = 
(BgL_variablez00_bglt)(BgL_oldz00_981); 
BgL_arg3326z00_983 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1180z00_1823))->BgL_typez00); } 
BgL_arg3327z00_984 = BgL_oldz00_981; 
{ /* ./Cnst/alloc.scm 420 */
BgL_varz00_bglt BgL_auxz00_2491;
BgL_auxz00_2491 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3325z00_982, BgL_arg3326z00_983, 
(BgL_variablez00_bglt)(BgL_arg3327z00_984)); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2491);} } }  else 
{ /* ./Cnst/alloc.scm 419 */
{ /* ./Cnst/alloc.scm 425 */
BgL_varz00_bglt BgL_auxz00_2495;
{ /* ./Cnst/alloc.scm 398 */
BgL_globalz00_bglt BgL_varz00_995;
{ /* ./Cnst/alloc.scm 398 */
obj_t BgL_arg3364z00_1000;obj_t BgL_arg3365z00_1001;
{ /* ./Cnst/alloc.scm 398 */
obj_t BgL_arg3368z00_1002;obj_t BgL_arg3369z00_1003;
BgL_arg3368z00_1002 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)21)), BEOA); 
BgL_arg3369z00_1003 = 
CNST_TABLE_REF(((long)21)); 
BgL_arg3364z00_1000 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_arg3368z00_1002, BgL_arg3369z00_1003); } 
BgL_arg3365z00_1001 = 
CNST_TABLE_REF(((long)22)); 
BgL_varz00_995 = 
BGl_defzd2globalzd2scnstz12z12zzast_glozd2defzd2(BgL_arg3364z00_1000, BGl_za2moduleza2z00zzmodule_modulez00, BgL_realz00_45, BgL_arg3365z00_1001, BgL_locz00_46); } 
{ /* ./Cnst/alloc.scm 403 */
obj_t BgL_arg3354z00_996;
{ /* ./Cnst/alloc.scm 403 */
obj_t BgL_auxz00_2503;
BgL_auxz00_2503 = 
(obj_t)(BgL_varz00_995); 
BgL_arg3354z00_996 = 
MAKE_PAIR(BgL_realz00_45, BgL_auxz00_2503); } 
BGl_za2realzd2envza2zd2zzcnst_allocz00 = 
MAKE_PAIR(BgL_arg3354z00_996, BGl_za2realzd2envza2zd2zzcnst_allocz00); } 
{ /* ./Cnst/alloc.scm 405 */
obj_t BgL_arg3358z00_997;BgL_typez00_bglt BgL_arg3359z00_998;BgL_globalz00_bglt BgL_arg3360z00_999;
BgL_arg3358z00_997 = BgL_locz00_46; 
{ /* ./Cnst/alloc.scm 406 */
BgL_variablez00_bglt BgL_obj1180z00_1832;
BgL_obj1180z00_1832 = 
(BgL_variablez00_bglt)(BgL_varz00_995); 
BgL_arg3359z00_998 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1180z00_1832))->BgL_typez00); } 
BgL_arg3360z00_999 = BgL_varz00_995; 
BgL_auxz00_2495 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3358z00_997, BgL_arg3359z00_998, 
(BgL_variablez00_bglt)(BgL_arg3360z00_999)); } } 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2495);} } } } } 
}



/* _cnst-alloc-real4178 */
obj_t BGl__cnstzd2alloczd2real4178z00zzcnst_allocz00(obj_t BgL_envz00_1978, obj_t BgL_realz00_1979, obj_t BgL_locz00_1980)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 396 */
{ /* ./Cnst/alloc.scm 407 */
BgL_nodez00_bglt BgL_auxz00_2512;
BgL_auxz00_2512 = 
BGl_cnstzd2alloczd2realz00zzcnst_allocz00(BgL_realz00_1979, BgL_locz00_1980); 
return 
(obj_t)(BgL_auxz00_2512);} } 
}



/* cnst-alloc-list */
BGL_EXPORTED_DEF BgL_nodez00_bglt BGl_cnstzd2alloczd2listz00zzcnst_allocz00(obj_t BgL_pairz00_47, obj_t BgL_locz00_48)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 430 */
{ 

{ /* ./Cnst/alloc.scm 474 */
obj_t BgL_oldz00_1009;
{ /* ./Cnst/alloc.scm 474 */
obj_t BgL__andtest_2777z00_1016;
BgL__andtest_2777z00_1016 = BGl_za2sharedzd2cnstzf3za2z21zzengine_paramz00; 
if(
CBOOL(BgL__andtest_2777z00_1016))
{ 
obj_t BgL_envz00_1017;
BgL_envz00_1017 = BGl_za2listzd2envza2zd2zzcnst_allocz00; 
BgL_loopz00_1018:
if(
NULLP(BgL_envz00_1017))
{ /* ./Cnst/alloc.scm 477 */
BgL_oldz00_1009 = BFALSE; }  else 
{ /* ./Cnst/alloc.scm 479 */
bool_t BgL_testz00_2519;
{ /* ./Cnst/alloc.scm 479 */
obj_t BgL_auxz00_2520;
{ /* ./Cnst/alloc.scm 479 */
int BgL_auxz00_2523;obj_t BgL_auxz00_2521;
BgL_auxz00_2523 = 
(int)(((long)0)); 
BgL_auxz00_2521 = 
CAR(BgL_envz00_1017); 
BgL_auxz00_2520 = 
STRUCT_REF(BgL_auxz00_2521, BgL_auxz00_2523); } 
BgL_testz00_2519 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_auxz00_2520, BgL_pairz00_47); } 
if(BgL_testz00_2519)
{ /* ./Cnst/alloc.scm 479 */
BgL_oldz00_1009 = 
CAR(BgL_envz00_1017); }  else 
{ /* ./Cnst/alloc.scm 479 */
{ 
obj_t BgL_envz00_2528;
BgL_envz00_2528 = 
CDR(BgL_envz00_1017); 
BgL_envz00_1017 = BgL_envz00_2528; 
goto BgL_loopz00_1018;} } } }  else 
{ /* ./Cnst/alloc.scm 474 */
BgL_oldz00_1009 = BFALSE; } } 
if(
CBOOL(BgL_oldz00_1009))
{ /* ./Cnst/alloc.scm 484 */
{ /* ./Cnst/alloc.scm 485 */
bool_t BgL_test3372z00_1010;
{ /* ./Cnst/alloc.scm 485 */
obj_t BgL_auxz00_2532;
BgL_auxz00_2532 = 
CNST_TABLE_REF(((long)13)); 
BgL_test3372z00_1010 = 
(BGl_za2initzd2modeza2zd2zzengine_paramz00==BgL_auxz00_2532); } 
if(BgL_test3372z00_1010)
{ /* ./Cnst/alloc.scm 487 */
obj_t BgL_arg3374z00_1011;BgL_typez00_bglt BgL_arg3375z00_1012;obj_t BgL_arg3376z00_1013;
BgL_arg3374z00_1011 = BgL_locz00_48; 
BgL_arg3375z00_1012 = 
BGl_getzd2defaultzd2typez00zztype_cachez00(); 
{ /* ./Cnst/alloc.scm 489 */
int BgL_auxz00_2537;
BgL_auxz00_2537 = 
(int)(((long)1)); 
BgL_arg3376z00_1013 = 
STRUCT_REF(BgL_oldz00_1009, BgL_auxz00_2537); } 
{ /* ./Cnst/alloc.scm 486 */
BgL_varz00_bglt BgL_auxz00_2540;
BgL_auxz00_2540 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3374z00_1011, BgL_arg3375z00_1012, 
(BgL_variablez00_bglt)(BgL_arg3376z00_1013)); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2540);} }  else 
{ /* ./Cnst/alloc.scm 490 */
obj_t BgL_arg3381z00_1014;
{ /* ./Cnst/alloc.scm 490 */
int BgL_auxz00_2544;
BgL_auxz00_2544 = 
(int)(((long)1)); 
BgL_arg3381z00_1014 = 
STRUCT_REF(BgL_oldz00_1009, BgL_auxz00_2544); } 
{ /* ./Cnst/alloc.scm 490 */
BgL_appz00_bglt BgL_auxz00_2547;
BgL_auxz00_2547 = 
BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00(BgL_arg3381z00_1014, BgL_locz00_48); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2547);} } } }  else 
{ /* ./Cnst/alloc.scm 491 */
bool_t BgL_test3385z00_1015;
{ /* ./Cnst/alloc.scm 491 */
obj_t BgL_auxz00_2550;
BgL_auxz00_2550 = 
CNST_TABLE_REF(((long)13)); 
BgL_test3385z00_1015 = 
(BGl_za2initzd2modeza2zd2zzengine_paramz00==BgL_auxz00_2550); } 
if(BgL_test3385z00_1015)
{ /* ./Cnst/alloc.scm 491 */
{ /* ./Cnst/alloc.scm 492 */
BgL_varz00_bglt BgL_auxz00_2554;
{ /* ./Cnst/alloc.scm 455 */
BgL_globalz00_bglt BgL_varz00_1028;
{ /* ./Cnst/alloc.scm 455 */
obj_t BgL_arg3460z00_1047;obj_t BgL_arg3461z00_1048;obj_t BgL_arg3462z00_1049;
{ /* ./Cnst/alloc.scm 455 */
obj_t BgL_arg3465z00_1050;obj_t BgL_arg3466z00_1051;
BgL_arg3465z00_1050 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)23)), BEOA); 
BgL_arg3466z00_1051 = 
CNST_TABLE_REF(((long)24)); 
BgL_arg3460z00_1047 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_arg3465z00_1050, BgL_arg3466z00_1051); } 
BgL_arg3461z00_1048 = 
CNST_TABLE_REF(((long)25)); 
BgL_arg3462z00_1049 = 
CNST_TABLE_REF(((long)3)); 
BgL_varz00_1028 = 
BGl_defzd2globalzd2svarz12z12zzast_glozd2defzd2(BgL_arg3460z00_1047, BGl_za2moduleza2z00zzmodule_modulez00, BgL_arg3461z00_1048, BgL_arg3462z00_1049); } 
if(
CBOOL(BGl_za2sharedzd2cnstzf3za2z21zzengine_paramz00))
{ /* ./Cnst/alloc.scm 460 */
obj_t BgL_arg3415z00_1029;
{ /* ./Cnst/alloc.scm 460 */
obj_t BgL_newz00_1863;
{ /* ./Cnst/alloc.scm 460 */
int BgL_auxz00_2567;obj_t BgL_auxz00_2565;
BgL_auxz00_2567 = 
(int)(((long)2)); 
BgL_auxz00_2565 = 
CNST_TABLE_REF(((long)8)); 
BgL_newz00_1863 = 
create_struct(BgL_auxz00_2565, BgL_auxz00_2567); } 
{ /* ./Cnst/alloc.scm 460 */
int BgL_kz00_1867;obj_t BgL_oz00_1868;
BgL_kz00_1867 = 
(int)(((long)1)); 
BgL_oz00_1868 = 
(obj_t)(BgL_varz00_1028); 
STRUCT_SET(BgL_newz00_1863, BgL_kz00_1867, BgL_oz00_1868); } 
{ /* ./Cnst/alloc.scm 460 */
int BgL_kz00_1872;
BgL_kz00_1872 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_1863, BgL_kz00_1872, BgL_pairz00_47); } 
BgL_arg3415z00_1029 = BgL_newz00_1863; } 
BGl_za2listzd2envza2zd2zzcnst_allocz00 = 
MAKE_PAIR(BgL_arg3415z00_1029, BGl_za2listzd2envza2zd2zzcnst_allocz00); }  else 
{ /* ./Cnst/alloc.scm 459 */BFALSE; } 
{ /* ./Cnst/alloc.scm 461 */
obj_t BgL_arg3419z00_1030;
{ /* ./Cnst/alloc.scm 461 */
obj_t BgL_arg3422z00_1031;obj_t BgL_arg3423z00_1032;
BgL_arg3422z00_1031 = 
CNST_TABLE_REF(((long)11)); 
{ /* ./Cnst/alloc.scm 461 */
obj_t BgL_arg3426z00_1033;obj_t BgL_arg3427z00_1034;
{ /* ./Cnst/alloc.scm 461 */
obj_t BgL_arg3430z00_1035;obj_t BgL_arg3431z00_1036;
BgL_arg3430z00_1035 = 
CNST_TABLE_REF(((long)12)); 
{ /* ./Cnst/alloc.scm 461 */
obj_t BgL_arg3434z00_1037;obj_t BgL_arg3436z00_1038;
{ /* ./Cnst/alloc.scm 461 */
BgL_variablez00_bglt BgL_obj1176z00_1874;
BgL_obj1176z00_1874 = 
(BgL_variablez00_bglt)(BgL_varz00_1028); 
BgL_arg3434z00_1037 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1176z00_1874))->BgL_idz00); } 
{ /* ./Cnst/alloc.scm 461 */
obj_t BgL_arg3440z00_1039;
BgL_arg3440z00_1039 = 
(((BgL_globalz00_bglt)CREF(BgL_varz00_1028))->BgL_modulez00); 
BgL_arg3436z00_1038 = 
MAKE_PAIR(BgL_arg3440z00_1039, BNIL); } 
BgL_arg3431z00_1036 = 
MAKE_PAIR(BgL_arg3434z00_1037, BgL_arg3436z00_1038); } 
BgL_arg3426z00_1033 = 
MAKE_PAIR(BgL_arg3430z00_1035, BgL_arg3431z00_1036); } 
{ /* ./Cnst/alloc.scm 462 */
BgL_nodez00_bglt BgL_arg3446z00_1041;
{ /* ./Cnst/alloc.scm 462 */
obj_t BgL_arg3450z00_1043;
BgL_arg3450z00_1043 = 
BGl_loopz00zzcnst_allocz00(BgL_locz00_48, BgL_pairz00_47); 
BgL_arg3446z00_1041 = 
BGl_coercez12z12zzcoerce_coercez00(
(BgL_nodez00_bglt)(BgL_arg3450z00_1043), 
(obj_t)(BgL_varz00_1028), 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00)); } 
{ /* ./Cnst/alloc.scm 461 */
obj_t BgL_auxz00_2589;
BgL_auxz00_2589 = 
(obj_t)(BgL_arg3446z00_1041); 
BgL_arg3427z00_1034 = 
MAKE_PAIR(BgL_auxz00_2589, BNIL); } } 
BgL_arg3423z00_1032 = 
MAKE_PAIR(BgL_arg3426z00_1033, BgL_arg3427z00_1034); } 
BgL_arg3419z00_1030 = 
MAKE_PAIR(BgL_arg3422z00_1031, BgL_arg3423z00_1032); } 
BGl_za2globalzd2sexpza2zd2zzcnst_allocz00 = 
MAKE_PAIR(BgL_arg3419z00_1030, BGl_za2globalzd2sexpza2zd2zzcnst_allocz00); } 
{ /* ./Cnst/alloc.scm 464 */
obj_t BgL_arg3454z00_1044;BgL_typez00_bglt BgL_arg3455z00_1045;BgL_globalz00_bglt BgL_arg3456z00_1046;
BgL_arg3454z00_1044 = BgL_locz00_48; 
{ /* ./Cnst/alloc.scm 465 */
BgL_variablez00_bglt BgL_obj1180z00_1877;
BgL_obj1180z00_1877 = 
(BgL_variablez00_bglt)(BgL_varz00_1028); 
BgL_arg3455z00_1045 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1180z00_1877))->BgL_typez00); } 
BgL_arg3456z00_1046 = BgL_varz00_1028; 
BgL_auxz00_2554 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3454z00_1044, BgL_arg3455z00_1045, 
(BgL_variablez00_bglt)(BgL_arg3456z00_1046)); } } 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2554);} }  else 
{ /* ./Cnst/alloc.scm 491 */
{ /* ./Cnst/alloc.scm 494 */
BgL_appz00_bglt BgL_auxz00_2600;
{ /* ./Cnst/alloc.scm 468 */
long BgL_offsetz00_1025;
BgL_offsetz00_1025 = BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00; 
{ /* ./Cnst/alloc.scm 469 */
long BgL_za72za7_1847;
BgL_za72za7_1847 = BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00; 
BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00 = 
(((long)1)+BgL_za72za7_1847); } 
BGl_za2globalzd2setza2zd2zzcnst_allocz00 = 
MAKE_PAIR(BgL_pairz00_47, BGl_za2globalzd2setza2zd2zzcnst_allocz00); 
if(
CBOOL(BGl_za2sharedzd2cnstzf3za2z21zzengine_paramz00))
{ /* ./Cnst/alloc.scm 472 */
obj_t BgL_arg3409z00_1026;
{ /* ./Cnst/alloc.scm 472 */
obj_t BgL_newz00_1850;
{ /* ./Cnst/alloc.scm 472 */
int BgL_auxz00_2607;obj_t BgL_auxz00_2605;
BgL_auxz00_2607 = 
(int)(((long)2)); 
BgL_auxz00_2605 = 
CNST_TABLE_REF(((long)8)); 
BgL_newz00_1850 = 
create_struct(BgL_auxz00_2605, BgL_auxz00_2607); } 
{ /* ./Cnst/alloc.scm 472 */
int BgL_kz00_1854;obj_t BgL_oz00_1855;
BgL_kz00_1854 = 
(int)(((long)1)); 
BgL_oz00_1855 = 
BINT(BgL_offsetz00_1025); 
STRUCT_SET(BgL_newz00_1850, BgL_kz00_1854, BgL_oz00_1855); } 
{ /* ./Cnst/alloc.scm 472 */
int BgL_kz00_1859;
BgL_kz00_1859 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_1850, BgL_kz00_1859, BgL_pairz00_47); } 
BgL_arg3409z00_1026 = BgL_newz00_1850; } 
BGl_za2listzd2envza2zd2zzcnst_allocz00 = 
MAKE_PAIR(BgL_arg3409z00_1026, BGl_za2listzd2envza2zd2zzcnst_allocz00); }  else 
{ /* ./Cnst/alloc.scm 471 */BFALSE; } 
BgL_auxz00_2600 = 
BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00(
BINT(BgL_offsetz00_1025), BgL_locz00_48); } 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2600);} } } } } } 
}



/* loop */
obj_t BGl_loopz00zzcnst_allocz00(obj_t BgL_locz00_1991, obj_t BgL_pairz00_1054)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 432 */
{ /* ./Cnst/alloc.scm 434 */
bool_t BgL_test3471z00_1056;
BgL_test3471z00_1056 = 
NULLP(BgL_pairz00_1054); 
if(BgL_test3471z00_1056)
{ /* ./Cnst/alloc.scm 434 */
{ /* ./Cnst/alloc.scm 435 */
obj_t BgL_arg3473z00_1057;obj_t BgL_arg3474z00_1058;
BgL_arg3473z00_1057 = BgL_locz00_1991; 
BgL_arg3474z00_1058 = BGl_za2bnilza2z00zztype_cachez00; 
{ /* ./Cnst/alloc.scm 435 */
BgL_atomz00_bglt BgL_auxz00_2621;
BgL_auxz00_2621 = 
BGl_makezd2atomzd2zzast_nodez00(BgL_arg3473z00_1057, 
(BgL_typez00_bglt)(BgL_arg3474z00_1058), BNIL); 
return 
(obj_t)(BgL_auxz00_2621);} } }  else 
{ /* ./Cnst/alloc.scm 436 */
bool_t BgL_test3477z00_1060;
BgL_test3477z00_1060 = 
PAIRP(BgL_pairz00_1054); 
if(BgL_test3477z00_1060)
{ /* ./Cnst/alloc.scm 436 */
{ /* ./Cnst/alloc.scm 443 */
obj_t BgL_arg3479z00_1061;obj_t BgL_arg3480z00_1062;BgL_varz00_bglt BgL_arg3482z00_1064;obj_t BgL_arg3483z00_1065;
BgL_arg3479z00_1061 = BgL_locz00_1991; 
BgL_arg3480z00_1062 = BGl_za2pairza2z00zztype_cachez00; 
{ /* ./Cnst/alloc.scm 446 */
obj_t BgL_arg3486z00_1066;BgL_typez00_bglt BgL_arg3487z00_1067;obj_t BgL_arg3488z00_1068;
BgL_arg3486z00_1066 = BgL_locz00_1991; 
{ /* ./Cnst/alloc.scm 447 */
BgL_variablez00_bglt BgL_obj1180z00_1880;
BgL_obj1180z00_1880 = 
(BgL_variablez00_bglt)(BGl_za2consza2z00zzcnst_cachez00); 
BgL_arg3487z00_1067 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1180z00_1880))->BgL_typez00); } 
BgL_arg3488z00_1068 = BGl_za2consza2z00zzcnst_cachez00; 
BgL_arg3482z00_1064 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3486z00_1066, BgL_arg3487z00_1067, 
(BgL_variablez00_bglt)(BgL_arg3488z00_1068)); } 
{ /* ./Cnst/alloc.scm 450 */
BgL_nodez00_bglt BgL_arg3492z00_1069;obj_t BgL_arg3493z00_1070;
{ /* ./Cnst/alloc.scm 450 */
BgL_kwotez00_bglt BgL_arg3501z00_1073;
{ /* ./Cnst/alloc.scm 450 */
obj_t BgL_arg3504z00_1074;BgL_typez00_bglt BgL_arg3506z00_1075;obj_t BgL_arg3507z00_1076;
BgL_arg3504z00_1074 = BgL_locz00_1991; 
BgL_arg3506z00_1075 = 
BGl_getzd2defaultzd2typez00zztype_cachez00(); 
BgL_arg3507z00_1076 = 
CAR(BgL_pairz00_1054); 
BgL_arg3501z00_1073 = 
BGl_makezd2kwotezd2zzast_nodez00(BgL_arg3504z00_1074, BgL_arg3506z00_1075, BgL_arg3507z00_1076); } 
BgL_arg3492z00_1069 = 
BGl_cnstz12z12zzcnst_nodez00(
(BgL_nodez00_bglt)(BgL_arg3501z00_1073)); } 
{ /* ./Cnst/alloc.scm 453 */
obj_t BgL_arg3512z00_1077;
BgL_arg3512z00_1077 = 
CDR(BgL_pairz00_1054); 
BgL_arg3493z00_1070 = 
BGl_loopz00zzcnst_allocz00(BgL_locz00_1991, BgL_arg3512z00_1077); } 
{ /* ./Cnst/alloc.scm 449 */
obj_t BgL_list3495z00_1071;
{ /* ./Cnst/alloc.scm 449 */
obj_t BgL_arg3497z00_1072;
BgL_arg3497z00_1072 = 
MAKE_PAIR(BgL_arg3493z00_1070, BNIL); 
{ /* ./Cnst/alloc.scm 449 */
obj_t BgL_auxz00_2639;
BgL_auxz00_2639 = 
(obj_t)(BgL_arg3492z00_1069); 
BgL_list3495z00_1071 = 
MAKE_PAIR(BgL_auxz00_2639, BgL_arg3497z00_1072); } } 
BgL_arg3483z00_1065 = BgL_list3495z00_1071; } } 
{ /* ./Cnst/alloc.scm 442 */
BgL_appz00_bglt BgL_auxz00_2642;
BgL_auxz00_2642 = 
BGl_makezd2appzd2zzast_nodez00(BgL_arg3479z00_1061, 
(BgL_typez00_bglt)(BgL_arg3480z00_1062), BUNSPEC, 
BINT(((long)-1)), BgL_arg3482z00_1064, BgL_arg3483z00_1065); 
return 
(obj_t)(BgL_auxz00_2642);} } }  else 
{ /* ./Cnst/alloc.scm 436 */
{ /* ./Cnst/alloc.scm 438 */
BgL_kwotez00_bglt BgL_arg3517z00_1078;
{ /* ./Cnst/alloc.scm 438 */
obj_t BgL_arg3520z00_1079;obj_t BgL_arg3521z00_1080;obj_t BgL_arg3522z00_1081;
BgL_arg3520z00_1079 = BgL_locz00_1991; 
BgL_arg3521z00_1080 = BGl_za2pairza2z00zztype_cachez00; 
BgL_arg3522z00_1081 = BgL_pairz00_1054; 
BgL_arg3517z00_1078 = 
BGl_makezd2kwotezd2zzast_nodez00(BgL_arg3520z00_1079, 
(BgL_typez00_bglt)(BgL_arg3521z00_1080), BgL_arg3522z00_1081); } 
{ /* ./Cnst/alloc.scm 437 */
BgL_nodez00_bglt BgL_auxz00_2649;
BgL_auxz00_2649 = 
BGl_cnstz12z12zzcnst_nodez00(
(BgL_nodez00_bglt)(BgL_arg3517z00_1078)); 
return 
(obj_t)(BgL_auxz00_2649);} } } } } } 
}



/* _cnst-alloc-list */
obj_t BGl__cnstzd2alloczd2listz00zzcnst_allocz00(obj_t BgL_envz00_1981, obj_t BgL_pairz00_1982, obj_t BgL_locz00_1983)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 430 */
{ /* ./Cnst/alloc.scm 453 */
BgL_nodez00_bglt BgL_auxz00_2653;
BgL_auxz00_2653 = 
BGl_cnstzd2alloczd2listz00zzcnst_allocz00(BgL_pairz00_1982, BgL_locz00_1983); 
return 
(obj_t)(BgL_auxz00_2653);} } 
}



/* cnst-alloc-vector */
BGL_EXPORTED_DEF BgL_nodez00_bglt BGl_cnstzd2alloczd2vectorz00zzcnst_allocz00(obj_t BgL_vecz00_49, obj_t BgL_locz00_50)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 499 */
{ 

{ /* ./Cnst/alloc.scm 573 */
obj_t BgL_oldz00_1088;
{ /* ./Cnst/alloc.scm 573 */
obj_t BgL__andtest_2790z00_1095;
BgL__andtest_2790z00_1095 = BGl_za2sharedzd2cnstzf3za2z21zzengine_paramz00; 
if(
CBOOL(BgL__andtest_2790z00_1095))
{ 
obj_t BgL_envz00_1096;
BgL_envz00_1096 = BGl_za2vectorzd2envza2zd2zzcnst_allocz00; 
BgL_loopz00_1097:
if(
NULLP(BgL_envz00_1096))
{ /* ./Cnst/alloc.scm 576 */
BgL_oldz00_1088 = BFALSE; }  else 
{ /* ./Cnst/alloc.scm 578 */
bool_t BgL_testz00_2660;
{ /* ./Cnst/alloc.scm 578 */
obj_t BgL_auxz00_2661;
{ /* ./Cnst/alloc.scm 578 */
int BgL_auxz00_2664;obj_t BgL_auxz00_2662;
BgL_auxz00_2664 = 
(int)(((long)0)); 
BgL_auxz00_2662 = 
CAR(BgL_envz00_1096); 
BgL_auxz00_2661 = 
STRUCT_REF(BgL_auxz00_2662, BgL_auxz00_2664); } 
BgL_testz00_2660 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_auxz00_2661, BgL_vecz00_49); } 
if(BgL_testz00_2660)
{ /* ./Cnst/alloc.scm 578 */
BgL_oldz00_1088 = 
CAR(BgL_envz00_1096); }  else 
{ /* ./Cnst/alloc.scm 578 */
{ 
obj_t BgL_envz00_2669;
BgL_envz00_2669 = 
CDR(BgL_envz00_1096); 
BgL_envz00_1096 = BgL_envz00_2669; 
goto BgL_loopz00_1097;} } } }  else 
{ /* ./Cnst/alloc.scm 573 */
BgL_oldz00_1088 = BFALSE; } } 
if(
CBOOL(BgL_oldz00_1088))
{ /* ./Cnst/alloc.scm 583 */
{ /* ./Cnst/alloc.scm 584 */
bool_t BgL_test3526z00_1089;
{ /* ./Cnst/alloc.scm 584 */
obj_t BgL_auxz00_2673;
BgL_auxz00_2673 = 
CNST_TABLE_REF(((long)13)); 
BgL_test3526z00_1089 = 
(BGl_za2initzd2modeza2zd2zzengine_paramz00==BgL_auxz00_2673); } 
if(BgL_test3526z00_1089)
{ /* ./Cnst/alloc.scm 586 */
obj_t BgL_arg3528z00_1090;BgL_typez00_bglt BgL_arg3529z00_1091;obj_t BgL_arg3530z00_1092;
BgL_arg3528z00_1090 = BgL_locz00_50; 
BgL_arg3529z00_1091 = 
BGl_getzd2defaultzd2typez00zztype_cachez00(); 
{ /* ./Cnst/alloc.scm 588 */
int BgL_auxz00_2678;
BgL_auxz00_2678 = 
(int)(((long)1)); 
BgL_arg3530z00_1092 = 
STRUCT_REF(BgL_oldz00_1088, BgL_auxz00_2678); } 
{ /* ./Cnst/alloc.scm 585 */
BgL_varz00_bglt BgL_auxz00_2681;
BgL_auxz00_2681 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3528z00_1090, BgL_arg3529z00_1091, 
(BgL_variablez00_bglt)(BgL_arg3530z00_1092)); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2681);} }  else 
{ /* ./Cnst/alloc.scm 589 */
obj_t BgL_arg3535z00_1093;
{ /* ./Cnst/alloc.scm 589 */
int BgL_auxz00_2685;
BgL_auxz00_2685 = 
(int)(((long)1)); 
BgL_arg3535z00_1093 = 
STRUCT_REF(BgL_oldz00_1088, BgL_auxz00_2685); } 
{ /* ./Cnst/alloc.scm 589 */
BgL_appz00_bglt BgL_auxz00_2688;
BgL_auxz00_2688 = 
BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00(BgL_arg3535z00_1093, BgL_locz00_50); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2688);} } } }  else 
{ /* ./Cnst/alloc.scm 590 */
bool_t BgL_test3539z00_1094;
{ /* ./Cnst/alloc.scm 590 */
obj_t BgL_auxz00_2691;
BgL_auxz00_2691 = 
CNST_TABLE_REF(((long)13)); 
BgL_test3539z00_1094 = 
(BGl_za2initzd2modeza2zd2zzengine_paramz00==BgL_auxz00_2691); } 
if(BgL_test3539z00_1094)
{ /* ./Cnst/alloc.scm 590 */
{ /* ./Cnst/alloc.scm 591 */
BgL_varz00_bglt BgL_auxz00_2695;
{ /* ./Cnst/alloc.scm 561 */
BgL_globalz00_bglt BgL_varz00_1104;
{ /* ./Cnst/alloc.scm 561 */
obj_t BgL_arg3602z00_1122;obj_t BgL_arg3604z00_1123;obj_t BgL_arg3605z00_1124;
{ /* ./Cnst/alloc.scm 561 */
obj_t BgL_arg3608z00_1125;obj_t BgL_arg3609z00_1126;
BgL_arg3608z00_1125 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)26)), BEOA); 
BgL_arg3609z00_1126 = 
CNST_TABLE_REF(((long)26)); 
BgL_arg3602z00_1122 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_arg3608z00_1125, BgL_arg3609z00_1126); } 
BgL_arg3604z00_1123 = 
CNST_TABLE_REF(((long)2)); 
BgL_arg3605z00_1124 = 
CNST_TABLE_REF(((long)3)); 
BgL_varz00_1104 = 
BGl_defzd2globalzd2svarz12z12zzast_glozd2defzd2(BgL_arg3602z00_1122, BGl_za2moduleza2z00zzmodule_modulez00, BgL_arg3604z00_1123, BgL_arg3605z00_1124); } 
if(
CBOOL(BGl_za2sharedzd2cnstzf3za2z21zzengine_paramz00))
{ /* ./Cnst/alloc.scm 566 */
obj_t BgL_arg3562z00_1105;
{ /* ./Cnst/alloc.scm 566 */
obj_t BgL_newz00_1900;
{ /* ./Cnst/alloc.scm 566 */
int BgL_auxz00_2708;obj_t BgL_auxz00_2706;
BgL_auxz00_2708 = 
(int)(((long)2)); 
BgL_auxz00_2706 = 
CNST_TABLE_REF(((long)8)); 
BgL_newz00_1900 = 
create_struct(BgL_auxz00_2706, BgL_auxz00_2708); } 
{ /* ./Cnst/alloc.scm 566 */
int BgL_kz00_1904;obj_t BgL_oz00_1905;
BgL_kz00_1904 = 
(int)(((long)1)); 
BgL_oz00_1905 = 
(obj_t)(BgL_varz00_1104); 
STRUCT_SET(BgL_newz00_1900, BgL_kz00_1904, BgL_oz00_1905); } 
{ /* ./Cnst/alloc.scm 566 */
int BgL_kz00_1909;
BgL_kz00_1909 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_1900, BgL_kz00_1909, BgL_vecz00_49); } 
BgL_arg3562z00_1105 = BgL_newz00_1900; } 
BGl_za2vectorzd2envza2zd2zzcnst_allocz00 = 
MAKE_PAIR(BgL_arg3562z00_1105, BGl_za2vectorzd2envza2zd2zzcnst_allocz00); }  else 
{ /* ./Cnst/alloc.scm 565 */BFALSE; } 
{ /* ./Cnst/alloc.scm 567 */
obj_t BgL_arg3566z00_1106;
{ /* ./Cnst/alloc.scm 567 */
obj_t BgL_arg3569z00_1107;obj_t BgL_arg3570z00_1108;
BgL_arg3569z00_1107 = 
CNST_TABLE_REF(((long)11)); 
{ /* ./Cnst/alloc.scm 567 */
obj_t BgL_arg3573z00_1109;obj_t BgL_arg3574z00_1110;
{ /* ./Cnst/alloc.scm 567 */
obj_t BgL_arg3577z00_1111;obj_t BgL_arg3578z00_1112;
BgL_arg3577z00_1111 = 
CNST_TABLE_REF(((long)12)); 
{ /* ./Cnst/alloc.scm 567 */
obj_t BgL_arg3581z00_1113;obj_t BgL_arg3582z00_1114;
{ /* ./Cnst/alloc.scm 567 */
BgL_variablez00_bglt BgL_obj1176z00_1911;
BgL_obj1176z00_1911 = 
(BgL_variablez00_bglt)(BgL_varz00_1104); 
BgL_arg3581z00_1113 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1176z00_1911))->BgL_idz00); } 
{ /* ./Cnst/alloc.scm 567 */
obj_t BgL_arg3586z00_1115;
BgL_arg3586z00_1115 = 
(((BgL_globalz00_bglt)CREF(BgL_varz00_1104))->BgL_modulez00); 
BgL_arg3582z00_1114 = 
MAKE_PAIR(BgL_arg3586z00_1115, BNIL); } 
BgL_arg3578z00_1112 = 
MAKE_PAIR(BgL_arg3581z00_1113, BgL_arg3582z00_1114); } 
BgL_arg3573z00_1109 = 
MAKE_PAIR(BgL_arg3577z00_1111, BgL_arg3578z00_1112); } 
{ /* ./Cnst/alloc.scm 568 */
BgL_nodez00_bglt BgL_arg3591z00_1117;
{ /* ./Cnst/alloc.scm 503 */
BgL_nodez00_bglt BgL_arg3623z00_1131;
{ /* ./Cnst/alloc.scm 503 */
BgL_letzd2varzd2_bglt BgL_arg3626z00_1132;
{ /* ./Cnst/alloc.scm 503 */
BgL_localz00_bglt BgL_varz00_1133;
BgL_varz00_1133 = 
BGl_makezd2localzd2svarz00zzast_localz00(
CNST_TABLE_REF(((long)27)), 
(BgL_typez00_bglt)(BGl_za2vectorza2z00zztype_cachez00)); 
{ /* ./Cnst/alloc.scm 505 */
obj_t BgL_arg3629z00_1134;obj_t BgL_arg3630z00_1135;obj_t BgL_arg3632z00_1137;obj_t BgL_arg3633z00_1138;
BgL_arg3629z00_1134 = BgL_locz00_50; 
BgL_arg3630z00_1135 = BGl_za2objza2z00zztype_cachez00; 
{ /* ./Cnst/alloc.scm 511 */
obj_t BgL_arg3636z00_1139;
{ /* ./Cnst/alloc.scm 511 */
BgL_appz00_bglt BgL_arg3641z00_1141;
{ /* ./Cnst/alloc.scm 511 */
obj_t BgL_arg3644z00_1142;obj_t BgL_arg3645z00_1143;BgL_varz00_bglt BgL_arg3647z00_1145;obj_t BgL_arg3648z00_1146;
BgL_arg3644z00_1142 = BgL_locz00_50; 
BgL_arg3645z00_1143 = BGl_za2vectorza2z00zztype_cachez00; 
{ /* ./Cnst/alloc.scm 514 */
obj_t BgL_arg3651z00_1147;BgL_typez00_bglt BgL_arg3652z00_1148;obj_t BgL_arg3653z00_1149;
BgL_arg3651z00_1147 = BgL_locz00_50; 
{ /* ./Cnst/alloc.scm 515 */
BgL_variablez00_bglt BgL_obj1180z00_1930;
BgL_obj1180z00_1930 = 
(BgL_variablez00_bglt)(BGl_za2listzd2ze3vectorza2z31zzcnst_cachez00); 
BgL_arg3652z00_1148 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1180z00_1930))->BgL_typez00); } 
BgL_arg3653z00_1149 = BGl_za2listzd2ze3vectorza2z31zzcnst_cachez00; 
BgL_arg3647z00_1145 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3651z00_1147, BgL_arg3652z00_1148, 
(BgL_variablez00_bglt)(BgL_arg3653z00_1149)); } 
{ /* ./Cnst/alloc.scm 519 */
BgL_kwotez00_bglt BgL_arg3657z00_1150;
{ /* ./Cnst/alloc.scm 519 */
obj_t BgL_arg3662z00_1152;obj_t BgL_arg3663z00_1153;obj_t BgL_arg3664z00_1154;
BgL_arg3662z00_1152 = BgL_locz00_50; 
BgL_arg3663z00_1153 = BGl_za2objza2z00zztype_cachez00; 
BgL_arg3664z00_1154 = 
BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_vecz00_49); 
BgL_arg3657z00_1150 = 
BGl_makezd2kwotezd2zzast_nodez00(BgL_arg3662z00_1152, 
(BgL_typez00_bglt)(BgL_arg3663z00_1153), BgL_arg3664z00_1154); } 
{ /* ./Cnst/alloc.scm 517 */
obj_t BgL_list3659z00_1151;
{ /* ./Cnst/alloc.scm 517 */
obj_t BgL_auxz00_2735;
BgL_auxz00_2735 = 
(obj_t)(BgL_arg3657z00_1150); 
BgL_list3659z00_1151 = 
MAKE_PAIR(BgL_auxz00_2735, BNIL); } 
BgL_arg3648z00_1146 = BgL_list3659z00_1151; } } 
BgL_arg3641z00_1141 = 
BGl_makezd2appzd2zzast_nodez00(BgL_arg3644z00_1142, 
(BgL_typez00_bglt)(BgL_arg3645z00_1143), BUNSPEC, 
BINT(((long)-1)), BgL_arg3647z00_1145, BgL_arg3648z00_1146); } 
{ /* ./Cnst/alloc.scm 508 */
obj_t BgL_auxz00_2743;obj_t BgL_auxz00_2741;
BgL_auxz00_2743 = 
(obj_t)(BgL_arg3641z00_1141); 
BgL_auxz00_2741 = 
(obj_t)(BgL_varz00_1133); 
BgL_arg3636z00_1139 = 
MAKE_PAIR(BgL_auxz00_2741, BgL_auxz00_2743); } } 
{ /* ./Cnst/alloc.scm 507 */
obj_t BgL_list3638z00_1140;
BgL_list3638z00_1140 = 
MAKE_PAIR(BgL_arg3636z00_1139, BNIL); 
BgL_arg3632z00_1137 = BgL_list3638z00_1140; } } 
{ /* ./Cnst/alloc.scm 522 */
BgL_varz00_bglt BgL_varzd2bodyzd2_1155;
{ /* ./Cnst/alloc.scm 523 */
obj_t BgL_arg3723z00_1184;BgL_typez00_bglt BgL_arg3724z00_1185;BgL_localz00_bglt BgL_arg3725z00_1186;
BgL_arg3723z00_1184 = BgL_locz00_50; 
{ /* ./Cnst/alloc.scm 524 */
BgL_variablez00_bglt BgL_obj1180z00_1935;
BgL_obj1180z00_1935 = 
(BgL_variablez00_bglt)(BgL_varz00_1133); 
BgL_arg3724z00_1185 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1180z00_1935))->BgL_typez00); } 
BgL_arg3725z00_1186 = BgL_varz00_1133; 
BgL_varzd2bodyzd2_1155 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3723z00_1184, BgL_arg3724z00_1185, 
(BgL_variablez00_bglt)(BgL_arg3725z00_1186)); } 
{ /* ./Cnst/alloc.scm 526 */
bool_t BgL_test3667z00_1156;
{ /* ./Cnst/alloc.scm 526 */
int BgL_arg3718z00_1182;
BgL_arg3718z00_1182 = 
VECTOR_TAG(BgL_vecz00_49); 
{ /* ./Cnst/alloc.scm 526 */
long BgL_auxz00_2752;
BgL_auxz00_2752 = 
(long)(BgL_arg3718z00_1182); 
BgL_test3667z00_1156 = 
(BgL_auxz00_2752>((long)0)); } } 
if(BgL_test3667z00_1156)
{ /* ./Cnst/alloc.scm 528 */
obj_t BgL_arg3669z00_1157;obj_t BgL_arg3670z00_1158;obj_t BgL_arg3672z00_1160;
BgL_arg3669z00_1157 = BgL_locz00_50; 
BgL_arg3670z00_1158 = BGl_za2vectorza2z00zztype_cachez00; 
{ /* ./Cnst/alloc.scm 533 */
BgL_appz00_bglt BgL_arg3675z00_1161;
{ /* ./Cnst/alloc.scm 533 */
obj_t BgL_arg3683z00_1164;obj_t BgL_arg3684z00_1165;BgL_varz00_bglt BgL_arg3686z00_1167;obj_t BgL_arg3687z00_1168;
BgL_arg3683z00_1164 = BgL_locz00_50; 
BgL_arg3684z00_1165 = BGl_za2objza2z00zztype_cachez00; 
{ /* ./Cnst/alloc.scm 536 */
obj_t BgL_arg3690z00_1169;BgL_typez00_bglt BgL_arg3691z00_1170;obj_t BgL_arg3692z00_1171;
BgL_arg3690z00_1169 = BgL_locz00_50; 
{ /* ./Cnst/alloc.scm 537 */
BgL_variablez00_bglt BgL_obj1180z00_1939;
BgL_obj1180z00_1939 = 
(BgL_variablez00_bglt)(BGl_za2vectorzd2tagzd2setz12za2z12zzcnst_cachez00); 
BgL_arg3691z00_1170 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1180z00_1939))->BgL_typez00); } 
BgL_arg3692z00_1171 = BGl_za2vectorzd2tagzd2setz12za2z12zzcnst_cachez00; 
BgL_arg3686z00_1167 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3690z00_1169, BgL_arg3691z00_1170, 
(BgL_variablez00_bglt)(BgL_arg3692z00_1171)); } 
{ /* ./Cnst/alloc.scm 542 */
BgL_varz00_bglt BgL_arg3697z00_1172;BgL_atomz00_bglt BgL_arg3698z00_1173;
{ /* ./Cnst/alloc.scm 542 */
obj_t BgL_arg3706z00_1176;BgL_typez00_bglt BgL_arg3707z00_1177;BgL_localz00_bglt BgL_arg3708z00_1178;
BgL_arg3706z00_1176 = BgL_locz00_50; 
{ /* ./Cnst/alloc.scm 543 */
BgL_variablez00_bglt BgL_obj1180z00_1940;
BgL_obj1180z00_1940 = 
(BgL_variablez00_bglt)(BgL_varz00_1133); 
BgL_arg3707z00_1177 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1180z00_1940))->BgL_typez00); } 
BgL_arg3708z00_1178 = BgL_varz00_1133; 
BgL_arg3697z00_1172 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3706z00_1176, BgL_arg3707z00_1177, 
(BgL_variablez00_bglt)(BgL_arg3708z00_1178)); } 
{ /* ./Cnst/alloc.scm 546 */
obj_t BgL_arg3712z00_1179;obj_t BgL_arg3713z00_1180;int BgL_arg3714z00_1181;
BgL_arg3712z00_1179 = BgL_locz00_50; 
BgL_arg3713z00_1180 = BGl_za2objza2z00zztype_cachez00; 
BgL_arg3714z00_1181 = 
VECTOR_TAG(BgL_vecz00_49); 
BgL_arg3698z00_1173 = 
BGl_makezd2atomzd2zzast_nodez00(BgL_arg3712z00_1179, 
(BgL_typez00_bglt)(BgL_arg3713z00_1180), 
BINT(BgL_arg3714z00_1181)); } 
{ /* ./Cnst/alloc.scm 540 */
obj_t BgL_list3700z00_1174;
{ /* ./Cnst/alloc.scm 540 */
obj_t BgL_arg3702z00_1175;
{ /* ./Cnst/alloc.scm 540 */
obj_t BgL_auxz00_2768;
BgL_auxz00_2768 = 
(obj_t)(BgL_arg3698z00_1173); 
BgL_arg3702z00_1175 = 
MAKE_PAIR(BgL_auxz00_2768, BNIL); } 
{ /* ./Cnst/alloc.scm 540 */
obj_t BgL_auxz00_2771;
BgL_auxz00_2771 = 
(obj_t)(BgL_arg3697z00_1172); 
BgL_list3700z00_1174 = 
MAKE_PAIR(BgL_auxz00_2771, BgL_arg3702z00_1175); } } 
BgL_arg3687z00_1168 = BgL_list3700z00_1174; } } 
BgL_arg3675z00_1161 = 
BGl_makezd2appzd2zzast_nodez00(BgL_arg3683z00_1164, 
(BgL_typez00_bglt)(BgL_arg3684z00_1165), BUNSPEC, 
BINT(((long)-1)), BgL_arg3686z00_1167, BgL_arg3687z00_1168); } 
{ /* ./Cnst/alloc.scm 530 */
obj_t BgL_list3677z00_1162;
{ /* ./Cnst/alloc.scm 530 */
obj_t BgL_arg3679z00_1163;
{ /* ./Cnst/alloc.scm 530 */
obj_t BgL_auxz00_2777;
BgL_auxz00_2777 = 
(obj_t)(BgL_varzd2bodyzd2_1155); 
BgL_arg3679z00_1163 = 
MAKE_PAIR(BgL_auxz00_2777, BNIL); } 
{ /* ./Cnst/alloc.scm 530 */
obj_t BgL_auxz00_2780;
BgL_auxz00_2780 = 
(obj_t)(BgL_arg3675z00_1161); 
BgL_list3677z00_1162 = 
MAKE_PAIR(BgL_auxz00_2780, BgL_arg3679z00_1163); } } 
BgL_arg3672z00_1160 = BgL_list3677z00_1162; } } 
{ /* ./Cnst/alloc.scm 527 */
BgL_sequencez00_bglt BgL_auxz00_2783;
BgL_auxz00_2783 = 
BGl_makezd2sequencezd2zzast_nodez00(BgL_arg3669z00_1157, 
(BgL_typez00_bglt)(BgL_arg3670z00_1158), BUNSPEC, 
BINT(((long)-1)), BgL_arg3672z00_1160); 
BgL_arg3633z00_1138 = 
(obj_t)(BgL_auxz00_2783); } }  else 
{ /* ./Cnst/alloc.scm 526 */
BgL_arg3633z00_1138 = 
(obj_t)(BgL_varzd2bodyzd2_1155); } } } 
BgL_arg3626z00_1132 = 
BGl_makezd2letzd2varz00zzast_nodez00(BgL_arg3629z00_1134, 
(BgL_typez00_bglt)(BgL_arg3630z00_1135), BUNSPEC, 
BINT(((long)-1)), BgL_arg3632z00_1137, 
(BgL_nodez00_bglt)(BgL_arg3633z00_1138), ((bool_t)1)); } } 
BgL_arg3623z00_1131 = 
BGl_coercez12z12zzcoerce_coercez00(
(BgL_nodez00_bglt)(BgL_arg3626z00_1132), BUNSPEC, 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00)); } 
BgL_arg3591z00_1117 = 
BGl_cnstz12z12zzcnst_nodez00(BgL_arg3623z00_1131); } 
{ /* ./Cnst/alloc.scm 567 */
obj_t BgL_auxz00_2797;
BgL_auxz00_2797 = 
(obj_t)(BgL_arg3591z00_1117); 
BgL_arg3574z00_1110 = 
MAKE_PAIR(BgL_auxz00_2797, BNIL); } } 
BgL_arg3570z00_1108 = 
MAKE_PAIR(BgL_arg3573z00_1109, BgL_arg3574z00_1110); } 
BgL_arg3566z00_1106 = 
MAKE_PAIR(BgL_arg3569z00_1107, BgL_arg3570z00_1108); } 
BGl_za2globalzd2sexpza2zd2zzcnst_allocz00 = 
MAKE_PAIR(BgL_arg3566z00_1106, BGl_za2globalzd2sexpza2zd2zzcnst_allocz00); } 
{ /* ./Cnst/alloc.scm 570 */
obj_t BgL_arg3596z00_1119;BgL_typez00_bglt BgL_arg3597z00_1120;BgL_globalz00_bglt BgL_arg3598z00_1121;
BgL_arg3596z00_1119 = BgL_locz00_50; 
{ /* ./Cnst/alloc.scm 571 */
BgL_variablez00_bglt BgL_obj1180z00_1914;
BgL_obj1180z00_1914 = 
(BgL_variablez00_bglt)(BgL_varz00_1104); 
BgL_arg3597z00_1120 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1180z00_1914))->BgL_typez00); } 
BgL_arg3598z00_1121 = BgL_varz00_1104; 
BgL_auxz00_2695 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3596z00_1119, BgL_arg3597z00_1120, 
(BgL_variablez00_bglt)(BgL_arg3598z00_1121)); } } 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2695);} }  else 
{ /* ./Cnst/alloc.scm 590 */
{ /* ./Cnst/alloc.scm 593 */
BgL_appz00_bglt BgL_auxz00_2808;
{ /* ./Cnst/alloc.scm 554 */
long BgL_offsetz00_1128;
BgL_offsetz00_1128 = BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00; 
{ /* ./Cnst/alloc.scm 555 */
long BgL_za72za7_1916;
BgL_za72za7_1916 = BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00; 
BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00 = 
(((long)1)+BgL_za72za7_1916); } 
BGl_za2globalzd2setza2zd2zzcnst_allocz00 = 
MAKE_PAIR(BgL_vecz00_49, BGl_za2globalzd2setza2zd2zzcnst_allocz00); 
if(
CBOOL(BGl_za2sharedzd2cnstzf3za2z21zzengine_paramz00))
{ /* ./Cnst/alloc.scm 558 */
obj_t BgL_arg3616z00_1129;
{ /* ./Cnst/alloc.scm 558 */
obj_t BgL_newz00_1919;
{ /* ./Cnst/alloc.scm 558 */
int BgL_auxz00_2815;obj_t BgL_auxz00_2813;
BgL_auxz00_2815 = 
(int)(((long)2)); 
BgL_auxz00_2813 = 
CNST_TABLE_REF(((long)8)); 
BgL_newz00_1919 = 
create_struct(BgL_auxz00_2813, BgL_auxz00_2815); } 
{ /* ./Cnst/alloc.scm 558 */
int BgL_kz00_1923;obj_t BgL_oz00_1924;
BgL_kz00_1923 = 
(int)(((long)1)); 
BgL_oz00_1924 = 
BINT(BgL_offsetz00_1128); 
STRUCT_SET(BgL_newz00_1919, BgL_kz00_1923, BgL_oz00_1924); } 
{ /* ./Cnst/alloc.scm 558 */
int BgL_kz00_1928;
BgL_kz00_1928 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_1919, BgL_kz00_1928, BgL_vecz00_49); } 
BgL_arg3616z00_1129 = BgL_newz00_1919; } 
BGl_za2vectorzd2envza2zd2zzcnst_allocz00 = 
MAKE_PAIR(BgL_arg3616z00_1129, BGl_za2vectorzd2envza2zd2zzcnst_allocz00); }  else 
{ /* ./Cnst/alloc.scm 557 */BFALSE; } 
BgL_auxz00_2808 = 
BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00(
BINT(BgL_offsetz00_1128), BgL_locz00_50); } 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2808);} } } } } } 
}



/* _cnst-alloc-vector4181 */
obj_t BGl__cnstzd2alloczd2vector4181z00zzcnst_allocz00(obj_t BgL_envz00_1984, obj_t BgL_vecz00_1985, obj_t BgL_locz00_1986)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 499 */
{ /* ./Cnst/alloc.scm 552 */
BgL_nodez00_bglt BgL_auxz00_2827;
BgL_auxz00_2827 = 
BGl_cnstzd2alloczd2vectorz00zzcnst_allocz00(BgL_vecz00_1985, BgL_locz00_1986); 
return 
(obj_t)(BgL_auxz00_2827);} } 
}



/* cnst-alloc-tvector */
BGL_EXPORTED_DEF BgL_nodez00_bglt BGl_cnstzd2alloczd2tvectorz00zzcnst_allocz00(obj_t BgL_tvecz00_51, obj_t BgL_locz00_52)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 598 */
{ 

{ /* ./Cnst/alloc.scm 628 */
bool_t BgL_test3729z00_1192;
BgL_test3729z00_1192 = 
BGl_tvectorzd2Czd2staticzf3zf3zztvector_cnstz00(BgL_tvecz00_51); 
if(BgL_test3729z00_1192)
{ /* ./Cnst/alloc.scm 629 */
BgL_varz00_bglt BgL_auxz00_2832;
{ /* ./Cnst/alloc.scm 600 */
BgL_globalz00_bglt BgL_varz00_1196;
{ /* ./Cnst/alloc.scm 600 */
obj_t BgL_arg3793z00_1222;obj_t BgL_arg3794z00_1223;
{ /* ./Cnst/alloc.scm 600 */
obj_t BgL_arg3797z00_1224;obj_t BgL_arg3798z00_1225;
BgL_arg3797z00_1224 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)28)), BEOA); 
BgL_arg3798z00_1225 = 
CNST_TABLE_REF(((long)29)); 
BgL_arg3793z00_1222 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_arg3797z00_1224, BgL_arg3798z00_1225); } 
BgL_arg3794z00_1223 = 
CNST_TABLE_REF(((long)30)); 
BgL_varz00_1196 = 
BGl_defzd2globalzd2scnstz12z12zzast_glozd2defzd2(BgL_arg3793z00_1222, BGl_za2moduleza2z00zzmodule_modulez00, BgL_tvecz00_51, BgL_arg3794z00_1223, BgL_locz00_52); } 
{ /* ./Cnst/alloc.scm 605 */
obj_t BgL_idz00_1197;
{ /* ./Cnst/alloc.scm 605 */
BgL_typez00_bglt BgL_obj1023z00_1951;
{ /* ./Cnst/alloc.scm 605 */
obj_t BgL_auxz00_2840;
{ /* ./Cnst/alloc.scm 605 */
int BgL_auxz00_2841;
BgL_auxz00_2841 = 
(int)(((long)0)); 
BgL_auxz00_2840 = 
STRUCT_REF(BgL_tvecz00_51, BgL_auxz00_2841); } 
BgL_obj1023z00_1951 = 
(BgL_typez00_bglt)(BgL_auxz00_2840); } 
BgL_idz00_1197 = 
(((BgL_typez00_bglt)CREF(BgL_obj1023z00_1951))->BgL_idz00); } 
{ /* ./Cnst/alloc.scm 605 */
BgL_nodez00_bglt BgL_aidz00_1198;
{ /* ./Cnst/alloc.scm 607 */
BgL_kwotez00_bglt BgL_arg3774z00_1214;
{ /* ./Cnst/alloc.scm 607 */
obj_t BgL_arg3777z00_1215;BgL_typez00_bglt BgL_arg3778z00_1216;obj_t BgL_arg3779z00_1217;
BgL_arg3777z00_1215 = BgL_locz00_52; 
BgL_arg3778z00_1216 = 
BGl_getzd2defaultzd2typez00zztype_cachez00(); 
BgL_arg3779z00_1217 = BgL_idz00_1197; 
BgL_arg3774z00_1214 = 
BGl_makezd2kwotezd2zzast_nodez00(BgL_arg3777z00_1215, BgL_arg3778z00_1216, BgL_arg3779z00_1217); } 
BgL_aidz00_1198 = 
BGl_cnstz12z12zzcnst_nodez00(
(BgL_nodez00_bglt)(BgL_arg3774z00_1214)); } 
{ /* ./Cnst/alloc.scm 606 */

{ /* ./Cnst/alloc.scm 613 */
obj_t BgL_arg3740z00_1199;
{ /* ./Cnst/alloc.scm 613 */
obj_t BgL_arg3743z00_1200;obj_t BgL_arg3744z00_1201;
BgL_arg3743z00_1200 = 
CNST_TABLE_REF(((long)31)); 
{ /* ./Cnst/alloc.scm 614 */
obj_t BgL_arg3747z00_1202;obj_t BgL_arg3748z00_1203;
{ /* ./Cnst/alloc.scm 614 */
obj_t BgL_arg3751z00_1204;obj_t BgL_arg3752z00_1205;
BgL_arg3751z00_1204 = 
CNST_TABLE_REF(((long)12)); 
{ /* ./Cnst/alloc.scm 614 */
obj_t BgL_arg3755z00_1206;obj_t BgL_arg3756z00_1207;
{ /* ./Cnst/alloc.scm 614 */
BgL_variablez00_bglt BgL_obj1176z00_1952;
BgL_obj1176z00_1952 = 
(BgL_variablez00_bglt)(BgL_varz00_1196); 
BgL_arg3755z00_1206 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1176z00_1952))->BgL_idz00); } 
{ /* ./Cnst/alloc.scm 614 */
obj_t BgL_arg3760z00_1208;
BgL_arg3760z00_1208 = 
(((BgL_globalz00_bglt)CREF(BgL_varz00_1196))->BgL_modulez00); 
BgL_arg3756z00_1207 = 
MAKE_PAIR(BgL_arg3760z00_1208, BNIL); } 
BgL_arg3752z00_1205 = 
MAKE_PAIR(BgL_arg3755z00_1206, BgL_arg3756z00_1207); } 
BgL_arg3747z00_1202 = 
MAKE_PAIR(BgL_arg3751z00_1204, BgL_arg3752z00_1205); } 
{ /* ./Cnst/alloc.scm 615 */
obj_t BgL_arg3765z00_1210;
{ /* ./Cnst/alloc.scm 615 */
obj_t BgL_arg3769z00_1212;obj_t BgL_arg3770z00_1213;
BgL_arg3769z00_1212 = 
CNST_TABLE_REF(((long)32)); 
{ /* ./Cnst/alloc.scm 615 */
obj_t BgL_auxz00_2859;
BgL_auxz00_2859 = 
(obj_t)(BgL_aidz00_1198); 
BgL_arg3770z00_1213 = 
MAKE_PAIR(BgL_auxz00_2859, BNIL); } 
BgL_arg3765z00_1210 = 
MAKE_PAIR(BgL_arg3769z00_1212, BgL_arg3770z00_1213); } 
BgL_arg3748z00_1203 = 
MAKE_PAIR(BgL_arg3765z00_1210, BNIL); } 
BgL_arg3744z00_1201 = 
MAKE_PAIR(BgL_arg3747z00_1202, BgL_arg3748z00_1203); } 
BgL_arg3740z00_1199 = 
MAKE_PAIR(BgL_arg3743z00_1200, BgL_arg3744z00_1201); } 
BGl_za2globalzd2sexpza2zd2zzcnst_allocz00 = 
MAKE_PAIR(BgL_arg3740z00_1199, BGl_za2globalzd2sexpza2zd2zzcnst_allocz00); } } } } 
{ /* ./Cnst/alloc.scm 617 */
obj_t BgL_arg3787z00_1219;BgL_typez00_bglt BgL_arg3788z00_1220;BgL_globalz00_bglt BgL_arg3789z00_1221;
BgL_arg3787z00_1219 = BgL_locz00_52; 
{ /* ./Cnst/alloc.scm 618 */
BgL_variablez00_bglt BgL_obj1180z00_1955;
BgL_obj1180z00_1955 = 
(BgL_variablez00_bglt)(BgL_varz00_1196); 
BgL_arg3788z00_1220 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1180z00_1955))->BgL_typez00); } 
BgL_arg3789z00_1221 = BgL_varz00_1196; 
BgL_auxz00_2832 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3787z00_1219, BgL_arg3788z00_1220, 
(BgL_variablez00_bglt)(BgL_arg3789z00_1221)); } } 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2832);}  else 
{ /* ./Cnst/alloc.scm 630 */
BgL_appz00_bglt BgL_auxz00_2872;
BGl_internalzd2errorzd2zztools_errorz00(BGl_string4452z00zzcnst_allocz00, BGl_string4453z00zzcnst_allocz00, BgL_tvecz00_51); 
{ /* ./Cnst/alloc.scm 624 */
long BgL_offsetz00_1194;
BgL_offsetz00_1194 = BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00; 
{ /* ./Cnst/alloc.scm 625 */
long BgL_za72za7_1947;
BgL_za72za7_1947 = BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00; 
BGl_za2cnstzd2offsetza2zd2zzcnst_allocz00 = 
(((long)1)+BgL_za72za7_1947); } 
BGl_za2globalzd2setza2zd2zzcnst_allocz00 = 
MAKE_PAIR(BgL_tvecz00_51, BGl_za2globalzd2setza2zd2zzcnst_allocz00); 
BgL_auxz00_2872 = 
BGl_makezd2cnstzd2tablezd2refzd2zzcnst_allocz00(
BINT(BgL_offsetz00_1194), BgL_locz00_52); } 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2872);} } } } 
}



/* _cnst-alloc-tvector */
obj_t BGl__cnstzd2alloczd2tvectorz00zzcnst_allocz00(obj_t BgL_envz00_1987, obj_t BgL_tvecz00_1988, obj_t BgL_locz00_1989)
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 598 */
{ /* ./Cnst/alloc.scm 619 */
BgL_nodez00_bglt BgL_auxz00_2879;
BgL_auxz00_2879 = 
BGl_cnstzd2alloczd2tvectorz00zzcnst_allocz00(BgL_tvecz00_1988, BgL_locz00_1989); 
return 
(obj_t)(BgL_auxz00_2879);} } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzcnst_allocz00()
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 15 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzcnst_allocz00()
{ AN_OBJECT;
{ /* ./Cnst/alloc.scm 15 */
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "cnst_alloc"); 
BGl_modulezd2initializa7ationz75zzmodule_modulez00(((long)8699), "cnst_alloc"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "cnst_alloc"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "cnst_alloc"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "cnst_alloc"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "cnst_alloc"); 
BGl_modulezd2initializa7ationz75zztvector_tvectorz00(((long)32501), "cnst_alloc"); 
BGl_modulezd2initializa7ationz75zztvector_cnstz00(((long)21355), "cnst_alloc"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "cnst_alloc"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "cnst_alloc"); 
BGl_modulezd2initializa7ationz75zzast_sexpz00(((long)15705), "cnst_alloc"); 
BGl_modulezd2initializa7ationz75zzast_localz00(((long)28959), "cnst_alloc"); 
BGl_modulezd2initializa7ationz75zzast_glozd2defzd2(((long)4795), "cnst_alloc"); 
BGl_modulezd2initializa7ationz75zzcoerce_coercez00(((long)56611), "cnst_alloc"); 
BGl_modulezd2initializa7ationz75zzcnst_cachez00(((long)32847), "cnst_alloc"); 
BGl_modulezd2initializa7ationz75zzcnst_nodez00(((long)44711), "cnst_alloc"); 
return 
BGl_modulezd2initializa7ationz75zzast_identz00(((long)51504), "cnst_alloc");} 
}

