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

#include <bigloo.h>


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

typedef struct BgL_approxz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_typez00_bgl * BgL_typez00;
   bool_t BgL_typezd2lockedzf3z21;
   obj_t BgL_allocsz00;
   bool_t BgL_topzf3zf3;
   long BgL_lostzd2stampzd2;
} *BgL_approxz00_bglt;

typedef struct BgL_cfunzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_cfunzf2cinfozf2_bglt;

typedef struct BgL_externzd2sfunzf2cinfoz20_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_externzd2sfunzf2cinfoz20_bglt;

typedef struct BgL_internzd2sfunzf2cinfoz20_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   long BgL_stampz00;
} *BgL_internzd2sfunzf2cinfoz20_bglt;

typedef struct BgL_scnstzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_scnstzf2cinfozf2_bglt;

typedef struct BgL_prezd2clozd2envz00_bgl {
   char dummy;
} *BgL_prezd2clozd2envz00_bglt;

typedef struct BgL_svarzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   bool_t BgL_clozd2envzf3z21;
} *BgL_svarzf2cinfozf2_bglt;

typedef struct BgL_cvarzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_cvarzf2cinfozf2_bglt;

typedef struct BgL_sexitzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_sexitzf2cinfozf2_bglt;

typedef struct BgL_reshapedzd2localzd2_bgl {
   obj_t BgL_bindingzd2valuezd2;
} *BgL_reshapedzd2localzd2_bglt;

typedef struct BgL_reshapedzd2globalzd2_bgl {
   char dummy;
} *BgL_reshapedzd2globalzd2_bglt;

typedef struct BgL_atomzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_atomzf2cinfozf2_bglt;

typedef struct BgL_kwotezf2nodezf2_bgl {
   struct BgL_nodez00_bgl * BgL_nodez00;
} *BgL_kwotezf2nodezf2_bglt;

typedef struct BgL_kwotezf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_kwotezf2cinfozf2_bglt;

typedef struct BgL_appzd2lyzf2cinfoz20_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_appzd2lyzf2cinfoz20_bglt;

typedef struct BgL_funcallzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   struct BgL_approxz00_bgl * BgL_vazd2approxzd2;
   bool_t BgL_arityzd2errorzd2noticedzf3zf3;
   bool_t BgL_typezd2errorzd2noticedzf3zf3;
} *BgL_funcallzf2cinfozf2_bglt;

typedef struct BgL_setqzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_setqzf2cinfozf2_bglt;

typedef struct BgL_conditionalzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_conditionalzf2cinfozf2_bglt;

typedef struct BgL_failzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_failzf2cinfozf2_bglt;

typedef struct BgL_selectzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_selectzf2cinfozf2_bglt;

typedef struct BgL_setzd2exzd2itzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_setzd2exzd2itzf2cinfozf2_bglt;

typedef struct BgL_jumpzd2exzd2itzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_jumpzd2exzd2itzf2cinfozf2_bglt;

typedef struct BgL_prezd2makezd2boxz00_bgl {
   char dummy;
} *BgL_prezd2makezd2boxz00_bglt;

typedef struct BgL_makezd2boxzf2cinfoz20_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_makezd2boxzf2cinfoz20_bglt;

typedef struct BgL_makezd2boxzf2ozd2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   struct BgL_approxz00_bgl * BgL_valuezd2approxzd2;
} *BgL_makezd2boxzf2ozd2cinfozf2_bglt;

typedef struct BgL_boxzd2setz12zf2cinfoz32_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_boxzd2setz12zf2cinfoz32_bglt;

typedef struct BgL_boxzd2refzf2cinfoz20_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_boxzd2refzf2cinfoz20_bglt;

typedef struct BgL_boxzd2setz12zf2ozd2cinfoze0_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_boxzd2setz12zf2ozd2cinfoze0_bglt;

typedef struct BgL_boxzd2refzf2ozd2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_boxzd2refzf2ozd2cinfozf2_bglt;

typedef struct BgL_pragmazf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_pragmazf2cinfozf2_bglt;

typedef struct BgL_getfieldzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_getfieldzf2cinfozf2_bglt;

typedef struct BgL_setfieldzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_setfieldzf2cinfozf2_bglt;

typedef struct BgL_newzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_newzf2cinfozf2_bglt;

typedef struct BgL_isazf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_isazf2cinfozf2_bglt;

typedef struct BgL_vrefzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   bool_t BgL_tvectorzf3zf3;
} *BgL_vrefzf2cinfozf2_bglt;

typedef struct BgL_vsetz12zf2cinfoze0_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   bool_t BgL_tvectorzf3zf3;
} *BgL_vsetz12zf2cinfoze0_bglt;

typedef struct BgL_vlengthzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   bool_t BgL_tvectorzf3zf3;
} *BgL_vlengthzf2cinfozf2_bglt;

typedef struct BgL_prezd2valloczf2cinfoz20_bgl {
   struct BgL_variablez00_bgl * BgL_ownerz00;
} *BgL_prezd2valloczf2cinfoz20_bglt;

typedef struct BgL_valloczf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_valloczf2cinfozf2_bglt;

typedef struct BgL_valloczf2cinfozb2optimz40_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   struct BgL_approxz00_bgl * BgL_valuezd2approxzd2;
   long BgL_lostzd2stampzd2;
   struct BgL_variablez00_bgl * BgL_ownerz00;
   bool_t BgL_stackablezf3zf3;
   obj_t BgL_stackzd2stampzd2;
   bool_t BgL_seenzf3zf3;
} *BgL_valloczf2cinfozb2optimz40_bglt;


extern obj_t BGl_vrefz00zzast_nodez00;
BGL_EXPORTED_DECL bool_t BGl_valloczf2Cinfozb2optimzf3zb3zzcfa_info3z00(obj_t);
static obj_t BGl__makezd2vsetz12zf2Cinfoz32zzcfa_info3z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzcfa_info3z00();
BGL_EXPORTED_DECL BgL_isazf2cinfozf2_bglt BGl_fillzd2isazf2Cinfoz12z32zzcfa_info3z00(BgL_isazf2cinfozf2_bglt, BgL_approxz00_bglt);
static obj_t BGl__fillzd2valloczf2Cinfozb2optimz12z80zzcfa_info3z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__wideningzd2vrefzf2Cinfo5617z20zzcfa_info3z00(obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2valloczf2Cinfoz20zzcfa_info3z00(obj_t);
BGL_EXPORTED_DECL BgL_valloczf2cinfozb2optimz40_bglt BGl_makezd2valloczf2Cinfozb2optimz92zzcfa_info3z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t, BgL_typez00_bglt, BgL_typez00_bglt, BgL_approxz00_bglt, BgL_approxz00_bglt, long, BgL_variablez00_bglt, bool_t, obj_t, bool_t);
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2vsetz12zf2Cinfo4110zb1zzcfa_info3z00(obj_t, obj_t, obj_t);
BGL_IMPORT long BGl_classzd2numzd2zz__objectz00(obj_t);
static obj_t BGl__makezd2setfieldzf2Cinfoz20zzcfa_info3z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_vlengthzf2Cinfozf2zzcfa_info3z00 = BUNSPEC;
BGL_EXPORTED_DECL BgL_vsetz12zf2cinfoze0_bglt BGl_wideningzd2vsetz12zf2Cinfoz32zzcfa_info3z00(BgL_approxz00_bglt, bool_t);
BGL_EXPORTED_DECL bool_t BGl_vsetz12zf2Cinfozf3z13zzcfa_info3z00(obj_t);
BGL_EXPORTED_DECL BgL_vlengthz00_bglt BGl_allocatezd2vlengthzf2Cinfoz20zzcfa_info3z00();
BGL_EXPORTED_DECL BgL_pragmazf2cinfozf2_bglt BGl_fillzd2pragmazf2Cinfoz12z32zzcfa_info3z00(BgL_pragmazf2cinfozf2_bglt, BgL_approxz00_bglt);
static obj_t BGl_structzb2objectzd2ze3objectzd2valloczf2Cinfo4097za3zzcfa_info3z00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_pragmaz00_bglt BGl_allocatezd2pragmazf2Cinfoz20zzcfa_info3z00();
static obj_t BGl__makezd2valloczf2Cinfozb2optimz92zzcfa_info3z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__makezd2vrefzf2Cinfoz20zzcfa_info3z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2setfieldzf2Cinfo4125z11zzcfa_info3z00(obj_t, obj_t);
static obj_t BGl__wideningzd2getfieldzf2Cinfo5637z20zzcfa_info3z00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_getfieldzf2cinfozf2_bglt BGl_fillzd2getfieldzf2Cinfoz12z32zzcfa_info3z00(BgL_getfieldzf2cinfozf2_bglt, BgL_approxz00_bglt);
BGL_IMPORT obj_t BGl_objectzd2ze3structz31zz__objectz00(BgL_objectz00_bglt);
BGL_EXPORTED_DECL BgL_vrefz00_bglt BGl_allocatezd2vrefzf2Cinfoz20zzcfa_info3z00();
BGL_EXPORTED_DECL BgL_vsetz12z12_bglt BGl_allocatezd2vsetz12zf2Cinfoz32zzcfa_info3z00();
BGL_EXPORTED_DEF obj_t BGl_vrefzf2Cinfozf2zzcfa_info3z00 = BUNSPEC;
static obj_t BGl__getfieldzf2Cinfozf3z01zzcfa_info3z00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_valloczf2Cinfozf2zzcfa_info3z00 = BUNSPEC;
extern obj_t BGl_pragmaz00zzast_nodez00;
BGL_IMPORT obj_t BGl_registerzd2classz12zc0zz__objectz00(obj_t, obj_t, obj_t, obj_t, long, obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2vlengthzf2Cinfo4104z11zzcfa_info3z00(obj_t, obj_t);
static obj_t BGl__allocatezd2prezd2valloczf2Cinfozf2zzcfa_info3z00(obj_t);
static obj_t BGl__fillzd2getfieldzf2Cinfoz12z32zzcfa_info3z00(obj_t, obj_t, obj_t);
static obj_t BGl__fillzd2isazf2Cinfoz12z32zzcfa_info3z00(obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2vsetz12zf2Cinfo4108z03zzcfa_info3z00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_getfieldz00_bglt BGl_allocatezd2getfieldzf2Cinfoz20zzcfa_info3z00();
static obj_t BGl__vsetz12zf2Cinfozf3z13zzcfa_info3z00(obj_t, obj_t);
static obj_t BGl__makezd2newzf2Cinfoz20zzcfa_info3z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2valloczf2Cinfo4095z11zzcfa_info3z00(obj_t, obj_t);
static obj_t BGl__makezd2valloczf2Cinfoz20zzcfa_info3z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_isazf2cinfozf2_bglt BGl_wideningzd2isazf2Cinfoz20zzcfa_info3z00(BgL_approxz00_bglt);
static obj_t BGl_objectzd2ze3structzd2vrefzf2Cinfo4112z11zzcfa_info3z00(obj_t, obj_t);
static obj_t BGl__allocatezd2setfieldzf2Cinfoz20zzcfa_info3z00(obj_t);
static obj_t BGl__allocatezd2vsetz12zf2Cinfoz32zzcfa_info3z00(obj_t);
BGL_EXPORTED_DECL BgL_vrefzf2cinfozf2_bglt BGl_wideningzd2vrefzf2Cinfoz20zzcfa_info3z00(BgL_approxz00_bglt, bool_t);
extern BgL_newz00_bglt BGl_makezd2newzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2isazf2Cinfo4116z11zzcfa_info3z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_setfieldzf2Cinfozf3z01zzcfa_info3z00(obj_t);
BGL_EXPORTED_DECL BgL_pragmazf2cinfozf2_bglt BGl_makezd2pragmazf2Cinfoz20zzcfa_info3z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t, BgL_approxz00_bglt);
static obj_t BGl_cnstzd2initzd2zzcfa_info3z00();
static obj_t BGl__allocatezd2isazf2Cinfoz20zzcfa_info3z00(obj_t);
BGL_EXPORTED_DECL BgL_pragmazf2cinfozf2_bglt BGl_wideningzd2pragmazf2Cinfoz20zzcfa_info3z00(BgL_approxz00_bglt);
static obj_t BGl_objectzd2ze3structzd2valloczf2Cinfozb2optim4090za3zzcfa_info3z00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_prezd2valloczf2Cinfoz20zzcfa_info3z00 = BUNSPEC;
BGL_EXPORTED_DECL BgL_prezd2valloczf2cinfoz20_bglt BGl_makezd2prezd2valloczf2Cinfozf2zzcfa_info3z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t, BgL_typez00_bglt, BgL_typez00_bglt, BgL_variablez00_bglt);
static obj_t BGl__fillzd2vrefzf2Cinfoz12z32zzcfa_info3z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzcfa_info3z00();
static obj_t BGl_objectzd2ze3structzd2newzf2Cinfo4121z11zzcfa_info3z00(obj_t, obj_t);
BGL_IMPORT obj_t make_struct(obj_t, int, obj_t);
extern BgL_setfieldz00_bglt BGl_makezd2setfieldzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t, BgL_typez00_bglt, BgL_typez00_bglt);
BGL_EXPORTED_DECL BgL_vallocz00_bglt BGl_allocatezd2valloczf2Cinfoz20zzcfa_info3z00();
BGL_EXPORTED_DECL BgL_newzf2cinfozf2_bglt BGl_makezd2newzf2Cinfoz20zzcfa_info3z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, BgL_approxz00_bglt);
extern obj_t BGl_getfieldz00zzast_nodez00;
extern obj_t BGl_isaz00zzast_nodez00;
BGL_EXPORTED_DECL BgL_isaz00_bglt BGl_allocatezd2isazf2Cinfoz20zzcfa_info3z00();
BGL_EXPORTED_DECL bool_t BGl_valloczf2Cinfozf3z01zzcfa_info3z00(obj_t);
BGL_EXPORTED_DEF obj_t BGl_newzf2Cinfozf2zzcfa_info3z00 = BUNSPEC;
static obj_t BGl__wideningzd2vlengthzf2Cinfo5607z20zzcfa_info3z00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
extern BgL_vlengthz00_bglt BGl_makezd2vlengthzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t, BgL_typez00_bglt);
static obj_t BGl__valloczf2Cinfozf3z01zzcfa_info3z00(obj_t, obj_t);
static obj_t BGl__fillzd2vsetz12zf2Cinfoz12z20zzcfa_info3z00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_getfieldzf2cinfozf2_bglt BGl_wideningzd2getfieldzf2Cinfoz20zzcfa_info3z00(BgL_approxz00_bglt);
BGL_EXPORTED_DECL bool_t BGl_isazf2Cinfozf3z01zzcfa_info3z00(obj_t);
BGL_EXPORTED_DEF obj_t BGl_pragmazf2Cinfozf2zzcfa_info3z00 = BUNSPEC;
static obj_t BGl__wideningzd2valloczf2Cinfozb2optim5592z92zzcfa_info3z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__makezd2vlengthzf2Cinfoz20zzcfa_info3z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2getfieldzf2Cinfo4129z11zzcfa_info3z00(obj_t, obj_t);
extern obj_t BGl_vallocz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzcfa_info3z00();
static obj_t BGl__fillzd2valloczf2Cinfoz12z32zzcfa_info3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_vsetz12zf2cinfoze0_bglt BGl_makezd2vsetz12zf2Cinfoz32zzcfa_info3z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t, BgL_typez00_bglt, BgL_typez00_bglt, BgL_typez00_bglt, BgL_approxz00_bglt, bool_t);
static obj_t BGl__wideningzd2prezd2valloczf2Cinfo5602zf2zzcfa_info3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzcfa_info3z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_infoz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
static obj_t BGl__fillzd2newzf2Cinfoz12z32zzcfa_info3z00(obj_t, obj_t, obj_t);
static obj_t BGl__makezd2pragmazf2Cinfoz20zzcfa_info3z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__wideningzd2pragmazf2Cinfo5642z20zzcfa_info3z00(obj_t, obj_t);
static obj_t BGl__wideningzd2setfieldzf2Cinfo5632z20zzcfa_info3z00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_vsetz12zf2Cinfoze0zzcfa_info3z00 = BUNSPEC;
static obj_t BGl_structzb2objectzd2ze3objectzd2vlengthzf2Cinfo4106za3zzcfa_info3z00(obj_t, obj_t, obj_t);
static obj_t BGl__newzf2Cinfozf3z01zzcfa_info3z00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_setfieldzf2Cinfozf2zzcfa_info3z00 = BUNSPEC;
BGL_EXPORTED_DECL BgL_valloczf2cinfozf2_bglt BGl_makezd2valloczf2Cinfoz20zzcfa_info3z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t, BgL_typez00_bglt, BgL_typez00_bglt, BgL_approxz00_bglt);
extern BgL_pragmaz00_bglt BGl_makezd2pragmazd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_vlengthzf2Cinfozf3z01zzcfa_info3z00(obj_t);
static obj_t BGl__setfieldzf2Cinfozf3z01zzcfa_info3z00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_valloczf2cinfozf2_bglt BGl_fillzd2valloczf2Cinfoz12z32zzcfa_info3z00(BgL_valloczf2cinfozf2_bglt, BgL_approxz00_bglt);
static obj_t BGl__wideningzd2newzf2Cinfo5627z20zzcfa_info3z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_vrefzf2Cinfozf3z01zzcfa_info3z00(obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2setfieldzf2Cinfo4127za3zzcfa_info3z00(obj_t, obj_t, obj_t);
static obj_t BGl__makezd2isazf2Cinfoz20zzcfa_info3z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT BgL_objectz00_bglt BGl_structzb2objectzd2ze3objectz83zz__objectz00(BgL_objectz00_bglt, obj_t);
BGL_EXPORTED_DECL BgL_vallocz00_bglt BGl_allocatezd2valloczf2Cinfozb2optimz92zzcfa_info3z00();
static obj_t BGl_structzb2objectzd2ze3objectzd2vrefzf2Cinfo4114za3zzcfa_info3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_valloczf2cinfozf2_bglt BGl_wideningzd2valloczf2Cinfoz20zzcfa_info3z00(BgL_approxz00_bglt);
BGL_EXPORTED_DECL BgL_vlengthzf2cinfozf2_bglt BGl_makezd2vlengthzf2Cinfoz20zzcfa_info3z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t, BgL_typez00_bglt, BgL_approxz00_bglt, bool_t);
BGL_EXPORTED_DECL BgL_vsetz12zf2cinfoze0_bglt BGl_fillzd2vsetz12zf2Cinfoz12z20zzcfa_info3z00(BgL_vsetz12zf2cinfoze0_bglt, BgL_approxz00_bglt, bool_t);
BGL_EXPORTED_DECL BgL_newzf2cinfozf2_bglt BGl_fillzd2newzf2Cinfoz12z32zzcfa_info3z00(BgL_newzf2cinfozf2_bglt, BgL_approxz00_bglt);
static obj_t BGl_structzb2objectzd2ze3objectzd2newzf2Cinfo4123za3zzcfa_info3z00(obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2pragmazf2Cinfoz20zzcfa_info3z00(obj_t);
static obj_t BGl__wideningzd2valloczf2Cinfo5597z20zzcfa_info3z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_getfieldzf2Cinfozf3z01zzcfa_info3z00(obj_t);
static obj_t BGl__allocatezd2valloczf2Cinfozb2optimz92zzcfa_info3z00(obj_t);
static obj_t BGl__wideningzd2vsetz12zf2Cinfo5612z32zzcfa_info3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_valloczf2cinfozb2optimz40_bglt BGl_fillzd2valloczf2Cinfozb2optimz12z80zzcfa_info3z00(BgL_valloczf2cinfozb2optimz40_bglt, BgL_approxz00_bglt, BgL_approxz00_bglt, long, BgL_variablez00_bglt, bool_t, obj_t, bool_t);
BGL_EXPORTED_DECL BgL_setfieldzf2cinfozf2_bglt BGl_fillzd2setfieldzf2Cinfoz12z32zzcfa_info3z00(BgL_setfieldzf2cinfozf2_bglt, BgL_approxz00_bglt);
extern obj_t BGl_newz00zzast_nodez00;
BGL_EXPORTED_DECL BgL_setfieldzf2cinfozf2_bglt BGl_wideningzd2setfieldzf2Cinfoz20zzcfa_info3z00(BgL_approxz00_bglt);
BGL_EXPORTED_DECL BgL_vallocz00_bglt BGl_allocatezd2prezd2valloczf2Cinfozf2zzcfa_info3z00();
BGL_EXPORTED_DECL BgL_vrefzf2cinfozf2_bglt BGl_makezd2vrefzf2Cinfoz20zzcfa_info3z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t, BgL_typez00_bglt, BgL_typez00_bglt, BgL_typez00_bglt, BgL_approxz00_bglt, bool_t);
static obj_t BGl__fillzd2prezd2valloczf2Cinfoz12ze0zzcfa_info3z00(obj_t, obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2pragmazf2Cinfo4135za3zzcfa_info3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_prezd2valloczf2cinfoz20_bglt BGl_fillzd2prezd2valloczf2Cinfoz12ze0zzcfa_info3z00(BgL_prezd2valloczf2cinfoz20_bglt, BgL_variablez00_bglt);
static obj_t BGl__isazf2Cinfozf3z01zzcfa_info3z00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_prezd2valloczf2cinfoz20_bglt BGl_wideningzd2prezd2valloczf2Cinfozf2zzcfa_info3z00(BgL_variablez00_bglt);
static obj_t BGl__fillzd2setfieldzf2Cinfoz12z32zzcfa_info3z00(obj_t, obj_t, obj_t);
static obj_t BGl__pragmazf2Cinfozf3z01zzcfa_info3z00(obj_t, obj_t);
extern BgL_vsetz12z12_bglt BGl_makezd2vsetz12zc0zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t, BgL_typez00_bglt, BgL_typez00_bglt, BgL_typez00_bglt);
BGL_EXPORTED_DECL BgL_valloczf2cinfozb2optimz40_bglt BGl_wideningzd2valloczf2Cinfozb2optimz92zzcfa_info3z00(BgL_approxz00_bglt, BgL_approxz00_bglt, long, BgL_variablez00_bglt, bool_t, obj_t, bool_t);
BGL_EXPORTED_DECL BgL_vlengthzf2cinfozf2_bglt BGl_fillzd2vlengthzf2Cinfoz12z32zzcfa_info3z00(BgL_vlengthzf2cinfozf2_bglt, BgL_approxz00_bglt, bool_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2prezd2valloczf2Cinfo4101z71zzcfa_info3z00(obj_t, obj_t, obj_t);
static obj_t BGl__fillzd2vlengthzf2Cinfoz12z32zzcfa_info3z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__wideningzd2isazf2Cinfo5622z20zzcfa_info3z00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_valloczf2Cinfozb2optimz40zzcfa_info3z00 = BUNSPEC;
static obj_t BGl__makezd2getfieldzf2Cinfoz20zzcfa_info3z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__vlengthzf2Cinfozf3z01zzcfa_info3z00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_getfieldzf2cinfozf2_bglt BGl_makezd2getfieldzf2Cinfoz20zzcfa_info3z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t, BgL_typez00_bglt, BgL_typez00_bglt, BgL_approxz00_bglt);
static obj_t BGl__fillzd2pragmazf2Cinfoz12z32zzcfa_info3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_newzf2cinfozf2_bglt BGl_wideningzd2newzf2Cinfoz20zzcfa_info3z00(BgL_approxz00_bglt);
extern obj_t BGl_vlengthz00zzast_nodez00;
static obj_t BGl_structzb2objectzd2ze3objectzd2valloczf2Cinfozb2optim4093z11zzcfa_info3z00(obj_t, obj_t, obj_t);
extern BgL_getfieldz00_bglt BGl_makezd2getfieldzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t, BgL_typez00_bglt, BgL_typez00_bglt);
BGL_EXPORTED_DECL BgL_isazf2cinfozf2_bglt BGl_makezd2isazf2Cinfoz20zzcfa_info3z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, BgL_typez00_bglt, BgL_approxz00_bglt);
extern BgL_vrefz00_bglt BGl_makezd2vrefzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t, BgL_typez00_bglt, BgL_typez00_bglt, BgL_typez00_bglt);
BGL_EXPORTED_DECL BgL_vrefzf2cinfozf2_bglt BGl_fillzd2vrefzf2Cinfoz12z32zzcfa_info3z00(BgL_vrefzf2cinfozf2_bglt, BgL_approxz00_bglt, bool_t);
extern obj_t BGl_setfieldz00zzast_nodez00;
BGL_EXPORTED_DEF obj_t BGl_isazf2Cinfozf2zzcfa_info3z00 = BUNSPEC;
BGL_EXPORTED_DEF obj_t BGl_getfieldzf2Cinfozf2zzcfa_info3z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_prezd2valloczf2Cinfozf3zd3zzcfa_info3z00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_newzf2Cinfozf3z01zzcfa_info3z00(obj_t);
static obj_t BGl__allocatezd2vrefzf2Cinfoz20zzcfa_info3z00(obj_t);
static obj_t BGl_objectzd2initzd2zzcfa_info3z00();
BGL_EXPORTED_DECL BgL_vlengthzf2cinfozf2_bglt BGl_wideningzd2vlengthzf2Cinfoz20zzcfa_info3z00(BgL_approxz00_bglt, bool_t);
static obj_t BGl_requirezd2initializa7ationz75zzcfa_info3z00 = BUNSPEC;
extern BgL_vallocz00_bglt BGl_makezd2valloczd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t, BgL_typez00_bglt, BgL_typez00_bglt);
BGL_EXPORTED_DECL bool_t BGl_pragmazf2Cinfozf3z01zzcfa_info3z00(obj_t);
static obj_t BGl__allocatezd2newzf2Cinfoz20zzcfa_info3z00(obj_t);
static obj_t BGl__makezd2prezd2valloczf2Cinfozf2zzcfa_info3z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__vrefzf2Cinfozf3z01zzcfa_info3z00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_setfieldz00_bglt BGl_allocatezd2setfieldzf2Cinfoz20zzcfa_info3z00();
BGL_EXPORTED_DECL BgL_setfieldzf2cinfozf2_bglt BGl_makezd2setfieldzf2Cinfoz20zzcfa_info3z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, obj_t, BgL_typez00_bglt, BgL_typez00_bglt, BgL_approxz00_bglt);
static obj_t BGl__prezd2valloczf2Cinfozf3zd3zzcfa_info3z00(obj_t, obj_t);
static obj_t BGl__allocatezd2vlengthzf2Cinfoz20zzcfa_info3z00(obj_t);
extern BgL_isaz00_bglt BGl_makezd2isazd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, obj_t, BgL_typez00_bglt);
static obj_t BGl__allocatezd2getfieldzf2Cinfoz20zzcfa_info3z00(obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzcfa_info3z00();
static obj_t BGl_structzb2objectzd2ze3objectzd2isazf2Cinfo4119za3zzcfa_info3z00(obj_t, obj_t, obj_t);
extern obj_t BGl_vsetz12z12zzast_nodez00;
static obj_t BGl_objectzd2ze3structzd2pragmazf2Cinfo4133z11zzcfa_info3z00(obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2prezd2valloczf2Cinfo4099zc3zzcfa_info3z00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_newz00_bglt BGl_allocatezd2newzf2Cinfoz20zzcfa_info3z00();
BGL_IMPORT obj_t BGl_findzd2superzd2classzd2methodzd2zz__objectz00(BgL_objectz00_bglt, obj_t, obj_t);
static obj_t BGl__valloczf2Cinfozb2optimzf3zb3zzcfa_info3z00(obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2getfieldzf2Cinfo4131za3zzcfa_info3z00(obj_t, obj_t, obj_t);
static obj_t __cnst[ 11 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_fillzd2vrefzf2Cinfoz12zd2envze0zzcfa_info3z00, BgL_bgl__fillza7d2vrefza7f2cinfoza712za732za7za7cfa_info3za7006335za7, BGl__fillzd2vrefzf2Cinfoz12z32zzcfa_info3z00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_newzf2Cinfozf3zd2envzd3zzcfa_info3z00, BgL_bgl__newza7f2cinfoza7f3za701za7za7cfa_info3za7006336z00, BGl__newzf2Cinfozf3z01zzcfa_info3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2valloczf2Cinfoz12zd2envze0zzcfa_info3z00, BgL_bgl__fillza7d2vallocza7f2cinfoza712za732za7za7cfa_info3za7006337za7, BGl__fillzd2valloczf2Cinfoz12z32zzcfa_info3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2prezd2valloczf2Cinfozd2envz20zzcfa_info3z00, BgL_bgl__wideningza7d2preza7d2vallocza7f2cinfo5602za7f2za7za7cfa_info3za7006338za7, BGl__wideningzd2prezd2valloczf2Cinfo5602zf2zzcfa_info3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2isazf2Cinfoz12zd2envze0zzcfa_info3z00, BgL_bgl__fillza7d2isaza7f2cinfoza712za732za7za7cfa_info3za7006339za7, BGl__fillzd2isazf2Cinfoz12z32zzcfa_info3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_setfieldzf2Cinfozf3zd2envzd3zzcfa_info3z00, BgL_bgl__setfieldza7f2cinfoza7f3za701za7za7cfa_info3za7006340z00, BGl__setfieldzf2Cinfozf3z01zzcfa_info3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2isazf2Cinfozd2envzf2zzcfa_info3z00, BgL_bgl__wideningza7d2isaza7f2cinfo5622za720za7za7cfa_info3za7006341z00, BGl__wideningzd2isazf2Cinfo5622z20zzcfa_info3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2prezd2valloczf2Cinfozd2envz20zzcfa_info3z00, BgL_bgl__makeza7d2preza7d2vallocza7f2cinfoza7f2za7za7cfa_info3za7006342za7, BGl__makezd2prezd2valloczf2Cinfozf2zzcfa_info3z00, 0L, 10 );
BGL_IMPORT obj_t BGl_objectzd2ze3structzd2envze3zz__objectz00;
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2getfieldzf2Cinfozd2envzf2zzcfa_info3z00, BgL_bgl__allocateza7d2getfieldza7f2cinfoza720za7za7cfa_info3za7006343z00, BGl__allocatezd2getfieldzf2Cinfoz20zzcfa_info3z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2vrefzf2Cinfozd2envzf2zzcfa_info3z00, BgL_bgl__wideningza7d2vrefza7f2cinfo5617za720za7za7cfa_info3za7006344z00, BGl__wideningzd2vrefzf2Cinfo5617z20zzcfa_info3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2pragmazf2Cinfozd2envzf2zzcfa_info3z00, BgL_bgl__wideningza7d2pragmaza7f2cinfo5642za720za7za7cfa_info3za7006345z00, BGl__wideningzd2pragmazf2Cinfo5642z20zzcfa_info3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2setfieldzf2Cinfozd2envzf2zzcfa_info3z00, BgL_bgl__makeza7d2setfieldza7f2cinfoza720za7za7cfa_info3za7006346z00, BGl__makezd2setfieldzf2Cinfoz20zzcfa_info3z00, 0L, 10 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2setfieldzf2Cinfozd2envzf2zzcfa_info3z00, BgL_bgl__allocateza7d2setfieldza7f2cinfoza720za7za7cfa_info3za7006347z00, BGl__allocatezd2setfieldzf2Cinfoz20zzcfa_info3z00, 0L, 0 );
DEFINE_STRING( BGl_string6286z00zzcfa_info3z00, BgL_bgl_string6286za700za7za7cfa_info3za7006348z00, "valloc/Cinfo+optim valloc/Cinfo pre-valloc/Cinfo vlength/Cinfo vset!/Cinfo vref/Cinfo isa/Cinfo new/Cinfo setfield/Cinfo getfield/Cinfo pragma/Cinfo ", 149 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2getfieldzf2Cinfozd2envzf2zzcfa_info3z00, BgL_bgl__wideningza7d2getfieldza7f2cinfo5637za720za7za7cfa_info3za7006349z00, BGl__wideningzd2getfieldzf2Cinfo5637z20zzcfa_info3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2newzf2Cinfozd2envzf2zzcfa_info3z00, BgL_bgl__wideningza7d2newza7f2cinfo5627za720za7za7cfa_info3za7006350z00, BGl__wideningzd2newzf2Cinfo5627z20zzcfa_info3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2newzf2Cinfoz12zd2envze0zzcfa_info3z00, BgL_bgl__fillza7d2newza7f2cinfoza712za732za7za7cfa_info3za7006351za7, BGl__fillzd2newzf2Cinfoz12z32zzcfa_info3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2pragmazf2Cinfoz12zd2envze0zzcfa_info3z00, BgL_bgl__fillza7d2pragmaza7f2cinfoza712za732za7za7cfa_info3za7006352za7, BGl__fillzd2pragmazf2Cinfoz12z32zzcfa_info3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2pragmazf2Cinfozd2envzf2zzcfa_info3z00, BgL_bgl__allocateza7d2pragmaza7f2cinfoza720za7za7cfa_info3za7006353z00, BGl__allocatezd2pragmazf2Cinfoz20zzcfa_info3z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_isazf2Cinfozf3zd2envzd3zzcfa_info3z00, BgL_bgl__isaza7f2cinfoza7f3za701za7za7cfa_info3za7006354z00, BGl__isazf2Cinfozf3z01zzcfa_info3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_vrefzf2Cinfozf3zd2envzd3zzcfa_info3z00, BgL_bgl__vrefza7f2cinfoza7f3za701za7za7cfa_info3za7006355z00, BGl__vrefzf2Cinfozf3z01zzcfa_info3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_getfieldzf2Cinfozf3zd2envzd3zzcfa_info3z00, BgL_bgl__getfieldza7f2cinfoza7f3za701za7za7cfa_info3za7006356z00, BGl__getfieldzf2Cinfozf3z01zzcfa_info3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2vsetz12zf2Cinfozd2envze0zzcfa_info3z00, BgL_bgl__wideningza7d2vsetza712za7f2cinfo5612za732za7za7cfa_info3za7006357za7, BGl__wideningzd2vsetz12zf2Cinfo5612z32zzcfa_info3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2vsetz12zf2Cinfoz12zd2envzf2zzcfa_info3z00, BgL_bgl__fillza7d2vsetza712za7f2cinfoza712za720za7za7cfa_info3za7006358z00, BGl__fillzd2vsetz12zf2Cinfoz12z20zzcfa_info3z00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2setfieldzf2Cinfozd2envzf2zzcfa_info3z00, BgL_bgl__wideningza7d2setfieldza7f2cinfo5632za720za7za7cfa_info3za7006359z00, BGl__wideningzd2setfieldzf2Cinfo5632z20zzcfa_info3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2prezd2valloczf2Cinfoz12zd2envz32zzcfa_info3z00, BgL_bgl__fillza7d2preza7d2vallocza7f2cinfoza712za7e0za7za7cfa_info3za7006360z00, BGl__fillzd2prezd2valloczf2Cinfoz12ze0zzcfa_info3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2vlengthzf2Cinfoz12zd2envze0zzcfa_info3z00, BgL_bgl__fillza7d2vlengthza7f2cinfoza712za732za7za7cfa_info3za7006361za7, BGl__fillzd2vlengthzf2Cinfoz12z32zzcfa_info3z00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_valloczf2Cinfozb2optimzf3zd2envz61zzcfa_info3z00, BgL_bgl__vallocza7f2cinfoza7b2optimza7f3za7b3za7za7cfa_info3za7006362za7, BGl__valloczf2Cinfozb2optimzf3zb3zzcfa_info3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2getfieldzf2Cinfozd2envzf2zzcfa_info3z00, BgL_bgl__makeza7d2getfieldza7f2cinfoza720za7za7cfa_info3za7006363z00, BGl__makezd2getfieldzf2Cinfoz20zzcfa_info3z00, 0L, 10 );
DEFINE_EXPORT_PROCEDURE( BGl_vlengthzf2Cinfozf3zd2envzd3zzcfa_info3z00, BgL_bgl__vlengthza7f2cinfoza7f3za701za7za7cfa_info3za7006364z00, BGl__vlengthzf2Cinfozf3z01zzcfa_info3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2vrefzf2Cinfozd2envzf2zzcfa_info3z00, BgL_bgl__allocateza7d2vrefza7f2cinfoza720za7za7cfa_info3za7006365z00, BGl__allocatezd2vrefzf2Cinfoz20zzcfa_info3z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2vsetz12zf2Cinfozd2envze0zzcfa_info3z00, BgL_bgl__allocateza7d2vsetza712za7f2cinfoza732za7za7cfa_info3za7006366za7, BGl__allocatezd2vsetz12zf2Cinfoz32zzcfa_info3z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2vsetz12zf2Cinfozd2envze0zzcfa_info3z00, BgL_bgl__makeza7d2vsetza712za7f2cinfoza732za7za7cfa_info3za7006367za7, BGl__makezd2vsetz12zf2Cinfoz32zzcfa_info3z00, 0L, 12 );
DEFINE_EXPORT_PROCEDURE( BGl_vsetz12zf2Cinfozf3zd2envzc1zzcfa_info3z00, BgL_bgl__vsetza712za7f2cinfoza7f3za713za7za7cfa_info3za7006368za7, BGl__vsetz12zf2Cinfozf3z13zzcfa_info3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_pragmazf2Cinfozf3zd2envzd3zzcfa_info3z00, BgL_bgl__pragmaza7f2cinfoza7f3za701za7za7cfa_info3za7006369z00, BGl__pragmazf2Cinfozf3z01zzcfa_info3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2vrefzf2Cinfozd2envzf2zzcfa_info3z00, BgL_bgl__makeza7d2vrefza7f2cinfoza720za7za7cfa_info3za7006370z00, BGl__makezd2vrefzf2Cinfoz20zzcfa_info3z00, 0L, 12 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2valloczf2Cinfozb2optimz12zd2envz52zzcfa_info3z00, BgL_bgl__fillza7d2vallocza7f2cinfoza7b2optimza712za780za7za7cfa_info3za7006371z00, BGl__fillzd2valloczf2Cinfozb2optimz12z80zzcfa_info3z00, 0L, 8 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2valloczf2Cinfozb2optimzd2envz40zzcfa_info3z00, BgL_bgl__makeza7d2vallocza7f2cinfoza7b2optimza792za7za7cfa_info3za7006372za7, BGl__makezd2valloczf2Cinfozb2optimz92zzcfa_info3z00, 0L, 16 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2vlengthzf2Cinfozd2envzf2zzcfa_info3z00, BgL_bgl__makeza7d2vlengthza7f2cinfoza720za7za7cfa_info3za7006373z00, BGl__makezd2vlengthzf2Cinfoz20zzcfa_info3z00, 0L, 10 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2valloczf2Cinfozd2envzf2zzcfa_info3z00, BgL_bgl__wideningza7d2vallocza7f2cinfo5597za720za7za7cfa_info3za7006374z00, BGl__wideningzd2valloczf2Cinfo5597z20zzcfa_info3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2valloczf2Cinfozb2optimzd2envz40zzcfa_info3z00, BgL_bgl__wideningza7d2vallocza7f2cinfoza7b2optim5592za792za7za7cfa_info3za7006375za7, BGl__wideningzd2valloczf2Cinfozb2optim5592z92zzcfa_info3z00, 0L, 7 );
DEFINE_STATIC_PROCEDURE( BGl_proc6264z00zzcfa_info3z00, BgL_bgl_objectza7d2za7e3structza7d2vallocza7f2cinfoza7b2optim4090za7a3za7za7cfa_info3za7006376za7, BGl_objectzd2ze3structzd2valloczf2Cinfozb2optim4090za3zzcfa_info3z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6265z00zzcfa_info3z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2vallocza7f2cinfoza7b2optim4093za711za7za7cfa_info3za7006377z00, BGl_structzb2objectzd2ze3objectzd2valloczf2Cinfozb2optim4093z11zzcfa_info3z00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6266z00zzcfa_info3z00, BgL_bgl_objectza7d2za7e3structza7d2vallocza7f2cinfo4095za711za7za7cfa_info3za7006378z00, BGl_objectzd2ze3structzd2valloczf2Cinfo4095z11zzcfa_info3z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6267z00zzcfa_info3z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2vallocza7f2cinfo4097za7a3za7za7cfa_info3za7006379za7, BGl_structzb2objectzd2ze3objectzd2valloczf2Cinfo4097za3zzcfa_info3z00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6268z00zzcfa_info3z00, BgL_bgl_objectza7d2za7e3structza7d2preza7d2vallocza7f2cinfo4099za7c3za7za7cfa_info3za7006380za7, BGl_objectzd2ze3structzd2prezd2valloczf2Cinfo4099zc3zzcfa_info3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_valloczf2Cinfozf3zd2envzd3zzcfa_info3z00, BgL_bgl__vallocza7f2cinfoza7f3za701za7za7cfa_info3za7006381z00, BGl__valloczf2Cinfozf3z01zzcfa_info3z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6270z00zzcfa_info3z00, BgL_bgl_objectza7d2za7e3structza7d2vlengthza7f2cinfo4104za711za7za7cfa_info3za7006382z00, BGl_objectzd2ze3structzd2vlengthzf2Cinfo4104z11zzcfa_info3z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6269z00zzcfa_info3z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2preza7d2vallocza7f2cinfo4101za771za7za7cfa_info3za7006383z00, BGl_structzb2objectzd2ze3objectzd2prezd2valloczf2Cinfo4101z71zzcfa_info3z00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6271z00zzcfa_info3z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2vlengthza7f2cinfo4106za7a3za7za7cfa_info3za7006384za7, BGl_structzb2objectzd2ze3objectzd2vlengthzf2Cinfo4106za3zzcfa_info3z00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6272z00zzcfa_info3z00, BgL_bgl_objectza7d2za7e3structza7d2vsetza712za7f2cinfo4108za703za7za7cfa_info3za7006385za7, BGl_objectzd2ze3structzd2vsetz12zf2Cinfo4108z03zzcfa_info3z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6273z00zzcfa_info3z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2vsetza712za7f2cinfo4110za7b1za7za7cfa_info3za7006386z00, BGl_structzb2objectzd2ze3objectzd2vsetz12zf2Cinfo4110zb1zzcfa_info3z00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6274z00zzcfa_info3z00, BgL_bgl_objectza7d2za7e3structza7d2vrefza7f2cinfo4112za711za7za7cfa_info3za7006387z00, BGl_objectzd2ze3structzd2vrefzf2Cinfo4112z11zzcfa_info3z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6275z00zzcfa_info3z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2vrefza7f2cinfo4114za7a3za7za7cfa_info3za7006388za7, BGl_structzb2objectzd2ze3objectzd2vrefzf2Cinfo4114za3zzcfa_info3z00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6276z00zzcfa_info3z00, BgL_bgl_objectza7d2za7e3structza7d2isaza7f2cinfo4116za711za7za7cfa_info3za7006389z00, BGl_objectzd2ze3structzd2isazf2Cinfo4116z11zzcfa_info3z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6277z00zzcfa_info3z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2isaza7f2cinfo4119za7a3za7za7cfa_info3za7006390za7, BGl_structzb2objectzd2ze3objectzd2isazf2Cinfo4119za3zzcfa_info3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2isazf2Cinfozd2envzf2zzcfa_info3z00, BgL_bgl__makeza7d2isaza7f2cinfoza720za7za7cfa_info3za7006391z00, BGl__makezd2isazf2Cinfoz20zzcfa_info3z00, 0L, 8 );
DEFINE_STATIC_PROCEDURE( BGl_proc6278z00zzcfa_info3z00, BgL_bgl_objectza7d2za7e3structza7d2newza7f2cinfo4121za711za7za7cfa_info3za7006392z00, BGl_objectzd2ze3structzd2newzf2Cinfo4121z11zzcfa_info3z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6280z00zzcfa_info3z00, BgL_bgl_objectza7d2za7e3structza7d2setfieldza7f2cinfo4125za711za7za7cfa_info3za7006393z00, BGl_objectzd2ze3structzd2setfieldzf2Cinfo4125z11zzcfa_info3z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6279z00zzcfa_info3z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2newza7f2cinfo4123za7a3za7za7cfa_info3za7006394za7, BGl_structzb2objectzd2ze3objectzd2newzf2Cinfo4123za3zzcfa_info3z00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6281z00zzcfa_info3z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2setfieldza7f2cinfo4127za7a3za7za7cfa_info3za7006395za7, BGl_structzb2objectzd2ze3objectzd2setfieldzf2Cinfo4127za3zzcfa_info3z00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6282z00zzcfa_info3z00, BgL_bgl_objectza7d2za7e3structza7d2getfieldza7f2cinfo4129za711za7za7cfa_info3za7006396z00, BGl_objectzd2ze3structzd2getfieldzf2Cinfo4129z11zzcfa_info3z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6283z00zzcfa_info3z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2getfieldza7f2cinfo4131za7a3za7za7cfa_info3za7006397za7, BGl_structzb2objectzd2ze3objectzd2getfieldzf2Cinfo4131za3zzcfa_info3z00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6284z00zzcfa_info3z00, BgL_bgl_objectza7d2za7e3structza7d2pragmaza7f2cinfo4133za711za7za7cfa_info3za7006398z00, BGl_objectzd2ze3structzd2pragmazf2Cinfo4133z11zzcfa_info3z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6285z00zzcfa_info3z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2pragmaza7f2cinfo4135za7a3za7za7cfa_info3za7006399za7, BGl_structzb2objectzd2ze3objectzd2pragmazf2Cinfo4135za3zzcfa_info3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2vlengthzf2Cinfozd2envzf2zzcfa_info3z00, BgL_bgl__allocateza7d2vlengthza7f2cinfoza720za7za7cfa_info3za7006400z00, BGl__allocatezd2vlengthzf2Cinfoz20zzcfa_info3z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2setfieldzf2Cinfoz12zd2envze0zzcfa_info3z00, BgL_bgl__fillza7d2setfieldza7f2cinfoza712za732za7za7cfa_info3za7006401za7, BGl__fillzd2setfieldzf2Cinfoz12z32zzcfa_info3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2newzf2Cinfozd2envzf2zzcfa_info3z00, BgL_bgl__makeza7d2newza7f2cinfoza720za7za7cfa_info3za7006402z00, BGl__makezd2newzf2Cinfoz20zzcfa_info3z00, 0L, 7 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2valloczf2Cinfozb2optimzd2envz40zzcfa_info3z00, BgL_bgl__allocateza7d2vallocza7f2cinfoza7b2optimza792za7za7cfa_info3za7006403za7, BGl__allocatezd2valloczf2Cinfozb2optimz92zzcfa_info3z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2pragmazf2Cinfozd2envzf2zzcfa_info3z00, BgL_bgl__makeza7d2pragmaza7f2cinfoza720za7za7cfa_info3za7006404z00, BGl__makezd2pragmazf2Cinfoz20zzcfa_info3z00, 0L, 8 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2isazf2Cinfozd2envzf2zzcfa_info3z00, BgL_bgl__allocateza7d2isaza7f2cinfoza720za7za7cfa_info3za7006405z00, BGl__allocatezd2isazf2Cinfoz20zzcfa_info3z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2newzf2Cinfozd2envzf2zzcfa_info3z00, BgL_bgl__allocateza7d2newza7f2cinfoza720za7za7cfa_info3za7006406z00, BGl__allocatezd2newzf2Cinfoz20zzcfa_info3z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2getfieldzf2Cinfoz12zd2envze0zzcfa_info3z00, BgL_bgl__fillza7d2getfieldza7f2cinfoza712za732za7za7cfa_info3za7006407za7, BGl__fillzd2getfieldzf2Cinfoz12z32zzcfa_info3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2prezd2valloczf2Cinfozd2envz20zzcfa_info3z00, BgL_bgl__allocateza7d2preza7d2vallocza7f2cinfoza7f2za7za7cfa_info3za7006408za7, BGl__allocatezd2prezd2valloczf2Cinfozf2zzcfa_info3z00, 0L, 0 );
BGL_IMPORT obj_t BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00;
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2valloczf2Cinfozd2envzf2zzcfa_info3z00, BgL_bgl__allocateza7d2vallocza7f2cinfoza720za7za7cfa_info3za7006409z00, BGl__allocatezd2valloczf2Cinfoz20zzcfa_info3z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2vlengthzf2Cinfozd2envzf2zzcfa_info3z00, BgL_bgl__wideningza7d2vlengthza7f2cinfo5607za720za7za7cfa_info3za7006410z00, BGl__wideningzd2vlengthzf2Cinfo5607z20zzcfa_info3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_prezd2valloczf2Cinfozf3zd2envz01zzcfa_info3z00, BgL_bgl__preza7d2vallocza7f2cinfoza7f3za7d3za7za7cfa_info3za7006411za7, BGl__prezd2valloczf2Cinfozf3zd3zzcfa_info3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2valloczf2Cinfozd2envzf2zzcfa_info3z00, BgL_bgl__makeza7d2vallocza7f2cinfoza720za7za7cfa_info3za7006412z00, BGl__makezd2valloczf2Cinfoz20zzcfa_info3z00, 0L, 10 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzcfa_info3z00(long BgL_checksumz00_3216, char * BgL_fromz00_3217)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzcfa_info3z00))
{ 
BGl_requirezd2initializa7ationz75zzcfa_info3z00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzcfa_info3z00(); 
BGl_cnstzd2initzd2zzcfa_info3z00(); 
BGl_importedzd2moduleszd2initz00zzcfa_info3z00(); 
BGl_objectzd2initzd2zzcfa_info3z00(); 
BGl_methodzd2initzd2zzcfa_info3z00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzcfa_info3z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 16 */
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "cfa_info3"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "cfa_info3"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzcfa_info3z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 16 */
{ /* ./Cfa/cinfo3.scm 16 */
obj_t BgL_cportz00_3017;
BgL_cportz00_3017 = 
open_input_string(BGl_string6286z00zzcfa_info3z00); 
{ 
long BgL_iz00_3018;
BgL_iz00_3018 = ((long)10); 
BgL_loopz00_3019:
{ /* ./Cfa/cinfo3.scm 16 */
bool_t BgL_test6288z00_3020;
BgL_test6288z00_3020 = 
(BgL_iz00_3018==((long)-1)); 
if(BgL_test6288z00_3020)
{ /* ./Cfa/cinfo3.scm 16 */
return BUNSPEC;}  else 
{ /* ./Cfa/cinfo3.scm 16 */
{ /* ./Cfa/cinfo3.scm 16 */
obj_t BgL_arg6290z00_3021;
{ /* ./Cfa/cinfo3.scm 16 */
obj_t BgL_list6293z00_3022;
BgL_list6293z00_3022 = 
MAKE_PAIR(BgL_cportz00_3017, BNIL); 
BgL_arg6290z00_3021 = 
BGl_readz00zz__readerz00(BgL_list6293z00_3022); } 
{ /* ./Cfa/cinfo3.scm 16 */
int BgL_auxz00_3233;
BgL_auxz00_3233 = 
(int)(BgL_iz00_3018); 
CNST_TABLE_SET(BgL_auxz00_3233, BgL_arg6290z00_3021); } } 
{ /* ./Cfa/cinfo3.scm 16 */
int BgL_auxz00_3023;
{ /* ./Cfa/cinfo3.scm 16 */
long BgL_auxz00_3236;
BgL_auxz00_3236 = 
(BgL_iz00_3018-((long)1)); 
BgL_auxz00_3023 = 
(int)(BgL_auxz00_3236); } 
{ 
long BgL_iz00_3239;
BgL_iz00_3239 = 
(long)(BgL_auxz00_3023); 
BgL_iz00_3018 = BgL_iz00_3239; 
goto BgL_loopz00_3019;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzcfa_info3z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 16 */
return BUNSPEC;} 
}



/* object-init */
obj_t BGl_objectzd2initzd2zzcfa_info3z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 16 */
{ /* ./Cfa/cinfo3.scm 25 */
obj_t BgL_arg4137z00_1048;obj_t BgL_arg4138z00_1049;obj_t BgL_arg4142z00_1053;
BgL_arg4137z00_1048 = 
CNST_TABLE_REF(((long)0)); 
BgL_arg4138z00_1049 = BGl_pragmaz00zzast_nodez00; 
{ /* ./Cfa/cinfo3.scm 25 */
obj_t BgL_v4078z00_1054;
{ 
int BgL_auxz00_3242;
BgL_auxz00_3242 = 
(int)(((long)0)); 
BgL_v4078z00_1054 = 
create_vector(BgL_auxz00_3242); } 
BgL_arg4142z00_1053 = BgL_v4078z00_1054; } 
BGl_pragmazf2Cinfozf2zzcfa_info3z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4137z00_1048, BgL_arg4138z00_1049, BFALSE, BGl_allocatezd2pragmazf2Cinfozd2envzf2zzcfa_info3z00, ((long)57374), BNIL, BFALSE, BgL_arg4142z00_1053); } 
{ /* ./Cfa/cinfo3.scm 26 */
obj_t BgL_arg4146z00_1055;obj_t BgL_arg4147z00_1056;obj_t BgL_arg4151z00_1060;
BgL_arg4146z00_1055 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg4147z00_1056 = BGl_getfieldz00zzast_nodez00; 
{ /* ./Cfa/cinfo3.scm 26 */
obj_t BgL_v4079z00_1061;
{ 
int BgL_auxz00_3247;
BgL_auxz00_3247 = 
(int)(((long)0)); 
BgL_v4079z00_1061 = 
create_vector(BgL_auxz00_3247); } 
BgL_arg4151z00_1060 = BgL_v4079z00_1061; } 
BGl_getfieldzf2Cinfozf2zzcfa_info3z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4146z00_1055, BgL_arg4147z00_1056, BFALSE, BGl_allocatezd2getfieldzf2Cinfozd2envzf2zzcfa_info3z00, ((long)53594), BNIL, BFALSE, BgL_arg4151z00_1060); } 
{ /* ./Cfa/cinfo3.scm 27 */
obj_t BgL_arg4155z00_1062;obj_t BgL_arg4156z00_1063;obj_t BgL_arg4160z00_1067;
BgL_arg4155z00_1062 = 
CNST_TABLE_REF(((long)2)); 
BgL_arg4156z00_1063 = BGl_setfieldz00zzast_nodez00; 
{ /* ./Cfa/cinfo3.scm 27 */
obj_t BgL_v4080z00_1068;
{ 
int BgL_auxz00_3252;
BgL_auxz00_3252 = 
(int)(((long)0)); 
BgL_v4080z00_1068 = 
create_vector(BgL_auxz00_3252); } 
BgL_arg4160z00_1067 = BgL_v4080z00_1068; } 
BGl_setfieldzf2Cinfozf2zzcfa_info3z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4155z00_1062, BgL_arg4156z00_1063, BFALSE, BGl_allocatezd2setfieldzf2Cinfozd2envzf2zzcfa_info3z00, ((long)53366), BNIL, BFALSE, BgL_arg4160z00_1067); } 
{ /* ./Cfa/cinfo3.scm 28 */
obj_t BgL_arg4164z00_1069;obj_t BgL_arg4165z00_1070;obj_t BgL_arg4169z00_1074;
BgL_arg4164z00_1069 = 
CNST_TABLE_REF(((long)3)); 
BgL_arg4165z00_1070 = BGl_newz00zzast_nodez00; 
{ /* ./Cfa/cinfo3.scm 28 */
obj_t BgL_v4081z00_1075;
{ 
int BgL_auxz00_3257;
BgL_auxz00_3257 = 
(int)(((long)0)); 
BgL_v4081z00_1075 = 
create_vector(BgL_auxz00_3257); } 
BgL_arg4169z00_1074 = BgL_v4081z00_1075; } 
BGl_newzf2Cinfozf2zzcfa_info3z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4164z00_1069, BgL_arg4165z00_1070, BFALSE, BGl_allocatezd2newzf2Cinfozd2envzf2zzcfa_info3z00, ((long)29576), BNIL, BFALSE, BgL_arg4169z00_1074); } 
{ /* ./Cfa/cinfo3.scm 29 */
obj_t BgL_arg4173z00_1076;obj_t BgL_arg4174z00_1077;obj_t BgL_arg4178z00_1081;
BgL_arg4173z00_1076 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg4174z00_1077 = BGl_isaz00zzast_nodez00; 
{ /* ./Cfa/cinfo3.scm 29 */
obj_t BgL_v4082z00_1082;
{ 
int BgL_auxz00_3262;
BgL_auxz00_3262 = 
(int)(((long)0)); 
BgL_v4082z00_1082 = 
create_vector(BgL_auxz00_3262); } 
BgL_arg4178z00_1081 = BgL_v4082z00_1082; } 
BGl_isazf2Cinfozf2zzcfa_info3z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4173z00_1076, BgL_arg4174z00_1077, BFALSE, BGl_allocatezd2isazf2Cinfozd2envzf2zzcfa_info3z00, ((long)21867), BNIL, BFALSE, BgL_arg4178z00_1081); } 
{ /* ./Cfa/cinfo3.scm 32 */
obj_t BgL_arg4182z00_1083;obj_t BgL_arg4183z00_1084;obj_t BgL_arg4187z00_1088;
BgL_arg4182z00_1083 = 
CNST_TABLE_REF(((long)5)); 
BgL_arg4183z00_1084 = BGl_vrefz00zzast_nodez00; 
{ /* ./Cfa/cinfo3.scm 32 */
obj_t BgL_v4083z00_1089;
{ 
int BgL_auxz00_3267;
BgL_auxz00_3267 = 
(int)(((long)0)); 
BgL_v4083z00_1089 = 
create_vector(BgL_auxz00_3267); } 
BgL_arg4187z00_1088 = BgL_v4083z00_1089; } 
BGl_vrefzf2Cinfozf2zzcfa_info3z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4182z00_1083, BgL_arg4183z00_1084, BFALSE, BGl_allocatezd2vrefzf2Cinfozd2envzf2zzcfa_info3z00, ((long)58519), BNIL, BFALSE, BgL_arg4187z00_1088); } 
{ /* ./Cfa/cinfo3.scm 35 */
obj_t BgL_arg4191z00_1090;obj_t BgL_arg4192z00_1091;obj_t BgL_arg4196z00_1095;
BgL_arg4191z00_1090 = 
CNST_TABLE_REF(((long)6)); 
BgL_arg4192z00_1091 = BGl_vsetz12z12zzast_nodez00; 
{ /* ./Cfa/cinfo3.scm 35 */
obj_t BgL_v4084z00_1096;
{ 
int BgL_auxz00_3272;
BgL_auxz00_3272 = 
(int)(((long)0)); 
BgL_v4084z00_1096 = 
create_vector(BgL_auxz00_3272); } 
BgL_arg4196z00_1095 = BgL_v4084z00_1096; } 
BGl_vsetz12zf2Cinfoze0zzcfa_info3z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4191z00_1090, BgL_arg4192z00_1091, BFALSE, BGl_allocatezd2vsetz12zf2Cinfozd2envze0zzcfa_info3z00, ((long)48615), BNIL, BFALSE, BgL_arg4196z00_1095); } 
{ /* ./Cfa/cinfo3.scm 38 */
obj_t BgL_arg4200z00_1097;obj_t BgL_arg4201z00_1098;obj_t BgL_arg4205z00_1102;
BgL_arg4200z00_1097 = 
CNST_TABLE_REF(((long)7)); 
BgL_arg4201z00_1098 = BGl_vlengthz00zzast_nodez00; 
{ /* ./Cfa/cinfo3.scm 38 */
obj_t BgL_v4085z00_1103;
{ 
int BgL_auxz00_3277;
BgL_auxz00_3277 = 
(int)(((long)0)); 
BgL_v4085z00_1103 = 
create_vector(BgL_auxz00_3277); } 
BgL_arg4205z00_1102 = BgL_v4085z00_1103; } 
BGl_vlengthzf2Cinfozf2zzcfa_info3z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4200z00_1097, BgL_arg4201z00_1098, BFALSE, BGl_allocatezd2vlengthzf2Cinfozd2envzf2zzcfa_info3z00, ((long)6264), BNIL, BFALSE, BgL_arg4205z00_1102); } 
{ /* ./Cfa/cinfo3.scm 43 */
obj_t BgL_arg4209z00_1104;obj_t BgL_arg4210z00_1105;obj_t BgL_arg4214z00_1109;
BgL_arg4209z00_1104 = 
CNST_TABLE_REF(((long)8)); 
BgL_arg4210z00_1105 = BGl_vallocz00zzast_nodez00; 
{ /* ./Cfa/cinfo3.scm 43 */
obj_t BgL_v4086z00_1110;
{ 
int BgL_auxz00_3282;
BgL_auxz00_3282 = 
(int)(((long)0)); 
BgL_v4086z00_1110 = 
create_vector(BgL_auxz00_3282); } 
BgL_arg4214z00_1109 = BgL_v4086z00_1110; } 
BGl_prezd2valloczf2Cinfoz20zzcfa_info3z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4209z00_1104, BgL_arg4210z00_1105, BFALSE, BGl_allocatezd2prezd2valloczf2Cinfozd2envz20zzcfa_info3z00, ((long)24366), BNIL, BFALSE, BgL_arg4214z00_1109); } 
{ /* ./Cfa/cinfo3.scm 45 */
obj_t BgL_arg4218z00_1111;obj_t BgL_arg4219z00_1112;obj_t BgL_arg4223z00_1116;
BgL_arg4218z00_1111 = 
CNST_TABLE_REF(((long)9)); 
BgL_arg4219z00_1112 = BGl_vallocz00zzast_nodez00; 
{ /* ./Cfa/cinfo3.scm 45 */
obj_t BgL_v4087z00_1117;
{ 
int BgL_auxz00_3287;
BgL_auxz00_3287 = 
(int)(((long)0)); 
BgL_v4087z00_1117 = 
create_vector(BgL_auxz00_3287); } 
BgL_arg4223z00_1116 = BgL_v4087z00_1117; } 
BGl_valloczf2Cinfozf2zzcfa_info3z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4218z00_1111, BgL_arg4219z00_1112, BFALSE, BGl_allocatezd2valloczf2Cinfozd2envzf2zzcfa_info3z00, ((long)32111), BNIL, BFALSE, BgL_arg4223z00_1116); } 
{ /* ./Cfa/cinfo3.scm 47 */
obj_t BgL_arg4227z00_1118;obj_t BgL_arg4228z00_1119;obj_t BgL_arg4232z00_1123;
BgL_arg4227z00_1118 = 
CNST_TABLE_REF(((long)10)); 
BgL_arg4228z00_1119 = BGl_vallocz00zzast_nodez00; 
{ /* ./Cfa/cinfo3.scm 47 */
obj_t BgL_v4088z00_1124;
{ 
int BgL_auxz00_3292;
BgL_auxz00_3292 = 
(int)(((long)0)); 
BgL_v4088z00_1124 = 
create_vector(BgL_auxz00_3292); } 
BgL_arg4232z00_1123 = BgL_v4088z00_1124; } 
BGl_valloczf2Cinfozb2optimz40zzcfa_info3z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4227z00_1118, BgL_arg4228z00_1119, BFALSE, BGl_allocatezd2valloczf2Cinfozb2optimzd2envz40zzcfa_info3z00, ((long)21871), BNIL, BFALSE, BgL_arg4232z00_1123); } 
return BUNSPEC;} 
}



/* valloc/Cinfo+optim? */
BGL_EXPORTED_DEF bool_t BGl_valloczf2Cinfozb2optimzf3zb3zzcfa_info3z00(obj_t BgL_obj4041z00_1)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 47 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj4041z00_1, BGl_valloczf2Cinfozb2optimz40zzcfa_info3z00);} 
}



/* _valloc/Cinfo+optim? */
obj_t BGl__valloczf2Cinfozb2optimzf3zb3zzcfa_info3z00(obj_t BgL_envz00_2716, obj_t BgL_obj4041z00_2717)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 47 */
{ /* ./Cfa/cinfo3.scm 47 */
bool_t BgL_auxz00_3297;
BgL_auxz00_3297 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj4041z00_2717, BGl_valloczf2Cinfozb2optimz40zzcfa_info3z00); 
return 
BBOOL(BgL_auxz00_3297);} } 
}



/* widening-valloc/Cinfo+optim */
BGL_EXPORTED_DEF BgL_valloczf2cinfozb2optimz40_bglt BGl_wideningzd2valloczf2Cinfozb2optimz92zzcfa_info3z00(BgL_approxz00_bglt BgL_approx3991z00_5, BgL_approxz00_bglt BgL_valuezd2approx3992zd2_6, long BgL_lostzd2stamp3993zd2_7, BgL_variablez00_bglt BgL_owner3994z00_8, bool_t BgL_stackablezf33995zf3_9, obj_t BgL_stackzd2stamp3996zd2_10, bool_t BgL_seenzf33997zf3_11)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 47 */
{ /* ./Cfa/cinfo3.scm 47 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_new3998z00_1943;
BgL_new3998z00_1943 = 
((BgL_valloczf2cinfozb2optimz40_bglt)BREF( GC_MALLOC (sizeof(struct BgL_valloczf2cinfozb2optimz40_bgl)))); 
{ /* ./Cfa/cinfo3.scm 47 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_res5514z00_1959;
{ /* ./Cfa/cinfo3.scm 47 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_new4025z00_1944;
BgL_new4025z00_1944 = BgL_new3998z00_1943; 
{ /* ./Cfa/cinfo3.scm 47 */
BgL_approxz00_bglt BgL_approx4018z00_1952;BgL_approxz00_bglt BgL_valuezd2approx4019zd2_1953;long BgL_lostzd2stamp4020zd2_1954;BgL_variablez00_bglt BgL_owner4021z00_1955;bool_t BgL_stackablezf34022zf3_1956;obj_t BgL_stackzd2stamp4023zd2_1957;bool_t BgL_seenzf34024zf3_1958;
BgL_approx4018z00_1952 = BgL_approx3991z00_5; 
BgL_valuezd2approx4019zd2_1953 = BgL_valuezd2approx3992zd2_6; 
BgL_lostzd2stamp4020zd2_1954 = BgL_lostzd2stamp3993zd2_7; 
BgL_owner4021z00_1955 = BgL_owner3994z00_8; 
BgL_stackablezf34022zf3_1956 = BgL_stackablezf33995zf3_9; 
BgL_stackzd2stamp4023zd2_1957 = BgL_stackzd2stamp3996zd2_10; 
BgL_seenzf34024zf3_1958 = BgL_seenzf33997zf3_11; 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_1944))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx4018z00_1952), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_1944))->BgL_valuezd2approxzd2) = ((BgL_approxz00_bglt)BgL_valuezd2approx4019zd2_1953), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_1944))->BgL_lostzd2stampzd2) = ((long)BgL_lostzd2stamp4020zd2_1954), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_1944))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner4021z00_1955), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_1944))->BgL_stackablezf3zf3) = ((bool_t)BgL_stackablezf34022zf3_1956), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_1944))->BgL_stackzd2stampzd2) = ((obj_t)BgL_stackzd2stamp4023zd2_1957), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_1944))->BgL_seenzf3zf3) = ((bool_t)BgL_seenzf34024zf3_1958), BUNSPEC); 
BgL_res5514z00_1959 = BgL_new4025z00_1944; } } BgL_res5514z00_1959; } 
return BgL_new3998z00_1943;} } 
}



/* _widening-valloc/Cinfo+optim5592 */
obj_t BGl__wideningzd2valloczf2Cinfozb2optim5592z92zzcfa_info3z00(obj_t BgL_envz00_2718, obj_t BgL_approx3991z00_2719, obj_t BgL_valuezd2approx3992zd2_2720, obj_t BgL_lostzd2stamp3993zd2_2721, obj_t BgL_owner3994z00_2722, obj_t BgL_stackablezf33995zf3_2723, obj_t BgL_stackzd2stamp3996zd2_2724, obj_t BgL_seenzf33997zf3_2725)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 47 */
{ /* ./Cfa/cinfo3.scm 47 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_auxz00_3308;
BgL_auxz00_3308 = 
BGl_wideningzd2valloczf2Cinfozb2optimz92zzcfa_info3z00(
(BgL_approxz00_bglt)(BgL_approx3991z00_2719), 
(BgL_approxz00_bglt)(BgL_valuezd2approx3992zd2_2720), 
(long)CINT(BgL_lostzd2stamp3993zd2_2721), 
(BgL_variablez00_bglt)(BgL_owner3994z00_2722), 
CBOOL(BgL_stackablezf33995zf3_2723), BgL_stackzd2stamp3996zd2_2724, 
CBOOL(BgL_seenzf33997zf3_2725)); 
return 
(obj_t)(BgL_auxz00_3308);} } 
}



/* make-valloc/Cinfo+optim */
BGL_EXPORTED_DEF BgL_valloczf2cinfozb2optimz40_bglt BGl_makezd2valloczf2Cinfozb2optimz92zzcfa_info3z00(obj_t BgL_loc4007z00_12, BgL_typez00_bglt BgL_type4008z00_13, obj_t BgL_sidezd2effectzf34009z21_14, obj_t BgL_key4010z00_15, obj_t BgL_exprza24011za2_16, obj_t BgL_effect4012z00_17, obj_t BgL_czd2heapzd2format4013z00_18, BgL_typez00_bglt BgL_ftype4014z00_19, BgL_typez00_bglt BgL_otype4015z00_20, BgL_approxz00_bglt BgL_approx4000z00_21, BgL_approxz00_bglt BgL_valuezd2approx4001zd2_22, long BgL_lostzd2stamp4002zd2_23, BgL_variablez00_bglt BgL_owner4003z00_24, bool_t BgL_stackablezf34004zf3_25, obj_t BgL_stackzd2stamp4005zd2_26, bool_t BgL_seenzf34006zf3_27)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 47 */
{ /* ./Cfa/cinfo3.scm 47 */
BgL_vallocz00_bglt BgL_aux4016z00_1960;
BgL_aux4016z00_1960 = 
BGl_makezd2valloczd2zzast_nodez00(BgL_loc4007z00_12, BgL_type4008z00_13, BgL_sidezd2effectzf34009z21_14, BgL_key4010z00_15, BgL_exprza24011za2_16, BgL_effect4012z00_17, BgL_czd2heapzd2format4013z00_18, BgL_ftype4014z00_19, BgL_otype4015z00_20); 
{ /* ./Cfa/cinfo3.scm 47 */
long BgL_arg4238z00_1961;
BgL_arg4238z00_1961 = 
BGl_classzd2numzd2zz__objectz00(BGl_valloczf2Cinfozb2optimz40zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 47 */
BgL_objectz00_bglt BgL_objz00_1964;
BgL_objz00_1964 = 
(BgL_objectz00_bglt)(BgL_aux4016z00_1960); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1964, BgL_arg4238z00_1961); } } 
{ /* ./Cfa/cinfo3.scm 47 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_arg4242z00_1962;
{ /* ./Cfa/cinfo3.scm 47 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_res5516z00_1990;
{ /* ./Cfa/cinfo3.scm 47 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_new3998z00_1973;
BgL_new3998z00_1973 = 
((BgL_valloczf2cinfozb2optimz40_bglt)BREF( GC_MALLOC (sizeof(struct BgL_valloczf2cinfozb2optimz40_bgl)))); 
{ /* ./Cfa/cinfo3.scm 47 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_res5515z00_1989;
{ /* ./Cfa/cinfo3.scm 47 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_new4025z00_1974;
BgL_new4025z00_1974 = BgL_new3998z00_1973; 
{ /* ./Cfa/cinfo3.scm 47 */
BgL_approxz00_bglt BgL_approx4018z00_1982;BgL_approxz00_bglt BgL_valuezd2approx4019zd2_1983;long BgL_lostzd2stamp4020zd2_1984;BgL_variablez00_bglt BgL_owner4021z00_1985;bool_t BgL_stackablezf34022zf3_1986;obj_t BgL_stackzd2stamp4023zd2_1987;bool_t BgL_seenzf34024zf3_1988;
BgL_approx4018z00_1982 = BgL_approx4000z00_21; 
BgL_valuezd2approx4019zd2_1983 = BgL_valuezd2approx4001zd2_22; 
BgL_lostzd2stamp4020zd2_1984 = BgL_lostzd2stamp4002zd2_23; 
BgL_owner4021z00_1985 = BgL_owner4003z00_24; 
BgL_stackablezf34022zf3_1986 = BgL_stackablezf34004zf3_25; 
BgL_stackzd2stamp4023zd2_1987 = BgL_stackzd2stamp4005zd2_26; 
BgL_seenzf34024zf3_1988 = BgL_seenzf34006zf3_27; 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_1974))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx4018z00_1982), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_1974))->BgL_valuezd2approxzd2) = ((BgL_approxz00_bglt)BgL_valuezd2approx4019zd2_1983), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_1974))->BgL_lostzd2stampzd2) = ((long)BgL_lostzd2stamp4020zd2_1984), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_1974))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner4021z00_1985), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_1974))->BgL_stackablezf3zf3) = ((bool_t)BgL_stackablezf34022zf3_1986), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_1974))->BgL_stackzd2stampzd2) = ((obj_t)BgL_stackzd2stamp4023zd2_1987), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_1974))->BgL_seenzf3zf3) = ((bool_t)BgL_seenzf34024zf3_1988), BUNSPEC); 
BgL_res5515z00_1989 = BgL_new4025z00_1974; } } BgL_res5515z00_1989; } 
BgL_res5516z00_1990 = BgL_new3998z00_1973; } 
BgL_arg4242z00_1962 = BgL_res5516z00_1990; } 
{ /* ./Cfa/cinfo3.scm 47 */
obj_t BgL_auxz00_3331;BgL_objectz00_bglt BgL_auxz00_3329;
BgL_auxz00_3331 = 
(obj_t)(BgL_arg4242z00_1962); 
BgL_auxz00_3329 = 
(BgL_objectz00_bglt)(BgL_aux4016z00_1960); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3329, BgL_auxz00_3331); } } 
{ /* ./Cfa/cinfo3.scm 47 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_new4017z00_1963;
{ 
BgL_valloczf2cinfozb2optimz40_bglt BgL_auxz00_3334;
BgL_auxz00_3334 = 
(BgL_valloczf2cinfozb2optimz40_bglt)(BgL_aux4016z00_1960); 
BgL_new4017z00_1963 = 
((BgL_valloczf2cinfozb2optimz40_bglt)BgL_auxz00_3334); } 
{ /* ./Cfa/cinfo3.scm 47 */
obj_t BgL_objz00_1991;
BgL_objz00_1991 = 
(obj_t)(BgL_new4017z00_1963); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1991); BUNSPEC; } 
return BgL_new4017z00_1963;} } } 
}



/* _make-valloc/Cinfo+optim */
obj_t BGl__makezd2valloczf2Cinfozb2optimz92zzcfa_info3z00(obj_t BgL_envz00_2726, obj_t BgL_loc4007z00_2727, obj_t BgL_type4008z00_2728, obj_t BgL_sidezd2effectzf34009z21_2729, obj_t BgL_key4010z00_2730, obj_t BgL_exprza24011za2_2731, obj_t BgL_effect4012z00_2732, obj_t BgL_czd2heapzd2format4013z00_2733, obj_t BgL_ftype4014z00_2734, obj_t BgL_otype4015z00_2735, obj_t BgL_approx4000z00_2736, obj_t BgL_valuezd2approx4001zd2_2737, obj_t BgL_lostzd2stamp4002zd2_2738, obj_t BgL_owner4003z00_2739, obj_t BgL_stackablezf34004zf3_2740, obj_t BgL_stackzd2stamp4005zd2_2741, obj_t BgL_seenzf34006zf3_2742)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 47 */
{ /* ./Cfa/cinfo3.scm 47 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_auxz00_3339;
BgL_auxz00_3339 = 
BGl_makezd2valloczf2Cinfozb2optimz92zzcfa_info3z00(BgL_loc4007z00_2727, 
(BgL_typez00_bglt)(BgL_type4008z00_2728), BgL_sidezd2effectzf34009z21_2729, BgL_key4010z00_2730, BgL_exprza24011za2_2731, BgL_effect4012z00_2732, BgL_czd2heapzd2format4013z00_2733, 
(BgL_typez00_bglt)(BgL_ftype4014z00_2734), 
(BgL_typez00_bglt)(BgL_otype4015z00_2735), 
(BgL_approxz00_bglt)(BgL_approx4000z00_2736), 
(BgL_approxz00_bglt)(BgL_valuezd2approx4001zd2_2737), 
(long)CINT(BgL_lostzd2stamp4002zd2_2738), 
(BgL_variablez00_bglt)(BgL_owner4003z00_2739), 
CBOOL(BgL_stackablezf34004zf3_2740), BgL_stackzd2stamp4005zd2_2741, 
CBOOL(BgL_seenzf34006zf3_2742)); 
return 
(obj_t)(BgL_auxz00_3339);} } 
}



/* fill-valloc/Cinfo+optim! */
BGL_EXPORTED_DEF BgL_valloczf2cinfozb2optimz40_bglt BGl_fillzd2valloczf2Cinfozb2optimz12z80zzcfa_info3z00(BgL_valloczf2cinfozb2optimz40_bglt BgL_new4025z00_28, BgL_approxz00_bglt BgL_approx4018z00_29, BgL_approxz00_bglt BgL_valuezd2approx4019zd2_30, long BgL_lostzd2stamp4020zd2_31, BgL_variablez00_bglt BgL_owner4021z00_32, bool_t BgL_stackablezf34022zf3_33, obj_t BgL_stackzd2stamp4023zd2_34, bool_t BgL_seenzf34024zf3_35)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 47 */
{ /* ./Cfa/cinfo3.scm 47 */
BgL_approxz00_bglt BgL_approx4018z00_3025;BgL_approxz00_bglt BgL_valuezd2approx4019zd2_3026;long BgL_lostzd2stamp4020zd2_3027;BgL_variablez00_bglt BgL_owner4021z00_3028;bool_t BgL_stackablezf34022zf3_3029;obj_t BgL_stackzd2stamp4023zd2_3030;bool_t BgL_seenzf34024zf3_3031;
BgL_approx4018z00_3025 = BgL_approx4018z00_29; 
BgL_valuezd2approx4019zd2_3026 = BgL_valuezd2approx4019zd2_30; 
BgL_lostzd2stamp4020zd2_3027 = BgL_lostzd2stamp4020zd2_31; 
BgL_owner4021z00_3028 = BgL_owner4021z00_32; 
BgL_stackablezf34022zf3_3029 = BgL_stackablezf34022zf3_33; 
BgL_stackzd2stamp4023zd2_3030 = BgL_stackzd2stamp4023zd2_34; 
BgL_seenzf34024zf3_3031 = BgL_seenzf34024zf3_35; 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_28))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx4018z00_3025), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_28))->BgL_valuezd2approxzd2) = ((BgL_approxz00_bglt)BgL_valuezd2approx4019zd2_3026), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_28))->BgL_lostzd2stampzd2) = ((long)BgL_lostzd2stamp4020zd2_3027), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_28))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner4021z00_3028), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_28))->BgL_stackablezf3zf3) = ((bool_t)BgL_stackablezf34022zf3_3029), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_28))->BgL_stackzd2stampzd2) = ((obj_t)BgL_stackzd2stamp4023zd2_3030), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_28))->BgL_seenzf3zf3) = ((bool_t)BgL_seenzf34024zf3_3031), BUNSPEC); 
return BgL_new4025z00_28;} } 
}



/* _fill-valloc/Cinfo+optim! */
obj_t BGl__fillzd2valloczf2Cinfozb2optimz12z80zzcfa_info3z00(obj_t BgL_envz00_2743, obj_t BgL_new4025z00_2744, obj_t BgL_approx4018z00_2745, obj_t BgL_valuezd2approx4019zd2_2746, obj_t BgL_lostzd2stamp4020zd2_2747, obj_t BgL_owner4021z00_2748, obj_t BgL_stackablezf34022zf3_2749, obj_t BgL_stackzd2stamp4023zd2_2750, obj_t BgL_seenzf34024zf3_2751)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 47 */
{ /* ./Cfa/cinfo3.scm 47 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_auxz00_3358;
{ /* ./Cfa/cinfo3.scm 47 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_res6302z00_3047;
{ /* ./Cfa/cinfo3.scm 47 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_new4025z00_3032;BgL_approxz00_bglt BgL_approx4018z00_3033;BgL_approxz00_bglt BgL_valuezd2approx4019zd2_3034;long BgL_lostzd2stamp4020zd2_3035;BgL_variablez00_bglt BgL_owner4021z00_3036;bool_t BgL_stackablezf34022zf3_3037;bool_t BgL_seenzf34024zf3_3039;
BgL_new4025z00_3032 = 
(BgL_valloczf2cinfozb2optimz40_bglt)(BgL_new4025z00_2744); 
BgL_approx4018z00_3033 = 
(BgL_approxz00_bglt)(BgL_approx4018z00_2745); 
BgL_valuezd2approx4019zd2_3034 = 
(BgL_approxz00_bglt)(BgL_valuezd2approx4019zd2_2746); 
BgL_lostzd2stamp4020zd2_3035 = 
(long)CINT(BgL_lostzd2stamp4020zd2_2747); 
BgL_owner4021z00_3036 = 
(BgL_variablez00_bglt)(BgL_owner4021z00_2748); 
BgL_stackablezf34022zf3_3037 = 
CBOOL(BgL_stackablezf34022zf3_2749); 
BgL_seenzf34024zf3_3039 = 
CBOOL(BgL_seenzf34024zf3_2751); 
{ /* ./Cfa/cinfo3.scm 47 */
BgL_approxz00_bglt BgL_approx4018z00_3040;BgL_approxz00_bglt BgL_valuezd2approx4019zd2_3041;long BgL_lostzd2stamp4020zd2_3042;BgL_variablez00_bglt BgL_owner4021z00_3043;bool_t BgL_stackablezf34022zf3_3044;obj_t BgL_stackzd2stamp4023zd2_3045;bool_t BgL_seenzf34024zf3_3046;
BgL_approx4018z00_3040 = BgL_approx4018z00_3033; 
BgL_valuezd2approx4019zd2_3041 = BgL_valuezd2approx4019zd2_3034; 
BgL_lostzd2stamp4020zd2_3042 = BgL_lostzd2stamp4020zd2_3035; 
BgL_owner4021z00_3043 = BgL_owner4021z00_3036; 
BgL_stackablezf34022zf3_3044 = BgL_stackablezf34022zf3_3037; 
BgL_stackzd2stamp4023zd2_3045 = BgL_stackzd2stamp4023zd2_2750; 
BgL_seenzf34024zf3_3046 = BgL_seenzf34024zf3_3039; 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_3032))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx4018z00_3040), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_3032))->BgL_valuezd2approxzd2) = ((BgL_approxz00_bglt)BgL_valuezd2approx4019zd2_3041), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_3032))->BgL_lostzd2stampzd2) = ((long)BgL_lostzd2stamp4020zd2_3042), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_3032))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner4021z00_3043), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_3032))->BgL_stackablezf3zf3) = ((bool_t)BgL_stackablezf34022zf3_3044), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_3032))->BgL_stackzd2stampzd2) = ((obj_t)BgL_stackzd2stamp4023zd2_3045), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_3032))->BgL_seenzf3zf3) = ((bool_t)BgL_seenzf34024zf3_3046), BUNSPEC); 
BgL_res6302z00_3047 = BgL_new4025z00_3032; } } 
BgL_auxz00_3358 = BgL_res6302z00_3047; } 
return 
(obj_t)(BgL_auxz00_3358);} } 
}



/* allocate-valloc/Cinfo+optim */
BGL_EXPORTED_DEF BgL_vallocz00_bglt BGl_allocatezd2valloczf2Cinfozb2optimz92zzcfa_info3z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 47 */
{ /* ./Cfa/cinfo3.scm 47 */
BgL_vallocz00_bglt BgL_new4034z00_3048;
BgL_new4034z00_3048 = 
((BgL_vallocz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_vallocz00_bgl) ))); 
{ /* ./Cfa/cinfo3.scm 47 */
long BgL_arg4248z00_3049;
BgL_arg4248z00_3049 = 
BGl_classzd2numzd2zz__objectz00(BGl_valloczf2Cinfozb2optimz40zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 47 */
BgL_objectz00_bglt BgL_objz00_3050;
BgL_objz00_3050 = 
(BgL_objectz00_bglt)(BgL_new4034z00_3048); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3050, BgL_arg4248z00_3049); } } 
{ /* ./Cfa/cinfo3.scm 47 */
BgL_objectz00_bglt BgL_auxz00_3378;
BgL_auxz00_3378 = 
(BgL_objectz00_bglt)(BgL_new4034z00_3048); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3378, BFALSE); } 
{ /* ./Cfa/cinfo3.scm 47 */
obj_t BgL_objz00_3051;
BgL_objz00_3051 = 
(obj_t)(BgL_new4034z00_3048); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3051); BUNSPEC; } 
return BgL_new4034z00_3048;} } 
}



/* _allocate-valloc/Cinfo+optim */
obj_t BGl__allocatezd2valloczf2Cinfozb2optimz92zzcfa_info3z00(obj_t BgL_envz00_2715)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 47 */
{ /* ./Cfa/cinfo3.scm 47 */
BgL_vallocz00_bglt BgL_auxz00_3383;
{ /* ./Cfa/cinfo3.scm 47 */
BgL_vallocz00_bglt BgL_res6303z00_3056;
{ /* ./Cfa/cinfo3.scm 47 */
BgL_vallocz00_bglt BgL_new4034z00_3052;
BgL_new4034z00_3052 = 
((BgL_vallocz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_vallocz00_bgl) ))); 
{ /* ./Cfa/cinfo3.scm 47 */
long BgL_arg4248z00_3053;
BgL_arg4248z00_3053 = 
BGl_classzd2numzd2zz__objectz00(BGl_valloczf2Cinfozb2optimz40zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 47 */
BgL_objectz00_bglt BgL_objz00_3054;
BgL_objz00_3054 = 
(BgL_objectz00_bglt)(BgL_new4034z00_3052); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3054, BgL_arg4248z00_3053); } } 
{ /* ./Cfa/cinfo3.scm 47 */
BgL_objectz00_bglt BgL_auxz00_3388;
BgL_auxz00_3388 = 
(BgL_objectz00_bglt)(BgL_new4034z00_3052); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3388, BFALSE); } 
{ /* ./Cfa/cinfo3.scm 47 */
obj_t BgL_objz00_3055;
BgL_objz00_3055 = 
(obj_t)(BgL_new4034z00_3052); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3055); BUNSPEC; } 
BgL_res6303z00_3056 = BgL_new4034z00_3052; } 
BgL_auxz00_3383 = BgL_res6303z00_3056; } 
return 
(obj_t)(BgL_auxz00_3383);} } 
}



/* valloc/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_valloczf2Cinfozf3z01zzcfa_info3z00(obj_t BgL_obj3970z00_53)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 45 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3970z00_53, BGl_valloczf2Cinfozf2zzcfa_info3z00);} 
}



/* _valloc/Cinfo? */
obj_t BGl__valloczf2Cinfozf3z01zzcfa_info3z00(obj_t BgL_envz00_2752, obj_t BgL_obj3970z00_2753)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 45 */
{ /* ./Cfa/cinfo3.scm 45 */
bool_t BgL_auxz00_3395;
BgL_auxz00_3395 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3970z00_2753, BGl_valloczf2Cinfozf2zzcfa_info3z00); 
return 
BBOOL(BgL_auxz00_3395);} } 
}



/* widening-valloc/Cinfo */
BGL_EXPORTED_DEF BgL_valloczf2cinfozf2_bglt BGl_wideningzd2valloczf2Cinfoz20zzcfa_info3z00(BgL_approxz00_bglt BgL_approx3944z00_57)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 45 */
{ /* ./Cfa/cinfo3.scm 45 */
BgL_valloczf2cinfozf2_bglt BgL_new3945z00_2004;
BgL_new3945z00_2004 = 
((BgL_valloczf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_valloczf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo3.scm 45 */
BgL_valloczf2cinfozf2_bglt BgL_res5517z00_2008;
{ /* ./Cfa/cinfo3.scm 45 */
BgL_valloczf2cinfozf2_bglt BgL_new3960z00_2005;
BgL_new3960z00_2005 = BgL_new3945z00_2004; 
{ /* ./Cfa/cinfo3.scm 45 */
BgL_approxz00_bglt BgL_approx3959z00_2007;
BgL_approx3959z00_2007 = BgL_approx3944z00_57; 
((((BgL_valloczf2cinfozf2_bglt)CREF(BgL_new3960z00_2005))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3959z00_2007), BUNSPEC); 
BgL_res5517z00_2008 = BgL_new3960z00_2005; } } BgL_res5517z00_2008; } 
return BgL_new3945z00_2004;} } 
}



/* _widening-valloc/Cinfo5597 */
obj_t BGl__wideningzd2valloczf2Cinfo5597z20zzcfa_info3z00(obj_t BgL_envz00_2754, obj_t BgL_approx3944z00_2755)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 45 */
{ /* ./Cfa/cinfo3.scm 45 */
BgL_valloczf2cinfozf2_bglt BgL_auxz00_3400;
BgL_auxz00_3400 = 
BGl_wideningzd2valloczf2Cinfoz20zzcfa_info3z00(
(BgL_approxz00_bglt)(BgL_approx3944z00_2755)); 
return 
(obj_t)(BgL_auxz00_3400);} } 
}



/* make-valloc/Cinfo */
BGL_EXPORTED_DEF BgL_valloczf2cinfozf2_bglt BGl_makezd2valloczf2Cinfoz20zzcfa_info3z00(obj_t BgL_loc3948z00_58, BgL_typez00_bglt BgL_type3949z00_59, obj_t BgL_sidezd2effectzf33950z21_60, obj_t BgL_key3951z00_61, obj_t BgL_exprza23952za2_62, obj_t BgL_effect3953z00_63, obj_t BgL_czd2heapzd2format3954z00_64, BgL_typez00_bglt BgL_ftype3955z00_65, BgL_typez00_bglt BgL_otype3956z00_66, BgL_approxz00_bglt BgL_approx3947z00_67)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 45 */
{ /* ./Cfa/cinfo3.scm 45 */
BgL_vallocz00_bglt BgL_aux3957z00_2009;
BgL_aux3957z00_2009 = 
BGl_makezd2valloczd2zzast_nodez00(BgL_loc3948z00_58, BgL_type3949z00_59, BgL_sidezd2effectzf33950z21_60, BgL_key3951z00_61, BgL_exprza23952za2_62, BgL_effect3953z00_63, BgL_czd2heapzd2format3954z00_64, BgL_ftype3955z00_65, BgL_otype3956z00_66); 
{ /* ./Cfa/cinfo3.scm 45 */
long BgL_arg4268z00_2010;
BgL_arg4268z00_2010 = 
BGl_classzd2numzd2zz__objectz00(BGl_valloczf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 45 */
BgL_objectz00_bglt BgL_objz00_2013;
BgL_objz00_2013 = 
(BgL_objectz00_bglt)(BgL_aux3957z00_2009); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2013, BgL_arg4268z00_2010); } } 
{ /* ./Cfa/cinfo3.scm 45 */
BgL_valloczf2cinfozf2_bglt BgL_arg4272z00_2011;
{ /* ./Cfa/cinfo3.scm 45 */
BgL_valloczf2cinfozf2_bglt BgL_res5519z00_2021;
{ /* ./Cfa/cinfo3.scm 45 */
BgL_valloczf2cinfozf2_bglt BgL_new3945z00_2016;
BgL_new3945z00_2016 = 
((BgL_valloczf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_valloczf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo3.scm 45 */
BgL_valloczf2cinfozf2_bglt BgL_res5518z00_2020;
{ /* ./Cfa/cinfo3.scm 45 */
BgL_valloczf2cinfozf2_bglt BgL_new3960z00_2017;
BgL_new3960z00_2017 = BgL_new3945z00_2016; 
{ /* ./Cfa/cinfo3.scm 45 */
BgL_approxz00_bglt BgL_approx3959z00_2019;
BgL_approx3959z00_2019 = BgL_approx3947z00_67; 
((((BgL_valloczf2cinfozf2_bglt)CREF(BgL_new3960z00_2017))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3959z00_2019), BUNSPEC); 
BgL_res5518z00_2020 = BgL_new3960z00_2017; } } BgL_res5518z00_2020; } 
BgL_res5519z00_2021 = BgL_new3945z00_2016; } 
BgL_arg4272z00_2011 = BgL_res5519z00_2021; } 
{ /* ./Cfa/cinfo3.scm 45 */
obj_t BgL_auxz00_3412;BgL_objectz00_bglt BgL_auxz00_3410;
BgL_auxz00_3412 = 
(obj_t)(BgL_arg4272z00_2011); 
BgL_auxz00_3410 = 
(BgL_objectz00_bglt)(BgL_aux3957z00_2009); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3410, BgL_auxz00_3412); } } 
{ /* ./Cfa/cinfo3.scm 45 */
BgL_valloczf2cinfozf2_bglt BgL_new3958z00_2012;
{ 
BgL_valloczf2cinfozf2_bglt BgL_auxz00_3415;
BgL_auxz00_3415 = 
(BgL_valloczf2cinfozf2_bglt)(BgL_aux3957z00_2009); 
BgL_new3958z00_2012 = 
((BgL_valloczf2cinfozf2_bglt)BgL_auxz00_3415); } 
{ /* ./Cfa/cinfo3.scm 45 */
obj_t BgL_objz00_2022;
BgL_objz00_2022 = 
(obj_t)(BgL_new3958z00_2012); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2022); BUNSPEC; } 
return BgL_new3958z00_2012;} } } 
}



/* _make-valloc/Cinfo */
obj_t BGl__makezd2valloczf2Cinfoz20zzcfa_info3z00(obj_t BgL_envz00_2756, obj_t BgL_loc3948z00_2757, obj_t BgL_type3949z00_2758, obj_t BgL_sidezd2effectzf33950z21_2759, obj_t BgL_key3951z00_2760, obj_t BgL_exprza23952za2_2761, obj_t BgL_effect3953z00_2762, obj_t BgL_czd2heapzd2format3954z00_2763, obj_t BgL_ftype3955z00_2764, obj_t BgL_otype3956z00_2765, obj_t BgL_approx3947z00_2766)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 45 */
{ /* ./Cfa/cinfo3.scm 45 */
BgL_valloczf2cinfozf2_bglt BgL_auxz00_3420;
BgL_auxz00_3420 = 
BGl_makezd2valloczf2Cinfoz20zzcfa_info3z00(BgL_loc3948z00_2757, 
(BgL_typez00_bglt)(BgL_type3949z00_2758), BgL_sidezd2effectzf33950z21_2759, BgL_key3951z00_2760, BgL_exprza23952za2_2761, BgL_effect3953z00_2762, BgL_czd2heapzd2format3954z00_2763, 
(BgL_typez00_bglt)(BgL_ftype3955z00_2764), 
(BgL_typez00_bglt)(BgL_otype3956z00_2765), 
(BgL_approxz00_bglt)(BgL_approx3947z00_2766)); 
return 
(obj_t)(BgL_auxz00_3420);} } 
}



/* fill-valloc/Cinfo! */
BGL_EXPORTED_DEF BgL_valloczf2cinfozf2_bglt BGl_fillzd2valloczf2Cinfoz12z32zzcfa_info3z00(BgL_valloczf2cinfozf2_bglt BgL_new3960z00_68, BgL_approxz00_bglt BgL_approx3959z00_69)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 45 */
{ /* ./Cfa/cinfo3.scm 45 */
BgL_approxz00_bglt BgL_approx3959z00_3058;
BgL_approx3959z00_3058 = BgL_approx3959z00_69; 
((((BgL_valloczf2cinfozf2_bglt)CREF(BgL_new3960z00_68))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3959z00_3058), BUNSPEC); 
return BgL_new3960z00_68;} } 
}



/* _fill-valloc/Cinfo! */
obj_t BGl__fillzd2valloczf2Cinfoz12z32zzcfa_info3z00(obj_t BgL_envz00_2767, obj_t BgL_new3960z00_2768, obj_t BgL_approx3959z00_2769)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 45 */
{ /* ./Cfa/cinfo3.scm 45 */
BgL_valloczf2cinfozf2_bglt BgL_auxz00_3428;
{ /* ./Cfa/cinfo3.scm 45 */
BgL_valloczf2cinfozf2_bglt BgL_res6304z00_3062;
{ /* ./Cfa/cinfo3.scm 45 */
BgL_valloczf2cinfozf2_bglt BgL_new3960z00_3059;BgL_approxz00_bglt BgL_approx3959z00_3060;
BgL_new3960z00_3059 = 
(BgL_valloczf2cinfozf2_bglt)(BgL_new3960z00_2768); 
BgL_approx3959z00_3060 = 
(BgL_approxz00_bglt)(BgL_approx3959z00_2769); 
{ /* ./Cfa/cinfo3.scm 45 */
BgL_approxz00_bglt BgL_approx3959z00_3061;
BgL_approx3959z00_3061 = BgL_approx3959z00_3060; 
((((BgL_valloczf2cinfozf2_bglt)CREF(BgL_new3960z00_3059))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3959z00_3061), BUNSPEC); 
BgL_res6304z00_3062 = BgL_new3960z00_3059; } } 
BgL_auxz00_3428 = BgL_res6304z00_3062; } 
return 
(obj_t)(BgL_auxz00_3428);} } 
}



/* allocate-valloc/Cinfo */
BGL_EXPORTED_DEF BgL_vallocz00_bglt BGl_allocatezd2valloczf2Cinfoz20zzcfa_info3z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 45 */
{ /* ./Cfa/cinfo3.scm 45 */
BgL_vallocz00_bglt BgL_new3963z00_3063;
BgL_new3963z00_3063 = 
((BgL_vallocz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_vallocz00_bgl) ))); 
{ /* ./Cfa/cinfo3.scm 45 */
long BgL_arg4278z00_3064;
BgL_arg4278z00_3064 = 
BGl_classzd2numzd2zz__objectz00(BGl_valloczf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 45 */
BgL_objectz00_bglt BgL_objz00_3065;
BgL_objz00_3065 = 
(BgL_objectz00_bglt)(BgL_new3963z00_3063); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3065, BgL_arg4278z00_3064); } } 
{ /* ./Cfa/cinfo3.scm 45 */
BgL_objectz00_bglt BgL_auxz00_3437;
BgL_auxz00_3437 = 
(BgL_objectz00_bglt)(BgL_new3963z00_3063); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3437, BFALSE); } 
{ /* ./Cfa/cinfo3.scm 45 */
obj_t BgL_objz00_3066;
BgL_objz00_3066 = 
(obj_t)(BgL_new3963z00_3063); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3066); BUNSPEC; } 
return BgL_new3963z00_3063;} } 
}



/* _allocate-valloc/Cinfo */
obj_t BGl__allocatezd2valloczf2Cinfoz20zzcfa_info3z00(obj_t BgL_envz00_2714)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 45 */
{ /* ./Cfa/cinfo3.scm 45 */
BgL_vallocz00_bglt BgL_auxz00_3442;
{ /* ./Cfa/cinfo3.scm 45 */
BgL_vallocz00_bglt BgL_res6305z00_3071;
{ /* ./Cfa/cinfo3.scm 45 */
BgL_vallocz00_bglt BgL_new3963z00_3067;
BgL_new3963z00_3067 = 
((BgL_vallocz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_vallocz00_bgl) ))); 
{ /* ./Cfa/cinfo3.scm 45 */
long BgL_arg4278z00_3068;
BgL_arg4278z00_3068 = 
BGl_classzd2numzd2zz__objectz00(BGl_valloczf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 45 */
BgL_objectz00_bglt BgL_objz00_3069;
BgL_objz00_3069 = 
(BgL_objectz00_bglt)(BgL_new3963z00_3067); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3069, BgL_arg4278z00_3068); } } 
{ /* ./Cfa/cinfo3.scm 45 */
BgL_objectz00_bglt BgL_auxz00_3447;
BgL_auxz00_3447 = 
(BgL_objectz00_bglt)(BgL_new3963z00_3067); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3447, BFALSE); } 
{ /* ./Cfa/cinfo3.scm 45 */
obj_t BgL_objz00_3070;
BgL_objz00_3070 = 
(obj_t)(BgL_new3963z00_3067); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3070); BUNSPEC; } 
BgL_res6305z00_3071 = BgL_new3963z00_3067; } 
BgL_auxz00_3442 = BgL_res6305z00_3071; } 
return 
(obj_t)(BgL_auxz00_3442);} } 
}



/* pre-valloc/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_prezd2valloczf2Cinfozf3zd3zzcfa_info3z00(obj_t BgL_obj3923z00_71)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 43 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3923z00_71, BGl_prezd2valloczf2Cinfoz20zzcfa_info3z00);} 
}



/* _pre-valloc/Cinfo? */
obj_t BGl__prezd2valloczf2Cinfozf3zd3zzcfa_info3z00(obj_t BgL_envz00_2770, obj_t BgL_obj3923z00_2771)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 43 */
{ /* ./Cfa/cinfo3.scm 43 */
bool_t BgL_auxz00_3454;
BgL_auxz00_3454 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3923z00_2771, BGl_prezd2valloczf2Cinfoz20zzcfa_info3z00); 
return 
BBOOL(BgL_auxz00_3454);} } 
}



/* widening-pre-valloc/Cinfo */
BGL_EXPORTED_DEF BgL_prezd2valloczf2cinfoz20_bglt BGl_wideningzd2prezd2valloczf2Cinfozf2zzcfa_info3z00(BgL_variablez00_bglt BgL_owner3897z00_75)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 43 */
{ /* ./Cfa/cinfo3.scm 43 */
BgL_prezd2valloczf2cinfoz20_bglt BgL_new3898z00_2029;
BgL_new3898z00_2029 = 
((BgL_prezd2valloczf2cinfoz20_bglt)BREF( GC_MALLOC (sizeof(struct BgL_prezd2valloczf2cinfoz20_bgl)))); 
{ /* ./Cfa/cinfo3.scm 43 */
BgL_prezd2valloczf2cinfoz20_bglt BgL_res5520z00_2033;
{ /* ./Cfa/cinfo3.scm 43 */
BgL_prezd2valloczf2cinfoz20_bglt BgL_new3913z00_2030;
BgL_new3913z00_2030 = BgL_new3898z00_2029; 
{ /* ./Cfa/cinfo3.scm 43 */
BgL_variablez00_bglt BgL_owner3912z00_2032;
BgL_owner3912z00_2032 = BgL_owner3897z00_75; 
((((BgL_prezd2valloczf2cinfoz20_bglt)CREF(BgL_new3913z00_2030))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3912z00_2032), BUNSPEC); 
BgL_res5520z00_2033 = BgL_new3913z00_2030; } } BgL_res5520z00_2033; } 
return BgL_new3898z00_2029;} } 
}



/* _widening-pre-valloc/Cinfo5602 */
obj_t BGl__wideningzd2prezd2valloczf2Cinfo5602zf2zzcfa_info3z00(obj_t BgL_envz00_2772, obj_t BgL_owner3897z00_2773)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 43 */
{ /* ./Cfa/cinfo3.scm 43 */
BgL_prezd2valloczf2cinfoz20_bglt BgL_auxz00_3459;
BgL_auxz00_3459 = 
BGl_wideningzd2prezd2valloczf2Cinfozf2zzcfa_info3z00(
(BgL_variablez00_bglt)(BgL_owner3897z00_2773)); 
return 
(obj_t)(BgL_auxz00_3459);} } 
}



/* make-pre-valloc/Cinfo */
BGL_EXPORTED_DEF BgL_prezd2valloczf2cinfoz20_bglt BGl_makezd2prezd2valloczf2Cinfozf2zzcfa_info3z00(obj_t BgL_loc3901z00_76, BgL_typez00_bglt BgL_type3902z00_77, obj_t BgL_sidezd2effectzf33903z21_78, obj_t BgL_key3904z00_79, obj_t BgL_exprza23905za2_80, obj_t BgL_effect3906z00_81, obj_t BgL_czd2heapzd2format3907z00_82, BgL_typez00_bglt BgL_ftype3908z00_83, BgL_typez00_bglt BgL_otype3909z00_84, BgL_variablez00_bglt BgL_owner3900z00_85)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 43 */
{ /* ./Cfa/cinfo3.scm 43 */
BgL_vallocz00_bglt BgL_aux3910z00_2034;
BgL_aux3910z00_2034 = 
BGl_makezd2valloczd2zzast_nodez00(BgL_loc3901z00_76, BgL_type3902z00_77, BgL_sidezd2effectzf33903z21_78, BgL_key3904z00_79, BgL_exprza23905za2_80, BgL_effect3906z00_81, BgL_czd2heapzd2format3907z00_82, BgL_ftype3908z00_83, BgL_otype3909z00_84); 
{ /* ./Cfa/cinfo3.scm 43 */
long BgL_arg4287z00_2035;
BgL_arg4287z00_2035 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2valloczf2Cinfoz20zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 43 */
BgL_objectz00_bglt BgL_objz00_2038;
BgL_objz00_2038 = 
(BgL_objectz00_bglt)(BgL_aux3910z00_2034); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2038, BgL_arg4287z00_2035); } } 
{ /* ./Cfa/cinfo3.scm 43 */
BgL_prezd2valloczf2cinfoz20_bglt BgL_arg4291z00_2036;
{ /* ./Cfa/cinfo3.scm 43 */
BgL_prezd2valloczf2cinfoz20_bglt BgL_res5522z00_2046;
{ /* ./Cfa/cinfo3.scm 43 */
BgL_prezd2valloczf2cinfoz20_bglt BgL_new3898z00_2041;
BgL_new3898z00_2041 = 
((BgL_prezd2valloczf2cinfoz20_bglt)BREF( GC_MALLOC (sizeof(struct BgL_prezd2valloczf2cinfoz20_bgl)))); 
{ /* ./Cfa/cinfo3.scm 43 */
BgL_prezd2valloczf2cinfoz20_bglt BgL_res5521z00_2045;
{ /* ./Cfa/cinfo3.scm 43 */
BgL_prezd2valloczf2cinfoz20_bglt BgL_new3913z00_2042;
BgL_new3913z00_2042 = BgL_new3898z00_2041; 
{ /* ./Cfa/cinfo3.scm 43 */
BgL_variablez00_bglt BgL_owner3912z00_2044;
BgL_owner3912z00_2044 = BgL_owner3900z00_85; 
((((BgL_prezd2valloczf2cinfoz20_bglt)CREF(BgL_new3913z00_2042))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3912z00_2044), BUNSPEC); 
BgL_res5521z00_2045 = BgL_new3913z00_2042; } } BgL_res5521z00_2045; } 
BgL_res5522z00_2046 = BgL_new3898z00_2041; } 
BgL_arg4291z00_2036 = BgL_res5522z00_2046; } 
{ /* ./Cfa/cinfo3.scm 43 */
obj_t BgL_auxz00_3471;BgL_objectz00_bglt BgL_auxz00_3469;
BgL_auxz00_3471 = 
(obj_t)(BgL_arg4291z00_2036); 
BgL_auxz00_3469 = 
(BgL_objectz00_bglt)(BgL_aux3910z00_2034); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3469, BgL_auxz00_3471); } } 
{ /* ./Cfa/cinfo3.scm 43 */
BgL_prezd2valloczf2cinfoz20_bglt BgL_new3911z00_2037;
{ 
BgL_prezd2valloczf2cinfoz20_bglt BgL_auxz00_3474;
BgL_auxz00_3474 = 
(BgL_prezd2valloczf2cinfoz20_bglt)(BgL_aux3910z00_2034); 
BgL_new3911z00_2037 = 
((BgL_prezd2valloczf2cinfoz20_bglt)BgL_auxz00_3474); } 
{ /* ./Cfa/cinfo3.scm 43 */
obj_t BgL_objz00_2047;
BgL_objz00_2047 = 
(obj_t)(BgL_new3911z00_2037); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2047); BUNSPEC; } 
return BgL_new3911z00_2037;} } } 
}



/* _make-pre-valloc/Cinfo */
obj_t BGl__makezd2prezd2valloczf2Cinfozf2zzcfa_info3z00(obj_t BgL_envz00_2774, obj_t BgL_loc3901z00_2775, obj_t BgL_type3902z00_2776, obj_t BgL_sidezd2effectzf33903z21_2777, obj_t BgL_key3904z00_2778, obj_t BgL_exprza23905za2_2779, obj_t BgL_effect3906z00_2780, obj_t BgL_czd2heapzd2format3907z00_2781, obj_t BgL_ftype3908z00_2782, obj_t BgL_otype3909z00_2783, obj_t BgL_owner3900z00_2784)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 43 */
{ /* ./Cfa/cinfo3.scm 43 */
BgL_prezd2valloczf2cinfoz20_bglt BgL_auxz00_3479;
BgL_auxz00_3479 = 
BGl_makezd2prezd2valloczf2Cinfozf2zzcfa_info3z00(BgL_loc3901z00_2775, 
(BgL_typez00_bglt)(BgL_type3902z00_2776), BgL_sidezd2effectzf33903z21_2777, BgL_key3904z00_2778, BgL_exprza23905za2_2779, BgL_effect3906z00_2780, BgL_czd2heapzd2format3907z00_2781, 
(BgL_typez00_bglt)(BgL_ftype3908z00_2782), 
(BgL_typez00_bglt)(BgL_otype3909z00_2783), 
(BgL_variablez00_bglt)(BgL_owner3900z00_2784)); 
return 
(obj_t)(BgL_auxz00_3479);} } 
}



/* fill-pre-valloc/Cinfo! */
BGL_EXPORTED_DEF BgL_prezd2valloczf2cinfoz20_bglt BGl_fillzd2prezd2valloczf2Cinfoz12ze0zzcfa_info3z00(BgL_prezd2valloczf2cinfoz20_bglt BgL_new3913z00_86, BgL_variablez00_bglt BgL_owner3912z00_87)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 43 */
{ /* ./Cfa/cinfo3.scm 43 */
BgL_variablez00_bglt BgL_owner3912z00_3073;
BgL_owner3912z00_3073 = BgL_owner3912z00_87; 
((((BgL_prezd2valloczf2cinfoz20_bglt)CREF(BgL_new3913z00_86))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3912z00_3073), BUNSPEC); 
return BgL_new3913z00_86;} } 
}



/* _fill-pre-valloc/Cinfo! */
obj_t BGl__fillzd2prezd2valloczf2Cinfoz12ze0zzcfa_info3z00(obj_t BgL_envz00_2785, obj_t BgL_new3913z00_2786, obj_t BgL_owner3912z00_2787)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 43 */
{ /* ./Cfa/cinfo3.scm 43 */
BgL_prezd2valloczf2cinfoz20_bglt BgL_auxz00_3487;
{ /* ./Cfa/cinfo3.scm 43 */
BgL_prezd2valloczf2cinfoz20_bglt BgL_res6306z00_3077;
{ /* ./Cfa/cinfo3.scm 43 */
BgL_prezd2valloczf2cinfoz20_bglt BgL_new3913z00_3074;BgL_variablez00_bglt BgL_owner3912z00_3075;
BgL_new3913z00_3074 = 
(BgL_prezd2valloczf2cinfoz20_bglt)(BgL_new3913z00_2786); 
BgL_owner3912z00_3075 = 
(BgL_variablez00_bglt)(BgL_owner3912z00_2787); 
{ /* ./Cfa/cinfo3.scm 43 */
BgL_variablez00_bglt BgL_owner3912z00_3076;
BgL_owner3912z00_3076 = BgL_owner3912z00_3075; 
((((BgL_prezd2valloczf2cinfoz20_bglt)CREF(BgL_new3913z00_3074))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3912z00_3076), BUNSPEC); 
BgL_res6306z00_3077 = BgL_new3913z00_3074; } } 
BgL_auxz00_3487 = BgL_res6306z00_3077; } 
return 
(obj_t)(BgL_auxz00_3487);} } 
}



/* allocate-pre-valloc/Cinfo */
BGL_EXPORTED_DEF BgL_vallocz00_bglt BGl_allocatezd2prezd2valloczf2Cinfozf2zzcfa_info3z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 43 */
{ /* ./Cfa/cinfo3.scm 43 */
BgL_vallocz00_bglt BgL_new3916z00_3078;
BgL_new3916z00_3078 = 
((BgL_vallocz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_vallocz00_bgl) ))); 
{ /* ./Cfa/cinfo3.scm 43 */
long BgL_arg4297z00_3079;
BgL_arg4297z00_3079 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2valloczf2Cinfoz20zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 43 */
BgL_objectz00_bglt BgL_objz00_3080;
BgL_objz00_3080 = 
(BgL_objectz00_bglt)(BgL_new3916z00_3078); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3080, BgL_arg4297z00_3079); } } 
{ /* ./Cfa/cinfo3.scm 43 */
BgL_objectz00_bglt BgL_auxz00_3496;
BgL_auxz00_3496 = 
(BgL_objectz00_bglt)(BgL_new3916z00_3078); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3496, BFALSE); } 
{ /* ./Cfa/cinfo3.scm 43 */
obj_t BgL_objz00_3081;
BgL_objz00_3081 = 
(obj_t)(BgL_new3916z00_3078); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3081); BUNSPEC; } 
return BgL_new3916z00_3078;} } 
}



/* _allocate-pre-valloc/Cinfo */
obj_t BGl__allocatezd2prezd2valloczf2Cinfozf2zzcfa_info3z00(obj_t BgL_envz00_2713)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 43 */
{ /* ./Cfa/cinfo3.scm 43 */
BgL_vallocz00_bglt BgL_auxz00_3501;
{ /* ./Cfa/cinfo3.scm 43 */
BgL_vallocz00_bglt BgL_res6307z00_3086;
{ /* ./Cfa/cinfo3.scm 43 */
BgL_vallocz00_bglt BgL_new3916z00_3082;
BgL_new3916z00_3082 = 
((BgL_vallocz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_vallocz00_bgl) ))); 
{ /* ./Cfa/cinfo3.scm 43 */
long BgL_arg4297z00_3083;
BgL_arg4297z00_3083 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2valloczf2Cinfoz20zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 43 */
BgL_objectz00_bglt BgL_objz00_3084;
BgL_objz00_3084 = 
(BgL_objectz00_bglt)(BgL_new3916z00_3082); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3084, BgL_arg4297z00_3083); } } 
{ /* ./Cfa/cinfo3.scm 43 */
BgL_objectz00_bglt BgL_auxz00_3506;
BgL_auxz00_3506 = 
(BgL_objectz00_bglt)(BgL_new3916z00_3082); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3506, BFALSE); } 
{ /* ./Cfa/cinfo3.scm 43 */
obj_t BgL_objz00_3085;
BgL_objz00_3085 = 
(obj_t)(BgL_new3916z00_3082); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3085); BUNSPEC; } 
BgL_res6307z00_3086 = BgL_new3916z00_3082; } 
BgL_auxz00_3501 = BgL_res6307z00_3086; } 
return 
(obj_t)(BgL_auxz00_3501);} } 
}



/* vlength/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_vlengthzf2Cinfozf3z01zzcfa_info3z00(obj_t BgL_obj3873z00_89)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 38 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3873z00_89, BGl_vlengthzf2Cinfozf2zzcfa_info3z00);} 
}



/* _vlength/Cinfo? */
obj_t BGl__vlengthzf2Cinfozf3z01zzcfa_info3z00(obj_t BgL_envz00_2788, obj_t BgL_obj3873z00_2789)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 38 */
{ /* ./Cfa/cinfo3.scm 38 */
bool_t BgL_auxz00_3513;
BgL_auxz00_3513 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3873z00_2789, BGl_vlengthzf2Cinfozf2zzcfa_info3z00); 
return 
BBOOL(BgL_auxz00_3513);} } 
}



/* widening-vlength/Cinfo */
BGL_EXPORTED_DEF BgL_vlengthzf2cinfozf2_bglt BGl_wideningzd2vlengthzf2Cinfoz20zzcfa_info3z00(BgL_approxz00_bglt BgL_approx3844z00_93, bool_t BgL_tvectorzf33845zf3_94)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 38 */
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthzf2cinfozf2_bglt BgL_new3846z00_2054;
BgL_new3846z00_2054 = 
((BgL_vlengthzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_vlengthzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthzf2cinfozf2_bglt BgL_res5523z00_2060;
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthzf2cinfozf2_bglt BgL_new3862z00_2055;
BgL_new3862z00_2055 = BgL_new3846z00_2054; 
{ /* ./Cfa/cinfo3.scm 38 */
BgL_approxz00_bglt BgL_approx3860z00_2058;bool_t BgL_tvectorzf33861zf3_2059;
BgL_approx3860z00_2058 = BgL_approx3844z00_93; 
BgL_tvectorzf33861zf3_2059 = BgL_tvectorzf33845zf3_94; 
((((BgL_vlengthzf2cinfozf2_bglt)CREF(BgL_new3862z00_2055))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3860z00_2058), BUNSPEC); 
((((BgL_vlengthzf2cinfozf2_bglt)CREF(BgL_new3862z00_2055))->BgL_tvectorzf3zf3) = ((bool_t)BgL_tvectorzf33861zf3_2059), BUNSPEC); 
BgL_res5523z00_2060 = BgL_new3862z00_2055; } } BgL_res5523z00_2060; } 
return BgL_new3846z00_2054;} } 
}



/* _widening-vlength/Cinfo5607 */
obj_t BGl__wideningzd2vlengthzf2Cinfo5607z20zzcfa_info3z00(obj_t BgL_envz00_2790, obj_t BgL_approx3844z00_2791, obj_t BgL_tvectorzf33845zf3_2792)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 38 */
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthzf2cinfozf2_bglt BgL_auxz00_3519;
BgL_auxz00_3519 = 
BGl_wideningzd2vlengthzf2Cinfoz20zzcfa_info3z00(
(BgL_approxz00_bglt)(BgL_approx3844z00_2791), 
CBOOL(BgL_tvectorzf33845zf3_2792)); 
return 
(obj_t)(BgL_auxz00_3519);} } 
}



/* make-vlength/Cinfo */
BGL_EXPORTED_DEF BgL_vlengthzf2cinfozf2_bglt BGl_makezd2vlengthzf2Cinfoz20zzcfa_info3z00(obj_t BgL_loc3850z00_95, BgL_typez00_bglt BgL_type3851z00_96, obj_t BgL_sidezd2effectzf33852z21_97, obj_t BgL_key3853z00_98, obj_t BgL_exprza23854za2_99, obj_t BgL_effect3855z00_100, obj_t BgL_czd2format3856zd2_101, BgL_typez00_bglt BgL_vtype3857z00_102, BgL_approxz00_bglt BgL_approx3848z00_103, bool_t BgL_tvectorzf33849zf3_104)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 38 */
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthz00_bglt BgL_aux3858z00_2061;
BgL_aux3858z00_2061 = 
BGl_makezd2vlengthzd2zzast_nodez00(BgL_loc3850z00_95, BgL_type3851z00_96, BgL_sidezd2effectzf33852z21_97, BgL_key3853z00_98, BgL_exprza23854za2_99, BgL_effect3855z00_100, BgL_czd2format3856zd2_101, BgL_vtype3857z00_102); 
{ /* ./Cfa/cinfo3.scm 38 */
long BgL_arg4306z00_2062;
BgL_arg4306z00_2062 = 
BGl_classzd2numzd2zz__objectz00(BGl_vlengthzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 38 */
BgL_objectz00_bglt BgL_objz00_2065;
BgL_objz00_2065 = 
(BgL_objectz00_bglt)(BgL_aux3858z00_2061); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2065, BgL_arg4306z00_2062); } } 
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthzf2cinfozf2_bglt BgL_arg4310z00_2063;
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthzf2cinfozf2_bglt BgL_res5525z00_2076;
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthzf2cinfozf2_bglt BgL_new3846z00_2069;
BgL_new3846z00_2069 = 
((BgL_vlengthzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_vlengthzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthzf2cinfozf2_bglt BgL_res5524z00_2075;
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthzf2cinfozf2_bglt BgL_new3862z00_2070;
BgL_new3862z00_2070 = BgL_new3846z00_2069; 
{ /* ./Cfa/cinfo3.scm 38 */
BgL_approxz00_bglt BgL_approx3860z00_2073;bool_t BgL_tvectorzf33861zf3_2074;
BgL_approx3860z00_2073 = BgL_approx3848z00_103; 
BgL_tvectorzf33861zf3_2074 = BgL_tvectorzf33849zf3_104; 
((((BgL_vlengthzf2cinfozf2_bglt)CREF(BgL_new3862z00_2070))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3860z00_2073), BUNSPEC); 
((((BgL_vlengthzf2cinfozf2_bglt)CREF(BgL_new3862z00_2070))->BgL_tvectorzf3zf3) = ((bool_t)BgL_tvectorzf33861zf3_2074), BUNSPEC); 
BgL_res5524z00_2075 = BgL_new3862z00_2070; } } BgL_res5524z00_2075; } 
BgL_res5525z00_2076 = BgL_new3846z00_2069; } 
BgL_arg4310z00_2063 = BgL_res5525z00_2076; } 
{ /* ./Cfa/cinfo3.scm 38 */
obj_t BgL_auxz00_3533;BgL_objectz00_bglt BgL_auxz00_3531;
BgL_auxz00_3533 = 
(obj_t)(BgL_arg4310z00_2063); 
BgL_auxz00_3531 = 
(BgL_objectz00_bglt)(BgL_aux3858z00_2061); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3531, BgL_auxz00_3533); } } 
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthzf2cinfozf2_bglt BgL_new3859z00_2064;
{ 
BgL_vlengthzf2cinfozf2_bglt BgL_auxz00_3536;
BgL_auxz00_3536 = 
(BgL_vlengthzf2cinfozf2_bglt)(BgL_aux3858z00_2061); 
BgL_new3859z00_2064 = 
((BgL_vlengthzf2cinfozf2_bglt)BgL_auxz00_3536); } 
{ /* ./Cfa/cinfo3.scm 38 */
obj_t BgL_objz00_2077;
BgL_objz00_2077 = 
(obj_t)(BgL_new3859z00_2064); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2077); BUNSPEC; } 
return BgL_new3859z00_2064;} } } 
}



/* _make-vlength/Cinfo */
obj_t BGl__makezd2vlengthzf2Cinfoz20zzcfa_info3z00(obj_t BgL_envz00_2793, obj_t BgL_loc3850z00_2794, obj_t BgL_type3851z00_2795, obj_t BgL_sidezd2effectzf33852z21_2796, obj_t BgL_key3853z00_2797, obj_t BgL_exprza23854za2_2798, obj_t BgL_effect3855z00_2799, obj_t BgL_czd2format3856zd2_2800, obj_t BgL_vtype3857z00_2801, obj_t BgL_approx3848z00_2802, obj_t BgL_tvectorzf33849zf3_2803)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 38 */
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthzf2cinfozf2_bglt BgL_auxz00_3541;
BgL_auxz00_3541 = 
BGl_makezd2vlengthzf2Cinfoz20zzcfa_info3z00(BgL_loc3850z00_2794, 
(BgL_typez00_bglt)(BgL_type3851z00_2795), BgL_sidezd2effectzf33852z21_2796, BgL_key3853z00_2797, BgL_exprza23854za2_2798, BgL_effect3855z00_2799, BgL_czd2format3856zd2_2800, 
(BgL_typez00_bglt)(BgL_vtype3857z00_2801), 
(BgL_approxz00_bglt)(BgL_approx3848z00_2802), 
CBOOL(BgL_tvectorzf33849zf3_2803)); 
return 
(obj_t)(BgL_auxz00_3541);} } 
}



/* fill-vlength/Cinfo! */
BGL_EXPORTED_DEF BgL_vlengthzf2cinfozf2_bglt BGl_fillzd2vlengthzf2Cinfoz12z32zzcfa_info3z00(BgL_vlengthzf2cinfozf2_bglt BgL_new3862z00_105, BgL_approxz00_bglt BgL_approx3860z00_106, bool_t BgL_tvectorzf33861zf3_107)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 38 */
{ /* ./Cfa/cinfo3.scm 38 */
BgL_approxz00_bglt BgL_approx3860z00_3088;bool_t BgL_tvectorzf33861zf3_3089;
BgL_approx3860z00_3088 = BgL_approx3860z00_106; 
BgL_tvectorzf33861zf3_3089 = BgL_tvectorzf33861zf3_107; 
((((BgL_vlengthzf2cinfozf2_bglt)CREF(BgL_new3862z00_105))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3860z00_3088), BUNSPEC); 
((((BgL_vlengthzf2cinfozf2_bglt)CREF(BgL_new3862z00_105))->BgL_tvectorzf3zf3) = ((bool_t)BgL_tvectorzf33861zf3_3089), BUNSPEC); 
return BgL_new3862z00_105;} } 
}



/* _fill-vlength/Cinfo! */
obj_t BGl__fillzd2vlengthzf2Cinfoz12z32zzcfa_info3z00(obj_t BgL_envz00_2804, obj_t BgL_new3862z00_2805, obj_t BgL_approx3860z00_2806, obj_t BgL_tvectorzf33861zf3_2807)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 38 */
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthzf2cinfozf2_bglt BgL_auxz00_3550;
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthzf2cinfozf2_bglt BgL_res6308z00_3095;
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthzf2cinfozf2_bglt BgL_new3862z00_3090;BgL_approxz00_bglt BgL_approx3860z00_3091;bool_t BgL_tvectorzf33861zf3_3092;
BgL_new3862z00_3090 = 
(BgL_vlengthzf2cinfozf2_bglt)(BgL_new3862z00_2805); 
BgL_approx3860z00_3091 = 
(BgL_approxz00_bglt)(BgL_approx3860z00_2806); 
BgL_tvectorzf33861zf3_3092 = 
CBOOL(BgL_tvectorzf33861zf3_2807); 
{ /* ./Cfa/cinfo3.scm 38 */
BgL_approxz00_bglt BgL_approx3860z00_3093;bool_t BgL_tvectorzf33861zf3_3094;
BgL_approx3860z00_3093 = BgL_approx3860z00_3091; 
BgL_tvectorzf33861zf3_3094 = BgL_tvectorzf33861zf3_3092; 
((((BgL_vlengthzf2cinfozf2_bglt)CREF(BgL_new3862z00_3090))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3860z00_3093), BUNSPEC); 
((((BgL_vlengthzf2cinfozf2_bglt)CREF(BgL_new3862z00_3090))->BgL_tvectorzf3zf3) = ((bool_t)BgL_tvectorzf33861zf3_3094), BUNSPEC); 
BgL_res6308z00_3095 = BgL_new3862z00_3090; } } 
BgL_auxz00_3550 = BgL_res6308z00_3095; } 
return 
(obj_t)(BgL_auxz00_3550);} } 
}



/* allocate-vlength/Cinfo */
BGL_EXPORTED_DEF BgL_vlengthz00_bglt BGl_allocatezd2vlengthzf2Cinfoz20zzcfa_info3z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 38 */
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthz00_bglt BgL_new3866z00_3096;
BgL_new3866z00_3096 = 
((BgL_vlengthz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_vlengthz00_bgl) ))); 
{ /* ./Cfa/cinfo3.scm 38 */
long BgL_arg4316z00_3097;
BgL_arg4316z00_3097 = 
BGl_classzd2numzd2zz__objectz00(BGl_vlengthzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 38 */
BgL_objectz00_bglt BgL_objz00_3098;
BgL_objz00_3098 = 
(BgL_objectz00_bglt)(BgL_new3866z00_3096); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3098, BgL_arg4316z00_3097); } } 
{ /* ./Cfa/cinfo3.scm 38 */
BgL_objectz00_bglt BgL_auxz00_3561;
BgL_auxz00_3561 = 
(BgL_objectz00_bglt)(BgL_new3866z00_3096); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3561, BFALSE); } 
{ /* ./Cfa/cinfo3.scm 38 */
obj_t BgL_objz00_3099;
BgL_objz00_3099 = 
(obj_t)(BgL_new3866z00_3096); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3099); BUNSPEC; } 
return BgL_new3866z00_3096;} } 
}



/* _allocate-vlength/Cinfo */
obj_t BGl__allocatezd2vlengthzf2Cinfoz20zzcfa_info3z00(obj_t BgL_envz00_2712)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 38 */
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthz00_bglt BgL_auxz00_3566;
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthz00_bglt BgL_res6309z00_3104;
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthz00_bglt BgL_new3866z00_3100;
BgL_new3866z00_3100 = 
((BgL_vlengthz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_vlengthz00_bgl) ))); 
{ /* ./Cfa/cinfo3.scm 38 */
long BgL_arg4316z00_3101;
BgL_arg4316z00_3101 = 
BGl_classzd2numzd2zz__objectz00(BGl_vlengthzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 38 */
BgL_objectz00_bglt BgL_objz00_3102;
BgL_objz00_3102 = 
(BgL_objectz00_bglt)(BgL_new3866z00_3100); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3102, BgL_arg4316z00_3101); } } 
{ /* ./Cfa/cinfo3.scm 38 */
BgL_objectz00_bglt BgL_auxz00_3571;
BgL_auxz00_3571 = 
(BgL_objectz00_bglt)(BgL_new3866z00_3100); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3571, BFALSE); } 
{ /* ./Cfa/cinfo3.scm 38 */
obj_t BgL_objz00_3103;
BgL_objz00_3103 = 
(obj_t)(BgL_new3866z00_3100); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3103); BUNSPEC; } 
BgL_res6309z00_3104 = BgL_new3866z00_3100; } 
BgL_auxz00_3566 = BgL_res6309z00_3104; } 
return 
(obj_t)(BgL_auxz00_3566);} } 
}



/* vset!/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_vsetz12zf2Cinfozf3z13zzcfa_info3z00(obj_t BgL_obj3817z00_112)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 35 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3817z00_112, BGl_vsetz12zf2Cinfoze0zzcfa_info3z00);} 
}



/* _vset!/Cinfo? */
obj_t BGl__vsetz12zf2Cinfozf3z13zzcfa_info3z00(obj_t BgL_envz00_2808, obj_t BgL_obj3817z00_2809)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 35 */
{ /* ./Cfa/cinfo3.scm 35 */
bool_t BgL_auxz00_3578;
BgL_auxz00_3578 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3817z00_2809, BGl_vsetz12zf2Cinfoze0zzcfa_info3z00); 
return 
BBOOL(BgL_auxz00_3578);} } 
}



/* widening-vset!/Cinfo */
BGL_EXPORTED_DEF BgL_vsetz12zf2cinfoze0_bglt BGl_wideningzd2vsetz12zf2Cinfoz32zzcfa_info3z00(BgL_approxz00_bglt BgL_approx3785z00_116, bool_t BgL_tvectorzf33786zf3_117)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 35 */
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12zf2cinfoze0_bglt BgL_new3787z00_2085;
BgL_new3787z00_2085 = 
((BgL_vsetz12zf2cinfoze0_bglt)BREF( GC_MALLOC (sizeof(struct BgL_vsetz12zf2cinfoze0_bgl)))); 
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12zf2cinfoze0_bglt BgL_res5526z00_2091;
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12zf2cinfoze0_bglt BgL_new3805z00_2086;
BgL_new3805z00_2086 = BgL_new3787z00_2085; 
{ /* ./Cfa/cinfo3.scm 35 */
BgL_approxz00_bglt BgL_approx3803z00_2089;bool_t BgL_tvectorzf33804zf3_2090;
BgL_approx3803z00_2089 = BgL_approx3785z00_116; 
BgL_tvectorzf33804zf3_2090 = BgL_tvectorzf33786zf3_117; 
((((BgL_vsetz12zf2cinfoze0_bglt)CREF(BgL_new3805z00_2086))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3803z00_2089), BUNSPEC); 
((((BgL_vsetz12zf2cinfoze0_bglt)CREF(BgL_new3805z00_2086))->BgL_tvectorzf3zf3) = ((bool_t)BgL_tvectorzf33804zf3_2090), BUNSPEC); 
BgL_res5526z00_2091 = BgL_new3805z00_2086; } } BgL_res5526z00_2091; } 
return BgL_new3787z00_2085;} } 
}



/* _widening-vset!/Cinfo5612 */
obj_t BGl__wideningzd2vsetz12zf2Cinfo5612z32zzcfa_info3z00(obj_t BgL_envz00_2810, obj_t BgL_approx3785z00_2811, obj_t BgL_tvectorzf33786zf3_2812)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 35 */
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12zf2cinfoze0_bglt BgL_auxz00_3584;
BgL_auxz00_3584 = 
BGl_wideningzd2vsetz12zf2Cinfoz32zzcfa_info3z00(
(BgL_approxz00_bglt)(BgL_approx3785z00_2811), 
CBOOL(BgL_tvectorzf33786zf3_2812)); 
return 
(obj_t)(BgL_auxz00_3584);} } 
}



/* make-vset!/Cinfo */
BGL_EXPORTED_DEF BgL_vsetz12zf2cinfoze0_bglt BGl_makezd2vsetz12zf2Cinfoz32zzcfa_info3z00(obj_t BgL_loc3791z00_118, BgL_typez00_bglt BgL_type3792z00_119, obj_t BgL_sidezd2effectzf33793z21_120, obj_t BgL_key3794z00_121, obj_t BgL_exprza23795za2_122, obj_t BgL_effect3796z00_123, obj_t BgL_czd2format3797zd2_124, BgL_typez00_bglt BgL_ftype3798z00_125, BgL_typez00_bglt BgL_otype3799z00_126, BgL_typez00_bglt BgL_vtype3800z00_127, BgL_approxz00_bglt BgL_approx3789z00_128, bool_t BgL_tvectorzf33790zf3_129)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 35 */
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12z12_bglt BgL_aux3801z00_2092;
BgL_aux3801z00_2092 = 
BGl_makezd2vsetz12zc0zzast_nodez00(BgL_loc3791z00_118, BgL_type3792z00_119, BgL_sidezd2effectzf33793z21_120, BgL_key3794z00_121, BgL_exprza23795za2_122, BgL_effect3796z00_123, BgL_czd2format3797zd2_124, BgL_ftype3798z00_125, BgL_otype3799z00_126, BgL_vtype3800z00_127); 
{ /* ./Cfa/cinfo3.scm 35 */
long BgL_arg4327z00_2093;
BgL_arg4327z00_2093 = 
BGl_classzd2numzd2zz__objectz00(BGl_vsetz12zf2Cinfoze0zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 35 */
BgL_objectz00_bglt BgL_objz00_2096;
BgL_objz00_2096 = 
(BgL_objectz00_bglt)(BgL_aux3801z00_2092); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2096, BgL_arg4327z00_2093); } } 
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12zf2cinfoze0_bglt BgL_arg4331z00_2094;
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12zf2cinfoze0_bglt BgL_res5528z00_2107;
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12zf2cinfoze0_bglt BgL_new3787z00_2100;
BgL_new3787z00_2100 = 
((BgL_vsetz12zf2cinfoze0_bglt)BREF( GC_MALLOC (sizeof(struct BgL_vsetz12zf2cinfoze0_bgl)))); 
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12zf2cinfoze0_bglt BgL_res5527z00_2106;
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12zf2cinfoze0_bglt BgL_new3805z00_2101;
BgL_new3805z00_2101 = BgL_new3787z00_2100; 
{ /* ./Cfa/cinfo3.scm 35 */
BgL_approxz00_bglt BgL_approx3803z00_2104;bool_t BgL_tvectorzf33804zf3_2105;
BgL_approx3803z00_2104 = BgL_approx3789z00_128; 
BgL_tvectorzf33804zf3_2105 = BgL_tvectorzf33790zf3_129; 
((((BgL_vsetz12zf2cinfoze0_bglt)CREF(BgL_new3805z00_2101))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3803z00_2104), BUNSPEC); 
((((BgL_vsetz12zf2cinfoze0_bglt)CREF(BgL_new3805z00_2101))->BgL_tvectorzf3zf3) = ((bool_t)BgL_tvectorzf33804zf3_2105), BUNSPEC); 
BgL_res5527z00_2106 = BgL_new3805z00_2101; } } BgL_res5527z00_2106; } 
BgL_res5528z00_2107 = BgL_new3787z00_2100; } 
BgL_arg4331z00_2094 = BgL_res5528z00_2107; } 
{ /* ./Cfa/cinfo3.scm 35 */
obj_t BgL_auxz00_3598;BgL_objectz00_bglt BgL_auxz00_3596;
BgL_auxz00_3598 = 
(obj_t)(BgL_arg4331z00_2094); 
BgL_auxz00_3596 = 
(BgL_objectz00_bglt)(BgL_aux3801z00_2092); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3596, BgL_auxz00_3598); } } 
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12zf2cinfoze0_bglt BgL_new3802z00_2095;
{ 
BgL_vsetz12zf2cinfoze0_bglt BgL_auxz00_3601;
BgL_auxz00_3601 = 
(BgL_vsetz12zf2cinfoze0_bglt)(BgL_aux3801z00_2092); 
BgL_new3802z00_2095 = 
((BgL_vsetz12zf2cinfoze0_bglt)BgL_auxz00_3601); } 
{ /* ./Cfa/cinfo3.scm 35 */
obj_t BgL_objz00_2108;
BgL_objz00_2108 = 
(obj_t)(BgL_new3802z00_2095); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2108); BUNSPEC; } 
return BgL_new3802z00_2095;} } } 
}



/* _make-vset!/Cinfo */
obj_t BGl__makezd2vsetz12zf2Cinfoz32zzcfa_info3z00(obj_t BgL_envz00_2813, obj_t BgL_loc3791z00_2814, obj_t BgL_type3792z00_2815, obj_t BgL_sidezd2effectzf33793z21_2816, obj_t BgL_key3794z00_2817, obj_t BgL_exprza23795za2_2818, obj_t BgL_effect3796z00_2819, obj_t BgL_czd2format3797zd2_2820, obj_t BgL_ftype3798z00_2821, obj_t BgL_otype3799z00_2822, obj_t BgL_vtype3800z00_2823, obj_t BgL_approx3789z00_2824, obj_t BgL_tvectorzf33790zf3_2825)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 35 */
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12zf2cinfoze0_bglt BgL_auxz00_3606;
BgL_auxz00_3606 = 
BGl_makezd2vsetz12zf2Cinfoz32zzcfa_info3z00(BgL_loc3791z00_2814, 
(BgL_typez00_bglt)(BgL_type3792z00_2815), BgL_sidezd2effectzf33793z21_2816, BgL_key3794z00_2817, BgL_exprza23795za2_2818, BgL_effect3796z00_2819, BgL_czd2format3797zd2_2820, 
(BgL_typez00_bglt)(BgL_ftype3798z00_2821), 
(BgL_typez00_bglt)(BgL_otype3799z00_2822), 
(BgL_typez00_bglt)(BgL_vtype3800z00_2823), 
(BgL_approxz00_bglt)(BgL_approx3789z00_2824), 
CBOOL(BgL_tvectorzf33790zf3_2825)); 
return 
(obj_t)(BgL_auxz00_3606);} } 
}



/* fill-vset!/Cinfo! */
BGL_EXPORTED_DEF BgL_vsetz12zf2cinfoze0_bglt BGl_fillzd2vsetz12zf2Cinfoz12z20zzcfa_info3z00(BgL_vsetz12zf2cinfoze0_bglt BgL_new3805z00_130, BgL_approxz00_bglt BgL_approx3803z00_131, bool_t BgL_tvectorzf33804zf3_132)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 35 */
{ /* ./Cfa/cinfo3.scm 35 */
BgL_approxz00_bglt BgL_approx3803z00_3106;bool_t BgL_tvectorzf33804zf3_3107;
BgL_approx3803z00_3106 = BgL_approx3803z00_131; 
BgL_tvectorzf33804zf3_3107 = BgL_tvectorzf33804zf3_132; 
((((BgL_vsetz12zf2cinfoze0_bglt)CREF(BgL_new3805z00_130))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3803z00_3106), BUNSPEC); 
((((BgL_vsetz12zf2cinfoze0_bglt)CREF(BgL_new3805z00_130))->BgL_tvectorzf3zf3) = ((bool_t)BgL_tvectorzf33804zf3_3107), BUNSPEC); 
return BgL_new3805z00_130;} } 
}



/* _fill-vset!/Cinfo! */
obj_t BGl__fillzd2vsetz12zf2Cinfoz12z20zzcfa_info3z00(obj_t BgL_envz00_2826, obj_t BgL_new3805z00_2827, obj_t BgL_approx3803z00_2828, obj_t BgL_tvectorzf33804zf3_2829)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 35 */
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12zf2cinfoze0_bglt BgL_auxz00_3617;
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12zf2cinfoze0_bglt BgL_res6310z00_3113;
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12zf2cinfoze0_bglt BgL_new3805z00_3108;BgL_approxz00_bglt BgL_approx3803z00_3109;bool_t BgL_tvectorzf33804zf3_3110;
BgL_new3805z00_3108 = 
(BgL_vsetz12zf2cinfoze0_bglt)(BgL_new3805z00_2827); 
BgL_approx3803z00_3109 = 
(BgL_approxz00_bglt)(BgL_approx3803z00_2828); 
BgL_tvectorzf33804zf3_3110 = 
CBOOL(BgL_tvectorzf33804zf3_2829); 
{ /* ./Cfa/cinfo3.scm 35 */
BgL_approxz00_bglt BgL_approx3803z00_3111;bool_t BgL_tvectorzf33804zf3_3112;
BgL_approx3803z00_3111 = BgL_approx3803z00_3109; 
BgL_tvectorzf33804zf3_3112 = BgL_tvectorzf33804zf3_3110; 
((((BgL_vsetz12zf2cinfoze0_bglt)CREF(BgL_new3805z00_3108))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3803z00_3111), BUNSPEC); 
((((BgL_vsetz12zf2cinfoze0_bglt)CREF(BgL_new3805z00_3108))->BgL_tvectorzf3zf3) = ((bool_t)BgL_tvectorzf33804zf3_3112), BUNSPEC); 
BgL_res6310z00_3113 = BgL_new3805z00_3108; } } 
BgL_auxz00_3617 = BgL_res6310z00_3113; } 
return 
(obj_t)(BgL_auxz00_3617);} } 
}



/* allocate-vset!/Cinfo */
BGL_EXPORTED_DEF BgL_vsetz12z12_bglt BGl_allocatezd2vsetz12zf2Cinfoz32zzcfa_info3z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 35 */
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12z12_bglt BgL_new3809z00_3114;
BgL_new3809z00_3114 = 
((BgL_vsetz12z12_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_vsetz12z12_bgl) ))); 
{ /* ./Cfa/cinfo3.scm 35 */
long BgL_arg4337z00_3115;
BgL_arg4337z00_3115 = 
BGl_classzd2numzd2zz__objectz00(BGl_vsetz12zf2Cinfoze0zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 35 */
BgL_objectz00_bglt BgL_objz00_3116;
BgL_objz00_3116 = 
(BgL_objectz00_bglt)(BgL_new3809z00_3114); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3116, BgL_arg4337z00_3115); } } 
{ /* ./Cfa/cinfo3.scm 35 */
BgL_objectz00_bglt BgL_auxz00_3628;
BgL_auxz00_3628 = 
(BgL_objectz00_bglt)(BgL_new3809z00_3114); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3628, BFALSE); } 
{ /* ./Cfa/cinfo3.scm 35 */
obj_t BgL_objz00_3117;
BgL_objz00_3117 = 
(obj_t)(BgL_new3809z00_3114); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3117); BUNSPEC; } 
return BgL_new3809z00_3114;} } 
}



/* _allocate-vset!/Cinfo */
obj_t BGl__allocatezd2vsetz12zf2Cinfoz32zzcfa_info3z00(obj_t BgL_envz00_2711)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 35 */
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12z12_bglt BgL_auxz00_3633;
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12z12_bglt BgL_res6311z00_3122;
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12z12_bglt BgL_new3809z00_3118;
BgL_new3809z00_3118 = 
((BgL_vsetz12z12_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_vsetz12z12_bgl) ))); 
{ /* ./Cfa/cinfo3.scm 35 */
long BgL_arg4337z00_3119;
BgL_arg4337z00_3119 = 
BGl_classzd2numzd2zz__objectz00(BGl_vsetz12zf2Cinfoze0zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 35 */
BgL_objectz00_bglt BgL_objz00_3120;
BgL_objz00_3120 = 
(BgL_objectz00_bglt)(BgL_new3809z00_3118); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3120, BgL_arg4337z00_3119); } } 
{ /* ./Cfa/cinfo3.scm 35 */
BgL_objectz00_bglt BgL_auxz00_3638;
BgL_auxz00_3638 = 
(BgL_objectz00_bglt)(BgL_new3809z00_3118); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3638, BFALSE); } 
{ /* ./Cfa/cinfo3.scm 35 */
obj_t BgL_objz00_3121;
BgL_objz00_3121 = 
(obj_t)(BgL_new3809z00_3118); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3121); BUNSPEC; } 
BgL_res6311z00_3122 = BgL_new3809z00_3118; } 
BgL_auxz00_3633 = BgL_res6311z00_3122; } 
return 
(obj_t)(BgL_auxz00_3633);} } 
}



/* vref/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_vrefzf2Cinfozf3z01zzcfa_info3z00(obj_t BgL_obj3758z00_137)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 32 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3758z00_137, BGl_vrefzf2Cinfozf2zzcfa_info3z00);} 
}



/* _vref/Cinfo? */
obj_t BGl__vrefzf2Cinfozf3z01zzcfa_info3z00(obj_t BgL_envz00_2830, obj_t BgL_obj3758z00_2831)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 32 */
{ /* ./Cfa/cinfo3.scm 32 */
bool_t BgL_auxz00_3645;
BgL_auxz00_3645 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3758z00_2831, BGl_vrefzf2Cinfozf2zzcfa_info3z00); 
return 
BBOOL(BgL_auxz00_3645);} } 
}



/* widening-vref/Cinfo */
BGL_EXPORTED_DEF BgL_vrefzf2cinfozf2_bglt BGl_wideningzd2vrefzf2Cinfoz20zzcfa_info3z00(BgL_approxz00_bglt BgL_approx3727z00_141, bool_t BgL_tvectorzf33728zf3_142)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 32 */
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefzf2cinfozf2_bglt BgL_new3729z00_2116;
BgL_new3729z00_2116 = 
((BgL_vrefzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_vrefzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefzf2cinfozf2_bglt BgL_res5529z00_2122;
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefzf2cinfozf2_bglt BgL_new3747z00_2117;
BgL_new3747z00_2117 = BgL_new3729z00_2116; 
{ /* ./Cfa/cinfo3.scm 32 */
BgL_approxz00_bglt BgL_approx3745z00_2120;bool_t BgL_tvectorzf33746zf3_2121;
BgL_approx3745z00_2120 = BgL_approx3727z00_141; 
BgL_tvectorzf33746zf3_2121 = BgL_tvectorzf33728zf3_142; 
((((BgL_vrefzf2cinfozf2_bglt)CREF(BgL_new3747z00_2117))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3745z00_2120), BUNSPEC); 
((((BgL_vrefzf2cinfozf2_bglt)CREF(BgL_new3747z00_2117))->BgL_tvectorzf3zf3) = ((bool_t)BgL_tvectorzf33746zf3_2121), BUNSPEC); 
BgL_res5529z00_2122 = BgL_new3747z00_2117; } } BgL_res5529z00_2122; } 
return BgL_new3729z00_2116;} } 
}



/* _widening-vref/Cinfo5617 */
obj_t BGl__wideningzd2vrefzf2Cinfo5617z20zzcfa_info3z00(obj_t BgL_envz00_2832, obj_t BgL_approx3727z00_2833, obj_t BgL_tvectorzf33728zf3_2834)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 32 */
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefzf2cinfozf2_bglt BgL_auxz00_3651;
BgL_auxz00_3651 = 
BGl_wideningzd2vrefzf2Cinfoz20zzcfa_info3z00(
(BgL_approxz00_bglt)(BgL_approx3727z00_2833), 
CBOOL(BgL_tvectorzf33728zf3_2834)); 
return 
(obj_t)(BgL_auxz00_3651);} } 
}



/* make-vref/Cinfo */
BGL_EXPORTED_DEF BgL_vrefzf2cinfozf2_bglt BGl_makezd2vrefzf2Cinfoz20zzcfa_info3z00(obj_t BgL_loc3733z00_143, BgL_typez00_bglt BgL_type3734z00_144, obj_t BgL_sidezd2effectzf33735z21_145, obj_t BgL_key3736z00_146, obj_t BgL_exprza23737za2_147, obj_t BgL_effect3738z00_148, obj_t BgL_czd2format3739zd2_149, BgL_typez00_bglt BgL_ftype3740z00_150, BgL_typez00_bglt BgL_otype3741z00_151, BgL_typez00_bglt BgL_vtype3742z00_152, BgL_approxz00_bglt BgL_approx3731z00_153, bool_t BgL_tvectorzf33732zf3_154)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 32 */
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefz00_bglt BgL_aux3743z00_2123;
BgL_aux3743z00_2123 = 
BGl_makezd2vrefzd2zzast_nodez00(BgL_loc3733z00_143, BgL_type3734z00_144, BgL_sidezd2effectzf33735z21_145, BgL_key3736z00_146, BgL_exprza23737za2_147, BgL_effect3738z00_148, BgL_czd2format3739zd2_149, BgL_ftype3740z00_150, BgL_otype3741z00_151, BgL_vtype3742z00_152); 
{ /* ./Cfa/cinfo3.scm 32 */
long BgL_arg4348z00_2124;
BgL_arg4348z00_2124 = 
BGl_classzd2numzd2zz__objectz00(BGl_vrefzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 32 */
BgL_objectz00_bglt BgL_objz00_2127;
BgL_objz00_2127 = 
(BgL_objectz00_bglt)(BgL_aux3743z00_2123); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2127, BgL_arg4348z00_2124); } } 
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefzf2cinfozf2_bglt BgL_arg4352z00_2125;
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefzf2cinfozf2_bglt BgL_res5531z00_2138;
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefzf2cinfozf2_bglt BgL_new3729z00_2131;
BgL_new3729z00_2131 = 
((BgL_vrefzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_vrefzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefzf2cinfozf2_bglt BgL_res5530z00_2137;
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefzf2cinfozf2_bglt BgL_new3747z00_2132;
BgL_new3747z00_2132 = BgL_new3729z00_2131; 
{ /* ./Cfa/cinfo3.scm 32 */
BgL_approxz00_bglt BgL_approx3745z00_2135;bool_t BgL_tvectorzf33746zf3_2136;
BgL_approx3745z00_2135 = BgL_approx3731z00_153; 
BgL_tvectorzf33746zf3_2136 = BgL_tvectorzf33732zf3_154; 
((((BgL_vrefzf2cinfozf2_bglt)CREF(BgL_new3747z00_2132))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3745z00_2135), BUNSPEC); 
((((BgL_vrefzf2cinfozf2_bglt)CREF(BgL_new3747z00_2132))->BgL_tvectorzf3zf3) = ((bool_t)BgL_tvectorzf33746zf3_2136), BUNSPEC); 
BgL_res5530z00_2137 = BgL_new3747z00_2132; } } BgL_res5530z00_2137; } 
BgL_res5531z00_2138 = BgL_new3729z00_2131; } 
BgL_arg4352z00_2125 = BgL_res5531z00_2138; } 
{ /* ./Cfa/cinfo3.scm 32 */
obj_t BgL_auxz00_3665;BgL_objectz00_bglt BgL_auxz00_3663;
BgL_auxz00_3665 = 
(obj_t)(BgL_arg4352z00_2125); 
BgL_auxz00_3663 = 
(BgL_objectz00_bglt)(BgL_aux3743z00_2123); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3663, BgL_auxz00_3665); } } 
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefzf2cinfozf2_bglt BgL_new3744z00_2126;
{ 
BgL_vrefzf2cinfozf2_bglt BgL_auxz00_3668;
BgL_auxz00_3668 = 
(BgL_vrefzf2cinfozf2_bglt)(BgL_aux3743z00_2123); 
BgL_new3744z00_2126 = 
((BgL_vrefzf2cinfozf2_bglt)BgL_auxz00_3668); } 
{ /* ./Cfa/cinfo3.scm 32 */
obj_t BgL_objz00_2139;
BgL_objz00_2139 = 
(obj_t)(BgL_new3744z00_2126); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2139); BUNSPEC; } 
return BgL_new3744z00_2126;} } } 
}



/* _make-vref/Cinfo */
obj_t BGl__makezd2vrefzf2Cinfoz20zzcfa_info3z00(obj_t BgL_envz00_2835, obj_t BgL_loc3733z00_2836, obj_t BgL_type3734z00_2837, obj_t BgL_sidezd2effectzf33735z21_2838, obj_t BgL_key3736z00_2839, obj_t BgL_exprza23737za2_2840, obj_t BgL_effect3738z00_2841, obj_t BgL_czd2format3739zd2_2842, obj_t BgL_ftype3740z00_2843, obj_t BgL_otype3741z00_2844, obj_t BgL_vtype3742z00_2845, obj_t BgL_approx3731z00_2846, obj_t BgL_tvectorzf33732zf3_2847)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 32 */
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefzf2cinfozf2_bglt BgL_auxz00_3673;
BgL_auxz00_3673 = 
BGl_makezd2vrefzf2Cinfoz20zzcfa_info3z00(BgL_loc3733z00_2836, 
(BgL_typez00_bglt)(BgL_type3734z00_2837), BgL_sidezd2effectzf33735z21_2838, BgL_key3736z00_2839, BgL_exprza23737za2_2840, BgL_effect3738z00_2841, BgL_czd2format3739zd2_2842, 
(BgL_typez00_bglt)(BgL_ftype3740z00_2843), 
(BgL_typez00_bglt)(BgL_otype3741z00_2844), 
(BgL_typez00_bglt)(BgL_vtype3742z00_2845), 
(BgL_approxz00_bglt)(BgL_approx3731z00_2846), 
CBOOL(BgL_tvectorzf33732zf3_2847)); 
return 
(obj_t)(BgL_auxz00_3673);} } 
}



/* fill-vref/Cinfo! */
BGL_EXPORTED_DEF BgL_vrefzf2cinfozf2_bglt BGl_fillzd2vrefzf2Cinfoz12z32zzcfa_info3z00(BgL_vrefzf2cinfozf2_bglt BgL_new3747z00_155, BgL_approxz00_bglt BgL_approx3745z00_156, bool_t BgL_tvectorzf33746zf3_157)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 32 */
{ /* ./Cfa/cinfo3.scm 32 */
BgL_approxz00_bglt BgL_approx3745z00_3124;bool_t BgL_tvectorzf33746zf3_3125;
BgL_approx3745z00_3124 = BgL_approx3745z00_156; 
BgL_tvectorzf33746zf3_3125 = BgL_tvectorzf33746zf3_157; 
((((BgL_vrefzf2cinfozf2_bglt)CREF(BgL_new3747z00_155))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3745z00_3124), BUNSPEC); 
((((BgL_vrefzf2cinfozf2_bglt)CREF(BgL_new3747z00_155))->BgL_tvectorzf3zf3) = ((bool_t)BgL_tvectorzf33746zf3_3125), BUNSPEC); 
return BgL_new3747z00_155;} } 
}



/* _fill-vref/Cinfo! */
obj_t BGl__fillzd2vrefzf2Cinfoz12z32zzcfa_info3z00(obj_t BgL_envz00_2848, obj_t BgL_new3747z00_2849, obj_t BgL_approx3745z00_2850, obj_t BgL_tvectorzf33746zf3_2851)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 32 */
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefzf2cinfozf2_bglt BgL_auxz00_3684;
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefzf2cinfozf2_bglt BgL_res6312z00_3131;
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefzf2cinfozf2_bglt BgL_new3747z00_3126;BgL_approxz00_bglt BgL_approx3745z00_3127;bool_t BgL_tvectorzf33746zf3_3128;
BgL_new3747z00_3126 = 
(BgL_vrefzf2cinfozf2_bglt)(BgL_new3747z00_2849); 
BgL_approx3745z00_3127 = 
(BgL_approxz00_bglt)(BgL_approx3745z00_2850); 
BgL_tvectorzf33746zf3_3128 = 
CBOOL(BgL_tvectorzf33746zf3_2851); 
{ /* ./Cfa/cinfo3.scm 32 */
BgL_approxz00_bglt BgL_approx3745z00_3129;bool_t BgL_tvectorzf33746zf3_3130;
BgL_approx3745z00_3129 = BgL_approx3745z00_3127; 
BgL_tvectorzf33746zf3_3130 = BgL_tvectorzf33746zf3_3128; 
((((BgL_vrefzf2cinfozf2_bglt)CREF(BgL_new3747z00_3126))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3745z00_3129), BUNSPEC); 
((((BgL_vrefzf2cinfozf2_bglt)CREF(BgL_new3747z00_3126))->BgL_tvectorzf3zf3) = ((bool_t)BgL_tvectorzf33746zf3_3130), BUNSPEC); 
BgL_res6312z00_3131 = BgL_new3747z00_3126; } } 
BgL_auxz00_3684 = BgL_res6312z00_3131; } 
return 
(obj_t)(BgL_auxz00_3684);} } 
}



/* allocate-vref/Cinfo */
BGL_EXPORTED_DEF BgL_vrefz00_bglt BGl_allocatezd2vrefzf2Cinfoz20zzcfa_info3z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 32 */
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefz00_bglt BgL_new3751z00_3132;
BgL_new3751z00_3132 = 
((BgL_vrefz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_vrefz00_bgl) ))); 
{ /* ./Cfa/cinfo3.scm 32 */
long BgL_arg4358z00_3133;
BgL_arg4358z00_3133 = 
BGl_classzd2numzd2zz__objectz00(BGl_vrefzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 32 */
BgL_objectz00_bglt BgL_objz00_3134;
BgL_objz00_3134 = 
(BgL_objectz00_bglt)(BgL_new3751z00_3132); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3134, BgL_arg4358z00_3133); } } 
{ /* ./Cfa/cinfo3.scm 32 */
BgL_objectz00_bglt BgL_auxz00_3695;
BgL_auxz00_3695 = 
(BgL_objectz00_bglt)(BgL_new3751z00_3132); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3695, BFALSE); } 
{ /* ./Cfa/cinfo3.scm 32 */
obj_t BgL_objz00_3135;
BgL_objz00_3135 = 
(obj_t)(BgL_new3751z00_3132); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3135); BUNSPEC; } 
return BgL_new3751z00_3132;} } 
}



/* _allocate-vref/Cinfo */
obj_t BGl__allocatezd2vrefzf2Cinfoz20zzcfa_info3z00(obj_t BgL_envz00_2710)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 32 */
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefz00_bglt BgL_auxz00_3700;
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefz00_bglt BgL_res6313z00_3140;
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefz00_bglt BgL_new3751z00_3136;
BgL_new3751z00_3136 = 
((BgL_vrefz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_vrefz00_bgl) ))); 
{ /* ./Cfa/cinfo3.scm 32 */
long BgL_arg4358z00_3137;
BgL_arg4358z00_3137 = 
BGl_classzd2numzd2zz__objectz00(BGl_vrefzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 32 */
BgL_objectz00_bglt BgL_objz00_3138;
BgL_objz00_3138 = 
(BgL_objectz00_bglt)(BgL_new3751z00_3136); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3138, BgL_arg4358z00_3137); } } 
{ /* ./Cfa/cinfo3.scm 32 */
BgL_objectz00_bglt BgL_auxz00_3705;
BgL_auxz00_3705 = 
(BgL_objectz00_bglt)(BgL_new3751z00_3136); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3705, BFALSE); } 
{ /* ./Cfa/cinfo3.scm 32 */
obj_t BgL_objz00_3139;
BgL_objz00_3139 = 
(obj_t)(BgL_new3751z00_3136); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3139); BUNSPEC; } 
BgL_res6313z00_3140 = BgL_new3751z00_3136; } 
BgL_auxz00_3700 = BgL_res6313z00_3140; } 
return 
(obj_t)(BgL_auxz00_3700);} } 
}



/* isa/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_isazf2Cinfozf3z01zzcfa_info3z00(obj_t BgL_obj3707z00_162)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 29 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3707z00_162, BGl_isazf2Cinfozf2zzcfa_info3z00);} 
}



/* _isa/Cinfo? */
obj_t BGl__isazf2Cinfozf3z01zzcfa_info3z00(obj_t BgL_envz00_2852, obj_t BgL_obj3707z00_2853)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 29 */
{ /* ./Cfa/cinfo3.scm 29 */
bool_t BgL_auxz00_3712;
BgL_auxz00_3712 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3707z00_2853, BGl_isazf2Cinfozf2zzcfa_info3z00); 
return 
BBOOL(BgL_auxz00_3712);} } 
}



/* widening-isa/Cinfo */
BGL_EXPORTED_DEF BgL_isazf2cinfozf2_bglt BGl_wideningzd2isazf2Cinfoz20zzcfa_info3z00(BgL_approxz00_bglt BgL_approx3683z00_166)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 29 */
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isazf2cinfozf2_bglt BgL_new3684z00_2147;
BgL_new3684z00_2147 = 
((BgL_isazf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_isazf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isazf2cinfozf2_bglt BgL_res5532z00_2151;
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isazf2cinfozf2_bglt BgL_new3697z00_2148;
BgL_new3697z00_2148 = BgL_new3684z00_2147; 
{ /* ./Cfa/cinfo3.scm 29 */
BgL_approxz00_bglt BgL_approx3696z00_2150;
BgL_approx3696z00_2150 = BgL_approx3683z00_166; 
((((BgL_isazf2cinfozf2_bglt)CREF(BgL_new3697z00_2148))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3696z00_2150), BUNSPEC); 
BgL_res5532z00_2151 = BgL_new3697z00_2148; } } BgL_res5532z00_2151; } 
return BgL_new3684z00_2147;} } 
}



/* _widening-isa/Cinfo5622 */
obj_t BGl__wideningzd2isazf2Cinfo5622z20zzcfa_info3z00(obj_t BgL_envz00_2854, obj_t BgL_approx3683z00_2855)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 29 */
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isazf2cinfozf2_bglt BgL_auxz00_3717;
BgL_auxz00_3717 = 
BGl_wideningzd2isazf2Cinfoz20zzcfa_info3z00(
(BgL_approxz00_bglt)(BgL_approx3683z00_2855)); 
return 
(obj_t)(BgL_auxz00_3717);} } 
}



/* make-isa/Cinfo */
BGL_EXPORTED_DEF BgL_isazf2cinfozf2_bglt BGl_makezd2isazf2Cinfoz20zzcfa_info3z00(obj_t BgL_loc3687z00_167, BgL_typez00_bglt BgL_type3688z00_168, obj_t BgL_sidezd2effectzf33689z21_169, obj_t BgL_key3690z00_170, obj_t BgL_exprza23691za2_171, obj_t BgL_effect3692z00_172, BgL_typez00_bglt BgL_class3693z00_173, BgL_approxz00_bglt BgL_approx3686z00_174)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 29 */
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isaz00_bglt BgL_aux3694z00_2152;
BgL_aux3694z00_2152 = 
BGl_makezd2isazd2zzast_nodez00(BgL_loc3687z00_167, BgL_type3688z00_168, BgL_sidezd2effectzf33689z21_169, BgL_key3690z00_170, BgL_exprza23691za2_171, BgL_effect3692z00_172, BgL_class3693z00_173); 
{ /* ./Cfa/cinfo3.scm 29 */
long BgL_arg4369z00_2153;
BgL_arg4369z00_2153 = 
BGl_classzd2numzd2zz__objectz00(BGl_isazf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 29 */
BgL_objectz00_bglt BgL_objz00_2156;
BgL_objz00_2156 = 
(BgL_objectz00_bglt)(BgL_aux3694z00_2152); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2156, BgL_arg4369z00_2153); } } 
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isazf2cinfozf2_bglt BgL_arg4373z00_2154;
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isazf2cinfozf2_bglt BgL_res5534z00_2164;
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isazf2cinfozf2_bglt BgL_new3684z00_2159;
BgL_new3684z00_2159 = 
((BgL_isazf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_isazf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isazf2cinfozf2_bglt BgL_res5533z00_2163;
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isazf2cinfozf2_bglt BgL_new3697z00_2160;
BgL_new3697z00_2160 = BgL_new3684z00_2159; 
{ /* ./Cfa/cinfo3.scm 29 */
BgL_approxz00_bglt BgL_approx3696z00_2162;
BgL_approx3696z00_2162 = BgL_approx3686z00_174; 
((((BgL_isazf2cinfozf2_bglt)CREF(BgL_new3697z00_2160))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3696z00_2162), BUNSPEC); 
BgL_res5533z00_2163 = BgL_new3697z00_2160; } } BgL_res5533z00_2163; } 
BgL_res5534z00_2164 = BgL_new3684z00_2159; } 
BgL_arg4373z00_2154 = BgL_res5534z00_2164; } 
{ /* ./Cfa/cinfo3.scm 29 */
obj_t BgL_auxz00_3729;BgL_objectz00_bglt BgL_auxz00_3727;
BgL_auxz00_3729 = 
(obj_t)(BgL_arg4373z00_2154); 
BgL_auxz00_3727 = 
(BgL_objectz00_bglt)(BgL_aux3694z00_2152); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3727, BgL_auxz00_3729); } } 
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isazf2cinfozf2_bglt BgL_new3695z00_2155;
{ 
BgL_isazf2cinfozf2_bglt BgL_auxz00_3732;
BgL_auxz00_3732 = 
(BgL_isazf2cinfozf2_bglt)(BgL_aux3694z00_2152); 
BgL_new3695z00_2155 = 
((BgL_isazf2cinfozf2_bglt)BgL_auxz00_3732); } 
{ /* ./Cfa/cinfo3.scm 29 */
obj_t BgL_objz00_2165;
BgL_objz00_2165 = 
(obj_t)(BgL_new3695z00_2155); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2165); BUNSPEC; } 
return BgL_new3695z00_2155;} } } 
}



/* _make-isa/Cinfo */
obj_t BGl__makezd2isazf2Cinfoz20zzcfa_info3z00(obj_t BgL_envz00_2856, obj_t BgL_loc3687z00_2857, obj_t BgL_type3688z00_2858, obj_t BgL_sidezd2effectzf33689z21_2859, obj_t BgL_key3690z00_2860, obj_t BgL_exprza23691za2_2861, obj_t BgL_effect3692z00_2862, obj_t BgL_class3693z00_2863, obj_t BgL_approx3686z00_2864)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 29 */
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isazf2cinfozf2_bglt BgL_auxz00_3737;
BgL_auxz00_3737 = 
BGl_makezd2isazf2Cinfoz20zzcfa_info3z00(BgL_loc3687z00_2857, 
(BgL_typez00_bglt)(BgL_type3688z00_2858), BgL_sidezd2effectzf33689z21_2859, BgL_key3690z00_2860, BgL_exprza23691za2_2861, BgL_effect3692z00_2862, 
(BgL_typez00_bglt)(BgL_class3693z00_2863), 
(BgL_approxz00_bglt)(BgL_approx3686z00_2864)); 
return 
(obj_t)(BgL_auxz00_3737);} } 
}



/* fill-isa/Cinfo! */
BGL_EXPORTED_DEF BgL_isazf2cinfozf2_bglt BGl_fillzd2isazf2Cinfoz12z32zzcfa_info3z00(BgL_isazf2cinfozf2_bglt BgL_new3697z00_175, BgL_approxz00_bglt BgL_approx3696z00_176)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 29 */
{ /* ./Cfa/cinfo3.scm 29 */
BgL_approxz00_bglt BgL_approx3696z00_3142;
BgL_approx3696z00_3142 = BgL_approx3696z00_176; 
((((BgL_isazf2cinfozf2_bglt)CREF(BgL_new3697z00_175))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3696z00_3142), BUNSPEC); 
return BgL_new3697z00_175;} } 
}



/* _fill-isa/Cinfo! */
obj_t BGl__fillzd2isazf2Cinfoz12z32zzcfa_info3z00(obj_t BgL_envz00_2865, obj_t BgL_new3697z00_2866, obj_t BgL_approx3696z00_2867)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 29 */
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isazf2cinfozf2_bglt BgL_auxz00_3744;
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isazf2cinfozf2_bglt BgL_res6314z00_3146;
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isazf2cinfozf2_bglt BgL_new3697z00_3143;BgL_approxz00_bglt BgL_approx3696z00_3144;
BgL_new3697z00_3143 = 
(BgL_isazf2cinfozf2_bglt)(BgL_new3697z00_2866); 
BgL_approx3696z00_3144 = 
(BgL_approxz00_bglt)(BgL_approx3696z00_2867); 
{ /* ./Cfa/cinfo3.scm 29 */
BgL_approxz00_bglt BgL_approx3696z00_3145;
BgL_approx3696z00_3145 = BgL_approx3696z00_3144; 
((((BgL_isazf2cinfozf2_bglt)CREF(BgL_new3697z00_3143))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3696z00_3145), BUNSPEC); 
BgL_res6314z00_3146 = BgL_new3697z00_3143; } } 
BgL_auxz00_3744 = BgL_res6314z00_3146; } 
return 
(obj_t)(BgL_auxz00_3744);} } 
}



/* allocate-isa/Cinfo */
BGL_EXPORTED_DEF BgL_isaz00_bglt BGl_allocatezd2isazf2Cinfoz20zzcfa_info3z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 29 */
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isaz00_bglt BgL_new3700z00_3147;
BgL_new3700z00_3147 = 
((BgL_isaz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_isaz00_bgl) ))); 
{ /* ./Cfa/cinfo3.scm 29 */
long BgL_arg4379z00_3148;
BgL_arg4379z00_3148 = 
BGl_classzd2numzd2zz__objectz00(BGl_isazf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 29 */
BgL_objectz00_bglt BgL_objz00_3149;
BgL_objz00_3149 = 
(BgL_objectz00_bglt)(BgL_new3700z00_3147); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3149, BgL_arg4379z00_3148); } } 
{ /* ./Cfa/cinfo3.scm 29 */
BgL_objectz00_bglt BgL_auxz00_3753;
BgL_auxz00_3753 = 
(BgL_objectz00_bglt)(BgL_new3700z00_3147); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3753, BFALSE); } 
{ /* ./Cfa/cinfo3.scm 29 */
obj_t BgL_objz00_3150;
BgL_objz00_3150 = 
(obj_t)(BgL_new3700z00_3147); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3150); BUNSPEC; } 
return BgL_new3700z00_3147;} } 
}



/* _allocate-isa/Cinfo */
obj_t BGl__allocatezd2isazf2Cinfoz20zzcfa_info3z00(obj_t BgL_envz00_2709)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 29 */
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isaz00_bglt BgL_auxz00_3758;
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isaz00_bglt BgL_res6315z00_3155;
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isaz00_bglt BgL_new3700z00_3151;
BgL_new3700z00_3151 = 
((BgL_isaz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_isaz00_bgl) ))); 
{ /* ./Cfa/cinfo3.scm 29 */
long BgL_arg4379z00_3152;
BgL_arg4379z00_3152 = 
BGl_classzd2numzd2zz__objectz00(BGl_isazf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 29 */
BgL_objectz00_bglt BgL_objz00_3153;
BgL_objz00_3153 = 
(BgL_objectz00_bglt)(BgL_new3700z00_3151); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3153, BgL_arg4379z00_3152); } } 
{ /* ./Cfa/cinfo3.scm 29 */
BgL_objectz00_bglt BgL_auxz00_3763;
BgL_auxz00_3763 = 
(BgL_objectz00_bglt)(BgL_new3700z00_3151); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3763, BFALSE); } 
{ /* ./Cfa/cinfo3.scm 29 */
obj_t BgL_objz00_3154;
BgL_objz00_3154 = 
(obj_t)(BgL_new3700z00_3151); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3154); BUNSPEC; } 
BgL_res6315z00_3155 = BgL_new3700z00_3151; } 
BgL_auxz00_3758 = BgL_res6315z00_3155; } 
return 
(obj_t)(BgL_auxz00_3758);} } 
}



/* new/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_newzf2Cinfozf3z01zzcfa_info3z00(obj_t BgL_obj3664z00_178)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 28 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3664z00_178, BGl_newzf2Cinfozf2zzcfa_info3z00);} 
}



/* _new/Cinfo? */
obj_t BGl__newzf2Cinfozf3z01zzcfa_info3z00(obj_t BgL_envz00_2868, obj_t BgL_obj3664z00_2869)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 28 */
{ /* ./Cfa/cinfo3.scm 28 */
bool_t BgL_auxz00_3770;
BgL_auxz00_3770 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3664z00_2869, BGl_newzf2Cinfozf2zzcfa_info3z00); 
return 
BBOOL(BgL_auxz00_3770);} } 
}



/* widening-new/Cinfo */
BGL_EXPORTED_DEF BgL_newzf2cinfozf2_bglt BGl_wideningzd2newzf2Cinfoz20zzcfa_info3z00(BgL_approxz00_bglt BgL_approx3641z00_182)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 28 */
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newzf2cinfozf2_bglt BgL_new3642z00_2172;
BgL_new3642z00_2172 = 
((BgL_newzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_newzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newzf2cinfozf2_bglt BgL_res5535z00_2176;
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newzf2cinfozf2_bglt BgL_new3654z00_2173;
BgL_new3654z00_2173 = BgL_new3642z00_2172; 
{ /* ./Cfa/cinfo3.scm 28 */
BgL_approxz00_bglt BgL_approx3653z00_2175;
BgL_approx3653z00_2175 = BgL_approx3641z00_182; 
((((BgL_newzf2cinfozf2_bglt)CREF(BgL_new3654z00_2173))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3653z00_2175), BUNSPEC); 
BgL_res5535z00_2176 = BgL_new3654z00_2173; } } BgL_res5535z00_2176; } 
return BgL_new3642z00_2172;} } 
}



/* _widening-new/Cinfo5627 */
obj_t BGl__wideningzd2newzf2Cinfo5627z20zzcfa_info3z00(obj_t BgL_envz00_2870, obj_t BgL_approx3641z00_2871)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 28 */
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newzf2cinfozf2_bglt BgL_auxz00_3775;
BgL_auxz00_3775 = 
BGl_wideningzd2newzf2Cinfoz20zzcfa_info3z00(
(BgL_approxz00_bglt)(BgL_approx3641z00_2871)); 
return 
(obj_t)(BgL_auxz00_3775);} } 
}



/* make-new/Cinfo */
BGL_EXPORTED_DEF BgL_newzf2cinfozf2_bglt BGl_makezd2newzf2Cinfoz20zzcfa_info3z00(obj_t BgL_loc3645z00_183, BgL_typez00_bglt BgL_type3646z00_184, obj_t BgL_sidezd2effectzf33647z21_185, obj_t BgL_key3648z00_186, obj_t BgL_exprza23649za2_187, obj_t BgL_effect3650z00_188, BgL_approxz00_bglt BgL_approx3644z00_189)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 28 */
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newz00_bglt BgL_aux3651z00_2177;
BgL_aux3651z00_2177 = 
BGl_makezd2newzd2zzast_nodez00(BgL_loc3645z00_183, BgL_type3646z00_184, BgL_sidezd2effectzf33647z21_185, BgL_key3648z00_186, BgL_exprza23649za2_187, BgL_effect3650z00_188); 
{ /* ./Cfa/cinfo3.scm 28 */
long BgL_arg4388z00_2178;
BgL_arg4388z00_2178 = 
BGl_classzd2numzd2zz__objectz00(BGl_newzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 28 */
BgL_objectz00_bglt BgL_objz00_2181;
BgL_objz00_2181 = 
(BgL_objectz00_bglt)(BgL_aux3651z00_2177); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2181, BgL_arg4388z00_2178); } } 
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newzf2cinfozf2_bglt BgL_arg4392z00_2179;
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newzf2cinfozf2_bglt BgL_res5537z00_2189;
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newzf2cinfozf2_bglt BgL_new3642z00_2184;
BgL_new3642z00_2184 = 
((BgL_newzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_newzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newzf2cinfozf2_bglt BgL_res5536z00_2188;
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newzf2cinfozf2_bglt BgL_new3654z00_2185;
BgL_new3654z00_2185 = BgL_new3642z00_2184; 
{ /* ./Cfa/cinfo3.scm 28 */
BgL_approxz00_bglt BgL_approx3653z00_2187;
BgL_approx3653z00_2187 = BgL_approx3644z00_189; 
((((BgL_newzf2cinfozf2_bglt)CREF(BgL_new3654z00_2185))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3653z00_2187), BUNSPEC); 
BgL_res5536z00_2188 = BgL_new3654z00_2185; } } BgL_res5536z00_2188; } 
BgL_res5537z00_2189 = BgL_new3642z00_2184; } 
BgL_arg4392z00_2179 = BgL_res5537z00_2189; } 
{ /* ./Cfa/cinfo3.scm 28 */
obj_t BgL_auxz00_3787;BgL_objectz00_bglt BgL_auxz00_3785;
BgL_auxz00_3787 = 
(obj_t)(BgL_arg4392z00_2179); 
BgL_auxz00_3785 = 
(BgL_objectz00_bglt)(BgL_aux3651z00_2177); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3785, BgL_auxz00_3787); } } 
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newzf2cinfozf2_bglt BgL_new3652z00_2180;
{ 
BgL_newzf2cinfozf2_bglt BgL_auxz00_3790;
BgL_auxz00_3790 = 
(BgL_newzf2cinfozf2_bglt)(BgL_aux3651z00_2177); 
BgL_new3652z00_2180 = 
((BgL_newzf2cinfozf2_bglt)BgL_auxz00_3790); } 
{ /* ./Cfa/cinfo3.scm 28 */
obj_t BgL_objz00_2190;
BgL_objz00_2190 = 
(obj_t)(BgL_new3652z00_2180); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2190); BUNSPEC; } 
return BgL_new3652z00_2180;} } } 
}



/* _make-new/Cinfo */
obj_t BGl__makezd2newzf2Cinfoz20zzcfa_info3z00(obj_t BgL_envz00_2872, obj_t BgL_loc3645z00_2873, obj_t BgL_type3646z00_2874, obj_t BgL_sidezd2effectzf33647z21_2875, obj_t BgL_key3648z00_2876, obj_t BgL_exprza23649za2_2877, obj_t BgL_effect3650z00_2878, obj_t BgL_approx3644z00_2879)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 28 */
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newzf2cinfozf2_bglt BgL_auxz00_3795;
BgL_auxz00_3795 = 
BGl_makezd2newzf2Cinfoz20zzcfa_info3z00(BgL_loc3645z00_2873, 
(BgL_typez00_bglt)(BgL_type3646z00_2874), BgL_sidezd2effectzf33647z21_2875, BgL_key3648z00_2876, BgL_exprza23649za2_2877, BgL_effect3650z00_2878, 
(BgL_approxz00_bglt)(BgL_approx3644z00_2879)); 
return 
(obj_t)(BgL_auxz00_3795);} } 
}



/* fill-new/Cinfo! */
BGL_EXPORTED_DEF BgL_newzf2cinfozf2_bglt BGl_fillzd2newzf2Cinfoz12z32zzcfa_info3z00(BgL_newzf2cinfozf2_bglt BgL_new3654z00_190, BgL_approxz00_bglt BgL_approx3653z00_191)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 28 */
{ /* ./Cfa/cinfo3.scm 28 */
BgL_approxz00_bglt BgL_approx3653z00_3157;
BgL_approx3653z00_3157 = BgL_approx3653z00_191; 
((((BgL_newzf2cinfozf2_bglt)CREF(BgL_new3654z00_190))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3653z00_3157), BUNSPEC); 
return BgL_new3654z00_190;} } 
}



/* _fill-new/Cinfo! */
obj_t BGl__fillzd2newzf2Cinfoz12z32zzcfa_info3z00(obj_t BgL_envz00_2880, obj_t BgL_new3654z00_2881, obj_t BgL_approx3653z00_2882)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 28 */
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newzf2cinfozf2_bglt BgL_auxz00_3801;
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newzf2cinfozf2_bglt BgL_res6316z00_3161;
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newzf2cinfozf2_bglt BgL_new3654z00_3158;BgL_approxz00_bglt BgL_approx3653z00_3159;
BgL_new3654z00_3158 = 
(BgL_newzf2cinfozf2_bglt)(BgL_new3654z00_2881); 
BgL_approx3653z00_3159 = 
(BgL_approxz00_bglt)(BgL_approx3653z00_2882); 
{ /* ./Cfa/cinfo3.scm 28 */
BgL_approxz00_bglt BgL_approx3653z00_3160;
BgL_approx3653z00_3160 = BgL_approx3653z00_3159; 
((((BgL_newzf2cinfozf2_bglt)CREF(BgL_new3654z00_3158))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3653z00_3160), BUNSPEC); 
BgL_res6316z00_3161 = BgL_new3654z00_3158; } } 
BgL_auxz00_3801 = BgL_res6316z00_3161; } 
return 
(obj_t)(BgL_auxz00_3801);} } 
}



/* allocate-new/Cinfo */
BGL_EXPORTED_DEF BgL_newz00_bglt BGl_allocatezd2newzf2Cinfoz20zzcfa_info3z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 28 */
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newz00_bglt BgL_new3657z00_3162;
BgL_new3657z00_3162 = 
((BgL_newz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_newz00_bgl) ))); 
{ /* ./Cfa/cinfo3.scm 28 */
long BgL_arg4398z00_3163;
BgL_arg4398z00_3163 = 
BGl_classzd2numzd2zz__objectz00(BGl_newzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 28 */
BgL_objectz00_bglt BgL_objz00_3164;
BgL_objz00_3164 = 
(BgL_objectz00_bglt)(BgL_new3657z00_3162); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3164, BgL_arg4398z00_3163); } } 
{ /* ./Cfa/cinfo3.scm 28 */
BgL_objectz00_bglt BgL_auxz00_3810;
BgL_auxz00_3810 = 
(BgL_objectz00_bglt)(BgL_new3657z00_3162); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3810, BFALSE); } 
{ /* ./Cfa/cinfo3.scm 28 */
obj_t BgL_objz00_3165;
BgL_objz00_3165 = 
(obj_t)(BgL_new3657z00_3162); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3165); BUNSPEC; } 
return BgL_new3657z00_3162;} } 
}



/* _allocate-new/Cinfo */
obj_t BGl__allocatezd2newzf2Cinfoz20zzcfa_info3z00(obj_t BgL_envz00_2708)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 28 */
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newz00_bglt BgL_auxz00_3815;
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newz00_bglt BgL_res6317z00_3170;
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newz00_bglt BgL_new3657z00_3166;
BgL_new3657z00_3166 = 
((BgL_newz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_newz00_bgl) ))); 
{ /* ./Cfa/cinfo3.scm 28 */
long BgL_arg4398z00_3167;
BgL_arg4398z00_3167 = 
BGl_classzd2numzd2zz__objectz00(BGl_newzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 28 */
BgL_objectz00_bglt BgL_objz00_3168;
BgL_objz00_3168 = 
(BgL_objectz00_bglt)(BgL_new3657z00_3166); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3168, BgL_arg4398z00_3167); } } 
{ /* ./Cfa/cinfo3.scm 28 */
BgL_objectz00_bglt BgL_auxz00_3820;
BgL_auxz00_3820 = 
(BgL_objectz00_bglt)(BgL_new3657z00_3166); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3820, BFALSE); } 
{ /* ./Cfa/cinfo3.scm 28 */
obj_t BgL_objz00_3169;
BgL_objz00_3169 = 
(obj_t)(BgL_new3657z00_3166); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3169); BUNSPEC; } 
BgL_res6317z00_3170 = BgL_new3657z00_3166; } 
BgL_auxz00_3815 = BgL_res6317z00_3170; } 
return 
(obj_t)(BgL_auxz00_3815);} } 
}



/* setfield/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_setfieldzf2Cinfozf3z01zzcfa_info3z00(obj_t BgL_obj3619z00_193)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 27 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3619z00_193, BGl_setfieldzf2Cinfozf2zzcfa_info3z00);} 
}



/* _setfield/Cinfo? */
obj_t BGl__setfieldzf2Cinfozf3z01zzcfa_info3z00(obj_t BgL_envz00_2883, obj_t BgL_obj3619z00_2884)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 27 */
{ /* ./Cfa/cinfo3.scm 27 */
bool_t BgL_auxz00_3827;
BgL_auxz00_3827 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3619z00_2884, BGl_setfieldzf2Cinfozf2zzcfa_info3z00); 
return 
BBOOL(BgL_auxz00_3827);} } 
}



/* widening-setfield/Cinfo */
BGL_EXPORTED_DEF BgL_setfieldzf2cinfozf2_bglt BGl_wideningzd2setfieldzf2Cinfoz20zzcfa_info3z00(BgL_approxz00_bglt BgL_approx3593z00_197)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 27 */
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldzf2cinfozf2_bglt BgL_new3594z00_2197;
BgL_new3594z00_2197 = 
((BgL_setfieldzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_setfieldzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldzf2cinfozf2_bglt BgL_res5538z00_2201;
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldzf2cinfozf2_bglt BgL_new3609z00_2198;
BgL_new3609z00_2198 = BgL_new3594z00_2197; 
{ /* ./Cfa/cinfo3.scm 27 */
BgL_approxz00_bglt BgL_approx3608z00_2200;
BgL_approx3608z00_2200 = BgL_approx3593z00_197; 
((((BgL_setfieldzf2cinfozf2_bglt)CREF(BgL_new3609z00_2198))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3608z00_2200), BUNSPEC); 
BgL_res5538z00_2201 = BgL_new3609z00_2198; } } BgL_res5538z00_2201; } 
return BgL_new3594z00_2197;} } 
}



/* _widening-setfield/Cinfo5632 */
obj_t BGl__wideningzd2setfieldzf2Cinfo5632z20zzcfa_info3z00(obj_t BgL_envz00_2885, obj_t BgL_approx3593z00_2886)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 27 */
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldzf2cinfozf2_bglt BgL_auxz00_3832;
BgL_auxz00_3832 = 
BGl_wideningzd2setfieldzf2Cinfoz20zzcfa_info3z00(
(BgL_approxz00_bglt)(BgL_approx3593z00_2886)); 
return 
(obj_t)(BgL_auxz00_3832);} } 
}



/* make-setfield/Cinfo */
BGL_EXPORTED_DEF BgL_setfieldzf2cinfozf2_bglt BGl_makezd2setfieldzf2Cinfoz20zzcfa_info3z00(obj_t BgL_loc3597z00_198, BgL_typez00_bglt BgL_type3598z00_199, obj_t BgL_sidezd2effectzf33599z21_200, obj_t BgL_key3600z00_201, obj_t BgL_exprza23601za2_202, obj_t BgL_effect3602z00_203, obj_t BgL_fname3603z00_204, BgL_typez00_bglt BgL_ftype3604z00_205, BgL_typez00_bglt BgL_otype3605z00_206, BgL_approxz00_bglt BgL_approx3596z00_207)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 27 */
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldz00_bglt BgL_aux3606z00_2202;
BgL_aux3606z00_2202 = 
BGl_makezd2setfieldzd2zzast_nodez00(BgL_loc3597z00_198, BgL_type3598z00_199, BgL_sidezd2effectzf33599z21_200, BgL_key3600z00_201, BgL_exprza23601za2_202, BgL_effect3602z00_203, BgL_fname3603z00_204, BgL_ftype3604z00_205, BgL_otype3605z00_206); 
{ /* ./Cfa/cinfo3.scm 27 */
long BgL_arg4407z00_2203;
BgL_arg4407z00_2203 = 
BGl_classzd2numzd2zz__objectz00(BGl_setfieldzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 27 */
BgL_objectz00_bglt BgL_objz00_2206;
BgL_objz00_2206 = 
(BgL_objectz00_bglt)(BgL_aux3606z00_2202); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2206, BgL_arg4407z00_2203); } } 
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldzf2cinfozf2_bglt BgL_arg4411z00_2204;
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldzf2cinfozf2_bglt BgL_res5540z00_2214;
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldzf2cinfozf2_bglt BgL_new3594z00_2209;
BgL_new3594z00_2209 = 
((BgL_setfieldzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_setfieldzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldzf2cinfozf2_bglt BgL_res5539z00_2213;
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldzf2cinfozf2_bglt BgL_new3609z00_2210;
BgL_new3609z00_2210 = BgL_new3594z00_2209; 
{ /* ./Cfa/cinfo3.scm 27 */
BgL_approxz00_bglt BgL_approx3608z00_2212;
BgL_approx3608z00_2212 = BgL_approx3596z00_207; 
((((BgL_setfieldzf2cinfozf2_bglt)CREF(BgL_new3609z00_2210))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3608z00_2212), BUNSPEC); 
BgL_res5539z00_2213 = BgL_new3609z00_2210; } } BgL_res5539z00_2213; } 
BgL_res5540z00_2214 = BgL_new3594z00_2209; } 
BgL_arg4411z00_2204 = BgL_res5540z00_2214; } 
{ /* ./Cfa/cinfo3.scm 27 */
obj_t BgL_auxz00_3844;BgL_objectz00_bglt BgL_auxz00_3842;
BgL_auxz00_3844 = 
(obj_t)(BgL_arg4411z00_2204); 
BgL_auxz00_3842 = 
(BgL_objectz00_bglt)(BgL_aux3606z00_2202); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3842, BgL_auxz00_3844); } } 
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldzf2cinfozf2_bglt BgL_new3607z00_2205;
{ 
BgL_setfieldzf2cinfozf2_bglt BgL_auxz00_3847;
BgL_auxz00_3847 = 
(BgL_setfieldzf2cinfozf2_bglt)(BgL_aux3606z00_2202); 
BgL_new3607z00_2205 = 
((BgL_setfieldzf2cinfozf2_bglt)BgL_auxz00_3847); } 
{ /* ./Cfa/cinfo3.scm 27 */
obj_t BgL_objz00_2215;
BgL_objz00_2215 = 
(obj_t)(BgL_new3607z00_2205); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2215); BUNSPEC; } 
return BgL_new3607z00_2205;} } } 
}



/* _make-setfield/Cinfo */
obj_t BGl__makezd2setfieldzf2Cinfoz20zzcfa_info3z00(obj_t BgL_envz00_2887, obj_t BgL_loc3597z00_2888, obj_t BgL_type3598z00_2889, obj_t BgL_sidezd2effectzf33599z21_2890, obj_t BgL_key3600z00_2891, obj_t BgL_exprza23601za2_2892, obj_t BgL_effect3602z00_2893, obj_t BgL_fname3603z00_2894, obj_t BgL_ftype3604z00_2895, obj_t BgL_otype3605z00_2896, obj_t BgL_approx3596z00_2897)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 27 */
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldzf2cinfozf2_bglt BgL_auxz00_3852;
BgL_auxz00_3852 = 
BGl_makezd2setfieldzf2Cinfoz20zzcfa_info3z00(BgL_loc3597z00_2888, 
(BgL_typez00_bglt)(BgL_type3598z00_2889), BgL_sidezd2effectzf33599z21_2890, BgL_key3600z00_2891, BgL_exprza23601za2_2892, BgL_effect3602z00_2893, BgL_fname3603z00_2894, 
(BgL_typez00_bglt)(BgL_ftype3604z00_2895), 
(BgL_typez00_bglt)(BgL_otype3605z00_2896), 
(BgL_approxz00_bglt)(BgL_approx3596z00_2897)); 
return 
(obj_t)(BgL_auxz00_3852);} } 
}



/* fill-setfield/Cinfo! */
BGL_EXPORTED_DEF BgL_setfieldzf2cinfozf2_bglt BGl_fillzd2setfieldzf2Cinfoz12z32zzcfa_info3z00(BgL_setfieldzf2cinfozf2_bglt BgL_new3609z00_208, BgL_approxz00_bglt BgL_approx3608z00_209)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 27 */
{ /* ./Cfa/cinfo3.scm 27 */
BgL_approxz00_bglt BgL_approx3608z00_3172;
BgL_approx3608z00_3172 = BgL_approx3608z00_209; 
((((BgL_setfieldzf2cinfozf2_bglt)CREF(BgL_new3609z00_208))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3608z00_3172), BUNSPEC); 
return BgL_new3609z00_208;} } 
}



/* _fill-setfield/Cinfo! */
obj_t BGl__fillzd2setfieldzf2Cinfoz12z32zzcfa_info3z00(obj_t BgL_envz00_2898, obj_t BgL_new3609z00_2899, obj_t BgL_approx3608z00_2900)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 27 */
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldzf2cinfozf2_bglt BgL_auxz00_3860;
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldzf2cinfozf2_bglt BgL_res6318z00_3176;
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldzf2cinfozf2_bglt BgL_new3609z00_3173;BgL_approxz00_bglt BgL_approx3608z00_3174;
BgL_new3609z00_3173 = 
(BgL_setfieldzf2cinfozf2_bglt)(BgL_new3609z00_2899); 
BgL_approx3608z00_3174 = 
(BgL_approxz00_bglt)(BgL_approx3608z00_2900); 
{ /* ./Cfa/cinfo3.scm 27 */
BgL_approxz00_bglt BgL_approx3608z00_3175;
BgL_approx3608z00_3175 = BgL_approx3608z00_3174; 
((((BgL_setfieldzf2cinfozf2_bglt)CREF(BgL_new3609z00_3173))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3608z00_3175), BUNSPEC); 
BgL_res6318z00_3176 = BgL_new3609z00_3173; } } 
BgL_auxz00_3860 = BgL_res6318z00_3176; } 
return 
(obj_t)(BgL_auxz00_3860);} } 
}



/* allocate-setfield/Cinfo */
BGL_EXPORTED_DEF BgL_setfieldz00_bglt BGl_allocatezd2setfieldzf2Cinfoz20zzcfa_info3z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 27 */
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldz00_bglt BgL_new3612z00_3177;
BgL_new3612z00_3177 = 
((BgL_setfieldz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_setfieldz00_bgl) ))); 
{ /* ./Cfa/cinfo3.scm 27 */
long BgL_arg4417z00_3178;
BgL_arg4417z00_3178 = 
BGl_classzd2numzd2zz__objectz00(BGl_setfieldzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 27 */
BgL_objectz00_bglt BgL_objz00_3179;
BgL_objz00_3179 = 
(BgL_objectz00_bglt)(BgL_new3612z00_3177); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3179, BgL_arg4417z00_3178); } } 
{ /* ./Cfa/cinfo3.scm 27 */
BgL_objectz00_bglt BgL_auxz00_3869;
BgL_auxz00_3869 = 
(BgL_objectz00_bglt)(BgL_new3612z00_3177); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3869, BFALSE); } 
{ /* ./Cfa/cinfo3.scm 27 */
obj_t BgL_objz00_3180;
BgL_objz00_3180 = 
(obj_t)(BgL_new3612z00_3177); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3180); BUNSPEC; } 
return BgL_new3612z00_3177;} } 
}



/* _allocate-setfield/Cinfo */
obj_t BGl__allocatezd2setfieldzf2Cinfoz20zzcfa_info3z00(obj_t BgL_envz00_2707)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 27 */
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldz00_bglt BgL_auxz00_3874;
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldz00_bglt BgL_res6319z00_3185;
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldz00_bglt BgL_new3612z00_3181;
BgL_new3612z00_3181 = 
((BgL_setfieldz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_setfieldz00_bgl) ))); 
{ /* ./Cfa/cinfo3.scm 27 */
long BgL_arg4417z00_3182;
BgL_arg4417z00_3182 = 
BGl_classzd2numzd2zz__objectz00(BGl_setfieldzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 27 */
BgL_objectz00_bglt BgL_objz00_3183;
BgL_objz00_3183 = 
(BgL_objectz00_bglt)(BgL_new3612z00_3181); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3183, BgL_arg4417z00_3182); } } 
{ /* ./Cfa/cinfo3.scm 27 */
BgL_objectz00_bglt BgL_auxz00_3879;
BgL_auxz00_3879 = 
(BgL_objectz00_bglt)(BgL_new3612z00_3181); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3879, BFALSE); } 
{ /* ./Cfa/cinfo3.scm 27 */
obj_t BgL_objz00_3184;
BgL_objz00_3184 = 
(obj_t)(BgL_new3612z00_3181); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3184); BUNSPEC; } 
BgL_res6319z00_3185 = BgL_new3612z00_3181; } 
BgL_auxz00_3874 = BgL_res6319z00_3185; } 
return 
(obj_t)(BgL_auxz00_3874);} } 
}



/* getfield/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_getfieldzf2Cinfozf3z01zzcfa_info3z00(obj_t BgL_obj3571z00_211)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 26 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3571z00_211, BGl_getfieldzf2Cinfozf2zzcfa_info3z00);} 
}



/* _getfield/Cinfo? */
obj_t BGl__getfieldzf2Cinfozf3z01zzcfa_info3z00(obj_t BgL_envz00_2901, obj_t BgL_obj3571z00_2902)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 26 */
{ /* ./Cfa/cinfo3.scm 26 */
bool_t BgL_auxz00_3886;
BgL_auxz00_3886 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3571z00_2902, BGl_getfieldzf2Cinfozf2zzcfa_info3z00); 
return 
BBOOL(BgL_auxz00_3886);} } 
}



/* widening-getfield/Cinfo */
BGL_EXPORTED_DEF BgL_getfieldzf2cinfozf2_bglt BGl_wideningzd2getfieldzf2Cinfoz20zzcfa_info3z00(BgL_approxz00_bglt BgL_approx3545z00_215)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 26 */
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldzf2cinfozf2_bglt BgL_new3546z00_2222;
BgL_new3546z00_2222 = 
((BgL_getfieldzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_getfieldzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldzf2cinfozf2_bglt BgL_res5541z00_2226;
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldzf2cinfozf2_bglt BgL_new3561z00_2223;
BgL_new3561z00_2223 = BgL_new3546z00_2222; 
{ /* ./Cfa/cinfo3.scm 26 */
BgL_approxz00_bglt BgL_approx3560z00_2225;
BgL_approx3560z00_2225 = BgL_approx3545z00_215; 
((((BgL_getfieldzf2cinfozf2_bglt)CREF(BgL_new3561z00_2223))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3560z00_2225), BUNSPEC); 
BgL_res5541z00_2226 = BgL_new3561z00_2223; } } BgL_res5541z00_2226; } 
return BgL_new3546z00_2222;} } 
}



/* _widening-getfield/Cinfo5637 */
obj_t BGl__wideningzd2getfieldzf2Cinfo5637z20zzcfa_info3z00(obj_t BgL_envz00_2903, obj_t BgL_approx3545z00_2904)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 26 */
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldzf2cinfozf2_bglt BgL_auxz00_3891;
BgL_auxz00_3891 = 
BGl_wideningzd2getfieldzf2Cinfoz20zzcfa_info3z00(
(BgL_approxz00_bglt)(BgL_approx3545z00_2904)); 
return 
(obj_t)(BgL_auxz00_3891);} } 
}



/* make-getfield/Cinfo */
BGL_EXPORTED_DEF BgL_getfieldzf2cinfozf2_bglt BGl_makezd2getfieldzf2Cinfoz20zzcfa_info3z00(obj_t BgL_loc3549z00_216, BgL_typez00_bglt BgL_type3550z00_217, obj_t BgL_sidezd2effectzf33551z21_218, obj_t BgL_key3552z00_219, obj_t BgL_exprza23553za2_220, obj_t BgL_effect3554z00_221, obj_t BgL_fname3555z00_222, BgL_typez00_bglt BgL_ftype3556z00_223, BgL_typez00_bglt BgL_otype3557z00_224, BgL_approxz00_bglt BgL_approx3548z00_225)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 26 */
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldz00_bglt BgL_aux3558z00_2227;
BgL_aux3558z00_2227 = 
BGl_makezd2getfieldzd2zzast_nodez00(BgL_loc3549z00_216, BgL_type3550z00_217, BgL_sidezd2effectzf33551z21_218, BgL_key3552z00_219, BgL_exprza23553za2_220, BgL_effect3554z00_221, BgL_fname3555z00_222, BgL_ftype3556z00_223, BgL_otype3557z00_224); 
{ /* ./Cfa/cinfo3.scm 26 */
long BgL_arg4426z00_2228;
BgL_arg4426z00_2228 = 
BGl_classzd2numzd2zz__objectz00(BGl_getfieldzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 26 */
BgL_objectz00_bglt BgL_objz00_2231;
BgL_objz00_2231 = 
(BgL_objectz00_bglt)(BgL_aux3558z00_2227); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2231, BgL_arg4426z00_2228); } } 
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldzf2cinfozf2_bglt BgL_arg4430z00_2229;
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldzf2cinfozf2_bglt BgL_res5543z00_2239;
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldzf2cinfozf2_bglt BgL_new3546z00_2234;
BgL_new3546z00_2234 = 
((BgL_getfieldzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_getfieldzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldzf2cinfozf2_bglt BgL_res5542z00_2238;
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldzf2cinfozf2_bglt BgL_new3561z00_2235;
BgL_new3561z00_2235 = BgL_new3546z00_2234; 
{ /* ./Cfa/cinfo3.scm 26 */
BgL_approxz00_bglt BgL_approx3560z00_2237;
BgL_approx3560z00_2237 = BgL_approx3548z00_225; 
((((BgL_getfieldzf2cinfozf2_bglt)CREF(BgL_new3561z00_2235))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3560z00_2237), BUNSPEC); 
BgL_res5542z00_2238 = BgL_new3561z00_2235; } } BgL_res5542z00_2238; } 
BgL_res5543z00_2239 = BgL_new3546z00_2234; } 
BgL_arg4430z00_2229 = BgL_res5543z00_2239; } 
{ /* ./Cfa/cinfo3.scm 26 */
obj_t BgL_auxz00_3903;BgL_objectz00_bglt BgL_auxz00_3901;
BgL_auxz00_3903 = 
(obj_t)(BgL_arg4430z00_2229); 
BgL_auxz00_3901 = 
(BgL_objectz00_bglt)(BgL_aux3558z00_2227); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3901, BgL_auxz00_3903); } } 
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldzf2cinfozf2_bglt BgL_new3559z00_2230;
{ 
BgL_getfieldzf2cinfozf2_bglt BgL_auxz00_3906;
BgL_auxz00_3906 = 
(BgL_getfieldzf2cinfozf2_bglt)(BgL_aux3558z00_2227); 
BgL_new3559z00_2230 = 
((BgL_getfieldzf2cinfozf2_bglt)BgL_auxz00_3906); } 
{ /* ./Cfa/cinfo3.scm 26 */
obj_t BgL_objz00_2240;
BgL_objz00_2240 = 
(obj_t)(BgL_new3559z00_2230); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2240); BUNSPEC; } 
return BgL_new3559z00_2230;} } } 
}



/* _make-getfield/Cinfo */
obj_t BGl__makezd2getfieldzf2Cinfoz20zzcfa_info3z00(obj_t BgL_envz00_2905, obj_t BgL_loc3549z00_2906, obj_t BgL_type3550z00_2907, obj_t BgL_sidezd2effectzf33551z21_2908, obj_t BgL_key3552z00_2909, obj_t BgL_exprza23553za2_2910, obj_t BgL_effect3554z00_2911, obj_t BgL_fname3555z00_2912, obj_t BgL_ftype3556z00_2913, obj_t BgL_otype3557z00_2914, obj_t BgL_approx3548z00_2915)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 26 */
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldzf2cinfozf2_bglt BgL_auxz00_3911;
BgL_auxz00_3911 = 
BGl_makezd2getfieldzf2Cinfoz20zzcfa_info3z00(BgL_loc3549z00_2906, 
(BgL_typez00_bglt)(BgL_type3550z00_2907), BgL_sidezd2effectzf33551z21_2908, BgL_key3552z00_2909, BgL_exprza23553za2_2910, BgL_effect3554z00_2911, BgL_fname3555z00_2912, 
(BgL_typez00_bglt)(BgL_ftype3556z00_2913), 
(BgL_typez00_bglt)(BgL_otype3557z00_2914), 
(BgL_approxz00_bglt)(BgL_approx3548z00_2915)); 
return 
(obj_t)(BgL_auxz00_3911);} } 
}



/* fill-getfield/Cinfo! */
BGL_EXPORTED_DEF BgL_getfieldzf2cinfozf2_bglt BGl_fillzd2getfieldzf2Cinfoz12z32zzcfa_info3z00(BgL_getfieldzf2cinfozf2_bglt BgL_new3561z00_226, BgL_approxz00_bglt BgL_approx3560z00_227)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 26 */
{ /* ./Cfa/cinfo3.scm 26 */
BgL_approxz00_bglt BgL_approx3560z00_3187;
BgL_approx3560z00_3187 = BgL_approx3560z00_227; 
((((BgL_getfieldzf2cinfozf2_bglt)CREF(BgL_new3561z00_226))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3560z00_3187), BUNSPEC); 
return BgL_new3561z00_226;} } 
}



/* _fill-getfield/Cinfo! */
obj_t BGl__fillzd2getfieldzf2Cinfoz12z32zzcfa_info3z00(obj_t BgL_envz00_2916, obj_t BgL_new3561z00_2917, obj_t BgL_approx3560z00_2918)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 26 */
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldzf2cinfozf2_bglt BgL_auxz00_3919;
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldzf2cinfozf2_bglt BgL_res6320z00_3191;
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldzf2cinfozf2_bglt BgL_new3561z00_3188;BgL_approxz00_bglt BgL_approx3560z00_3189;
BgL_new3561z00_3188 = 
(BgL_getfieldzf2cinfozf2_bglt)(BgL_new3561z00_2917); 
BgL_approx3560z00_3189 = 
(BgL_approxz00_bglt)(BgL_approx3560z00_2918); 
{ /* ./Cfa/cinfo3.scm 26 */
BgL_approxz00_bglt BgL_approx3560z00_3190;
BgL_approx3560z00_3190 = BgL_approx3560z00_3189; 
((((BgL_getfieldzf2cinfozf2_bglt)CREF(BgL_new3561z00_3188))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3560z00_3190), BUNSPEC); 
BgL_res6320z00_3191 = BgL_new3561z00_3188; } } 
BgL_auxz00_3919 = BgL_res6320z00_3191; } 
return 
(obj_t)(BgL_auxz00_3919);} } 
}



/* allocate-getfield/Cinfo */
BGL_EXPORTED_DEF BgL_getfieldz00_bglt BGl_allocatezd2getfieldzf2Cinfoz20zzcfa_info3z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 26 */
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldz00_bglt BgL_new3564z00_3192;
BgL_new3564z00_3192 = 
((BgL_getfieldz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_getfieldz00_bgl) ))); 
{ /* ./Cfa/cinfo3.scm 26 */
long BgL_arg4436z00_3193;
BgL_arg4436z00_3193 = 
BGl_classzd2numzd2zz__objectz00(BGl_getfieldzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 26 */
BgL_objectz00_bglt BgL_objz00_3194;
BgL_objz00_3194 = 
(BgL_objectz00_bglt)(BgL_new3564z00_3192); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3194, BgL_arg4436z00_3193); } } 
{ /* ./Cfa/cinfo3.scm 26 */
BgL_objectz00_bglt BgL_auxz00_3928;
BgL_auxz00_3928 = 
(BgL_objectz00_bglt)(BgL_new3564z00_3192); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3928, BFALSE); } 
{ /* ./Cfa/cinfo3.scm 26 */
obj_t BgL_objz00_3195;
BgL_objz00_3195 = 
(obj_t)(BgL_new3564z00_3192); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3195); BUNSPEC; } 
return BgL_new3564z00_3192;} } 
}



/* _allocate-getfield/Cinfo */
obj_t BGl__allocatezd2getfieldzf2Cinfoz20zzcfa_info3z00(obj_t BgL_envz00_2706)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 26 */
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldz00_bglt BgL_auxz00_3933;
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldz00_bglt BgL_res6321z00_3200;
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldz00_bglt BgL_new3564z00_3196;
BgL_new3564z00_3196 = 
((BgL_getfieldz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_getfieldz00_bgl) ))); 
{ /* ./Cfa/cinfo3.scm 26 */
long BgL_arg4436z00_3197;
BgL_arg4436z00_3197 = 
BGl_classzd2numzd2zz__objectz00(BGl_getfieldzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 26 */
BgL_objectz00_bglt BgL_objz00_3198;
BgL_objz00_3198 = 
(BgL_objectz00_bglt)(BgL_new3564z00_3196); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3198, BgL_arg4436z00_3197); } } 
{ /* ./Cfa/cinfo3.scm 26 */
BgL_objectz00_bglt BgL_auxz00_3938;
BgL_auxz00_3938 = 
(BgL_objectz00_bglt)(BgL_new3564z00_3196); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3938, BFALSE); } 
{ /* ./Cfa/cinfo3.scm 26 */
obj_t BgL_objz00_3199;
BgL_objz00_3199 = 
(obj_t)(BgL_new3564z00_3196); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3199); BUNSPEC; } 
BgL_res6321z00_3200 = BgL_new3564z00_3196; } 
BgL_auxz00_3933 = BgL_res6321z00_3200; } 
return 
(obj_t)(BgL_auxz00_3933);} } 
}



/* pragma/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_pragmazf2Cinfozf3z01zzcfa_info3z00(obj_t BgL_obj3525z00_229)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 25 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3525z00_229, BGl_pragmazf2Cinfozf2zzcfa_info3z00);} 
}



/* _pragma/Cinfo? */
obj_t BGl__pragmazf2Cinfozf3z01zzcfa_info3z00(obj_t BgL_envz00_2919, obj_t BgL_obj3525z00_2920)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 25 */
{ /* ./Cfa/cinfo3.scm 25 */
bool_t BgL_auxz00_3945;
BgL_auxz00_3945 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3525z00_2920, BGl_pragmazf2Cinfozf2zzcfa_info3z00); 
return 
BBOOL(BgL_auxz00_3945);} } 
}



/* widening-pragma/Cinfo */
BGL_EXPORTED_DEF BgL_pragmazf2cinfozf2_bglt BGl_wideningzd2pragmazf2Cinfoz20zzcfa_info3z00(BgL_approxz00_bglt BgL_approx3501z00_233)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 25 */
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmazf2cinfozf2_bglt BgL_new3502z00_2247;
BgL_new3502z00_2247 = 
((BgL_pragmazf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_pragmazf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmazf2cinfozf2_bglt BgL_res5544z00_2251;
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmazf2cinfozf2_bglt BgL_new3515z00_2248;
BgL_new3515z00_2248 = BgL_new3502z00_2247; 
{ /* ./Cfa/cinfo3.scm 25 */
BgL_approxz00_bglt BgL_approx3514z00_2250;
BgL_approx3514z00_2250 = BgL_approx3501z00_233; 
((((BgL_pragmazf2cinfozf2_bglt)CREF(BgL_new3515z00_2248))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3514z00_2250), BUNSPEC); 
BgL_res5544z00_2251 = BgL_new3515z00_2248; } } BgL_res5544z00_2251; } 
return BgL_new3502z00_2247;} } 
}



/* _widening-pragma/Cinfo5642 */
obj_t BGl__wideningzd2pragmazf2Cinfo5642z20zzcfa_info3z00(obj_t BgL_envz00_2921, obj_t BgL_approx3501z00_2922)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 25 */
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmazf2cinfozf2_bglt BgL_auxz00_3950;
BgL_auxz00_3950 = 
BGl_wideningzd2pragmazf2Cinfoz20zzcfa_info3z00(
(BgL_approxz00_bglt)(BgL_approx3501z00_2922)); 
return 
(obj_t)(BgL_auxz00_3950);} } 
}



/* make-pragma/Cinfo */
BGL_EXPORTED_DEF BgL_pragmazf2cinfozf2_bglt BGl_makezd2pragmazf2Cinfoz20zzcfa_info3z00(obj_t BgL_loc3505z00_234, BgL_typez00_bglt BgL_type3506z00_235, obj_t BgL_sidezd2effectzf33507z21_236, obj_t BgL_key3508z00_237, obj_t BgL_exprza23509za2_238, obj_t BgL_effect3510z00_239, obj_t BgL_format3511z00_240, BgL_approxz00_bglt BgL_approx3504z00_241)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 25 */
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmaz00_bglt BgL_aux3512z00_2252;
BgL_aux3512z00_2252 = 
BGl_makezd2pragmazd2zzast_nodez00(BgL_loc3505z00_234, BgL_type3506z00_235, BgL_sidezd2effectzf33507z21_236, BgL_key3508z00_237, BgL_exprza23509za2_238, BgL_effect3510z00_239, BgL_format3511z00_240); 
{ /* ./Cfa/cinfo3.scm 25 */
long BgL_arg4445z00_2253;
BgL_arg4445z00_2253 = 
BGl_classzd2numzd2zz__objectz00(BGl_pragmazf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 25 */
BgL_objectz00_bglt BgL_objz00_2256;
BgL_objz00_2256 = 
(BgL_objectz00_bglt)(BgL_aux3512z00_2252); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2256, BgL_arg4445z00_2253); } } 
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmazf2cinfozf2_bglt BgL_arg4449z00_2254;
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmazf2cinfozf2_bglt BgL_res5546z00_2264;
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmazf2cinfozf2_bglt BgL_new3502z00_2259;
BgL_new3502z00_2259 = 
((BgL_pragmazf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_pragmazf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmazf2cinfozf2_bglt BgL_res5545z00_2263;
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmazf2cinfozf2_bglt BgL_new3515z00_2260;
BgL_new3515z00_2260 = BgL_new3502z00_2259; 
{ /* ./Cfa/cinfo3.scm 25 */
BgL_approxz00_bglt BgL_approx3514z00_2262;
BgL_approx3514z00_2262 = BgL_approx3504z00_241; 
((((BgL_pragmazf2cinfozf2_bglt)CREF(BgL_new3515z00_2260))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3514z00_2262), BUNSPEC); 
BgL_res5545z00_2263 = BgL_new3515z00_2260; } } BgL_res5545z00_2263; } 
BgL_res5546z00_2264 = BgL_new3502z00_2259; } 
BgL_arg4449z00_2254 = BgL_res5546z00_2264; } 
{ /* ./Cfa/cinfo3.scm 25 */
obj_t BgL_auxz00_3962;BgL_objectz00_bglt BgL_auxz00_3960;
BgL_auxz00_3962 = 
(obj_t)(BgL_arg4449z00_2254); 
BgL_auxz00_3960 = 
(BgL_objectz00_bglt)(BgL_aux3512z00_2252); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3960, BgL_auxz00_3962); } } 
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmazf2cinfozf2_bglt BgL_new3513z00_2255;
{ 
BgL_pragmazf2cinfozf2_bglt BgL_auxz00_3965;
BgL_auxz00_3965 = 
(BgL_pragmazf2cinfozf2_bglt)(BgL_aux3512z00_2252); 
BgL_new3513z00_2255 = 
((BgL_pragmazf2cinfozf2_bglt)BgL_auxz00_3965); } 
{ /* ./Cfa/cinfo3.scm 25 */
obj_t BgL_objz00_2265;
BgL_objz00_2265 = 
(obj_t)(BgL_new3513z00_2255); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2265); BUNSPEC; } 
return BgL_new3513z00_2255;} } } 
}



/* _make-pragma/Cinfo */
obj_t BGl__makezd2pragmazf2Cinfoz20zzcfa_info3z00(obj_t BgL_envz00_2923, obj_t BgL_loc3505z00_2924, obj_t BgL_type3506z00_2925, obj_t BgL_sidezd2effectzf33507z21_2926, obj_t BgL_key3508z00_2927, obj_t BgL_exprza23509za2_2928, obj_t BgL_effect3510z00_2929, obj_t BgL_format3511z00_2930, obj_t BgL_approx3504z00_2931)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 25 */
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmazf2cinfozf2_bglt BgL_auxz00_3970;
BgL_auxz00_3970 = 
BGl_makezd2pragmazf2Cinfoz20zzcfa_info3z00(BgL_loc3505z00_2924, 
(BgL_typez00_bglt)(BgL_type3506z00_2925), BgL_sidezd2effectzf33507z21_2926, BgL_key3508z00_2927, BgL_exprza23509za2_2928, BgL_effect3510z00_2929, BgL_format3511z00_2930, 
(BgL_approxz00_bglt)(BgL_approx3504z00_2931)); 
return 
(obj_t)(BgL_auxz00_3970);} } 
}



/* fill-pragma/Cinfo! */
BGL_EXPORTED_DEF BgL_pragmazf2cinfozf2_bglt BGl_fillzd2pragmazf2Cinfoz12z32zzcfa_info3z00(BgL_pragmazf2cinfozf2_bglt BgL_new3515z00_242, BgL_approxz00_bglt BgL_approx3514z00_243)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 25 */
{ /* ./Cfa/cinfo3.scm 25 */
BgL_approxz00_bglt BgL_approx3514z00_3202;
BgL_approx3514z00_3202 = BgL_approx3514z00_243; 
((((BgL_pragmazf2cinfozf2_bglt)CREF(BgL_new3515z00_242))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3514z00_3202), BUNSPEC); 
return BgL_new3515z00_242;} } 
}



/* _fill-pragma/Cinfo! */
obj_t BGl__fillzd2pragmazf2Cinfoz12z32zzcfa_info3z00(obj_t BgL_envz00_2932, obj_t BgL_new3515z00_2933, obj_t BgL_approx3514z00_2934)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 25 */
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmazf2cinfozf2_bglt BgL_auxz00_3976;
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmazf2cinfozf2_bglt BgL_res6322z00_3206;
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmazf2cinfozf2_bglt BgL_new3515z00_3203;BgL_approxz00_bglt BgL_approx3514z00_3204;
BgL_new3515z00_3203 = 
(BgL_pragmazf2cinfozf2_bglt)(BgL_new3515z00_2933); 
BgL_approx3514z00_3204 = 
(BgL_approxz00_bglt)(BgL_approx3514z00_2934); 
{ /* ./Cfa/cinfo3.scm 25 */
BgL_approxz00_bglt BgL_approx3514z00_3205;
BgL_approx3514z00_3205 = BgL_approx3514z00_3204; 
((((BgL_pragmazf2cinfozf2_bglt)CREF(BgL_new3515z00_3203))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3514z00_3205), BUNSPEC); 
BgL_res6322z00_3206 = BgL_new3515z00_3203; } } 
BgL_auxz00_3976 = BgL_res6322z00_3206; } 
return 
(obj_t)(BgL_auxz00_3976);} } 
}



/* allocate-pragma/Cinfo */
BGL_EXPORTED_DEF BgL_pragmaz00_bglt BGl_allocatezd2pragmazf2Cinfoz20zzcfa_info3z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 25 */
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmaz00_bglt BgL_new3518z00_3207;
BgL_new3518z00_3207 = 
((BgL_pragmaz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_pragmaz00_bgl) ))); 
{ /* ./Cfa/cinfo3.scm 25 */
long BgL_arg4455z00_3208;
BgL_arg4455z00_3208 = 
BGl_classzd2numzd2zz__objectz00(BGl_pragmazf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 25 */
BgL_objectz00_bglt BgL_objz00_3209;
BgL_objz00_3209 = 
(BgL_objectz00_bglt)(BgL_new3518z00_3207); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3209, BgL_arg4455z00_3208); } } 
{ /* ./Cfa/cinfo3.scm 25 */
BgL_objectz00_bglt BgL_auxz00_3985;
BgL_auxz00_3985 = 
(BgL_objectz00_bglt)(BgL_new3518z00_3207); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3985, BFALSE); } 
{ /* ./Cfa/cinfo3.scm 25 */
obj_t BgL_objz00_3210;
BgL_objz00_3210 = 
(obj_t)(BgL_new3518z00_3207); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3210); BUNSPEC; } 
return BgL_new3518z00_3207;} } 
}



/* _allocate-pragma/Cinfo */
obj_t BGl__allocatezd2pragmazf2Cinfoz20zzcfa_info3z00(obj_t BgL_envz00_2705)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 25 */
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmaz00_bglt BgL_auxz00_3990;
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmaz00_bglt BgL_res6323z00_3215;
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmaz00_bglt BgL_new3518z00_3211;
BgL_new3518z00_3211 = 
((BgL_pragmaz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_pragmaz00_bgl) ))); 
{ /* ./Cfa/cinfo3.scm 25 */
long BgL_arg4455z00_3212;
BgL_arg4455z00_3212 = 
BGl_classzd2numzd2zz__objectz00(BGl_pragmazf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 25 */
BgL_objectz00_bglt BgL_objz00_3213;
BgL_objz00_3213 = 
(BgL_objectz00_bglt)(BgL_new3518z00_3211); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3213, BgL_arg4455z00_3212); } } 
{ /* ./Cfa/cinfo3.scm 25 */
BgL_objectz00_bglt BgL_auxz00_3995;
BgL_auxz00_3995 = 
(BgL_objectz00_bglt)(BgL_new3518z00_3211); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3995, BFALSE); } 
{ /* ./Cfa/cinfo3.scm 25 */
obj_t BgL_objz00_3214;
BgL_objz00_3214 = 
(obj_t)(BgL_new3518z00_3211); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3214); BUNSPEC; } 
BgL_res6323z00_3215 = BgL_new3518z00_3211; } 
BgL_auxz00_3990 = BgL_res6323z00_3215; } 
return 
(obj_t)(BgL_auxz00_3990);} } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzcfa_info3z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 16 */
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_valloczf2Cinfozb2optimz40zzcfa_info3z00, BGl_proc6264z00zzcfa_info3z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_valloczf2Cinfozb2optimz40zzcfa_info3z00, BGl_proc6265z00zzcfa_info3z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_valloczf2Cinfozf2zzcfa_info3z00, BGl_proc6266z00zzcfa_info3z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_valloczf2Cinfozf2zzcfa_info3z00, BGl_proc6267z00zzcfa_info3z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_prezd2valloczf2Cinfoz20zzcfa_info3z00, BGl_proc6268z00zzcfa_info3z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_prezd2valloczf2Cinfoz20zzcfa_info3z00, BGl_proc6269z00zzcfa_info3z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_vlengthzf2Cinfozf2zzcfa_info3z00, BGl_proc6270z00zzcfa_info3z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_vlengthzf2Cinfozf2zzcfa_info3z00, BGl_proc6271z00zzcfa_info3z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_vsetz12zf2Cinfoze0zzcfa_info3z00, BGl_proc6272z00zzcfa_info3z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_vsetz12zf2Cinfoze0zzcfa_info3z00, BGl_proc6273z00zzcfa_info3z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_vrefzf2Cinfozf2zzcfa_info3z00, BGl_proc6274z00zzcfa_info3z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_vrefzf2Cinfozf2zzcfa_info3z00, BGl_proc6275z00zzcfa_info3z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_isazf2Cinfozf2zzcfa_info3z00, BGl_proc6276z00zzcfa_info3z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_isazf2Cinfozf2zzcfa_info3z00, BGl_proc6277z00zzcfa_info3z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_newzf2Cinfozf2zzcfa_info3z00, BGl_proc6278z00zzcfa_info3z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_newzf2Cinfozf2zzcfa_info3z00, BGl_proc6279z00zzcfa_info3z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_setfieldzf2Cinfozf2zzcfa_info3z00, BGl_proc6280z00zzcfa_info3z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_setfieldzf2Cinfozf2zzcfa_info3z00, BGl_proc6281z00zzcfa_info3z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_getfieldzf2Cinfozf2zzcfa_info3z00, BGl_proc6282z00zzcfa_info3z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_getfieldzf2Cinfozf2zzcfa_info3z00, BGl_proc6283z00zzcfa_info3z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_pragmazf2Cinfozf2zzcfa_info3z00, BGl_proc6284z00zzcfa_info3z00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_pragmazf2Cinfozf2zzcfa_info3z00, BGl_proc6285z00zzcfa_info3z00);} 
}



/* struct+object->object-pragma/Cinfo4135 */
obj_t BGl_structzb2objectzd2ze3objectzd2pragmazf2Cinfo4135za3zzcfa_info3z00(obj_t BgL_envz00_2962, obj_t BgL_oz00_2963, obj_t BgL_sz00_2964)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 25 */
{ 
BgL_pragmazf2cinfozf2_bglt BgL_oz00_1931;obj_t BgL_sz00_1932;
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmazf2cinfozf2_bglt BgL_auxz00_4023;
BgL_oz00_1931 = 
(BgL_pragmazf2cinfozf2_bglt)(BgL_oz00_2963); 
BgL_sz00_1932 = BgL_sz00_2964; 
{ 

{ /* ./Cfa/cinfo3.scm 25 */
obj_t BgL_old3522z00_1935;obj_t BgL_aux3523z00_1936;
{ /* ./Cfa/cinfo3.scm 25 */
obj_t BgL_nextzd2method4134zd2_1941;
BgL_nextzd2method4134zd2_1941 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1931), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_pragmazf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 25 */
bool_t BgL_test5504z00_1942;
BgL_test5504z00_1942 = 
PROCEDUREP(BgL_nextzd2method4134zd2_1941); 
if(BgL_test5504z00_1942)
{ /* ./Cfa/cinfo3.scm 25 */
BgL_old3522z00_1935 = 
PROCEDURE_ENTRY(BgL_nextzd2method4134zd2_1941)(BgL_nextzd2method4134zd2_1941, 
(obj_t)(BgL_oz00_1931), BgL_sz00_1932, BEOA); }  else 
{ /* ./Cfa/cinfo3.scm 25 */
{ /* ./Cfa/cinfo3.scm 25 */
BgL_objectz00_bglt BgL_auxz00_4031;
BgL_auxz00_4031 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1931), BgL_sz00_1932); 
BgL_old3522z00_1935 = 
(obj_t)(BgL_auxz00_4031); } } } } 
{ /* ./Cfa/cinfo3.scm 25 */
int BgL_auxz00_4035;
BgL_auxz00_4035 = 
(int)(((long)0)); 
BgL_aux3523z00_1936 = 
STRUCT_REF(BgL_sz00_1932, BgL_auxz00_4035); } 
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmazf2cinfozf2_bglt BgL_new3524z00_1937;
BgL_new3524z00_1937 = 
((BgL_pragmazf2cinfozf2_bglt)(BgL_old3522z00_1935)); 
{ /* ./Cfa/cinfo3.scm 25 */
long BgL_arg5491z00_1938;
BgL_arg5491z00_1938 = 
BGl_classzd2numzd2zz__objectz00(BGl_pragmazf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 25 */
BgL_objectz00_bglt BgL_objz00_2692;
BgL_objz00_2692 = 
(BgL_objectz00_bglt)(BgL_new3524z00_1937); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2692, BgL_arg5491z00_1938); } } 
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmazf2cinfozf2_bglt BgL_arg5495z00_1939;
{ /* ./Cfa/cinfo3.scm 25 */
obj_t BgL_arg5498z00_1940;
{ /* ./Cfa/cinfo3.scm 25 */
int BgL_auxz00_4042;
BgL_auxz00_4042 = 
(int)(((long)0)); 
BgL_arg5498z00_1940 = 
STRUCT_REF(BgL_aux3523z00_1936, BgL_auxz00_4042); } 
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmazf2cinfozf2_bglt BgL_res5579z00_2702;
{ /* ./Cfa/cinfo3.scm 25 */
BgL_approxz00_bglt BgL_approx3501z00_2696;
BgL_approx3501z00_2696 = 
(BgL_approxz00_bglt)(BgL_arg5498z00_1940); 
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmazf2cinfozf2_bglt BgL_new3502z00_2697;
BgL_new3502z00_2697 = 
((BgL_pragmazf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_pragmazf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmazf2cinfozf2_bglt BgL_res5578z00_2701;
{ /* ./Cfa/cinfo3.scm 25 */
BgL_pragmazf2cinfozf2_bglt BgL_new3515z00_2698;
BgL_new3515z00_2698 = BgL_new3502z00_2697; 
{ /* ./Cfa/cinfo3.scm 25 */
BgL_approxz00_bglt BgL_approx3514z00_2700;
BgL_approx3514z00_2700 = BgL_approx3501z00_2696; 
((((BgL_pragmazf2cinfozf2_bglt)CREF(BgL_new3515z00_2698))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3514z00_2700), BUNSPEC); 
BgL_res5578z00_2701 = BgL_new3515z00_2698; } } BgL_res5578z00_2701; } 
BgL_res5579z00_2702 = BgL_new3502z00_2697; } } 
BgL_arg5495z00_1939 = BgL_res5579z00_2702; } } 
{ /* ./Cfa/cinfo3.scm 25 */
obj_t BgL_auxz00_4050;BgL_objectz00_bglt BgL_auxz00_4048;
BgL_auxz00_4050 = 
(obj_t)(BgL_arg5495z00_1939); 
BgL_auxz00_4048 = 
(BgL_objectz00_bglt)(BgL_new3524z00_1937); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4048, BgL_auxz00_4050); } } 
{ /* ./Cfa/cinfo3.scm 25 */
obj_t BgL_objz00_2703;
BgL_objz00_2703 = 
(obj_t)(BgL_new3524z00_1937); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2703); BUNSPEC; } 
BgL_auxz00_4023 = BgL_new3524z00_1937; } } } 
return 
(obj_t)(BgL_auxz00_4023);} } } 
}



/* object->struct-pragma/Cinfo4133 */
obj_t BGl_objectzd2ze3structzd2pragmazf2Cinfo4133z11zzcfa_info3z00(obj_t BgL_envz00_2965, obj_t BgL_obj3519z00_2966)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 25 */
{ 
BgL_pragmazf2cinfozf2_bglt BgL_obj3519z00_1921;
BgL_obj3519z00_1921 = 
(BgL_pragmazf2cinfozf2_bglt)(BgL_obj3519z00_2966); 
{ 

{ /* ./Cfa/cinfo3.scm 25 */
obj_t BgL_res3520z00_1924;
{ /* ./Cfa/cinfo3.scm 25 */
obj_t BgL_nextzd2method4132zd2_1929;
BgL_nextzd2method4132zd2_1929 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3519z00_1921), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_pragmazf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 25 */
bool_t BgL_test5484z00_1930;
BgL_test5484z00_1930 = 
PROCEDUREP(BgL_nextzd2method4132zd2_1929); 
if(BgL_test5484z00_1930)
{ /* ./Cfa/cinfo3.scm 25 */
BgL_res3520z00_1924 = 
PROCEDURE_ENTRY(BgL_nextzd2method4132zd2_1929)(BgL_nextzd2method4132zd2_1929, 
(obj_t)(BgL_obj3519z00_1921), BEOA); }  else 
{ /* ./Cfa/cinfo3.scm 25 */
BgL_res3520z00_1924 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3519z00_1921)); } } } 
{ /* ./Cfa/cinfo3.scm 25 */
obj_t BgL_aux3521z00_1925;
{ /* ./Cfa/cinfo3.scm 25 */
obj_t BgL_keyz00_2673;int BgL_lenz00_2674;
BgL_keyz00_2673 = 
CNST_TABLE_REF(((long)0)); 
BgL_lenz00_2674 = 
(int)(((long)1)); 
BgL_aux3521z00_1925 = 
make_struct(BgL_keyz00_2673, BgL_lenz00_2674, BUNSPEC); } 
{ /* ./Cfa/cinfo3.scm 25 */
BgL_approxz00_bglt BgL_arg5473z00_1927;
{ 
obj_t BgL_auxz00_4069;
{ /* ./Cfa/cinfo3.scm 25 */
BgL_objectz00_bglt BgL_auxz00_4070;
BgL_auxz00_4070 = 
(BgL_objectz00_bglt)(BgL_obj3519z00_1921); 
BgL_auxz00_4069 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4070); } 
BgL_arg5473z00_1927 = 
(((BgL_pragmazf2cinfozf2_bglt)CREF(BgL_auxz00_4069))->BgL_approxz00); } 
{ /* ./Cfa/cinfo3.scm 25 */
int BgL_kz00_2678;obj_t BgL_oz00_2679;
BgL_kz00_2678 = 
(int)(((long)0)); 
BgL_oz00_2679 = 
(obj_t)(BgL_arg5473z00_1927); 
STRUCT_SET(BgL_aux3521z00_1925, BgL_kz00_2678, BgL_oz00_2679); } } 
{ /* ./Cfa/cinfo3.scm 25 */
int BgL_kz00_2681;
BgL_kz00_2681 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3520z00_1924, BgL_kz00_2681, BgL_aux3521z00_1925); } 
{ /* ./Cfa/cinfo3.scm 25 */
obj_t BgL_arg5478z00_1928;
BgL_arg5478z00_1928 = 
STRUCT_KEY(BgL_res3520z00_1924); 
STRUCT_KEY_SET(BgL_aux3521z00_1925, BgL_arg5478z00_1928); } 
{ /* ./Cfa/cinfo3.scm 25 */
obj_t BgL_kz00_2688;
BgL_kz00_2688 = 
CNST_TABLE_REF(((long)0)); 
STRUCT_KEY_SET(BgL_res3520z00_1924, BgL_kz00_2688); } 
return BgL_res3520z00_1924;} } } } } 
}



/* struct+object->object-getfield/Cinfo4131 */
obj_t BGl_structzb2objectzd2ze3objectzd2getfieldzf2Cinfo4131za3zzcfa_info3z00(obj_t BgL_envz00_2967, obj_t BgL_oz00_2968, obj_t BgL_sz00_2969)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 26 */
{ 
BgL_getfieldzf2cinfozf2_bglt BgL_oz00_1909;obj_t BgL_sz00_1910;
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldzf2cinfozf2_bglt BgL_auxz00_4084;
BgL_oz00_1909 = 
(BgL_getfieldzf2cinfozf2_bglt)(BgL_oz00_2968); 
BgL_sz00_1910 = BgL_sz00_2969; 
{ 

{ /* ./Cfa/cinfo3.scm 26 */
obj_t BgL_old3568z00_1913;obj_t BgL_aux3569z00_1914;
{ /* ./Cfa/cinfo3.scm 26 */
obj_t BgL_nextzd2method4130zd2_1919;
BgL_nextzd2method4130zd2_1919 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1909), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_getfieldzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 26 */
bool_t BgL_test5465z00_1920;
BgL_test5465z00_1920 = 
PROCEDUREP(BgL_nextzd2method4130zd2_1919); 
if(BgL_test5465z00_1920)
{ /* ./Cfa/cinfo3.scm 26 */
BgL_old3568z00_1913 = 
PROCEDURE_ENTRY(BgL_nextzd2method4130zd2_1919)(BgL_nextzd2method4130zd2_1919, 
(obj_t)(BgL_oz00_1909), BgL_sz00_1910, BEOA); }  else 
{ /* ./Cfa/cinfo3.scm 26 */
{ /* ./Cfa/cinfo3.scm 26 */
BgL_objectz00_bglt BgL_auxz00_4092;
BgL_auxz00_4092 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1909), BgL_sz00_1910); 
BgL_old3568z00_1913 = 
(obj_t)(BgL_auxz00_4092); } } } } 
{ /* ./Cfa/cinfo3.scm 26 */
int BgL_auxz00_4096;
BgL_auxz00_4096 = 
(int)(((long)0)); 
BgL_aux3569z00_1914 = 
STRUCT_REF(BgL_sz00_1910, BgL_auxz00_4096); } 
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldzf2cinfozf2_bglt BgL_new3570z00_1915;
BgL_new3570z00_1915 = 
((BgL_getfieldzf2cinfozf2_bglt)(BgL_old3568z00_1913)); 
{ /* ./Cfa/cinfo3.scm 26 */
long BgL_arg5452z00_1916;
BgL_arg5452z00_1916 = 
BGl_classzd2numzd2zz__objectz00(BGl_getfieldzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 26 */
BgL_objectz00_bglt BgL_objz00_2660;
BgL_objz00_2660 = 
(BgL_objectz00_bglt)(BgL_new3570z00_1915); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2660, BgL_arg5452z00_1916); } } 
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldzf2cinfozf2_bglt BgL_arg5456z00_1917;
{ /* ./Cfa/cinfo3.scm 26 */
obj_t BgL_arg5459z00_1918;
{ /* ./Cfa/cinfo3.scm 26 */
int BgL_auxz00_4103;
BgL_auxz00_4103 = 
(int)(((long)0)); 
BgL_arg5459z00_1918 = 
STRUCT_REF(BgL_aux3569z00_1914, BgL_auxz00_4103); } 
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldzf2cinfozf2_bglt BgL_res5576z00_2670;
{ /* ./Cfa/cinfo3.scm 26 */
BgL_approxz00_bglt BgL_approx3545z00_2664;
BgL_approx3545z00_2664 = 
(BgL_approxz00_bglt)(BgL_arg5459z00_1918); 
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldzf2cinfozf2_bglt BgL_new3546z00_2665;
BgL_new3546z00_2665 = 
((BgL_getfieldzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_getfieldzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldzf2cinfozf2_bglt BgL_res5575z00_2669;
{ /* ./Cfa/cinfo3.scm 26 */
BgL_getfieldzf2cinfozf2_bglt BgL_new3561z00_2666;
BgL_new3561z00_2666 = BgL_new3546z00_2665; 
{ /* ./Cfa/cinfo3.scm 26 */
BgL_approxz00_bglt BgL_approx3560z00_2668;
BgL_approx3560z00_2668 = BgL_approx3545z00_2664; 
((((BgL_getfieldzf2cinfozf2_bglt)CREF(BgL_new3561z00_2666))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3560z00_2668), BUNSPEC); 
BgL_res5575z00_2669 = BgL_new3561z00_2666; } } BgL_res5575z00_2669; } 
BgL_res5576z00_2670 = BgL_new3546z00_2665; } } 
BgL_arg5456z00_1917 = BgL_res5576z00_2670; } } 
{ /* ./Cfa/cinfo3.scm 26 */
obj_t BgL_auxz00_4111;BgL_objectz00_bglt BgL_auxz00_4109;
BgL_auxz00_4111 = 
(obj_t)(BgL_arg5456z00_1917); 
BgL_auxz00_4109 = 
(BgL_objectz00_bglt)(BgL_new3570z00_1915); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4109, BgL_auxz00_4111); } } 
{ /* ./Cfa/cinfo3.scm 26 */
obj_t BgL_objz00_2671;
BgL_objz00_2671 = 
(obj_t)(BgL_new3570z00_1915); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2671); BUNSPEC; } 
BgL_auxz00_4084 = BgL_new3570z00_1915; } } } 
return 
(obj_t)(BgL_auxz00_4084);} } } 
}



/* object->struct-getfield/Cinfo4129 */
obj_t BGl_objectzd2ze3structzd2getfieldzf2Cinfo4129z11zzcfa_info3z00(obj_t BgL_envz00_2970, obj_t BgL_obj3565z00_2971)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 26 */
{ 
BgL_getfieldzf2cinfozf2_bglt BgL_obj3565z00_1899;
BgL_obj3565z00_1899 = 
(BgL_getfieldzf2cinfozf2_bglt)(BgL_obj3565z00_2971); 
{ 

{ /* ./Cfa/cinfo3.scm 26 */
obj_t BgL_res3566z00_1902;
{ /* ./Cfa/cinfo3.scm 26 */
obj_t BgL_nextzd2method4128zd2_1907;
BgL_nextzd2method4128zd2_1907 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3565z00_1899), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_getfieldzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 26 */
bool_t BgL_test5445z00_1908;
BgL_test5445z00_1908 = 
PROCEDUREP(BgL_nextzd2method4128zd2_1907); 
if(BgL_test5445z00_1908)
{ /* ./Cfa/cinfo3.scm 26 */
BgL_res3566z00_1902 = 
PROCEDURE_ENTRY(BgL_nextzd2method4128zd2_1907)(BgL_nextzd2method4128zd2_1907, 
(obj_t)(BgL_obj3565z00_1899), BEOA); }  else 
{ /* ./Cfa/cinfo3.scm 26 */
BgL_res3566z00_1902 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3565z00_1899)); } } } 
{ /* ./Cfa/cinfo3.scm 26 */
obj_t BgL_aux3567z00_1903;
{ /* ./Cfa/cinfo3.scm 26 */
obj_t BgL_keyz00_2641;int BgL_lenz00_2642;
BgL_keyz00_2641 = 
CNST_TABLE_REF(((long)1)); 
BgL_lenz00_2642 = 
(int)(((long)1)); 
BgL_aux3567z00_1903 = 
make_struct(BgL_keyz00_2641, BgL_lenz00_2642, BUNSPEC); } 
{ /* ./Cfa/cinfo3.scm 26 */
BgL_approxz00_bglt BgL_arg5434z00_1905;
{ 
obj_t BgL_auxz00_4130;
{ /* ./Cfa/cinfo3.scm 26 */
BgL_objectz00_bglt BgL_auxz00_4131;
BgL_auxz00_4131 = 
(BgL_objectz00_bglt)(BgL_obj3565z00_1899); 
BgL_auxz00_4130 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4131); } 
BgL_arg5434z00_1905 = 
(((BgL_getfieldzf2cinfozf2_bglt)CREF(BgL_auxz00_4130))->BgL_approxz00); } 
{ /* ./Cfa/cinfo3.scm 26 */
int BgL_kz00_2646;obj_t BgL_oz00_2647;
BgL_kz00_2646 = 
(int)(((long)0)); 
BgL_oz00_2647 = 
(obj_t)(BgL_arg5434z00_1905); 
STRUCT_SET(BgL_aux3567z00_1903, BgL_kz00_2646, BgL_oz00_2647); } } 
{ /* ./Cfa/cinfo3.scm 26 */
int BgL_kz00_2649;
BgL_kz00_2649 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3566z00_1902, BgL_kz00_2649, BgL_aux3567z00_1903); } 
{ /* ./Cfa/cinfo3.scm 26 */
obj_t BgL_arg5439z00_1906;
BgL_arg5439z00_1906 = 
STRUCT_KEY(BgL_res3566z00_1902); 
STRUCT_KEY_SET(BgL_aux3567z00_1903, BgL_arg5439z00_1906); } 
{ /* ./Cfa/cinfo3.scm 26 */
obj_t BgL_kz00_2656;
BgL_kz00_2656 = 
CNST_TABLE_REF(((long)1)); 
STRUCT_KEY_SET(BgL_res3566z00_1902, BgL_kz00_2656); } 
return BgL_res3566z00_1902;} } } } } 
}



/* struct+object->object-setfield/Cinfo4127 */
obj_t BGl_structzb2objectzd2ze3objectzd2setfieldzf2Cinfo4127za3zzcfa_info3z00(obj_t BgL_envz00_2972, obj_t BgL_oz00_2973, obj_t BgL_sz00_2974)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 27 */
{ 
BgL_setfieldzf2cinfozf2_bglt BgL_oz00_1887;obj_t BgL_sz00_1888;
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldzf2cinfozf2_bglt BgL_auxz00_4145;
BgL_oz00_1887 = 
(BgL_setfieldzf2cinfozf2_bglt)(BgL_oz00_2973); 
BgL_sz00_1888 = BgL_sz00_2974; 
{ 

{ /* ./Cfa/cinfo3.scm 27 */
obj_t BgL_old3616z00_1891;obj_t BgL_aux3617z00_1892;
{ /* ./Cfa/cinfo3.scm 27 */
obj_t BgL_nextzd2method4126zd2_1897;
BgL_nextzd2method4126zd2_1897 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1887), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_setfieldzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 27 */
bool_t BgL_test5426z00_1898;
BgL_test5426z00_1898 = 
PROCEDUREP(BgL_nextzd2method4126zd2_1897); 
if(BgL_test5426z00_1898)
{ /* ./Cfa/cinfo3.scm 27 */
BgL_old3616z00_1891 = 
PROCEDURE_ENTRY(BgL_nextzd2method4126zd2_1897)(BgL_nextzd2method4126zd2_1897, 
(obj_t)(BgL_oz00_1887), BgL_sz00_1888, BEOA); }  else 
{ /* ./Cfa/cinfo3.scm 27 */
{ /* ./Cfa/cinfo3.scm 27 */
BgL_objectz00_bglt BgL_auxz00_4153;
BgL_auxz00_4153 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1887), BgL_sz00_1888); 
BgL_old3616z00_1891 = 
(obj_t)(BgL_auxz00_4153); } } } } 
{ /* ./Cfa/cinfo3.scm 27 */
int BgL_auxz00_4157;
BgL_auxz00_4157 = 
(int)(((long)0)); 
BgL_aux3617z00_1892 = 
STRUCT_REF(BgL_sz00_1888, BgL_auxz00_4157); } 
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldzf2cinfozf2_bglt BgL_new3618z00_1893;
BgL_new3618z00_1893 = 
((BgL_setfieldzf2cinfozf2_bglt)(BgL_old3616z00_1891)); 
{ /* ./Cfa/cinfo3.scm 27 */
long BgL_arg5413z00_1894;
BgL_arg5413z00_1894 = 
BGl_classzd2numzd2zz__objectz00(BGl_setfieldzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 27 */
BgL_objectz00_bglt BgL_objz00_2628;
BgL_objz00_2628 = 
(BgL_objectz00_bglt)(BgL_new3618z00_1893); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2628, BgL_arg5413z00_1894); } } 
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldzf2cinfozf2_bglt BgL_arg5417z00_1895;
{ /* ./Cfa/cinfo3.scm 27 */
obj_t BgL_arg5420z00_1896;
{ /* ./Cfa/cinfo3.scm 27 */
int BgL_auxz00_4164;
BgL_auxz00_4164 = 
(int)(((long)0)); 
BgL_arg5420z00_1896 = 
STRUCT_REF(BgL_aux3617z00_1892, BgL_auxz00_4164); } 
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldzf2cinfozf2_bglt BgL_res5573z00_2638;
{ /* ./Cfa/cinfo3.scm 27 */
BgL_approxz00_bglt BgL_approx3593z00_2632;
BgL_approx3593z00_2632 = 
(BgL_approxz00_bglt)(BgL_arg5420z00_1896); 
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldzf2cinfozf2_bglt BgL_new3594z00_2633;
BgL_new3594z00_2633 = 
((BgL_setfieldzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_setfieldzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldzf2cinfozf2_bglt BgL_res5572z00_2637;
{ /* ./Cfa/cinfo3.scm 27 */
BgL_setfieldzf2cinfozf2_bglt BgL_new3609z00_2634;
BgL_new3609z00_2634 = BgL_new3594z00_2633; 
{ /* ./Cfa/cinfo3.scm 27 */
BgL_approxz00_bglt BgL_approx3608z00_2636;
BgL_approx3608z00_2636 = BgL_approx3593z00_2632; 
((((BgL_setfieldzf2cinfozf2_bglt)CREF(BgL_new3609z00_2634))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3608z00_2636), BUNSPEC); 
BgL_res5572z00_2637 = BgL_new3609z00_2634; } } BgL_res5572z00_2637; } 
BgL_res5573z00_2638 = BgL_new3594z00_2633; } } 
BgL_arg5417z00_1895 = BgL_res5573z00_2638; } } 
{ /* ./Cfa/cinfo3.scm 27 */
obj_t BgL_auxz00_4172;BgL_objectz00_bglt BgL_auxz00_4170;
BgL_auxz00_4172 = 
(obj_t)(BgL_arg5417z00_1895); 
BgL_auxz00_4170 = 
(BgL_objectz00_bglt)(BgL_new3618z00_1893); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4170, BgL_auxz00_4172); } } 
{ /* ./Cfa/cinfo3.scm 27 */
obj_t BgL_objz00_2639;
BgL_objz00_2639 = 
(obj_t)(BgL_new3618z00_1893); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2639); BUNSPEC; } 
BgL_auxz00_4145 = BgL_new3618z00_1893; } } } 
return 
(obj_t)(BgL_auxz00_4145);} } } 
}



/* object->struct-setfield/Cinfo4125 */
obj_t BGl_objectzd2ze3structzd2setfieldzf2Cinfo4125z11zzcfa_info3z00(obj_t BgL_envz00_2975, obj_t BgL_obj3613z00_2976)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 27 */
{ 
BgL_setfieldzf2cinfozf2_bglt BgL_obj3613z00_1877;
BgL_obj3613z00_1877 = 
(BgL_setfieldzf2cinfozf2_bglt)(BgL_obj3613z00_2976); 
{ 

{ /* ./Cfa/cinfo3.scm 27 */
obj_t BgL_res3614z00_1880;
{ /* ./Cfa/cinfo3.scm 27 */
obj_t BgL_nextzd2method4124zd2_1885;
BgL_nextzd2method4124zd2_1885 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3613z00_1877), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_setfieldzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 27 */
bool_t BgL_test5406z00_1886;
BgL_test5406z00_1886 = 
PROCEDUREP(BgL_nextzd2method4124zd2_1885); 
if(BgL_test5406z00_1886)
{ /* ./Cfa/cinfo3.scm 27 */
BgL_res3614z00_1880 = 
PROCEDURE_ENTRY(BgL_nextzd2method4124zd2_1885)(BgL_nextzd2method4124zd2_1885, 
(obj_t)(BgL_obj3613z00_1877), BEOA); }  else 
{ /* ./Cfa/cinfo3.scm 27 */
BgL_res3614z00_1880 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3613z00_1877)); } } } 
{ /* ./Cfa/cinfo3.scm 27 */
obj_t BgL_aux3615z00_1881;
{ /* ./Cfa/cinfo3.scm 27 */
obj_t BgL_keyz00_2609;int BgL_lenz00_2610;
BgL_keyz00_2609 = 
CNST_TABLE_REF(((long)2)); 
BgL_lenz00_2610 = 
(int)(((long)1)); 
BgL_aux3615z00_1881 = 
make_struct(BgL_keyz00_2609, BgL_lenz00_2610, BUNSPEC); } 
{ /* ./Cfa/cinfo3.scm 27 */
BgL_approxz00_bglt BgL_arg5395z00_1883;
{ 
obj_t BgL_auxz00_4191;
{ /* ./Cfa/cinfo3.scm 27 */
BgL_objectz00_bglt BgL_auxz00_4192;
BgL_auxz00_4192 = 
(BgL_objectz00_bglt)(BgL_obj3613z00_1877); 
BgL_auxz00_4191 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4192); } 
BgL_arg5395z00_1883 = 
(((BgL_setfieldzf2cinfozf2_bglt)CREF(BgL_auxz00_4191))->BgL_approxz00); } 
{ /* ./Cfa/cinfo3.scm 27 */
int BgL_kz00_2614;obj_t BgL_oz00_2615;
BgL_kz00_2614 = 
(int)(((long)0)); 
BgL_oz00_2615 = 
(obj_t)(BgL_arg5395z00_1883); 
STRUCT_SET(BgL_aux3615z00_1881, BgL_kz00_2614, BgL_oz00_2615); } } 
{ /* ./Cfa/cinfo3.scm 27 */
int BgL_kz00_2617;
BgL_kz00_2617 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3614z00_1880, BgL_kz00_2617, BgL_aux3615z00_1881); } 
{ /* ./Cfa/cinfo3.scm 27 */
obj_t BgL_arg5400z00_1884;
BgL_arg5400z00_1884 = 
STRUCT_KEY(BgL_res3614z00_1880); 
STRUCT_KEY_SET(BgL_aux3615z00_1881, BgL_arg5400z00_1884); } 
{ /* ./Cfa/cinfo3.scm 27 */
obj_t BgL_kz00_2624;
BgL_kz00_2624 = 
CNST_TABLE_REF(((long)2)); 
STRUCT_KEY_SET(BgL_res3614z00_1880, BgL_kz00_2624); } 
return BgL_res3614z00_1880;} } } } } 
}



/* struct+object->object-new/Cinfo4123 */
obj_t BGl_structzb2objectzd2ze3objectzd2newzf2Cinfo4123za3zzcfa_info3z00(obj_t BgL_envz00_2977, obj_t BgL_oz00_2978, obj_t BgL_sz00_2979)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 28 */
{ 
BgL_newzf2cinfozf2_bglt BgL_oz00_1865;obj_t BgL_sz00_1866;
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newzf2cinfozf2_bglt BgL_auxz00_4206;
BgL_oz00_1865 = 
(BgL_newzf2cinfozf2_bglt)(BgL_oz00_2978); 
BgL_sz00_1866 = BgL_sz00_2979; 
{ 

{ /* ./Cfa/cinfo3.scm 28 */
obj_t BgL_old3661z00_1869;obj_t BgL_aux3662z00_1870;
{ /* ./Cfa/cinfo3.scm 28 */
obj_t BgL_nextzd2method4122zd2_1875;
BgL_nextzd2method4122zd2_1875 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1865), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_newzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 28 */
bool_t BgL_test5387z00_1876;
BgL_test5387z00_1876 = 
PROCEDUREP(BgL_nextzd2method4122zd2_1875); 
if(BgL_test5387z00_1876)
{ /* ./Cfa/cinfo3.scm 28 */
BgL_old3661z00_1869 = 
PROCEDURE_ENTRY(BgL_nextzd2method4122zd2_1875)(BgL_nextzd2method4122zd2_1875, 
(obj_t)(BgL_oz00_1865), BgL_sz00_1866, BEOA); }  else 
{ /* ./Cfa/cinfo3.scm 28 */
{ /* ./Cfa/cinfo3.scm 28 */
BgL_objectz00_bglt BgL_auxz00_4214;
BgL_auxz00_4214 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1865), BgL_sz00_1866); 
BgL_old3661z00_1869 = 
(obj_t)(BgL_auxz00_4214); } } } } 
{ /* ./Cfa/cinfo3.scm 28 */
int BgL_auxz00_4218;
BgL_auxz00_4218 = 
(int)(((long)0)); 
BgL_aux3662z00_1870 = 
STRUCT_REF(BgL_sz00_1866, BgL_auxz00_4218); } 
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newzf2cinfozf2_bglt BgL_new3663z00_1871;
BgL_new3663z00_1871 = 
((BgL_newzf2cinfozf2_bglt)(BgL_old3661z00_1869)); 
{ /* ./Cfa/cinfo3.scm 28 */
long BgL_arg5374z00_1872;
BgL_arg5374z00_1872 = 
BGl_classzd2numzd2zz__objectz00(BGl_newzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 28 */
BgL_objectz00_bglt BgL_objz00_2596;
BgL_objz00_2596 = 
(BgL_objectz00_bglt)(BgL_new3663z00_1871); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2596, BgL_arg5374z00_1872); } } 
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newzf2cinfozf2_bglt BgL_arg5378z00_1873;
{ /* ./Cfa/cinfo3.scm 28 */
obj_t BgL_arg5381z00_1874;
{ /* ./Cfa/cinfo3.scm 28 */
int BgL_auxz00_4225;
BgL_auxz00_4225 = 
(int)(((long)0)); 
BgL_arg5381z00_1874 = 
STRUCT_REF(BgL_aux3662z00_1870, BgL_auxz00_4225); } 
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newzf2cinfozf2_bglt BgL_res5570z00_2606;
{ /* ./Cfa/cinfo3.scm 28 */
BgL_approxz00_bglt BgL_approx3641z00_2600;
BgL_approx3641z00_2600 = 
(BgL_approxz00_bglt)(BgL_arg5381z00_1874); 
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newzf2cinfozf2_bglt BgL_new3642z00_2601;
BgL_new3642z00_2601 = 
((BgL_newzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_newzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newzf2cinfozf2_bglt BgL_res5569z00_2605;
{ /* ./Cfa/cinfo3.scm 28 */
BgL_newzf2cinfozf2_bglt BgL_new3654z00_2602;
BgL_new3654z00_2602 = BgL_new3642z00_2601; 
{ /* ./Cfa/cinfo3.scm 28 */
BgL_approxz00_bglt BgL_approx3653z00_2604;
BgL_approx3653z00_2604 = BgL_approx3641z00_2600; 
((((BgL_newzf2cinfozf2_bglt)CREF(BgL_new3654z00_2602))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3653z00_2604), BUNSPEC); 
BgL_res5569z00_2605 = BgL_new3654z00_2602; } } BgL_res5569z00_2605; } 
BgL_res5570z00_2606 = BgL_new3642z00_2601; } } 
BgL_arg5378z00_1873 = BgL_res5570z00_2606; } } 
{ /* ./Cfa/cinfo3.scm 28 */
obj_t BgL_auxz00_4233;BgL_objectz00_bglt BgL_auxz00_4231;
BgL_auxz00_4233 = 
(obj_t)(BgL_arg5378z00_1873); 
BgL_auxz00_4231 = 
(BgL_objectz00_bglt)(BgL_new3663z00_1871); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4231, BgL_auxz00_4233); } } 
{ /* ./Cfa/cinfo3.scm 28 */
obj_t BgL_objz00_2607;
BgL_objz00_2607 = 
(obj_t)(BgL_new3663z00_1871); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2607); BUNSPEC; } 
BgL_auxz00_4206 = BgL_new3663z00_1871; } } } 
return 
(obj_t)(BgL_auxz00_4206);} } } 
}



/* object->struct-new/Cinfo4121 */
obj_t BGl_objectzd2ze3structzd2newzf2Cinfo4121z11zzcfa_info3z00(obj_t BgL_envz00_2980, obj_t BgL_obj3658z00_2981)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 28 */
{ 
BgL_newzf2cinfozf2_bglt BgL_obj3658z00_1855;
BgL_obj3658z00_1855 = 
(BgL_newzf2cinfozf2_bglt)(BgL_obj3658z00_2981); 
{ 

{ /* ./Cfa/cinfo3.scm 28 */
obj_t BgL_res3659z00_1858;
{ /* ./Cfa/cinfo3.scm 28 */
obj_t BgL_nextzd2method4120zd2_1863;
BgL_nextzd2method4120zd2_1863 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3658z00_1855), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_newzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 28 */
bool_t BgL_test5367z00_1864;
BgL_test5367z00_1864 = 
PROCEDUREP(BgL_nextzd2method4120zd2_1863); 
if(BgL_test5367z00_1864)
{ /* ./Cfa/cinfo3.scm 28 */
BgL_res3659z00_1858 = 
PROCEDURE_ENTRY(BgL_nextzd2method4120zd2_1863)(BgL_nextzd2method4120zd2_1863, 
(obj_t)(BgL_obj3658z00_1855), BEOA); }  else 
{ /* ./Cfa/cinfo3.scm 28 */
BgL_res3659z00_1858 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3658z00_1855)); } } } 
{ /* ./Cfa/cinfo3.scm 28 */
obj_t BgL_aux3660z00_1859;
{ /* ./Cfa/cinfo3.scm 28 */
obj_t BgL_keyz00_2577;int BgL_lenz00_2578;
BgL_keyz00_2577 = 
CNST_TABLE_REF(((long)3)); 
BgL_lenz00_2578 = 
(int)(((long)1)); 
BgL_aux3660z00_1859 = 
make_struct(BgL_keyz00_2577, BgL_lenz00_2578, BUNSPEC); } 
{ /* ./Cfa/cinfo3.scm 28 */
BgL_approxz00_bglt BgL_arg5356z00_1861;
{ 
obj_t BgL_auxz00_4252;
{ /* ./Cfa/cinfo3.scm 28 */
BgL_objectz00_bglt BgL_auxz00_4253;
BgL_auxz00_4253 = 
(BgL_objectz00_bglt)(BgL_obj3658z00_1855); 
BgL_auxz00_4252 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4253); } 
BgL_arg5356z00_1861 = 
(((BgL_newzf2cinfozf2_bglt)CREF(BgL_auxz00_4252))->BgL_approxz00); } 
{ /* ./Cfa/cinfo3.scm 28 */
int BgL_kz00_2582;obj_t BgL_oz00_2583;
BgL_kz00_2582 = 
(int)(((long)0)); 
BgL_oz00_2583 = 
(obj_t)(BgL_arg5356z00_1861); 
STRUCT_SET(BgL_aux3660z00_1859, BgL_kz00_2582, BgL_oz00_2583); } } 
{ /* ./Cfa/cinfo3.scm 28 */
int BgL_kz00_2585;
BgL_kz00_2585 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3659z00_1858, BgL_kz00_2585, BgL_aux3660z00_1859); } 
{ /* ./Cfa/cinfo3.scm 28 */
obj_t BgL_arg5361z00_1862;
BgL_arg5361z00_1862 = 
STRUCT_KEY(BgL_res3659z00_1858); 
STRUCT_KEY_SET(BgL_aux3660z00_1859, BgL_arg5361z00_1862); } 
{ /* ./Cfa/cinfo3.scm 28 */
obj_t BgL_kz00_2592;
BgL_kz00_2592 = 
CNST_TABLE_REF(((long)3)); 
STRUCT_KEY_SET(BgL_res3659z00_1858, BgL_kz00_2592); } 
return BgL_res3659z00_1858;} } } } } 
}



/* struct+object->object-isa/Cinfo4119 */
obj_t BGl_structzb2objectzd2ze3objectzd2isazf2Cinfo4119za3zzcfa_info3z00(obj_t BgL_envz00_2982, obj_t BgL_oz00_2983, obj_t BgL_sz00_2984)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 29 */
{ 
BgL_isazf2cinfozf2_bglt BgL_oz00_1843;obj_t BgL_sz00_1844;
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isazf2cinfozf2_bglt BgL_auxz00_4267;
BgL_oz00_1843 = 
(BgL_isazf2cinfozf2_bglt)(BgL_oz00_2983); 
BgL_sz00_1844 = BgL_sz00_2984; 
{ 

{ /* ./Cfa/cinfo3.scm 29 */
obj_t BgL_old3704z00_1847;obj_t BgL_aux3705z00_1848;
{ /* ./Cfa/cinfo3.scm 29 */
obj_t BgL_nextzd2method4118zd2_1853;
BgL_nextzd2method4118zd2_1853 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1843), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_isazf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 29 */
bool_t BgL_test5348z00_1854;
BgL_test5348z00_1854 = 
PROCEDUREP(BgL_nextzd2method4118zd2_1853); 
if(BgL_test5348z00_1854)
{ /* ./Cfa/cinfo3.scm 29 */
BgL_old3704z00_1847 = 
PROCEDURE_ENTRY(BgL_nextzd2method4118zd2_1853)(BgL_nextzd2method4118zd2_1853, 
(obj_t)(BgL_oz00_1843), BgL_sz00_1844, BEOA); }  else 
{ /* ./Cfa/cinfo3.scm 29 */
{ /* ./Cfa/cinfo3.scm 29 */
BgL_objectz00_bglt BgL_auxz00_4275;
BgL_auxz00_4275 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1843), BgL_sz00_1844); 
BgL_old3704z00_1847 = 
(obj_t)(BgL_auxz00_4275); } } } } 
{ /* ./Cfa/cinfo3.scm 29 */
int BgL_auxz00_4279;
BgL_auxz00_4279 = 
(int)(((long)0)); 
BgL_aux3705z00_1848 = 
STRUCT_REF(BgL_sz00_1844, BgL_auxz00_4279); } 
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isazf2cinfozf2_bglt BgL_new3706z00_1849;
BgL_new3706z00_1849 = 
((BgL_isazf2cinfozf2_bglt)(BgL_old3704z00_1847)); 
{ /* ./Cfa/cinfo3.scm 29 */
long BgL_arg5335z00_1850;
BgL_arg5335z00_1850 = 
BGl_classzd2numzd2zz__objectz00(BGl_isazf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 29 */
BgL_objectz00_bglt BgL_objz00_2564;
BgL_objz00_2564 = 
(BgL_objectz00_bglt)(BgL_new3706z00_1849); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2564, BgL_arg5335z00_1850); } } 
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isazf2cinfozf2_bglt BgL_arg5339z00_1851;
{ /* ./Cfa/cinfo3.scm 29 */
obj_t BgL_arg5342z00_1852;
{ /* ./Cfa/cinfo3.scm 29 */
int BgL_auxz00_4286;
BgL_auxz00_4286 = 
(int)(((long)0)); 
BgL_arg5342z00_1852 = 
STRUCT_REF(BgL_aux3705z00_1848, BgL_auxz00_4286); } 
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isazf2cinfozf2_bglt BgL_res5567z00_2574;
{ /* ./Cfa/cinfo3.scm 29 */
BgL_approxz00_bglt BgL_approx3683z00_2568;
BgL_approx3683z00_2568 = 
(BgL_approxz00_bglt)(BgL_arg5342z00_1852); 
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isazf2cinfozf2_bglt BgL_new3684z00_2569;
BgL_new3684z00_2569 = 
((BgL_isazf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_isazf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isazf2cinfozf2_bglt BgL_res5566z00_2573;
{ /* ./Cfa/cinfo3.scm 29 */
BgL_isazf2cinfozf2_bglt BgL_new3697z00_2570;
BgL_new3697z00_2570 = BgL_new3684z00_2569; 
{ /* ./Cfa/cinfo3.scm 29 */
BgL_approxz00_bglt BgL_approx3696z00_2572;
BgL_approx3696z00_2572 = BgL_approx3683z00_2568; 
((((BgL_isazf2cinfozf2_bglt)CREF(BgL_new3697z00_2570))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3696z00_2572), BUNSPEC); 
BgL_res5566z00_2573 = BgL_new3697z00_2570; } } BgL_res5566z00_2573; } 
BgL_res5567z00_2574 = BgL_new3684z00_2569; } } 
BgL_arg5339z00_1851 = BgL_res5567z00_2574; } } 
{ /* ./Cfa/cinfo3.scm 29 */
obj_t BgL_auxz00_4294;BgL_objectz00_bglt BgL_auxz00_4292;
BgL_auxz00_4294 = 
(obj_t)(BgL_arg5339z00_1851); 
BgL_auxz00_4292 = 
(BgL_objectz00_bglt)(BgL_new3706z00_1849); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4292, BgL_auxz00_4294); } } 
{ /* ./Cfa/cinfo3.scm 29 */
obj_t BgL_objz00_2575;
BgL_objz00_2575 = 
(obj_t)(BgL_new3706z00_1849); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2575); BUNSPEC; } 
BgL_auxz00_4267 = BgL_new3706z00_1849; } } } 
return 
(obj_t)(BgL_auxz00_4267);} } } 
}



/* object->struct-isa/Cinfo4116 */
obj_t BGl_objectzd2ze3structzd2isazf2Cinfo4116z11zzcfa_info3z00(obj_t BgL_envz00_2985, obj_t BgL_obj3701z00_2986)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 29 */
{ 
BgL_isazf2cinfozf2_bglt BgL_obj3701z00_1833;
BgL_obj3701z00_1833 = 
(BgL_isazf2cinfozf2_bglt)(BgL_obj3701z00_2986); 
{ 

{ /* ./Cfa/cinfo3.scm 29 */
obj_t BgL_res3702z00_1836;
{ /* ./Cfa/cinfo3.scm 29 */
obj_t BgL_nextzd2method4115zd2_1841;
BgL_nextzd2method4115zd2_1841 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3701z00_1833), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_isazf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 29 */
bool_t BgL_test5328z00_1842;
BgL_test5328z00_1842 = 
PROCEDUREP(BgL_nextzd2method4115zd2_1841); 
if(BgL_test5328z00_1842)
{ /* ./Cfa/cinfo3.scm 29 */
BgL_res3702z00_1836 = 
PROCEDURE_ENTRY(BgL_nextzd2method4115zd2_1841)(BgL_nextzd2method4115zd2_1841, 
(obj_t)(BgL_obj3701z00_1833), BEOA); }  else 
{ /* ./Cfa/cinfo3.scm 29 */
BgL_res3702z00_1836 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3701z00_1833)); } } } 
{ /* ./Cfa/cinfo3.scm 29 */
obj_t BgL_aux3703z00_1837;
{ /* ./Cfa/cinfo3.scm 29 */
obj_t BgL_keyz00_2545;int BgL_lenz00_2546;
BgL_keyz00_2545 = 
CNST_TABLE_REF(((long)4)); 
BgL_lenz00_2546 = 
(int)(((long)1)); 
BgL_aux3703z00_1837 = 
make_struct(BgL_keyz00_2545, BgL_lenz00_2546, BUNSPEC); } 
{ /* ./Cfa/cinfo3.scm 29 */
BgL_approxz00_bglt BgL_arg5317z00_1839;
{ 
obj_t BgL_auxz00_4313;
{ /* ./Cfa/cinfo3.scm 29 */
BgL_objectz00_bglt BgL_auxz00_4314;
BgL_auxz00_4314 = 
(BgL_objectz00_bglt)(BgL_obj3701z00_1833); 
BgL_auxz00_4313 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4314); } 
BgL_arg5317z00_1839 = 
(((BgL_isazf2cinfozf2_bglt)CREF(BgL_auxz00_4313))->BgL_approxz00); } 
{ /* ./Cfa/cinfo3.scm 29 */
int BgL_kz00_2550;obj_t BgL_oz00_2551;
BgL_kz00_2550 = 
(int)(((long)0)); 
BgL_oz00_2551 = 
(obj_t)(BgL_arg5317z00_1839); 
STRUCT_SET(BgL_aux3703z00_1837, BgL_kz00_2550, BgL_oz00_2551); } } 
{ /* ./Cfa/cinfo3.scm 29 */
int BgL_kz00_2553;
BgL_kz00_2553 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3702z00_1836, BgL_kz00_2553, BgL_aux3703z00_1837); } 
{ /* ./Cfa/cinfo3.scm 29 */
obj_t BgL_arg5322z00_1840;
BgL_arg5322z00_1840 = 
STRUCT_KEY(BgL_res3702z00_1836); 
STRUCT_KEY_SET(BgL_aux3703z00_1837, BgL_arg5322z00_1840); } 
{ /* ./Cfa/cinfo3.scm 29 */
obj_t BgL_kz00_2560;
BgL_kz00_2560 = 
CNST_TABLE_REF(((long)4)); 
STRUCT_KEY_SET(BgL_res3702z00_1836, BgL_kz00_2560); } 
return BgL_res3702z00_1836;} } } } } 
}



/* struct+object->object-vref/Cinfo4114 */
obj_t BGl_structzb2objectzd2ze3objectzd2vrefzf2Cinfo4114za3zzcfa_info3z00(obj_t BgL_envz00_2987, obj_t BgL_oz00_2988, obj_t BgL_sz00_2989)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 32 */
{ 
BgL_vrefzf2cinfozf2_bglt BgL_oz00_1820;obj_t BgL_sz00_1821;
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefzf2cinfozf2_bglt BgL_auxz00_4328;
BgL_oz00_1820 = 
(BgL_vrefzf2cinfozf2_bglt)(BgL_oz00_2988); 
BgL_sz00_1821 = BgL_sz00_2989; 
{ 

{ /* ./Cfa/cinfo3.scm 32 */
obj_t BgL_old3755z00_1824;obj_t BgL_aux3756z00_1825;
{ /* ./Cfa/cinfo3.scm 32 */
obj_t BgL_nextzd2method4113zd2_1831;
BgL_nextzd2method4113zd2_1831 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1820), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_vrefzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 32 */
bool_t BgL_test5309z00_1832;
BgL_test5309z00_1832 = 
PROCEDUREP(BgL_nextzd2method4113zd2_1831); 
if(BgL_test5309z00_1832)
{ /* ./Cfa/cinfo3.scm 32 */
BgL_old3755z00_1824 = 
PROCEDURE_ENTRY(BgL_nextzd2method4113zd2_1831)(BgL_nextzd2method4113zd2_1831, 
(obj_t)(BgL_oz00_1820), BgL_sz00_1821, BEOA); }  else 
{ /* ./Cfa/cinfo3.scm 32 */
{ /* ./Cfa/cinfo3.scm 32 */
BgL_objectz00_bglt BgL_auxz00_4336;
BgL_auxz00_4336 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1820), BgL_sz00_1821); 
BgL_old3755z00_1824 = 
(obj_t)(BgL_auxz00_4336); } } } } 
{ /* ./Cfa/cinfo3.scm 32 */
int BgL_auxz00_4340;
BgL_auxz00_4340 = 
(int)(((long)0)); 
BgL_aux3756z00_1825 = 
STRUCT_REF(BgL_sz00_1821, BgL_auxz00_4340); } 
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefzf2cinfozf2_bglt BgL_new3757z00_1826;
BgL_new3757z00_1826 = 
((BgL_vrefzf2cinfozf2_bglt)(BgL_old3755z00_1824)); 
{ /* ./Cfa/cinfo3.scm 32 */
long BgL_arg5294z00_1827;
BgL_arg5294z00_1827 = 
BGl_classzd2numzd2zz__objectz00(BGl_vrefzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 32 */
BgL_objectz00_bglt BgL_objz00_2527;
BgL_objz00_2527 = 
(BgL_objectz00_bglt)(BgL_new3757z00_1826); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2527, BgL_arg5294z00_1827); } } 
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefzf2cinfozf2_bglt BgL_arg5298z00_1828;
{ /* ./Cfa/cinfo3.scm 32 */
obj_t BgL_arg5301z00_1829;obj_t BgL_arg5302z00_1830;
{ /* ./Cfa/cinfo3.scm 32 */
int BgL_auxz00_4347;
BgL_auxz00_4347 = 
(int)(((long)0)); 
BgL_arg5301z00_1829 = 
STRUCT_REF(BgL_aux3756z00_1825, BgL_auxz00_4347); } 
{ /* ./Cfa/cinfo3.scm 32 */
int BgL_auxz00_4350;
BgL_auxz00_4350 = 
(int)(((long)1)); 
BgL_arg5302z00_1830 = 
STRUCT_REF(BgL_aux3756z00_1825, BgL_auxz00_4350); } 
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefzf2cinfozf2_bglt BgL_res5564z00_2542;
{ /* ./Cfa/cinfo3.scm 32 */
BgL_approxz00_bglt BgL_approx3727z00_2533;bool_t BgL_tvectorzf33728zf3_2534;
BgL_approx3727z00_2533 = 
(BgL_approxz00_bglt)(BgL_arg5301z00_1829); 
BgL_tvectorzf33728zf3_2534 = 
CBOOL(BgL_arg5302z00_1830); 
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefzf2cinfozf2_bglt BgL_new3729z00_2535;
BgL_new3729z00_2535 = 
((BgL_vrefzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_vrefzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefzf2cinfozf2_bglt BgL_res5563z00_2541;
{ /* ./Cfa/cinfo3.scm 32 */
BgL_vrefzf2cinfozf2_bglt BgL_new3747z00_2536;
BgL_new3747z00_2536 = BgL_new3729z00_2535; 
{ /* ./Cfa/cinfo3.scm 32 */
BgL_approxz00_bglt BgL_approx3745z00_2539;bool_t BgL_tvectorzf33746zf3_2540;
BgL_approx3745z00_2539 = BgL_approx3727z00_2533; 
BgL_tvectorzf33746zf3_2540 = BgL_tvectorzf33728zf3_2534; 
((((BgL_vrefzf2cinfozf2_bglt)CREF(BgL_new3747z00_2536))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3745z00_2539), BUNSPEC); 
((((BgL_vrefzf2cinfozf2_bglt)CREF(BgL_new3747z00_2536))->BgL_tvectorzf3zf3) = ((bool_t)BgL_tvectorzf33746zf3_2540), BUNSPEC); 
BgL_res5563z00_2541 = BgL_new3747z00_2536; } } BgL_res5563z00_2541; } 
BgL_res5564z00_2542 = BgL_new3729z00_2535; } } 
BgL_arg5298z00_1828 = BgL_res5564z00_2542; } } 
{ /* ./Cfa/cinfo3.scm 32 */
obj_t BgL_auxz00_4360;BgL_objectz00_bglt BgL_auxz00_4358;
BgL_auxz00_4360 = 
(obj_t)(BgL_arg5298z00_1828); 
BgL_auxz00_4358 = 
(BgL_objectz00_bglt)(BgL_new3757z00_1826); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4358, BgL_auxz00_4360); } } 
{ /* ./Cfa/cinfo3.scm 32 */
obj_t BgL_objz00_2543;
BgL_objz00_2543 = 
(obj_t)(BgL_new3757z00_1826); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2543); BUNSPEC; } 
BgL_auxz00_4328 = BgL_new3757z00_1826; } } } 
return 
(obj_t)(BgL_auxz00_4328);} } } 
}



/* object->struct-vref/Cinfo4112 */
obj_t BGl_objectzd2ze3structzd2vrefzf2Cinfo4112z11zzcfa_info3z00(obj_t BgL_envz00_2990, obj_t BgL_obj3752z00_2991)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 32 */
{ 
BgL_vrefzf2cinfozf2_bglt BgL_obj3752z00_1808;
BgL_obj3752z00_1808 = 
(BgL_vrefzf2cinfozf2_bglt)(BgL_obj3752z00_2991); 
{ 

{ /* ./Cfa/cinfo3.scm 32 */
obj_t BgL_res3753z00_1811;
{ /* ./Cfa/cinfo3.scm 32 */
obj_t BgL_nextzd2method4111zd2_1818;
BgL_nextzd2method4111zd2_1818 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3752z00_1808), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_vrefzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 32 */
bool_t BgL_test5287z00_1819;
BgL_test5287z00_1819 = 
PROCEDUREP(BgL_nextzd2method4111zd2_1818); 
if(BgL_test5287z00_1819)
{ /* ./Cfa/cinfo3.scm 32 */
BgL_res3753z00_1811 = 
PROCEDURE_ENTRY(BgL_nextzd2method4111zd2_1818)(BgL_nextzd2method4111zd2_1818, 
(obj_t)(BgL_obj3752z00_1808), BEOA); }  else 
{ /* ./Cfa/cinfo3.scm 32 */
BgL_res3753z00_1811 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3752z00_1808)); } } } 
{ /* ./Cfa/cinfo3.scm 32 */
obj_t BgL_aux3754z00_1812;
{ /* ./Cfa/cinfo3.scm 32 */
obj_t BgL_keyz00_2504;int BgL_lenz00_2505;
BgL_keyz00_2504 = 
CNST_TABLE_REF(((long)5)); 
BgL_lenz00_2505 = 
(int)(((long)2)); 
BgL_aux3754z00_1812 = 
make_struct(BgL_keyz00_2504, BgL_lenz00_2505, BUNSPEC); } 
{ /* ./Cfa/cinfo3.scm 32 */
BgL_approxz00_bglt BgL_arg5271z00_1814;
{ 
obj_t BgL_auxz00_4379;
{ /* ./Cfa/cinfo3.scm 32 */
BgL_objectz00_bglt BgL_auxz00_4380;
BgL_auxz00_4380 = 
(BgL_objectz00_bglt)(BgL_obj3752z00_1808); 
BgL_auxz00_4379 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4380); } 
BgL_arg5271z00_1814 = 
(((BgL_vrefzf2cinfozf2_bglt)CREF(BgL_auxz00_4379))->BgL_approxz00); } 
{ /* ./Cfa/cinfo3.scm 32 */
int BgL_kz00_2509;obj_t BgL_oz00_2510;
BgL_kz00_2509 = 
(int)(((long)0)); 
BgL_oz00_2510 = 
(obj_t)(BgL_arg5271z00_1814); 
STRUCT_SET(BgL_aux3754z00_1812, BgL_kz00_2509, BgL_oz00_2510); } } 
{ /* ./Cfa/cinfo3.scm 32 */
bool_t BgL_arg5276z00_1816;
{ 
obj_t BgL_auxz00_4387;
{ /* ./Cfa/cinfo3.scm 32 */
BgL_objectz00_bglt BgL_auxz00_4388;
BgL_auxz00_4388 = 
(BgL_objectz00_bglt)(BgL_obj3752z00_1808); 
BgL_auxz00_4387 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4388); } 
BgL_arg5276z00_1816 = 
(((BgL_vrefzf2cinfozf2_bglt)CREF(BgL_auxz00_4387))->BgL_tvectorzf3zf3); } 
{ /* ./Cfa/cinfo3.scm 32 */
int BgL_kz00_2513;obj_t BgL_oz00_2514;
BgL_kz00_2513 = 
(int)(((long)1)); 
BgL_oz00_2514 = 
BBOOL(BgL_arg5276z00_1816); 
STRUCT_SET(BgL_aux3754z00_1812, BgL_kz00_2513, BgL_oz00_2514); } } 
{ /* ./Cfa/cinfo3.scm 32 */
int BgL_kz00_2516;
BgL_kz00_2516 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3753z00_1811, BgL_kz00_2516, BgL_aux3754z00_1812); } 
{ /* ./Cfa/cinfo3.scm 32 */
obj_t BgL_arg5281z00_1817;
BgL_arg5281z00_1817 = 
STRUCT_KEY(BgL_res3753z00_1811); 
STRUCT_KEY_SET(BgL_aux3754z00_1812, BgL_arg5281z00_1817); } 
{ /* ./Cfa/cinfo3.scm 32 */
obj_t BgL_kz00_2523;
BgL_kz00_2523 = 
CNST_TABLE_REF(((long)5)); 
STRUCT_KEY_SET(BgL_res3753z00_1811, BgL_kz00_2523); } 
return BgL_res3753z00_1811;} } } } } 
}



/* struct+object->object-vset!/Cinfo4110 */
obj_t BGl_structzb2objectzd2ze3objectzd2vsetz12zf2Cinfo4110zb1zzcfa_info3z00(obj_t BgL_envz00_2992, obj_t BgL_oz00_2993, obj_t BgL_sz00_2994)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 35 */
{ 
BgL_vsetz12zf2cinfoze0_bglt BgL_oz00_1795;obj_t BgL_sz00_1796;
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12zf2cinfoze0_bglt BgL_auxz00_4402;
BgL_oz00_1795 = 
(BgL_vsetz12zf2cinfoze0_bglt)(BgL_oz00_2993); 
BgL_sz00_1796 = BgL_sz00_2994; 
{ 

{ /* ./Cfa/cinfo3.scm 35 */
obj_t BgL_old3814z00_1799;obj_t BgL_aux3815z00_1800;
{ /* ./Cfa/cinfo3.scm 35 */
obj_t BgL_nextzd2method4109zd2_1806;
BgL_nextzd2method4109zd2_1806 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1795), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_vsetz12zf2Cinfoze0zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 35 */
bool_t BgL_test5263z00_1807;
BgL_test5263z00_1807 = 
PROCEDUREP(BgL_nextzd2method4109zd2_1806); 
if(BgL_test5263z00_1807)
{ /* ./Cfa/cinfo3.scm 35 */
BgL_old3814z00_1799 = 
PROCEDURE_ENTRY(BgL_nextzd2method4109zd2_1806)(BgL_nextzd2method4109zd2_1806, 
(obj_t)(BgL_oz00_1795), BgL_sz00_1796, BEOA); }  else 
{ /* ./Cfa/cinfo3.scm 35 */
{ /* ./Cfa/cinfo3.scm 35 */
BgL_objectz00_bglt BgL_auxz00_4410;
BgL_auxz00_4410 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1795), BgL_sz00_1796); 
BgL_old3814z00_1799 = 
(obj_t)(BgL_auxz00_4410); } } } } 
{ /* ./Cfa/cinfo3.scm 35 */
int BgL_auxz00_4414;
BgL_auxz00_4414 = 
(int)(((long)0)); 
BgL_aux3815z00_1800 = 
STRUCT_REF(BgL_sz00_1796, BgL_auxz00_4414); } 
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12zf2cinfoze0_bglt BgL_new3816z00_1801;
BgL_new3816z00_1801 = 
((BgL_vsetz12zf2cinfoze0_bglt)(BgL_old3814z00_1799)); 
{ /* ./Cfa/cinfo3.scm 35 */
long BgL_arg5248z00_1802;
BgL_arg5248z00_1802 = 
BGl_classzd2numzd2zz__objectz00(BGl_vsetz12zf2Cinfoze0zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 35 */
BgL_objectz00_bglt BgL_objz00_2486;
BgL_objz00_2486 = 
(BgL_objectz00_bglt)(BgL_new3816z00_1801); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2486, BgL_arg5248z00_1802); } } 
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12zf2cinfoze0_bglt BgL_arg5252z00_1803;
{ /* ./Cfa/cinfo3.scm 35 */
obj_t BgL_arg5255z00_1804;obj_t BgL_arg5256z00_1805;
{ /* ./Cfa/cinfo3.scm 35 */
int BgL_auxz00_4421;
BgL_auxz00_4421 = 
(int)(((long)0)); 
BgL_arg5255z00_1804 = 
STRUCT_REF(BgL_aux3815z00_1800, BgL_auxz00_4421); } 
{ /* ./Cfa/cinfo3.scm 35 */
int BgL_auxz00_4424;
BgL_auxz00_4424 = 
(int)(((long)1)); 
BgL_arg5256z00_1805 = 
STRUCT_REF(BgL_aux3815z00_1800, BgL_auxz00_4424); } 
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12zf2cinfoze0_bglt BgL_res5561z00_2501;
{ /* ./Cfa/cinfo3.scm 35 */
BgL_approxz00_bglt BgL_approx3785z00_2492;bool_t BgL_tvectorzf33786zf3_2493;
BgL_approx3785z00_2492 = 
(BgL_approxz00_bglt)(BgL_arg5255z00_1804); 
BgL_tvectorzf33786zf3_2493 = 
CBOOL(BgL_arg5256z00_1805); 
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12zf2cinfoze0_bglt BgL_new3787z00_2494;
BgL_new3787z00_2494 = 
((BgL_vsetz12zf2cinfoze0_bglt)BREF( GC_MALLOC (sizeof(struct BgL_vsetz12zf2cinfoze0_bgl)))); 
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12zf2cinfoze0_bglt BgL_res5560z00_2500;
{ /* ./Cfa/cinfo3.scm 35 */
BgL_vsetz12zf2cinfoze0_bglt BgL_new3805z00_2495;
BgL_new3805z00_2495 = BgL_new3787z00_2494; 
{ /* ./Cfa/cinfo3.scm 35 */
BgL_approxz00_bglt BgL_approx3803z00_2498;bool_t BgL_tvectorzf33804zf3_2499;
BgL_approx3803z00_2498 = BgL_approx3785z00_2492; 
BgL_tvectorzf33804zf3_2499 = BgL_tvectorzf33786zf3_2493; 
((((BgL_vsetz12zf2cinfoze0_bglt)CREF(BgL_new3805z00_2495))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3803z00_2498), BUNSPEC); 
((((BgL_vsetz12zf2cinfoze0_bglt)CREF(BgL_new3805z00_2495))->BgL_tvectorzf3zf3) = ((bool_t)BgL_tvectorzf33804zf3_2499), BUNSPEC); 
BgL_res5560z00_2500 = BgL_new3805z00_2495; } } BgL_res5560z00_2500; } 
BgL_res5561z00_2501 = BgL_new3787z00_2494; } } 
BgL_arg5252z00_1803 = BgL_res5561z00_2501; } } 
{ /* ./Cfa/cinfo3.scm 35 */
obj_t BgL_auxz00_4434;BgL_objectz00_bglt BgL_auxz00_4432;
BgL_auxz00_4434 = 
(obj_t)(BgL_arg5252z00_1803); 
BgL_auxz00_4432 = 
(BgL_objectz00_bglt)(BgL_new3816z00_1801); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4432, BgL_auxz00_4434); } } 
{ /* ./Cfa/cinfo3.scm 35 */
obj_t BgL_objz00_2502;
BgL_objz00_2502 = 
(obj_t)(BgL_new3816z00_1801); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2502); BUNSPEC; } 
BgL_auxz00_4402 = BgL_new3816z00_1801; } } } 
return 
(obj_t)(BgL_auxz00_4402);} } } 
}



/* object->struct-vset!/Cinfo4108 */
obj_t BGl_objectzd2ze3structzd2vsetz12zf2Cinfo4108z03zzcfa_info3z00(obj_t BgL_envz00_2995, obj_t BgL_obj3811z00_2996)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 35 */
{ 
BgL_vsetz12zf2cinfoze0_bglt BgL_obj3811z00_1783;
BgL_obj3811z00_1783 = 
(BgL_vsetz12zf2cinfoze0_bglt)(BgL_obj3811z00_2996); 
{ 

{ /* ./Cfa/cinfo3.scm 35 */
obj_t BgL_res3812z00_1786;
{ /* ./Cfa/cinfo3.scm 35 */
obj_t BgL_nextzd2method4107zd2_1793;
BgL_nextzd2method4107zd2_1793 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3811z00_1783), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_vsetz12zf2Cinfoze0zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 35 */
bool_t BgL_test5241z00_1794;
BgL_test5241z00_1794 = 
PROCEDUREP(BgL_nextzd2method4107zd2_1793); 
if(BgL_test5241z00_1794)
{ /* ./Cfa/cinfo3.scm 35 */
BgL_res3812z00_1786 = 
PROCEDURE_ENTRY(BgL_nextzd2method4107zd2_1793)(BgL_nextzd2method4107zd2_1793, 
(obj_t)(BgL_obj3811z00_1783), BEOA); }  else 
{ /* ./Cfa/cinfo3.scm 35 */
BgL_res3812z00_1786 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3811z00_1783)); } } } 
{ /* ./Cfa/cinfo3.scm 35 */
obj_t BgL_aux3813z00_1787;
{ /* ./Cfa/cinfo3.scm 35 */
obj_t BgL_keyz00_2463;int BgL_lenz00_2464;
BgL_keyz00_2463 = 
CNST_TABLE_REF(((long)6)); 
BgL_lenz00_2464 = 
(int)(((long)2)); 
BgL_aux3813z00_1787 = 
make_struct(BgL_keyz00_2463, BgL_lenz00_2464, BUNSPEC); } 
{ /* ./Cfa/cinfo3.scm 35 */
BgL_approxz00_bglt BgL_arg5225z00_1789;
{ 
obj_t BgL_auxz00_4453;
{ /* ./Cfa/cinfo3.scm 35 */
BgL_objectz00_bglt BgL_auxz00_4454;
BgL_auxz00_4454 = 
(BgL_objectz00_bglt)(BgL_obj3811z00_1783); 
BgL_auxz00_4453 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4454); } 
BgL_arg5225z00_1789 = 
(((BgL_vsetz12zf2cinfoze0_bglt)CREF(BgL_auxz00_4453))->BgL_approxz00); } 
{ /* ./Cfa/cinfo3.scm 35 */
int BgL_kz00_2468;obj_t BgL_oz00_2469;
BgL_kz00_2468 = 
(int)(((long)0)); 
BgL_oz00_2469 = 
(obj_t)(BgL_arg5225z00_1789); 
STRUCT_SET(BgL_aux3813z00_1787, BgL_kz00_2468, BgL_oz00_2469); } } 
{ /* ./Cfa/cinfo3.scm 35 */
bool_t BgL_arg5230z00_1791;
{ 
obj_t BgL_auxz00_4461;
{ /* ./Cfa/cinfo3.scm 35 */
BgL_objectz00_bglt BgL_auxz00_4462;
BgL_auxz00_4462 = 
(BgL_objectz00_bglt)(BgL_obj3811z00_1783); 
BgL_auxz00_4461 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4462); } 
BgL_arg5230z00_1791 = 
(((BgL_vsetz12zf2cinfoze0_bglt)CREF(BgL_auxz00_4461))->BgL_tvectorzf3zf3); } 
{ /* ./Cfa/cinfo3.scm 35 */
int BgL_kz00_2472;obj_t BgL_oz00_2473;
BgL_kz00_2472 = 
(int)(((long)1)); 
BgL_oz00_2473 = 
BBOOL(BgL_arg5230z00_1791); 
STRUCT_SET(BgL_aux3813z00_1787, BgL_kz00_2472, BgL_oz00_2473); } } 
{ /* ./Cfa/cinfo3.scm 35 */
int BgL_kz00_2475;
BgL_kz00_2475 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3812z00_1786, BgL_kz00_2475, BgL_aux3813z00_1787); } 
{ /* ./Cfa/cinfo3.scm 35 */
obj_t BgL_arg5235z00_1792;
BgL_arg5235z00_1792 = 
STRUCT_KEY(BgL_res3812z00_1786); 
STRUCT_KEY_SET(BgL_aux3813z00_1787, BgL_arg5235z00_1792); } 
{ /* ./Cfa/cinfo3.scm 35 */
obj_t BgL_kz00_2482;
BgL_kz00_2482 = 
CNST_TABLE_REF(((long)6)); 
STRUCT_KEY_SET(BgL_res3812z00_1786, BgL_kz00_2482); } 
return BgL_res3812z00_1786;} } } } } 
}



/* struct+object->object-vlength/Cinfo4106 */
obj_t BGl_structzb2objectzd2ze3objectzd2vlengthzf2Cinfo4106za3zzcfa_info3z00(obj_t BgL_envz00_2997, obj_t BgL_oz00_2998, obj_t BgL_sz00_2999)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 38 */
{ 
BgL_vlengthzf2cinfozf2_bglt BgL_oz00_1770;obj_t BgL_sz00_1771;
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthzf2cinfozf2_bglt BgL_auxz00_4476;
BgL_oz00_1770 = 
(BgL_vlengthzf2cinfozf2_bglt)(BgL_oz00_2998); 
BgL_sz00_1771 = BgL_sz00_2999; 
{ 

{ /* ./Cfa/cinfo3.scm 38 */
obj_t BgL_old3870z00_1774;obj_t BgL_aux3871z00_1775;
{ /* ./Cfa/cinfo3.scm 38 */
obj_t BgL_nextzd2method4105zd2_1781;
BgL_nextzd2method4105zd2_1781 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1770), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_vlengthzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 38 */
bool_t BgL_test5217z00_1782;
BgL_test5217z00_1782 = 
PROCEDUREP(BgL_nextzd2method4105zd2_1781); 
if(BgL_test5217z00_1782)
{ /* ./Cfa/cinfo3.scm 38 */
BgL_old3870z00_1774 = 
PROCEDURE_ENTRY(BgL_nextzd2method4105zd2_1781)(BgL_nextzd2method4105zd2_1781, 
(obj_t)(BgL_oz00_1770), BgL_sz00_1771, BEOA); }  else 
{ /* ./Cfa/cinfo3.scm 38 */
{ /* ./Cfa/cinfo3.scm 38 */
BgL_objectz00_bglt BgL_auxz00_4484;
BgL_auxz00_4484 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1770), BgL_sz00_1771); 
BgL_old3870z00_1774 = 
(obj_t)(BgL_auxz00_4484); } } } } 
{ /* ./Cfa/cinfo3.scm 38 */
int BgL_auxz00_4488;
BgL_auxz00_4488 = 
(int)(((long)0)); 
BgL_aux3871z00_1775 = 
STRUCT_REF(BgL_sz00_1771, BgL_auxz00_4488); } 
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthzf2cinfozf2_bglt BgL_new3872z00_1776;
BgL_new3872z00_1776 = 
((BgL_vlengthzf2cinfozf2_bglt)(BgL_old3870z00_1774)); 
{ /* ./Cfa/cinfo3.scm 38 */
long BgL_arg5202z00_1777;
BgL_arg5202z00_1777 = 
BGl_classzd2numzd2zz__objectz00(BGl_vlengthzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 38 */
BgL_objectz00_bglt BgL_objz00_2445;
BgL_objz00_2445 = 
(BgL_objectz00_bglt)(BgL_new3872z00_1776); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2445, BgL_arg5202z00_1777); } } 
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthzf2cinfozf2_bglt BgL_arg5206z00_1778;
{ /* ./Cfa/cinfo3.scm 38 */
obj_t BgL_arg5209z00_1779;obj_t BgL_arg5210z00_1780;
{ /* ./Cfa/cinfo3.scm 38 */
int BgL_auxz00_4495;
BgL_auxz00_4495 = 
(int)(((long)0)); 
BgL_arg5209z00_1779 = 
STRUCT_REF(BgL_aux3871z00_1775, BgL_auxz00_4495); } 
{ /* ./Cfa/cinfo3.scm 38 */
int BgL_auxz00_4498;
BgL_auxz00_4498 = 
(int)(((long)1)); 
BgL_arg5210z00_1780 = 
STRUCT_REF(BgL_aux3871z00_1775, BgL_auxz00_4498); } 
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthzf2cinfozf2_bglt BgL_res5558z00_2460;
{ /* ./Cfa/cinfo3.scm 38 */
BgL_approxz00_bglt BgL_approx3844z00_2451;bool_t BgL_tvectorzf33845zf3_2452;
BgL_approx3844z00_2451 = 
(BgL_approxz00_bglt)(BgL_arg5209z00_1779); 
BgL_tvectorzf33845zf3_2452 = 
CBOOL(BgL_arg5210z00_1780); 
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthzf2cinfozf2_bglt BgL_new3846z00_2453;
BgL_new3846z00_2453 = 
((BgL_vlengthzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_vlengthzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthzf2cinfozf2_bglt BgL_res5557z00_2459;
{ /* ./Cfa/cinfo3.scm 38 */
BgL_vlengthzf2cinfozf2_bglt BgL_new3862z00_2454;
BgL_new3862z00_2454 = BgL_new3846z00_2453; 
{ /* ./Cfa/cinfo3.scm 38 */
BgL_approxz00_bglt BgL_approx3860z00_2457;bool_t BgL_tvectorzf33861zf3_2458;
BgL_approx3860z00_2457 = BgL_approx3844z00_2451; 
BgL_tvectorzf33861zf3_2458 = BgL_tvectorzf33845zf3_2452; 
((((BgL_vlengthzf2cinfozf2_bglt)CREF(BgL_new3862z00_2454))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3860z00_2457), BUNSPEC); 
((((BgL_vlengthzf2cinfozf2_bglt)CREF(BgL_new3862z00_2454))->BgL_tvectorzf3zf3) = ((bool_t)BgL_tvectorzf33861zf3_2458), BUNSPEC); 
BgL_res5557z00_2459 = BgL_new3862z00_2454; } } BgL_res5557z00_2459; } 
BgL_res5558z00_2460 = BgL_new3846z00_2453; } } 
BgL_arg5206z00_1778 = BgL_res5558z00_2460; } } 
{ /* ./Cfa/cinfo3.scm 38 */
obj_t BgL_auxz00_4508;BgL_objectz00_bglt BgL_auxz00_4506;
BgL_auxz00_4508 = 
(obj_t)(BgL_arg5206z00_1778); 
BgL_auxz00_4506 = 
(BgL_objectz00_bglt)(BgL_new3872z00_1776); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4506, BgL_auxz00_4508); } } 
{ /* ./Cfa/cinfo3.scm 38 */
obj_t BgL_objz00_2461;
BgL_objz00_2461 = 
(obj_t)(BgL_new3872z00_1776); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2461); BUNSPEC; } 
BgL_auxz00_4476 = BgL_new3872z00_1776; } } } 
return 
(obj_t)(BgL_auxz00_4476);} } } 
}



/* object->struct-vlength/Cinfo4104 */
obj_t BGl_objectzd2ze3structzd2vlengthzf2Cinfo4104z11zzcfa_info3z00(obj_t BgL_envz00_3000, obj_t BgL_obj3867z00_3001)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 38 */
{ 
BgL_vlengthzf2cinfozf2_bglt BgL_obj3867z00_1758;
BgL_obj3867z00_1758 = 
(BgL_vlengthzf2cinfozf2_bglt)(BgL_obj3867z00_3001); 
{ 

{ /* ./Cfa/cinfo3.scm 38 */
obj_t BgL_res3868z00_1761;
{ /* ./Cfa/cinfo3.scm 38 */
obj_t BgL_nextzd2method4103zd2_1768;
BgL_nextzd2method4103zd2_1768 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3867z00_1758), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_vlengthzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 38 */
bool_t BgL_test5195z00_1769;
BgL_test5195z00_1769 = 
PROCEDUREP(BgL_nextzd2method4103zd2_1768); 
if(BgL_test5195z00_1769)
{ /* ./Cfa/cinfo3.scm 38 */
BgL_res3868z00_1761 = 
PROCEDURE_ENTRY(BgL_nextzd2method4103zd2_1768)(BgL_nextzd2method4103zd2_1768, 
(obj_t)(BgL_obj3867z00_1758), BEOA); }  else 
{ /* ./Cfa/cinfo3.scm 38 */
BgL_res3868z00_1761 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3867z00_1758)); } } } 
{ /* ./Cfa/cinfo3.scm 38 */
obj_t BgL_aux3869z00_1762;
{ /* ./Cfa/cinfo3.scm 38 */
obj_t BgL_keyz00_2422;int BgL_lenz00_2423;
BgL_keyz00_2422 = 
CNST_TABLE_REF(((long)7)); 
BgL_lenz00_2423 = 
(int)(((long)2)); 
BgL_aux3869z00_1762 = 
make_struct(BgL_keyz00_2422, BgL_lenz00_2423, BUNSPEC); } 
{ /* ./Cfa/cinfo3.scm 38 */
BgL_approxz00_bglt BgL_arg5179z00_1764;
{ 
obj_t BgL_auxz00_4527;
{ /* ./Cfa/cinfo3.scm 38 */
BgL_objectz00_bglt BgL_auxz00_4528;
BgL_auxz00_4528 = 
(BgL_objectz00_bglt)(BgL_obj3867z00_1758); 
BgL_auxz00_4527 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4528); } 
BgL_arg5179z00_1764 = 
(((BgL_vlengthzf2cinfozf2_bglt)CREF(BgL_auxz00_4527))->BgL_approxz00); } 
{ /* ./Cfa/cinfo3.scm 38 */
int BgL_kz00_2427;obj_t BgL_oz00_2428;
BgL_kz00_2427 = 
(int)(((long)0)); 
BgL_oz00_2428 = 
(obj_t)(BgL_arg5179z00_1764); 
STRUCT_SET(BgL_aux3869z00_1762, BgL_kz00_2427, BgL_oz00_2428); } } 
{ /* ./Cfa/cinfo3.scm 38 */
bool_t BgL_arg5184z00_1766;
{ 
obj_t BgL_auxz00_4535;
{ /* ./Cfa/cinfo3.scm 38 */
BgL_objectz00_bglt BgL_auxz00_4536;
BgL_auxz00_4536 = 
(BgL_objectz00_bglt)(BgL_obj3867z00_1758); 
BgL_auxz00_4535 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4536); } 
BgL_arg5184z00_1766 = 
(((BgL_vlengthzf2cinfozf2_bglt)CREF(BgL_auxz00_4535))->BgL_tvectorzf3zf3); } 
{ /* ./Cfa/cinfo3.scm 38 */
int BgL_kz00_2431;obj_t BgL_oz00_2432;
BgL_kz00_2431 = 
(int)(((long)1)); 
BgL_oz00_2432 = 
BBOOL(BgL_arg5184z00_1766); 
STRUCT_SET(BgL_aux3869z00_1762, BgL_kz00_2431, BgL_oz00_2432); } } 
{ /* ./Cfa/cinfo3.scm 38 */
int BgL_kz00_2434;
BgL_kz00_2434 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3868z00_1761, BgL_kz00_2434, BgL_aux3869z00_1762); } 
{ /* ./Cfa/cinfo3.scm 38 */
obj_t BgL_arg5189z00_1767;
BgL_arg5189z00_1767 = 
STRUCT_KEY(BgL_res3868z00_1761); 
STRUCT_KEY_SET(BgL_aux3869z00_1762, BgL_arg5189z00_1767); } 
{ /* ./Cfa/cinfo3.scm 38 */
obj_t BgL_kz00_2441;
BgL_kz00_2441 = 
CNST_TABLE_REF(((long)7)); 
STRUCT_KEY_SET(BgL_res3868z00_1761, BgL_kz00_2441); } 
return BgL_res3868z00_1761;} } } } } 
}



/* struct+object->object-pre-valloc/Cinfo4101 */
obj_t BGl_structzb2objectzd2ze3objectzd2prezd2valloczf2Cinfo4101z71zzcfa_info3z00(obj_t BgL_envz00_3002, obj_t BgL_oz00_3003, obj_t BgL_sz00_3004)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 43 */
{ 
BgL_prezd2valloczf2cinfoz20_bglt BgL_oz00_1746;obj_t BgL_sz00_1747;
{ /* ./Cfa/cinfo3.scm 43 */
BgL_prezd2valloczf2cinfoz20_bglt BgL_auxz00_4550;
BgL_oz00_1746 = 
(BgL_prezd2valloczf2cinfoz20_bglt)(BgL_oz00_3003); 
BgL_sz00_1747 = BgL_sz00_3004; 
{ 

{ /* ./Cfa/cinfo3.scm 43 */
obj_t BgL_old3920z00_1750;obj_t BgL_aux3921z00_1751;
{ /* ./Cfa/cinfo3.scm 43 */
obj_t BgL_nextzd2method4100zd2_1756;
BgL_nextzd2method4100zd2_1756 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1746), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_prezd2valloczf2Cinfoz20zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 43 */
bool_t BgL_test5171z00_1757;
BgL_test5171z00_1757 = 
PROCEDUREP(BgL_nextzd2method4100zd2_1756); 
if(BgL_test5171z00_1757)
{ /* ./Cfa/cinfo3.scm 43 */
BgL_old3920z00_1750 = 
PROCEDURE_ENTRY(BgL_nextzd2method4100zd2_1756)(BgL_nextzd2method4100zd2_1756, 
(obj_t)(BgL_oz00_1746), BgL_sz00_1747, BEOA); }  else 
{ /* ./Cfa/cinfo3.scm 43 */
{ /* ./Cfa/cinfo3.scm 43 */
BgL_objectz00_bglt BgL_auxz00_4558;
BgL_auxz00_4558 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1746), BgL_sz00_1747); 
BgL_old3920z00_1750 = 
(obj_t)(BgL_auxz00_4558); } } } } 
{ /* ./Cfa/cinfo3.scm 43 */
int BgL_auxz00_4562;
BgL_auxz00_4562 = 
(int)(((long)0)); 
BgL_aux3921z00_1751 = 
STRUCT_REF(BgL_sz00_1747, BgL_auxz00_4562); } 
{ /* ./Cfa/cinfo3.scm 43 */
BgL_prezd2valloczf2cinfoz20_bglt BgL_new3922z00_1752;
BgL_new3922z00_1752 = 
((BgL_prezd2valloczf2cinfoz20_bglt)(BgL_old3920z00_1750)); 
{ /* ./Cfa/cinfo3.scm 43 */
long BgL_arg5158z00_1753;
BgL_arg5158z00_1753 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2valloczf2Cinfoz20zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 43 */
BgL_objectz00_bglt BgL_objz00_2409;
BgL_objz00_2409 = 
(BgL_objectz00_bglt)(BgL_new3922z00_1752); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2409, BgL_arg5158z00_1753); } } 
{ /* ./Cfa/cinfo3.scm 43 */
BgL_prezd2valloczf2cinfoz20_bglt BgL_arg5162z00_1754;
{ /* ./Cfa/cinfo3.scm 43 */
obj_t BgL_arg5165z00_1755;
{ /* ./Cfa/cinfo3.scm 43 */
int BgL_auxz00_4569;
BgL_auxz00_4569 = 
(int)(((long)0)); 
BgL_arg5165z00_1755 = 
STRUCT_REF(BgL_aux3921z00_1751, BgL_auxz00_4569); } 
{ /* ./Cfa/cinfo3.scm 43 */
BgL_prezd2valloczf2cinfoz20_bglt BgL_res5555z00_2419;
{ /* ./Cfa/cinfo3.scm 43 */
BgL_variablez00_bglt BgL_owner3897z00_2413;
BgL_owner3897z00_2413 = 
(BgL_variablez00_bglt)(BgL_arg5165z00_1755); 
{ /* ./Cfa/cinfo3.scm 43 */
BgL_prezd2valloczf2cinfoz20_bglt BgL_new3898z00_2414;
BgL_new3898z00_2414 = 
((BgL_prezd2valloczf2cinfoz20_bglt)BREF( GC_MALLOC (sizeof(struct BgL_prezd2valloczf2cinfoz20_bgl)))); 
{ /* ./Cfa/cinfo3.scm 43 */
BgL_prezd2valloczf2cinfoz20_bglt BgL_res5554z00_2418;
{ /* ./Cfa/cinfo3.scm 43 */
BgL_prezd2valloczf2cinfoz20_bglt BgL_new3913z00_2415;
BgL_new3913z00_2415 = BgL_new3898z00_2414; 
{ /* ./Cfa/cinfo3.scm 43 */
BgL_variablez00_bglt BgL_owner3912z00_2417;
BgL_owner3912z00_2417 = BgL_owner3897z00_2413; 
((((BgL_prezd2valloczf2cinfoz20_bglt)CREF(BgL_new3913z00_2415))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3912z00_2417), BUNSPEC); 
BgL_res5554z00_2418 = BgL_new3913z00_2415; } } BgL_res5554z00_2418; } 
BgL_res5555z00_2419 = BgL_new3898z00_2414; } } 
BgL_arg5162z00_1754 = BgL_res5555z00_2419; } } 
{ /* ./Cfa/cinfo3.scm 43 */
obj_t BgL_auxz00_4577;BgL_objectz00_bglt BgL_auxz00_4575;
BgL_auxz00_4577 = 
(obj_t)(BgL_arg5162z00_1754); 
BgL_auxz00_4575 = 
(BgL_objectz00_bglt)(BgL_new3922z00_1752); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4575, BgL_auxz00_4577); } } 
{ /* ./Cfa/cinfo3.scm 43 */
obj_t BgL_objz00_2420;
BgL_objz00_2420 = 
(obj_t)(BgL_new3922z00_1752); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2420); BUNSPEC; } 
BgL_auxz00_4550 = BgL_new3922z00_1752; } } } 
return 
(obj_t)(BgL_auxz00_4550);} } } 
}



/* object->struct-pre-valloc/Cinfo4099 */
obj_t BGl_objectzd2ze3structzd2prezd2valloczf2Cinfo4099zc3zzcfa_info3z00(obj_t BgL_envz00_3005, obj_t BgL_obj3917z00_3006)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 43 */
{ 
BgL_prezd2valloczf2cinfoz20_bglt BgL_obj3917z00_1736;
BgL_obj3917z00_1736 = 
(BgL_prezd2valloczf2cinfoz20_bglt)(BgL_obj3917z00_3006); 
{ 

{ /* ./Cfa/cinfo3.scm 43 */
obj_t BgL_res3918z00_1739;
{ /* ./Cfa/cinfo3.scm 43 */
obj_t BgL_nextzd2method4098zd2_1744;
BgL_nextzd2method4098zd2_1744 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3917z00_1736), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_prezd2valloczf2Cinfoz20zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 43 */
bool_t BgL_test5151z00_1745;
BgL_test5151z00_1745 = 
PROCEDUREP(BgL_nextzd2method4098zd2_1744); 
if(BgL_test5151z00_1745)
{ /* ./Cfa/cinfo3.scm 43 */
BgL_res3918z00_1739 = 
PROCEDURE_ENTRY(BgL_nextzd2method4098zd2_1744)(BgL_nextzd2method4098zd2_1744, 
(obj_t)(BgL_obj3917z00_1736), BEOA); }  else 
{ /* ./Cfa/cinfo3.scm 43 */
BgL_res3918z00_1739 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3917z00_1736)); } } } 
{ /* ./Cfa/cinfo3.scm 43 */
obj_t BgL_aux3919z00_1740;
{ /* ./Cfa/cinfo3.scm 43 */
obj_t BgL_keyz00_2390;int BgL_lenz00_2391;
BgL_keyz00_2390 = 
CNST_TABLE_REF(((long)8)); 
BgL_lenz00_2391 = 
(int)(((long)1)); 
BgL_aux3919z00_1740 = 
make_struct(BgL_keyz00_2390, BgL_lenz00_2391, BUNSPEC); } 
{ /* ./Cfa/cinfo3.scm 43 */
BgL_variablez00_bglt BgL_arg5140z00_1742;
{ 
obj_t BgL_auxz00_4596;
{ /* ./Cfa/cinfo3.scm 43 */
BgL_objectz00_bglt BgL_auxz00_4597;
BgL_auxz00_4597 = 
(BgL_objectz00_bglt)(BgL_obj3917z00_1736); 
BgL_auxz00_4596 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4597); } 
BgL_arg5140z00_1742 = 
(((BgL_prezd2valloczf2cinfoz20_bglt)CREF(BgL_auxz00_4596))->BgL_ownerz00); } 
{ /* ./Cfa/cinfo3.scm 43 */
int BgL_kz00_2395;obj_t BgL_oz00_2396;
BgL_kz00_2395 = 
(int)(((long)0)); 
BgL_oz00_2396 = 
(obj_t)(BgL_arg5140z00_1742); 
STRUCT_SET(BgL_aux3919z00_1740, BgL_kz00_2395, BgL_oz00_2396); } } 
{ /* ./Cfa/cinfo3.scm 43 */
int BgL_kz00_2398;
BgL_kz00_2398 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3918z00_1739, BgL_kz00_2398, BgL_aux3919z00_1740); } 
{ /* ./Cfa/cinfo3.scm 43 */
obj_t BgL_arg5145z00_1743;
BgL_arg5145z00_1743 = 
STRUCT_KEY(BgL_res3918z00_1739); 
STRUCT_KEY_SET(BgL_aux3919z00_1740, BgL_arg5145z00_1743); } 
{ /* ./Cfa/cinfo3.scm 43 */
obj_t BgL_kz00_2405;
BgL_kz00_2405 = 
CNST_TABLE_REF(((long)8)); 
STRUCT_KEY_SET(BgL_res3918z00_1739, BgL_kz00_2405); } 
return BgL_res3918z00_1739;} } } } } 
}



/* struct+object->object-valloc/Cinfo4097 */
obj_t BGl_structzb2objectzd2ze3objectzd2valloczf2Cinfo4097za3zzcfa_info3z00(obj_t BgL_envz00_3007, obj_t BgL_oz00_3008, obj_t BgL_sz00_3009)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 45 */
{ 
BgL_valloczf2cinfozf2_bglt BgL_oz00_1724;obj_t BgL_sz00_1725;
{ /* ./Cfa/cinfo3.scm 45 */
BgL_valloczf2cinfozf2_bglt BgL_auxz00_4611;
BgL_oz00_1724 = 
(BgL_valloczf2cinfozf2_bglt)(BgL_oz00_3008); 
BgL_sz00_1725 = BgL_sz00_3009; 
{ 

{ /* ./Cfa/cinfo3.scm 45 */
obj_t BgL_old3967z00_1728;obj_t BgL_aux3968z00_1729;
{ /* ./Cfa/cinfo3.scm 45 */
obj_t BgL_nextzd2method4096zd2_1734;
BgL_nextzd2method4096zd2_1734 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1724), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_valloczf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 45 */
bool_t BgL_test5132z00_1735;
BgL_test5132z00_1735 = 
PROCEDUREP(BgL_nextzd2method4096zd2_1734); 
if(BgL_test5132z00_1735)
{ /* ./Cfa/cinfo3.scm 45 */
BgL_old3967z00_1728 = 
PROCEDURE_ENTRY(BgL_nextzd2method4096zd2_1734)(BgL_nextzd2method4096zd2_1734, 
(obj_t)(BgL_oz00_1724), BgL_sz00_1725, BEOA); }  else 
{ /* ./Cfa/cinfo3.scm 45 */
{ /* ./Cfa/cinfo3.scm 45 */
BgL_objectz00_bglt BgL_auxz00_4619;
BgL_auxz00_4619 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1724), BgL_sz00_1725); 
BgL_old3967z00_1728 = 
(obj_t)(BgL_auxz00_4619); } } } } 
{ /* ./Cfa/cinfo3.scm 45 */
int BgL_auxz00_4623;
BgL_auxz00_4623 = 
(int)(((long)0)); 
BgL_aux3968z00_1729 = 
STRUCT_REF(BgL_sz00_1725, BgL_auxz00_4623); } 
{ /* ./Cfa/cinfo3.scm 45 */
BgL_valloczf2cinfozf2_bglt BgL_new3969z00_1730;
BgL_new3969z00_1730 = 
((BgL_valloczf2cinfozf2_bglt)(BgL_old3967z00_1728)); 
{ /* ./Cfa/cinfo3.scm 45 */
long BgL_arg5119z00_1731;
BgL_arg5119z00_1731 = 
BGl_classzd2numzd2zz__objectz00(BGl_valloczf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 45 */
BgL_objectz00_bglt BgL_objz00_2377;
BgL_objz00_2377 = 
(BgL_objectz00_bglt)(BgL_new3969z00_1730); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2377, BgL_arg5119z00_1731); } } 
{ /* ./Cfa/cinfo3.scm 45 */
BgL_valloczf2cinfozf2_bglt BgL_arg5123z00_1732;
{ /* ./Cfa/cinfo3.scm 45 */
obj_t BgL_arg5126z00_1733;
{ /* ./Cfa/cinfo3.scm 45 */
int BgL_auxz00_4630;
BgL_auxz00_4630 = 
(int)(((long)0)); 
BgL_arg5126z00_1733 = 
STRUCT_REF(BgL_aux3968z00_1729, BgL_auxz00_4630); } 
{ /* ./Cfa/cinfo3.scm 45 */
BgL_valloczf2cinfozf2_bglt BgL_res5552z00_2387;
{ /* ./Cfa/cinfo3.scm 45 */
BgL_approxz00_bglt BgL_approx3944z00_2381;
BgL_approx3944z00_2381 = 
(BgL_approxz00_bglt)(BgL_arg5126z00_1733); 
{ /* ./Cfa/cinfo3.scm 45 */
BgL_valloczf2cinfozf2_bglt BgL_new3945z00_2382;
BgL_new3945z00_2382 = 
((BgL_valloczf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_valloczf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo3.scm 45 */
BgL_valloczf2cinfozf2_bglt BgL_res5551z00_2386;
{ /* ./Cfa/cinfo3.scm 45 */
BgL_valloczf2cinfozf2_bglt BgL_new3960z00_2383;
BgL_new3960z00_2383 = BgL_new3945z00_2382; 
{ /* ./Cfa/cinfo3.scm 45 */
BgL_approxz00_bglt BgL_approx3959z00_2385;
BgL_approx3959z00_2385 = BgL_approx3944z00_2381; 
((((BgL_valloczf2cinfozf2_bglt)CREF(BgL_new3960z00_2383))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3959z00_2385), BUNSPEC); 
BgL_res5551z00_2386 = BgL_new3960z00_2383; } } BgL_res5551z00_2386; } 
BgL_res5552z00_2387 = BgL_new3945z00_2382; } } 
BgL_arg5123z00_1732 = BgL_res5552z00_2387; } } 
{ /* ./Cfa/cinfo3.scm 45 */
obj_t BgL_auxz00_4638;BgL_objectz00_bglt BgL_auxz00_4636;
BgL_auxz00_4638 = 
(obj_t)(BgL_arg5123z00_1732); 
BgL_auxz00_4636 = 
(BgL_objectz00_bglt)(BgL_new3969z00_1730); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4636, BgL_auxz00_4638); } } 
{ /* ./Cfa/cinfo3.scm 45 */
obj_t BgL_objz00_2388;
BgL_objz00_2388 = 
(obj_t)(BgL_new3969z00_1730); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2388); BUNSPEC; } 
BgL_auxz00_4611 = BgL_new3969z00_1730; } } } 
return 
(obj_t)(BgL_auxz00_4611);} } } 
}



/* object->struct-valloc/Cinfo4095 */
obj_t BGl_objectzd2ze3structzd2valloczf2Cinfo4095z11zzcfa_info3z00(obj_t BgL_envz00_3010, obj_t BgL_obj3964z00_3011)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 45 */
{ 
BgL_valloczf2cinfozf2_bglt BgL_obj3964z00_1714;
BgL_obj3964z00_1714 = 
(BgL_valloczf2cinfozf2_bglt)(BgL_obj3964z00_3011); 
{ 

{ /* ./Cfa/cinfo3.scm 45 */
obj_t BgL_res3965z00_1717;
{ /* ./Cfa/cinfo3.scm 45 */
obj_t BgL_nextzd2method4094zd2_1722;
BgL_nextzd2method4094zd2_1722 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3964z00_1714), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_valloczf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 45 */
bool_t BgL_test5112z00_1723;
BgL_test5112z00_1723 = 
PROCEDUREP(BgL_nextzd2method4094zd2_1722); 
if(BgL_test5112z00_1723)
{ /* ./Cfa/cinfo3.scm 45 */
BgL_res3965z00_1717 = 
PROCEDURE_ENTRY(BgL_nextzd2method4094zd2_1722)(BgL_nextzd2method4094zd2_1722, 
(obj_t)(BgL_obj3964z00_1714), BEOA); }  else 
{ /* ./Cfa/cinfo3.scm 45 */
BgL_res3965z00_1717 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3964z00_1714)); } } } 
{ /* ./Cfa/cinfo3.scm 45 */
obj_t BgL_aux3966z00_1718;
{ /* ./Cfa/cinfo3.scm 45 */
obj_t BgL_keyz00_2358;int BgL_lenz00_2359;
BgL_keyz00_2358 = 
CNST_TABLE_REF(((long)9)); 
BgL_lenz00_2359 = 
(int)(((long)1)); 
BgL_aux3966z00_1718 = 
make_struct(BgL_keyz00_2358, BgL_lenz00_2359, BUNSPEC); } 
{ /* ./Cfa/cinfo3.scm 45 */
BgL_approxz00_bglt BgL_arg5101z00_1720;
{ 
obj_t BgL_auxz00_4657;
{ /* ./Cfa/cinfo3.scm 45 */
BgL_objectz00_bglt BgL_auxz00_4658;
BgL_auxz00_4658 = 
(BgL_objectz00_bglt)(BgL_obj3964z00_1714); 
BgL_auxz00_4657 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4658); } 
BgL_arg5101z00_1720 = 
(((BgL_valloczf2cinfozf2_bglt)CREF(BgL_auxz00_4657))->BgL_approxz00); } 
{ /* ./Cfa/cinfo3.scm 45 */
int BgL_kz00_2363;obj_t BgL_oz00_2364;
BgL_kz00_2363 = 
(int)(((long)0)); 
BgL_oz00_2364 = 
(obj_t)(BgL_arg5101z00_1720); 
STRUCT_SET(BgL_aux3966z00_1718, BgL_kz00_2363, BgL_oz00_2364); } } 
{ /* ./Cfa/cinfo3.scm 45 */
int BgL_kz00_2366;
BgL_kz00_2366 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3965z00_1717, BgL_kz00_2366, BgL_aux3966z00_1718); } 
{ /* ./Cfa/cinfo3.scm 45 */
obj_t BgL_arg5106z00_1721;
BgL_arg5106z00_1721 = 
STRUCT_KEY(BgL_res3965z00_1717); 
STRUCT_KEY_SET(BgL_aux3966z00_1718, BgL_arg5106z00_1721); } 
{ /* ./Cfa/cinfo3.scm 45 */
obj_t BgL_kz00_2373;
BgL_kz00_2373 = 
CNST_TABLE_REF(((long)9)); 
STRUCT_KEY_SET(BgL_res3965z00_1717, BgL_kz00_2373); } 
return BgL_res3965z00_1717;} } } } } 
}



/* struct+object->object-valloc/Cinfo+optim4093 */
obj_t BGl_structzb2objectzd2ze3objectzd2valloczf2Cinfozb2optim4093z11zzcfa_info3z00(obj_t BgL_envz00_3012, obj_t BgL_oz00_3013, obj_t BgL_sz00_3014)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 47 */
{ 
BgL_valloczf2cinfozb2optimz40_bglt BgL_oz00_1696;obj_t BgL_sz00_1697;
{ /* ./Cfa/cinfo3.scm 47 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_auxz00_4672;
BgL_oz00_1696 = 
(BgL_valloczf2cinfozb2optimz40_bglt)(BgL_oz00_3013); 
BgL_sz00_1697 = BgL_sz00_3014; 
{ 

{ /* ./Cfa/cinfo3.scm 47 */
obj_t BgL_old4038z00_1700;obj_t BgL_aux4039z00_1701;
{ /* ./Cfa/cinfo3.scm 47 */
obj_t BgL_nextzd2method4092zd2_1712;
BgL_nextzd2method4092zd2_1712 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1696), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_valloczf2Cinfozb2optimz40zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 47 */
bool_t BgL_test5093z00_1713;
BgL_test5093z00_1713 = 
PROCEDUREP(BgL_nextzd2method4092zd2_1712); 
if(BgL_test5093z00_1713)
{ /* ./Cfa/cinfo3.scm 47 */
BgL_old4038z00_1700 = 
PROCEDURE_ENTRY(BgL_nextzd2method4092zd2_1712)(BgL_nextzd2method4092zd2_1712, 
(obj_t)(BgL_oz00_1696), BgL_sz00_1697, BEOA); }  else 
{ /* ./Cfa/cinfo3.scm 47 */
{ /* ./Cfa/cinfo3.scm 47 */
BgL_objectz00_bglt BgL_auxz00_4680;
BgL_auxz00_4680 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1696), BgL_sz00_1697); 
BgL_old4038z00_1700 = 
(obj_t)(BgL_auxz00_4680); } } } } 
{ /* ./Cfa/cinfo3.scm 47 */
int BgL_auxz00_4684;
BgL_auxz00_4684 = 
(int)(((long)0)); 
BgL_aux4039z00_1701 = 
STRUCT_REF(BgL_sz00_1697, BgL_auxz00_4684); } 
{ /* ./Cfa/cinfo3.scm 47 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_new4040z00_1702;
BgL_new4040z00_1702 = 
((BgL_valloczf2cinfozb2optimz40_bglt)(BgL_old4038z00_1700)); 
{ /* ./Cfa/cinfo3.scm 47 */
long BgL_arg5068z00_1703;
BgL_arg5068z00_1703 = 
BGl_classzd2numzd2zz__objectz00(BGl_valloczf2Cinfozb2optimz40zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 47 */
BgL_objectz00_bglt BgL_objz00_2315;
BgL_objz00_2315 = 
(BgL_objectz00_bglt)(BgL_new4040z00_1702); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2315, BgL_arg5068z00_1703); } } 
{ /* ./Cfa/cinfo3.scm 47 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_arg5072z00_1704;
{ /* ./Cfa/cinfo3.scm 47 */
obj_t BgL_arg5075z00_1705;obj_t BgL_arg5076z00_1706;obj_t BgL_arg5077z00_1707;obj_t BgL_arg5078z00_1708;obj_t BgL_arg5079z00_1709;obj_t BgL_arg5080z00_1710;obj_t BgL_arg5081z00_1711;
{ /* ./Cfa/cinfo3.scm 47 */
int BgL_auxz00_4691;
BgL_auxz00_4691 = 
(int)(((long)0)); 
BgL_arg5075z00_1705 = 
STRUCT_REF(BgL_aux4039z00_1701, BgL_auxz00_4691); } 
{ /* ./Cfa/cinfo3.scm 47 */
int BgL_auxz00_4694;
BgL_auxz00_4694 = 
(int)(((long)1)); 
BgL_arg5076z00_1706 = 
STRUCT_REF(BgL_aux4039z00_1701, BgL_auxz00_4694); } 
{ /* ./Cfa/cinfo3.scm 47 */
int BgL_auxz00_4697;
BgL_auxz00_4697 = 
(int)(((long)2)); 
BgL_arg5077z00_1707 = 
STRUCT_REF(BgL_aux4039z00_1701, BgL_auxz00_4697); } 
{ /* ./Cfa/cinfo3.scm 47 */
int BgL_auxz00_4700;
BgL_auxz00_4700 = 
(int)(((long)3)); 
BgL_arg5078z00_1708 = 
STRUCT_REF(BgL_aux4039z00_1701, BgL_auxz00_4700); } 
{ /* ./Cfa/cinfo3.scm 47 */
int BgL_auxz00_4703;
BgL_auxz00_4703 = 
(int)(((long)4)); 
BgL_arg5079z00_1709 = 
STRUCT_REF(BgL_aux4039z00_1701, BgL_auxz00_4703); } 
{ /* ./Cfa/cinfo3.scm 47 */
int BgL_auxz00_4706;
BgL_auxz00_4706 = 
(int)(((long)5)); 
BgL_arg5080z00_1710 = 
STRUCT_REF(BgL_aux4039z00_1701, BgL_auxz00_4706); } 
{ /* ./Cfa/cinfo3.scm 47 */
int BgL_auxz00_4709;
BgL_auxz00_4709 = 
(int)(((long)6)); 
BgL_arg5081z00_1711 = 
STRUCT_REF(BgL_aux4039z00_1701, BgL_auxz00_4709); } 
{ /* ./Cfa/cinfo3.scm 47 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_res5549z00_2355;
{ /* ./Cfa/cinfo3.scm 47 */
BgL_approxz00_bglt BgL_approx3991z00_2331;BgL_approxz00_bglt BgL_valuezd2approx3992zd2_2332;long BgL_lostzd2stamp3993zd2_2333;BgL_variablez00_bglt BgL_owner3994z00_2334;bool_t BgL_stackablezf33995zf3_2335;bool_t BgL_seenzf33997zf3_2337;
BgL_approx3991z00_2331 = 
(BgL_approxz00_bglt)(BgL_arg5075z00_1705); 
BgL_valuezd2approx3992zd2_2332 = 
(BgL_approxz00_bglt)(BgL_arg5076z00_1706); 
BgL_lostzd2stamp3993zd2_2333 = 
(long)CINT(BgL_arg5077z00_1707); 
BgL_owner3994z00_2334 = 
(BgL_variablez00_bglt)(BgL_arg5078z00_1708); 
BgL_stackablezf33995zf3_2335 = 
CBOOL(BgL_arg5079z00_1709); 
BgL_seenzf33997zf3_2337 = 
CBOOL(BgL_arg5081z00_1711); 
{ /* ./Cfa/cinfo3.scm 47 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_new3998z00_2338;
BgL_new3998z00_2338 = 
((BgL_valloczf2cinfozb2optimz40_bglt)BREF( GC_MALLOC (sizeof(struct BgL_valloczf2cinfozb2optimz40_bgl)))); 
{ /* ./Cfa/cinfo3.scm 47 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_res5548z00_2354;
{ /* ./Cfa/cinfo3.scm 47 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_new4025z00_2339;
BgL_new4025z00_2339 = BgL_new3998z00_2338; 
{ /* ./Cfa/cinfo3.scm 47 */
BgL_approxz00_bglt BgL_approx4018z00_2347;BgL_approxz00_bglt BgL_valuezd2approx4019zd2_2348;long BgL_lostzd2stamp4020zd2_2349;BgL_variablez00_bglt BgL_owner4021z00_2350;bool_t BgL_stackablezf34022zf3_2351;obj_t BgL_stackzd2stamp4023zd2_2352;bool_t BgL_seenzf34024zf3_2353;
BgL_approx4018z00_2347 = BgL_approx3991z00_2331; 
BgL_valuezd2approx4019zd2_2348 = BgL_valuezd2approx3992zd2_2332; 
BgL_lostzd2stamp4020zd2_2349 = BgL_lostzd2stamp3993zd2_2333; 
BgL_owner4021z00_2350 = BgL_owner3994z00_2334; 
BgL_stackablezf34022zf3_2351 = BgL_stackablezf33995zf3_2335; 
BgL_stackzd2stamp4023zd2_2352 = BgL_arg5080z00_1710; 
BgL_seenzf34024zf3_2353 = BgL_seenzf33997zf3_2337; 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_2339))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx4018z00_2347), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_2339))->BgL_valuezd2approxzd2) = ((BgL_approxz00_bglt)BgL_valuezd2approx4019zd2_2348), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_2339))->BgL_lostzd2stampzd2) = ((long)BgL_lostzd2stamp4020zd2_2349), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_2339))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner4021z00_2350), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_2339))->BgL_stackablezf3zf3) = ((bool_t)BgL_stackablezf34022zf3_2351), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_2339))->BgL_stackzd2stampzd2) = ((obj_t)BgL_stackzd2stamp4023zd2_2352), BUNSPEC); 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_new4025z00_2339))->BgL_seenzf3zf3) = ((bool_t)BgL_seenzf34024zf3_2353), BUNSPEC); 
BgL_res5548z00_2354 = BgL_new4025z00_2339; } } BgL_res5548z00_2354; } 
BgL_res5549z00_2355 = BgL_new3998z00_2338; } } 
BgL_arg5072z00_1704 = BgL_res5549z00_2355; } } 
{ /* ./Cfa/cinfo3.scm 47 */
obj_t BgL_auxz00_4728;BgL_objectz00_bglt BgL_auxz00_4726;
BgL_auxz00_4728 = 
(obj_t)(BgL_arg5072z00_1704); 
BgL_auxz00_4726 = 
(BgL_objectz00_bglt)(BgL_new4040z00_1702); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4726, BgL_auxz00_4728); } } 
{ /* ./Cfa/cinfo3.scm 47 */
obj_t BgL_objz00_2356;
BgL_objz00_2356 = 
(obj_t)(BgL_new4040z00_1702); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2356); BUNSPEC; } 
BgL_auxz00_4672 = BgL_new4040z00_1702; } } } 
return 
(obj_t)(BgL_auxz00_4672);} } } 
}



/* object->struct-valloc/Cinfo+optim4090 */
obj_t BGl_objectzd2ze3structzd2valloczf2Cinfozb2optim4090za3zzcfa_info3z00(obj_t BgL_envz00_3015, obj_t BgL_obj4035z00_3016)
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 47 */
{ 
BgL_valloczf2cinfozb2optimz40_bglt BgL_obj4035z00_1674;
BgL_obj4035z00_1674 = 
(BgL_valloczf2cinfozb2optimz40_bglt)(BgL_obj4035z00_3016); 
{ 

{ /* ./Cfa/cinfo3.scm 47 */
obj_t BgL_res4036z00_1677;
{ /* ./Cfa/cinfo3.scm 47 */
obj_t BgL_nextzd2method4089zd2_1694;
BgL_nextzd2method4089zd2_1694 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj4035z00_1674), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_valloczf2Cinfozb2optimz40zzcfa_info3z00); 
{ /* ./Cfa/cinfo3.scm 47 */
bool_t BgL_test5061z00_1695;
BgL_test5061z00_1695 = 
PROCEDUREP(BgL_nextzd2method4089zd2_1694); 
if(BgL_test5061z00_1695)
{ /* ./Cfa/cinfo3.scm 47 */
BgL_res4036z00_1677 = 
PROCEDURE_ENTRY(BgL_nextzd2method4089zd2_1694)(BgL_nextzd2method4089zd2_1694, 
(obj_t)(BgL_obj4035z00_1674), BEOA); }  else 
{ /* ./Cfa/cinfo3.scm 47 */
BgL_res4036z00_1677 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj4035z00_1674)); } } } 
{ /* ./Cfa/cinfo3.scm 47 */
obj_t BgL_aux4037z00_1678;
{ /* ./Cfa/cinfo3.scm 47 */
obj_t BgL_keyz00_2272;int BgL_lenz00_2273;
BgL_keyz00_2272 = 
CNST_TABLE_REF(((long)10)); 
BgL_lenz00_2273 = 
(int)(((long)7)); 
BgL_aux4037z00_1678 = 
make_struct(BgL_keyz00_2272, BgL_lenz00_2273, BUNSPEC); } 
{ /* ./Cfa/cinfo3.scm 47 */
BgL_approxz00_bglt BgL_arg5019z00_1680;
{ 
obj_t BgL_auxz00_4747;
{ /* ./Cfa/cinfo3.scm 47 */
BgL_objectz00_bglt BgL_auxz00_4748;
BgL_auxz00_4748 = 
(BgL_objectz00_bglt)(BgL_obj4035z00_1674); 
BgL_auxz00_4747 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4748); } 
BgL_arg5019z00_1680 = 
(((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_auxz00_4747))->BgL_approxz00); } 
{ /* ./Cfa/cinfo3.scm 47 */
int BgL_kz00_2277;obj_t BgL_oz00_2278;
BgL_kz00_2277 = 
(int)(((long)0)); 
BgL_oz00_2278 = 
(obj_t)(BgL_arg5019z00_1680); 
STRUCT_SET(BgL_aux4037z00_1678, BgL_kz00_2277, BgL_oz00_2278); } } 
{ /* ./Cfa/cinfo3.scm 47 */
BgL_approxz00_bglt BgL_arg5024z00_1682;
{ 
obj_t BgL_auxz00_4755;
{ /* ./Cfa/cinfo3.scm 47 */
BgL_objectz00_bglt BgL_auxz00_4756;
BgL_auxz00_4756 = 
(BgL_objectz00_bglt)(BgL_obj4035z00_1674); 
BgL_auxz00_4755 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4756); } 
BgL_arg5024z00_1682 = 
(((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_auxz00_4755))->BgL_valuezd2approxzd2); } 
{ /* ./Cfa/cinfo3.scm 47 */
int BgL_kz00_2281;obj_t BgL_oz00_2282;
BgL_kz00_2281 = 
(int)(((long)1)); 
BgL_oz00_2282 = 
(obj_t)(BgL_arg5024z00_1682); 
STRUCT_SET(BgL_aux4037z00_1678, BgL_kz00_2281, BgL_oz00_2282); } } 
{ /* ./Cfa/cinfo3.scm 47 */
long BgL_arg5030z00_1684;
{ 
obj_t BgL_auxz00_4763;
{ /* ./Cfa/cinfo3.scm 47 */
BgL_objectz00_bglt BgL_auxz00_4764;
BgL_auxz00_4764 = 
(BgL_objectz00_bglt)(BgL_obj4035z00_1674); 
BgL_auxz00_4763 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4764); } 
BgL_arg5030z00_1684 = 
(((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_auxz00_4763))->BgL_lostzd2stampzd2); } 
{ /* ./Cfa/cinfo3.scm 47 */
int BgL_kz00_2285;obj_t BgL_oz00_2286;
BgL_kz00_2285 = 
(int)(((long)2)); 
BgL_oz00_2286 = 
BINT(BgL_arg5030z00_1684); 
STRUCT_SET(BgL_aux4037z00_1678, BgL_kz00_2285, BgL_oz00_2286); } } 
{ /* ./Cfa/cinfo3.scm 47 */
BgL_variablez00_bglt BgL_arg5035z00_1686;
{ 
obj_t BgL_auxz00_4771;
{ /* ./Cfa/cinfo3.scm 47 */
BgL_objectz00_bglt BgL_auxz00_4772;
BgL_auxz00_4772 = 
(BgL_objectz00_bglt)(BgL_obj4035z00_1674); 
BgL_auxz00_4771 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4772); } 
BgL_arg5035z00_1686 = 
(((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_auxz00_4771))->BgL_ownerz00); } 
{ /* ./Cfa/cinfo3.scm 47 */
int BgL_kz00_2289;obj_t BgL_oz00_2290;
BgL_kz00_2289 = 
(int)(((long)3)); 
BgL_oz00_2290 = 
(obj_t)(BgL_arg5035z00_1686); 
STRUCT_SET(BgL_aux4037z00_1678, BgL_kz00_2289, BgL_oz00_2290); } } 
{ /* ./Cfa/cinfo3.scm 47 */
bool_t BgL_arg5040z00_1688;
{ 
obj_t BgL_auxz00_4779;
{ /* ./Cfa/cinfo3.scm 47 */
BgL_objectz00_bglt BgL_auxz00_4780;
BgL_auxz00_4780 = 
(BgL_objectz00_bglt)(BgL_obj4035z00_1674); 
BgL_auxz00_4779 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4780); } 
BgL_arg5040z00_1688 = 
(((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_auxz00_4779))->BgL_stackablezf3zf3); } 
{ /* ./Cfa/cinfo3.scm 47 */
int BgL_kz00_2293;obj_t BgL_oz00_2294;
BgL_kz00_2293 = 
(int)(((long)4)); 
BgL_oz00_2294 = 
BBOOL(BgL_arg5040z00_1688); 
STRUCT_SET(BgL_aux4037z00_1678, BgL_kz00_2293, BgL_oz00_2294); } } 
{ /* ./Cfa/cinfo3.scm 47 */
obj_t BgL_arg5045z00_1690;
{ 
obj_t BgL_auxz00_4787;
{ /* ./Cfa/cinfo3.scm 47 */
BgL_objectz00_bglt BgL_auxz00_4788;
BgL_auxz00_4788 = 
(BgL_objectz00_bglt)(BgL_obj4035z00_1674); 
BgL_auxz00_4787 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4788); } 
BgL_arg5045z00_1690 = 
(((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_auxz00_4787))->BgL_stackzd2stampzd2); } 
{ /* ./Cfa/cinfo3.scm 47 */
int BgL_kz00_2297;
BgL_kz00_2297 = 
(int)(((long)5)); 
STRUCT_SET(BgL_aux4037z00_1678, BgL_kz00_2297, BgL_arg5045z00_1690); } } 
{ /* ./Cfa/cinfo3.scm 47 */
bool_t BgL_arg5050z00_1692;
{ 
obj_t BgL_auxz00_4794;
{ /* ./Cfa/cinfo3.scm 47 */
BgL_objectz00_bglt BgL_auxz00_4795;
BgL_auxz00_4795 = 
(BgL_objectz00_bglt)(BgL_obj4035z00_1674); 
BgL_auxz00_4794 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4795); } 
BgL_arg5050z00_1692 = 
(((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_auxz00_4794))->BgL_seenzf3zf3); } 
{ /* ./Cfa/cinfo3.scm 47 */
int BgL_kz00_2301;obj_t BgL_oz00_2302;
BgL_kz00_2301 = 
(int)(((long)6)); 
BgL_oz00_2302 = 
BBOOL(BgL_arg5050z00_1692); 
STRUCT_SET(BgL_aux4037z00_1678, BgL_kz00_2301, BgL_oz00_2302); } } 
{ /* ./Cfa/cinfo3.scm 47 */
int BgL_kz00_2304;
BgL_kz00_2304 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res4036z00_1677, BgL_kz00_2304, BgL_aux4037z00_1678); } 
{ /* ./Cfa/cinfo3.scm 47 */
obj_t BgL_arg5055z00_1693;
BgL_arg5055z00_1693 = 
STRUCT_KEY(BgL_res4036z00_1677); 
STRUCT_KEY_SET(BgL_aux4037z00_1678, BgL_arg5055z00_1693); } 
{ /* ./Cfa/cinfo3.scm 47 */
obj_t BgL_kz00_2311;
BgL_kz00_2311 = 
CNST_TABLE_REF(((long)10)); 
STRUCT_KEY_SET(BgL_res4036z00_1677, BgL_kz00_2311); } 
return BgL_res4036z00_1677;} } } } } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzcfa_info3z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo3.scm 16 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "cfa_info3"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "cfa_info3"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "cfa_info3"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "cfa_info3"); 
return 
BGl_modulezd2initializa7ationz75zzcfa_infoz00(((long)2565), "cfa_info3");} 
}

