/*===========================================================================*/
/*   (Cfa/cinfo.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/cinfo.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;


static obj_t BGl__boxzd2setz12zf2Ozd2Cinfozf3z13zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__funcallzf2Cinfozf3z01zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__wideningzd2externzd2sfunzf2Cinfozf2zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__fillzd2conditionalzf2Cinfoz126534z32zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2sexitzf2Cinfo3950z11zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_boxzd2refzf2cinfoz20_bglt BGl_fillzd2boxzd2refzf2Cinfoz12ze0zzcfa_infoz00(BgL_boxzd2refzf2cinfoz20_bglt, BgL_approxz00_bglt);
BGL_EXPORTED_DECL BgL_setzd2exzd2itzf2cinfozf2_bglt BGl_fillzd2setzd2exzd2itzf2Cinfoz12z32zzcfa_infoz00(BgL_setzd2exzd2itzf2cinfozf2_bglt, BgL_approxz00_bglt);
static obj_t BGl_methodzd2initzd2zzcfa_infoz00();
static obj_t BGl__reshapedzd2globalzf3z21zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__makezd2boxzd2refzf2Ozd2Cinfo6466z20zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2internzd2sfunzf2Cinfo3972z71zzcfa_infoz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_sexitzf2cinfozf2_bglt BGl_makezd2sexitzf2Cinfoz20zzcfa_infoz00(obj_t, bool_t, BgL_approxz00_bglt);
BGL_EXPORTED_DEF obj_t BGl_scnstzf2Cinfozf2zzcfa_infoz00 = BUNSPEC;
static obj_t BGl__allocatezd2jumpzd2exzd2itzf2Cinfoz20zzcfa_infoz00(obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl__fillzd2cfunzf2Cinfoz126629z32zzcfa_infoz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_svarzf2cinfozf2_bglt BGl_fillzd2svarzf2Cinfoz12z32zzcfa_infoz00(BgL_svarzf2cinfozf2_bglt, BgL_approxz00_bglt, bool_t);
static obj_t BGl_objectzd2ze3structzd2makezd2boxzf2Ozd2Cinfo3881z11zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_funcallzf2cinfozf2_bglt BGl_makezd2funcallzf2Cinfoz20zzcfa_infoz00(obj_t, BgL_typez00_bglt, BgL_nodez00_bglt, obj_t, obj_t, BgL_approxz00_bglt, BgL_approxz00_bglt, bool_t, bool_t);
static obj_t BGl_objectzd2ze3structzd2jumpzd2exzd2itzf2Cinfo3895z11zzcfa_infoz00(obj_t, obj_t);
BGL_IMPORT long BGl_classzd2numzd2zz__objectz00(obj_t);
BGL_EXPORTED_DECL BgL_jumpzd2exzd2itz00_bglt BGl_allocatezd2jumpzd2exzd2itzf2Cinfoz20zzcfa_infoz00();
static obj_t BGl__wideningzd2reshapedzd2localz00zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__makezd2makezd2boxzf2Ozd2Cinfo6490z20zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_prezd2clozd2envz00_bglt BGl_fillzd2prezd2clozd2envz12zc0zzcfa_infoz00(BgL_prezd2clozd2envz00_bglt);
BGL_EXPORTED_DECL BgL_setqzf2cinfozf2_bglt BGl_fillzd2setqzf2Cinfoz12z32zzcfa_infoz00(BgL_setqzf2cinfozf2_bglt, BgL_approxz00_bglt);
BGL_EXPORTED_DEF obj_t BGl_externzd2sfunzf2Cinfoz20zzcfa_infoz00 = BUNSPEC;
static obj_t BGl_structzb2objectzd2ze3objectzd2cfunzf2Cinfo3980za3zzcfa_infoz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_boxzd2setz12zf2cinfoz32_bglt BGl_makezd2boxzd2setz12zf2Cinfoze0zzcfa_infoz00(obj_t, BgL_typez00_bglt, BgL_varz00_bglt, BgL_nodez00_bglt, BgL_approxz00_bglt);
BGL_EXPORTED_DECL BgL_boxzd2setz12zc0_bglt BGl_allocatezd2boxzd2setz12zf2Cinfoze0zzcfa_infoz00();
extern obj_t BGl_sfunz00zzast_varz00;
BGL_EXPORTED_DECL BgL_setzd2exzd2itz00_bglt BGl_allocatezd2setzd2exzd2itzf2Cinfoz20zzcfa_infoz00();
static obj_t BGl_objectzd2ze3structzd2boxzd2setz12zf2Ozd2Cinfo3866z03zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__allocatezd2prezd2clozd2envzd2zzcfa_infoz00(obj_t);
static obj_t BGl_objectzd2ze3structzd2cvarzf2Cinfo3954z11zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__wideningzd2conditionalzf2Cinfoz20zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__makezd2atomzf2Cinfo6568z20zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_setzd2exzd2itzf2cinfozf2_bglt BGl_wideningzd2setzd2exzd2itzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt);
BGL_EXPORTED_DECL bool_t BGl_jumpzd2exzd2itzf2Cinfozf3z01zzcfa_infoz00(obj_t);
BGL_EXPORTED_DECL BgL_internzd2sfunzf2cinfoz20_bglt BGl_fillzd2internzd2sfunzf2Cinfoz12ze0zzcfa_infoz00(BgL_internzd2sfunzf2cinfoz20_bglt, BgL_approxz00_bglt, long);
static obj_t BGl_objectzd2ze3structzd2scnstzf2Cinfo3966z11zzcfa_infoz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2conditionalzf2Cinfo3914za3zzcfa_infoz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_cvarzf2Cinfozf3z01zzcfa_infoz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_boxzd2refzf2ozd2cinfozf2_bglt BGl_wideningzd2boxzd2refzf2Ozd2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt);
BGL_EXPORTED_DECL BgL_kwotezf2nodezf2_bglt BGl_makezd2kwotezf2nodez20zzcfa_infoz00(obj_t, BgL_typez00_bglt, obj_t, BgL_nodez00_bglt);
static obj_t BGl_objectzd2ze3structzd2makezd2boxzf2Cinfo3886zc3zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2prezd2clozd2env3962ze3zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__makezd2externzd2sfunzf2Cinfo6621zf2zzcfa_infoz00(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__fillzd2kwotezf2Cinfoz126558z32zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl__makezd2setqzf2Cinfo6538z20zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
extern BgL_atomz00_bglt BGl_makezd2atomzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t);
BGL_IMPORT obj_t BGl_objectzd2ze3structz31zz__objectz00(BgL_objectz00_bglt);
extern BgL_failz00_bglt BGl_makezd2failzd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_nodez00_bglt, BgL_nodez00_bglt, BgL_nodez00_bglt);
static obj_t BGl__wideningzd2boxzd2setz12zf2Cinfoze0zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_svarzf2cinfozf2_bglt BGl_wideningzd2svarzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt, bool_t);
BGL_EXPORTED_DECL BgL_kwotezf2cinfozf2_bglt BGl_makezd2kwotezf2Cinfoz20zzcfa_infoz00(obj_t, BgL_typez00_bglt, obj_t, BgL_approxz00_bglt);
static obj_t BGl_objectzd2ze3structzd2internzd2sfunzf2Cinfo3970zc3zzcfa_infoz00(obj_t, obj_t);
extern obj_t BGl_scnstz00zzast_varz00;
BGL_EXPORTED_DECL BgL_cfunzf2cinfozf2_bglt BGl_wideningzd2cfunzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt);
BGL_EXPORTED_DECL BgL_failzf2cinfozf2_bglt BGl_makezd2failzf2Cinfoz20zzcfa_infoz00(obj_t, BgL_typez00_bglt, BgL_nodez00_bglt, BgL_nodez00_bglt, BgL_nodez00_bglt, BgL_approxz00_bglt);
static obj_t BGl__makezd2setzd2exzd2itzf2Cinfo6514z20zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_jumpzd2exzd2itzf2cinfozf2_bglt BGl_makezd2jumpzd2exzd2itzf2Cinfoz20zzcfa_infoz00(obj_t, BgL_typez00_bglt, BgL_nodez00_bglt, BgL_nodez00_bglt, BgL_approxz00_bglt);
static obj_t BGl_structzb2objectzd2ze3objectzd2svarzf2Cinfo3960za3zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl__wideningzd2cfunzf2Cinfoz20zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_conditionalzf2cinfozf2_bglt BGl_wideningzd2conditionalzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt);
BGL_EXPORTED_DECL BgL_reshapedzd2globalzd2_bglt BGl_wideningzd2reshapedzd2globalz00zzcfa_infoz00();
static obj_t BGl__makezd2prezd2clozd2envzd2zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__allocatezd2kwotezf2Cinfoz20zzcfa_infoz00(obj_t);
BGL_EXPORTED_DECL BgL_conditionalzf2cinfozf2_bglt BGl_fillzd2conditionalzf2Cinfoz12z32zzcfa_infoz00(BgL_conditionalzf2cinfozf2_bglt, BgL_approxz00_bglt);
BGL_IMPORT obj_t BGl_objectz00zz__objectz00;
static obj_t BGl__wideningzd2prezd2makezd2boxzd2zzcfa_infoz00(obj_t);
extern obj_t BGl_svarz00zzast_varz00;
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__appzd2lyzf2Cinfozf3zd3zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_atomzf2cinfozf2_bglt BGl_makezd2atomzf2Cinfoz20zzcfa_infoz00(obj_t, BgL_typez00_bglt, obj_t, BgL_approxz00_bglt);
static obj_t BGl__setqzf2Cinfozf3z01zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_prezd2makezd2boxz00zzcfa_infoz00 = BUNSPEC;
static obj_t BGl__makezd2prezd2makezd2box6502zd2zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_kwotez00zzast_nodez00;
extern BgL_jumpzd2exzd2itz00_bglt BGl_makezd2jumpzd2exzd2itzd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_nodez00_bglt, BgL_nodez00_bglt);
static obj_t BGl__setzd2exzd2itzf2Cinfozf3z01zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_reshapedzd2globalzd2_bglt BGl_fillzd2reshapedzd2globalz12z12zzcfa_infoz00(BgL_reshapedzd2globalzd2_bglt);
static obj_t BGl_objectzd2ze3structzd2reshapedzd2local3946z31zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_jumpzd2exzd2itzf2cinfozf2_bglt BGl_fillzd2jumpzd2exzd2itzf2Cinfoz12z32zzcfa_infoz00(BgL_jumpzd2exzd2itzf2cinfozf2_bglt, BgL_approxz00_bglt);
static obj_t BGl__approxzf3zf3zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2failzf2Cinfo3908z11zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__makezd2approx6632zd2zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_globalz00zzast_varz00;
BGL_EXPORTED_DECL bool_t BGl_boxzd2setz12zf2Ozd2Cinfozf3z13zzcfa_infoz00(obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2externzd2sfunzf2Cinfo3976z71zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl__fillzd2reshapedzd2globalz126576z12zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_selectzf2cinfozf2_bglt BGl_fillzd2selectzf2Cinfoz12z32zzcfa_infoz00(BgL_selectzf2cinfozf2_bglt, BgL_approxz00_bglt);
BGL_EXPORTED_DECL BgL_kwotez00_bglt BGl_allocatezd2kwotezf2Cinfoz20zzcfa_infoz00();
BGL_EXPORTED_DECL BgL_cvarzf2cinfozf2_bglt BGl_makezd2cvarzf2Cinfoz20zzcfa_infoz00(bool_t, BgL_approxz00_bglt);
static obj_t BGl_objectzd2ze3structzd2setzd2exzd2itzf2Cinfo3899z11zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_boxzd2refzd2_bglt BGl_allocatezd2boxzd2refzf2Cinfozf2zzcfa_infoz00();
static obj_t BGl_objectzd2ze3structzd2kwotezf2node3932z11zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_cfunzf2Cinfozf3z01zzcfa_infoz00(obj_t);
static obj_t BGl_objectzd2ze3structzd2prezd2makezd2box3890ze3zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__prezd2makezd2boxzf3zf3zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__wideningzd2boxzd2setz12zf2Ozd2Cinfoz32zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__makezd2conditionalzf2Cinfo6532z20zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__fillzd2setzd2exzd2itzf2Cinfoz126516z32zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2boxzd2refzf2Cinfozf2zzcfa_infoz00(obj_t);
extern BgL_conditionalz00_bglt BGl_makezd2conditionalzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_nodez00_bglt, BgL_nodez00_bglt, BgL_nodez00_bglt);
BGL_EXPORTED_DEF obj_t BGl_boxzd2setz12zf2Ozd2Cinfoze0zzcfa_infoz00 = BUNSPEC;
BGL_EXPORTED_DEF obj_t BGl_failzf2Cinfozf2zzcfa_infoz00 = BUNSPEC;
BGL_EXPORTED_DEF obj_t BGl_setzd2exzd2itzf2Cinfozf2zzcfa_infoz00 = BUNSPEC;
static obj_t BGl__allocatezd2sexitzf2Cinfoz20zzcfa_infoz00(obj_t);
static obj_t BGl__wideningzd2cvarzf2Cinfoz20zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__fillzd2sexitzf2Cinfoz126588z32zzcfa_infoz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_conditionalzf2cinfozf2_bglt BGl_makezd2conditionalzf2Cinfoz20zzcfa_infoz00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_nodez00_bglt, BgL_nodez00_bglt, BgL_nodez00_bglt, BgL_approxz00_bglt);
extern obj_t BGl_sexitz00zzast_varz00;
BGL_EXPORTED_DECL BgL_boxzd2refzf2ozd2cinfozf2_bglt BGl_makezd2boxzd2refzf2Ozd2Cinfoz20zzcfa_infoz00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt, BgL_approxz00_bglt);
BGL_EXPORTED_DECL bool_t BGl_setzd2exzd2itzf2Cinfozf3z01zzcfa_infoz00(obj_t);
BGL_EXPORTED_DECL BgL_boxzd2setz12zf2cinfoz32_bglt BGl_wideningzd2boxzd2setz12zf2Cinfoze0zzcfa_infoz00(BgL_approxz00_bglt);
static obj_t BGl__makezd2boxzd2refzf2Cinfo6478zf2zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2boxzd2setz12zf2Ozd2Cinfoz32zzcfa_infoz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_scnstzf2Cinfozf3z01zzcfa_infoz00(obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2reshapedzd2local3948z83zzcfa_infoz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_selectzf2cinfozf2_bglt BGl_makezd2selectzf2Cinfoz20zzcfa_infoz00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_nodez00_bglt, obj_t, BgL_typez00_bglt, BgL_approxz00_bglt);
static obj_t BGl__fillzd2jumpzd2exzd2itzf2Cinfoz126510z32zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl__makezd2reshapedzd2global6574z00zzcfa_infoz00(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_structzb2objectzd2ze3objectzd2makezd2boxzf2Ozd2Cinfo3884za3zzcfa_infoz00(obj_t, obj_t, obj_t);
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
static obj_t BGl__fillzd2makezd2boxzf2Cinfoz126498ze0zzcfa_infoz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_atomzf2Cinfozf2zzcfa_infoz00 = BUNSPEC;
static obj_t BGl__fillzd2funcallzf2Cinfoz126546z32zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_atomzf2cinfozf2_bglt BGl_fillzd2atomzf2Cinfoz12z32zzcfa_infoz00(BgL_atomzf2cinfozf2_bglt, BgL_approxz00_bglt);
static obj_t BGl_cnstzd2initzd2zzcfa_infoz00();
BGL_EXPORTED_DECL BgL_kwotezf2cinfozf2_bglt BGl_wideningzd2kwotezf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt);
BGL_EXPORTED_DECL bool_t BGl_appzd2lyzf2Cinfozf3zd3zzcfa_infoz00(obj_t);
BGL_EXPORTED_DECL BgL_reshapedzd2globalzd2_bglt BGl_makezd2reshapedzd2globalz00zzcfa_infoz00(obj_t, obj_t, BgL_typez00_bglt, BgL_valuez00_bglt, obj_t, obj_t, obj_t, long, obj_t, obj_t, bool_t, bool_t, bool_t, obj_t, obj_t, obj_t);
extern obj_t BGl_atomz00zzast_nodez00;
BGL_EXPORTED_DEF obj_t BGl_makezd2boxzf2Cinfoz20zzcfa_infoz00 = BUNSPEC;
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
BGL_EXPORTED_DECL BgL_cvarzf2cinfozf2_bglt BGl_fillzd2cvarzf2Cinfoz12z32zzcfa_infoz00(BgL_cvarzf2cinfozf2_bglt, BgL_approxz00_bglt);
BGL_EXPORTED_DECL bool_t BGl_internzd2sfunzf2Cinfozf3zd3zzcfa_infoz00(obj_t);
BGL_EXPORTED_DECL BgL_sexitz00_bglt BGl_allocatezd2sexitzf2Cinfoz20zzcfa_infoz00();
BGL_EXPORTED_DECL BgL_boxzd2refzf2cinfoz20_bglt BGl_makezd2boxzd2refzf2Cinfozf2zzcfa_infoz00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt, BgL_approxz00_bglt);
static obj_t BGl__allocatezd2reshapedzd2globalz00zzcfa_infoz00(obj_t);
static obj_t BGl__fillzd2reshapedzd2localz126582z12zzcfa_infoz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_sfunz00_bglt BGl_allocatezd2internzd2sfunzf2Cinfozf2zzcfa_infoz00();
BGL_EXPORTED_DEF obj_t BGl_cvarzf2Cinfozf2zzcfa_infoz00 = BUNSPEC;
BGL_EXPORTED_DECL BgL_makezd2boxzf2ozd2cinfozf2_bglt BGl_makezd2makezd2boxzf2Ozd2Cinfoz20zzcfa_infoz00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_nodez00_bglt, BgL_approxz00_bglt, BgL_approxz00_bglt);
BGL_EXPORTED_DECL BgL_makezd2boxzf2cinfoz20_bglt BGl_fillzd2makezd2boxzf2Cinfoz12ze0zzcfa_infoz00(BgL_makezd2boxzf2cinfoz20_bglt, BgL_approxz00_bglt);
static obj_t BGl__wideningzd2sexitzf2Cinfoz20zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__wideningzd2failzf2Cinfoz20zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2boxzd2refzf2Ozd2Cinfo3864za3zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2kwotezf2node3934za3zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl__failzf2Cinfozf3z01zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_prezd2clozd2envzf3zf3zzcfa_infoz00(obj_t);
BGL_EXPORTED_DECL BgL_failzf2cinfozf2_bglt BGl_wideningzd2failzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt);
BGL_EXPORTED_DECL BgL_sfunz00_bglt BGl_allocatezd2externzd2sfunzf2Cinfozf2zzcfa_infoz00();
static obj_t BGl_structzb2objectzd2ze3objectzd2makezd2boxzf2Cinfo3888z71zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2cvarzf2Cinfoz20zzcfa_infoz00(obj_t);
static obj_t BGl__reshapedzd2localzf3z21zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_externzd2sfunzf2cinfoz20_bglt BGl_fillzd2externzd2sfunzf2Cinfoz12ze0zzcfa_infoz00(BgL_externzd2sfunzf2cinfoz20_bglt, BgL_approxz00_bglt);
BGL_EXPORTED_DECL bool_t BGl_svarzf2Cinfozf3z01zzcfa_infoz00(obj_t);
BGL_EXPORTED_DECL BgL_cvarz00_bglt BGl_allocatezd2cvarzf2Cinfoz20zzcfa_infoz00();
static obj_t BGl_structzb2objectzd2ze3objectzd2appzd2lyzf2Cinfo3926z71zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2conditionalzf2Cinfoz20zzcfa_infoz00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzcfa_infoz00();
static obj_t BGl__allocatezd2funcallzf2Cinfoz20zzcfa_infoz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_boxzd2refzf2Cinfozf3zd3zzcfa_infoz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_prezd2makezd2boxzf3zf3zzcfa_infoz00(obj_t);
BGL_EXPORTED_DEF obj_t BGl_internzd2sfunzf2Cinfoz20zzcfa_infoz00 = BUNSPEC;
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
BGL_EXPORTED_DEF obj_t BGl_reshapedzd2localzd2zzcfa_infoz00 = BUNSPEC;
BGL_EXPORTED_DECL BgL_approxz00_bglt BGl_makezd2approxzd2zzcfa_infoz00(BgL_typez00_bglt, bool_t, obj_t, bool_t, long);
static obj_t BGl__allocatezd2boxzd2refzf2Ozd2Cinfoz20zzcfa_infoz00(obj_t);
BGL_IMPORT obj_t make_struct(obj_t, int, obj_t);
BGL_EXPORTED_DECL BgL_prezd2makezd2boxz00_bglt BGl_wideningzd2prezd2makezd2boxzd2zzcfa_infoz00();
BGL_EXPORTED_DECL BgL_funcallz00_bglt BGl_allocatezd2funcallzf2Cinfoz20zzcfa_infoz00();
BGL_EXPORTED_DECL BgL_appzd2lyzf2cinfoz20_bglt BGl_wideningzd2appzd2lyzf2Cinfozf2zzcfa_infoz00(BgL_approxz00_bglt);
extern BgL_setzd2exzd2itz00_bglt BGl_makezd2setzd2exzd2itzd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_varz00_bglt, BgL_nodez00_bglt);
BGL_EXPORTED_DECL bool_t BGl_conditionalzf2Cinfozf3z01zzcfa_infoz00(obj_t);
BGL_EXPORTED_DEF obj_t BGl_prezd2clozd2envz00zzcfa_infoz00 = BUNSPEC;
static obj_t BGl__fillzd2boxzd2setz12zf2Cinfoz126486zf2zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl__fillzd2externzd2sfunzf2Cinfoz126623ze0zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2atomzf2Cinfoz20zzcfa_infoz00(obj_t);
static obj_t BGl__scnstzf2Cinfozf3z01zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_sexitzf2cinfozf2_bglt BGl_wideningzd2sexitzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt);
static obj_t BGl__makezd2kwotezf2node6562z20zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_atomz00_bglt BGl_allocatezd2atomzf2Cinfoz20zzcfa_infoz00();
static obj_t BGl__allocatezd2internzd2sfunzf2Cinfozf2zzcfa_infoz00(obj_t);
BGL_EXPORTED_DECL BgL_makezd2boxzd2_bglt BGl_allocatezd2makezd2boxzf2Ozd2Cinfoz20zzcfa_infoz00();
static obj_t BGl__boxzd2refzf2Cinfozf3zd3zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__allocatezd2setzd2exzd2itzf2Cinfoz20zzcfa_infoz00(obj_t);
static obj_t BGl__cvarzf2Cinfozf3z01zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__boxzd2refzf2Ozd2Cinfozf3z01zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_boxzd2setz12zf2Cinfoz32zzcfa_infoz00 = BUNSPEC;
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_approxz00_bglt BGl_fillzd2approxz12zc0zzcfa_infoz00(BgL_approxz00_bglt, BgL_typez00_bglt, bool_t, obj_t, bool_t, long);
static obj_t BGl__internzd2sfunzf2Cinfozf3zd3zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__makezd2scnstzf2Cinfo6609z20zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__makezd2kwotezf2Cinfo6556z20zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__wideningzd2setqzf2Cinfoz20zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_makezd2boxzf2ozd2cinfozf2_bglt BGl_fillzd2makezd2boxzf2Ozd2Cinfoz12z32zzcfa_infoz00(BgL_makezd2boxzf2ozd2cinfozf2_bglt, BgL_approxz00_bglt, BgL_approxz00_bglt);
static obj_t BGl__wideningzd2scnstzf2Cinfoz20zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_funcallzf2cinfozf2_bglt BGl_fillzd2funcallzf2Cinfoz12z32zzcfa_infoz00(BgL_funcallzf2cinfozf2_bglt, BgL_approxz00_bglt, BgL_approxz00_bglt, bool_t, bool_t);
static obj_t BGl__makezd2failzf2Cinfo6526z20zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_setqzf2cinfozf2_bglt BGl_wideningzd2setqzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt);
BGL_EXPORTED_DECL BgL_appzd2lyzf2cinfoz20_bglt BGl_makezd2appzd2lyzf2Cinfozf2zzcfa_infoz00(obj_t, BgL_typez00_bglt, BgL_nodez00_bglt, BgL_nodez00_bglt, BgL_approxz00_bglt);
static obj_t BGl__allocatezd2failzf2Cinfoz20zzcfa_infoz00(obj_t);
BGL_EXPORTED_DECL BgL_setqz00_bglt BGl_allocatezd2setqzf2Cinfoz20zzcfa_infoz00();
static obj_t BGl__wideningzd2boxzd2refzf2Ozd2Cinfoz20zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__sexitzf2Cinfozf3z01zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2boxzd2setz12zf2Cinfo3879z63zzcfa_infoz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_failz00_bglt BGl_allocatezd2failzf2Cinfoz20zzcfa_infoz00();
static obj_t BGl_structzb2objectzd2ze3objectzd2prezd2makezd2box3892z51zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2setqzf2Cinfoz20zzcfa_infoz00(obj_t);
BGL_EXPORTED_DECL BgL_jumpzd2exzd2itzf2cinfozf2_bglt BGl_wideningzd2jumpzd2exzd2itzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt);
extern BgL_sexitz00_bglt BGl_makezd2sexitzd2zzast_varz00(obj_t, bool_t);
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl__allocatezd2kwotezf2nodez20zzcfa_infoz00(obj_t);
static obj_t BGl__allocatezd2makezd2boxzf2Ozd2Cinfoz20zzcfa_infoz00(obj_t);
static obj_t BGl__prezd2clozd2envzf3zf3zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__fillzd2setqzf2Cinfoz126540z32zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2funcallzf2Cinfo3922za3zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zzcfa_infoz00();
static obj_t BGl__allocatezd2makezd2boxzf2Cinfozf2zzcfa_infoz00(obj_t);
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
BGL_EXPORTED_DECL BgL_kwotez00_bglt BGl_allocatezd2kwotezf2nodez20zzcfa_infoz00();
static obj_t BGl_objectzd2ze3structzd2cfunzf2Cinfo3978z11zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_reshapedzd2globalzf3z21zzcfa_infoz00(obj_t);
static obj_t BGl__makezd2funcallzf2Cinfo6544z20zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
extern BgL_cfunz00_bglt BGl_makezd2cfunzd2zzast_varz00(long, obj_t, obj_t, obj_t, bool_t, obj_t, obj_t, obj_t, bool_t, bool_t, obj_t);
BGL_EXPORTED_DECL BgL_scnstzf2cinfozf2_bglt BGl_wideningzd2scnstzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt);
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
static obj_t BGl_structzb2objectzd2ze3objectzd2cvarzf2Cinfo3956za3zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl__wideningzd2reshapedzd2globalz00zzcfa_infoz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzcfa_infoz00(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 *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_EXPORTED_DECL bool_t BGl_setqzf2Cinfozf3z01zzcfa_infoz00(obj_t);
BGL_EXPORTED_DEF obj_t BGl_reshapedzd2globalzd2zzcfa_infoz00 = BUNSPEC;
static obj_t BGl__conditionalzf2Cinfozf3z01zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_svarzf2Cinfozf2zzcfa_infoz00 = BUNSPEC;
static obj_t BGl_structzb2objectzd2ze3objectzd2setzd2exzd2itzf2Cinfo3901za3zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2setqzf2Cinfo3916z11zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_reshapedzd2localzf3z21zzcfa_infoz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_kwotezf2Cinfozf3z01zzcfa_infoz00(obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2approx3984z51zzcfa_infoz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BGl_makezd2boxzd2setz12zf2Ozd2Cinfoz32zzcfa_infoz00(obj_t, BgL_typez00_bglt, BgL_varz00_bglt, BgL_nodez00_bglt, BgL_approxz00_bglt);
static obj_t BGl__makezd2sexitzf2Cinfo6586z20zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_selectz00_bglt BGl_allocatezd2selectzf2Cinfoz20zzcfa_infoz00();
extern BgL_kwotez00_bglt BGl_makezd2kwotezd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t);
static obj_t BGl__fillzd2approxz126634zc0zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__makezd2selectzf2Cinfo6520z20zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_boxzd2refzf2Ozd2Cinfozf2zzcfa_infoz00 = BUNSPEC;
static obj_t BGl__makezd2cvarzf2Cinfo6592z20zzcfa_infoz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_conditionalz00_bglt BGl_allocatezd2conditionalzf2Cinfoz20zzcfa_infoz00();
BGL_EXPORTED_DECL bool_t BGl_makezd2boxzf2Ozd2Cinfozf3z01zzcfa_infoz00(obj_t);
static obj_t BGl_objectzd2ze3structzd2atomzf2Cinfo3936z11zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_prezd2makezd2boxz00_bglt BGl_makezd2prezd2makezd2boxzd2zzcfa_infoz00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_nodez00_bglt);
static obj_t BGl__wideningzd2jumpzd2exzd2itzf2Cinfoz20zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__fillzd2internzd2sfunzf2Cinfoz126617ze0zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_jumpzd2exzd2itzf2Cinfozf2zzcfa_infoz00 = BUNSPEC;
BGL_EXPORTED_DECL BgL_funcallzf2cinfozf2_bglt BGl_wideningzd2funcallzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt, BgL_approxz00_bglt, bool_t, bool_t);
static obj_t BGl__fillzd2scnstzf2Cinfoz126611z32zzcfa_infoz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_sexitzf2Cinfozf3z01zzcfa_infoz00(obj_t);
BGL_EXPORTED_DECL BgL_scnstz00_bglt BGl_allocatezd2scnstzf2Cinfoz20zzcfa_infoz00();
static obj_t BGl__allocatezd2reshapedzd2localz00zzcfa_infoz00(obj_t);
extern BgL_cvarz00_bglt BGl_makezd2cvarzd2zzast_varz00(bool_t);
static obj_t BGl__kwotezf2nodezf3z01zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__wideningzd2funcallzf2Cinfoz20zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern BgL_scnstz00_bglt BGl_makezd2scnstzd2zzast_varz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_externzd2sfunzf2Cinfozf3zd3zzcfa_infoz00(obj_t);
BGL_EXPORTED_DECL BgL_prezd2makezd2boxz00_bglt BGl_fillzd2prezd2makezd2boxz12zc0zzcfa_infoz00(BgL_prezd2makezd2boxz00_bglt);
BGL_EXPORTED_DECL BgL_makezd2boxzd2_bglt BGl_allocatezd2prezd2makezd2boxzd2zzcfa_infoz00();
static obj_t BGl__fillzd2boxzd2refzf2Cinfoz126480ze0zzcfa_infoz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_boxzd2setz12zc0_bglt BGl_allocatezd2boxzd2setz12zf2Ozd2Cinfoz32zzcfa_infoz00();
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
BGL_EXPORTED_DECL BgL_kwotezf2nodezf2_bglt BGl_wideningzd2kwotezf2nodez20zzcfa_infoz00(BgL_nodez00_bglt);
BGL_IMPORT BgL_objectz00_bglt BGl_structzb2objectzd2ze3objectz83zz__objectz00(BgL_objectz00_bglt, obj_t);
BGL_EXPORTED_DEF obj_t BGl_boxzd2refzf2Cinfoz20zzcfa_infoz00 = BUNSPEC;
static obj_t BGl__makezd2appzd2lyzf2Cinfo6550zf2zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_appzd2lyzd2_bglt BGl_allocatezd2appzd2lyzf2Cinfozf2zzcfa_infoz00();
static obj_t BGl_structzb2objectzd2ze3objectzd2failzf2Cinfo3910za3zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2externzd2sfunzf2Cinfo3974zc3zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__wideningzd2kwotezf2nodez20zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_internzd2sfunzf2cinfoz20_bglt BGl_wideningzd2internzd2sfunzf2Cinfozf2zzcfa_infoz00(BgL_approxz00_bglt, long);
BGL_EXPORTED_DECL BgL_prezd2clozd2envz00_bglt BGl_makezd2prezd2clozd2envzd2zzcfa_infoz00(obj_t);
static obj_t BGl__selectzf2Cinfozf3z01zzcfa_infoz00(obj_t, obj_t);
extern BgL_globalz00_bglt BGl_makezd2globalzd2zzast_varz00(obj_t, obj_t, BgL_typez00_bglt, BgL_valuez00_bglt, obj_t, obj_t, obj_t, long, obj_t, obj_t, bool_t, bool_t, bool_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cfunzf2cinfozf2_bglt BGl_makezd2cfunzf2Cinfoz20zzcfa_infoz00(long, obj_t, obj_t, obj_t, bool_t, obj_t, obj_t, obj_t, bool_t, bool_t, obj_t, BgL_approxz00_bglt);
static obj_t BGl_objectzd2ze3structzd2reshapedzd2global3941z31zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__boxzd2setz12zf2Cinfozf3zc1zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_svarzf2cinfozf2_bglt BGl_makezd2svarzf2Cinfoz20zzcfa_infoz00(obj_t, BgL_approxz00_bglt, bool_t);
static obj_t BGl__makezd2internzd2sfunzf2Cinfo6615zf2zzcfa_infoz00(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__allocatezd2scnstzf2Cinfoz20zzcfa_infoz00(obj_t);
static obj_t BGl__allocatezd2approxzd2zzcfa_infoz00(obj_t);
BGL_EXPORTED_DECL BgL_externzd2sfunzf2cinfoz20_bglt BGl_makezd2externzd2sfunzf2Cinfozf2zzcfa_infoz00(long, obj_t, obj_t, obj_t, bool_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, BgL_approxz00_bglt);
static obj_t BGl__fillzd2atomzf2Cinfoz126570z32zzcfa_infoz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_boxzd2setz12zf2cinfoz32_bglt BGl_fillzd2boxzd2setz12zf2Cinfoz12zf2zzcfa_infoz00(BgL_boxzd2setz12zf2cinfoz32_bglt, BgL_approxz00_bglt);
static obj_t BGl__kwotezf2Cinfozf3z01zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2boxzd2refzf2Ozd2Cinfo3862z11zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cfunzf2cinfozf2_bglt BGl_fillzd2cfunzf2Cinfoz12z32zzcfa_infoz00(BgL_cfunzf2cinfozf2_bglt, BgL_approxz00_bglt);
BGL_EXPORTED_DECL BgL_makezd2boxzd2_bglt BGl_allocatezd2makezd2boxzf2Cinfozf2zzcfa_infoz00();
BGL_EXPORTED_DECL BgL_kwotezf2nodezf2_bglt BGl_fillzd2kwotezf2nodez12z32zzcfa_infoz00(BgL_kwotezf2nodezf2_bglt, BgL_nodez00_bglt);
BGL_EXPORTED_DECL BgL_makezd2boxzf2cinfoz20_bglt BGl_makezd2makezd2boxzf2Cinfozf2zzcfa_infoz00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_nodez00_bglt, BgL_approxz00_bglt);
BGL_EXPORTED_DECL bool_t BGl_failzf2Cinfozf3z01zzcfa_infoz00(obj_t);
BGL_EXPORTED_DECL BgL_appzd2lyzf2cinfoz20_bglt BGl_fillzd2appzd2lyzf2Cinfoz12ze0zzcfa_infoz00(BgL_appzd2lyzf2cinfoz20_bglt, BgL_approxz00_bglt);
BGL_EXPORTED_DECL BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BGl_fillzd2boxzd2setz12zf2Ozd2Cinfoz12z20zzcfa_infoz00(BgL_boxzd2setz12zf2ozd2cinfoze0_bglt, BgL_approxz00_bglt);
BGL_EXPORTED_DECL BgL_globalz00_bglt BGl_allocatezd2reshapedzd2globalz00zzcfa_infoz00();
static obj_t BGl__wideningzd2selectzf2Cinfoz20zzcfa_infoz00(obj_t, obj_t);
extern obj_t BGl_cfunz00zzast_varz00;
static obj_t BGl__svarzf2Cinfozf3z01zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_atomzf2cinfozf2_bglt BGl_wideningzd2atomzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt);
static obj_t BGl__fillzd2failzf2Cinfoz126528z32zzcfa_infoz00(obj_t, obj_t, obj_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
static obj_t BGl__wideningzd2atomzf2Cinfoz20zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2jumpzd2exzd2itzf2Cinfo3897za3zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl__wideningzd2internzd2sfunzf2Cinfozf2zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl__externzd2sfunzf2Cinfozf3zd3zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__allocatezd2externzd2sfunzf2Cinfozf2zzcfa_infoz00(obj_t);
extern obj_t BGl_conditionalz00zzast_nodez00;
BGL_EXPORTED_DECL bool_t BGl_atomzf2Cinfozf3z01zzcfa_infoz00(obj_t);
static obj_t BGl_objectzd2ze3structzd2svarzf2Cinfo3958z11zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_boxzd2refzd2_bglt BGl_allocatezd2boxzd2refzf2Ozd2Cinfoz20zzcfa_infoz00();
static obj_t BGl__fillzd2cvarzf2Cinfoz126594z32zzcfa_infoz00(obj_t, obj_t, obj_t);
extern BgL_boxzd2setz12zc0_bglt BGl_makezd2boxzd2setz12z12zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_varz00_bglt, BgL_nodez00_bglt);
BGL_EXPORTED_DECL bool_t BGl_approxzf3zf3zzcfa_infoz00(obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2sexitzf2Cinfo3952za3zzcfa_infoz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cvarzf2cinfozf2_bglt BGl_wideningzd2cvarzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt);
BGL_EXPORTED_DECL BgL_localz00_bglt BGl_allocatezd2reshapedzd2localz00zzcfa_infoz00();
BGL_EXPORTED_DECL BgL_reshapedzd2localzd2_bglt BGl_makezd2reshapedzd2localz00zzcfa_infoz00(obj_t, obj_t, BgL_typez00_bglt, BgL_valuez00_bglt, obj_t, obj_t, obj_t, long, bool_t, long, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2boxzd2refzf2Cinfo3874z71zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2conditionalzf2Cinfo3912z11zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__wideningzd2setzd2exzd2itzf2Cinfoz20zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_cfunzf2Cinfozf2zzcfa_infoz00 = BUNSPEC;
BGL_EXPORTED_DECL BgL_boxzd2refzf2ozd2cinfozf2_bglt BGl_fillzd2boxzd2refzf2Ozd2Cinfoz12z32zzcfa_infoz00(BgL_boxzd2refzf2ozd2cinfozf2_bglt, BgL_approxz00_bglt);
static obj_t BGl__wideningzd2kwotezf2Cinfoz20zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__fillzd2prezd2makezd2boxz126504zc0zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_funcallzf2Cinfozf2zzcfa_infoz00 = BUNSPEC;
static obj_t BGl__makezd2boxzf2Ozd2Cinfozf3z01zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_selectzf2Cinfozf3z01zzcfa_infoz00(obj_t);
static obj_t BGl__fillzd2kwotezf2nodez126564z32zzcfa_infoz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_selectzf2cinfozf2_bglt BGl_wideningzd2selectzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt);
BGL_EXPORTED_DECL BgL_svarz00_bglt BGl_allocatezd2svarzf2Cinfoz20zzcfa_infoz00();
BGL_EXPORTED_DEF obj_t BGl_kwotezf2nodezf2zzcfa_infoz00 = BUNSPEC;
static obj_t BGl__allocatezd2boxzd2setz12zf2Cinfoze0zzcfa_infoz00(obj_t);
static obj_t BGl__allocatezd2svarzf2Cinfoz20zzcfa_infoz00(obj_t);
extern obj_t BGl_cvarz00zzast_varz00;
static obj_t BGl__wideningzd2boxzd2refzf2Cinfozf2zzcfa_infoz00(obj_t, obj_t);
extern obj_t BGl_localz00zzast_varz00;
BGL_EXPORTED_DECL bool_t BGl_boxzd2setz12zf2Cinfozf3zc1zzcfa_infoz00(obj_t);
extern BgL_setqz00_bglt BGl_makezd2setqzd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_varz00_bglt, BgL_nodez00_bglt);
static obj_t BGl_objectzd2ze3structzd2funcallzf2Cinfo3920z11zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__makezd2boxzd2setz12zf2Ozd2Cinfo6472z32zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_funcallzf2Cinfozf3z01zzcfa_infoz00(obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2selectzf2Cinfo3906za3zzcfa_infoz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_appzd2lyzf2Cinfoz20zzcfa_infoz00 = BUNSPEC;
BGL_EXPORTED_DECL BgL_approxz00_bglt BGl_allocatezd2approxzd2zzcfa_infoz00();
BGL_EXPORTED_DECL BgL_boxzd2refzf2cinfoz20_bglt BGl_wideningzd2boxzd2refzf2Cinfozf2zzcfa_infoz00(BgL_approxz00_bglt);
static obj_t BGl_structzb2objectzd2ze3objectzd2scnstzf2Cinfo3968za3zzcfa_infoz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_conditionalzf2Cinfozf2zzcfa_infoz00 = BUNSPEC;
BGL_EXPORTED_DEF obj_t BGl_setqzf2Cinfozf2zzcfa_infoz00 = BUNSPEC;
static obj_t BGl__wideningzd2appzd2lyzf2Cinfozf2zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2boxzd2setz12zf2Ozd2Cinfo3869zb1zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2kwotezf2Cinfo3930za3zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl__fillzd2prezd2clozd2envz126605zc0zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_kwotezf2Cinfozf2zzcfa_infoz00 = BUNSPEC;
static obj_t BGl__fillzd2makezd2boxzf2Ozd2Cinfoz126492z32zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t);
extern BgL_makezd2boxzd2_bglt BGl_makezd2makezd2boxz00zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_nodez00_bglt);
static obj_t BGl__fillzd2boxzd2setz12zf2Ozd2Cinfoz126474z20zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl__fillzd2appzd2lyzf2Cinfoz126552ze0zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl__makezd2reshapedzd2local6580z00zzcfa_infoz00(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__fillzd2selectzf2Cinfoz126522z32zzcfa_infoz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BGl_wideningzd2boxzd2setz12zf2Ozd2Cinfoz32zzcfa_infoz00(BgL_approxz00_bglt);
BGL_EXPORTED_DECL BgL_scnstzf2cinfozf2_bglt BGl_fillzd2scnstzf2Cinfoz12z32zzcfa_infoz00(BgL_scnstzf2cinfozf2_bglt, BgL_approxz00_bglt);
static obj_t BGl_structzb2objectzd2ze3objectzd2prezd2clozd2env3964z51zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl__wideningzd2makezd2boxzf2Cinfozf2zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl_objectzd2initzd2zzcfa_infoz00();
static obj_t BGl__makezd2cfunzf2Cinfo6627z20zzcfa_infoz00(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__jumpzd2exzd2itzf2Cinfozf3z01zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__wideningzd2svarzf2Cinfoz20zzcfa_infoz00(obj_t, obj_t, obj_t);
extern BgL_sfunz00_bglt BGl_makezd2sfunzd2zzast_varz00(long, obj_t, obj_t, obj_t, bool_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
extern BgL_selectz00_bglt BGl_makezd2selectzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_nodez00_bglt, obj_t, BgL_typez00_bglt);
BGL_EXPORTED_DECL BgL_kwotezf2cinfozf2_bglt BGl_fillzd2kwotezf2Cinfoz12z32zzcfa_infoz00(BgL_kwotezf2cinfozf2_bglt, BgL_approxz00_bglt);
BGL_EXPORTED_DECL bool_t BGl_makezd2boxzf2Cinfozf3zd3zzcfa_infoz00(obj_t);
static obj_t BGl_objectzd2ze3structzd2approx3982ze3zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzcfa_infoz00 = BUNSPEC;
static obj_t BGl_objectzd2ze3structzd2selectzf2Cinfo3904z11zzcfa_infoz00(obj_t, obj_t);
extern BgL_appzd2lyzd2_bglt BGl_makezd2appzd2lyz00zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_nodez00_bglt, BgL_nodez00_bglt);
static obj_t BGl_objectzd2ze3structzd2kwotezf2Cinfo3928z11zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__makezd2svarzf2Cinfo6598z20zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2selectzf2Cinfoz20zzcfa_infoz00(obj_t);
BGL_EXPORTED_DECL BgL_failzf2cinfozf2_bglt BGl_fillzd2failzf2Cinfoz12z32zzcfa_infoz00(BgL_failzf2cinfozf2_bglt, BgL_approxz00_bglt);
BGL_EXPORTED_DECL bool_t BGl_kwotezf2nodezf3z01zzcfa_infoz00(obj_t);
static obj_t BGl__makezd2makezd2boxzf2Cinfo6496zf2zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_reshapedzd2localzd2_bglt BGl_wideningzd2reshapedzd2localz00zzcfa_infoz00(obj_t);
static obj_t BGl__cfunzf2Cinfozf3z01zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_reshapedzd2localzd2_bglt BGl_fillzd2reshapedzd2localz12z12zzcfa_infoz00(BgL_reshapedzd2localzd2_bglt, obj_t);
extern BgL_funcallz00_bglt BGl_makezd2funcallzd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_nodez00_bglt, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2appzd2lyzf2Cinfo3924zc3zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_externzd2sfunzf2cinfoz20_bglt BGl_wideningzd2externzd2sfunzf2Cinfozf2zzcfa_infoz00(BgL_approxz00_bglt);
BGL_EXPORTED_DECL BgL_setzd2exzd2itzf2cinfozf2_bglt BGl_makezd2setzd2exzd2itzf2Cinfoz20zzcfa_infoz00(obj_t, BgL_typez00_bglt, BgL_varz00_bglt, BgL_nodez00_bglt, BgL_approxz00_bglt);
static obj_t BGl__allocatezd2appzd2lyzf2Cinfozf2zzcfa_infoz00(obj_t);
BGL_EXPORTED_DECL BgL_prezd2clozd2envz00_bglt BGl_wideningzd2prezd2clozd2envzd2zzcfa_infoz00();
BGL_EXPORTED_DECL BgL_scnstzf2cinfozf2_bglt BGl_makezd2scnstzf2Cinfoz20zzcfa_infoz00(obj_t, obj_t, obj_t, BgL_approxz00_bglt);
extern BgL_localz00_bglt BGl_makezd2localzd2zzast_varz00(obj_t, obj_t, BgL_typez00_bglt, BgL_valuez00_bglt, obj_t, obj_t, obj_t, long, bool_t, long);
static obj_t BGl__allocatezd2prezd2makezd2boxzd2zzcfa_infoz00(obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2reshapedzd2global3943z83zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl__makezd2jumpzd2exzd2itzf2Cinfo6508z20zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_sexitzf2Cinfozf2zzcfa_infoz00 = BUNSPEC;
static obj_t BGl_structzb2objectzd2ze3objectzd2setqzf2Cinfo3918za3zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl__makezd2boxzf2Cinfozf3zd3zzcfa_infoz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_makezd2boxzf2ozd2cinfozf2_bglt BGl_wideningzd2makezd2boxzf2Ozd2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt, BgL_approxz00_bglt);
BGL_EXPORTED_DEF obj_t BGl_makezd2boxzf2Ozd2Cinfozf2zzcfa_infoz00 = BUNSPEC;
static obj_t BGl_libraryzd2moduleszd2initz00zzcfa_infoz00();
BGL_EXPORTED_DECL BgL_internzd2sfunzf2cinfoz20_bglt BGl_makezd2internzd2sfunzf2Cinfozf2zzcfa_infoz00(long, obj_t, obj_t, obj_t, bool_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, BgL_approxz00_bglt, long);
static obj_t BGl__fillzd2boxzd2refzf2Ozd2Cinfoz126468z32zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl__wideningzd2makezd2boxzf2Ozd2Cinfoz20zzcfa_infoz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_setqzf2cinfozf2_bglt BGl_makezd2setqzf2Cinfoz20zzcfa_infoz00(obj_t, BgL_typez00_bglt, BgL_varz00_bglt, BgL_nodez00_bglt, BgL_approxz00_bglt);
extern BgL_boxzd2refzd2_bglt BGl_makezd2boxzd2refz00zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt);
static obj_t BGl__atomzf2Cinfozf3z01zzcfa_infoz00(obj_t, obj_t);
static obj_t BGl__allocatezd2cfunzf2Cinfoz20zzcfa_infoz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_boxzd2refzf2Ozd2Cinfozf3z01zzcfa_infoz00(obj_t);
BGL_EXPORTED_DECL BgL_cfunz00_bglt BGl_allocatezd2cfunzf2Cinfoz20zzcfa_infoz00();
BGL_EXPORTED_DEF obj_t BGl_approxz00zzcfa_infoz00 = BUNSPEC;
static obj_t BGl__fillzd2svarzf2Cinfoz126600z32zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_selectzf2Cinfozf2zzcfa_infoz00 = BUNSPEC;
static obj_t BGl_structzb2objectzd2ze3objectzd2atomzf2Cinfo3939za3zzcfa_infoz00(obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2boxzd2setz12zf2Cinfo3877zd1zzcfa_infoz00(obj_t, obj_t);
extern BgL_svarz00_bglt BGl_makezd2svarzd2zzast_varz00(obj_t);
BGL_EXPORTED_DECL BgL_makezd2boxzf2cinfoz20_bglt BGl_wideningzd2makezd2boxzf2Cinfozf2zzcfa_infoz00(BgL_approxz00_bglt);
BGL_EXPORTED_DECL BgL_svarz00_bglt BGl_allocatezd2prezd2clozd2envzd2zzcfa_infoz00();
static obj_t BGl_objectzd2ze3structzd2boxzd2refzf2Cinfo3871zc3zzcfa_infoz00(obj_t, obj_t);
extern obj_t BGl_setqz00zzast_nodez00;
BGL_IMPORT obj_t BGl_findzd2superzd2classzd2methodzd2zz__objectz00(BgL_objectz00_bglt, obj_t, obj_t);
static obj_t BGl__wideningzd2prezd2clozd2envzd2zzcfa_infoz00(obj_t);
static obj_t BGl__makezd2boxzd2setz12zf2Cinfo6484ze0zzcfa_infoz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_sexitzf2cinfozf2_bglt BGl_fillzd2sexitzf2Cinfoz12z32zzcfa_infoz00(BgL_sexitzf2cinfozf2_bglt, BgL_approxz00_bglt);
static obj_t __cnst[ 29 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2svarzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__allocateza7d2svarza7f2cinfoza720za7za7cfa_infoza7008232z00, BGl__allocatezd2svarzf2Cinfoz20zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2selectzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__makeza7d2selectza7f2cinfo6520za720za7za7cfa_infoza7008233z00, BGl__makezd2selectzf2Cinfo6520z20zzcfa_infoz00, 0L, 8 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2prezd2makezd2boxzd2envz00zzcfa_infoz00, BgL_bgl__wideningza7d2preza7d2makeza7d2boxza7d2za7za7cfa_infoza7008234za7, BGl__wideningzd2prezd2makezd2boxzd2zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2boxzd2setz12zf2Cinfoz12zd2envz20zzcfa_infoz00, BgL_bgl__fillza7d2boxza7d2setza712za7f2cinfoza7126486za7f2za7za7cfa_infoza7008235za7, BGl__fillzd2boxzd2setz12zf2Cinfoz126486zf2zzcfa_infoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2scnstzf2Cinfoz12zd2envze0zzcfa_infoz00, BgL_bgl__fillza7d2scnstza7f2cinfoza7126611za732za7za7cfa_infoza7008236za7, BGl__fillzd2scnstzf2Cinfoz126611z32zzcfa_infoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2funcallzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__wideningza7d2funcallza7f2cinfoza720za7za7cfa_infoza7008237z00, BGl__wideningzd2funcallzf2Cinfoz20zzcfa_infoz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2approxzd2envz00zzcfa_infoz00, BgL_bgl__allocateza7d2approxza7d2za7za7cfa_infoza7008238za7, BGl__allocatezd2approxzd2zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_prezd2makezd2boxzf3zd2envz21zzcfa_infoz00, BgL_bgl__preza7d2makeza7d2boxza7f3za7f3za7za7cfa_infoza7008239za7, BGl__prezd2makezd2boxzf3zf3zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2reshapedzd2globalzd2envzd2zzcfa_infoz00, BgL_bgl__allocateza7d2reshapedza7d2globalza700za7za7cfa_infoza7008240z00, BGl__allocatezd2reshapedzd2globalz00zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_prezd2clozd2envzf3zd2envz21zzcfa_infoz00, BgL_bgl__preza7d2cloza7d2envza7f3za7f3za7za7cfa_infoza7008241za7, BGl__prezd2clozd2envzf3zf3zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2jumpzd2exzd2itzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__wideningza7d2jumpza7d2exza7d2itza7f2cinfoza720za7za7cfa_infoza7008242z00, BGl__wideningzd2jumpzd2exzd2itzf2Cinfoz20zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2selectzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__allocateza7d2selectza7f2cinfoza720za7za7cfa_infoza7008243z00, BGl__allocatezd2selectzf2Cinfoz20zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2sexitzf2Cinfoz12zd2envze0zzcfa_infoz00, BgL_bgl__fillza7d2sexitza7f2cinfoza7126588za732za7za7cfa_infoza7008244za7, BGl__fillzd2sexitzf2Cinfoz126588z32zzcfa_infoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2kwotezf2nodezd2envzf2zzcfa_infoz00, BgL_bgl__wideningza7d2kwoteza7f2nodeza720za7za7cfa_infoza7008245z00, BGl__wideningzd2kwotezf2nodez20zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2approxz12zd2envz12zzcfa_infoz00, BgL_bgl__fillza7d2approxza7126634za7c0za7za7cfa_infoza7008246z00, BGl__fillzd2approxz126634zc0zzcfa_infoz00, 0L, 6 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2cfunzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__wideningza7d2cfunza7f2cinfoza720za7za7cfa_infoza7008247z00, BGl__wideningzd2cfunzf2Cinfoz20zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2failzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__wideningza7d2failza7f2cinfoza720za7za7cfa_infoza7008248z00, BGl__wideningzd2failzf2Cinfoz20zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2reshapedzd2localzd2envzd2zzcfa_infoz00, BgL_bgl__wideningza7d2reshapedza7d2localza700za7za7cfa_infoza7008249z00, BGl__wideningzd2reshapedzd2localz00zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cvarzf2Cinfozf3zd2envzd3zzcfa_infoz00, BgL_bgl__cvarza7f2cinfoza7f3za701za7za7cfa_infoza7008250z00, BGl__cvarzf2Cinfozf3z01zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2atomzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__makeza7d2atomza7f2cinfo6568za720za7za7cfa_infoza7008251z00, BGl__makezd2atomzf2Cinfo6568z20zzcfa_infoz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_selectzf2Cinfozf3zd2envzd3zzcfa_infoz00, BgL_bgl__selectza7f2cinfoza7f3za701za7za7cfa_infoza7008252z00, BGl__selectzf2Cinfozf3z01zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2jumpzd2exzd2itzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__makeza7d2jumpza7d2exza7d2itza7f2cinfo6508za720za7za7cfa_infoza7008253z00, BGl__makezd2jumpzd2exzd2itzf2Cinfo6508z20zzcfa_infoz00, 0L, 5 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2setqzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__makeza7d2setqza7f2cinfo6538za720za7za7cfa_infoza7008254z00, BGl__makezd2setqzf2Cinfo6538z20zzcfa_infoz00, 0L, 5 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2boxzd2setz12zf2Cinfozd2envz32zzcfa_infoz00, BgL_bgl__makeza7d2boxza7d2setza712za7f2cinfo6484za7e0za7za7cfa_infoza7008255z00, BGl__makezd2boxzd2setz12zf2Cinfo6484ze0zzcfa_infoz00, 0L, 5 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2setqzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__allocateza7d2setqza7f2cinfoza720za7za7cfa_infoza7008256z00, BGl__allocatezd2setqzf2Cinfoz20zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_setqzf2Cinfozf3zd2envzd3zzcfa_infoz00, BgL_bgl__setqza7f2cinfoza7f3za701za7za7cfa_infoza7008257z00, BGl__setqzf2Cinfozf3z01zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_kwotezf2Cinfozf3zd2envzd3zzcfa_infoz00, BgL_bgl__kwoteza7f2cinfoza7f3za701za7za7cfa_infoza7008258z00, BGl__kwotezf2Cinfozf3z01zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2boxzd2refzf2Ozd2Cinfoz12zd2envze0zzcfa_infoz00, BgL_bgl__fillza7d2boxza7d2refza7f2oza7d2cinfoza7126468za732za7za7cfa_infoza7008259za7, BGl__fillzd2boxzd2refzf2Ozd2Cinfoz126468z32zzcfa_infoz00, 0L, 2 );
BGL_IMPORT obj_t BGl_objectzd2ze3structzd2envze3zz__objectz00;
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2appzd2lyzf2Cinfozd2envz20zzcfa_infoz00, BgL_bgl__wideningza7d2appza7d2lyza7f2cinfoza7f2za7za7cfa_infoza7008260za7, BGl__wideningzd2appzd2lyzf2Cinfozf2zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2makezd2boxzf2Ozd2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__allocateza7d2makeza7d2boxza7f2oza7d2cinfoza720za7za7cfa_infoza7008261z00, BGl__allocatezd2makezd2boxzf2Ozd2Cinfoz20zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_boxzd2refzf2Ozd2Cinfozf3zd2envzd3zzcfa_infoz00, BgL_bgl__boxza7d2refza7f2oza7d2cinfoza7f3za701za7za7cfa_infoza7008262z00, BGl__boxzd2refzf2Ozd2Cinfozf3z01zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2setqzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__wideningza7d2setqza7f2cinfoza720za7za7cfa_infoza7008263z00, BGl__wideningzd2setqzf2Cinfoz20zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2boxzf2Ozd2Cinfozf3zd2envzd3zzcfa_infoz00, BgL_bgl__makeza7d2boxza7f2oza7d2cinfoza7f3za701za7za7cfa_infoza7008264z00, BGl__makezd2boxzf2Ozd2Cinfozf3z01zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_reshapedzd2localzf3zd2envzf3zzcfa_infoz00, BgL_bgl__reshapedza7d2localza7f3za721za7za7cfa_infoza7008265z00, BGl__reshapedzd2localzf3z21zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2prezd2clozd2envz12zd2envz12zzcfa_infoz00, BgL_bgl__fillza7d2preza7d2cloza7d2envza7126605za7c0za7za7cfa_infoza7008266z00, BGl__fillzd2prezd2clozd2envz126605zc0zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2boxzd2refzf2Cinfoz12zd2envz32zzcfa_infoz00, BgL_bgl__fillza7d2boxza7d2refza7f2cinfoza7126480za7e0za7za7cfa_infoza7008267z00, BGl__fillzd2boxzd2refzf2Cinfoz126480ze0zzcfa_infoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2boxzd2setz12zf2Cinfozd2envz32zzcfa_infoz00, BgL_bgl__allocateza7d2boxza7d2setza712za7f2cinfoza7e0za7za7cfa_infoza7008268z00, BGl__allocatezd2boxzd2setz12zf2Cinfoze0zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2makezd2boxzf2Cinfozd2envz20zzcfa_infoz00, BgL_bgl__wideningza7d2makeza7d2boxza7f2cinfoza7f2za7za7cfa_infoza7008269za7, BGl__wideningzd2makezd2boxzf2Cinfozf2zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_boxzd2refzf2Cinfozf3zd2envz01zzcfa_infoz00, BgL_bgl__boxza7d2refza7f2cinfoza7f3za7d3za7za7cfa_infoza7008270za7, BGl__boxzd2refzf2Cinfozf3zd3zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_atomzf2Cinfozf3zd2envzd3zzcfa_infoz00, BgL_bgl__atomza7f2cinfoza7f3za701za7za7cfa_infoza7008271z00, BGl__atomzf2Cinfozf3z01zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_internzd2sfunzf2Cinfozf3zd2envz01zzcfa_infoz00, BgL_bgl__internza7d2sfunza7f2cinfoza7f3za7d3za7za7cfa_infoza7008272za7, BGl__internzd2sfunzf2Cinfozf3zd3zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2kwotezf2Cinfoz12zd2envze0zzcfa_infoz00, BgL_bgl__fillza7d2kwoteza7f2cinfoza7126558za732za7za7cfa_infoza7008273za7, BGl__fillzd2kwotezf2Cinfoz126558z32zzcfa_infoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2cvarzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__wideningza7d2cvarza7f2cinfoza720za7za7cfa_infoza7008274z00, BGl__wideningzd2cvarzf2Cinfoz20zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2externzd2sfunzf2Cinfozd2envz20zzcfa_infoz00, BgL_bgl__makeza7d2externza7d2sfunza7f2cinfo6621za7f2za7za7cfa_infoza7008275za7, BGl__makezd2externzd2sfunzf2Cinfo6621zf2zzcfa_infoz00, 0L, 14 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2boxzd2setz12zf2Ozd2Cinfozd2envze0zzcfa_infoz00, BgL_bgl__makeza7d2boxza7d2setza712za7f2oza7d2cinfo6472za732za7za7cfa_infoza7008276za7, BGl__makezd2boxzd2setz12zf2Ozd2Cinfo6472z32zzcfa_infoz00, 0L, 5 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2reshapedzd2globalzd2envzd2zzcfa_infoz00, BgL_bgl__wideningza7d2reshapedza7d2globalza700za7za7cfa_infoza7008277z00, BGl__wideningzd2reshapedzd2globalz00zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2conditionalzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__wideningza7d2conditionalza7f2cinfoza720za7za7cfa_infoza7008278z00, BGl__wideningzd2conditionalzf2Cinfoz20zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2conditionalzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__makeza7d2conditionalza7f2cinfo6532za720za7za7cfa_infoza7008279z00, BGl__makezd2conditionalzf2Cinfo6532z20zzcfa_infoz00, 0L, 8 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2makezd2boxzf2Cinfozd2envz20zzcfa_infoz00, BgL_bgl__allocateza7d2makeza7d2boxza7f2cinfoza7f2za7za7cfa_infoza7008280za7, BGl__allocatezd2makezd2boxzf2Cinfozf2zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2boxzd2setz12zf2Cinfozd2envz32zzcfa_infoz00, BgL_bgl__wideningza7d2boxza7d2setza712za7f2cinfoza7e0za7za7cfa_infoza7008281z00, BGl__wideningzd2boxzd2setz12zf2Cinfoze0zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2cvarzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__allocateza7d2cvarza7f2cinfoza720za7za7cfa_infoza7008282z00, BGl__allocatezd2cvarzf2Cinfoz20zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2cvarzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__makeza7d2cvarza7f2cinfo6592za720za7za7cfa_infoza7008283z00, BGl__makezd2cvarzf2Cinfo6592z20zzcfa_infoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_funcallzf2Cinfozf3zd2envzd3zzcfa_infoz00, BgL_bgl__funcallza7f2cinfoza7f3za701za7za7cfa_infoza7008284z00, BGl__funcallzf2Cinfozf3z01zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2jumpzd2exzd2itzf2Cinfoz12zd2envze0zzcfa_infoz00, BgL_bgl__fillza7d2jumpza7d2exza7d2itza7f2cinfoza7126510za732za7za7cfa_infoza7008285za7, BGl__fillzd2jumpzd2exzd2itzf2Cinfoz126510z32zzcfa_infoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2externzd2sfunzf2Cinfozd2envz20zzcfa_infoz00, BgL_bgl__wideningza7d2externza7d2sfunza7f2cinfoza7f2za7za7cfa_infoza7008286za7, BGl__wideningzd2externzd2sfunzf2Cinfozf2zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_kwotezf2nodezf3zd2envzd3zzcfa_infoz00, BgL_bgl__kwoteza7f2nodeza7f3za701za7za7cfa_infoza7008287z00, BGl__kwotezf2nodezf3z01zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2failzf2Cinfoz12zd2envze0zzcfa_infoz00, BgL_bgl__fillza7d2failza7f2cinfoza7126528za732za7za7cfa_infoza7008288za7, BGl__fillzd2failzf2Cinfoz126528z32zzcfa_infoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2internzd2sfunzf2Cinfozd2envz20zzcfa_infoz00, BgL_bgl__allocateza7d2internza7d2sfunza7f2cinfoza7f2za7za7cfa_infoza7008289za7, BGl__allocatezd2internzd2sfunzf2Cinfozf2zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2boxzd2refzf2Cinfozd2envz20zzcfa_infoz00, BgL_bgl__allocateza7d2boxza7d2refza7f2cinfoza7f2za7za7cfa_infoza7008290za7, BGl__allocatezd2boxzd2refzf2Cinfozf2zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2setqzf2Cinfoz12zd2envze0zzcfa_infoz00, BgL_bgl__fillza7d2setqza7f2cinfoza7126540za732za7za7cfa_infoza7008291za7, BGl__fillzd2setqzf2Cinfoz126540z32zzcfa_infoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2prezd2makezd2boxzd2envz00zzcfa_infoz00, BgL_bgl__allocateza7d2preza7d2makeza7d2boxza7d2za7za7cfa_infoza7008292za7, BGl__allocatezd2prezd2makezd2boxzd2zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2prezd2clozd2envzd2envz00zzcfa_infoz00, BgL_bgl__makeza7d2preza7d2cloza7d2envza7d2za7za7cfa_infoza7008293za7, BGl__makezd2prezd2clozd2envzd2zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2internzd2sfunzf2Cinfozd2envz20zzcfa_infoz00, BgL_bgl__makeza7d2internza7d2sfunza7f2cinfo6615za7f2za7za7cfa_infoza7008294za7, BGl__makezd2internzd2sfunzf2Cinfo6615zf2zzcfa_infoz00, 0L, 15 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2reshapedzd2localzd2envzd2zzcfa_infoz00, BgL_bgl__allocateza7d2reshapedza7d2localza700za7za7cfa_infoza7008295z00, BGl__allocatezd2reshapedzd2localz00zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2failzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__makeza7d2failza7f2cinfo6526za720za7za7cfa_infoza7008296z00, BGl__makezd2failzf2Cinfo6526z20zzcfa_infoz00, 0L, 6 );
DEFINE_EXPORT_PROCEDURE( BGl_boxzd2setz12zf2Ozd2Cinfozf3zd2envzc1zzcfa_infoz00, BgL_bgl__boxza7d2setza712za7f2oza7d2cinfoza7f3za713za7za7cfa_infoza7008297za7, BGl__boxzd2setz12zf2Ozd2Cinfozf3z13zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_approxzf3zd2envz21zzcfa_infoz00, BgL_bgl__approxza7f3za7f3za7za7cfa_infoza7008298za7, BGl__approxzf3zf3zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2funcallzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__makeza7d2funcallza7f2cinfo6544za720za7za7cfa_infoza7008299z00, BGl__makezd2funcallzf2Cinfo6544z20zzcfa_infoz00, 0L, 9 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2approxzd2envz00zzcfa_infoz00, BgL_bgl__makeza7d2approx6632za7d2za7za7cfa_infoza7008300za7, BGl__makezd2approx6632zd2zzcfa_infoz00, 0L, 5 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2sexitzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__wideningza7d2sexitza7f2cinfoza720za7za7cfa_infoza7008301z00, BGl__wideningzd2sexitzf2Cinfoz20zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cfunzf2Cinfozf3zd2envzd3zzcfa_infoz00, BgL_bgl__cfunza7f2cinfoza7f3za701za7za7cfa_infoza7008302z00, BGl__cfunzf2Cinfozf3z01zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2failzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__allocateza7d2failza7f2cinfoza720za7za7cfa_infoza7008303z00, BGl__allocatezd2failzf2Cinfoz20zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2setzd2exzd2itzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__allocateza7d2setza7d2exza7d2itza7f2cinfoza720za7za7cfa_infoza7008304z00, BGl__allocatezd2setzd2exzd2itzf2Cinfoz20zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2kwotezf2nodezd2envzf2zzcfa_infoz00, BgL_bgl__allocateza7d2kwoteza7f2nodeza720za7za7cfa_infoza7008305z00, BGl__allocatezd2kwotezf2nodez20zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2kwotezf2nodezd2envzf2zzcfa_infoz00, BgL_bgl__makeza7d2kwoteza7f2node6562za720za7za7cfa_infoza7008306z00, BGl__makezd2kwotezf2node6562z20zzcfa_infoz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2atomzf2Cinfoz12zd2envze0zzcfa_infoz00, BgL_bgl__fillza7d2atomza7f2cinfoza7126570za732za7za7cfa_infoza7008307za7, BGl__fillzd2atomzf2Cinfoz126570z32zzcfa_infoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2kwotezf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__makeza7d2kwoteza7f2cinfo6556za720za7za7cfa_infoza7008308z00, BGl__makezd2kwotezf2Cinfo6556z20zzcfa_infoz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2kwotezf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__allocateza7d2kwoteza7f2cinfoza720za7za7cfa_infoza7008309z00, BGl__allocatezd2kwotezf2Cinfoz20zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2prezd2clozd2envzd2envz00zzcfa_infoz00, BgL_bgl__allocateza7d2preza7d2cloza7d2envza7d2za7za7cfa_infoza7008310za7, BGl__allocatezd2prezd2clozd2envzd2zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2scnstzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__wideningza7d2scnstza7f2cinfoza720za7za7cfa_infoza7008311z00, BGl__wideningzd2scnstzf2Cinfoz20zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2reshapedzd2globalzd2envzd2zzcfa_infoz00, BgL_bgl__makeza7d2reshapedza7d2global6574za700za7za7cfa_infoza7008312z00, BGl__makezd2reshapedzd2global6574z00zzcfa_infoz00, 0L, 16 );
DEFINE_EXPORT_PROCEDURE( BGl_appzd2lyzf2Cinfozf3zd2envz01zzcfa_infoz00, BgL_bgl__appza7d2lyza7f2cinfoza7f3za7d3za7za7cfa_infoza7008313za7, BGl__appzd2lyzf2Cinfozf3zd3zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2scnstzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__makeza7d2scnstza7f2cinfo6609za720za7za7cfa_infoza7008314z00, BGl__makezd2scnstzf2Cinfo6609z20zzcfa_infoz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2funcallzf2Cinfoz12zd2envze0zzcfa_infoz00, BgL_bgl__fillza7d2funcallza7f2cinfoza7126546za732za7za7cfa_infoza7008315za7, BGl__fillzd2funcallzf2Cinfoz126546z32zzcfa_infoz00, 0L, 5 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2scnstzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__allocateza7d2scnstza7f2cinfoza720za7za7cfa_infoza7008316z00, BGl__allocatezd2scnstzf2Cinfoz20zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2prezd2clozd2envzd2envz00zzcfa_infoz00, BgL_bgl__wideningza7d2preza7d2cloza7d2envza7d2za7za7cfa_infoza7008317za7, BGl__wideningzd2prezd2clozd2envzd2zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2kwotezf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__wideningza7d2kwoteza7f2cinfoza720za7za7cfa_infoza7008318z00, BGl__wideningzd2kwotezf2Cinfoz20zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2selectzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__wideningza7d2selectza7f2cinfoza720za7za7cfa_infoza7008319z00, BGl__wideningzd2selectzf2Cinfoz20zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_svarzf2Cinfozf3zd2envzd3zzcfa_infoz00, BgL_bgl__svarza7f2cinfoza7f3za701za7za7cfa_infoza7008320z00, BGl__svarzf2Cinfozf3z01zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_conditionalzf2Cinfozf3zd2envzd3zzcfa_infoz00, BgL_bgl__conditionalza7f2cinfoza7f3za701za7za7cfa_infoza7008321z00, BGl__conditionalzf2Cinfozf3z01zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2prezd2makezd2boxzd2envz00zzcfa_infoz00, BgL_bgl__makeza7d2preza7d2makeza7d2box6502za7d2za7za7cfa_infoza7008322za7, BGl__makezd2prezd2makezd2box6502zd2zzcfa_infoz00, 0L, 5 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2internzd2sfunzf2Cinfoz12zd2envz32zzcfa_infoz00, BgL_bgl__fillza7d2internza7d2sfunza7f2cinfoza7126617za7e0za7za7cfa_infoza7008323z00, BGl__fillzd2internzd2sfunzf2Cinfoz126617ze0zzcfa_infoz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2svarzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__wideningza7d2svarza7f2cinfoza720za7za7cfa_infoza7008324z00, BGl__wideningzd2svarzf2Cinfoz20zzcfa_infoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2kwotezf2nodez12zd2envze0zzcfa_infoz00, BgL_bgl__fillza7d2kwoteza7f2nodeza7126564za732za7za7cfa_infoza7008325za7, BGl__fillzd2kwotezf2nodez126564z32zzcfa_infoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_failzf2Cinfozf3zd2envzd3zzcfa_infoz00, BgL_bgl__failza7f2cinfoza7f3za701za7za7cfa_infoza7008326z00, BGl__failzf2Cinfozf3z01zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2boxzd2refzf2Ozd2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__makeza7d2boxza7d2refza7f2oza7d2cinfo6466za720za7za7cfa_infoza7008327z00, BGl__makezd2boxzd2refzf2Ozd2Cinfo6466z20zzcfa_infoz00, 0L, 6 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2boxzd2setz12zf2Ozd2Cinfozd2envze0zzcfa_infoz00, BgL_bgl__allocateza7d2boxza7d2setza712za7f2oza7d2cinfoza732za7za7cfa_infoza7008328za7, BGl__allocatezd2boxzd2setz12zf2Ozd2Cinfoz32zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2sexitzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__makeza7d2sexitza7f2cinfo6586za720za7za7cfa_infoza7008329z00, BGl__makezd2sexitzf2Cinfo6586z20zzcfa_infoz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2boxzd2refzf2Ozd2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__allocateza7d2boxza7d2refza7f2oza7d2cinfoza720za7za7cfa_infoza7008330z00, BGl__allocatezd2boxzd2refzf2Ozd2Cinfoz20zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2sexitzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__allocateza7d2sexitza7f2cinfoza720za7za7cfa_infoza7008331z00, BGl__allocatezd2sexitzf2Cinfoz20zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2boxzd2refzf2Cinfozd2envz20zzcfa_infoz00, BgL_bgl__makeza7d2boxza7d2refza7f2cinfo6478za7f2za7za7cfa_infoza7008332za7, BGl__makezd2boxzd2refzf2Cinfo6478zf2zzcfa_infoz00, 0L, 6 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2appzd2lyzf2Cinfozd2envz20zzcfa_infoz00, BgL_bgl__allocateza7d2appza7d2lyza7f2cinfoza7f2za7za7cfa_infoza7008333za7, BGl__allocatezd2appzd2lyzf2Cinfozf2zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2conditionalzf2Cinfoz12zd2envze0zzcfa_infoz00, BgL_bgl__fillza7d2conditionalza7f2cinfoza7126534za732za7za7cfa_infoza7008334za7, BGl__fillzd2conditionalzf2Cinfoz126534z32zzcfa_infoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_reshapedzd2globalzf3zd2envzf3zzcfa_infoz00, BgL_bgl__reshapedza7d2globalza7f3za721za7za7cfa_infoza7008335z00, BGl__reshapedzd2globalzf3z21zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2reshapedzd2globalz12zd2envzc0zzcfa_infoz00, BgL_bgl__fillza7d2reshapedza7d2globalza7126576za712za7za7cfa_infoza7008336za7, BGl__fillzd2reshapedzd2globalz126576z12zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2makezd2boxzf2Ozd2Cinfoz12zd2envze0zzcfa_infoz00, BgL_bgl__fillza7d2makeza7d2boxza7f2oza7d2cinfoza7126492za732za7za7cfa_infoza7008337za7, BGl__fillzd2makezd2boxzf2Ozd2Cinfoz126492z32zzcfa_infoz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2cfunzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__allocateza7d2cfunza7f2cinfoza720za7za7cfa_infoza7008338z00, BGl__allocatezd2cfunzf2Cinfoz20zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2cfunzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__makeza7d2cfunza7f2cinfo6627za720za7za7cfa_infoza7008339z00, BGl__makezd2cfunzf2Cinfo6627z20zzcfa_infoz00, 0L, 12 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2prezd2makezd2boxz12zd2envz12zzcfa_infoz00, BgL_bgl__fillza7d2preza7d2makeza7d2boxza7126504za7c0za7za7cfa_infoza7008340z00, BGl__fillzd2prezd2makezd2boxz126504zc0zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2funcallzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__allocateza7d2funcallza7f2cinfoza720za7za7cfa_infoza7008341z00, BGl__allocatezd2funcallzf2Cinfoz20zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2appzd2lyzf2Cinfozd2envz20zzcfa_infoz00, BgL_bgl__makeza7d2appza7d2lyza7f2cinfo6550za7f2za7za7cfa_infoza7008342za7, BGl__makezd2appzd2lyzf2Cinfo6550zf2zzcfa_infoz00, 0L, 5 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2conditionalzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__allocateza7d2conditionalza7f2cinfoza720za7za7cfa_infoza7008343z00, BGl__allocatezd2conditionalzf2Cinfoz20zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2cfunzf2Cinfoz12zd2envze0zzcfa_infoz00, BgL_bgl__fillza7d2cfunza7f2cinfoza7126629za732za7za7cfa_infoza7008344za7, BGl__fillzd2cfunzf2Cinfoz126629z32zzcfa_infoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2atomzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__wideningza7d2atomza7f2cinfoza720za7za7cfa_infoza7008345z00, BGl__wideningzd2atomzf2Cinfoz20zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2setzd2exzd2itzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__makeza7d2setza7d2exza7d2itza7f2cinfo6514za720za7za7cfa_infoza7008346z00, BGl__makezd2setzd2exzd2itzf2Cinfo6514z20zzcfa_infoz00, 0L, 5 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2externzd2sfunzf2Cinfoz12zd2envz32zzcfa_infoz00, BgL_bgl__fillza7d2externza7d2sfunza7f2cinfoza7126623za7e0za7za7cfa_infoza7008347z00, BGl__fillzd2externzd2sfunzf2Cinfoz126623ze0zzcfa_infoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_boxzd2setz12zf2Cinfozf3zd2envz13zzcfa_infoz00, BgL_bgl__boxza7d2setza712za7f2cinfoza7f3za7c1za7za7cfa_infoza7008348z00, BGl__boxzd2setz12zf2Cinfozf3zc1zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_scnstzf2Cinfozf3zd2envzd3zzcfa_infoz00, BgL_bgl__scnstza7f2cinfoza7f3za701za7za7cfa_infoza7008349z00, BGl__scnstzf2Cinfozf3z01zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2makezd2boxzf2Ozd2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__makeza7d2makeza7d2boxza7f2oza7d2cinfo6490za720za7za7cfa_infoza7008350z00, BGl__makezd2makezd2boxzf2Ozd2Cinfo6490z20zzcfa_infoz00, 0L, 7 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2jumpzd2exzd2itzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__allocateza7d2jumpza7d2exza7d2itza7f2cinfoza720za7za7cfa_infoza7008351z00, BGl__allocatezd2jumpzd2exzd2itzf2Cinfoz20zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2externzd2sfunzf2Cinfozd2envz20zzcfa_infoz00, BgL_bgl__allocateza7d2externza7d2sfunza7f2cinfoza7f2za7za7cfa_infoza7008352za7, BGl__allocatezd2externzd2sfunzf2Cinfozf2zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2setzd2exzd2itzf2Cinfoz12zd2envze0zzcfa_infoz00, BgL_bgl__fillza7d2setza7d2exza7d2itza7f2cinfoza7126516za732za7za7cfa_infoza7008353za7, BGl__fillzd2setzd2exzd2itzf2Cinfoz126516z32zzcfa_infoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2atomzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__allocateza7d2atomza7f2cinfoza720za7za7cfa_infoza7008354z00, BGl__allocatezd2atomzf2Cinfoz20zzcfa_infoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2selectzf2Cinfoz12zd2envze0zzcfa_infoz00, BgL_bgl__fillza7d2selectza7f2cinfoza7126522za732za7za7cfa_infoza7008355za7, BGl__fillzd2selectzf2Cinfoz126522z32zzcfa_infoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2internzd2sfunzf2Cinfozd2envz20zzcfa_infoz00, BgL_bgl__wideningza7d2internza7d2sfunza7f2cinfoza7f2za7za7cfa_infoza7008356za7, BGl__wideningzd2internzd2sfunzf2Cinfozf2zzcfa_infoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_setzd2exzd2itzf2Cinfozf3zd2envzd3zzcfa_infoz00, BgL_bgl__setza7d2exza7d2itza7f2cinfoza7f3za701za7za7cfa_infoza7008357z00, BGl__setzd2exzd2itzf2Cinfozf3z01zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2cvarzf2Cinfoz12zd2envze0zzcfa_infoz00, BgL_bgl__fillza7d2cvarza7f2cinfoza7126594za732za7za7cfa_infoza7008358za7, BGl__fillzd2cvarzf2Cinfoz126594z32zzcfa_infoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2appzd2lyzf2Cinfoz12zd2envz32zzcfa_infoz00, BgL_bgl__fillza7d2appza7d2lyza7f2cinfoza7126552za7e0za7za7cfa_infoza7008359z00, BGl__fillzd2appzd2lyzf2Cinfoz126552ze0zzcfa_infoz00, 0L, 2 );
BGL_IMPORT obj_t BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00;
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2boxzd2refzf2Cinfozd2envz20zzcfa_infoz00, BgL_bgl__wideningza7d2boxza7d2refza7f2cinfoza7f2za7za7cfa_infoza7008360za7, BGl__wideningzd2boxzd2refzf2Cinfozf2zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_externzd2sfunzf2Cinfozf3zd2envz01zzcfa_infoz00, BgL_bgl__externza7d2sfunza7f2cinfoza7f3za7d3za7za7cfa_infoza7008361za7, BGl__externzd2sfunzf2Cinfozf3zd3zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2svarzf2Cinfoz12zd2envze0zzcfa_infoz00, BgL_bgl__fillza7d2svarza7f2cinfoza7126600za732za7za7cfa_infoza7008362za7, BGl__fillzd2svarzf2Cinfoz126600z32zzcfa_infoz00, 0L, 3 );
DEFINE_STRING( BGl_string8150z00zzcfa_infoz00, BgL_bgl_string8150za700za7za7cfa_infoza7008363z00, "box-ref/O-Cinfo box-set!/O-Cinfo box-ref/Cinfo box-set!/Cinfo make-box/O-Cinfo make-box/Cinfo pre-make-box jump-ex-it/Cinfo set-ex-it/Cinfo select/Cinfo fail/Cinfo conditional/Cinfo setq/Cinfo funcall/Cinfo app-ly/Cinfo kwote/Cinfo kwote/node atom/Cinfo reshaped-global reshaped-local sexit/Cinfo cvar/Cinfo svar/Cinfo pre-clo-env scnst/Cinfo intern-sfun/Cinfo extern-sfun/Cinfo cfun/Cinfo approx ", 397 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2boxzd2setz12zf2Ozd2Cinfoz12zd2envzf2zzcfa_infoz00, BgL_bgl__fillza7d2boxza7d2setza712za7f2oza7d2cinfoza7126474za720za7za7cfa_infoza7008364z00, BGl__fillzd2boxzd2setz12zf2Ozd2Cinfoz126474z20zzcfa_infoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2boxzf2Cinfozf3zd2envz01zzcfa_infoz00, BgL_bgl__makeza7d2boxza7f2cinfoza7f3za7d3za7za7cfa_infoza7008365za7, BGl__makezd2boxzf2Cinfozf3zd3zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2boxzd2refzf2Ozd2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__wideningza7d2boxza7d2refza7f2oza7d2cinfoza720za7za7cfa_infoza7008366z00, BGl__wideningzd2boxzd2refzf2Ozd2Cinfoz20zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8100z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2makeza7d2boxza7f2oza7d2cinfo3881za711za7za7cfa_infoza7008367z00, BGl_objectzd2ze3structzd2makezd2boxzf2Ozd2Cinfo3881z11zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8101z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2makeza7d2boxza7f2oza7d2cinfo3884za7a3za7za7cfa_infoza7008368za7, BGl_structzb2objectzd2ze3objectzd2makezd2boxzf2Ozd2Cinfo3884za3zzcfa_infoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2makezd2boxzf2Ozd2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__wideningza7d2makeza7d2boxza7f2oza7d2cinfoza720za7za7cfa_infoza7008369z00, BGl__wideningzd2makezd2boxzf2Ozd2Cinfoz20zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8102z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2makeza7d2boxza7f2cinfo3886za7c3za7za7cfa_infoza7008370za7, BGl_objectzd2ze3structzd2makezd2boxzf2Cinfo3886zc3zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8092z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2boxza7d2refza7f2oza7d2cinfo3862za711za7za7cfa_infoza7008371z00, BGl_objectzd2ze3structzd2boxzd2refzf2Ozd2Cinfo3862z11zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8103z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2makeza7d2boxza7f2cinfo3888za771za7za7cfa_infoza7008372z00, BGl_structzb2objectzd2ze3objectzd2makezd2boxzf2Cinfo3888z71zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8093z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2boxza7d2refza7f2oza7d2cinfo3864za7a3za7za7cfa_infoza7008373za7, BGl_structzb2objectzd2ze3objectzd2boxzd2refzf2Ozd2Cinfo3864za3zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8104z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2preza7d2makeza7d2box3890za7e3za7za7cfa_infoza7008374za7, BGl_objectzd2ze3structzd2prezd2makezd2box3890ze3zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8094z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2boxza7d2setza712za7f2oza7d2cinfo3866za703za7za7cfa_infoza7008375za7, BGl_objectzd2ze3structzd2boxzd2setz12zf2Ozd2Cinfo3866z03zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8105z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2preza7d2makeza7d2box3892za751za7za7cfa_infoza7008376z00, BGl_structzb2objectzd2ze3objectzd2prezd2makezd2box3892z51zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8095z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2boxza7d2setza712za7f2oza7d2cinfo3869za7b1za7za7cfa_infoza7008377z00, BGl_structzb2objectzd2ze3objectzd2boxzd2setz12zf2Ozd2Cinfo3869zb1zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8106z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2jumpza7d2exza7d2itza7f2cinfo3895za711za7za7cfa_infoza7008378z00, BGl_objectzd2ze3structzd2jumpzd2exzd2itzf2Cinfo3895z11zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8096z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2boxza7d2refza7f2cinfo3871za7c3za7za7cfa_infoza7008379za7, BGl_objectzd2ze3structzd2boxzd2refzf2Cinfo3871zc3zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8107z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2jumpza7d2exza7d2itza7f2cinfo3897za7a3za7za7cfa_infoza7008380za7, BGl_structzb2objectzd2ze3objectzd2jumpzd2exzd2itzf2Cinfo3897za3zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8097z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2boxza7d2refza7f2cinfo3874za771za7za7cfa_infoza7008381z00, BGl_structzb2objectzd2ze3objectzd2boxzd2refzf2Cinfo3874z71zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8108z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2setza7d2exza7d2itza7f2cinfo3899za711za7za7cfa_infoza7008382z00, BGl_objectzd2ze3structzd2setzd2exzd2itzf2Cinfo3899z11zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8098z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2boxza7d2setza712za7f2cinfo3877za7d1za7za7cfa_infoza7008383z00, BGl_objectzd2ze3structzd2boxzd2setz12zf2Cinfo3877zd1zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8110z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2selectza7f2cinfo3904za711za7za7cfa_infoza7008384z00, BGl_objectzd2ze3structzd2selectzf2Cinfo3904z11zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8109z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2setza7d2exza7d2itza7f2cinfo3901za7a3za7za7cfa_infoza7008385za7, BGl_structzb2objectzd2ze3objectzd2setzd2exzd2itzf2Cinfo3901za3zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8099z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2boxza7d2setza712za7f2cinfo3879za763za7za7cfa_infoza7008386za7, BGl_structzb2objectzd2ze3objectzd2boxzd2setz12zf2Cinfo3879z63zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8111z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2selectza7f2cinfo3906za7a3za7za7cfa_infoza7008387za7, BGl_structzb2objectzd2ze3objectzd2selectzf2Cinfo3906za3zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8112z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2failza7f2cinfo3908za711za7za7cfa_infoza7008388z00, BGl_objectzd2ze3structzd2failzf2Cinfo3908z11zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8113z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2failza7f2cinfo3910za7a3za7za7cfa_infoza7008389za7, BGl_structzb2objectzd2ze3objectzd2failzf2Cinfo3910za3zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8114z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2conditionalza7f2cinfo3912za711za7za7cfa_infoza7008390z00, BGl_objectzd2ze3structzd2conditionalzf2Cinfo3912z11zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8115z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2conditionalza7f2cinfo3914za7a3za7za7cfa_infoza7008391za7, BGl_structzb2objectzd2ze3objectzd2conditionalzf2Cinfo3914za3zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8116z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2setqza7f2cinfo3916za711za7za7cfa_infoza7008392z00, BGl_objectzd2ze3structzd2setqzf2Cinfo3916z11zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8117z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2setqza7f2cinfo3918za7a3za7za7cfa_infoza7008393za7, BGl_structzb2objectzd2ze3objectzd2setqzf2Cinfo3918za3zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8118z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2funcallza7f2cinfo3920za711za7za7cfa_infoza7008394z00, BGl_objectzd2ze3structzd2funcallzf2Cinfo3920z11zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8120z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2appza7d2lyza7f2cinfo3924za7c3za7za7cfa_infoza7008395za7, BGl_objectzd2ze3structzd2appzd2lyzf2Cinfo3924zc3zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8119z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2funcallza7f2cinfo3922za7a3za7za7cfa_infoza7008396za7, BGl_structzb2objectzd2ze3objectzd2funcallzf2Cinfo3922za3zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8121z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2appza7d2lyza7f2cinfo3926za771za7za7cfa_infoza7008397z00, BGl_structzb2objectzd2ze3objectzd2appzd2lyzf2Cinfo3926z71zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8122z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2kwoteza7f2cinfo3928za711za7za7cfa_infoza7008398z00, BGl_objectzd2ze3structzd2kwotezf2Cinfo3928z11zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8123z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2kwoteza7f2cinfo3930za7a3za7za7cfa_infoza7008399za7, BGl_structzb2objectzd2ze3objectzd2kwotezf2Cinfo3930za3zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8124z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2kwoteza7f2node3932za711za7za7cfa_infoza7008400z00, BGl_objectzd2ze3structzd2kwotezf2node3932z11zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8125z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2kwoteza7f2node3934za7a3za7za7cfa_infoza7008401za7, BGl_structzb2objectzd2ze3objectzd2kwotezf2node3934za3zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8126z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2atomza7f2cinfo3936za711za7za7cfa_infoza7008402z00, BGl_objectzd2ze3structzd2atomzf2Cinfo3936z11zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2reshapedzd2localzd2envzd2zzcfa_infoz00, BgL_bgl__makeza7d2reshapedza7d2local6580za700za7za7cfa_infoza7008403z00, BGl__makezd2reshapedzd2local6580z00zzcfa_infoz00, 0L, 11 );
DEFINE_STATIC_PROCEDURE( BGl_proc8127z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2atomza7f2cinfo3939za7a3za7za7cfa_infoza7008404za7, BGl_structzb2objectzd2ze3objectzd2atomzf2Cinfo3939za3zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8128z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2reshapedza7d2global3941za731za7za7cfa_infoza7008405z00, BGl_objectzd2ze3structzd2reshapedzd2global3941z31zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2reshapedzd2localz12zd2envzc0zzcfa_infoz00, BgL_bgl__fillza7d2reshapedza7d2localza7126582za712za7za7cfa_infoza7008406za7, BGl__fillzd2reshapedzd2localz126582z12zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8130z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2reshapedza7d2local3946za731za7za7cfa_infoza7008407z00, BGl_objectzd2ze3structzd2reshapedzd2local3946z31zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8129z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2reshapedza7d2global3943za783za7za7cfa_infoza7008408za7, BGl_structzb2objectzd2ze3objectzd2reshapedzd2global3943z83zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8131z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2reshapedza7d2local3948za783za7za7cfa_infoza7008409za7, BGl_structzb2objectzd2ze3objectzd2reshapedzd2local3948z83zzcfa_infoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2boxzd2setz12zf2Ozd2Cinfozd2envze0zzcfa_infoz00, BgL_bgl__wideningza7d2boxza7d2setza712za7f2oza7d2cinfoza732za7za7cfa_infoza7008410za7, BGl__wideningzd2boxzd2setz12zf2Ozd2Cinfoz32zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8132z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2sexitza7f2cinfo3950za711za7za7cfa_infoza7008411z00, BGl_objectzd2ze3structzd2sexitzf2Cinfo3950z11zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8133z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2sexitza7f2cinfo3952za7a3za7za7cfa_infoza7008412za7, BGl_structzb2objectzd2ze3objectzd2sexitzf2Cinfo3952za3zzcfa_infoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2makezd2boxzf2Cinfozd2envz20zzcfa_infoz00, BgL_bgl__makeza7d2makeza7d2boxza7f2cinfo6496za7f2za7za7cfa_infoza7008413za7, BGl__makezd2makezd2boxzf2Cinfo6496zf2zzcfa_infoz00, 0L, 6 );
DEFINE_STATIC_PROCEDURE( BGl_proc8134z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2cvarza7f2cinfo3954za711za7za7cfa_infoza7008414z00, BGl_objectzd2ze3structzd2cvarzf2Cinfo3954z11zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8135z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2cvarza7f2cinfo3956za7a3za7za7cfa_infoza7008415za7, BGl_structzb2objectzd2ze3objectzd2cvarzf2Cinfo3956za3zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8136z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2svarza7f2cinfo3958za711za7za7cfa_infoza7008416z00, BGl_objectzd2ze3structzd2svarzf2Cinfo3958z11zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2setzd2exzd2itzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__wideningza7d2setza7d2exza7d2itza7f2cinfoza720za7za7cfa_infoza7008417z00, BGl__wideningzd2setzd2exzd2itzf2Cinfoz20zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8137z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2svarza7f2cinfo3960za7a3za7za7cfa_infoza7008418za7, BGl_structzb2objectzd2ze3objectzd2svarzf2Cinfo3960za3zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8138z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2preza7d2cloza7d2env3962za7e3za7za7cfa_infoza7008419za7, BGl_objectzd2ze3structzd2prezd2clozd2env3962ze3zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8140z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2scnstza7f2cinfo3966za711za7za7cfa_infoza7008420z00, BGl_objectzd2ze3structzd2scnstzf2Cinfo3966z11zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8139z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2preza7d2cloza7d2env3964za751za7za7cfa_infoza7008421z00, BGl_structzb2objectzd2ze3objectzd2prezd2clozd2env3964z51zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8141z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2scnstza7f2cinfo3968za7a3za7za7cfa_infoza7008422za7, BGl_structzb2objectzd2ze3objectzd2scnstzf2Cinfo3968za3zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8142z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2internza7d2sfunza7f2cinfo3970za7c3za7za7cfa_infoza7008423za7, BGl_objectzd2ze3structzd2internzd2sfunzf2Cinfo3970zc3zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_jumpzd2exzd2itzf2Cinfozf3zd2envzd3zzcfa_infoz00, BgL_bgl__jumpza7d2exza7d2itza7f2cinfoza7f3za701za7za7cfa_infoza7008424z00, BGl__jumpzd2exzd2itzf2Cinfozf3z01zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8143z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2internza7d2sfunza7f2cinfo3972za771za7za7cfa_infoza7008425z00, BGl_structzb2objectzd2ze3objectzd2internzd2sfunzf2Cinfo3972z71zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8144z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2externza7d2sfunza7f2cinfo3974za7c3za7za7cfa_infoza7008426za7, BGl_objectzd2ze3structzd2externzd2sfunzf2Cinfo3974zc3zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8145z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2externza7d2sfunza7f2cinfo3976za771za7za7cfa_infoza7008427z00, BGl_structzb2objectzd2ze3objectzd2externzd2sfunzf2Cinfo3976z71zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8146z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2cfunza7f2cinfo3978za711za7za7cfa_infoza7008428z00, BGl_objectzd2ze3structzd2cfunzf2Cinfo3978z11zzcfa_infoz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc8147z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2cfunza7f2cinfo3980za7a3za7za7cfa_infoza7008429za7, BGl_structzb2objectzd2ze3objectzd2cfunzf2Cinfo3980za3zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8148z00zzcfa_infoz00, BgL_bgl_objectza7d2za7e3structza7d2approx3982za7e3za7za7cfa_infoza7008430za7, BGl_objectzd2ze3structzd2approx3982ze3zzcfa_infoz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2makezd2boxzf2Cinfoz12zd2envz32zzcfa_infoz00, BgL_bgl__fillza7d2makeza7d2boxza7f2cinfoza7126498za7e0za7za7cfa_infoza7008431z00, BGl__fillzd2makezd2boxzf2Cinfoz126498ze0zzcfa_infoz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc8149z00zzcfa_infoz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2approx3984za751za7za7cfa_infoza7008432z00, BGl_structzb2objectzd2ze3objectzd2approx3984z51zzcfa_infoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2svarzf2Cinfozd2envzf2zzcfa_infoz00, BgL_bgl__makeza7d2svarza7f2cinfo6598za720za7za7cfa_infoza7008433z00, BGl__makezd2svarzf2Cinfo6598z20zzcfa_infoz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_sexitzf2Cinfozf3zd2envzd3zzcfa_infoz00, BgL_bgl__sexitza7f2cinfoza7f3za701za7za7cfa_infoza7008434z00, BGl__sexitzf2Cinfozf3z01zzcfa_infoz00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzcfa_infoz00(long BgL_checksumz00_5348, char * BgL_fromz00_5349)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzcfa_infoz00))
{ 
BGl_requirezd2initializa7ationz75zzcfa_infoz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzcfa_infoz00(); 
BGl_cnstzd2initzd2zzcfa_infoz00(); 
BGl_importedzd2moduleszd2initz00zzcfa_infoz00(); 
BGl_objectzd2initzd2zzcfa_infoz00(); 
BGl_methodzd2initzd2zzcfa_infoz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 15 */
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "cfa_info"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "cfa_info"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 15 */
{ /* ./Cfa/cinfo.scm 15 */
obj_t BgL_cportz00_4888;
BgL_cportz00_4888 = 
open_input_string(BGl_string8150z00zzcfa_infoz00); 
{ 
long BgL_iz00_4889;
BgL_iz00_4889 = ((long)28); 
BgL_loopz00_4890:
{ /* ./Cfa/cinfo.scm 15 */
bool_t BgL_test8152z00_4891;
BgL_test8152z00_4891 = 
(BgL_iz00_4889==((long)-1)); 
if(BgL_test8152z00_4891)
{ /* ./Cfa/cinfo.scm 15 */
return BUNSPEC;}  else 
{ /* ./Cfa/cinfo.scm 15 */
{ /* ./Cfa/cinfo.scm 15 */
obj_t BgL_arg8154z00_4892;
{ /* ./Cfa/cinfo.scm 15 */
obj_t BgL_list8157z00_4893;
BgL_list8157z00_4893 = 
MAKE_PAIR(BgL_cportz00_4888, BNIL); 
BgL_arg8154z00_4892 = 
BGl_readz00zz__readerz00(BgL_list8157z00_4893); } 
{ /* ./Cfa/cinfo.scm 15 */
int BgL_auxz00_5365;
BgL_auxz00_5365 = 
(int)(BgL_iz00_4889); 
CNST_TABLE_SET(BgL_auxz00_5365, BgL_arg8154z00_4892); } } 
{ /* ./Cfa/cinfo.scm 15 */
int BgL_auxz00_4894;
{ /* ./Cfa/cinfo.scm 15 */
long BgL_auxz00_5368;
BgL_auxz00_5368 = 
(BgL_iz00_4889-((long)1)); 
BgL_auxz00_4894 = 
(int)(BgL_auxz00_5368); } 
{ 
long BgL_iz00_5371;
BgL_iz00_5371 = 
(long)(BgL_auxz00_4894); 
BgL_iz00_4889 = BgL_iz00_5371; 
goto BgL_loopz00_4890;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 15 */
return BUNSPEC;} 
}



/* object-init */
obj_t BGl_objectzd2initzd2zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 15 */
{ /* ./Cfa/cinfo.scm 23 */
obj_t BgL_arg3986z00_1111;obj_t BgL_arg3987z00_1112;obj_t BgL_arg3991z00_1116;
BgL_arg3986z00_1111 = 
CNST_TABLE_REF(((long)0)); 
BgL_arg3987z00_1112 = BGl_objectz00zz__objectz00; 
{ /* ./Cfa/cinfo.scm 23 */
obj_t BgL_v3832z00_1117;
{ 
int BgL_auxz00_5374;
BgL_auxz00_5374 = 
(int)(((long)0)); 
BgL_v3832z00_1117 = 
create_vector(BgL_auxz00_5374); } 
BgL_arg3991z00_1116 = BgL_v3832z00_1117; } 
BGl_approxz00zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3986z00_1111, BgL_arg3987z00_1112, BFALSE, BGl_allocatezd2approxzd2envz00zzcfa_infoz00, ((long)48358), BNIL, BFALSE, BgL_arg3991z00_1116); } 
{ /* ./Cfa/cinfo.scm 40 */
obj_t BgL_arg3995z00_1118;obj_t BgL_arg3996z00_1119;obj_t BgL_arg4000z00_1123;
BgL_arg3995z00_1118 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg3996z00_1119 = BGl_cfunz00zzast_varz00; 
{ /* ./Cfa/cinfo.scm 40 */
obj_t BgL_v3833z00_1124;
{ 
int BgL_auxz00_5379;
BgL_auxz00_5379 = 
(int)(((long)0)); 
BgL_v3833z00_1124 = 
create_vector(BgL_auxz00_5379); } 
BgL_arg4000z00_1123 = BgL_v3833z00_1124; } 
BGl_cfunzf2Cinfozf2zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3995z00_1118, BgL_arg3996z00_1119, BFALSE, BGl_allocatezd2cfunzf2Cinfozd2envzf2zzcfa_infoz00, ((long)8386), BNIL, BFALSE, BgL_arg4000z00_1123); } 
{ /* ./Cfa/cinfo.scm 42 */
obj_t BgL_arg4004z00_1125;obj_t BgL_arg4005z00_1126;obj_t BgL_arg4009z00_1130;
BgL_arg4004z00_1125 = 
CNST_TABLE_REF(((long)2)); 
BgL_arg4005z00_1126 = BGl_sfunz00zzast_varz00; 
{ /* ./Cfa/cinfo.scm 42 */
obj_t BgL_v3834z00_1131;
{ 
int BgL_auxz00_5384;
BgL_auxz00_5384 = 
(int)(((long)0)); 
BgL_v3834z00_1131 = 
create_vector(BgL_auxz00_5384); } 
BgL_arg4009z00_1130 = BgL_v3834z00_1131; } 
BGl_externzd2sfunzf2Cinfoz20zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4004z00_1125, BgL_arg4005z00_1126, BFALSE, BGl_allocatezd2externzd2sfunzf2Cinfozd2envz20zzcfa_infoz00, ((long)5517), BNIL, BFALSE, BgL_arg4009z00_1130); } 
{ /* ./Cfa/cinfo.scm 44 */
obj_t BgL_arg4013z00_1132;obj_t BgL_arg4014z00_1133;obj_t BgL_arg4018z00_1137;
BgL_arg4013z00_1132 = 
CNST_TABLE_REF(((long)3)); 
BgL_arg4014z00_1133 = BGl_sfunz00zzast_varz00; 
{ /* ./Cfa/cinfo.scm 44 */
obj_t BgL_v3835z00_1138;
{ 
int BgL_auxz00_5389;
BgL_auxz00_5389 = 
(int)(((long)0)); 
BgL_v3835z00_1138 = 
create_vector(BgL_auxz00_5389); } 
BgL_arg4018z00_1137 = BgL_v3835z00_1138; } 
BGl_internzd2sfunzf2Cinfoz20zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4013z00_1132, BgL_arg4014z00_1133, BFALSE, BGl_allocatezd2internzd2sfunzf2Cinfozd2envz20zzcfa_infoz00, ((long)42694), BNIL, BFALSE, BgL_arg4018z00_1137); } 
{ /* ./Cfa/cinfo.scm 49 */
obj_t BgL_arg4022z00_1139;obj_t BgL_arg4023z00_1140;obj_t BgL_arg4027z00_1144;
BgL_arg4022z00_1139 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg4023z00_1140 = BGl_scnstz00zzast_varz00; 
{ /* ./Cfa/cinfo.scm 49 */
obj_t BgL_v3836z00_1145;
{ 
int BgL_auxz00_5394;
BgL_auxz00_5394 = 
(int)(((long)0)); 
BgL_v3836z00_1145 = 
create_vector(BgL_auxz00_5394); } 
BgL_arg4027z00_1144 = BgL_v3836z00_1145; } 
BGl_scnstzf2Cinfozf2zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4022z00_1139, BgL_arg4023z00_1140, BFALSE, BGl_allocatezd2scnstzf2Cinfozd2envzf2zzcfa_infoz00, ((long)28129), BNIL, BFALSE, BgL_arg4027z00_1144); } 
{ /* ./Cfa/cinfo.scm 53 */
obj_t BgL_arg4031z00_1146;obj_t BgL_arg4032z00_1147;obj_t BgL_arg4036z00_1151;
BgL_arg4031z00_1146 = 
CNST_TABLE_REF(((long)5)); 
BgL_arg4032z00_1147 = BGl_svarz00zzast_varz00; 
{ /* ./Cfa/cinfo.scm 53 */
obj_t BgL_v3837z00_1152;
{ 
int BgL_auxz00_5399;
BgL_auxz00_5399 = 
(int)(((long)0)); 
BgL_v3837z00_1152 = 
create_vector(BgL_auxz00_5399); } 
BgL_arg4036z00_1151 = BgL_v3837z00_1152; } 
BGl_prezd2clozd2envz00zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4031z00_1146, BgL_arg4032z00_1147, BFALSE, BGl_allocatezd2prezd2clozd2envzd2envz00zzcfa_infoz00, ((long)49560), BNIL, BFALSE, BgL_arg4036z00_1151); } 
{ /* ./Cfa/cinfo.scm 54 */
obj_t BgL_arg4040z00_1153;obj_t BgL_arg4041z00_1154;obj_t BgL_arg4045z00_1158;
BgL_arg4040z00_1153 = 
CNST_TABLE_REF(((long)6)); 
BgL_arg4041z00_1154 = BGl_svarz00zzast_varz00; 
{ /* ./Cfa/cinfo.scm 54 */
obj_t BgL_v3838z00_1159;
{ 
int BgL_auxz00_5404;
BgL_auxz00_5404 = 
(int)(((long)0)); 
BgL_v3838z00_1159 = 
create_vector(BgL_auxz00_5404); } 
BgL_arg4045z00_1158 = BgL_v3838z00_1159; } 
BGl_svarzf2Cinfozf2zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4040z00_1153, BgL_arg4041z00_1154, BFALSE, BGl_allocatezd2svarzf2Cinfozd2envzf2zzcfa_infoz00, ((long)15777), BNIL, BFALSE, BgL_arg4045z00_1158); } 
{ /* ./Cfa/cinfo.scm 60 */
obj_t BgL_arg4049z00_1160;obj_t BgL_arg4050z00_1161;obj_t BgL_arg4055z00_1165;
BgL_arg4049z00_1160 = 
CNST_TABLE_REF(((long)7)); 
BgL_arg4050z00_1161 = BGl_cvarz00zzast_varz00; 
{ /* ./Cfa/cinfo.scm 60 */
obj_t BgL_v3839z00_1166;
{ 
int BgL_auxz00_5409;
BgL_auxz00_5409 = 
(int)(((long)0)); 
BgL_v3839z00_1166 = 
create_vector(BgL_auxz00_5409); } 
BgL_arg4055z00_1165 = BgL_v3839z00_1166; } 
BGl_cvarzf2Cinfozf2zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4049z00_1160, BgL_arg4050z00_1161, BFALSE, BGl_allocatezd2cvarzf2Cinfozd2envzf2zzcfa_infoz00, ((long)58210), BNIL, BFALSE, BgL_arg4055z00_1165); } 
{ /* ./Cfa/cinfo.scm 64 */
obj_t BgL_arg4059z00_1167;obj_t BgL_arg4060z00_1168;obj_t BgL_arg4064z00_1172;
BgL_arg4059z00_1167 = 
CNST_TABLE_REF(((long)8)); 
BgL_arg4060z00_1168 = BGl_sexitz00zzast_varz00; 
{ /* ./Cfa/cinfo.scm 64 */
obj_t BgL_v3840z00_1173;
{ 
int BgL_auxz00_5414;
BgL_auxz00_5414 = 
(int)(((long)0)); 
BgL_v3840z00_1173 = 
create_vector(BgL_auxz00_5414); } 
BgL_arg4064z00_1172 = BgL_v3840z00_1173; } 
BGl_sexitzf2Cinfozf2zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4059z00_1167, BgL_arg4060z00_1168, BFALSE, BGl_allocatezd2sexitzf2Cinfozd2envzf2zzcfa_infoz00, ((long)43523), BNIL, BFALSE, BgL_arg4064z00_1172); } 
{ /* ./Cfa/cinfo.scm 68 */
obj_t BgL_arg4068z00_1174;obj_t BgL_arg4069z00_1175;obj_t BgL_arg4073z00_1179;
BgL_arg4068z00_1174 = 
CNST_TABLE_REF(((long)9)); 
BgL_arg4069z00_1175 = BGl_localz00zzast_varz00; 
{ /* ./Cfa/cinfo.scm 68 */
obj_t BgL_v3841z00_1180;
{ 
int BgL_auxz00_5419;
BgL_auxz00_5419 = 
(int)(((long)0)); 
BgL_v3841z00_1180 = 
create_vector(BgL_auxz00_5419); } 
BgL_arg4073z00_1179 = BgL_v3841z00_1180; } 
BGl_reshapedzd2localzd2zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4068z00_1174, BgL_arg4069z00_1175, BFALSE, BGl_allocatezd2reshapedzd2localzd2envzd2zzcfa_infoz00, ((long)60449), BNIL, BFALSE, BgL_arg4073z00_1179); } 
{ /* ./Cfa/cinfo.scm 70 */
obj_t BgL_arg4077z00_1181;obj_t BgL_arg4078z00_1182;obj_t BgL_arg4082z00_1186;
BgL_arg4077z00_1181 = 
CNST_TABLE_REF(((long)10)); 
BgL_arg4078z00_1182 = BGl_globalz00zzast_varz00; 
{ /* ./Cfa/cinfo.scm 70 */
obj_t BgL_v3842z00_1187;
{ 
int BgL_auxz00_5424;
BgL_auxz00_5424 = 
(int)(((long)0)); 
BgL_v3842z00_1187 = 
create_vector(BgL_auxz00_5424); } 
BgL_arg4082z00_1186 = BgL_v3842z00_1187; } 
BGl_reshapedzd2globalzd2zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4077z00_1181, BgL_arg4078z00_1182, BFALSE, BGl_allocatezd2reshapedzd2globalzd2envzd2zzcfa_infoz00, ((long)506), BNIL, BFALSE, BgL_arg4082z00_1186); } 
{ /* ./Cfa/cinfo.scm 73 */
obj_t BgL_arg4086z00_1188;obj_t BgL_arg4087z00_1189;obj_t BgL_arg4091z00_1193;
BgL_arg4086z00_1188 = 
CNST_TABLE_REF(((long)11)); 
BgL_arg4087z00_1189 = BGl_atomz00zzast_nodez00; 
{ /* ./Cfa/cinfo.scm 73 */
obj_t BgL_v3843z00_1194;
{ 
int BgL_auxz00_5429;
BgL_auxz00_5429 = 
(int)(((long)0)); 
BgL_v3843z00_1194 = 
create_vector(BgL_auxz00_5429); } 
BgL_arg4091z00_1193 = BgL_v3843z00_1194; } 
BGl_atomzf2Cinfozf2zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4086z00_1188, BgL_arg4087z00_1189, BFALSE, BGl_allocatezd2atomzf2Cinfozd2envzf2zzcfa_infoz00, ((long)34583), BNIL, BFALSE, BgL_arg4091z00_1193); } 
{ /* ./Cfa/cinfo.scm 75 */
obj_t BgL_arg4095z00_1195;obj_t BgL_arg4096z00_1196;obj_t BgL_arg4100z00_1200;
BgL_arg4095z00_1195 = 
CNST_TABLE_REF(((long)12)); 
BgL_arg4096z00_1196 = BGl_kwotez00zzast_nodez00; 
{ /* ./Cfa/cinfo.scm 75 */
obj_t BgL_v3844z00_1201;
{ 
int BgL_auxz00_5434;
BgL_auxz00_5434 = 
(int)(((long)0)); 
BgL_v3844z00_1201 = 
create_vector(BgL_auxz00_5434); } 
BgL_arg4100z00_1200 = BgL_v3844z00_1201; } 
BGl_kwotezf2nodezf2zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4095z00_1195, BgL_arg4096z00_1196, BFALSE, BGl_allocatezd2kwotezf2nodezd2envzf2zzcfa_infoz00, ((long)58391), BNIL, BFALSE, BgL_arg4100z00_1200); } 
{ /* ./Cfa/cinfo.scm 77 */
obj_t BgL_arg4104z00_1202;obj_t BgL_arg4105z00_1203;obj_t BgL_arg4109z00_1207;
BgL_arg4104z00_1202 = 
CNST_TABLE_REF(((long)13)); 
BgL_arg4105z00_1203 = BGl_kwotez00zzast_nodez00; 
{ /* ./Cfa/cinfo.scm 77 */
obj_t BgL_v3845z00_1208;
{ 
int BgL_auxz00_5439;
BgL_auxz00_5439 = 
(int)(((long)0)); 
BgL_v3845z00_1208 = 
create_vector(BgL_auxz00_5439); } 
BgL_arg4109z00_1207 = BgL_v3845z00_1208; } 
BGl_kwotezf2Cinfozf2zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4104z00_1202, BgL_arg4105z00_1203, BFALSE, BGl_allocatezd2kwotezf2Cinfozd2envzf2zzcfa_infoz00, ((long)56984), BNIL, BFALSE, BgL_arg4109z00_1207); } 
{ /* ./Cfa/cinfo.scm 79 */
obj_t BgL_arg4113z00_1209;obj_t BgL_arg4114z00_1210;obj_t BgL_arg4119z00_1214;
BgL_arg4113z00_1209 = 
CNST_TABLE_REF(((long)14)); 
BgL_arg4114z00_1210 = BGl_appzd2lyzd2zzast_nodez00; 
{ /* ./Cfa/cinfo.scm 79 */
obj_t BgL_v3846z00_1215;
{ 
int BgL_auxz00_5444;
BgL_auxz00_5444 = 
(int)(((long)0)); 
BgL_v3846z00_1215 = 
create_vector(BgL_auxz00_5444); } 
BgL_arg4119z00_1214 = BgL_v3846z00_1215; } 
BGl_appzd2lyzf2Cinfoz20zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4113z00_1209, BgL_arg4114z00_1210, BFALSE, BGl_allocatezd2appzd2lyzf2Cinfozd2envz20zzcfa_infoz00, ((long)16641), BNIL, BFALSE, BgL_arg4119z00_1214); } 
{ /* ./Cfa/cinfo.scm 81 */
obj_t BgL_arg4123z00_1216;obj_t BgL_arg4124z00_1217;obj_t BgL_arg4128z00_1221;
BgL_arg4123z00_1216 = 
CNST_TABLE_REF(((long)15)); 
BgL_arg4124z00_1217 = BGl_funcallz00zzast_nodez00; 
{ /* ./Cfa/cinfo.scm 81 */
obj_t BgL_v3847z00_1222;
{ 
int BgL_auxz00_5449;
BgL_auxz00_5449 = 
(int)(((long)0)); 
BgL_v3847z00_1222 = 
create_vector(BgL_auxz00_5449); } 
BgL_arg4128z00_1221 = BgL_v3847z00_1222; } 
BGl_funcallzf2Cinfozf2zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4123z00_1216, BgL_arg4124z00_1217, BFALSE, BGl_allocatezd2funcallzf2Cinfozd2envzf2zzcfa_infoz00, ((long)18622), BNIL, BFALSE, BgL_arg4128z00_1221); } 
{ /* ./Cfa/cinfo.scm 86 */
obj_t BgL_arg4132z00_1223;obj_t BgL_arg4133z00_1224;obj_t BgL_arg4137z00_1228;
BgL_arg4132z00_1223 = 
CNST_TABLE_REF(((long)16)); 
BgL_arg4133z00_1224 = BGl_setqz00zzast_nodez00; 
{ /* ./Cfa/cinfo.scm 86 */
obj_t BgL_v3848z00_1229;
{ 
int BgL_auxz00_5454;
BgL_auxz00_5454 = 
(int)(((long)0)); 
BgL_v3848z00_1229 = 
create_vector(BgL_auxz00_5454); } 
BgL_arg4137z00_1228 = BgL_v3848z00_1229; } 
BGl_setqzf2Cinfozf2zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4132z00_1223, BgL_arg4133z00_1224, BFALSE, BGl_allocatezd2setqzf2Cinfozd2envzf2zzcfa_infoz00, ((long)47771), BNIL, BFALSE, BgL_arg4137z00_1228); } 
{ /* ./Cfa/cinfo.scm 88 */
obj_t BgL_arg4141z00_1230;obj_t BgL_arg4142z00_1231;obj_t BgL_arg4146z00_1235;
BgL_arg4141z00_1230 = 
CNST_TABLE_REF(((long)17)); 
BgL_arg4142z00_1231 = BGl_conditionalz00zzast_nodez00; 
{ /* ./Cfa/cinfo.scm 88 */
obj_t BgL_v3849z00_1236;
{ 
int BgL_auxz00_5459;
BgL_auxz00_5459 = 
(int)(((long)0)); 
BgL_v3849z00_1236 = 
create_vector(BgL_auxz00_5459); } 
BgL_arg4146z00_1235 = BgL_v3849z00_1236; } 
BGl_conditionalzf2Cinfozf2zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4141z00_1230, BgL_arg4142z00_1231, BFALSE, BGl_allocatezd2conditionalzf2Cinfozd2envzf2zzcfa_infoz00, ((long)64866), BNIL, BFALSE, BgL_arg4146z00_1235); } 
{ /* ./Cfa/cinfo.scm 90 */
obj_t BgL_arg4150z00_1237;obj_t BgL_arg4151z00_1238;obj_t BgL_arg4155z00_1242;
BgL_arg4150z00_1237 = 
CNST_TABLE_REF(((long)18)); 
BgL_arg4151z00_1238 = BGl_failz00zzast_nodez00; 
{ /* ./Cfa/cinfo.scm 90 */
obj_t BgL_v3850z00_1243;
{ 
int BgL_auxz00_5464;
BgL_auxz00_5464 = 
(int)(((long)0)); 
BgL_v3850z00_1243 = 
create_vector(BgL_auxz00_5464); } 
BgL_arg4155z00_1242 = BgL_v3850z00_1243; } 
BGl_failzf2Cinfozf2zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4150z00_1237, BgL_arg4151z00_1238, BFALSE, BGl_allocatezd2failzf2Cinfozd2envzf2zzcfa_infoz00, ((long)41786), BNIL, BFALSE, BgL_arg4155z00_1242); } 
{ /* ./Cfa/cinfo.scm 92 */
obj_t BgL_arg4159z00_1244;obj_t BgL_arg4160z00_1245;obj_t BgL_arg4164z00_1249;
BgL_arg4159z00_1244 = 
CNST_TABLE_REF(((long)19)); 
BgL_arg4160z00_1245 = BGl_selectz00zzast_nodez00; 
{ /* ./Cfa/cinfo.scm 92 */
obj_t BgL_v3851z00_1250;
{ 
int BgL_auxz00_5469;
BgL_auxz00_5469 = 
(int)(((long)0)); 
BgL_v3851z00_1250 = 
create_vector(BgL_auxz00_5469); } 
BgL_arg4164z00_1249 = BgL_v3851z00_1250; } 
BGl_selectzf2Cinfozf2zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4159z00_1244, BgL_arg4160z00_1245, BFALSE, BGl_allocatezd2selectzf2Cinfozd2envzf2zzcfa_infoz00, ((long)45542), BNIL, BFALSE, BgL_arg4164z00_1249); } 
{ /* ./Cfa/cinfo.scm 94 */
obj_t BgL_arg4168z00_1251;obj_t BgL_arg4169z00_1252;obj_t BgL_arg4173z00_1256;
BgL_arg4168z00_1251 = 
CNST_TABLE_REF(((long)20)); 
BgL_arg4169z00_1252 = BGl_setzd2exzd2itz00zzast_nodez00; 
{ /* ./Cfa/cinfo.scm 94 */
obj_t BgL_v3852z00_1257;
{ 
int BgL_auxz00_5474;
BgL_auxz00_5474 = 
(int)(((long)0)); 
BgL_v3852z00_1257 = 
create_vector(BgL_auxz00_5474); } 
BgL_arg4173z00_1256 = BgL_v3852z00_1257; } 
BGl_setzd2exzd2itzf2Cinfozf2zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4168z00_1251, BgL_arg4169z00_1252, BFALSE, BGl_allocatezd2setzd2exzd2itzf2Cinfozd2envzf2zzcfa_infoz00, ((long)39118), BNIL, BFALSE, BgL_arg4173z00_1256); } 
{ /* ./Cfa/cinfo.scm 96 */
obj_t BgL_arg4177z00_1258;obj_t BgL_arg4178z00_1259;obj_t BgL_arg4182z00_1263;
BgL_arg4177z00_1258 = 
CNST_TABLE_REF(((long)21)); 
BgL_arg4178z00_1259 = BGl_jumpzd2exzd2itz00zzast_nodez00; 
{ /* ./Cfa/cinfo.scm 96 */
obj_t BgL_v3853z00_1264;
{ 
int BgL_auxz00_5479;
BgL_auxz00_5479 = 
(int)(((long)0)); 
BgL_v3853z00_1264 = 
create_vector(BgL_auxz00_5479); } 
BgL_arg4182z00_1263 = BgL_v3853z00_1264; } 
BGl_jumpzd2exzd2itzf2Cinfozf2zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4177z00_1258, BgL_arg4178z00_1259, BFALSE, BGl_allocatezd2jumpzd2exzd2itzf2Cinfozd2envzf2zzcfa_infoz00, ((long)29582), BNIL, BFALSE, BgL_arg4182z00_1263); } 
{ /* ./Cfa/cinfo.scm 100 */
obj_t BgL_arg4186z00_1265;obj_t BgL_arg4187z00_1266;obj_t BgL_arg4191z00_1270;
BgL_arg4186z00_1265 = 
CNST_TABLE_REF(((long)22)); 
BgL_arg4187z00_1266 = BGl_makezd2boxzd2zzast_nodez00; 
{ /* ./Cfa/cinfo.scm 100 */
obj_t BgL_v3854z00_1271;
{ 
int BgL_auxz00_5484;
BgL_auxz00_5484 = 
(int)(((long)0)); 
BgL_v3854z00_1271 = 
create_vector(BgL_auxz00_5484); } 
BgL_arg4191z00_1270 = BgL_v3854z00_1271; } 
BGl_prezd2makezd2boxz00zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4186z00_1265, BgL_arg4187z00_1266, BFALSE, BGl_allocatezd2prezd2makezd2boxzd2envz00zzcfa_infoz00, ((long)52032), BNIL, BFALSE, BgL_arg4191z00_1270); } 
{ /* ./Cfa/cinfo.scm 101 */
obj_t BgL_arg4195z00_1272;obj_t BgL_arg4196z00_1273;obj_t BgL_arg4200z00_1277;
BgL_arg4195z00_1272 = 
CNST_TABLE_REF(((long)23)); 
BgL_arg4196z00_1273 = BGl_makezd2boxzd2zzast_nodez00; 
{ /* ./Cfa/cinfo.scm 101 */
obj_t BgL_v3855z00_1278;
{ 
int BgL_auxz00_5489;
BgL_auxz00_5489 = 
(int)(((long)0)); 
BgL_v3855z00_1278 = 
create_vector(BgL_auxz00_5489); } 
BgL_arg4200z00_1277 = BgL_v3855z00_1278; } 
BGl_makezd2boxzf2Cinfoz20zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4195z00_1272, BgL_arg4196z00_1273, BFALSE, BGl_allocatezd2makezd2boxzf2Cinfozd2envz20zzcfa_infoz00, ((long)60282), BNIL, BFALSE, BgL_arg4200z00_1277); } 
{ /* ./Cfa/cinfo.scm 103 */
obj_t BgL_arg4204z00_1279;obj_t BgL_arg4205z00_1280;obj_t BgL_arg4209z00_1284;
BgL_arg4204z00_1279 = 
CNST_TABLE_REF(((long)24)); 
BgL_arg4205z00_1280 = BGl_makezd2boxzd2zzast_nodez00; 
{ /* ./Cfa/cinfo.scm 103 */
obj_t BgL_v3856z00_1285;
{ 
int BgL_auxz00_5494;
BgL_auxz00_5494 = 
(int)(((long)0)); 
BgL_v3856z00_1285 = 
create_vector(BgL_auxz00_5494); } 
BgL_arg4209z00_1284 = BgL_v3856z00_1285; } 
BGl_makezd2boxzf2Ozd2Cinfozf2zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4204z00_1279, BgL_arg4205z00_1280, BFALSE, BGl_allocatezd2makezd2boxzf2Ozd2Cinfozd2envzf2zzcfa_infoz00, ((long)21556), BNIL, BFALSE, BgL_arg4209z00_1284); } 
{ /* ./Cfa/cinfo.scm 106 */
obj_t BgL_arg4213z00_1286;obj_t BgL_arg4214z00_1287;obj_t BgL_arg4218z00_1291;
BgL_arg4213z00_1286 = 
CNST_TABLE_REF(((long)25)); 
BgL_arg4214z00_1287 = BGl_boxzd2setz12zc0zzast_nodez00; 
{ /* ./Cfa/cinfo.scm 106 */
obj_t BgL_v3857z00_1292;
{ 
int BgL_auxz00_5499;
BgL_auxz00_5499 = 
(int)(((long)0)); 
BgL_v3857z00_1292 = 
create_vector(BgL_auxz00_5499); } 
BgL_arg4218z00_1291 = BgL_v3857z00_1292; } 
BGl_boxzd2setz12zf2Cinfoz32zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4213z00_1286, BgL_arg4214z00_1287, BFALSE, BGl_allocatezd2boxzd2setz12zf2Cinfozd2envz32zzcfa_infoz00, ((long)113), BNIL, BFALSE, BgL_arg4218z00_1291); } 
{ /* ./Cfa/cinfo.scm 108 */
obj_t BgL_arg4222z00_1293;obj_t BgL_arg4223z00_1294;obj_t BgL_arg4227z00_1298;
BgL_arg4222z00_1293 = 
CNST_TABLE_REF(((long)26)); 
BgL_arg4223z00_1294 = BGl_boxzd2refzd2zzast_nodez00; 
{ /* ./Cfa/cinfo.scm 108 */
obj_t BgL_v3858z00_1299;
{ 
int BgL_auxz00_5504;
BgL_auxz00_5504 = 
(int)(((long)0)); 
BgL_v3858z00_1299 = 
create_vector(BgL_auxz00_5504); } 
BgL_arg4227z00_1298 = BgL_v3858z00_1299; } 
BGl_boxzd2refzf2Cinfoz20zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4222z00_1293, BgL_arg4223z00_1294, BFALSE, BGl_allocatezd2boxzd2refzf2Cinfozd2envz20zzcfa_infoz00, ((long)65), BNIL, BFALSE, BgL_arg4227z00_1298); } 
{ /* ./Cfa/cinfo.scm 110 */
obj_t BgL_arg4231z00_1300;obj_t BgL_arg4232z00_1301;obj_t BgL_arg4236z00_1305;
BgL_arg4231z00_1300 = 
CNST_TABLE_REF(((long)27)); 
BgL_arg4232z00_1301 = BGl_boxzd2setz12zc0zzast_nodez00; 
{ /* ./Cfa/cinfo.scm 110 */
obj_t BgL_v3859z00_1306;
{ 
int BgL_auxz00_5509;
BgL_auxz00_5509 = 
(int)(((long)0)); 
BgL_v3859z00_1306 = 
create_vector(BgL_auxz00_5509); } 
BgL_arg4236z00_1305 = BgL_v3859z00_1306; } 
BGl_boxzd2setz12zf2Ozd2Cinfoze0zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4231z00_1300, BgL_arg4232z00_1301, BFALSE, BGl_allocatezd2boxzd2setz12zf2Ozd2Cinfozd2envze0zzcfa_infoz00, ((long)29893), BNIL, BFALSE, BgL_arg4236z00_1305); } 
{ /* ./Cfa/cinfo.scm 112 */
obj_t BgL_arg4240z00_1307;obj_t BgL_arg4241z00_1308;obj_t BgL_arg4245z00_1312;
BgL_arg4240z00_1307 = 
CNST_TABLE_REF(((long)28)); 
BgL_arg4241z00_1308 = BGl_boxzd2refzd2zzast_nodez00; 
{ /* ./Cfa/cinfo.scm 112 */
obj_t BgL_v3860z00_1313;
{ 
int BgL_auxz00_5514;
BgL_auxz00_5514 = 
(int)(((long)0)); 
BgL_v3860z00_1313 = 
create_vector(BgL_auxz00_5514); } 
BgL_arg4245z00_1312 = BgL_v3860z00_1313; } 
BGl_boxzd2refzf2Ozd2Cinfozf2zzcfa_infoz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4240z00_1307, BgL_arg4241z00_1308, BFALSE, BGl_allocatezd2boxzd2refzf2Ozd2Cinfozd2envzf2zzcfa_infoz00, ((long)17429), BNIL, BFALSE, BgL_arg4245z00_1312); } 
return BUNSPEC;} 
}



/* box-ref/O-Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_boxzd2refzf2Ozd2Cinfozf3z01zzcfa_infoz00(obj_t BgL_obj3817z00_1)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 112 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3817z00_1, BGl_boxzd2refzf2Ozd2Cinfozf2zzcfa_infoz00);} 
}



/* _box-ref/O-Cinfo? */
obj_t BGl__boxzd2refzf2Ozd2Cinfozf3z01zzcfa_infoz00(obj_t BgL_envz00_4251, obj_t BgL_obj3817z00_4252)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 112 */
{ /* ./Cfa/cinfo.scm 112 */
bool_t BgL_auxz00_5519;
BgL_auxz00_5519 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3817z00_4252, BGl_boxzd2refzf2Ozd2Cinfozf2zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_5519);} } 
}



/* widening-box-ref/O-Cinfo */
BGL_EXPORTED_DEF BgL_boxzd2refzf2ozd2cinfozf2_bglt BGl_wideningzd2boxzd2refzf2Ozd2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt BgL_approx3794z00_5)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 112 */
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_new3795z00_2560;
BgL_new3795z00_2560 = 
((BgL_boxzd2refzf2ozd2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_boxzd2refzf2ozd2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_res6280z00_2564;
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_new3806z00_2561;
BgL_new3806z00_2561 = BgL_new3795z00_2560; 
{ /* ./Cfa/cinfo.scm 112 */
BgL_approxz00_bglt BgL_approx3805z00_2563;
BgL_approx3805z00_2563 = BgL_approx3794z00_5; 
((((BgL_boxzd2refzf2ozd2cinfozf2_bglt)CREF(BgL_new3806z00_2561))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3805z00_2563), BUNSPEC); 
BgL_res6280z00_2564 = BgL_new3806z00_2561; } } BgL_res6280z00_2564; } 
return BgL_new3795z00_2560;} } 
}



/* _widening-box-ref/O-Cinfo */
obj_t BGl__wideningzd2boxzd2refzf2Ozd2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4253, obj_t BgL_approx3794z00_4254)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 112 */
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_auxz00_5524;
BgL_auxz00_5524 = 
BGl_wideningzd2boxzd2refzf2Ozd2Cinfoz20zzcfa_infoz00(
(BgL_approxz00_bglt)(BgL_approx3794z00_4254)); 
return 
(obj_t)(BgL_auxz00_5524);} } 
}



/* make-box-ref/O-Cinfo */
BGL_EXPORTED_DEF BgL_boxzd2refzf2ozd2cinfozf2_bglt BGl_makezd2boxzd2refzf2Ozd2Cinfoz20zzcfa_infoz00(obj_t BgL_loc3798z00_6, BgL_typez00_bglt BgL_type3799z00_7, obj_t BgL_sidezd2effectzf33800z21_8, obj_t BgL_key3801z00_9, BgL_varz00_bglt BgL_var3802z00_10, BgL_approxz00_bglt BgL_approx3797z00_11)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 112 */
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzd2_bglt BgL_aux3803z00_2565;
BgL_aux3803z00_2565 = 
BGl_makezd2boxzd2refz00zzast_nodez00(BgL_loc3798z00_6, BgL_type3799z00_7, BgL_sidezd2effectzf33800z21_8, BgL_key3801z00_9, BgL_var3802z00_10); 
{ /* ./Cfa/cinfo.scm 112 */
long BgL_arg4251z00_2566;
BgL_arg4251z00_2566 = 
BGl_classzd2numzd2zz__objectz00(BGl_boxzd2refzf2Ozd2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 112 */
BgL_objectz00_bglt BgL_objz00_2569;
BgL_objz00_2569 = 
(BgL_objectz00_bglt)(BgL_aux3803z00_2565); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2569, BgL_arg4251z00_2566); } } 
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_arg4255z00_2567;
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_res6282z00_2577;
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_new3795z00_2572;
BgL_new3795z00_2572 = 
((BgL_boxzd2refzf2ozd2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_boxzd2refzf2ozd2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_res6281z00_2576;
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_new3806z00_2573;
BgL_new3806z00_2573 = BgL_new3795z00_2572; 
{ /* ./Cfa/cinfo.scm 112 */
BgL_approxz00_bglt BgL_approx3805z00_2575;
BgL_approx3805z00_2575 = BgL_approx3797z00_11; 
((((BgL_boxzd2refzf2ozd2cinfozf2_bglt)CREF(BgL_new3806z00_2573))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3805z00_2575), BUNSPEC); 
BgL_res6281z00_2576 = BgL_new3806z00_2573; } } BgL_res6281z00_2576; } 
BgL_res6282z00_2577 = BgL_new3795z00_2572; } 
BgL_arg4255z00_2567 = BgL_res6282z00_2577; } 
{ /* ./Cfa/cinfo.scm 112 */
obj_t BgL_auxz00_5536;BgL_objectz00_bglt BgL_auxz00_5534;
BgL_auxz00_5536 = 
(obj_t)(BgL_arg4255z00_2567); 
BgL_auxz00_5534 = 
(BgL_objectz00_bglt)(BgL_aux3803z00_2565); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5534, BgL_auxz00_5536); } } 
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_new3804z00_2568;
{ 
BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_auxz00_5539;
BgL_auxz00_5539 = 
(BgL_boxzd2refzf2ozd2cinfozf2_bglt)(BgL_aux3803z00_2565); 
BgL_new3804z00_2568 = 
((BgL_boxzd2refzf2ozd2cinfozf2_bglt)BgL_auxz00_5539); } 
{ /* ./Cfa/cinfo.scm 112 */
obj_t BgL_objz00_2578;
BgL_objz00_2578 = 
(obj_t)(BgL_new3804z00_2568); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2578); BUNSPEC; } 
return BgL_new3804z00_2568;} } } 
}



/* _make-box-ref/O-Cinfo6466 */
obj_t BGl__makezd2boxzd2refzf2Ozd2Cinfo6466z20zzcfa_infoz00(obj_t BgL_envz00_4255, obj_t BgL_loc3798z00_4256, obj_t BgL_type3799z00_4257, obj_t BgL_sidezd2effectzf33800z21_4258, obj_t BgL_key3801z00_4259, obj_t BgL_var3802z00_4260, obj_t BgL_approx3797z00_4261)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 112 */
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_auxz00_5544;
BgL_auxz00_5544 = 
BGl_makezd2boxzd2refzf2Ozd2Cinfoz20zzcfa_infoz00(BgL_loc3798z00_4256, 
(BgL_typez00_bglt)(BgL_type3799z00_4257), BgL_sidezd2effectzf33800z21_4258, BgL_key3801z00_4259, 
(BgL_varz00_bglt)(BgL_var3802z00_4260), 
(BgL_approxz00_bglt)(BgL_approx3797z00_4261)); 
return 
(obj_t)(BgL_auxz00_5544);} } 
}



/* fill-box-ref/O-Cinfo! */
BGL_EXPORTED_DEF BgL_boxzd2refzf2ozd2cinfozf2_bglt BGl_fillzd2boxzd2refzf2Ozd2Cinfoz12z32zzcfa_infoz00(BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_new3806z00_12, BgL_approxz00_bglt BgL_approx3805z00_13)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 112 */
{ /* ./Cfa/cinfo.scm 112 */
BgL_approxz00_bglt BgL_approx3805z00_4896;
BgL_approx3805z00_4896 = BgL_approx3805z00_13; 
((((BgL_boxzd2refzf2ozd2cinfozf2_bglt)CREF(BgL_new3806z00_12))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3805z00_4896), BUNSPEC); 
return BgL_new3806z00_12;} } 
}



/* _fill-box-ref/O-Cinfo!6468 */
obj_t BGl__fillzd2boxzd2refzf2Ozd2Cinfoz126468z32zzcfa_infoz00(obj_t BgL_envz00_4262, obj_t BgL_new3806z00_4263, obj_t BgL_approx3805z00_4264)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 112 */
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_auxz00_5551;
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_res8166z00_4900;
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_new3806z00_4897;BgL_approxz00_bglt BgL_approx3805z00_4898;
BgL_new3806z00_4897 = 
(BgL_boxzd2refzf2ozd2cinfozf2_bglt)(BgL_new3806z00_4263); 
BgL_approx3805z00_4898 = 
(BgL_approxz00_bglt)(BgL_approx3805z00_4264); 
{ /* ./Cfa/cinfo.scm 112 */
BgL_approxz00_bglt BgL_approx3805z00_4899;
BgL_approx3805z00_4899 = BgL_approx3805z00_4898; 
((((BgL_boxzd2refzf2ozd2cinfozf2_bglt)CREF(BgL_new3806z00_4897))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3805z00_4899), BUNSPEC); 
BgL_res8166z00_4900 = BgL_new3806z00_4897; } } 
BgL_auxz00_5551 = BgL_res8166z00_4900; } 
return 
(obj_t)(BgL_auxz00_5551);} } 
}



/* allocate-box-ref/O-Cinfo */
BGL_EXPORTED_DEF BgL_boxzd2refzd2_bglt BGl_allocatezd2boxzd2refzf2Ozd2Cinfoz20zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 112 */
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzd2_bglt BgL_new3809z00_4901;
BgL_new3809z00_4901 = 
((BgL_boxzd2refzd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_boxzd2refzd2_bgl) ))); 
{ /* ./Cfa/cinfo.scm 112 */
long BgL_arg4261z00_4902;
BgL_arg4261z00_4902 = 
BGl_classzd2numzd2zz__objectz00(BGl_boxzd2refzf2Ozd2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 112 */
BgL_objectz00_bglt BgL_objz00_4903;
BgL_objz00_4903 = 
(BgL_objectz00_bglt)(BgL_new3809z00_4901); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4903, BgL_arg4261z00_4902); } } 
{ /* ./Cfa/cinfo.scm 112 */
BgL_objectz00_bglt BgL_auxz00_5560;
BgL_auxz00_5560 = 
(BgL_objectz00_bglt)(BgL_new3809z00_4901); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5560, BFALSE); } 
{ /* ./Cfa/cinfo.scm 112 */
obj_t BgL_objz00_4904;
BgL_objz00_4904 = 
(obj_t)(BgL_new3809z00_4901); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4904); BUNSPEC; } 
return BgL_new3809z00_4901;} } 
}



/* _allocate-box-ref/O-Cinfo */
obj_t BGl__allocatezd2boxzd2refzf2Ozd2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4250)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 112 */
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzd2_bglt BgL_auxz00_5565;
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzd2_bglt BgL_res8167z00_4909;
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzd2_bglt BgL_new3809z00_4905;
BgL_new3809z00_4905 = 
((BgL_boxzd2refzd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_boxzd2refzd2_bgl) ))); 
{ /* ./Cfa/cinfo.scm 112 */
long BgL_arg4261z00_4906;
BgL_arg4261z00_4906 = 
BGl_classzd2numzd2zz__objectz00(BGl_boxzd2refzf2Ozd2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 112 */
BgL_objectz00_bglt BgL_objz00_4907;
BgL_objz00_4907 = 
(BgL_objectz00_bglt)(BgL_new3809z00_4905); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4907, BgL_arg4261z00_4906); } } 
{ /* ./Cfa/cinfo.scm 112 */
BgL_objectz00_bglt BgL_auxz00_5570;
BgL_auxz00_5570 = 
(BgL_objectz00_bglt)(BgL_new3809z00_4905); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5570, BFALSE); } 
{ /* ./Cfa/cinfo.scm 112 */
obj_t BgL_objz00_4908;
BgL_objz00_4908 = 
(obj_t)(BgL_new3809z00_4905); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4908); BUNSPEC; } 
BgL_res8167z00_4909 = BgL_new3809z00_4905; } 
BgL_auxz00_5565 = BgL_res8167z00_4909; } 
return 
(obj_t)(BgL_auxz00_5565);} } 
}



/* box-set!/O-Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_boxzd2setz12zf2Ozd2Cinfozf3z13zzcfa_infoz00(obj_t BgL_obj3782z00_15)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 110 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3782z00_15, BGl_boxzd2setz12zf2Ozd2Cinfoze0zzcfa_infoz00);} 
}



/* _box-set!/O-Cinfo? */
obj_t BGl__boxzd2setz12zf2Ozd2Cinfozf3z13zzcfa_infoz00(obj_t BgL_envz00_4265, obj_t BgL_obj3782z00_4266)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 110 */
{ /* ./Cfa/cinfo.scm 110 */
bool_t BgL_auxz00_5577;
BgL_auxz00_5577 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3782z00_4266, BGl_boxzd2setz12zf2Ozd2Cinfoze0zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_5577);} } 
}



/* widening-box-set!/O-Cinfo */
BGL_EXPORTED_DEF BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BGl_wideningzd2boxzd2setz12zf2Ozd2Cinfoz32zzcfa_infoz00(BgL_approxz00_bglt BgL_approx3761z00_19)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 110 */
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_new3762z00_2585;
BgL_new3762z00_2585 = 
((BgL_boxzd2setz12zf2ozd2cinfoze0_bglt)BREF( GC_MALLOC (sizeof(struct BgL_boxzd2setz12zf2ozd2cinfoze0_bgl)))); 
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_res6283z00_2589;
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_new3772z00_2586;
BgL_new3772z00_2586 = BgL_new3762z00_2585; 
{ /* ./Cfa/cinfo.scm 110 */
BgL_approxz00_bglt BgL_approx3771z00_2588;
BgL_approx3771z00_2588 = BgL_approx3761z00_19; 
((((BgL_boxzd2setz12zf2ozd2cinfoze0_bglt)CREF(BgL_new3772z00_2586))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3771z00_2588), BUNSPEC); 
BgL_res6283z00_2589 = BgL_new3772z00_2586; } } BgL_res6283z00_2589; } 
return BgL_new3762z00_2585;} } 
}



/* _widening-box-set!/O-Cinfo */
obj_t BGl__wideningzd2boxzd2setz12zf2Ozd2Cinfoz32zzcfa_infoz00(obj_t BgL_envz00_4267, obj_t BgL_approx3761z00_4268)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 110 */
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_auxz00_5582;
BgL_auxz00_5582 = 
BGl_wideningzd2boxzd2setz12zf2Ozd2Cinfoz32zzcfa_infoz00(
(BgL_approxz00_bglt)(BgL_approx3761z00_4268)); 
return 
(obj_t)(BgL_auxz00_5582);} } 
}



/* make-box-set!/O-Cinfo */
BGL_EXPORTED_DEF BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BGl_makezd2boxzd2setz12zf2Ozd2Cinfoz32zzcfa_infoz00(obj_t BgL_loc3765z00_20, BgL_typez00_bglt BgL_type3766z00_21, BgL_varz00_bglt BgL_var3767z00_22, BgL_nodez00_bglt BgL_value3768z00_23, BgL_approxz00_bglt BgL_approx3764z00_24)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 110 */
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zc0_bglt BgL_aux3769z00_2590;
BgL_aux3769z00_2590 = 
BGl_makezd2boxzd2setz12z12zzast_nodez00(BgL_loc3765z00_20, BgL_type3766z00_21, BgL_var3767z00_22, BgL_value3768z00_23); 
{ /* ./Cfa/cinfo.scm 110 */
long BgL_arg4270z00_2591;
BgL_arg4270z00_2591 = 
BGl_classzd2numzd2zz__objectz00(BGl_boxzd2setz12zf2Ozd2Cinfoze0zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 110 */
BgL_objectz00_bglt BgL_objz00_2594;
BgL_objz00_2594 = 
(BgL_objectz00_bglt)(BgL_aux3769z00_2590); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2594, BgL_arg4270z00_2591); } } 
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_arg4274z00_2592;
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_res6285z00_2602;
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_new3762z00_2597;
BgL_new3762z00_2597 = 
((BgL_boxzd2setz12zf2ozd2cinfoze0_bglt)BREF( GC_MALLOC (sizeof(struct BgL_boxzd2setz12zf2ozd2cinfoze0_bgl)))); 
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_res6284z00_2601;
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_new3772z00_2598;
BgL_new3772z00_2598 = BgL_new3762z00_2597; 
{ /* ./Cfa/cinfo.scm 110 */
BgL_approxz00_bglt BgL_approx3771z00_2600;
BgL_approx3771z00_2600 = BgL_approx3764z00_24; 
((((BgL_boxzd2setz12zf2ozd2cinfoze0_bglt)CREF(BgL_new3772z00_2598))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3771z00_2600), BUNSPEC); 
BgL_res6284z00_2601 = BgL_new3772z00_2598; } } BgL_res6284z00_2601; } 
BgL_res6285z00_2602 = BgL_new3762z00_2597; } 
BgL_arg4274z00_2592 = BgL_res6285z00_2602; } 
{ /* ./Cfa/cinfo.scm 110 */
obj_t BgL_auxz00_5594;BgL_objectz00_bglt BgL_auxz00_5592;
BgL_auxz00_5594 = 
(obj_t)(BgL_arg4274z00_2592); 
BgL_auxz00_5592 = 
(BgL_objectz00_bglt)(BgL_aux3769z00_2590); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5592, BgL_auxz00_5594); } } 
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_new3770z00_2593;
{ 
BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_auxz00_5597;
BgL_auxz00_5597 = 
(BgL_boxzd2setz12zf2ozd2cinfoze0_bglt)(BgL_aux3769z00_2590); 
BgL_new3770z00_2593 = 
((BgL_boxzd2setz12zf2ozd2cinfoze0_bglt)BgL_auxz00_5597); } 
{ /* ./Cfa/cinfo.scm 110 */
obj_t BgL_objz00_2603;
BgL_objz00_2603 = 
(obj_t)(BgL_new3770z00_2593); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2603); BUNSPEC; } 
return BgL_new3770z00_2593;} } } 
}



/* _make-box-set!/O-Cinfo6472 */
obj_t BGl__makezd2boxzd2setz12zf2Ozd2Cinfo6472z32zzcfa_infoz00(obj_t BgL_envz00_4269, obj_t BgL_loc3765z00_4270, obj_t BgL_type3766z00_4271, obj_t BgL_var3767z00_4272, obj_t BgL_value3768z00_4273, obj_t BgL_approx3764z00_4274)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 110 */
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_auxz00_5602;
BgL_auxz00_5602 = 
BGl_makezd2boxzd2setz12zf2Ozd2Cinfoz32zzcfa_infoz00(BgL_loc3765z00_4270, 
(BgL_typez00_bglt)(BgL_type3766z00_4271), 
(BgL_varz00_bglt)(BgL_var3767z00_4272), 
(BgL_nodez00_bglt)(BgL_value3768z00_4273), 
(BgL_approxz00_bglt)(BgL_approx3764z00_4274)); 
return 
(obj_t)(BgL_auxz00_5602);} } 
}



/* fill-box-set!/O-Cinfo! */
BGL_EXPORTED_DEF BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BGl_fillzd2boxzd2setz12zf2Ozd2Cinfoz12z20zzcfa_infoz00(BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_new3772z00_25, BgL_approxz00_bglt BgL_approx3771z00_26)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 110 */
{ /* ./Cfa/cinfo.scm 110 */
BgL_approxz00_bglt BgL_approx3771z00_4911;
BgL_approx3771z00_4911 = BgL_approx3771z00_26; 
((((BgL_boxzd2setz12zf2ozd2cinfoze0_bglt)CREF(BgL_new3772z00_25))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3771z00_4911), BUNSPEC); 
return BgL_new3772z00_25;} } 
}



/* _fill-box-set!/O-Cinfo!6474 */
obj_t BGl__fillzd2boxzd2setz12zf2Ozd2Cinfoz126474z20zzcfa_infoz00(obj_t BgL_envz00_4275, obj_t BgL_new3772z00_4276, obj_t BgL_approx3771z00_4277)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 110 */
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_auxz00_5610;
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_res8168z00_4915;
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_new3772z00_4912;BgL_approxz00_bglt BgL_approx3771z00_4913;
BgL_new3772z00_4912 = 
(BgL_boxzd2setz12zf2ozd2cinfoze0_bglt)(BgL_new3772z00_4276); 
BgL_approx3771z00_4913 = 
(BgL_approxz00_bglt)(BgL_approx3771z00_4277); 
{ /* ./Cfa/cinfo.scm 110 */
BgL_approxz00_bglt BgL_approx3771z00_4914;
BgL_approx3771z00_4914 = BgL_approx3771z00_4913; 
((((BgL_boxzd2setz12zf2ozd2cinfoze0_bglt)CREF(BgL_new3772z00_4912))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3771z00_4914), BUNSPEC); 
BgL_res8168z00_4915 = BgL_new3772z00_4912; } } 
BgL_auxz00_5610 = BgL_res8168z00_4915; } 
return 
(obj_t)(BgL_auxz00_5610);} } 
}



/* allocate-box-set!/O-Cinfo */
BGL_EXPORTED_DEF BgL_boxzd2setz12zc0_bglt BGl_allocatezd2boxzd2setz12zf2Ozd2Cinfoz32zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 110 */
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zc0_bglt BgL_new3775z00_4916;
BgL_new3775z00_4916 = 
((BgL_boxzd2setz12zc0_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_boxzd2setz12zc0_bgl) ))); 
{ /* ./Cfa/cinfo.scm 110 */
long BgL_arg4280z00_4917;
BgL_arg4280z00_4917 = 
BGl_classzd2numzd2zz__objectz00(BGl_boxzd2setz12zf2Ozd2Cinfoze0zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 110 */
BgL_objectz00_bglt BgL_objz00_4918;
BgL_objz00_4918 = 
(BgL_objectz00_bglt)(BgL_new3775z00_4916); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4918, BgL_arg4280z00_4917); } } 
{ /* ./Cfa/cinfo.scm 110 */
BgL_objectz00_bglt BgL_auxz00_5619;
BgL_auxz00_5619 = 
(BgL_objectz00_bglt)(BgL_new3775z00_4916); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5619, BFALSE); } 
{ /* ./Cfa/cinfo.scm 110 */
obj_t BgL_objz00_4919;
BgL_objz00_4919 = 
(obj_t)(BgL_new3775z00_4916); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4919); BUNSPEC; } 
return BgL_new3775z00_4916;} } 
}



/* _allocate-box-set!/O-Cinfo */
obj_t BGl__allocatezd2boxzd2setz12zf2Ozd2Cinfoz32zzcfa_infoz00(obj_t BgL_envz00_4249)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 110 */
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zc0_bglt BgL_auxz00_5624;
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zc0_bglt BgL_res8169z00_4924;
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zc0_bglt BgL_new3775z00_4920;
BgL_new3775z00_4920 = 
((BgL_boxzd2setz12zc0_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_boxzd2setz12zc0_bgl) ))); 
{ /* ./Cfa/cinfo.scm 110 */
long BgL_arg4280z00_4921;
BgL_arg4280z00_4921 = 
BGl_classzd2numzd2zz__objectz00(BGl_boxzd2setz12zf2Ozd2Cinfoze0zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 110 */
BgL_objectz00_bglt BgL_objz00_4922;
BgL_objz00_4922 = 
(BgL_objectz00_bglt)(BgL_new3775z00_4920); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4922, BgL_arg4280z00_4921); } } 
{ /* ./Cfa/cinfo.scm 110 */
BgL_objectz00_bglt BgL_auxz00_5629;
BgL_auxz00_5629 = 
(BgL_objectz00_bglt)(BgL_new3775z00_4920); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5629, BFALSE); } 
{ /* ./Cfa/cinfo.scm 110 */
obj_t BgL_objz00_4923;
BgL_objz00_4923 = 
(obj_t)(BgL_new3775z00_4920); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4923); BUNSPEC; } 
BgL_res8169z00_4924 = BgL_new3775z00_4920; } 
BgL_auxz00_5624 = BgL_res8169z00_4924; } 
return 
(obj_t)(BgL_auxz00_5624);} } 
}



/* box-ref/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_boxzd2refzf2Cinfozf3zd3zzcfa_infoz00(obj_t BgL_obj3744z00_28)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 108 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3744z00_28, BGl_boxzd2refzf2Cinfoz20zzcfa_infoz00);} 
}



/* _box-ref/Cinfo? */
obj_t BGl__boxzd2refzf2Cinfozf3zd3zzcfa_infoz00(obj_t BgL_envz00_4278, obj_t BgL_obj3744z00_4279)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 108 */
{ /* ./Cfa/cinfo.scm 108 */
bool_t BgL_auxz00_5636;
BgL_auxz00_5636 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3744z00_4279, BGl_boxzd2refzf2Cinfoz20zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_5636);} } 
}



/* widening-box-ref/Cinfo */
BGL_EXPORTED_DEF BgL_boxzd2refzf2cinfoz20_bglt BGl_wideningzd2boxzd2refzf2Cinfozf2zzcfa_infoz00(BgL_approxz00_bglt BgL_approx3722z00_32)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 108 */
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzf2cinfoz20_bglt BgL_new3723z00_2610;
BgL_new3723z00_2610 = 
((BgL_boxzd2refzf2cinfoz20_bglt)BREF( GC_MALLOC (sizeof(struct BgL_boxzd2refzf2cinfoz20_bgl)))); 
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzf2cinfoz20_bglt BgL_res6286z00_2614;
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzf2cinfoz20_bglt BgL_new3734z00_2611;
BgL_new3734z00_2611 = BgL_new3723z00_2610; 
{ /* ./Cfa/cinfo.scm 108 */
BgL_approxz00_bglt BgL_approx3733z00_2613;
BgL_approx3733z00_2613 = BgL_approx3722z00_32; 
((((BgL_boxzd2refzf2cinfoz20_bglt)CREF(BgL_new3734z00_2611))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3733z00_2613), BUNSPEC); 
BgL_res6286z00_2614 = BgL_new3734z00_2611; } } BgL_res6286z00_2614; } 
return BgL_new3723z00_2610;} } 
}



/* _widening-box-ref/Cinfo */
obj_t BGl__wideningzd2boxzd2refzf2Cinfozf2zzcfa_infoz00(obj_t BgL_envz00_4280, obj_t BgL_approx3722z00_4281)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 108 */
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzf2cinfoz20_bglt BgL_auxz00_5641;
BgL_auxz00_5641 = 
BGl_wideningzd2boxzd2refzf2Cinfozf2zzcfa_infoz00(
(BgL_approxz00_bglt)(BgL_approx3722z00_4281)); 
return 
(obj_t)(BgL_auxz00_5641);} } 
}



/* make-box-ref/Cinfo */
BGL_EXPORTED_DEF BgL_boxzd2refzf2cinfoz20_bglt BGl_makezd2boxzd2refzf2Cinfozf2zzcfa_infoz00(obj_t BgL_loc3726z00_33, BgL_typez00_bglt BgL_type3727z00_34, obj_t BgL_sidezd2effectzf33728z21_35, obj_t BgL_key3729z00_36, BgL_varz00_bglt BgL_var3730z00_37, BgL_approxz00_bglt BgL_approx3725z00_38)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 108 */
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzd2_bglt BgL_aux3731z00_2615;
BgL_aux3731z00_2615 = 
BGl_makezd2boxzd2refz00zzast_nodez00(BgL_loc3726z00_33, BgL_type3727z00_34, BgL_sidezd2effectzf33728z21_35, BgL_key3729z00_36, BgL_var3730z00_37); 
{ /* ./Cfa/cinfo.scm 108 */
long BgL_arg4289z00_2616;
BgL_arg4289z00_2616 = 
BGl_classzd2numzd2zz__objectz00(BGl_boxzd2refzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 108 */
BgL_objectz00_bglt BgL_objz00_2619;
BgL_objz00_2619 = 
(BgL_objectz00_bglt)(BgL_aux3731z00_2615); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2619, BgL_arg4289z00_2616); } } 
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzf2cinfoz20_bglt BgL_arg4293z00_2617;
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzf2cinfoz20_bglt BgL_res6288z00_2627;
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzf2cinfoz20_bglt BgL_new3723z00_2622;
BgL_new3723z00_2622 = 
((BgL_boxzd2refzf2cinfoz20_bglt)BREF( GC_MALLOC (sizeof(struct BgL_boxzd2refzf2cinfoz20_bgl)))); 
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzf2cinfoz20_bglt BgL_res6287z00_2626;
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzf2cinfoz20_bglt BgL_new3734z00_2623;
BgL_new3734z00_2623 = BgL_new3723z00_2622; 
{ /* ./Cfa/cinfo.scm 108 */
BgL_approxz00_bglt BgL_approx3733z00_2625;
BgL_approx3733z00_2625 = BgL_approx3725z00_38; 
((((BgL_boxzd2refzf2cinfoz20_bglt)CREF(BgL_new3734z00_2623))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3733z00_2625), BUNSPEC); 
BgL_res6287z00_2626 = BgL_new3734z00_2623; } } BgL_res6287z00_2626; } 
BgL_res6288z00_2627 = BgL_new3723z00_2622; } 
BgL_arg4293z00_2617 = BgL_res6288z00_2627; } 
{ /* ./Cfa/cinfo.scm 108 */
obj_t BgL_auxz00_5653;BgL_objectz00_bglt BgL_auxz00_5651;
BgL_auxz00_5653 = 
(obj_t)(BgL_arg4293z00_2617); 
BgL_auxz00_5651 = 
(BgL_objectz00_bglt)(BgL_aux3731z00_2615); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5651, BgL_auxz00_5653); } } 
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzf2cinfoz20_bglt BgL_new3732z00_2618;
{ 
BgL_boxzd2refzf2cinfoz20_bglt BgL_auxz00_5656;
BgL_auxz00_5656 = 
(BgL_boxzd2refzf2cinfoz20_bglt)(BgL_aux3731z00_2615); 
BgL_new3732z00_2618 = 
((BgL_boxzd2refzf2cinfoz20_bglt)BgL_auxz00_5656); } 
{ /* ./Cfa/cinfo.scm 108 */
obj_t BgL_objz00_2628;
BgL_objz00_2628 = 
(obj_t)(BgL_new3732z00_2618); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2628); BUNSPEC; } 
return BgL_new3732z00_2618;} } } 
}



/* _make-box-ref/Cinfo6478 */
obj_t BGl__makezd2boxzd2refzf2Cinfo6478zf2zzcfa_infoz00(obj_t BgL_envz00_4282, obj_t BgL_loc3726z00_4283, obj_t BgL_type3727z00_4284, obj_t BgL_sidezd2effectzf33728z21_4285, obj_t BgL_key3729z00_4286, obj_t BgL_var3730z00_4287, obj_t BgL_approx3725z00_4288)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 108 */
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzf2cinfoz20_bglt BgL_auxz00_5661;
BgL_auxz00_5661 = 
BGl_makezd2boxzd2refzf2Cinfozf2zzcfa_infoz00(BgL_loc3726z00_4283, 
(BgL_typez00_bglt)(BgL_type3727z00_4284), BgL_sidezd2effectzf33728z21_4285, BgL_key3729z00_4286, 
(BgL_varz00_bglt)(BgL_var3730z00_4287), 
(BgL_approxz00_bglt)(BgL_approx3725z00_4288)); 
return 
(obj_t)(BgL_auxz00_5661);} } 
}



/* fill-box-ref/Cinfo! */
BGL_EXPORTED_DEF BgL_boxzd2refzf2cinfoz20_bglt BGl_fillzd2boxzd2refzf2Cinfoz12ze0zzcfa_infoz00(BgL_boxzd2refzf2cinfoz20_bglt BgL_new3734z00_39, BgL_approxz00_bglt BgL_approx3733z00_40)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 108 */
{ /* ./Cfa/cinfo.scm 108 */
BgL_approxz00_bglt BgL_approx3733z00_4926;
BgL_approx3733z00_4926 = BgL_approx3733z00_40; 
((((BgL_boxzd2refzf2cinfoz20_bglt)CREF(BgL_new3734z00_39))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3733z00_4926), BUNSPEC); 
return BgL_new3734z00_39;} } 
}



/* _fill-box-ref/Cinfo!6480 */
obj_t BGl__fillzd2boxzd2refzf2Cinfoz126480ze0zzcfa_infoz00(obj_t BgL_envz00_4289, obj_t BgL_new3734z00_4290, obj_t BgL_approx3733z00_4291)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 108 */
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzf2cinfoz20_bglt BgL_auxz00_5668;
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzf2cinfoz20_bglt BgL_res8170z00_4930;
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzf2cinfoz20_bglt BgL_new3734z00_4927;BgL_approxz00_bglt BgL_approx3733z00_4928;
BgL_new3734z00_4927 = 
(BgL_boxzd2refzf2cinfoz20_bglt)(BgL_new3734z00_4290); 
BgL_approx3733z00_4928 = 
(BgL_approxz00_bglt)(BgL_approx3733z00_4291); 
{ /* ./Cfa/cinfo.scm 108 */
BgL_approxz00_bglt BgL_approx3733z00_4929;
BgL_approx3733z00_4929 = BgL_approx3733z00_4928; 
((((BgL_boxzd2refzf2cinfoz20_bglt)CREF(BgL_new3734z00_4927))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3733z00_4929), BUNSPEC); 
BgL_res8170z00_4930 = BgL_new3734z00_4927; } } 
BgL_auxz00_5668 = BgL_res8170z00_4930; } 
return 
(obj_t)(BgL_auxz00_5668);} } 
}



/* allocate-box-ref/Cinfo */
BGL_EXPORTED_DEF BgL_boxzd2refzd2_bglt BGl_allocatezd2boxzd2refzf2Cinfozf2zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 108 */
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzd2_bglt BgL_new3737z00_4931;
BgL_new3737z00_4931 = 
((BgL_boxzd2refzd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_boxzd2refzd2_bgl) ))); 
{ /* ./Cfa/cinfo.scm 108 */
long BgL_arg4299z00_4932;
BgL_arg4299z00_4932 = 
BGl_classzd2numzd2zz__objectz00(BGl_boxzd2refzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 108 */
BgL_objectz00_bglt BgL_objz00_4933;
BgL_objz00_4933 = 
(BgL_objectz00_bglt)(BgL_new3737z00_4931); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4933, BgL_arg4299z00_4932); } } 
{ /* ./Cfa/cinfo.scm 108 */
BgL_objectz00_bglt BgL_auxz00_5677;
BgL_auxz00_5677 = 
(BgL_objectz00_bglt)(BgL_new3737z00_4931); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5677, BFALSE); } 
{ /* ./Cfa/cinfo.scm 108 */
obj_t BgL_objz00_4934;
BgL_objz00_4934 = 
(obj_t)(BgL_new3737z00_4931); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4934); BUNSPEC; } 
return BgL_new3737z00_4931;} } 
}



/* _allocate-box-ref/Cinfo */
obj_t BGl__allocatezd2boxzd2refzf2Cinfozf2zzcfa_infoz00(obj_t BgL_envz00_4248)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 108 */
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzd2_bglt BgL_auxz00_5682;
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzd2_bglt BgL_res8171z00_4939;
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzd2_bglt BgL_new3737z00_4935;
BgL_new3737z00_4935 = 
((BgL_boxzd2refzd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_boxzd2refzd2_bgl) ))); 
{ /* ./Cfa/cinfo.scm 108 */
long BgL_arg4299z00_4936;
BgL_arg4299z00_4936 = 
BGl_classzd2numzd2zz__objectz00(BGl_boxzd2refzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 108 */
BgL_objectz00_bglt BgL_objz00_4937;
BgL_objz00_4937 = 
(BgL_objectz00_bglt)(BgL_new3737z00_4935); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4937, BgL_arg4299z00_4936); } } 
{ /* ./Cfa/cinfo.scm 108 */
BgL_objectz00_bglt BgL_auxz00_5687;
BgL_auxz00_5687 = 
(BgL_objectz00_bglt)(BgL_new3737z00_4935); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5687, BFALSE); } 
{ /* ./Cfa/cinfo.scm 108 */
obj_t BgL_objz00_4938;
BgL_objz00_4938 = 
(obj_t)(BgL_new3737z00_4935); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4938); BUNSPEC; } 
BgL_res8171z00_4939 = BgL_new3737z00_4935; } 
BgL_auxz00_5682 = BgL_res8171z00_4939; } 
return 
(obj_t)(BgL_auxz00_5682);} } 
}



/* box-set!/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_boxzd2setz12zf2Cinfozf3zc1zzcfa_infoz00(obj_t BgL_obj3710z00_42)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 106 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3710z00_42, BGl_boxzd2setz12zf2Cinfoz32zzcfa_infoz00);} 
}



/* _box-set!/Cinfo? */
obj_t BGl__boxzd2setz12zf2Cinfozf3zc1zzcfa_infoz00(obj_t BgL_envz00_4292, obj_t BgL_obj3710z00_4293)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 106 */
{ /* ./Cfa/cinfo.scm 106 */
bool_t BgL_auxz00_5694;
BgL_auxz00_5694 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3710z00_4293, BGl_boxzd2setz12zf2Cinfoz32zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_5694);} } 
}



/* widening-box-set!/Cinfo */
BGL_EXPORTED_DEF BgL_boxzd2setz12zf2cinfoz32_bglt BGl_wideningzd2boxzd2setz12zf2Cinfoze0zzcfa_infoz00(BgL_approxz00_bglt BgL_approx3689z00_46)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 106 */
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_new3690z00_2635;
BgL_new3690z00_2635 = 
((BgL_boxzd2setz12zf2cinfoz32_bglt)BREF( GC_MALLOC (sizeof(struct BgL_boxzd2setz12zf2cinfoz32_bgl)))); 
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_res6289z00_2639;
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_new3700z00_2636;
BgL_new3700z00_2636 = BgL_new3690z00_2635; 
{ /* ./Cfa/cinfo.scm 106 */
BgL_approxz00_bglt BgL_approx3699z00_2638;
BgL_approx3699z00_2638 = BgL_approx3689z00_46; 
((((BgL_boxzd2setz12zf2cinfoz32_bglt)CREF(BgL_new3700z00_2636))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3699z00_2638), BUNSPEC); 
BgL_res6289z00_2639 = BgL_new3700z00_2636; } } BgL_res6289z00_2639; } 
return BgL_new3690z00_2635;} } 
}



/* _widening-box-set!/Cinfo */
obj_t BGl__wideningzd2boxzd2setz12zf2Cinfoze0zzcfa_infoz00(obj_t BgL_envz00_4294, obj_t BgL_approx3689z00_4295)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 106 */
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_auxz00_5699;
BgL_auxz00_5699 = 
BGl_wideningzd2boxzd2setz12zf2Cinfoze0zzcfa_infoz00(
(BgL_approxz00_bglt)(BgL_approx3689z00_4295)); 
return 
(obj_t)(BgL_auxz00_5699);} } 
}



/* make-box-set!/Cinfo */
BGL_EXPORTED_DEF BgL_boxzd2setz12zf2cinfoz32_bglt BGl_makezd2boxzd2setz12zf2Cinfoze0zzcfa_infoz00(obj_t BgL_loc3693z00_47, BgL_typez00_bglt BgL_type3694z00_48, BgL_varz00_bglt BgL_var3695z00_49, BgL_nodez00_bglt BgL_value3696z00_50, BgL_approxz00_bglt BgL_approx3692z00_51)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 106 */
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zc0_bglt BgL_aux3697z00_2640;
BgL_aux3697z00_2640 = 
BGl_makezd2boxzd2setz12z12zzast_nodez00(BgL_loc3693z00_47, BgL_type3694z00_48, BgL_var3695z00_49, BgL_value3696z00_50); 
{ /* ./Cfa/cinfo.scm 106 */
long BgL_arg4309z00_2641;
BgL_arg4309z00_2641 = 
BGl_classzd2numzd2zz__objectz00(BGl_boxzd2setz12zf2Cinfoz32zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 106 */
BgL_objectz00_bglt BgL_objz00_2644;
BgL_objz00_2644 = 
(BgL_objectz00_bglt)(BgL_aux3697z00_2640); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2644, BgL_arg4309z00_2641); } } 
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_arg4313z00_2642;
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_res6291z00_2652;
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_new3690z00_2647;
BgL_new3690z00_2647 = 
((BgL_boxzd2setz12zf2cinfoz32_bglt)BREF( GC_MALLOC (sizeof(struct BgL_boxzd2setz12zf2cinfoz32_bgl)))); 
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_res6290z00_2651;
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_new3700z00_2648;
BgL_new3700z00_2648 = BgL_new3690z00_2647; 
{ /* ./Cfa/cinfo.scm 106 */
BgL_approxz00_bglt BgL_approx3699z00_2650;
BgL_approx3699z00_2650 = BgL_approx3692z00_51; 
((((BgL_boxzd2setz12zf2cinfoz32_bglt)CREF(BgL_new3700z00_2648))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3699z00_2650), BUNSPEC); 
BgL_res6290z00_2651 = BgL_new3700z00_2648; } } BgL_res6290z00_2651; } 
BgL_res6291z00_2652 = BgL_new3690z00_2647; } 
BgL_arg4313z00_2642 = BgL_res6291z00_2652; } 
{ /* ./Cfa/cinfo.scm 106 */
obj_t BgL_auxz00_5711;BgL_objectz00_bglt BgL_auxz00_5709;
BgL_auxz00_5711 = 
(obj_t)(BgL_arg4313z00_2642); 
BgL_auxz00_5709 = 
(BgL_objectz00_bglt)(BgL_aux3697z00_2640); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5709, BgL_auxz00_5711); } } 
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_new3698z00_2643;
{ 
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_auxz00_5714;
BgL_auxz00_5714 = 
(BgL_boxzd2setz12zf2cinfoz32_bglt)(BgL_aux3697z00_2640); 
BgL_new3698z00_2643 = 
((BgL_boxzd2setz12zf2cinfoz32_bglt)BgL_auxz00_5714); } 
{ /* ./Cfa/cinfo.scm 106 */
obj_t BgL_objz00_2653;
BgL_objz00_2653 = 
(obj_t)(BgL_new3698z00_2643); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2653); BUNSPEC; } 
return BgL_new3698z00_2643;} } } 
}



/* _make-box-set!/Cinfo6484 */
obj_t BGl__makezd2boxzd2setz12zf2Cinfo6484ze0zzcfa_infoz00(obj_t BgL_envz00_4296, obj_t BgL_loc3693z00_4297, obj_t BgL_type3694z00_4298, obj_t BgL_var3695z00_4299, obj_t BgL_value3696z00_4300, obj_t BgL_approx3692z00_4301)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 106 */
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_auxz00_5719;
BgL_auxz00_5719 = 
BGl_makezd2boxzd2setz12zf2Cinfoze0zzcfa_infoz00(BgL_loc3693z00_4297, 
(BgL_typez00_bglt)(BgL_type3694z00_4298), 
(BgL_varz00_bglt)(BgL_var3695z00_4299), 
(BgL_nodez00_bglt)(BgL_value3696z00_4300), 
(BgL_approxz00_bglt)(BgL_approx3692z00_4301)); 
return 
(obj_t)(BgL_auxz00_5719);} } 
}



/* fill-box-set!/Cinfo! */
BGL_EXPORTED_DEF BgL_boxzd2setz12zf2cinfoz32_bglt BGl_fillzd2boxzd2setz12zf2Cinfoz12zf2zzcfa_infoz00(BgL_boxzd2setz12zf2cinfoz32_bglt BgL_new3700z00_52, BgL_approxz00_bglt BgL_approx3699z00_53)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 106 */
{ /* ./Cfa/cinfo.scm 106 */
BgL_approxz00_bglt BgL_approx3699z00_4941;
BgL_approx3699z00_4941 = BgL_approx3699z00_53; 
((((BgL_boxzd2setz12zf2cinfoz32_bglt)CREF(BgL_new3700z00_52))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3699z00_4941), BUNSPEC); 
return BgL_new3700z00_52;} } 
}



/* _fill-box-set!/Cinfo!6486 */
obj_t BGl__fillzd2boxzd2setz12zf2Cinfoz126486zf2zzcfa_infoz00(obj_t BgL_envz00_4302, obj_t BgL_new3700z00_4303, obj_t BgL_approx3699z00_4304)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 106 */
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_auxz00_5727;
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_res8172z00_4945;
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_new3700z00_4942;BgL_approxz00_bglt BgL_approx3699z00_4943;
BgL_new3700z00_4942 = 
(BgL_boxzd2setz12zf2cinfoz32_bglt)(BgL_new3700z00_4303); 
BgL_approx3699z00_4943 = 
(BgL_approxz00_bglt)(BgL_approx3699z00_4304); 
{ /* ./Cfa/cinfo.scm 106 */
BgL_approxz00_bglt BgL_approx3699z00_4944;
BgL_approx3699z00_4944 = BgL_approx3699z00_4943; 
((((BgL_boxzd2setz12zf2cinfoz32_bglt)CREF(BgL_new3700z00_4942))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3699z00_4944), BUNSPEC); 
BgL_res8172z00_4945 = BgL_new3700z00_4942; } } 
BgL_auxz00_5727 = BgL_res8172z00_4945; } 
return 
(obj_t)(BgL_auxz00_5727);} } 
}



/* allocate-box-set!/Cinfo */
BGL_EXPORTED_DEF BgL_boxzd2setz12zc0_bglt BGl_allocatezd2boxzd2setz12zf2Cinfoze0zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 106 */
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zc0_bglt BgL_new3703z00_4946;
BgL_new3703z00_4946 = 
((BgL_boxzd2setz12zc0_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_boxzd2setz12zc0_bgl) ))); 
{ /* ./Cfa/cinfo.scm 106 */
long BgL_arg4319z00_4947;
BgL_arg4319z00_4947 = 
BGl_classzd2numzd2zz__objectz00(BGl_boxzd2setz12zf2Cinfoz32zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 106 */
BgL_objectz00_bglt BgL_objz00_4948;
BgL_objz00_4948 = 
(BgL_objectz00_bglt)(BgL_new3703z00_4946); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4948, BgL_arg4319z00_4947); } } 
{ /* ./Cfa/cinfo.scm 106 */
BgL_objectz00_bglt BgL_auxz00_5736;
BgL_auxz00_5736 = 
(BgL_objectz00_bglt)(BgL_new3703z00_4946); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5736, BFALSE); } 
{ /* ./Cfa/cinfo.scm 106 */
obj_t BgL_objz00_4949;
BgL_objz00_4949 = 
(obj_t)(BgL_new3703z00_4946); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4949); BUNSPEC; } 
return BgL_new3703z00_4946;} } 
}



/* _allocate-box-set!/Cinfo */
obj_t BGl__allocatezd2boxzd2setz12zf2Cinfoze0zzcfa_infoz00(obj_t BgL_envz00_4247)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 106 */
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zc0_bglt BgL_auxz00_5741;
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zc0_bglt BgL_res8173z00_4954;
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zc0_bglt BgL_new3703z00_4950;
BgL_new3703z00_4950 = 
((BgL_boxzd2setz12zc0_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_boxzd2setz12zc0_bgl) ))); 
{ /* ./Cfa/cinfo.scm 106 */
long BgL_arg4319z00_4951;
BgL_arg4319z00_4951 = 
BGl_classzd2numzd2zz__objectz00(BGl_boxzd2setz12zf2Cinfoz32zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 106 */
BgL_objectz00_bglt BgL_objz00_4952;
BgL_objz00_4952 = 
(BgL_objectz00_bglt)(BgL_new3703z00_4950); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4952, BgL_arg4319z00_4951); } } 
{ /* ./Cfa/cinfo.scm 106 */
BgL_objectz00_bglt BgL_auxz00_5746;
BgL_auxz00_5746 = 
(BgL_objectz00_bglt)(BgL_new3703z00_4950); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5746, BFALSE); } 
{ /* ./Cfa/cinfo.scm 106 */
obj_t BgL_objz00_4953;
BgL_objz00_4953 = 
(obj_t)(BgL_new3703z00_4950); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4953); BUNSPEC; } 
BgL_res8173z00_4954 = BgL_new3703z00_4950; } 
BgL_auxz00_5741 = BgL_res8173z00_4954; } 
return 
(obj_t)(BgL_auxz00_5741);} } 
}



/* make-box/O-Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_makezd2boxzf2Ozd2Cinfozf3z01zzcfa_infoz00(obj_t BgL_obj3671z00_55)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 103 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3671z00_55, BGl_makezd2boxzf2Ozd2Cinfozf2zzcfa_infoz00);} 
}



/* _make-box/O-Cinfo? */
obj_t BGl__makezd2boxzf2Ozd2Cinfozf3z01zzcfa_infoz00(obj_t BgL_envz00_4305, obj_t BgL_obj3671z00_4306)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 103 */
{ /* ./Cfa/cinfo.scm 103 */
bool_t BgL_auxz00_5753;
BgL_auxz00_5753 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3671z00_4306, BGl_makezd2boxzf2Ozd2Cinfozf2zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_5753);} } 
}



/* widening-make-box/O-Cinfo */
BGL_EXPORTED_DEF BgL_makezd2boxzf2ozd2cinfozf2_bglt BGl_wideningzd2makezd2boxzf2Ozd2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt BgL_approx3645z00_59, BgL_approxz00_bglt BgL_valuezd2approx3646zd2_60)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 103 */
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_new3647z00_2660;
BgL_new3647z00_2660 = 
((BgL_makezd2boxzf2ozd2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_makezd2boxzf2ozd2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_res6292z00_2666;
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_new3660z00_2661;
BgL_new3660z00_2661 = BgL_new3647z00_2660; 
{ /* ./Cfa/cinfo.scm 103 */
BgL_approxz00_bglt BgL_approx3658z00_2664;BgL_approxz00_bglt BgL_valuezd2approx3659zd2_2665;
BgL_approx3658z00_2664 = BgL_approx3645z00_59; 
BgL_valuezd2approx3659zd2_2665 = BgL_valuezd2approx3646zd2_60; 
((((BgL_makezd2boxzf2ozd2cinfozf2_bglt)CREF(BgL_new3660z00_2661))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3658z00_2664), BUNSPEC); 
((((BgL_makezd2boxzf2ozd2cinfozf2_bglt)CREF(BgL_new3660z00_2661))->BgL_valuezd2approxzd2) = ((BgL_approxz00_bglt)BgL_valuezd2approx3659zd2_2665), BUNSPEC); 
BgL_res6292z00_2666 = BgL_new3660z00_2661; } } BgL_res6292z00_2666; } 
return BgL_new3647z00_2660;} } 
}



/* _widening-make-box/O-Cinfo */
obj_t BGl__wideningzd2makezd2boxzf2Ozd2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4307, obj_t BgL_approx3645z00_4308, obj_t BgL_valuezd2approx3646zd2_4309)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 103 */
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_auxz00_5759;
BgL_auxz00_5759 = 
BGl_wideningzd2makezd2boxzf2Ozd2Cinfoz20zzcfa_infoz00(
(BgL_approxz00_bglt)(BgL_approx3645z00_4308), 
(BgL_approxz00_bglt)(BgL_valuezd2approx3646zd2_4309)); 
return 
(obj_t)(BgL_auxz00_5759);} } 
}



/* make-make-box/O-Cinfo */
BGL_EXPORTED_DEF BgL_makezd2boxzf2ozd2cinfozf2_bglt BGl_makezd2makezd2boxzf2Ozd2Cinfoz20zzcfa_infoz00(obj_t BgL_loc3651z00_61, BgL_typez00_bglt BgL_type3652z00_62, obj_t BgL_sidezd2effectzf33653z21_63, obj_t BgL_key3654z00_64, BgL_nodez00_bglt BgL_value3655z00_65, BgL_approxz00_bglt BgL_approx3649z00_66, BgL_approxz00_bglt BgL_valuezd2approx3650zd2_67)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 103 */
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzd2_bglt BgL_aux3656z00_2667;
BgL_aux3656z00_2667 = 
BGl_makezd2makezd2boxz00zzast_nodez00(BgL_loc3651z00_61, BgL_type3652z00_62, BgL_sidezd2effectzf33653z21_63, BgL_key3654z00_64, BgL_value3655z00_65); 
{ /* ./Cfa/cinfo.scm 103 */
long BgL_arg4328z00_2668;
BgL_arg4328z00_2668 = 
BGl_classzd2numzd2zz__objectz00(BGl_makezd2boxzf2Ozd2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 103 */
BgL_objectz00_bglt BgL_objz00_2671;
BgL_objz00_2671 = 
(BgL_objectz00_bglt)(BgL_aux3656z00_2667); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2671, BgL_arg4328z00_2668); } } 
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_arg4332z00_2669;
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_res6294z00_2682;
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_new3647z00_2675;
BgL_new3647z00_2675 = 
((BgL_makezd2boxzf2ozd2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_makezd2boxzf2ozd2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_res6293z00_2681;
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_new3660z00_2676;
BgL_new3660z00_2676 = BgL_new3647z00_2675; 
{ /* ./Cfa/cinfo.scm 103 */
BgL_approxz00_bglt BgL_approx3658z00_2679;BgL_approxz00_bglt BgL_valuezd2approx3659zd2_2680;
BgL_approx3658z00_2679 = BgL_approx3649z00_66; 
BgL_valuezd2approx3659zd2_2680 = BgL_valuezd2approx3650zd2_67; 
((((BgL_makezd2boxzf2ozd2cinfozf2_bglt)CREF(BgL_new3660z00_2676))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3658z00_2679), BUNSPEC); 
((((BgL_makezd2boxzf2ozd2cinfozf2_bglt)CREF(BgL_new3660z00_2676))->BgL_valuezd2approxzd2) = ((BgL_approxz00_bglt)BgL_valuezd2approx3659zd2_2680), BUNSPEC); 
BgL_res6293z00_2681 = BgL_new3660z00_2676; } } BgL_res6293z00_2681; } 
BgL_res6294z00_2682 = BgL_new3647z00_2675; } 
BgL_arg4332z00_2669 = BgL_res6294z00_2682; } 
{ /* ./Cfa/cinfo.scm 103 */
obj_t BgL_auxz00_5773;BgL_objectz00_bglt BgL_auxz00_5771;
BgL_auxz00_5773 = 
(obj_t)(BgL_arg4332z00_2669); 
BgL_auxz00_5771 = 
(BgL_objectz00_bglt)(BgL_aux3656z00_2667); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5771, BgL_auxz00_5773); } } 
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_new3657z00_2670;
{ 
BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_auxz00_5776;
BgL_auxz00_5776 = 
(BgL_makezd2boxzf2ozd2cinfozf2_bglt)(BgL_aux3656z00_2667); 
BgL_new3657z00_2670 = 
((BgL_makezd2boxzf2ozd2cinfozf2_bglt)BgL_auxz00_5776); } 
{ /* ./Cfa/cinfo.scm 103 */
obj_t BgL_objz00_2683;
BgL_objz00_2683 = 
(obj_t)(BgL_new3657z00_2670); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2683); BUNSPEC; } 
return BgL_new3657z00_2670;} } } 
}



/* _make-make-box/O-Cinfo6490 */
obj_t BGl__makezd2makezd2boxzf2Ozd2Cinfo6490z20zzcfa_infoz00(obj_t BgL_envz00_4310, obj_t BgL_loc3651z00_4311, obj_t BgL_type3652z00_4312, obj_t BgL_sidezd2effectzf33653z21_4313, obj_t BgL_key3654z00_4314, obj_t BgL_value3655z00_4315, obj_t BgL_approx3649z00_4316, obj_t BgL_valuezd2approx3650zd2_4317)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 103 */
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_auxz00_5781;
BgL_auxz00_5781 = 
BGl_makezd2makezd2boxzf2Ozd2Cinfoz20zzcfa_infoz00(BgL_loc3651z00_4311, 
(BgL_typez00_bglt)(BgL_type3652z00_4312), BgL_sidezd2effectzf33653z21_4313, BgL_key3654z00_4314, 
(BgL_nodez00_bglt)(BgL_value3655z00_4315), 
(BgL_approxz00_bglt)(BgL_approx3649z00_4316), 
(BgL_approxz00_bglt)(BgL_valuezd2approx3650zd2_4317)); 
return 
(obj_t)(BgL_auxz00_5781);} } 
}



/* fill-make-box/O-Cinfo! */
BGL_EXPORTED_DEF BgL_makezd2boxzf2ozd2cinfozf2_bglt BGl_fillzd2makezd2boxzf2Ozd2Cinfoz12z32zzcfa_infoz00(BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_new3660z00_68, BgL_approxz00_bglt BgL_approx3658z00_69, BgL_approxz00_bglt BgL_valuezd2approx3659zd2_70)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 103 */
{ /* ./Cfa/cinfo.scm 103 */
BgL_approxz00_bglt BgL_approx3658z00_4956;BgL_approxz00_bglt BgL_valuezd2approx3659zd2_4957;
BgL_approx3658z00_4956 = BgL_approx3658z00_69; 
BgL_valuezd2approx3659zd2_4957 = BgL_valuezd2approx3659zd2_70; 
((((BgL_makezd2boxzf2ozd2cinfozf2_bglt)CREF(BgL_new3660z00_68))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3658z00_4956), BUNSPEC); 
((((BgL_makezd2boxzf2ozd2cinfozf2_bglt)CREF(BgL_new3660z00_68))->BgL_valuezd2approxzd2) = ((BgL_approxz00_bglt)BgL_valuezd2approx3659zd2_4957), BUNSPEC); 
return BgL_new3660z00_68;} } 
}



/* _fill-make-box/O-Cinfo!6492 */
obj_t BGl__fillzd2makezd2boxzf2Ozd2Cinfoz126492z32zzcfa_infoz00(obj_t BgL_envz00_4318, obj_t BgL_new3660z00_4319, obj_t BgL_approx3658z00_4320, obj_t BgL_valuezd2approx3659zd2_4321)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 103 */
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_auxz00_5790;
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_res8174z00_4963;
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_new3660z00_4958;BgL_approxz00_bglt BgL_approx3658z00_4959;BgL_approxz00_bglt BgL_valuezd2approx3659zd2_4960;
BgL_new3660z00_4958 = 
(BgL_makezd2boxzf2ozd2cinfozf2_bglt)(BgL_new3660z00_4319); 
BgL_approx3658z00_4959 = 
(BgL_approxz00_bglt)(BgL_approx3658z00_4320); 
BgL_valuezd2approx3659zd2_4960 = 
(BgL_approxz00_bglt)(BgL_valuezd2approx3659zd2_4321); 
{ /* ./Cfa/cinfo.scm 103 */
BgL_approxz00_bglt BgL_approx3658z00_4961;BgL_approxz00_bglt BgL_valuezd2approx3659zd2_4962;
BgL_approx3658z00_4961 = BgL_approx3658z00_4959; 
BgL_valuezd2approx3659zd2_4962 = BgL_valuezd2approx3659zd2_4960; 
((((BgL_makezd2boxzf2ozd2cinfozf2_bglt)CREF(BgL_new3660z00_4958))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3658z00_4961), BUNSPEC); 
((((BgL_makezd2boxzf2ozd2cinfozf2_bglt)CREF(BgL_new3660z00_4958))->BgL_valuezd2approxzd2) = ((BgL_approxz00_bglt)BgL_valuezd2approx3659zd2_4962), BUNSPEC); 
BgL_res8174z00_4963 = BgL_new3660z00_4958; } } 
BgL_auxz00_5790 = BgL_res8174z00_4963; } 
return 
(obj_t)(BgL_auxz00_5790);} } 
}



/* allocate-make-box/O-Cinfo */
BGL_EXPORTED_DEF BgL_makezd2boxzd2_bglt BGl_allocatezd2makezd2boxzf2Ozd2Cinfoz20zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 103 */
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzd2_bglt BgL_new3664z00_4964;
BgL_new3664z00_4964 = 
((BgL_makezd2boxzd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_makezd2boxzd2_bgl) ))); 
{ /* ./Cfa/cinfo.scm 103 */
long BgL_arg4338z00_4965;
BgL_arg4338z00_4965 = 
BGl_classzd2numzd2zz__objectz00(BGl_makezd2boxzf2Ozd2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 103 */
BgL_objectz00_bglt BgL_objz00_4966;
BgL_objz00_4966 = 
(BgL_objectz00_bglt)(BgL_new3664z00_4964); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4966, BgL_arg4338z00_4965); } } 
{ /* ./Cfa/cinfo.scm 103 */
BgL_objectz00_bglt BgL_auxz00_5801;
BgL_auxz00_5801 = 
(BgL_objectz00_bglt)(BgL_new3664z00_4964); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5801, BFALSE); } 
{ /* ./Cfa/cinfo.scm 103 */
obj_t BgL_objz00_4967;
BgL_objz00_4967 = 
(obj_t)(BgL_new3664z00_4964); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4967); BUNSPEC; } 
return BgL_new3664z00_4964;} } 
}



/* _allocate-make-box/O-Cinfo */
obj_t BGl__allocatezd2makezd2boxzf2Ozd2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4246)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 103 */
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzd2_bglt BgL_auxz00_5806;
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzd2_bglt BgL_res8175z00_4972;
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzd2_bglt BgL_new3664z00_4968;
BgL_new3664z00_4968 = 
((BgL_makezd2boxzd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_makezd2boxzd2_bgl) ))); 
{ /* ./Cfa/cinfo.scm 103 */
long BgL_arg4338z00_4969;
BgL_arg4338z00_4969 = 
BGl_classzd2numzd2zz__objectz00(BGl_makezd2boxzf2Ozd2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 103 */
BgL_objectz00_bglt BgL_objz00_4970;
BgL_objz00_4970 = 
(BgL_objectz00_bglt)(BgL_new3664z00_4968); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4970, BgL_arg4338z00_4969); } } 
{ /* ./Cfa/cinfo.scm 103 */
BgL_objectz00_bglt BgL_auxz00_5811;
BgL_auxz00_5811 = 
(BgL_objectz00_bglt)(BgL_new3664z00_4968); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5811, BFALSE); } 
{ /* ./Cfa/cinfo.scm 103 */
obj_t BgL_objz00_4971;
BgL_objz00_4971 = 
(obj_t)(BgL_new3664z00_4968); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4971); BUNSPEC; } 
BgL_res8175z00_4972 = BgL_new3664z00_4968; } 
BgL_auxz00_5806 = BgL_res8175z00_4972; } 
return 
(obj_t)(BgL_auxz00_5806);} } 
}



/* make-box/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_makezd2boxzf2Cinfozf3zd3zzcfa_infoz00(obj_t BgL_obj3629z00_75)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 101 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3629z00_75, BGl_makezd2boxzf2Cinfoz20zzcfa_infoz00);} 
}



/* _make-box/Cinfo? */
obj_t BGl__makezd2boxzf2Cinfozf3zd3zzcfa_infoz00(obj_t BgL_envz00_4322, obj_t BgL_obj3629z00_4323)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 101 */
{ /* ./Cfa/cinfo.scm 101 */
bool_t BgL_auxz00_5818;
BgL_auxz00_5818 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3629z00_4323, BGl_makezd2boxzf2Cinfoz20zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_5818);} } 
}



/* widening-make-box/Cinfo */
BGL_EXPORTED_DEF BgL_makezd2boxzf2cinfoz20_bglt BGl_wideningzd2makezd2boxzf2Cinfozf2zzcfa_infoz00(BgL_approxz00_bglt BgL_approx3607z00_79)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 101 */
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzf2cinfoz20_bglt BgL_new3608z00_2691;
BgL_new3608z00_2691 = 
((BgL_makezd2boxzf2cinfoz20_bglt)BREF( GC_MALLOC (sizeof(struct BgL_makezd2boxzf2cinfoz20_bgl)))); 
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzf2cinfoz20_bglt BgL_res6295z00_2695;
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzf2cinfoz20_bglt BgL_new3619z00_2692;
BgL_new3619z00_2692 = BgL_new3608z00_2691; 
{ /* ./Cfa/cinfo.scm 101 */
BgL_approxz00_bglt BgL_approx3618z00_2694;
BgL_approx3618z00_2694 = BgL_approx3607z00_79; 
((((BgL_makezd2boxzf2cinfoz20_bglt)CREF(BgL_new3619z00_2692))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3618z00_2694), BUNSPEC); 
BgL_res6295z00_2695 = BgL_new3619z00_2692; } } BgL_res6295z00_2695; } 
return BgL_new3608z00_2691;} } 
}



/* _widening-make-box/Cinfo */
obj_t BGl__wideningzd2makezd2boxzf2Cinfozf2zzcfa_infoz00(obj_t BgL_envz00_4324, obj_t BgL_approx3607z00_4325)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 101 */
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzf2cinfoz20_bglt BgL_auxz00_5823;
BgL_auxz00_5823 = 
BGl_wideningzd2makezd2boxzf2Cinfozf2zzcfa_infoz00(
(BgL_approxz00_bglt)(BgL_approx3607z00_4325)); 
return 
(obj_t)(BgL_auxz00_5823);} } 
}



/* make-make-box/Cinfo */
BGL_EXPORTED_DEF BgL_makezd2boxzf2cinfoz20_bglt BGl_makezd2makezd2boxzf2Cinfozf2zzcfa_infoz00(obj_t BgL_loc3611z00_80, BgL_typez00_bglt BgL_type3612z00_81, obj_t BgL_sidezd2effectzf33613z21_82, obj_t BgL_key3614z00_83, BgL_nodez00_bglt BgL_value3615z00_84, BgL_approxz00_bglt BgL_approx3610z00_85)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 101 */
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzd2_bglt BgL_aux3616z00_2696;
BgL_aux3616z00_2696 = 
BGl_makezd2makezd2boxz00zzast_nodez00(BgL_loc3611z00_80, BgL_type3612z00_81, BgL_sidezd2effectzf33613z21_82, BgL_key3614z00_83, BgL_value3615z00_84); 
{ /* ./Cfa/cinfo.scm 101 */
long BgL_arg4349z00_2697;
BgL_arg4349z00_2697 = 
BGl_classzd2numzd2zz__objectz00(BGl_makezd2boxzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 101 */
BgL_objectz00_bglt BgL_objz00_2700;
BgL_objz00_2700 = 
(BgL_objectz00_bglt)(BgL_aux3616z00_2696); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2700, BgL_arg4349z00_2697); } } 
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzf2cinfoz20_bglt BgL_arg4353z00_2698;
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzf2cinfoz20_bglt BgL_res6297z00_2708;
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzf2cinfoz20_bglt BgL_new3608z00_2703;
BgL_new3608z00_2703 = 
((BgL_makezd2boxzf2cinfoz20_bglt)BREF( GC_MALLOC (sizeof(struct BgL_makezd2boxzf2cinfoz20_bgl)))); 
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzf2cinfoz20_bglt BgL_res6296z00_2707;
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzf2cinfoz20_bglt BgL_new3619z00_2704;
BgL_new3619z00_2704 = BgL_new3608z00_2703; 
{ /* ./Cfa/cinfo.scm 101 */
BgL_approxz00_bglt BgL_approx3618z00_2706;
BgL_approx3618z00_2706 = BgL_approx3610z00_85; 
((((BgL_makezd2boxzf2cinfoz20_bglt)CREF(BgL_new3619z00_2704))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3618z00_2706), BUNSPEC); 
BgL_res6296z00_2707 = BgL_new3619z00_2704; } } BgL_res6296z00_2707; } 
BgL_res6297z00_2708 = BgL_new3608z00_2703; } 
BgL_arg4353z00_2698 = BgL_res6297z00_2708; } 
{ /* ./Cfa/cinfo.scm 101 */
obj_t BgL_auxz00_5835;BgL_objectz00_bglt BgL_auxz00_5833;
BgL_auxz00_5835 = 
(obj_t)(BgL_arg4353z00_2698); 
BgL_auxz00_5833 = 
(BgL_objectz00_bglt)(BgL_aux3616z00_2696); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5833, BgL_auxz00_5835); } } 
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzf2cinfoz20_bglt BgL_new3617z00_2699;
{ 
BgL_makezd2boxzf2cinfoz20_bglt BgL_auxz00_5838;
BgL_auxz00_5838 = 
(BgL_makezd2boxzf2cinfoz20_bglt)(BgL_aux3616z00_2696); 
BgL_new3617z00_2699 = 
((BgL_makezd2boxzf2cinfoz20_bglt)BgL_auxz00_5838); } 
{ /* ./Cfa/cinfo.scm 101 */
obj_t BgL_objz00_2709;
BgL_objz00_2709 = 
(obj_t)(BgL_new3617z00_2699); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2709); BUNSPEC; } 
return BgL_new3617z00_2699;} } } 
}



/* _make-make-box/Cinfo6496 */
obj_t BGl__makezd2makezd2boxzf2Cinfo6496zf2zzcfa_infoz00(obj_t BgL_envz00_4326, obj_t BgL_loc3611z00_4327, obj_t BgL_type3612z00_4328, obj_t BgL_sidezd2effectzf33613z21_4329, obj_t BgL_key3614z00_4330, obj_t BgL_value3615z00_4331, obj_t BgL_approx3610z00_4332)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 101 */
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzf2cinfoz20_bglt BgL_auxz00_5843;
BgL_auxz00_5843 = 
BGl_makezd2makezd2boxzf2Cinfozf2zzcfa_infoz00(BgL_loc3611z00_4327, 
(BgL_typez00_bglt)(BgL_type3612z00_4328), BgL_sidezd2effectzf33613z21_4329, BgL_key3614z00_4330, 
(BgL_nodez00_bglt)(BgL_value3615z00_4331), 
(BgL_approxz00_bglt)(BgL_approx3610z00_4332)); 
return 
(obj_t)(BgL_auxz00_5843);} } 
}



/* fill-make-box/Cinfo! */
BGL_EXPORTED_DEF BgL_makezd2boxzf2cinfoz20_bglt BGl_fillzd2makezd2boxzf2Cinfoz12ze0zzcfa_infoz00(BgL_makezd2boxzf2cinfoz20_bglt BgL_new3619z00_86, BgL_approxz00_bglt BgL_approx3618z00_87)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 101 */
{ /* ./Cfa/cinfo.scm 101 */
BgL_approxz00_bglt BgL_approx3618z00_4974;
BgL_approx3618z00_4974 = BgL_approx3618z00_87; 
((((BgL_makezd2boxzf2cinfoz20_bglt)CREF(BgL_new3619z00_86))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3618z00_4974), BUNSPEC); 
return BgL_new3619z00_86;} } 
}



/* _fill-make-box/Cinfo!6498 */
obj_t BGl__fillzd2makezd2boxzf2Cinfoz126498ze0zzcfa_infoz00(obj_t BgL_envz00_4333, obj_t BgL_new3619z00_4334, obj_t BgL_approx3618z00_4335)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 101 */
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzf2cinfoz20_bglt BgL_auxz00_5850;
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzf2cinfoz20_bglt BgL_res8176z00_4978;
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzf2cinfoz20_bglt BgL_new3619z00_4975;BgL_approxz00_bglt BgL_approx3618z00_4976;
BgL_new3619z00_4975 = 
(BgL_makezd2boxzf2cinfoz20_bglt)(BgL_new3619z00_4334); 
BgL_approx3618z00_4976 = 
(BgL_approxz00_bglt)(BgL_approx3618z00_4335); 
{ /* ./Cfa/cinfo.scm 101 */
BgL_approxz00_bglt BgL_approx3618z00_4977;
BgL_approx3618z00_4977 = BgL_approx3618z00_4976; 
((((BgL_makezd2boxzf2cinfoz20_bglt)CREF(BgL_new3619z00_4975))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3618z00_4977), BUNSPEC); 
BgL_res8176z00_4978 = BgL_new3619z00_4975; } } 
BgL_auxz00_5850 = BgL_res8176z00_4978; } 
return 
(obj_t)(BgL_auxz00_5850);} } 
}



/* allocate-make-box/Cinfo */
BGL_EXPORTED_DEF BgL_makezd2boxzd2_bglt BGl_allocatezd2makezd2boxzf2Cinfozf2zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 101 */
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzd2_bglt BgL_new3622z00_4979;
BgL_new3622z00_4979 = 
((BgL_makezd2boxzd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_makezd2boxzd2_bgl) ))); 
{ /* ./Cfa/cinfo.scm 101 */
long BgL_arg4359z00_4980;
BgL_arg4359z00_4980 = 
BGl_classzd2numzd2zz__objectz00(BGl_makezd2boxzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 101 */
BgL_objectz00_bglt BgL_objz00_4981;
BgL_objz00_4981 = 
(BgL_objectz00_bglt)(BgL_new3622z00_4979); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4981, BgL_arg4359z00_4980); } } 
{ /* ./Cfa/cinfo.scm 101 */
BgL_objectz00_bglt BgL_auxz00_5859;
BgL_auxz00_5859 = 
(BgL_objectz00_bglt)(BgL_new3622z00_4979); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5859, BFALSE); } 
{ /* ./Cfa/cinfo.scm 101 */
obj_t BgL_objz00_4982;
BgL_objz00_4982 = 
(obj_t)(BgL_new3622z00_4979); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4982); BUNSPEC; } 
return BgL_new3622z00_4979;} } 
}



/* _allocate-make-box/Cinfo */
obj_t BGl__allocatezd2makezd2boxzf2Cinfozf2zzcfa_infoz00(obj_t BgL_envz00_4245)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 101 */
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzd2_bglt BgL_auxz00_5864;
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzd2_bglt BgL_res8177z00_4987;
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzd2_bglt BgL_new3622z00_4983;
BgL_new3622z00_4983 = 
((BgL_makezd2boxzd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_makezd2boxzd2_bgl) ))); 
{ /* ./Cfa/cinfo.scm 101 */
long BgL_arg4359z00_4984;
BgL_arg4359z00_4984 = 
BGl_classzd2numzd2zz__objectz00(BGl_makezd2boxzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 101 */
BgL_objectz00_bglt BgL_objz00_4985;
BgL_objz00_4985 = 
(BgL_objectz00_bglt)(BgL_new3622z00_4983); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4985, BgL_arg4359z00_4984); } } 
{ /* ./Cfa/cinfo.scm 101 */
BgL_objectz00_bglt BgL_auxz00_5869;
BgL_auxz00_5869 = 
(BgL_objectz00_bglt)(BgL_new3622z00_4983); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5869, BFALSE); } 
{ /* ./Cfa/cinfo.scm 101 */
obj_t BgL_objz00_4986;
BgL_objz00_4986 = 
(obj_t)(BgL_new3622z00_4983); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4986); BUNSPEC; } 
BgL_res8177z00_4987 = BgL_new3622z00_4983; } 
BgL_auxz00_5864 = BgL_res8177z00_4987; } 
return 
(obj_t)(BgL_auxz00_5864);} } 
}



/* pre-make-box? */
BGL_EXPORTED_DEF bool_t BGl_prezd2makezd2boxzf3zf3zzcfa_infoz00(obj_t BgL_obj3593z00_89)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 100 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3593z00_89, BGl_prezd2makezd2boxz00zzcfa_infoz00);} 
}



/* _pre-make-box? */
obj_t BGl__prezd2makezd2boxzf3zf3zzcfa_infoz00(obj_t BgL_envz00_4336, obj_t BgL_obj3593z00_4337)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 100 */
{ /* ./Cfa/cinfo.scm 100 */
bool_t BgL_auxz00_5876;
BgL_auxz00_5876 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3593z00_4337, BGl_prezd2makezd2boxz00zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_5876);} } 
}



/* widening-pre-make-box */
BGL_EXPORTED_DEF BgL_prezd2makezd2boxz00_bglt BGl_wideningzd2prezd2makezd2boxzd2zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 100 */
{ /* ./Cfa/cinfo.scm 100 */
BgL_prezd2makezd2boxz00_bglt BgL_new3575z00_1363;
BgL_new3575z00_1363 = 
((BgL_prezd2makezd2boxz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_prezd2makezd2boxz00_bgl)))); 
return BgL_new3575z00_1363;} } 
}



/* _widening-pre-make-box */
obj_t BGl__wideningzd2prezd2makezd2boxzd2zzcfa_infoz00(obj_t BgL_envz00_4338)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 100 */
{ /* ./Cfa/cinfo.scm 100 */
BgL_prezd2makezd2boxz00_bglt BgL_auxz00_5880;
BgL_auxz00_5880 = 
BGl_wideningzd2prezd2makezd2boxzd2zzcfa_infoz00(); 
return 
(obj_t)(BgL_auxz00_5880);} } 
}



/* make-pre-make-box */
BGL_EXPORTED_DEF BgL_prezd2makezd2boxz00_bglt BGl_makezd2prezd2makezd2boxzd2zzcfa_infoz00(obj_t BgL_loc3577z00_93, BgL_typez00_bglt BgL_type3578z00_94, obj_t BgL_sidezd2effectzf33579z21_95, obj_t BgL_key3580z00_96, BgL_nodez00_bglt BgL_value3581z00_97)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 100 */
{ /* ./Cfa/cinfo.scm 100 */
BgL_makezd2boxzd2_bglt BgL_aux3582z00_2717;
BgL_aux3582z00_2717 = 
BGl_makezd2makezd2boxz00zzast_nodez00(BgL_loc3577z00_93, BgL_type3578z00_94, BgL_sidezd2effectzf33579z21_95, BgL_key3580z00_96, BgL_value3581z00_97); 
{ /* ./Cfa/cinfo.scm 100 */
long BgL_arg4368z00_2718;
BgL_arg4368z00_2718 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2makezd2boxz00zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 100 */
BgL_objectz00_bglt BgL_objz00_2721;
BgL_objz00_2721 = 
(BgL_objectz00_bglt)(BgL_aux3582z00_2717); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2721, BgL_arg4368z00_2718); } } 
{ /* ./Cfa/cinfo.scm 100 */
BgL_prezd2makezd2boxz00_bglt BgL_arg4373z00_2719;
BgL_arg4373z00_2719 = 
BGl_wideningzd2prezd2makezd2boxzd2zzcfa_infoz00(); 
{ /* ./Cfa/cinfo.scm 100 */
obj_t BgL_auxz00_5890;BgL_objectz00_bglt BgL_auxz00_5888;
BgL_auxz00_5890 = 
(obj_t)(BgL_arg4373z00_2719); 
BgL_auxz00_5888 = 
(BgL_objectz00_bglt)(BgL_aux3582z00_2717); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5888, BgL_auxz00_5890); } } 
{ /* ./Cfa/cinfo.scm 100 */
BgL_prezd2makezd2boxz00_bglt BgL_new3583z00_2720;
{ 
BgL_prezd2makezd2boxz00_bglt BgL_auxz00_5893;
BgL_auxz00_5893 = 
(BgL_prezd2makezd2boxz00_bglt)(BgL_aux3582z00_2717); 
BgL_new3583z00_2720 = 
((BgL_prezd2makezd2boxz00_bglt)BgL_auxz00_5893); } 
{ /* ./Cfa/cinfo.scm 100 */
obj_t BgL_objz00_2723;
BgL_objz00_2723 = 
(obj_t)(BgL_new3583z00_2720); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2723); BUNSPEC; } 
return BgL_new3583z00_2720;} } } 
}



/* _make-pre-make-box6502 */
obj_t BGl__makezd2prezd2makezd2box6502zd2zzcfa_infoz00(obj_t BgL_envz00_4339, obj_t BgL_loc3577z00_4340, obj_t BgL_type3578z00_4341, obj_t BgL_sidezd2effectzf33579z21_4342, obj_t BgL_key3580z00_4343, obj_t BgL_value3581z00_4344)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 100 */
{ /* ./Cfa/cinfo.scm 100 */
BgL_prezd2makezd2boxz00_bglt BgL_auxz00_5898;
BgL_auxz00_5898 = 
BGl_makezd2prezd2makezd2boxzd2zzcfa_infoz00(BgL_loc3577z00_4340, 
(BgL_typez00_bglt)(BgL_type3578z00_4341), BgL_sidezd2effectzf33579z21_4342, BgL_key3580z00_4343, 
(BgL_nodez00_bglt)(BgL_value3581z00_4344)); 
return 
(obj_t)(BgL_auxz00_5898);} } 
}



/* fill-pre-make-box! */
BGL_EXPORTED_DEF BgL_prezd2makezd2boxz00_bglt BGl_fillzd2prezd2makezd2boxz12zc0zzcfa_infoz00(BgL_prezd2makezd2boxz00_bglt BgL_new3584z00_98)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 100 */
{ /* ./Cfa/cinfo.scm 100 */

return BgL_new3584z00_98;} } 
}



/* _fill-pre-make-box!6504 */
obj_t BGl__fillzd2prezd2makezd2boxz126504zc0zzcfa_infoz00(obj_t BgL_envz00_4345, obj_t BgL_new3584z00_4346)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 100 */
{ /* ./Cfa/cinfo.scm 100 */
BgL_prezd2makezd2boxz00_bglt BgL_auxz00_5903;
{ /* ./Cfa/cinfo.scm 100 */

BgL_auxz00_5903 = 
(BgL_prezd2makezd2boxz00_bglt)(BgL_new3584z00_4346); } 
return 
(obj_t)(BgL_auxz00_5903);} } 
}



/* allocate-pre-make-box */
BGL_EXPORTED_DEF BgL_makezd2boxzd2_bglt BGl_allocatezd2prezd2makezd2boxzd2zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 100 */
{ /* ./Cfa/cinfo.scm 100 */
BgL_makezd2boxzd2_bglt BgL_new3586z00_4990;
BgL_new3586z00_4990 = 
((BgL_makezd2boxzd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_makezd2boxzd2_bgl) ))); 
{ /* ./Cfa/cinfo.scm 100 */
long BgL_arg4379z00_4991;
BgL_arg4379z00_4991 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2makezd2boxz00zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 100 */
BgL_objectz00_bglt BgL_objz00_4992;
BgL_objz00_4992 = 
(BgL_objectz00_bglt)(BgL_new3586z00_4990); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4992, BgL_arg4379z00_4991); } } 
{ /* ./Cfa/cinfo.scm 100 */
BgL_objectz00_bglt BgL_auxz00_5910;
BgL_auxz00_5910 = 
(BgL_objectz00_bglt)(BgL_new3586z00_4990); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5910, BFALSE); } 
{ /* ./Cfa/cinfo.scm 100 */
obj_t BgL_objz00_4993;
BgL_objz00_4993 = 
(obj_t)(BgL_new3586z00_4990); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4993); BUNSPEC; } 
return BgL_new3586z00_4990;} } 
}



/* _allocate-pre-make-box */
obj_t BGl__allocatezd2prezd2makezd2boxzd2zzcfa_infoz00(obj_t BgL_envz00_4244)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 100 */
{ /* ./Cfa/cinfo.scm 100 */
BgL_makezd2boxzd2_bglt BgL_auxz00_5915;
{ /* ./Cfa/cinfo.scm 100 */
BgL_makezd2boxzd2_bglt BgL_res8178z00_4998;
{ /* ./Cfa/cinfo.scm 100 */
BgL_makezd2boxzd2_bglt BgL_new3586z00_4994;
BgL_new3586z00_4994 = 
((BgL_makezd2boxzd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_makezd2boxzd2_bgl) ))); 
{ /* ./Cfa/cinfo.scm 100 */
long BgL_arg4379z00_4995;
BgL_arg4379z00_4995 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2makezd2boxz00zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 100 */
BgL_objectz00_bglt BgL_objz00_4996;
BgL_objz00_4996 = 
(BgL_objectz00_bglt)(BgL_new3586z00_4994); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4996, BgL_arg4379z00_4995); } } 
{ /* ./Cfa/cinfo.scm 100 */
BgL_objectz00_bglt BgL_auxz00_5920;
BgL_auxz00_5920 = 
(BgL_objectz00_bglt)(BgL_new3586z00_4994); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5920, BFALSE); } 
{ /* ./Cfa/cinfo.scm 100 */
obj_t BgL_objz00_4997;
BgL_objz00_4997 = 
(obj_t)(BgL_new3586z00_4994); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4997); BUNSPEC; } 
BgL_res8178z00_4998 = BgL_new3586z00_4994; } 
BgL_auxz00_5915 = BgL_res8178z00_4998; } 
return 
(obj_t)(BgL_auxz00_5915);} } 
}



/* jump-ex-it/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_jumpzd2exzd2itzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_obj3563z00_99)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 96 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3563z00_99, BGl_jumpzd2exzd2itzf2Cinfozf2zzcfa_infoz00);} 
}



/* _jump-ex-it/Cinfo? */
obj_t BGl__jumpzd2exzd2itzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_envz00_4347, obj_t BgL_obj3563z00_4348)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 96 */
{ /* ./Cfa/cinfo.scm 96 */
bool_t BgL_auxz00_5927;
BgL_auxz00_5927 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3563z00_4348, BGl_jumpzd2exzd2itzf2Cinfozf2zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_5927);} } 
}



/* widening-jump-ex-it/Cinfo */
BGL_EXPORTED_DEF BgL_jumpzd2exzd2itzf2cinfozf2_bglt BGl_wideningzd2jumpzd2exzd2itzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt BgL_approx3542z00_103)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 96 */
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_new3543z00_2729;
BgL_new3543z00_2729 = 
((BgL_jumpzd2exzd2itzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_jumpzd2exzd2itzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_res6298z00_2733;
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_new3553z00_2730;
BgL_new3553z00_2730 = BgL_new3543z00_2729; 
{ /* ./Cfa/cinfo.scm 96 */
BgL_approxz00_bglt BgL_approx3552z00_2732;
BgL_approx3552z00_2732 = BgL_approx3542z00_103; 
((((BgL_jumpzd2exzd2itzf2cinfozf2_bglt)CREF(BgL_new3553z00_2730))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3552z00_2732), BUNSPEC); 
BgL_res6298z00_2733 = BgL_new3553z00_2730; } } BgL_res6298z00_2733; } 
return BgL_new3543z00_2729;} } 
}



/* _widening-jump-ex-it/Cinfo */
obj_t BGl__wideningzd2jumpzd2exzd2itzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4349, obj_t BgL_approx3542z00_4350)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 96 */
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_auxz00_5932;
BgL_auxz00_5932 = 
BGl_wideningzd2jumpzd2exzd2itzf2Cinfoz20zzcfa_infoz00(
(BgL_approxz00_bglt)(BgL_approx3542z00_4350)); 
return 
(obj_t)(BgL_auxz00_5932);} } 
}



/* make-jump-ex-it/Cinfo */
BGL_EXPORTED_DEF BgL_jumpzd2exzd2itzf2cinfozf2_bglt BGl_makezd2jumpzd2exzd2itzf2Cinfoz20zzcfa_infoz00(obj_t BgL_loc3546z00_104, BgL_typez00_bglt BgL_type3547z00_105, BgL_nodez00_bglt BgL_exit3548z00_106, BgL_nodez00_bglt BgL_value3549z00_107, BgL_approxz00_bglt BgL_approx3545z00_108)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 96 */
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itz00_bglt BgL_aux3550z00_2734;
BgL_aux3550z00_2734 = 
BGl_makezd2jumpzd2exzd2itzd2zzast_nodez00(BgL_loc3546z00_104, BgL_type3547z00_105, BgL_exit3548z00_106, BgL_value3549z00_107); 
{ /* ./Cfa/cinfo.scm 96 */
long BgL_arg4387z00_2735;
BgL_arg4387z00_2735 = 
BGl_classzd2numzd2zz__objectz00(BGl_jumpzd2exzd2itzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 96 */
BgL_objectz00_bglt BgL_objz00_2738;
BgL_objz00_2738 = 
(BgL_objectz00_bglt)(BgL_aux3550z00_2734); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2738, BgL_arg4387z00_2735); } } 
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_arg4391z00_2736;
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_res6300z00_2746;
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_new3543z00_2741;
BgL_new3543z00_2741 = 
((BgL_jumpzd2exzd2itzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_jumpzd2exzd2itzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_res6299z00_2745;
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_new3553z00_2742;
BgL_new3553z00_2742 = BgL_new3543z00_2741; 
{ /* ./Cfa/cinfo.scm 96 */
BgL_approxz00_bglt BgL_approx3552z00_2744;
BgL_approx3552z00_2744 = BgL_approx3545z00_108; 
((((BgL_jumpzd2exzd2itzf2cinfozf2_bglt)CREF(BgL_new3553z00_2742))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3552z00_2744), BUNSPEC); 
BgL_res6299z00_2745 = BgL_new3553z00_2742; } } BgL_res6299z00_2745; } 
BgL_res6300z00_2746 = BgL_new3543z00_2741; } 
BgL_arg4391z00_2736 = BgL_res6300z00_2746; } 
{ /* ./Cfa/cinfo.scm 96 */
obj_t BgL_auxz00_5944;BgL_objectz00_bglt BgL_auxz00_5942;
BgL_auxz00_5944 = 
(obj_t)(BgL_arg4391z00_2736); 
BgL_auxz00_5942 = 
(BgL_objectz00_bglt)(BgL_aux3550z00_2734); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5942, BgL_auxz00_5944); } } 
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_new3551z00_2737;
{ 
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_auxz00_5947;
BgL_auxz00_5947 = 
(BgL_jumpzd2exzd2itzf2cinfozf2_bglt)(BgL_aux3550z00_2734); 
BgL_new3551z00_2737 = 
((BgL_jumpzd2exzd2itzf2cinfozf2_bglt)BgL_auxz00_5947); } 
{ /* ./Cfa/cinfo.scm 96 */
obj_t BgL_objz00_2747;
BgL_objz00_2747 = 
(obj_t)(BgL_new3551z00_2737); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2747); BUNSPEC; } 
return BgL_new3551z00_2737;} } } 
}



/* _make-jump-ex-it/Cinfo6508 */
obj_t BGl__makezd2jumpzd2exzd2itzf2Cinfo6508z20zzcfa_infoz00(obj_t BgL_envz00_4351, obj_t BgL_loc3546z00_4352, obj_t BgL_type3547z00_4353, obj_t BgL_exit3548z00_4354, obj_t BgL_value3549z00_4355, obj_t BgL_approx3545z00_4356)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 96 */
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_auxz00_5952;
BgL_auxz00_5952 = 
BGl_makezd2jumpzd2exzd2itzf2Cinfoz20zzcfa_infoz00(BgL_loc3546z00_4352, 
(BgL_typez00_bglt)(BgL_type3547z00_4353), 
(BgL_nodez00_bglt)(BgL_exit3548z00_4354), 
(BgL_nodez00_bglt)(BgL_value3549z00_4355), 
(BgL_approxz00_bglt)(BgL_approx3545z00_4356)); 
return 
(obj_t)(BgL_auxz00_5952);} } 
}



/* fill-jump-ex-it/Cinfo! */
BGL_EXPORTED_DEF BgL_jumpzd2exzd2itzf2cinfozf2_bglt BGl_fillzd2jumpzd2exzd2itzf2Cinfoz12z32zzcfa_infoz00(BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_new3553z00_109, BgL_approxz00_bglt BgL_approx3552z00_110)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 96 */
{ /* ./Cfa/cinfo.scm 96 */
BgL_approxz00_bglt BgL_approx3552z00_5000;
BgL_approx3552z00_5000 = BgL_approx3552z00_110; 
((((BgL_jumpzd2exzd2itzf2cinfozf2_bglt)CREF(BgL_new3553z00_109))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3552z00_5000), BUNSPEC); 
return BgL_new3553z00_109;} } 
}



/* _fill-jump-ex-it/Cinfo!6510 */
obj_t BGl__fillzd2jumpzd2exzd2itzf2Cinfoz126510z32zzcfa_infoz00(obj_t BgL_envz00_4357, obj_t BgL_new3553z00_4358, obj_t BgL_approx3552z00_4359)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 96 */
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_auxz00_5960;
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_res8179z00_5004;
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_new3553z00_5001;BgL_approxz00_bglt BgL_approx3552z00_5002;
BgL_new3553z00_5001 = 
(BgL_jumpzd2exzd2itzf2cinfozf2_bglt)(BgL_new3553z00_4358); 
BgL_approx3552z00_5002 = 
(BgL_approxz00_bglt)(BgL_approx3552z00_4359); 
{ /* ./Cfa/cinfo.scm 96 */
BgL_approxz00_bglt BgL_approx3552z00_5003;
BgL_approx3552z00_5003 = BgL_approx3552z00_5002; 
((((BgL_jumpzd2exzd2itzf2cinfozf2_bglt)CREF(BgL_new3553z00_5001))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3552z00_5003), BUNSPEC); 
BgL_res8179z00_5004 = BgL_new3553z00_5001; } } 
BgL_auxz00_5960 = BgL_res8179z00_5004; } 
return 
(obj_t)(BgL_auxz00_5960);} } 
}



/* allocate-jump-ex-it/Cinfo */
BGL_EXPORTED_DEF BgL_jumpzd2exzd2itz00_bglt BGl_allocatezd2jumpzd2exzd2itzf2Cinfoz20zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 96 */
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itz00_bglt BgL_new3556z00_5005;
BgL_new3556z00_5005 = 
((BgL_jumpzd2exzd2itz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_jumpzd2exzd2itz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 96 */
long BgL_arg4397z00_5006;
BgL_arg4397z00_5006 = 
BGl_classzd2numzd2zz__objectz00(BGl_jumpzd2exzd2itzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 96 */
BgL_objectz00_bglt BgL_objz00_5007;
BgL_objz00_5007 = 
(BgL_objectz00_bglt)(BgL_new3556z00_5005); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5007, BgL_arg4397z00_5006); } } 
{ /* ./Cfa/cinfo.scm 96 */
BgL_objectz00_bglt BgL_auxz00_5969;
BgL_auxz00_5969 = 
(BgL_objectz00_bglt)(BgL_new3556z00_5005); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5969, BFALSE); } 
{ /* ./Cfa/cinfo.scm 96 */
obj_t BgL_objz00_5008;
BgL_objz00_5008 = 
(obj_t)(BgL_new3556z00_5005); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5008); BUNSPEC; } 
return BgL_new3556z00_5005;} } 
}



/* _allocate-jump-ex-it/Cinfo */
obj_t BGl__allocatezd2jumpzd2exzd2itzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4243)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 96 */
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itz00_bglt BgL_auxz00_5974;
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itz00_bglt BgL_res8180z00_5013;
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itz00_bglt BgL_new3556z00_5009;
BgL_new3556z00_5009 = 
((BgL_jumpzd2exzd2itz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_jumpzd2exzd2itz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 96 */
long BgL_arg4397z00_5010;
BgL_arg4397z00_5010 = 
BGl_classzd2numzd2zz__objectz00(BGl_jumpzd2exzd2itzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 96 */
BgL_objectz00_bglt BgL_objz00_5011;
BgL_objz00_5011 = 
(BgL_objectz00_bglt)(BgL_new3556z00_5009); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5011, BgL_arg4397z00_5010); } } 
{ /* ./Cfa/cinfo.scm 96 */
BgL_objectz00_bglt BgL_auxz00_5979;
BgL_auxz00_5979 = 
(BgL_objectz00_bglt)(BgL_new3556z00_5009); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5979, BFALSE); } 
{ /* ./Cfa/cinfo.scm 96 */
obj_t BgL_objz00_5012;
BgL_objz00_5012 = 
(obj_t)(BgL_new3556z00_5009); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5012); BUNSPEC; } 
BgL_res8180z00_5013 = BgL_new3556z00_5009; } 
BgL_auxz00_5974 = BgL_res8180z00_5013; } 
return 
(obj_t)(BgL_auxz00_5974);} } 
}



/* set-ex-it/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_setzd2exzd2itzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_obj3530z00_112)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 94 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3530z00_112, BGl_setzd2exzd2itzf2Cinfozf2zzcfa_infoz00);} 
}



/* _set-ex-it/Cinfo? */
obj_t BGl__setzd2exzd2itzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_envz00_4360, obj_t BgL_obj3530z00_4361)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 94 */
{ /* ./Cfa/cinfo.scm 94 */
bool_t BgL_auxz00_5986;
BgL_auxz00_5986 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3530z00_4361, BGl_setzd2exzd2itzf2Cinfozf2zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_5986);} } 
}



/* widening-set-ex-it/Cinfo */
BGL_EXPORTED_DEF BgL_setzd2exzd2itzf2cinfozf2_bglt BGl_wideningzd2setzd2exzd2itzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt BgL_approx3509z00_116)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 94 */
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_new3510z00_2754;
BgL_new3510z00_2754 = 
((BgL_setzd2exzd2itzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_setzd2exzd2itzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_res6301z00_2758;
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_new3520z00_2755;
BgL_new3520z00_2755 = BgL_new3510z00_2754; 
{ /* ./Cfa/cinfo.scm 94 */
BgL_approxz00_bglt BgL_approx3519z00_2757;
BgL_approx3519z00_2757 = BgL_approx3509z00_116; 
((((BgL_setzd2exzd2itzf2cinfozf2_bglt)CREF(BgL_new3520z00_2755))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3519z00_2757), BUNSPEC); 
BgL_res6301z00_2758 = BgL_new3520z00_2755; } } BgL_res6301z00_2758; } 
return BgL_new3510z00_2754;} } 
}



/* _widening-set-ex-it/Cinfo */
obj_t BGl__wideningzd2setzd2exzd2itzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4362, obj_t BgL_approx3509z00_4363)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 94 */
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_auxz00_5991;
BgL_auxz00_5991 = 
BGl_wideningzd2setzd2exzd2itzf2Cinfoz20zzcfa_infoz00(
(BgL_approxz00_bglt)(BgL_approx3509z00_4363)); 
return 
(obj_t)(BgL_auxz00_5991);} } 
}



/* make-set-ex-it/Cinfo */
BGL_EXPORTED_DEF BgL_setzd2exzd2itzf2cinfozf2_bglt BGl_makezd2setzd2exzd2itzf2Cinfoz20zzcfa_infoz00(obj_t BgL_loc3513z00_117, BgL_typez00_bglt BgL_type3514z00_118, BgL_varz00_bglt BgL_var3515z00_119, BgL_nodez00_bglt BgL_body3516z00_120, BgL_approxz00_bglt BgL_approx3512z00_121)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 94 */
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itz00_bglt BgL_aux3517z00_2759;
BgL_aux3517z00_2759 = 
BGl_makezd2setzd2exzd2itzd2zzast_nodez00(BgL_loc3513z00_117, BgL_type3514z00_118, BgL_var3515z00_119, BgL_body3516z00_120); 
{ /* ./Cfa/cinfo.scm 94 */
long BgL_arg4406z00_2760;
BgL_arg4406z00_2760 = 
BGl_classzd2numzd2zz__objectz00(BGl_setzd2exzd2itzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 94 */
BgL_objectz00_bglt BgL_objz00_2763;
BgL_objz00_2763 = 
(BgL_objectz00_bglt)(BgL_aux3517z00_2759); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2763, BgL_arg4406z00_2760); } } 
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_arg4410z00_2761;
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_res6303z00_2771;
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_new3510z00_2766;
BgL_new3510z00_2766 = 
((BgL_setzd2exzd2itzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_setzd2exzd2itzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_res6302z00_2770;
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_new3520z00_2767;
BgL_new3520z00_2767 = BgL_new3510z00_2766; 
{ /* ./Cfa/cinfo.scm 94 */
BgL_approxz00_bglt BgL_approx3519z00_2769;
BgL_approx3519z00_2769 = BgL_approx3512z00_121; 
((((BgL_setzd2exzd2itzf2cinfozf2_bglt)CREF(BgL_new3520z00_2767))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3519z00_2769), BUNSPEC); 
BgL_res6302z00_2770 = BgL_new3520z00_2767; } } BgL_res6302z00_2770; } 
BgL_res6303z00_2771 = BgL_new3510z00_2766; } 
BgL_arg4410z00_2761 = BgL_res6303z00_2771; } 
{ /* ./Cfa/cinfo.scm 94 */
obj_t BgL_auxz00_6003;BgL_objectz00_bglt BgL_auxz00_6001;
BgL_auxz00_6003 = 
(obj_t)(BgL_arg4410z00_2761); 
BgL_auxz00_6001 = 
(BgL_objectz00_bglt)(BgL_aux3517z00_2759); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6001, BgL_auxz00_6003); } } 
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_new3518z00_2762;
{ 
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_auxz00_6006;
BgL_auxz00_6006 = 
(BgL_setzd2exzd2itzf2cinfozf2_bglt)(BgL_aux3517z00_2759); 
BgL_new3518z00_2762 = 
((BgL_setzd2exzd2itzf2cinfozf2_bglt)BgL_auxz00_6006); } 
{ /* ./Cfa/cinfo.scm 94 */
obj_t BgL_objz00_2772;
BgL_objz00_2772 = 
(obj_t)(BgL_new3518z00_2762); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2772); BUNSPEC; } 
return BgL_new3518z00_2762;} } } 
}



/* _make-set-ex-it/Cinfo6514 */
obj_t BGl__makezd2setzd2exzd2itzf2Cinfo6514z20zzcfa_infoz00(obj_t BgL_envz00_4364, obj_t BgL_loc3513z00_4365, obj_t BgL_type3514z00_4366, obj_t BgL_var3515z00_4367, obj_t BgL_body3516z00_4368, obj_t BgL_approx3512z00_4369)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 94 */
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_auxz00_6011;
BgL_auxz00_6011 = 
BGl_makezd2setzd2exzd2itzf2Cinfoz20zzcfa_infoz00(BgL_loc3513z00_4365, 
(BgL_typez00_bglt)(BgL_type3514z00_4366), 
(BgL_varz00_bglt)(BgL_var3515z00_4367), 
(BgL_nodez00_bglt)(BgL_body3516z00_4368), 
(BgL_approxz00_bglt)(BgL_approx3512z00_4369)); 
return 
(obj_t)(BgL_auxz00_6011);} } 
}



/* fill-set-ex-it/Cinfo! */
BGL_EXPORTED_DEF BgL_setzd2exzd2itzf2cinfozf2_bglt BGl_fillzd2setzd2exzd2itzf2Cinfoz12z32zzcfa_infoz00(BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_new3520z00_122, BgL_approxz00_bglt BgL_approx3519z00_123)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 94 */
{ /* ./Cfa/cinfo.scm 94 */
BgL_approxz00_bglt BgL_approx3519z00_5015;
BgL_approx3519z00_5015 = BgL_approx3519z00_123; 
((((BgL_setzd2exzd2itzf2cinfozf2_bglt)CREF(BgL_new3520z00_122))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3519z00_5015), BUNSPEC); 
return BgL_new3520z00_122;} } 
}



/* _fill-set-ex-it/Cinfo!6516 */
obj_t BGl__fillzd2setzd2exzd2itzf2Cinfoz126516z32zzcfa_infoz00(obj_t BgL_envz00_4370, obj_t BgL_new3520z00_4371, obj_t BgL_approx3519z00_4372)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 94 */
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_auxz00_6019;
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_res8181z00_5019;
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_new3520z00_5016;BgL_approxz00_bglt BgL_approx3519z00_5017;
BgL_new3520z00_5016 = 
(BgL_setzd2exzd2itzf2cinfozf2_bglt)(BgL_new3520z00_4371); 
BgL_approx3519z00_5017 = 
(BgL_approxz00_bglt)(BgL_approx3519z00_4372); 
{ /* ./Cfa/cinfo.scm 94 */
BgL_approxz00_bglt BgL_approx3519z00_5018;
BgL_approx3519z00_5018 = BgL_approx3519z00_5017; 
((((BgL_setzd2exzd2itzf2cinfozf2_bglt)CREF(BgL_new3520z00_5016))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3519z00_5018), BUNSPEC); 
BgL_res8181z00_5019 = BgL_new3520z00_5016; } } 
BgL_auxz00_6019 = BgL_res8181z00_5019; } 
return 
(obj_t)(BgL_auxz00_6019);} } 
}



/* allocate-set-ex-it/Cinfo */
BGL_EXPORTED_DEF BgL_setzd2exzd2itz00_bglt BGl_allocatezd2setzd2exzd2itzf2Cinfoz20zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 94 */
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itz00_bglt BgL_new3523z00_5020;
BgL_new3523z00_5020 = 
((BgL_setzd2exzd2itz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_setzd2exzd2itz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 94 */
long BgL_arg4416z00_5021;
BgL_arg4416z00_5021 = 
BGl_classzd2numzd2zz__objectz00(BGl_setzd2exzd2itzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 94 */
BgL_objectz00_bglt BgL_objz00_5022;
BgL_objz00_5022 = 
(BgL_objectz00_bglt)(BgL_new3523z00_5020); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5022, BgL_arg4416z00_5021); } } 
{ /* ./Cfa/cinfo.scm 94 */
BgL_objectz00_bglt BgL_auxz00_6028;
BgL_auxz00_6028 = 
(BgL_objectz00_bglt)(BgL_new3523z00_5020); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6028, BFALSE); } 
{ /* ./Cfa/cinfo.scm 94 */
obj_t BgL_objz00_5023;
BgL_objz00_5023 = 
(obj_t)(BgL_new3523z00_5020); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5023); BUNSPEC; } 
return BgL_new3523z00_5020;} } 
}



/* _allocate-set-ex-it/Cinfo */
obj_t BGl__allocatezd2setzd2exzd2itzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4242)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 94 */
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itz00_bglt BgL_auxz00_6033;
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itz00_bglt BgL_res8182z00_5028;
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itz00_bglt BgL_new3523z00_5024;
BgL_new3523z00_5024 = 
((BgL_setzd2exzd2itz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_setzd2exzd2itz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 94 */
long BgL_arg4416z00_5025;
BgL_arg4416z00_5025 = 
BGl_classzd2numzd2zz__objectz00(BGl_setzd2exzd2itzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 94 */
BgL_objectz00_bglt BgL_objz00_5026;
BgL_objz00_5026 = 
(BgL_objectz00_bglt)(BgL_new3523z00_5024); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5026, BgL_arg4416z00_5025); } } 
{ /* ./Cfa/cinfo.scm 94 */
BgL_objectz00_bglt BgL_auxz00_6038;
BgL_auxz00_6038 = 
(BgL_objectz00_bglt)(BgL_new3523z00_5024); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6038, BFALSE); } 
{ /* ./Cfa/cinfo.scm 94 */
obj_t BgL_objz00_5027;
BgL_objz00_5027 = 
(obj_t)(BgL_new3523z00_5024); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5027); BUNSPEC; } 
BgL_res8182z00_5028 = BgL_new3523z00_5024; } 
BgL_auxz00_6033 = BgL_res8182z00_5028; } 
return 
(obj_t)(BgL_auxz00_6033);} } 
}



/* select/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_selectzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_obj3491z00_125)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 92 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3491z00_125, BGl_selectzf2Cinfozf2zzcfa_infoz00);} 
}



/* _select/Cinfo? */
obj_t BGl__selectzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_envz00_4373, obj_t BgL_obj3491z00_4374)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 92 */
{ /* ./Cfa/cinfo.scm 92 */
bool_t BgL_auxz00_6045;
BgL_auxz00_6045 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3491z00_4374, BGl_selectzf2Cinfozf2zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_6045);} } 
}



/* widening-select/Cinfo */
BGL_EXPORTED_DEF BgL_selectzf2cinfozf2_bglt BGl_wideningzd2selectzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt BgL_approx3467z00_129)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 92 */
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectzf2cinfozf2_bglt BgL_new3468z00_2779;
BgL_new3468z00_2779 = 
((BgL_selectzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_selectzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectzf2cinfozf2_bglt BgL_res6304z00_2783;
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectzf2cinfozf2_bglt BgL_new3481z00_2780;
BgL_new3481z00_2780 = BgL_new3468z00_2779; 
{ /* ./Cfa/cinfo.scm 92 */
BgL_approxz00_bglt BgL_approx3480z00_2782;
BgL_approx3480z00_2782 = BgL_approx3467z00_129; 
((((BgL_selectzf2cinfozf2_bglt)CREF(BgL_new3481z00_2780))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3480z00_2782), BUNSPEC); 
BgL_res6304z00_2783 = BgL_new3481z00_2780; } } BgL_res6304z00_2783; } 
return BgL_new3468z00_2779;} } 
}



/* _widening-select/Cinfo */
obj_t BGl__wideningzd2selectzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4375, obj_t BgL_approx3467z00_4376)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 92 */
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectzf2cinfozf2_bglt BgL_auxz00_6050;
BgL_auxz00_6050 = 
BGl_wideningzd2selectzf2Cinfoz20zzcfa_infoz00(
(BgL_approxz00_bglt)(BgL_approx3467z00_4376)); 
return 
(obj_t)(BgL_auxz00_6050);} } 
}



/* make-select/Cinfo */
BGL_EXPORTED_DEF BgL_selectzf2cinfozf2_bglt BGl_makezd2selectzf2Cinfoz20zzcfa_infoz00(obj_t BgL_loc3471z00_130, BgL_typez00_bglt BgL_type3472z00_131, obj_t BgL_sidezd2effectzf33473z21_132, obj_t BgL_key3474z00_133, BgL_nodez00_bglt BgL_test3475z00_134, obj_t BgL_clauses3476z00_135, BgL_typez00_bglt BgL_itemzd2type3477zd2_136, BgL_approxz00_bglt BgL_approx3470z00_137)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 92 */
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectz00_bglt BgL_aux3478z00_2784;
BgL_aux3478z00_2784 = 
BGl_makezd2selectzd2zzast_nodez00(BgL_loc3471z00_130, BgL_type3472z00_131, BgL_sidezd2effectzf33473z21_132, BgL_key3474z00_133, BgL_test3475z00_134, BgL_clauses3476z00_135, BgL_itemzd2type3477zd2_136); 
{ /* ./Cfa/cinfo.scm 92 */
long BgL_arg4425z00_2785;
BgL_arg4425z00_2785 = 
BGl_classzd2numzd2zz__objectz00(BGl_selectzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 92 */
BgL_objectz00_bglt BgL_objz00_2788;
BgL_objz00_2788 = 
(BgL_objectz00_bglt)(BgL_aux3478z00_2784); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2788, BgL_arg4425z00_2785); } } 
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectzf2cinfozf2_bglt BgL_arg4429z00_2786;
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectzf2cinfozf2_bglt BgL_res6306z00_2796;
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectzf2cinfozf2_bglt BgL_new3468z00_2791;
BgL_new3468z00_2791 = 
((BgL_selectzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_selectzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectzf2cinfozf2_bglt BgL_res6305z00_2795;
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectzf2cinfozf2_bglt BgL_new3481z00_2792;
BgL_new3481z00_2792 = BgL_new3468z00_2791; 
{ /* ./Cfa/cinfo.scm 92 */
BgL_approxz00_bglt BgL_approx3480z00_2794;
BgL_approx3480z00_2794 = BgL_approx3470z00_137; 
((((BgL_selectzf2cinfozf2_bglt)CREF(BgL_new3481z00_2792))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3480z00_2794), BUNSPEC); 
BgL_res6305z00_2795 = BgL_new3481z00_2792; } } BgL_res6305z00_2795; } 
BgL_res6306z00_2796 = BgL_new3468z00_2791; } 
BgL_arg4429z00_2786 = BgL_res6306z00_2796; } 
{ /* ./Cfa/cinfo.scm 92 */
obj_t BgL_auxz00_6062;BgL_objectz00_bglt BgL_auxz00_6060;
BgL_auxz00_6062 = 
(obj_t)(BgL_arg4429z00_2786); 
BgL_auxz00_6060 = 
(BgL_objectz00_bglt)(BgL_aux3478z00_2784); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6060, BgL_auxz00_6062); } } 
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectzf2cinfozf2_bglt BgL_new3479z00_2787;
{ 
BgL_selectzf2cinfozf2_bglt BgL_auxz00_6065;
BgL_auxz00_6065 = 
(BgL_selectzf2cinfozf2_bglt)(BgL_aux3478z00_2784); 
BgL_new3479z00_2787 = 
((BgL_selectzf2cinfozf2_bglt)BgL_auxz00_6065); } 
{ /* ./Cfa/cinfo.scm 92 */
obj_t BgL_objz00_2797;
BgL_objz00_2797 = 
(obj_t)(BgL_new3479z00_2787); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2797); BUNSPEC; } 
return BgL_new3479z00_2787;} } } 
}



/* _make-select/Cinfo6520 */
obj_t BGl__makezd2selectzf2Cinfo6520z20zzcfa_infoz00(obj_t BgL_envz00_4377, obj_t BgL_loc3471z00_4378, obj_t BgL_type3472z00_4379, obj_t BgL_sidezd2effectzf33473z21_4380, obj_t BgL_key3474z00_4381, obj_t BgL_test3475z00_4382, obj_t BgL_clauses3476z00_4383, obj_t BgL_itemzd2type3477zd2_4384, obj_t BgL_approx3470z00_4385)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 92 */
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectzf2cinfozf2_bglt BgL_auxz00_6070;
BgL_auxz00_6070 = 
BGl_makezd2selectzf2Cinfoz20zzcfa_infoz00(BgL_loc3471z00_4378, 
(BgL_typez00_bglt)(BgL_type3472z00_4379), BgL_sidezd2effectzf33473z21_4380, BgL_key3474z00_4381, 
(BgL_nodez00_bglt)(BgL_test3475z00_4382), BgL_clauses3476z00_4383, 
(BgL_typez00_bglt)(BgL_itemzd2type3477zd2_4384), 
(BgL_approxz00_bglt)(BgL_approx3470z00_4385)); 
return 
(obj_t)(BgL_auxz00_6070);} } 
}



/* fill-select/Cinfo! */
BGL_EXPORTED_DEF BgL_selectzf2cinfozf2_bglt BGl_fillzd2selectzf2Cinfoz12z32zzcfa_infoz00(BgL_selectzf2cinfozf2_bglt BgL_new3481z00_138, BgL_approxz00_bglt BgL_approx3480z00_139)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 92 */
{ /* ./Cfa/cinfo.scm 92 */
BgL_approxz00_bglt BgL_approx3480z00_5030;
BgL_approx3480z00_5030 = BgL_approx3480z00_139; 
((((BgL_selectzf2cinfozf2_bglt)CREF(BgL_new3481z00_138))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3480z00_5030), BUNSPEC); 
return BgL_new3481z00_138;} } 
}



/* _fill-select/Cinfo!6522 */
obj_t BGl__fillzd2selectzf2Cinfoz126522z32zzcfa_infoz00(obj_t BgL_envz00_4386, obj_t BgL_new3481z00_4387, obj_t BgL_approx3480z00_4388)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 92 */
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectzf2cinfozf2_bglt BgL_auxz00_6078;
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectzf2cinfozf2_bglt BgL_res8183z00_5034;
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectzf2cinfozf2_bglt BgL_new3481z00_5031;BgL_approxz00_bglt BgL_approx3480z00_5032;
BgL_new3481z00_5031 = 
(BgL_selectzf2cinfozf2_bglt)(BgL_new3481z00_4387); 
BgL_approx3480z00_5032 = 
(BgL_approxz00_bglt)(BgL_approx3480z00_4388); 
{ /* ./Cfa/cinfo.scm 92 */
BgL_approxz00_bglt BgL_approx3480z00_5033;
BgL_approx3480z00_5033 = BgL_approx3480z00_5032; 
((((BgL_selectzf2cinfozf2_bglt)CREF(BgL_new3481z00_5031))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3480z00_5033), BUNSPEC); 
BgL_res8183z00_5034 = BgL_new3481z00_5031; } } 
BgL_auxz00_6078 = BgL_res8183z00_5034; } 
return 
(obj_t)(BgL_auxz00_6078);} } 
}



/* allocate-select/Cinfo */
BGL_EXPORTED_DEF BgL_selectz00_bglt BGl_allocatezd2selectzf2Cinfoz20zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 92 */
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectz00_bglt BgL_new3484z00_5035;
BgL_new3484z00_5035 = 
((BgL_selectz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_selectz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 92 */
long BgL_arg4435z00_5036;
BgL_arg4435z00_5036 = 
BGl_classzd2numzd2zz__objectz00(BGl_selectzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 92 */
BgL_objectz00_bglt BgL_objz00_5037;
BgL_objz00_5037 = 
(BgL_objectz00_bglt)(BgL_new3484z00_5035); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5037, BgL_arg4435z00_5036); } } 
{ /* ./Cfa/cinfo.scm 92 */
BgL_objectz00_bglt BgL_auxz00_6087;
BgL_auxz00_6087 = 
(BgL_objectz00_bglt)(BgL_new3484z00_5035); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6087, BFALSE); } 
{ /* ./Cfa/cinfo.scm 92 */
obj_t BgL_objz00_5038;
BgL_objz00_5038 = 
(obj_t)(BgL_new3484z00_5035); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5038); BUNSPEC; } 
return BgL_new3484z00_5035;} } 
}



/* _allocate-select/Cinfo */
obj_t BGl__allocatezd2selectzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4241)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 92 */
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectz00_bglt BgL_auxz00_6092;
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectz00_bglt BgL_res8184z00_5043;
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectz00_bglt BgL_new3484z00_5039;
BgL_new3484z00_5039 = 
((BgL_selectz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_selectz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 92 */
long BgL_arg4435z00_5040;
BgL_arg4435z00_5040 = 
BGl_classzd2numzd2zz__objectz00(BGl_selectzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 92 */
BgL_objectz00_bglt BgL_objz00_5041;
BgL_objz00_5041 = 
(BgL_objectz00_bglt)(BgL_new3484z00_5039); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5041, BgL_arg4435z00_5040); } } 
{ /* ./Cfa/cinfo.scm 92 */
BgL_objectz00_bglt BgL_auxz00_6097;
BgL_auxz00_6097 = 
(BgL_objectz00_bglt)(BgL_new3484z00_5039); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6097, BFALSE); } 
{ /* ./Cfa/cinfo.scm 92 */
obj_t BgL_objz00_5042;
BgL_objz00_5042 = 
(obj_t)(BgL_new3484z00_5039); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5042); BUNSPEC; } 
BgL_res8184z00_5043 = BgL_new3484z00_5039; } 
BgL_auxz00_6092 = BgL_res8184z00_5043; } 
return 
(obj_t)(BgL_auxz00_6092);} } 
}



/* fail/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_failzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_obj3451z00_141)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 90 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3451z00_141, BGl_failzf2Cinfozf2zzcfa_infoz00);} 
}



/* _fail/Cinfo? */
obj_t BGl__failzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_envz00_4389, obj_t BgL_obj3451z00_4390)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 90 */
{ /* ./Cfa/cinfo.scm 90 */
bool_t BgL_auxz00_6104;
BgL_auxz00_6104 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3451z00_4390, BGl_failzf2Cinfozf2zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_6104);} } 
}



/* widening-fail/Cinfo */
BGL_EXPORTED_DEF BgL_failzf2cinfozf2_bglt BGl_wideningzd2failzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt BgL_approx3429z00_145)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 90 */
{ /* ./Cfa/cinfo.scm 90 */
BgL_failzf2cinfozf2_bglt BgL_new3430z00_2804;
BgL_new3430z00_2804 = 
((BgL_failzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_failzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 90 */
BgL_failzf2cinfozf2_bglt BgL_res6307z00_2808;
{ /* ./Cfa/cinfo.scm 90 */
BgL_failzf2cinfozf2_bglt BgL_new3441z00_2805;
BgL_new3441z00_2805 = BgL_new3430z00_2804; 
{ /* ./Cfa/cinfo.scm 90 */
BgL_approxz00_bglt BgL_approx3440z00_2807;
BgL_approx3440z00_2807 = BgL_approx3429z00_145; 
((((BgL_failzf2cinfozf2_bglt)CREF(BgL_new3441z00_2805))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3440z00_2807), BUNSPEC); 
BgL_res6307z00_2808 = BgL_new3441z00_2805; } } BgL_res6307z00_2808; } 
return BgL_new3430z00_2804;} } 
}



/* _widening-fail/Cinfo */
obj_t BGl__wideningzd2failzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4391, obj_t BgL_approx3429z00_4392)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 90 */
{ /* ./Cfa/cinfo.scm 90 */
BgL_failzf2cinfozf2_bglt BgL_auxz00_6109;
BgL_auxz00_6109 = 
BGl_wideningzd2failzf2Cinfoz20zzcfa_infoz00(
(BgL_approxz00_bglt)(BgL_approx3429z00_4392)); 
return 
(obj_t)(BgL_auxz00_6109);} } 
}



/* make-fail/Cinfo */
BGL_EXPORTED_DEF BgL_failzf2cinfozf2_bglt BGl_makezd2failzf2Cinfoz20zzcfa_infoz00(obj_t BgL_loc3433z00_146, BgL_typez00_bglt BgL_type3434z00_147, BgL_nodez00_bglt BgL_proc3435z00_148, BgL_nodez00_bglt BgL_msg3436z00_149, BgL_nodez00_bglt BgL_obj3437z00_150, BgL_approxz00_bglt BgL_approx3432z00_151)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 90 */
{ /* ./Cfa/cinfo.scm 90 */
BgL_failz00_bglt BgL_aux3438z00_2809;
BgL_aux3438z00_2809 = 
BGl_makezd2failzd2zzast_nodez00(BgL_loc3433z00_146, BgL_type3434z00_147, BgL_proc3435z00_148, BgL_msg3436z00_149, BgL_obj3437z00_150); 
{ /* ./Cfa/cinfo.scm 90 */
long BgL_arg4444z00_2810;
BgL_arg4444z00_2810 = 
BGl_classzd2numzd2zz__objectz00(BGl_failzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 90 */
BgL_objectz00_bglt BgL_objz00_2813;
BgL_objz00_2813 = 
(BgL_objectz00_bglt)(BgL_aux3438z00_2809); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2813, BgL_arg4444z00_2810); } } 
{ /* ./Cfa/cinfo.scm 90 */
BgL_failzf2cinfozf2_bglt BgL_arg4448z00_2811;
{ /* ./Cfa/cinfo.scm 90 */
BgL_failzf2cinfozf2_bglt BgL_res6309z00_2821;
{ /* ./Cfa/cinfo.scm 90 */
BgL_failzf2cinfozf2_bglt BgL_new3430z00_2816;
BgL_new3430z00_2816 = 
((BgL_failzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_failzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 90 */
BgL_failzf2cinfozf2_bglt BgL_res6308z00_2820;
{ /* ./Cfa/cinfo.scm 90 */
BgL_failzf2cinfozf2_bglt BgL_new3441z00_2817;
BgL_new3441z00_2817 = BgL_new3430z00_2816; 
{ /* ./Cfa/cinfo.scm 90 */
BgL_approxz00_bglt BgL_approx3440z00_2819;
BgL_approx3440z00_2819 = BgL_approx3432z00_151; 
((((BgL_failzf2cinfozf2_bglt)CREF(BgL_new3441z00_2817))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3440z00_2819), BUNSPEC); 
BgL_res6308z00_2820 = BgL_new3441z00_2817; } } BgL_res6308z00_2820; } 
BgL_res6309z00_2821 = BgL_new3430z00_2816; } 
BgL_arg4448z00_2811 = BgL_res6309z00_2821; } 
{ /* ./Cfa/cinfo.scm 90 */
obj_t BgL_auxz00_6121;BgL_objectz00_bglt BgL_auxz00_6119;
BgL_auxz00_6121 = 
(obj_t)(BgL_arg4448z00_2811); 
BgL_auxz00_6119 = 
(BgL_objectz00_bglt)(BgL_aux3438z00_2809); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6119, BgL_auxz00_6121); } } 
{ /* ./Cfa/cinfo.scm 90 */
BgL_failzf2cinfozf2_bglt BgL_new3439z00_2812;
{ 
BgL_failzf2cinfozf2_bglt BgL_auxz00_6124;
BgL_auxz00_6124 = 
(BgL_failzf2cinfozf2_bglt)(BgL_aux3438z00_2809); 
BgL_new3439z00_2812 = 
((BgL_failzf2cinfozf2_bglt)BgL_auxz00_6124); } 
{ /* ./Cfa/cinfo.scm 90 */
obj_t BgL_objz00_2822;
BgL_objz00_2822 = 
(obj_t)(BgL_new3439z00_2812); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2822); BUNSPEC; } 
return BgL_new3439z00_2812;} } } 
}



/* _make-fail/Cinfo6526 */
obj_t BGl__makezd2failzf2Cinfo6526z20zzcfa_infoz00(obj_t BgL_envz00_4393, obj_t BgL_loc3433z00_4394, obj_t BgL_type3434z00_4395, obj_t BgL_proc3435z00_4396, obj_t BgL_msg3436z00_4397, obj_t BgL_obj3437z00_4398, obj_t BgL_approx3432z00_4399)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 90 */
{ /* ./Cfa/cinfo.scm 90 */
BgL_failzf2cinfozf2_bglt BgL_auxz00_6129;
BgL_auxz00_6129 = 
BGl_makezd2failzf2Cinfoz20zzcfa_infoz00(BgL_loc3433z00_4394, 
(BgL_typez00_bglt)(BgL_type3434z00_4395), 
(BgL_nodez00_bglt)(BgL_proc3435z00_4396), 
(BgL_nodez00_bglt)(BgL_msg3436z00_4397), 
(BgL_nodez00_bglt)(BgL_obj3437z00_4398), 
(BgL_approxz00_bglt)(BgL_approx3432z00_4399)); 
return 
(obj_t)(BgL_auxz00_6129);} } 
}



/* fill-fail/Cinfo! */
BGL_EXPORTED_DEF BgL_failzf2cinfozf2_bglt BGl_fillzd2failzf2Cinfoz12z32zzcfa_infoz00(BgL_failzf2cinfozf2_bglt BgL_new3441z00_152, BgL_approxz00_bglt BgL_approx3440z00_153)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 90 */
{ /* ./Cfa/cinfo.scm 90 */
BgL_approxz00_bglt BgL_approx3440z00_5045;
BgL_approx3440z00_5045 = BgL_approx3440z00_153; 
((((BgL_failzf2cinfozf2_bglt)CREF(BgL_new3441z00_152))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3440z00_5045), BUNSPEC); 
return BgL_new3441z00_152;} } 
}



/* _fill-fail/Cinfo!6528 */
obj_t BGl__fillzd2failzf2Cinfoz126528z32zzcfa_infoz00(obj_t BgL_envz00_4400, obj_t BgL_new3441z00_4401, obj_t BgL_approx3440z00_4402)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 90 */
{ /* ./Cfa/cinfo.scm 90 */
BgL_failzf2cinfozf2_bglt BgL_auxz00_6138;
{ /* ./Cfa/cinfo.scm 90 */
BgL_failzf2cinfozf2_bglt BgL_res8185z00_5049;
{ /* ./Cfa/cinfo.scm 90 */
BgL_failzf2cinfozf2_bglt BgL_new3441z00_5046;BgL_approxz00_bglt BgL_approx3440z00_5047;
BgL_new3441z00_5046 = 
(BgL_failzf2cinfozf2_bglt)(BgL_new3441z00_4401); 
BgL_approx3440z00_5047 = 
(BgL_approxz00_bglt)(BgL_approx3440z00_4402); 
{ /* ./Cfa/cinfo.scm 90 */
BgL_approxz00_bglt BgL_approx3440z00_5048;
BgL_approx3440z00_5048 = BgL_approx3440z00_5047; 
((((BgL_failzf2cinfozf2_bglt)CREF(BgL_new3441z00_5046))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3440z00_5048), BUNSPEC); 
BgL_res8185z00_5049 = BgL_new3441z00_5046; } } 
BgL_auxz00_6138 = BgL_res8185z00_5049; } 
return 
(obj_t)(BgL_auxz00_6138);} } 
}



/* allocate-fail/Cinfo */
BGL_EXPORTED_DEF BgL_failz00_bglt BGl_allocatezd2failzf2Cinfoz20zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 90 */
{ /* ./Cfa/cinfo.scm 90 */
BgL_failz00_bglt BgL_new3444z00_5050;
BgL_new3444z00_5050 = 
((BgL_failz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_failz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 90 */
long BgL_arg4454z00_5051;
BgL_arg4454z00_5051 = 
BGl_classzd2numzd2zz__objectz00(BGl_failzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 90 */
BgL_objectz00_bglt BgL_objz00_5052;
BgL_objz00_5052 = 
(BgL_objectz00_bglt)(BgL_new3444z00_5050); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5052, BgL_arg4454z00_5051); } } 
{ /* ./Cfa/cinfo.scm 90 */
BgL_objectz00_bglt BgL_auxz00_6147;
BgL_auxz00_6147 = 
(BgL_objectz00_bglt)(BgL_new3444z00_5050); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6147, BFALSE); } 
{ /* ./Cfa/cinfo.scm 90 */
obj_t BgL_objz00_5053;
BgL_objz00_5053 = 
(obj_t)(BgL_new3444z00_5050); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5053); BUNSPEC; } 
return BgL_new3444z00_5050;} } 
}



/* _allocate-fail/Cinfo */
obj_t BGl__allocatezd2failzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4240)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 90 */
{ /* ./Cfa/cinfo.scm 90 */
BgL_failz00_bglt BgL_auxz00_6152;
{ /* ./Cfa/cinfo.scm 90 */
BgL_failz00_bglt BgL_res8186z00_5058;
{ /* ./Cfa/cinfo.scm 90 */
BgL_failz00_bglt BgL_new3444z00_5054;
BgL_new3444z00_5054 = 
((BgL_failz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_failz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 90 */
long BgL_arg4454z00_5055;
BgL_arg4454z00_5055 = 
BGl_classzd2numzd2zz__objectz00(BGl_failzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 90 */
BgL_objectz00_bglt BgL_objz00_5056;
BgL_objz00_5056 = 
(BgL_objectz00_bglt)(BgL_new3444z00_5054); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5056, BgL_arg4454z00_5055); } } 
{ /* ./Cfa/cinfo.scm 90 */
BgL_objectz00_bglt BgL_auxz00_6157;
BgL_auxz00_6157 = 
(BgL_objectz00_bglt)(BgL_new3444z00_5054); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6157, BFALSE); } 
{ /* ./Cfa/cinfo.scm 90 */
obj_t BgL_objz00_5057;
BgL_objz00_5057 = 
(obj_t)(BgL_new3444z00_5054); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5057); BUNSPEC; } 
BgL_res8186z00_5058 = BgL_new3444z00_5054; } 
BgL_auxz00_6152 = BgL_res8186z00_5058; } 
return 
(obj_t)(BgL_auxz00_6152);} } 
}



/* conditional/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_conditionalzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_obj3408z00_155)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 88 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3408z00_155, BGl_conditionalzf2Cinfozf2zzcfa_infoz00);} 
}



/* _conditional/Cinfo? */
obj_t BGl__conditionalzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_envz00_4403, obj_t BgL_obj3408z00_4404)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 88 */
{ /* ./Cfa/cinfo.scm 88 */
bool_t BgL_auxz00_6164;
BgL_auxz00_6164 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3408z00_4404, BGl_conditionalzf2Cinfozf2zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_6164);} } 
}



/* widening-conditional/Cinfo */
BGL_EXPORTED_DEF BgL_conditionalzf2cinfozf2_bglt BGl_wideningzd2conditionalzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt BgL_approx3384z00_159)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 88 */
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalzf2cinfozf2_bglt BgL_new3385z00_2829;
BgL_new3385z00_2829 = 
((BgL_conditionalzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_conditionalzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalzf2cinfozf2_bglt BgL_res6310z00_2833;
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalzf2cinfozf2_bglt BgL_new3398z00_2830;
BgL_new3398z00_2830 = BgL_new3385z00_2829; 
{ /* ./Cfa/cinfo.scm 88 */
BgL_approxz00_bglt BgL_approx3397z00_2832;
BgL_approx3397z00_2832 = BgL_approx3384z00_159; 
((((BgL_conditionalzf2cinfozf2_bglt)CREF(BgL_new3398z00_2830))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3397z00_2832), BUNSPEC); 
BgL_res6310z00_2833 = BgL_new3398z00_2830; } } BgL_res6310z00_2833; } 
return BgL_new3385z00_2829;} } 
}



/* _widening-conditional/Cinfo */
obj_t BGl__wideningzd2conditionalzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4405, obj_t BgL_approx3384z00_4406)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 88 */
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalzf2cinfozf2_bglt BgL_auxz00_6169;
BgL_auxz00_6169 = 
BGl_wideningzd2conditionalzf2Cinfoz20zzcfa_infoz00(
(BgL_approxz00_bglt)(BgL_approx3384z00_4406)); 
return 
(obj_t)(BgL_auxz00_6169);} } 
}



/* make-conditional/Cinfo */
BGL_EXPORTED_DEF BgL_conditionalzf2cinfozf2_bglt BGl_makezd2conditionalzf2Cinfoz20zzcfa_infoz00(obj_t BgL_loc3388z00_160, BgL_typez00_bglt BgL_type3389z00_161, obj_t BgL_sidezd2effectzf33390z21_162, obj_t BgL_key3391z00_163, BgL_nodez00_bglt BgL_test3392z00_164, BgL_nodez00_bglt BgL_true3393z00_165, BgL_nodez00_bglt BgL_false3394z00_166, BgL_approxz00_bglt BgL_approx3387z00_167)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 88 */
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalz00_bglt BgL_aux3395z00_2834;
BgL_aux3395z00_2834 = 
BGl_makezd2conditionalzd2zzast_nodez00(BgL_loc3388z00_160, BgL_type3389z00_161, BgL_sidezd2effectzf33390z21_162, BgL_key3391z00_163, BgL_test3392z00_164, BgL_true3393z00_165, BgL_false3394z00_166); 
{ /* ./Cfa/cinfo.scm 88 */
long BgL_arg4464z00_2835;
BgL_arg4464z00_2835 = 
BGl_classzd2numzd2zz__objectz00(BGl_conditionalzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 88 */
BgL_objectz00_bglt BgL_objz00_2838;
BgL_objz00_2838 = 
(BgL_objectz00_bglt)(BgL_aux3395z00_2834); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2838, BgL_arg4464z00_2835); } } 
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalzf2cinfozf2_bglt BgL_arg4468z00_2836;
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalzf2cinfozf2_bglt BgL_res6312z00_2846;
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalzf2cinfozf2_bglt BgL_new3385z00_2841;
BgL_new3385z00_2841 = 
((BgL_conditionalzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_conditionalzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalzf2cinfozf2_bglt BgL_res6311z00_2845;
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalzf2cinfozf2_bglt BgL_new3398z00_2842;
BgL_new3398z00_2842 = BgL_new3385z00_2841; 
{ /* ./Cfa/cinfo.scm 88 */
BgL_approxz00_bglt BgL_approx3397z00_2844;
BgL_approx3397z00_2844 = BgL_approx3387z00_167; 
((((BgL_conditionalzf2cinfozf2_bglt)CREF(BgL_new3398z00_2842))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3397z00_2844), BUNSPEC); 
BgL_res6311z00_2845 = BgL_new3398z00_2842; } } BgL_res6311z00_2845; } 
BgL_res6312z00_2846 = BgL_new3385z00_2841; } 
BgL_arg4468z00_2836 = BgL_res6312z00_2846; } 
{ /* ./Cfa/cinfo.scm 88 */
obj_t BgL_auxz00_6181;BgL_objectz00_bglt BgL_auxz00_6179;
BgL_auxz00_6181 = 
(obj_t)(BgL_arg4468z00_2836); 
BgL_auxz00_6179 = 
(BgL_objectz00_bglt)(BgL_aux3395z00_2834); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6179, BgL_auxz00_6181); } } 
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalzf2cinfozf2_bglt BgL_new3396z00_2837;
{ 
BgL_conditionalzf2cinfozf2_bglt BgL_auxz00_6184;
BgL_auxz00_6184 = 
(BgL_conditionalzf2cinfozf2_bglt)(BgL_aux3395z00_2834); 
BgL_new3396z00_2837 = 
((BgL_conditionalzf2cinfozf2_bglt)BgL_auxz00_6184); } 
{ /* ./Cfa/cinfo.scm 88 */
obj_t BgL_objz00_2847;
BgL_objz00_2847 = 
(obj_t)(BgL_new3396z00_2837); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2847); BUNSPEC; } 
return BgL_new3396z00_2837;} } } 
}



/* _make-conditional/Cinfo6532 */
obj_t BGl__makezd2conditionalzf2Cinfo6532z20zzcfa_infoz00(obj_t BgL_envz00_4407, obj_t BgL_loc3388z00_4408, obj_t BgL_type3389z00_4409, obj_t BgL_sidezd2effectzf33390z21_4410, obj_t BgL_key3391z00_4411, obj_t BgL_test3392z00_4412, obj_t BgL_true3393z00_4413, obj_t BgL_false3394z00_4414, obj_t BgL_approx3387z00_4415)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 88 */
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalzf2cinfozf2_bglt BgL_auxz00_6189;
BgL_auxz00_6189 = 
BGl_makezd2conditionalzf2Cinfoz20zzcfa_infoz00(BgL_loc3388z00_4408, 
(BgL_typez00_bglt)(BgL_type3389z00_4409), BgL_sidezd2effectzf33390z21_4410, BgL_key3391z00_4411, 
(BgL_nodez00_bglt)(BgL_test3392z00_4412), 
(BgL_nodez00_bglt)(BgL_true3393z00_4413), 
(BgL_nodez00_bglt)(BgL_false3394z00_4414), 
(BgL_approxz00_bglt)(BgL_approx3387z00_4415)); 
return 
(obj_t)(BgL_auxz00_6189);} } 
}



/* fill-conditional/Cinfo! */
BGL_EXPORTED_DEF BgL_conditionalzf2cinfozf2_bglt BGl_fillzd2conditionalzf2Cinfoz12z32zzcfa_infoz00(BgL_conditionalzf2cinfozf2_bglt BgL_new3398z00_168, BgL_approxz00_bglt BgL_approx3397z00_169)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 88 */
{ /* ./Cfa/cinfo.scm 88 */
BgL_approxz00_bglt BgL_approx3397z00_5060;
BgL_approx3397z00_5060 = BgL_approx3397z00_169; 
((((BgL_conditionalzf2cinfozf2_bglt)CREF(BgL_new3398z00_168))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3397z00_5060), BUNSPEC); 
return BgL_new3398z00_168;} } 
}



/* _fill-conditional/Cinfo!6534 */
obj_t BGl__fillzd2conditionalzf2Cinfoz126534z32zzcfa_infoz00(obj_t BgL_envz00_4416, obj_t BgL_new3398z00_4417, obj_t BgL_approx3397z00_4418)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 88 */
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalzf2cinfozf2_bglt BgL_auxz00_6198;
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalzf2cinfozf2_bglt BgL_res8187z00_5064;
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalzf2cinfozf2_bglt BgL_new3398z00_5061;BgL_approxz00_bglt BgL_approx3397z00_5062;
BgL_new3398z00_5061 = 
(BgL_conditionalzf2cinfozf2_bglt)(BgL_new3398z00_4417); 
BgL_approx3397z00_5062 = 
(BgL_approxz00_bglt)(BgL_approx3397z00_4418); 
{ /* ./Cfa/cinfo.scm 88 */
BgL_approxz00_bglt BgL_approx3397z00_5063;
BgL_approx3397z00_5063 = BgL_approx3397z00_5062; 
((((BgL_conditionalzf2cinfozf2_bglt)CREF(BgL_new3398z00_5061))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3397z00_5063), BUNSPEC); 
BgL_res8187z00_5064 = BgL_new3398z00_5061; } } 
BgL_auxz00_6198 = BgL_res8187z00_5064; } 
return 
(obj_t)(BgL_auxz00_6198);} } 
}



/* allocate-conditional/Cinfo */
BGL_EXPORTED_DEF BgL_conditionalz00_bglt BGl_allocatezd2conditionalzf2Cinfoz20zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 88 */
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalz00_bglt BgL_new3401z00_5065;
BgL_new3401z00_5065 = 
((BgL_conditionalz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_conditionalz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 88 */
long BgL_arg4474z00_5066;
BgL_arg4474z00_5066 = 
BGl_classzd2numzd2zz__objectz00(BGl_conditionalzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 88 */
BgL_objectz00_bglt BgL_objz00_5067;
BgL_objz00_5067 = 
(BgL_objectz00_bglt)(BgL_new3401z00_5065); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5067, BgL_arg4474z00_5066); } } 
{ /* ./Cfa/cinfo.scm 88 */
BgL_objectz00_bglt BgL_auxz00_6207;
BgL_auxz00_6207 = 
(BgL_objectz00_bglt)(BgL_new3401z00_5065); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6207, BFALSE); } 
{ /* ./Cfa/cinfo.scm 88 */
obj_t BgL_objz00_5068;
BgL_objz00_5068 = 
(obj_t)(BgL_new3401z00_5065); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5068); BUNSPEC; } 
return BgL_new3401z00_5065;} } 
}



/* _allocate-conditional/Cinfo */
obj_t BGl__allocatezd2conditionalzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4239)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 88 */
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalz00_bglt BgL_auxz00_6212;
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalz00_bglt BgL_res8188z00_5073;
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalz00_bglt BgL_new3401z00_5069;
BgL_new3401z00_5069 = 
((BgL_conditionalz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_conditionalz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 88 */
long BgL_arg4474z00_5070;
BgL_arg4474z00_5070 = 
BGl_classzd2numzd2zz__objectz00(BGl_conditionalzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 88 */
BgL_objectz00_bglt BgL_objz00_5071;
BgL_objz00_5071 = 
(BgL_objectz00_bglt)(BgL_new3401z00_5069); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5071, BgL_arg4474z00_5070); } } 
{ /* ./Cfa/cinfo.scm 88 */
BgL_objectz00_bglt BgL_auxz00_6217;
BgL_auxz00_6217 = 
(BgL_objectz00_bglt)(BgL_new3401z00_5069); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6217, BFALSE); } 
{ /* ./Cfa/cinfo.scm 88 */
obj_t BgL_objz00_5072;
BgL_objz00_5072 = 
(obj_t)(BgL_new3401z00_5069); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5072); BUNSPEC; } 
BgL_res8188z00_5073 = BgL_new3401z00_5069; } 
BgL_auxz00_6212 = BgL_res8188z00_5073; } 
return 
(obj_t)(BgL_auxz00_6212);} } 
}



/* setq/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_setqzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_obj3372z00_171)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 86 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3372z00_171, BGl_setqzf2Cinfozf2zzcfa_infoz00);} 
}



/* _setq/Cinfo? */
obj_t BGl__setqzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_envz00_4419, obj_t BgL_obj3372z00_4420)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 86 */
{ /* ./Cfa/cinfo.scm 86 */
bool_t BgL_auxz00_6224;
BgL_auxz00_6224 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3372z00_4420, BGl_setqzf2Cinfozf2zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_6224);} } 
}



/* widening-setq/Cinfo */
BGL_EXPORTED_DEF BgL_setqzf2cinfozf2_bglt BGl_wideningzd2setqzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt BgL_approx3351z00_175)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 86 */
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqzf2cinfozf2_bglt BgL_new3352z00_2854;
BgL_new3352z00_2854 = 
((BgL_setqzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_setqzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqzf2cinfozf2_bglt BgL_res6313z00_2858;
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqzf2cinfozf2_bglt BgL_new3362z00_2855;
BgL_new3362z00_2855 = BgL_new3352z00_2854; 
{ /* ./Cfa/cinfo.scm 86 */
BgL_approxz00_bglt BgL_approx3361z00_2857;
BgL_approx3361z00_2857 = BgL_approx3351z00_175; 
((((BgL_setqzf2cinfozf2_bglt)CREF(BgL_new3362z00_2855))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3361z00_2857), BUNSPEC); 
BgL_res6313z00_2858 = BgL_new3362z00_2855; } } BgL_res6313z00_2858; } 
return BgL_new3352z00_2854;} } 
}



/* _widening-setq/Cinfo */
obj_t BGl__wideningzd2setqzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4421, obj_t BgL_approx3351z00_4422)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 86 */
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqzf2cinfozf2_bglt BgL_auxz00_6229;
BgL_auxz00_6229 = 
BGl_wideningzd2setqzf2Cinfoz20zzcfa_infoz00(
(BgL_approxz00_bglt)(BgL_approx3351z00_4422)); 
return 
(obj_t)(BgL_auxz00_6229);} } 
}



/* make-setq/Cinfo */
BGL_EXPORTED_DEF BgL_setqzf2cinfozf2_bglt BGl_makezd2setqzf2Cinfoz20zzcfa_infoz00(obj_t BgL_loc3355z00_176, BgL_typez00_bglt BgL_type3356z00_177, BgL_varz00_bglt BgL_var3357z00_178, BgL_nodez00_bglt BgL_value3358z00_179, BgL_approxz00_bglt BgL_approx3354z00_180)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 86 */
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqz00_bglt BgL_aux3359z00_2859;
BgL_aux3359z00_2859 = 
BGl_makezd2setqzd2zzast_nodez00(BgL_loc3355z00_176, BgL_type3356z00_177, BgL_var3357z00_178, BgL_value3358z00_179); 
{ /* ./Cfa/cinfo.scm 86 */
long BgL_arg4483z00_2860;
BgL_arg4483z00_2860 = 
BGl_classzd2numzd2zz__objectz00(BGl_setqzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 86 */
BgL_objectz00_bglt BgL_objz00_2863;
BgL_objz00_2863 = 
(BgL_objectz00_bglt)(BgL_aux3359z00_2859); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2863, BgL_arg4483z00_2860); } } 
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqzf2cinfozf2_bglt BgL_arg4487z00_2861;
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqzf2cinfozf2_bglt BgL_res6315z00_2871;
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqzf2cinfozf2_bglt BgL_new3352z00_2866;
BgL_new3352z00_2866 = 
((BgL_setqzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_setqzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqzf2cinfozf2_bglt BgL_res6314z00_2870;
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqzf2cinfozf2_bglt BgL_new3362z00_2867;
BgL_new3362z00_2867 = BgL_new3352z00_2866; 
{ /* ./Cfa/cinfo.scm 86 */
BgL_approxz00_bglt BgL_approx3361z00_2869;
BgL_approx3361z00_2869 = BgL_approx3354z00_180; 
((((BgL_setqzf2cinfozf2_bglt)CREF(BgL_new3362z00_2867))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3361z00_2869), BUNSPEC); 
BgL_res6314z00_2870 = BgL_new3362z00_2867; } } BgL_res6314z00_2870; } 
BgL_res6315z00_2871 = BgL_new3352z00_2866; } 
BgL_arg4487z00_2861 = BgL_res6315z00_2871; } 
{ /* ./Cfa/cinfo.scm 86 */
obj_t BgL_auxz00_6241;BgL_objectz00_bglt BgL_auxz00_6239;
BgL_auxz00_6241 = 
(obj_t)(BgL_arg4487z00_2861); 
BgL_auxz00_6239 = 
(BgL_objectz00_bglt)(BgL_aux3359z00_2859); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6239, BgL_auxz00_6241); } } 
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqzf2cinfozf2_bglt BgL_new3360z00_2862;
{ 
BgL_setqzf2cinfozf2_bglt BgL_auxz00_6244;
BgL_auxz00_6244 = 
(BgL_setqzf2cinfozf2_bglt)(BgL_aux3359z00_2859); 
BgL_new3360z00_2862 = 
((BgL_setqzf2cinfozf2_bglt)BgL_auxz00_6244); } 
{ /* ./Cfa/cinfo.scm 86 */
obj_t BgL_objz00_2872;
BgL_objz00_2872 = 
(obj_t)(BgL_new3360z00_2862); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2872); BUNSPEC; } 
return BgL_new3360z00_2862;} } } 
}



/* _make-setq/Cinfo6538 */
obj_t BGl__makezd2setqzf2Cinfo6538z20zzcfa_infoz00(obj_t BgL_envz00_4423, obj_t BgL_loc3355z00_4424, obj_t BgL_type3356z00_4425, obj_t BgL_var3357z00_4426, obj_t BgL_value3358z00_4427, obj_t BgL_approx3354z00_4428)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 86 */
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqzf2cinfozf2_bglt BgL_auxz00_6249;
BgL_auxz00_6249 = 
BGl_makezd2setqzf2Cinfoz20zzcfa_infoz00(BgL_loc3355z00_4424, 
(BgL_typez00_bglt)(BgL_type3356z00_4425), 
(BgL_varz00_bglt)(BgL_var3357z00_4426), 
(BgL_nodez00_bglt)(BgL_value3358z00_4427), 
(BgL_approxz00_bglt)(BgL_approx3354z00_4428)); 
return 
(obj_t)(BgL_auxz00_6249);} } 
}



/* fill-setq/Cinfo! */
BGL_EXPORTED_DEF BgL_setqzf2cinfozf2_bglt BGl_fillzd2setqzf2Cinfoz12z32zzcfa_infoz00(BgL_setqzf2cinfozf2_bglt BgL_new3362z00_181, BgL_approxz00_bglt BgL_approx3361z00_182)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 86 */
{ /* ./Cfa/cinfo.scm 86 */
BgL_approxz00_bglt BgL_approx3361z00_5075;
BgL_approx3361z00_5075 = BgL_approx3361z00_182; 
((((BgL_setqzf2cinfozf2_bglt)CREF(BgL_new3362z00_181))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3361z00_5075), BUNSPEC); 
return BgL_new3362z00_181;} } 
}



/* _fill-setq/Cinfo!6540 */
obj_t BGl__fillzd2setqzf2Cinfoz126540z32zzcfa_infoz00(obj_t BgL_envz00_4429, obj_t BgL_new3362z00_4430, obj_t BgL_approx3361z00_4431)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 86 */
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqzf2cinfozf2_bglt BgL_auxz00_6257;
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqzf2cinfozf2_bglt BgL_res8189z00_5079;
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqzf2cinfozf2_bglt BgL_new3362z00_5076;BgL_approxz00_bglt BgL_approx3361z00_5077;
BgL_new3362z00_5076 = 
(BgL_setqzf2cinfozf2_bglt)(BgL_new3362z00_4430); 
BgL_approx3361z00_5077 = 
(BgL_approxz00_bglt)(BgL_approx3361z00_4431); 
{ /* ./Cfa/cinfo.scm 86 */
BgL_approxz00_bglt BgL_approx3361z00_5078;
BgL_approx3361z00_5078 = BgL_approx3361z00_5077; 
((((BgL_setqzf2cinfozf2_bglt)CREF(BgL_new3362z00_5076))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3361z00_5078), BUNSPEC); 
BgL_res8189z00_5079 = BgL_new3362z00_5076; } } 
BgL_auxz00_6257 = BgL_res8189z00_5079; } 
return 
(obj_t)(BgL_auxz00_6257);} } 
}



/* allocate-setq/Cinfo */
BGL_EXPORTED_DEF BgL_setqz00_bglt BGl_allocatezd2setqzf2Cinfoz20zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 86 */
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqz00_bglt BgL_new3365z00_5080;
BgL_new3365z00_5080 = 
((BgL_setqz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_setqz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 86 */
long BgL_arg4493z00_5081;
BgL_arg4493z00_5081 = 
BGl_classzd2numzd2zz__objectz00(BGl_setqzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 86 */
BgL_objectz00_bglt BgL_objz00_5082;
BgL_objz00_5082 = 
(BgL_objectz00_bglt)(BgL_new3365z00_5080); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5082, BgL_arg4493z00_5081); } } 
{ /* ./Cfa/cinfo.scm 86 */
BgL_objectz00_bglt BgL_auxz00_6266;
BgL_auxz00_6266 = 
(BgL_objectz00_bglt)(BgL_new3365z00_5080); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6266, BFALSE); } 
{ /* ./Cfa/cinfo.scm 86 */
obj_t BgL_objz00_5083;
BgL_objz00_5083 = 
(obj_t)(BgL_new3365z00_5080); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5083); BUNSPEC; } 
return BgL_new3365z00_5080;} } 
}



/* _allocate-setq/Cinfo */
obj_t BGl__allocatezd2setqzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4238)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 86 */
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqz00_bglt BgL_auxz00_6271;
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqz00_bglt BgL_res8190z00_5088;
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqz00_bglt BgL_new3365z00_5084;
BgL_new3365z00_5084 = 
((BgL_setqz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_setqz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 86 */
long BgL_arg4493z00_5085;
BgL_arg4493z00_5085 = 
BGl_classzd2numzd2zz__objectz00(BGl_setqzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 86 */
BgL_objectz00_bglt BgL_objz00_5086;
BgL_objz00_5086 = 
(BgL_objectz00_bglt)(BgL_new3365z00_5084); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5086, BgL_arg4493z00_5085); } } 
{ /* ./Cfa/cinfo.scm 86 */
BgL_objectz00_bglt BgL_auxz00_6276;
BgL_auxz00_6276 = 
(BgL_objectz00_bglt)(BgL_new3365z00_5084); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6276, BFALSE); } 
{ /* ./Cfa/cinfo.scm 86 */
obj_t BgL_objz00_5087;
BgL_objz00_5087 = 
(obj_t)(BgL_new3365z00_5084); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5087); BUNSPEC; } 
BgL_res8190z00_5088 = BgL_new3365z00_5084; } 
BgL_auxz00_6271 = BgL_res8190z00_5088; } 
return 
(obj_t)(BgL_auxz00_6271);} } 
}



/* funcall/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_funcallzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_obj3329z00_184)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 81 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3329z00_184, BGl_funcallzf2Cinfozf2zzcfa_infoz00);} 
}



/* _funcall/Cinfo? */
obj_t BGl__funcallzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_envz00_4432, obj_t BgL_obj3329z00_4433)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 81 */
{ /* ./Cfa/cinfo.scm 81 */
bool_t BgL_auxz00_6283;
BgL_auxz00_6283 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3329z00_4433, BGl_funcallzf2Cinfozf2zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_6283);} } 
}



/* widening-funcall/Cinfo */
BGL_EXPORTED_DEF BgL_funcallzf2cinfozf2_bglt BGl_wideningzd2funcallzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt BgL_approx3295z00_188, BgL_approxz00_bglt BgL_vazd2approx3296zd2_189, bool_t BgL_arityzd2errorzd2noticedzf33297zf3_190, bool_t BgL_typezd2errorzd2noticedzf33298zf3_191)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 81 */
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallzf2cinfozf2_bglt BgL_new3299z00_2879;
BgL_new3299z00_2879 = 
((BgL_funcallzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_funcallzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallzf2cinfozf2_bglt BgL_res6316z00_2889;
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallzf2cinfozf2_bglt BgL_new3316z00_2880;
BgL_new3316z00_2880 = BgL_new3299z00_2879; 
{ /* ./Cfa/cinfo.scm 81 */
BgL_approxz00_bglt BgL_approx3312z00_2885;BgL_approxz00_bglt BgL_vazd2approx3313zd2_2886;bool_t BgL_arityzd2errorzd2noticedzf33314zf3_2887;bool_t BgL_typezd2errorzd2noticedzf33315zf3_2888;
BgL_approx3312z00_2885 = BgL_approx3295z00_188; 
BgL_vazd2approx3313zd2_2886 = BgL_vazd2approx3296zd2_189; 
BgL_arityzd2errorzd2noticedzf33314zf3_2887 = BgL_arityzd2errorzd2noticedzf33297zf3_190; 
BgL_typezd2errorzd2noticedzf33315zf3_2888 = BgL_typezd2errorzd2noticedzf33298zf3_191; 
((((BgL_funcallzf2cinfozf2_bglt)CREF(BgL_new3316z00_2880))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3312z00_2885), BUNSPEC); 
((((BgL_funcallzf2cinfozf2_bglt)CREF(BgL_new3316z00_2880))->BgL_vazd2approxzd2) = ((BgL_approxz00_bglt)BgL_vazd2approx3313zd2_2886), BUNSPEC); 
((((BgL_funcallzf2cinfozf2_bglt)CREF(BgL_new3316z00_2880))->BgL_arityzd2errorzd2noticedzf3zf3) = ((bool_t)BgL_arityzd2errorzd2noticedzf33314zf3_2887), BUNSPEC); 
((((BgL_funcallzf2cinfozf2_bglt)CREF(BgL_new3316z00_2880))->BgL_typezd2errorzd2noticedzf3zf3) = ((bool_t)BgL_typezd2errorzd2noticedzf33315zf3_2888), BUNSPEC); 
BgL_res6316z00_2889 = BgL_new3316z00_2880; } } BgL_res6316z00_2889; } 
return BgL_new3299z00_2879;} } 
}



/* _widening-funcall/Cinfo */
obj_t BGl__wideningzd2funcallzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4434, obj_t BgL_approx3295z00_4435, obj_t BgL_vazd2approx3296zd2_4436, obj_t BgL_arityzd2errorzd2noticedzf33297zf3_4437, obj_t BgL_typezd2errorzd2noticedzf33298zf3_4438)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 81 */
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallzf2cinfozf2_bglt BgL_auxz00_6291;
BgL_auxz00_6291 = 
BGl_wideningzd2funcallzf2Cinfoz20zzcfa_infoz00(
(BgL_approxz00_bglt)(BgL_approx3295z00_4435), 
(BgL_approxz00_bglt)(BgL_vazd2approx3296zd2_4436), 
CBOOL(BgL_arityzd2errorzd2noticedzf33297zf3_4437), 
CBOOL(BgL_typezd2errorzd2noticedzf33298zf3_4438)); 
return 
(obj_t)(BgL_auxz00_6291);} } 
}



/* make-funcall/Cinfo */
BGL_EXPORTED_DEF BgL_funcallzf2cinfozf2_bglt BGl_makezd2funcallzf2Cinfoz20zzcfa_infoz00(obj_t BgL_loc3305z00_192, BgL_typez00_bglt BgL_type3306z00_193, BgL_nodez00_bglt BgL_fun3307z00_194, obj_t BgL_args3308z00_195, obj_t BgL_strength3309z00_196, BgL_approxz00_bglt BgL_approx3301z00_197, BgL_approxz00_bglt BgL_vazd2approx3302zd2_198, bool_t BgL_arityzd2errorzd2noticedzf33303zf3_199, bool_t BgL_typezd2errorzd2noticedzf33304zf3_200)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 81 */
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallz00_bglt BgL_aux3310z00_2890;
BgL_aux3310z00_2890 = 
BGl_makezd2funcallzd2zzast_nodez00(BgL_loc3305z00_192, BgL_type3306z00_193, BgL_fun3307z00_194, BgL_args3308z00_195, BgL_strength3309z00_196); 
{ /* ./Cfa/cinfo.scm 81 */
long BgL_arg4502z00_2891;
BgL_arg4502z00_2891 = 
BGl_classzd2numzd2zz__objectz00(BGl_funcallzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 81 */
BgL_objectz00_bglt BgL_objz00_2894;
BgL_objz00_2894 = 
(BgL_objectz00_bglt)(BgL_aux3310z00_2890); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2894, BgL_arg4502z00_2891); } } 
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallzf2cinfozf2_bglt BgL_arg4506z00_2892;
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallzf2cinfozf2_bglt BgL_res6318z00_2911;
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallzf2cinfozf2_bglt BgL_new3299z00_2900;
BgL_new3299z00_2900 = 
((BgL_funcallzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_funcallzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallzf2cinfozf2_bglt BgL_res6317z00_2910;
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallzf2cinfozf2_bglt BgL_new3316z00_2901;
BgL_new3316z00_2901 = BgL_new3299z00_2900; 
{ /* ./Cfa/cinfo.scm 81 */
BgL_approxz00_bglt BgL_approx3312z00_2906;BgL_approxz00_bglt BgL_vazd2approx3313zd2_2907;bool_t BgL_arityzd2errorzd2noticedzf33314zf3_2908;bool_t BgL_typezd2errorzd2noticedzf33315zf3_2909;
BgL_approx3312z00_2906 = BgL_approx3301z00_197; 
BgL_vazd2approx3313zd2_2907 = BgL_vazd2approx3302zd2_198; 
BgL_arityzd2errorzd2noticedzf33314zf3_2908 = BgL_arityzd2errorzd2noticedzf33303zf3_199; 
BgL_typezd2errorzd2noticedzf33315zf3_2909 = BgL_typezd2errorzd2noticedzf33304zf3_200; 
((((BgL_funcallzf2cinfozf2_bglt)CREF(BgL_new3316z00_2901))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3312z00_2906), BUNSPEC); 
((((BgL_funcallzf2cinfozf2_bglt)CREF(BgL_new3316z00_2901))->BgL_vazd2approxzd2) = ((BgL_approxz00_bglt)BgL_vazd2approx3313zd2_2907), BUNSPEC); 
((((BgL_funcallzf2cinfozf2_bglt)CREF(BgL_new3316z00_2901))->BgL_arityzd2errorzd2noticedzf3zf3) = ((bool_t)BgL_arityzd2errorzd2noticedzf33314zf3_2908), BUNSPEC); 
((((BgL_funcallzf2cinfozf2_bglt)CREF(BgL_new3316z00_2901))->BgL_typezd2errorzd2noticedzf3zf3) = ((bool_t)BgL_typezd2errorzd2noticedzf33315zf3_2909), BUNSPEC); 
BgL_res6317z00_2910 = BgL_new3316z00_2901; } } BgL_res6317z00_2910; } 
BgL_res6318z00_2911 = BgL_new3299z00_2900; } 
BgL_arg4506z00_2892 = BgL_res6318z00_2911; } 
{ /* ./Cfa/cinfo.scm 81 */
obj_t BgL_auxz00_6309;BgL_objectz00_bglt BgL_auxz00_6307;
BgL_auxz00_6309 = 
(obj_t)(BgL_arg4506z00_2892); 
BgL_auxz00_6307 = 
(BgL_objectz00_bglt)(BgL_aux3310z00_2890); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6307, BgL_auxz00_6309); } } 
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallzf2cinfozf2_bglt BgL_new3311z00_2893;
{ 
BgL_funcallzf2cinfozf2_bglt BgL_auxz00_6312;
BgL_auxz00_6312 = 
(BgL_funcallzf2cinfozf2_bglt)(BgL_aux3310z00_2890); 
BgL_new3311z00_2893 = 
((BgL_funcallzf2cinfozf2_bglt)BgL_auxz00_6312); } 
{ /* ./Cfa/cinfo.scm 81 */
obj_t BgL_objz00_2912;
BgL_objz00_2912 = 
(obj_t)(BgL_new3311z00_2893); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2912); BUNSPEC; } 
return BgL_new3311z00_2893;} } } 
}



/* _make-funcall/Cinfo6544 */
obj_t BGl__makezd2funcallzf2Cinfo6544z20zzcfa_infoz00(obj_t BgL_envz00_4439, obj_t BgL_loc3305z00_4440, obj_t BgL_type3306z00_4441, obj_t BgL_fun3307z00_4442, obj_t BgL_args3308z00_4443, obj_t BgL_strength3309z00_4444, obj_t BgL_approx3301z00_4445, obj_t BgL_vazd2approx3302zd2_4446, obj_t BgL_arityzd2errorzd2noticedzf33303zf3_4447, obj_t BgL_typezd2errorzd2noticedzf33304zf3_4448)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 81 */
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallzf2cinfozf2_bglt BgL_auxz00_6317;
BgL_auxz00_6317 = 
BGl_makezd2funcallzf2Cinfoz20zzcfa_infoz00(BgL_loc3305z00_4440, 
(BgL_typez00_bglt)(BgL_type3306z00_4441), 
(BgL_nodez00_bglt)(BgL_fun3307z00_4442), BgL_args3308z00_4443, BgL_strength3309z00_4444, 
(BgL_approxz00_bglt)(BgL_approx3301z00_4445), 
(BgL_approxz00_bglt)(BgL_vazd2approx3302zd2_4446), 
CBOOL(BgL_arityzd2errorzd2noticedzf33303zf3_4447), 
CBOOL(BgL_typezd2errorzd2noticedzf33304zf3_4448)); 
return 
(obj_t)(BgL_auxz00_6317);} } 
}



/* fill-funcall/Cinfo! */
BGL_EXPORTED_DEF BgL_funcallzf2cinfozf2_bglt BGl_fillzd2funcallzf2Cinfoz12z32zzcfa_infoz00(BgL_funcallzf2cinfozf2_bglt BgL_new3316z00_201, BgL_approxz00_bglt BgL_approx3312z00_202, BgL_approxz00_bglt BgL_vazd2approx3313zd2_203, bool_t BgL_arityzd2errorzd2noticedzf33314zf3_204, bool_t BgL_typezd2errorzd2noticedzf33315zf3_205)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 81 */
{ /* ./Cfa/cinfo.scm 81 */
BgL_approxz00_bglt BgL_approx3312z00_5090;BgL_approxz00_bglt BgL_vazd2approx3313zd2_5091;bool_t BgL_arityzd2errorzd2noticedzf33314zf3_5092;bool_t BgL_typezd2errorzd2noticedzf33315zf3_5093;
BgL_approx3312z00_5090 = BgL_approx3312z00_202; 
BgL_vazd2approx3313zd2_5091 = BgL_vazd2approx3313zd2_203; 
BgL_arityzd2errorzd2noticedzf33314zf3_5092 = BgL_arityzd2errorzd2noticedzf33314zf3_204; 
BgL_typezd2errorzd2noticedzf33315zf3_5093 = BgL_typezd2errorzd2noticedzf33315zf3_205; 
((((BgL_funcallzf2cinfozf2_bglt)CREF(BgL_new3316z00_201))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3312z00_5090), BUNSPEC); 
((((BgL_funcallzf2cinfozf2_bglt)CREF(BgL_new3316z00_201))->BgL_vazd2approxzd2) = ((BgL_approxz00_bglt)BgL_vazd2approx3313zd2_5091), BUNSPEC); 
((((BgL_funcallzf2cinfozf2_bglt)CREF(BgL_new3316z00_201))->BgL_arityzd2errorzd2noticedzf3zf3) = ((bool_t)BgL_arityzd2errorzd2noticedzf33314zf3_5092), BUNSPEC); 
((((BgL_funcallzf2cinfozf2_bglt)CREF(BgL_new3316z00_201))->BgL_typezd2errorzd2noticedzf3zf3) = ((bool_t)BgL_typezd2errorzd2noticedzf33315zf3_5093), BUNSPEC); 
return BgL_new3316z00_201;} } 
}



/* _fill-funcall/Cinfo!6546 */
obj_t BGl__fillzd2funcallzf2Cinfoz126546z32zzcfa_infoz00(obj_t BgL_envz00_4449, obj_t BgL_new3316z00_4450, obj_t BgL_approx3312z00_4451, obj_t BgL_vazd2approx3313zd2_4452, obj_t BgL_arityzd2errorzd2noticedzf33314zf3_4453, obj_t BgL_typezd2errorzd2noticedzf33315zf3_4454)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 81 */
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallzf2cinfozf2_bglt BgL_auxz00_6330;
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallzf2cinfozf2_bglt BgL_res8191z00_5103;
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallzf2cinfozf2_bglt BgL_new3316z00_5094;BgL_approxz00_bglt BgL_approx3312z00_5095;BgL_approxz00_bglt BgL_vazd2approx3313zd2_5096;bool_t BgL_arityzd2errorzd2noticedzf33314zf3_5097;bool_t BgL_typezd2errorzd2noticedzf33315zf3_5098;
BgL_new3316z00_5094 = 
(BgL_funcallzf2cinfozf2_bglt)(BgL_new3316z00_4450); 
BgL_approx3312z00_5095 = 
(BgL_approxz00_bglt)(BgL_approx3312z00_4451); 
BgL_vazd2approx3313zd2_5096 = 
(BgL_approxz00_bglt)(BgL_vazd2approx3313zd2_4452); 
BgL_arityzd2errorzd2noticedzf33314zf3_5097 = 
CBOOL(BgL_arityzd2errorzd2noticedzf33314zf3_4453); 
BgL_typezd2errorzd2noticedzf33315zf3_5098 = 
CBOOL(BgL_typezd2errorzd2noticedzf33315zf3_4454); 
{ /* ./Cfa/cinfo.scm 81 */
BgL_approxz00_bglt BgL_approx3312z00_5099;BgL_approxz00_bglt BgL_vazd2approx3313zd2_5100;bool_t BgL_arityzd2errorzd2noticedzf33314zf3_5101;bool_t BgL_typezd2errorzd2noticedzf33315zf3_5102;
BgL_approx3312z00_5099 = BgL_approx3312z00_5095; 
BgL_vazd2approx3313zd2_5100 = BgL_vazd2approx3313zd2_5096; 
BgL_arityzd2errorzd2noticedzf33314zf3_5101 = BgL_arityzd2errorzd2noticedzf33314zf3_5097; 
BgL_typezd2errorzd2noticedzf33315zf3_5102 = BgL_typezd2errorzd2noticedzf33315zf3_5098; 
((((BgL_funcallzf2cinfozf2_bglt)CREF(BgL_new3316z00_5094))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3312z00_5099), BUNSPEC); 
((((BgL_funcallzf2cinfozf2_bglt)CREF(BgL_new3316z00_5094))->BgL_vazd2approxzd2) = ((BgL_approxz00_bglt)BgL_vazd2approx3313zd2_5100), BUNSPEC); 
((((BgL_funcallzf2cinfozf2_bglt)CREF(BgL_new3316z00_5094))->BgL_arityzd2errorzd2noticedzf3zf3) = ((bool_t)BgL_arityzd2errorzd2noticedzf33314zf3_5101), BUNSPEC); 
((((BgL_funcallzf2cinfozf2_bglt)CREF(BgL_new3316z00_5094))->BgL_typezd2errorzd2noticedzf3zf3) = ((bool_t)BgL_typezd2errorzd2noticedzf33315zf3_5102), BUNSPEC); 
BgL_res8191z00_5103 = BgL_new3316z00_5094; } } 
BgL_auxz00_6330 = BgL_res8191z00_5103; } 
return 
(obj_t)(BgL_auxz00_6330);} } 
}



/* allocate-funcall/Cinfo */
BGL_EXPORTED_DEF BgL_funcallz00_bglt BGl_allocatezd2funcallzf2Cinfoz20zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 81 */
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallz00_bglt BgL_new3322z00_5104;
BgL_new3322z00_5104 = 
((BgL_funcallz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_funcallz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 81 */
long BgL_arg4512z00_5105;
BgL_arg4512z00_5105 = 
BGl_classzd2numzd2zz__objectz00(BGl_funcallzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 81 */
BgL_objectz00_bglt BgL_objz00_5106;
BgL_objz00_5106 = 
(BgL_objectz00_bglt)(BgL_new3322z00_5104); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5106, BgL_arg4512z00_5105); } } 
{ /* ./Cfa/cinfo.scm 81 */
BgL_objectz00_bglt BgL_auxz00_6345;
BgL_auxz00_6345 = 
(BgL_objectz00_bglt)(BgL_new3322z00_5104); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6345, BFALSE); } 
{ /* ./Cfa/cinfo.scm 81 */
obj_t BgL_objz00_5107;
BgL_objz00_5107 = 
(obj_t)(BgL_new3322z00_5104); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5107); BUNSPEC; } 
return BgL_new3322z00_5104;} } 
}



/* _allocate-funcall/Cinfo */
obj_t BGl__allocatezd2funcallzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4237)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 81 */
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallz00_bglt BgL_auxz00_6350;
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallz00_bglt BgL_res8192z00_5112;
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallz00_bglt BgL_new3322z00_5108;
BgL_new3322z00_5108 = 
((BgL_funcallz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_funcallz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 81 */
long BgL_arg4512z00_5109;
BgL_arg4512z00_5109 = 
BGl_classzd2numzd2zz__objectz00(BGl_funcallzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 81 */
BgL_objectz00_bglt BgL_objz00_5110;
BgL_objz00_5110 = 
(BgL_objectz00_bglt)(BgL_new3322z00_5108); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5110, BgL_arg4512z00_5109); } } 
{ /* ./Cfa/cinfo.scm 81 */
BgL_objectz00_bglt BgL_auxz00_6355;
BgL_auxz00_6355 = 
(BgL_objectz00_bglt)(BgL_new3322z00_5108); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6355, BFALSE); } 
{ /* ./Cfa/cinfo.scm 81 */
obj_t BgL_objz00_5111;
BgL_objz00_5111 = 
(obj_t)(BgL_new3322z00_5108); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5111); BUNSPEC; } 
BgL_res8192z00_5112 = BgL_new3322z00_5108; } 
BgL_auxz00_6350 = BgL_res8192z00_5112; } 
return 
(obj_t)(BgL_auxz00_6350);} } 
}



/* app-ly/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_appzd2lyzf2Cinfozf3zd3zzcfa_infoz00(obj_t BgL_obj3283z00_214)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 79 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3283z00_214, BGl_appzd2lyzf2Cinfoz20zzcfa_infoz00);} 
}



/* _app-ly/Cinfo? */
obj_t BGl__appzd2lyzf2Cinfozf3zd3zzcfa_infoz00(obj_t BgL_envz00_4455, obj_t BgL_obj3283z00_4456)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 79 */
{ /* ./Cfa/cinfo.scm 79 */
bool_t BgL_auxz00_6362;
BgL_auxz00_6362 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3283z00_4456, BGl_appzd2lyzf2Cinfoz20zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_6362);} } 
}



/* widening-app-ly/Cinfo */
BGL_EXPORTED_DEF BgL_appzd2lyzf2cinfoz20_bglt BGl_wideningzd2appzd2lyzf2Cinfozf2zzcfa_infoz00(BgL_approxz00_bglt BgL_approx3262z00_218)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 79 */
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzf2cinfoz20_bglt BgL_new3263z00_2922;
BgL_new3263z00_2922 = 
((BgL_appzd2lyzf2cinfoz20_bglt)BREF( GC_MALLOC (sizeof(struct BgL_appzd2lyzf2cinfoz20_bgl)))); 
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzf2cinfoz20_bglt BgL_res6319z00_2926;
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzf2cinfoz20_bglt BgL_new3273z00_2923;
BgL_new3273z00_2923 = BgL_new3263z00_2922; 
{ /* ./Cfa/cinfo.scm 79 */
BgL_approxz00_bglt BgL_approx3272z00_2925;
BgL_approx3272z00_2925 = BgL_approx3262z00_218; 
((((BgL_appzd2lyzf2cinfoz20_bglt)CREF(BgL_new3273z00_2923))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3272z00_2925), BUNSPEC); 
BgL_res6319z00_2926 = BgL_new3273z00_2923; } } BgL_res6319z00_2926; } 
return BgL_new3263z00_2922;} } 
}



/* _widening-app-ly/Cinfo */
obj_t BGl__wideningzd2appzd2lyzf2Cinfozf2zzcfa_infoz00(obj_t BgL_envz00_4457, obj_t BgL_approx3262z00_4458)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 79 */
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzf2cinfoz20_bglt BgL_auxz00_6367;
BgL_auxz00_6367 = 
BGl_wideningzd2appzd2lyzf2Cinfozf2zzcfa_infoz00(
(BgL_approxz00_bglt)(BgL_approx3262z00_4458)); 
return 
(obj_t)(BgL_auxz00_6367);} } 
}



/* make-app-ly/Cinfo */
BGL_EXPORTED_DEF BgL_appzd2lyzf2cinfoz20_bglt BGl_makezd2appzd2lyzf2Cinfozf2zzcfa_infoz00(obj_t BgL_loc3266z00_219, BgL_typez00_bglt BgL_type3267z00_220, BgL_nodez00_bglt BgL_fun3268z00_221, BgL_nodez00_bglt BgL_arg3269z00_222, BgL_approxz00_bglt BgL_approx3265z00_223)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 79 */
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzd2_bglt BgL_aux3270z00_2927;
BgL_aux3270z00_2927 = 
BGl_makezd2appzd2lyz00zzast_nodez00(BgL_loc3266z00_219, BgL_type3267z00_220, BgL_fun3268z00_221, BgL_arg3269z00_222); 
{ /* ./Cfa/cinfo.scm 79 */
long BgL_arg4526z00_2928;
BgL_arg4526z00_2928 = 
BGl_classzd2numzd2zz__objectz00(BGl_appzd2lyzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 79 */
BgL_objectz00_bglt BgL_objz00_2931;
BgL_objz00_2931 = 
(BgL_objectz00_bglt)(BgL_aux3270z00_2927); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2931, BgL_arg4526z00_2928); } } 
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzf2cinfoz20_bglt BgL_arg4530z00_2929;
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzf2cinfoz20_bglt BgL_res6321z00_2939;
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzf2cinfoz20_bglt BgL_new3263z00_2934;
BgL_new3263z00_2934 = 
((BgL_appzd2lyzf2cinfoz20_bglt)BREF( GC_MALLOC (sizeof(struct BgL_appzd2lyzf2cinfoz20_bgl)))); 
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzf2cinfoz20_bglt BgL_res6320z00_2938;
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzf2cinfoz20_bglt BgL_new3273z00_2935;
BgL_new3273z00_2935 = BgL_new3263z00_2934; 
{ /* ./Cfa/cinfo.scm 79 */
BgL_approxz00_bglt BgL_approx3272z00_2937;
BgL_approx3272z00_2937 = BgL_approx3265z00_223; 
((((BgL_appzd2lyzf2cinfoz20_bglt)CREF(BgL_new3273z00_2935))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3272z00_2937), BUNSPEC); 
BgL_res6320z00_2938 = BgL_new3273z00_2935; } } BgL_res6320z00_2938; } 
BgL_res6321z00_2939 = BgL_new3263z00_2934; } 
BgL_arg4530z00_2929 = BgL_res6321z00_2939; } 
{ /* ./Cfa/cinfo.scm 79 */
obj_t BgL_auxz00_6379;BgL_objectz00_bglt BgL_auxz00_6377;
BgL_auxz00_6379 = 
(obj_t)(BgL_arg4530z00_2929); 
BgL_auxz00_6377 = 
(BgL_objectz00_bglt)(BgL_aux3270z00_2927); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6377, BgL_auxz00_6379); } } 
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzf2cinfoz20_bglt BgL_new3271z00_2930;
{ 
BgL_appzd2lyzf2cinfoz20_bglt BgL_auxz00_6382;
BgL_auxz00_6382 = 
(BgL_appzd2lyzf2cinfoz20_bglt)(BgL_aux3270z00_2927); 
BgL_new3271z00_2930 = 
((BgL_appzd2lyzf2cinfoz20_bglt)BgL_auxz00_6382); } 
{ /* ./Cfa/cinfo.scm 79 */
obj_t BgL_objz00_2940;
BgL_objz00_2940 = 
(obj_t)(BgL_new3271z00_2930); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2940); BUNSPEC; } 
return BgL_new3271z00_2930;} } } 
}



/* _make-app-ly/Cinfo6550 */
obj_t BGl__makezd2appzd2lyzf2Cinfo6550zf2zzcfa_infoz00(obj_t BgL_envz00_4459, obj_t BgL_loc3266z00_4460, obj_t BgL_type3267z00_4461, obj_t BgL_fun3268z00_4462, obj_t BgL_arg3269z00_4463, obj_t BgL_approx3265z00_4464)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 79 */
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzf2cinfoz20_bglt BgL_auxz00_6387;
BgL_auxz00_6387 = 
BGl_makezd2appzd2lyzf2Cinfozf2zzcfa_infoz00(BgL_loc3266z00_4460, 
(BgL_typez00_bglt)(BgL_type3267z00_4461), 
(BgL_nodez00_bglt)(BgL_fun3268z00_4462), 
(BgL_nodez00_bglt)(BgL_arg3269z00_4463), 
(BgL_approxz00_bglt)(BgL_approx3265z00_4464)); 
return 
(obj_t)(BgL_auxz00_6387);} } 
}



/* fill-app-ly/Cinfo! */
BGL_EXPORTED_DEF BgL_appzd2lyzf2cinfoz20_bglt BGl_fillzd2appzd2lyzf2Cinfoz12ze0zzcfa_infoz00(BgL_appzd2lyzf2cinfoz20_bglt BgL_new3273z00_224, BgL_approxz00_bglt BgL_approx3272z00_225)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 79 */
{ /* ./Cfa/cinfo.scm 79 */
BgL_approxz00_bglt BgL_approx3272z00_5114;
BgL_approx3272z00_5114 = BgL_approx3272z00_225; 
((((BgL_appzd2lyzf2cinfoz20_bglt)CREF(BgL_new3273z00_224))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3272z00_5114), BUNSPEC); 
return BgL_new3273z00_224;} } 
}



/* _fill-app-ly/Cinfo!6552 */
obj_t BGl__fillzd2appzd2lyzf2Cinfoz126552ze0zzcfa_infoz00(obj_t BgL_envz00_4465, obj_t BgL_new3273z00_4466, obj_t BgL_approx3272z00_4467)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 79 */
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzf2cinfoz20_bglt BgL_auxz00_6395;
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzf2cinfoz20_bglt BgL_res8193z00_5118;
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzf2cinfoz20_bglt BgL_new3273z00_5115;BgL_approxz00_bglt BgL_approx3272z00_5116;
BgL_new3273z00_5115 = 
(BgL_appzd2lyzf2cinfoz20_bglt)(BgL_new3273z00_4466); 
BgL_approx3272z00_5116 = 
(BgL_approxz00_bglt)(BgL_approx3272z00_4467); 
{ /* ./Cfa/cinfo.scm 79 */
BgL_approxz00_bglt BgL_approx3272z00_5117;
BgL_approx3272z00_5117 = BgL_approx3272z00_5116; 
((((BgL_appzd2lyzf2cinfoz20_bglt)CREF(BgL_new3273z00_5115))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3272z00_5117), BUNSPEC); 
BgL_res8193z00_5118 = BgL_new3273z00_5115; } } 
BgL_auxz00_6395 = BgL_res8193z00_5118; } 
return 
(obj_t)(BgL_auxz00_6395);} } 
}



/* allocate-app-ly/Cinfo */
BGL_EXPORTED_DEF BgL_appzd2lyzd2_bglt BGl_allocatezd2appzd2lyzf2Cinfozf2zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 79 */
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzd2_bglt BgL_new3276z00_5119;
BgL_new3276z00_5119 = 
((BgL_appzd2lyzd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appzd2lyzd2_bgl) ))); 
{ /* ./Cfa/cinfo.scm 79 */
long BgL_arg4536z00_5120;
BgL_arg4536z00_5120 = 
BGl_classzd2numzd2zz__objectz00(BGl_appzd2lyzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 79 */
BgL_objectz00_bglt BgL_objz00_5121;
BgL_objz00_5121 = 
(BgL_objectz00_bglt)(BgL_new3276z00_5119); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5121, BgL_arg4536z00_5120); } } 
{ /* ./Cfa/cinfo.scm 79 */
BgL_objectz00_bglt BgL_auxz00_6404;
BgL_auxz00_6404 = 
(BgL_objectz00_bglt)(BgL_new3276z00_5119); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6404, BFALSE); } 
{ /* ./Cfa/cinfo.scm 79 */
obj_t BgL_objz00_5122;
BgL_objz00_5122 = 
(obj_t)(BgL_new3276z00_5119); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5122); BUNSPEC; } 
return BgL_new3276z00_5119;} } 
}



/* _allocate-app-ly/Cinfo */
obj_t BGl__allocatezd2appzd2lyzf2Cinfozf2zzcfa_infoz00(obj_t BgL_envz00_4236)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 79 */
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzd2_bglt BgL_auxz00_6409;
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzd2_bglt BgL_res8194z00_5127;
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzd2_bglt BgL_new3276z00_5123;
BgL_new3276z00_5123 = 
((BgL_appzd2lyzd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appzd2lyzd2_bgl) ))); 
{ /* ./Cfa/cinfo.scm 79 */
long BgL_arg4536z00_5124;
BgL_arg4536z00_5124 = 
BGl_classzd2numzd2zz__objectz00(BGl_appzd2lyzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 79 */
BgL_objectz00_bglt BgL_objz00_5125;
BgL_objz00_5125 = 
(BgL_objectz00_bglt)(BgL_new3276z00_5123); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5125, BgL_arg4536z00_5124); } } 
{ /* ./Cfa/cinfo.scm 79 */
BgL_objectz00_bglt BgL_auxz00_6414;
BgL_auxz00_6414 = 
(BgL_objectz00_bglt)(BgL_new3276z00_5123); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6414, BFALSE); } 
{ /* ./Cfa/cinfo.scm 79 */
obj_t BgL_objz00_5126;
BgL_objz00_5126 = 
(obj_t)(BgL_new3276z00_5123); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5126); BUNSPEC; } 
BgL_res8194z00_5127 = BgL_new3276z00_5123; } 
BgL_auxz00_6409 = BgL_res8194z00_5127; } 
return 
(obj_t)(BgL_auxz00_6409);} } 
}



/* kwote/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_kwotezf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_obj3255z00_227)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 77 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3255z00_227, BGl_kwotezf2Cinfozf2zzcfa_infoz00);} 
}



/* _kwote/Cinfo? */
obj_t BGl__kwotezf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_envz00_4468, obj_t BgL_obj3255z00_4469)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 77 */
{ /* ./Cfa/cinfo.scm 77 */
bool_t BgL_auxz00_6421;
BgL_auxz00_6421 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3255z00_4469, BGl_kwotezf2Cinfozf2zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_6421);} } 
}



/* widening-kwote/Cinfo */
BGL_EXPORTED_DEF BgL_kwotezf2cinfozf2_bglt BGl_wideningzd2kwotezf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt BgL_approx3235z00_231)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 77 */
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotezf2cinfozf2_bglt BgL_new3236z00_2947;
BgL_new3236z00_2947 = 
((BgL_kwotezf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_kwotezf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotezf2cinfozf2_bglt BgL_res6322z00_2951;
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotezf2cinfozf2_bglt BgL_new3245z00_2948;
BgL_new3245z00_2948 = BgL_new3236z00_2947; 
{ /* ./Cfa/cinfo.scm 77 */
BgL_approxz00_bglt BgL_approx3244z00_2950;
BgL_approx3244z00_2950 = BgL_approx3235z00_231; 
((((BgL_kwotezf2cinfozf2_bglt)CREF(BgL_new3245z00_2948))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3244z00_2950), BUNSPEC); 
BgL_res6322z00_2951 = BgL_new3245z00_2948; } } BgL_res6322z00_2951; } 
return BgL_new3236z00_2947;} } 
}



/* _widening-kwote/Cinfo */
obj_t BGl__wideningzd2kwotezf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4470, obj_t BgL_approx3235z00_4471)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 77 */
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotezf2cinfozf2_bglt BgL_auxz00_6426;
BgL_auxz00_6426 = 
BGl_wideningzd2kwotezf2Cinfoz20zzcfa_infoz00(
(BgL_approxz00_bglt)(BgL_approx3235z00_4471)); 
return 
(obj_t)(BgL_auxz00_6426);} } 
}



/* make-kwote/Cinfo */
BGL_EXPORTED_DEF BgL_kwotezf2cinfozf2_bglt BGl_makezd2kwotezf2Cinfoz20zzcfa_infoz00(obj_t BgL_loc3239z00_232, BgL_typez00_bglt BgL_type3240z00_233, obj_t BgL_value3241z00_234, BgL_approxz00_bglt BgL_approx3238z00_235)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 77 */
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotez00_bglt BgL_aux3242z00_2952;
BgL_aux3242z00_2952 = 
BGl_makezd2kwotezd2zzast_nodez00(BgL_loc3239z00_232, BgL_type3240z00_233, BgL_value3241z00_234); 
{ /* ./Cfa/cinfo.scm 77 */
long BgL_arg4545z00_2953;
BgL_arg4545z00_2953 = 
BGl_classzd2numzd2zz__objectz00(BGl_kwotezf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 77 */
BgL_objectz00_bglt BgL_objz00_2956;
BgL_objz00_2956 = 
(BgL_objectz00_bglt)(BgL_aux3242z00_2952); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2956, BgL_arg4545z00_2953); } } 
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotezf2cinfozf2_bglt BgL_arg4549z00_2954;
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotezf2cinfozf2_bglt BgL_res6324z00_2964;
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotezf2cinfozf2_bglt BgL_new3236z00_2959;
BgL_new3236z00_2959 = 
((BgL_kwotezf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_kwotezf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotezf2cinfozf2_bglt BgL_res6323z00_2963;
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotezf2cinfozf2_bglt BgL_new3245z00_2960;
BgL_new3245z00_2960 = BgL_new3236z00_2959; 
{ /* ./Cfa/cinfo.scm 77 */
BgL_approxz00_bglt BgL_approx3244z00_2962;
BgL_approx3244z00_2962 = BgL_approx3238z00_235; 
((((BgL_kwotezf2cinfozf2_bglt)CREF(BgL_new3245z00_2960))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3244z00_2962), BUNSPEC); 
BgL_res6323z00_2963 = BgL_new3245z00_2960; } } BgL_res6323z00_2963; } 
BgL_res6324z00_2964 = BgL_new3236z00_2959; } 
BgL_arg4549z00_2954 = BgL_res6324z00_2964; } 
{ /* ./Cfa/cinfo.scm 77 */
obj_t BgL_auxz00_6438;BgL_objectz00_bglt BgL_auxz00_6436;
BgL_auxz00_6438 = 
(obj_t)(BgL_arg4549z00_2954); 
BgL_auxz00_6436 = 
(BgL_objectz00_bglt)(BgL_aux3242z00_2952); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6436, BgL_auxz00_6438); } } 
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotezf2cinfozf2_bglt BgL_new3243z00_2955;
{ 
BgL_kwotezf2cinfozf2_bglt BgL_auxz00_6441;
BgL_auxz00_6441 = 
(BgL_kwotezf2cinfozf2_bglt)(BgL_aux3242z00_2952); 
BgL_new3243z00_2955 = 
((BgL_kwotezf2cinfozf2_bglt)BgL_auxz00_6441); } 
{ /* ./Cfa/cinfo.scm 77 */
obj_t BgL_objz00_2965;
BgL_objz00_2965 = 
(obj_t)(BgL_new3243z00_2955); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2965); BUNSPEC; } 
return BgL_new3243z00_2955;} } } 
}



/* _make-kwote/Cinfo6556 */
obj_t BGl__makezd2kwotezf2Cinfo6556z20zzcfa_infoz00(obj_t BgL_envz00_4472, obj_t BgL_loc3239z00_4473, obj_t BgL_type3240z00_4474, obj_t BgL_value3241z00_4475, obj_t BgL_approx3238z00_4476)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 77 */
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotezf2cinfozf2_bglt BgL_auxz00_6446;
BgL_auxz00_6446 = 
BGl_makezd2kwotezf2Cinfoz20zzcfa_infoz00(BgL_loc3239z00_4473, 
(BgL_typez00_bglt)(BgL_type3240z00_4474), BgL_value3241z00_4475, 
(BgL_approxz00_bglt)(BgL_approx3238z00_4476)); 
return 
(obj_t)(BgL_auxz00_6446);} } 
}



/* fill-kwote/Cinfo! */
BGL_EXPORTED_DEF BgL_kwotezf2cinfozf2_bglt BGl_fillzd2kwotezf2Cinfoz12z32zzcfa_infoz00(BgL_kwotezf2cinfozf2_bglt BgL_new3245z00_236, BgL_approxz00_bglt BgL_approx3244z00_237)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 77 */
{ /* ./Cfa/cinfo.scm 77 */
BgL_approxz00_bglt BgL_approx3244z00_5129;
BgL_approx3244z00_5129 = BgL_approx3244z00_237; 
((((BgL_kwotezf2cinfozf2_bglt)CREF(BgL_new3245z00_236))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3244z00_5129), BUNSPEC); 
return BgL_new3245z00_236;} } 
}



/* _fill-kwote/Cinfo!6558 */
obj_t BGl__fillzd2kwotezf2Cinfoz126558z32zzcfa_infoz00(obj_t BgL_envz00_4477, obj_t BgL_new3245z00_4478, obj_t BgL_approx3244z00_4479)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 77 */
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotezf2cinfozf2_bglt BgL_auxz00_6452;
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotezf2cinfozf2_bglt BgL_res8195z00_5133;
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotezf2cinfozf2_bglt BgL_new3245z00_5130;BgL_approxz00_bglt BgL_approx3244z00_5131;
BgL_new3245z00_5130 = 
(BgL_kwotezf2cinfozf2_bglt)(BgL_new3245z00_4478); 
BgL_approx3244z00_5131 = 
(BgL_approxz00_bglt)(BgL_approx3244z00_4479); 
{ /* ./Cfa/cinfo.scm 77 */
BgL_approxz00_bglt BgL_approx3244z00_5132;
BgL_approx3244z00_5132 = BgL_approx3244z00_5131; 
((((BgL_kwotezf2cinfozf2_bglt)CREF(BgL_new3245z00_5130))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3244z00_5132), BUNSPEC); 
BgL_res8195z00_5133 = BgL_new3245z00_5130; } } 
BgL_auxz00_6452 = BgL_res8195z00_5133; } 
return 
(obj_t)(BgL_auxz00_6452);} } 
}



/* allocate-kwote/Cinfo */
BGL_EXPORTED_DEF BgL_kwotez00_bglt BGl_allocatezd2kwotezf2Cinfoz20zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 77 */
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotez00_bglt BgL_new3248z00_5134;
BgL_new3248z00_5134 = 
((BgL_kwotez00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_kwotez00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 77 */
long BgL_arg4555z00_5135;
BgL_arg4555z00_5135 = 
BGl_classzd2numzd2zz__objectz00(BGl_kwotezf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 77 */
BgL_objectz00_bglt BgL_objz00_5136;
BgL_objz00_5136 = 
(BgL_objectz00_bglt)(BgL_new3248z00_5134); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5136, BgL_arg4555z00_5135); } } 
{ /* ./Cfa/cinfo.scm 77 */
BgL_objectz00_bglt BgL_auxz00_6461;
BgL_auxz00_6461 = 
(BgL_objectz00_bglt)(BgL_new3248z00_5134); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6461, BFALSE); } 
{ /* ./Cfa/cinfo.scm 77 */
obj_t BgL_objz00_5137;
BgL_objz00_5137 = 
(obj_t)(BgL_new3248z00_5134); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5137); BUNSPEC; } 
return BgL_new3248z00_5134;} } 
}



/* _allocate-kwote/Cinfo */
obj_t BGl__allocatezd2kwotezf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4235)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 77 */
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotez00_bglt BgL_auxz00_6466;
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotez00_bglt BgL_res8196z00_5142;
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotez00_bglt BgL_new3248z00_5138;
BgL_new3248z00_5138 = 
((BgL_kwotez00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_kwotez00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 77 */
long BgL_arg4555z00_5139;
BgL_arg4555z00_5139 = 
BGl_classzd2numzd2zz__objectz00(BGl_kwotezf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 77 */
BgL_objectz00_bglt BgL_objz00_5140;
BgL_objz00_5140 = 
(BgL_objectz00_bglt)(BgL_new3248z00_5138); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5140, BgL_arg4555z00_5139); } } 
{ /* ./Cfa/cinfo.scm 77 */
BgL_objectz00_bglt BgL_auxz00_6471;
BgL_auxz00_6471 = 
(BgL_objectz00_bglt)(BgL_new3248z00_5138); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6471, BFALSE); } 
{ /* ./Cfa/cinfo.scm 77 */
obj_t BgL_objz00_5141;
BgL_objz00_5141 = 
(obj_t)(BgL_new3248z00_5138); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5141); BUNSPEC; } 
BgL_res8196z00_5142 = BgL_new3248z00_5138; } 
BgL_auxz00_6466 = BgL_res8196z00_5142; } 
return 
(obj_t)(BgL_auxz00_6466);} } 
}



/* kwote/node? */
BGL_EXPORTED_DEF bool_t BGl_kwotezf2nodezf3z01zzcfa_infoz00(obj_t BgL_obj3228z00_239)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 75 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3228z00_239, BGl_kwotezf2nodezf2zzcfa_infoz00);} 
}



/* _kwote/node? */
obj_t BGl__kwotezf2nodezf3z01zzcfa_infoz00(obj_t BgL_envz00_4480, obj_t BgL_obj3228z00_4481)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 75 */
{ /* ./Cfa/cinfo.scm 75 */
bool_t BgL_auxz00_6478;
BgL_auxz00_6478 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3228z00_4481, BGl_kwotezf2nodezf2zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_6478);} } 
}



/* widening-kwote/node */
BGL_EXPORTED_DEF BgL_kwotezf2nodezf2_bglt BGl_wideningzd2kwotezf2nodez20zzcfa_infoz00(BgL_nodez00_bglt BgL_node3208z00_243)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 75 */
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotezf2nodezf2_bglt BgL_new3209z00_2972;
BgL_new3209z00_2972 = 
((BgL_kwotezf2nodezf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_kwotezf2nodezf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotezf2nodezf2_bglt BgL_res6325z00_2976;
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotezf2nodezf2_bglt BgL_new3218z00_2973;
BgL_new3218z00_2973 = BgL_new3209z00_2972; 
{ /* ./Cfa/cinfo.scm 75 */
BgL_nodez00_bglt BgL_node3217z00_2975;
BgL_node3217z00_2975 = BgL_node3208z00_243; 
((((BgL_kwotezf2nodezf2_bglt)CREF(BgL_new3218z00_2973))->BgL_nodez00) = ((BgL_nodez00_bglt)BgL_node3217z00_2975), BUNSPEC); 
BgL_res6325z00_2976 = BgL_new3218z00_2973; } } BgL_res6325z00_2976; } 
return BgL_new3209z00_2972;} } 
}



/* _widening-kwote/node */
obj_t BGl__wideningzd2kwotezf2nodez20zzcfa_infoz00(obj_t BgL_envz00_4482, obj_t BgL_node3208z00_4483)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 75 */
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotezf2nodezf2_bglt BgL_auxz00_6483;
BgL_auxz00_6483 = 
BGl_wideningzd2kwotezf2nodez20zzcfa_infoz00(
(BgL_nodez00_bglt)(BgL_node3208z00_4483)); 
return 
(obj_t)(BgL_auxz00_6483);} } 
}



/* make-kwote/node */
BGL_EXPORTED_DEF BgL_kwotezf2nodezf2_bglt BGl_makezd2kwotezf2nodez20zzcfa_infoz00(obj_t BgL_loc3212z00_244, BgL_typez00_bglt BgL_type3213z00_245, obj_t BgL_value3214z00_246, BgL_nodez00_bglt BgL_node3211z00_247)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 75 */
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotez00_bglt BgL_aux3215z00_2977;
BgL_aux3215z00_2977 = 
BGl_makezd2kwotezd2zzast_nodez00(BgL_loc3212z00_244, BgL_type3213z00_245, BgL_value3214z00_246); 
{ /* ./Cfa/cinfo.scm 75 */
long BgL_arg4564z00_2978;
BgL_arg4564z00_2978 = 
BGl_classzd2numzd2zz__objectz00(BGl_kwotezf2nodezf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 75 */
BgL_objectz00_bglt BgL_objz00_2981;
BgL_objz00_2981 = 
(BgL_objectz00_bglt)(BgL_aux3215z00_2977); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2981, BgL_arg4564z00_2978); } } 
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotezf2nodezf2_bglt BgL_arg4568z00_2979;
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotezf2nodezf2_bglt BgL_res6327z00_2989;
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotezf2nodezf2_bglt BgL_new3209z00_2984;
BgL_new3209z00_2984 = 
((BgL_kwotezf2nodezf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_kwotezf2nodezf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotezf2nodezf2_bglt BgL_res6326z00_2988;
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotezf2nodezf2_bglt BgL_new3218z00_2985;
BgL_new3218z00_2985 = BgL_new3209z00_2984; 
{ /* ./Cfa/cinfo.scm 75 */
BgL_nodez00_bglt BgL_node3217z00_2987;
BgL_node3217z00_2987 = BgL_node3211z00_247; 
((((BgL_kwotezf2nodezf2_bglt)CREF(BgL_new3218z00_2985))->BgL_nodez00) = ((BgL_nodez00_bglt)BgL_node3217z00_2987), BUNSPEC); 
BgL_res6326z00_2988 = BgL_new3218z00_2985; } } BgL_res6326z00_2988; } 
BgL_res6327z00_2989 = BgL_new3209z00_2984; } 
BgL_arg4568z00_2979 = BgL_res6327z00_2989; } 
{ /* ./Cfa/cinfo.scm 75 */
obj_t BgL_auxz00_6495;BgL_objectz00_bglt BgL_auxz00_6493;
BgL_auxz00_6495 = 
(obj_t)(BgL_arg4568z00_2979); 
BgL_auxz00_6493 = 
(BgL_objectz00_bglt)(BgL_aux3215z00_2977); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6493, BgL_auxz00_6495); } } 
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotezf2nodezf2_bglt BgL_new3216z00_2980;
{ 
BgL_kwotezf2nodezf2_bglt BgL_auxz00_6498;
BgL_auxz00_6498 = 
(BgL_kwotezf2nodezf2_bglt)(BgL_aux3215z00_2977); 
BgL_new3216z00_2980 = 
((BgL_kwotezf2nodezf2_bglt)BgL_auxz00_6498); } 
{ /* ./Cfa/cinfo.scm 75 */
obj_t BgL_objz00_2990;
BgL_objz00_2990 = 
(obj_t)(BgL_new3216z00_2980); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2990); BUNSPEC; } 
return BgL_new3216z00_2980;} } } 
}



/* _make-kwote/node6562 */
obj_t BGl__makezd2kwotezf2node6562z20zzcfa_infoz00(obj_t BgL_envz00_4484, obj_t BgL_loc3212z00_4485, obj_t BgL_type3213z00_4486, obj_t BgL_value3214z00_4487, obj_t BgL_node3211z00_4488)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 75 */
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotezf2nodezf2_bglt BgL_auxz00_6503;
BgL_auxz00_6503 = 
BGl_makezd2kwotezf2nodez20zzcfa_infoz00(BgL_loc3212z00_4485, 
(BgL_typez00_bglt)(BgL_type3213z00_4486), BgL_value3214z00_4487, 
(BgL_nodez00_bglt)(BgL_node3211z00_4488)); 
return 
(obj_t)(BgL_auxz00_6503);} } 
}



/* fill-kwote/node! */
BGL_EXPORTED_DEF BgL_kwotezf2nodezf2_bglt BGl_fillzd2kwotezf2nodez12z32zzcfa_infoz00(BgL_kwotezf2nodezf2_bglt BgL_new3218z00_248, BgL_nodez00_bglt BgL_node3217z00_249)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 75 */
{ /* ./Cfa/cinfo.scm 75 */
BgL_nodez00_bglt BgL_node3217z00_5144;
BgL_node3217z00_5144 = BgL_node3217z00_249; 
((((BgL_kwotezf2nodezf2_bglt)CREF(BgL_new3218z00_248))->BgL_nodez00) = ((BgL_nodez00_bglt)BgL_node3217z00_5144), BUNSPEC); 
return BgL_new3218z00_248;} } 
}



/* _fill-kwote/node!6564 */
obj_t BGl__fillzd2kwotezf2nodez126564z32zzcfa_infoz00(obj_t BgL_envz00_4489, obj_t BgL_new3218z00_4490, obj_t BgL_node3217z00_4491)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 75 */
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotezf2nodezf2_bglt BgL_auxz00_6509;
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotezf2nodezf2_bglt BgL_res8197z00_5148;
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotezf2nodezf2_bglt BgL_new3218z00_5145;BgL_nodez00_bglt BgL_node3217z00_5146;
BgL_new3218z00_5145 = 
(BgL_kwotezf2nodezf2_bglt)(BgL_new3218z00_4490); 
BgL_node3217z00_5146 = 
(BgL_nodez00_bglt)(BgL_node3217z00_4491); 
{ /* ./Cfa/cinfo.scm 75 */
BgL_nodez00_bglt BgL_node3217z00_5147;
BgL_node3217z00_5147 = BgL_node3217z00_5146; 
((((BgL_kwotezf2nodezf2_bglt)CREF(BgL_new3218z00_5145))->BgL_nodez00) = ((BgL_nodez00_bglt)BgL_node3217z00_5147), BUNSPEC); 
BgL_res8197z00_5148 = BgL_new3218z00_5145; } } 
BgL_auxz00_6509 = BgL_res8197z00_5148; } 
return 
(obj_t)(BgL_auxz00_6509);} } 
}



/* allocate-kwote/node */
BGL_EXPORTED_DEF BgL_kwotez00_bglt BGl_allocatezd2kwotezf2nodez20zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 75 */
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotez00_bglt BgL_new3221z00_5149;
BgL_new3221z00_5149 = 
((BgL_kwotez00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_kwotez00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 75 */
long BgL_arg4574z00_5150;
BgL_arg4574z00_5150 = 
BGl_classzd2numzd2zz__objectz00(BGl_kwotezf2nodezf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 75 */
BgL_objectz00_bglt BgL_objz00_5151;
BgL_objz00_5151 = 
(BgL_objectz00_bglt)(BgL_new3221z00_5149); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5151, BgL_arg4574z00_5150); } } 
{ /* ./Cfa/cinfo.scm 75 */
BgL_objectz00_bglt BgL_auxz00_6518;
BgL_auxz00_6518 = 
(BgL_objectz00_bglt)(BgL_new3221z00_5149); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6518, BFALSE); } 
{ /* ./Cfa/cinfo.scm 75 */
obj_t BgL_objz00_5152;
BgL_objz00_5152 = 
(obj_t)(BgL_new3221z00_5149); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5152); BUNSPEC; } 
return BgL_new3221z00_5149;} } 
}



/* _allocate-kwote/node */
obj_t BGl__allocatezd2kwotezf2nodez20zzcfa_infoz00(obj_t BgL_envz00_4234)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 75 */
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotez00_bglt BgL_auxz00_6523;
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotez00_bglt BgL_res8198z00_5157;
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotez00_bglt BgL_new3221z00_5153;
BgL_new3221z00_5153 = 
((BgL_kwotez00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_kwotez00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 75 */
long BgL_arg4574z00_5154;
BgL_arg4574z00_5154 = 
BGl_classzd2numzd2zz__objectz00(BGl_kwotezf2nodezf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 75 */
BgL_objectz00_bglt BgL_objz00_5155;
BgL_objz00_5155 = 
(BgL_objectz00_bglt)(BgL_new3221z00_5153); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5155, BgL_arg4574z00_5154); } } 
{ /* ./Cfa/cinfo.scm 75 */
BgL_objectz00_bglt BgL_auxz00_6528;
BgL_auxz00_6528 = 
(BgL_objectz00_bglt)(BgL_new3221z00_5153); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6528, BFALSE); } 
{ /* ./Cfa/cinfo.scm 75 */
obj_t BgL_objz00_5156;
BgL_objz00_5156 = 
(obj_t)(BgL_new3221z00_5153); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5156); BUNSPEC; } 
BgL_res8198z00_5157 = BgL_new3221z00_5153; } 
BgL_auxz00_6523 = BgL_res8198z00_5157; } 
return 
(obj_t)(BgL_auxz00_6523);} } 
}



/* atom/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_atomzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_obj3198z00_251)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 73 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3198z00_251, BGl_atomzf2Cinfozf2zzcfa_infoz00);} 
}



/* _atom/Cinfo? */
obj_t BGl__atomzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_envz00_4492, obj_t BgL_obj3198z00_4493)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 73 */
{ /* ./Cfa/cinfo.scm 73 */
bool_t BgL_auxz00_6535;
BgL_auxz00_6535 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3198z00_4493, BGl_atomzf2Cinfozf2zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_6535);} } 
}



/* widening-atom/Cinfo */
BGL_EXPORTED_DEF BgL_atomzf2cinfozf2_bglt BGl_wideningzd2atomzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt BgL_approx3178z00_255)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 73 */
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomzf2cinfozf2_bglt BgL_new3179z00_2997;
BgL_new3179z00_2997 = 
((BgL_atomzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_atomzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomzf2cinfozf2_bglt BgL_res6328z00_3001;
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomzf2cinfozf2_bglt BgL_new3188z00_2998;
BgL_new3188z00_2998 = BgL_new3179z00_2997; 
{ /* ./Cfa/cinfo.scm 73 */
BgL_approxz00_bglt BgL_approx3187z00_3000;
BgL_approx3187z00_3000 = BgL_approx3178z00_255; 
((((BgL_atomzf2cinfozf2_bglt)CREF(BgL_new3188z00_2998))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3187z00_3000), BUNSPEC); 
BgL_res6328z00_3001 = BgL_new3188z00_2998; } } BgL_res6328z00_3001; } 
return BgL_new3179z00_2997;} } 
}



/* _widening-atom/Cinfo */
obj_t BGl__wideningzd2atomzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4494, obj_t BgL_approx3178z00_4495)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 73 */
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomzf2cinfozf2_bglt BgL_auxz00_6540;
BgL_auxz00_6540 = 
BGl_wideningzd2atomzf2Cinfoz20zzcfa_infoz00(
(BgL_approxz00_bglt)(BgL_approx3178z00_4495)); 
return 
(obj_t)(BgL_auxz00_6540);} } 
}



/* make-atom/Cinfo */
BGL_EXPORTED_DEF BgL_atomzf2cinfozf2_bglt BGl_makezd2atomzf2Cinfoz20zzcfa_infoz00(obj_t BgL_loc3182z00_256, BgL_typez00_bglt BgL_type3183z00_257, obj_t BgL_value3184z00_258, BgL_approxz00_bglt BgL_approx3181z00_259)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 73 */
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomz00_bglt BgL_aux3185z00_3002;
BgL_aux3185z00_3002 = 
BGl_makezd2atomzd2zzast_nodez00(BgL_loc3182z00_256, BgL_type3183z00_257, BgL_value3184z00_258); 
{ /* ./Cfa/cinfo.scm 73 */
long BgL_arg4583z00_3003;
BgL_arg4583z00_3003 = 
BGl_classzd2numzd2zz__objectz00(BGl_atomzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 73 */
BgL_objectz00_bglt BgL_objz00_3006;
BgL_objz00_3006 = 
(BgL_objectz00_bglt)(BgL_aux3185z00_3002); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3006, BgL_arg4583z00_3003); } } 
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomzf2cinfozf2_bglt BgL_arg4587z00_3004;
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomzf2cinfozf2_bglt BgL_res6330z00_3014;
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomzf2cinfozf2_bglt BgL_new3179z00_3009;
BgL_new3179z00_3009 = 
((BgL_atomzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_atomzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomzf2cinfozf2_bglt BgL_res6329z00_3013;
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomzf2cinfozf2_bglt BgL_new3188z00_3010;
BgL_new3188z00_3010 = BgL_new3179z00_3009; 
{ /* ./Cfa/cinfo.scm 73 */
BgL_approxz00_bglt BgL_approx3187z00_3012;
BgL_approx3187z00_3012 = BgL_approx3181z00_259; 
((((BgL_atomzf2cinfozf2_bglt)CREF(BgL_new3188z00_3010))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3187z00_3012), BUNSPEC); 
BgL_res6329z00_3013 = BgL_new3188z00_3010; } } BgL_res6329z00_3013; } 
BgL_res6330z00_3014 = BgL_new3179z00_3009; } 
BgL_arg4587z00_3004 = BgL_res6330z00_3014; } 
{ /* ./Cfa/cinfo.scm 73 */
obj_t BgL_auxz00_6552;BgL_objectz00_bglt BgL_auxz00_6550;
BgL_auxz00_6552 = 
(obj_t)(BgL_arg4587z00_3004); 
BgL_auxz00_6550 = 
(BgL_objectz00_bglt)(BgL_aux3185z00_3002); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6550, BgL_auxz00_6552); } } 
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomzf2cinfozf2_bglt BgL_new3186z00_3005;
{ 
BgL_atomzf2cinfozf2_bglt BgL_auxz00_6555;
BgL_auxz00_6555 = 
(BgL_atomzf2cinfozf2_bglt)(BgL_aux3185z00_3002); 
BgL_new3186z00_3005 = 
((BgL_atomzf2cinfozf2_bglt)BgL_auxz00_6555); } 
{ /* ./Cfa/cinfo.scm 73 */
obj_t BgL_objz00_3015;
BgL_objz00_3015 = 
(obj_t)(BgL_new3186z00_3005); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3015); BUNSPEC; } 
return BgL_new3186z00_3005;} } } 
}



/* _make-atom/Cinfo6568 */
obj_t BGl__makezd2atomzf2Cinfo6568z20zzcfa_infoz00(obj_t BgL_envz00_4496, obj_t BgL_loc3182z00_4497, obj_t BgL_type3183z00_4498, obj_t BgL_value3184z00_4499, obj_t BgL_approx3181z00_4500)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 73 */
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomzf2cinfozf2_bglt BgL_auxz00_6560;
BgL_auxz00_6560 = 
BGl_makezd2atomzf2Cinfoz20zzcfa_infoz00(BgL_loc3182z00_4497, 
(BgL_typez00_bglt)(BgL_type3183z00_4498), BgL_value3184z00_4499, 
(BgL_approxz00_bglt)(BgL_approx3181z00_4500)); 
return 
(obj_t)(BgL_auxz00_6560);} } 
}



/* fill-atom/Cinfo! */
BGL_EXPORTED_DEF BgL_atomzf2cinfozf2_bglt BGl_fillzd2atomzf2Cinfoz12z32zzcfa_infoz00(BgL_atomzf2cinfozf2_bglt BgL_new3188z00_260, BgL_approxz00_bglt BgL_approx3187z00_261)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 73 */
{ /* ./Cfa/cinfo.scm 73 */
BgL_approxz00_bglt BgL_approx3187z00_5159;
BgL_approx3187z00_5159 = BgL_approx3187z00_261; 
((((BgL_atomzf2cinfozf2_bglt)CREF(BgL_new3188z00_260))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3187z00_5159), BUNSPEC); 
return BgL_new3188z00_260;} } 
}



/* _fill-atom/Cinfo!6570 */
obj_t BGl__fillzd2atomzf2Cinfoz126570z32zzcfa_infoz00(obj_t BgL_envz00_4501, obj_t BgL_new3188z00_4502, obj_t BgL_approx3187z00_4503)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 73 */
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomzf2cinfozf2_bglt BgL_auxz00_6566;
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomzf2cinfozf2_bglt BgL_res8199z00_5163;
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomzf2cinfozf2_bglt BgL_new3188z00_5160;BgL_approxz00_bglt BgL_approx3187z00_5161;
BgL_new3188z00_5160 = 
(BgL_atomzf2cinfozf2_bglt)(BgL_new3188z00_4502); 
BgL_approx3187z00_5161 = 
(BgL_approxz00_bglt)(BgL_approx3187z00_4503); 
{ /* ./Cfa/cinfo.scm 73 */
BgL_approxz00_bglt BgL_approx3187z00_5162;
BgL_approx3187z00_5162 = BgL_approx3187z00_5161; 
((((BgL_atomzf2cinfozf2_bglt)CREF(BgL_new3188z00_5160))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3187z00_5162), BUNSPEC); 
BgL_res8199z00_5163 = BgL_new3188z00_5160; } } 
BgL_auxz00_6566 = BgL_res8199z00_5163; } 
return 
(obj_t)(BgL_auxz00_6566);} } 
}



/* allocate-atom/Cinfo */
BGL_EXPORTED_DEF BgL_atomz00_bglt BGl_allocatezd2atomzf2Cinfoz20zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 73 */
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomz00_bglt BgL_new3191z00_5164;
BgL_new3191z00_5164 = 
((BgL_atomz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_atomz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 73 */
long BgL_arg4593z00_5165;
BgL_arg4593z00_5165 = 
BGl_classzd2numzd2zz__objectz00(BGl_atomzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 73 */
BgL_objectz00_bglt BgL_objz00_5166;
BgL_objz00_5166 = 
(BgL_objectz00_bglt)(BgL_new3191z00_5164); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5166, BgL_arg4593z00_5165); } } 
{ /* ./Cfa/cinfo.scm 73 */
BgL_objectz00_bglt BgL_auxz00_6575;
BgL_auxz00_6575 = 
(BgL_objectz00_bglt)(BgL_new3191z00_5164); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6575, BFALSE); } 
{ /* ./Cfa/cinfo.scm 73 */
obj_t BgL_objz00_5167;
BgL_objz00_5167 = 
(obj_t)(BgL_new3191z00_5164); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5167); BUNSPEC; } 
return BgL_new3191z00_5164;} } 
}



/* _allocate-atom/Cinfo */
obj_t BGl__allocatezd2atomzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4233)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 73 */
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomz00_bglt BgL_auxz00_6580;
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomz00_bglt BgL_res8200z00_5172;
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomz00_bglt BgL_new3191z00_5168;
BgL_new3191z00_5168 = 
((BgL_atomz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_atomz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 73 */
long BgL_arg4593z00_5169;
BgL_arg4593z00_5169 = 
BGl_classzd2numzd2zz__objectz00(BGl_atomzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 73 */
BgL_objectz00_bglt BgL_objz00_5170;
BgL_objz00_5170 = 
(BgL_objectz00_bglt)(BgL_new3191z00_5168); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5170, BgL_arg4593z00_5169); } } 
{ /* ./Cfa/cinfo.scm 73 */
BgL_objectz00_bglt BgL_auxz00_6585;
BgL_auxz00_6585 = 
(BgL_objectz00_bglt)(BgL_new3191z00_5168); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6585, BFALSE); } 
{ /* ./Cfa/cinfo.scm 73 */
obj_t BgL_objz00_5171;
BgL_objz00_5171 = 
(obj_t)(BgL_new3191z00_5168); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5171); BUNSPEC; } 
BgL_res8200z00_5172 = BgL_new3191z00_5168; } 
BgL_auxz00_6580 = BgL_res8200z00_5172; } 
return 
(obj_t)(BgL_auxz00_6580);} } 
}



/* reshaped-global? */
BGL_EXPORTED_DEF bool_t BGl_reshapedzd2globalzf3z21zzcfa_infoz00(obj_t BgL_obj3130z00_263)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 70 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3130z00_263, BGl_reshapedzd2globalzd2zzcfa_infoz00);} 
}



/* _reshaped-global? */
obj_t BGl__reshapedzd2globalzf3z21zzcfa_infoz00(obj_t BgL_envz00_4504, obj_t BgL_obj3130z00_4505)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 70 */
{ /* ./Cfa/cinfo.scm 70 */
bool_t BgL_auxz00_6592;
BgL_auxz00_6592 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3130z00_4505, BGl_reshapedzd2globalzd2zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_6592);} } 
}



/* widening-reshaped-global */
BGL_EXPORTED_DEF BgL_reshapedzd2globalzd2_bglt BGl_wideningzd2reshapedzd2globalz00zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 70 */
{ /* ./Cfa/cinfo.scm 70 */
BgL_reshapedzd2globalzd2_bglt BgL_new3101z00_1461;
BgL_new3101z00_1461 = 
((BgL_reshapedzd2globalzd2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_reshapedzd2globalzd2_bgl)))); 
return BgL_new3101z00_1461;} } 
}



/* _widening-reshaped-global */
obj_t BGl__wideningzd2reshapedzd2globalz00zzcfa_infoz00(obj_t BgL_envz00_4506)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 70 */
{ /* ./Cfa/cinfo.scm 70 */
BgL_reshapedzd2globalzd2_bglt BgL_auxz00_6596;
BgL_auxz00_6596 = 
BGl_wideningzd2reshapedzd2globalz00zzcfa_infoz00(); 
return 
(obj_t)(BgL_auxz00_6596);} } 
}



/* make-reshaped-global */
BGL_EXPORTED_DEF BgL_reshapedzd2globalzd2_bglt BGl_makezd2reshapedzd2globalz00zzcfa_infoz00(obj_t BgL_id3103z00_267, obj_t BgL_name3104z00_268, BgL_typez00_bglt BgL_type3105z00_269, BgL_valuez00_bglt BgL_value3106z00_270, obj_t BgL_access3107z00_271, obj_t BgL_fastzd2alpha3108zd2_272, obj_t BgL_removable3109z00_273, long BgL_occurrence3110z00_274, obj_t BgL_module3111z00_275, obj_t BgL_import3112z00_276, bool_t BgL_evaluablezf33113zf3_277, bool_t BgL_libraryzf33114zf3_278, bool_t BgL_userzf33115zf3_279, obj_t BgL_pragma3116z00_280, obj_t BgL_src3117z00_281, obj_t BgL_jvmzd2typezd2name3118z00_282)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 70 */
{ /* ./Cfa/cinfo.scm 70 */
BgL_globalz00_bglt BgL_aux3119z00_3023;
BgL_aux3119z00_3023 = 
BGl_makezd2globalzd2zzast_varz00(BgL_id3103z00_267, BgL_name3104z00_268, BgL_type3105z00_269, BgL_value3106z00_270, BgL_access3107z00_271, BgL_fastzd2alpha3108zd2_272, BgL_removable3109z00_273, BgL_occurrence3110z00_274, BgL_module3111z00_275, BgL_import3112z00_276, BgL_evaluablezf33113zf3_277, BgL_libraryzf33114zf3_278, BgL_userzf33115zf3_279, BgL_pragma3116z00_280, BgL_src3117z00_281, BgL_jvmzd2typezd2name3118z00_282); 
{ /* ./Cfa/cinfo.scm 70 */
long BgL_arg4602z00_3024;
BgL_arg4602z00_3024 = 
BGl_classzd2numzd2zz__objectz00(BGl_reshapedzd2globalzd2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 70 */
BgL_objectz00_bglt BgL_objz00_3027;
BgL_objz00_3027 = 
(BgL_objectz00_bglt)(BgL_aux3119z00_3023); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3027, BgL_arg4602z00_3024); } } 
{ /* ./Cfa/cinfo.scm 70 */
BgL_reshapedzd2globalzd2_bglt BgL_arg4606z00_3025;
BgL_arg4606z00_3025 = 
BGl_wideningzd2reshapedzd2globalz00zzcfa_infoz00(); 
{ /* ./Cfa/cinfo.scm 70 */
obj_t BgL_auxz00_6606;BgL_objectz00_bglt BgL_auxz00_6604;
BgL_auxz00_6606 = 
(obj_t)(BgL_arg4606z00_3025); 
BgL_auxz00_6604 = 
(BgL_objectz00_bglt)(BgL_aux3119z00_3023); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6604, BgL_auxz00_6606); } } 
{ /* ./Cfa/cinfo.scm 70 */
BgL_reshapedzd2globalzd2_bglt BgL_new3120z00_3026;
{ 
BgL_reshapedzd2globalzd2_bglt BgL_auxz00_6609;
BgL_auxz00_6609 = 
(BgL_reshapedzd2globalzd2_bglt)(BgL_aux3119z00_3023); 
BgL_new3120z00_3026 = 
((BgL_reshapedzd2globalzd2_bglt)BgL_auxz00_6609); } 
{ /* ./Cfa/cinfo.scm 70 */
obj_t BgL_objz00_3029;
BgL_objz00_3029 = 
(obj_t)(BgL_new3120z00_3026); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3029); BUNSPEC; } 
return BgL_new3120z00_3026;} } } 
}



/* _make-reshaped-global6574 */
obj_t BGl__makezd2reshapedzd2global6574z00zzcfa_infoz00(obj_t BgL_envz00_4507, obj_t BgL_id3103z00_4508, obj_t BgL_name3104z00_4509, obj_t BgL_type3105z00_4510, obj_t BgL_value3106z00_4511, obj_t BgL_access3107z00_4512, obj_t BgL_fastzd2alpha3108zd2_4513, obj_t BgL_removable3109z00_4514, obj_t BgL_occurrence3110z00_4515, obj_t BgL_module3111z00_4516, obj_t BgL_import3112z00_4517, obj_t BgL_evaluablezf33113zf3_4518, obj_t BgL_libraryzf33114zf3_4519, obj_t BgL_userzf33115zf3_4520, obj_t BgL_pragma3116z00_4521, obj_t BgL_src3117z00_4522, obj_t BgL_jvmzd2typezd2name3118z00_4523)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 70 */
{ /* ./Cfa/cinfo.scm 70 */
BgL_reshapedzd2globalzd2_bglt BgL_auxz00_6614;
BgL_auxz00_6614 = 
BGl_makezd2reshapedzd2globalz00zzcfa_infoz00(BgL_id3103z00_4508, BgL_name3104z00_4509, 
(BgL_typez00_bglt)(BgL_type3105z00_4510), 
(BgL_valuez00_bglt)(BgL_value3106z00_4511), BgL_access3107z00_4512, BgL_fastzd2alpha3108zd2_4513, BgL_removable3109z00_4514, 
(long)CINT(BgL_occurrence3110z00_4515), BgL_module3111z00_4516, BgL_import3112z00_4517, 
CBOOL(BgL_evaluablezf33113zf3_4518), 
CBOOL(BgL_libraryzf33114zf3_4519), 
CBOOL(BgL_userzf33115zf3_4520), BgL_pragma3116z00_4521, BgL_src3117z00_4522, BgL_jvmzd2typezd2name3118z00_4523); 
return 
(obj_t)(BgL_auxz00_6614);} } 
}



/* fill-reshaped-global! */
BGL_EXPORTED_DEF BgL_reshapedzd2globalzd2_bglt BGl_fillzd2reshapedzd2globalz12z12zzcfa_infoz00(BgL_reshapedzd2globalzd2_bglt BgL_new3121z00_283)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 70 */
{ /* ./Cfa/cinfo.scm 70 */

return BgL_new3121z00_283;} } 
}



/* _fill-reshaped-global!6576 */
obj_t BGl__fillzd2reshapedzd2globalz126576z12zzcfa_infoz00(obj_t BgL_envz00_4524, obj_t BgL_new3121z00_4525)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 70 */
{ /* ./Cfa/cinfo.scm 70 */
BgL_reshapedzd2globalzd2_bglt BgL_auxz00_6623;
{ /* ./Cfa/cinfo.scm 70 */

BgL_auxz00_6623 = 
(BgL_reshapedzd2globalzd2_bglt)(BgL_new3121z00_4525); } 
return 
(obj_t)(BgL_auxz00_6623);} } 
}



/* allocate-reshaped-global */
BGL_EXPORTED_DEF BgL_globalz00_bglt BGl_allocatezd2reshapedzd2globalz00zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 70 */
{ /* ./Cfa/cinfo.scm 70 */
BgL_globalz00_bglt BgL_new3123z00_5175;
BgL_new3123z00_5175 = 
((BgL_globalz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_globalz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 70 */
long BgL_arg4612z00_5176;
BgL_arg4612z00_5176 = 
BGl_classzd2numzd2zz__objectz00(BGl_reshapedzd2globalzd2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 70 */
BgL_objectz00_bglt BgL_objz00_5177;
BgL_objz00_5177 = 
(BgL_objectz00_bglt)(BgL_new3123z00_5175); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5177, BgL_arg4612z00_5176); } } 
{ /* ./Cfa/cinfo.scm 70 */
BgL_objectz00_bglt BgL_auxz00_6630;
BgL_auxz00_6630 = 
(BgL_objectz00_bglt)(BgL_new3123z00_5175); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6630, BFALSE); } 
{ /* ./Cfa/cinfo.scm 70 */
obj_t BgL_objz00_5178;
BgL_objz00_5178 = 
(obj_t)(BgL_new3123z00_5175); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5178); BUNSPEC; } 
return BgL_new3123z00_5175;} } 
}



/* _allocate-reshaped-global */
obj_t BGl__allocatezd2reshapedzd2globalz00zzcfa_infoz00(obj_t BgL_envz00_4232)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 70 */
{ /* ./Cfa/cinfo.scm 70 */
BgL_globalz00_bglt BgL_auxz00_6635;
{ /* ./Cfa/cinfo.scm 70 */
BgL_globalz00_bglt BgL_res8201z00_5183;
{ /* ./Cfa/cinfo.scm 70 */
BgL_globalz00_bglt BgL_new3123z00_5179;
BgL_new3123z00_5179 = 
((BgL_globalz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_globalz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 70 */
long BgL_arg4612z00_5180;
BgL_arg4612z00_5180 = 
BGl_classzd2numzd2zz__objectz00(BGl_reshapedzd2globalzd2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 70 */
BgL_objectz00_bglt BgL_objz00_5181;
BgL_objz00_5181 = 
(BgL_objectz00_bglt)(BgL_new3123z00_5179); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5181, BgL_arg4612z00_5180); } } 
{ /* ./Cfa/cinfo.scm 70 */
BgL_objectz00_bglt BgL_auxz00_6640;
BgL_auxz00_6640 = 
(BgL_objectz00_bglt)(BgL_new3123z00_5179); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6640, BFALSE); } 
{ /* ./Cfa/cinfo.scm 70 */
obj_t BgL_objz00_5182;
BgL_objz00_5182 = 
(obj_t)(BgL_new3123z00_5179); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5182); BUNSPEC; } 
BgL_res8201z00_5183 = BgL_new3123z00_5179; } 
BgL_auxz00_6635 = BgL_res8201z00_5183; } 
return 
(obj_t)(BgL_auxz00_6635);} } 
}



/* reshaped-local? */
BGL_EXPORTED_DEF bool_t BGl_reshapedzd2localzf3z21zzcfa_infoz00(obj_t BgL_obj3073z00_284)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 68 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3073z00_284, BGl_reshapedzd2localzd2zzcfa_infoz00);} 
}



/* _reshaped-local? */
obj_t BGl__reshapedzd2localzf3z21zzcfa_infoz00(obj_t BgL_envz00_4526, obj_t BgL_obj3073z00_4527)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 68 */
{ /* ./Cfa/cinfo.scm 68 */
bool_t BgL_auxz00_6647;
BgL_auxz00_6647 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3073z00_4527, BGl_reshapedzd2localzd2zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_6647);} } 
}



/* widening-reshaped-local */
BGL_EXPORTED_DEF BgL_reshapedzd2localzd2_bglt BGl_wideningzd2reshapedzd2localz00zzcfa_infoz00(obj_t BgL_bindingzd2value3046zd2_288)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 68 */
{ /* ./Cfa/cinfo.scm 68 */
BgL_reshapedzd2localzd2_bglt BgL_new3047z00_3035;
BgL_new3047z00_3035 = 
((BgL_reshapedzd2localzd2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_reshapedzd2localzd2_bgl)))); 
{ /* ./Cfa/cinfo.scm 68 */
BgL_reshapedzd2localzd2_bglt BgL_res6331z00_3039;
{ /* ./Cfa/cinfo.scm 68 */
BgL_reshapedzd2localzd2_bglt BgL_new3063z00_3036;
BgL_new3063z00_3036 = BgL_new3047z00_3035; 
{ /* ./Cfa/cinfo.scm 68 */
obj_t BgL_bindingzd2value3062zd2_3038;
BgL_bindingzd2value3062zd2_3038 = BgL_bindingzd2value3046zd2_288; 
((((BgL_reshapedzd2localzd2_bglt)CREF(BgL_new3063z00_3036))->BgL_bindingzd2valuezd2) = ((obj_t)BgL_bindingzd2value3062zd2_3038), BUNSPEC); 
BgL_res6331z00_3039 = BgL_new3063z00_3036; } } BgL_res6331z00_3039; } 
return BgL_new3047z00_3035;} } 
}



/* _widening-reshaped-local */
obj_t BGl__wideningzd2reshapedzd2localz00zzcfa_infoz00(obj_t BgL_envz00_4528, obj_t BgL_bindingzd2value3046zd2_4529)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 68 */
{ /* ./Cfa/cinfo.scm 68 */
BgL_reshapedzd2localzd2_bglt BgL_auxz00_6652;
BgL_auxz00_6652 = 
BGl_wideningzd2reshapedzd2localz00zzcfa_infoz00(BgL_bindingzd2value3046zd2_4529); 
return 
(obj_t)(BgL_auxz00_6652);} } 
}



/* make-reshaped-local */
BGL_EXPORTED_DEF BgL_reshapedzd2localzd2_bglt BGl_makezd2reshapedzd2localz00zzcfa_infoz00(obj_t BgL_id3050z00_289, obj_t BgL_name3051z00_290, BgL_typez00_bglt BgL_type3052z00_291, BgL_valuez00_bglt BgL_value3053z00_292, obj_t BgL_access3054z00_293, obj_t BgL_fastzd2alpha3055zd2_294, obj_t BgL_removable3056z00_295, long BgL_occurrence3057z00_296, bool_t BgL_userzf33058zf3_297, long BgL_key3059z00_298, obj_t BgL_bindingzd2value3049zd2_299)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 68 */
{ /* ./Cfa/cinfo.scm 68 */
BgL_localz00_bglt BgL_aux3060z00_3040;
BgL_aux3060z00_3040 = 
BGl_makezd2localzd2zzast_varz00(BgL_id3050z00_289, BgL_name3051z00_290, BgL_type3052z00_291, BgL_value3053z00_292, BgL_access3054z00_293, BgL_fastzd2alpha3055zd2_294, BgL_removable3056z00_295, BgL_occurrence3057z00_296, BgL_userzf33058zf3_297, BgL_key3059z00_298); 
{ /* ./Cfa/cinfo.scm 68 */
long BgL_arg4620z00_3041;
BgL_arg4620z00_3041 = 
BGl_classzd2numzd2zz__objectz00(BGl_reshapedzd2localzd2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 68 */
BgL_objectz00_bglt BgL_objz00_3044;
BgL_objz00_3044 = 
(BgL_objectz00_bglt)(BgL_aux3060z00_3040); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3044, BgL_arg4620z00_3041); } } 
{ /* ./Cfa/cinfo.scm 68 */
BgL_reshapedzd2localzd2_bglt BgL_arg4624z00_3042;
{ /* ./Cfa/cinfo.scm 68 */
BgL_reshapedzd2localzd2_bglt BgL_res6333z00_3052;
{ /* ./Cfa/cinfo.scm 68 */
BgL_reshapedzd2localzd2_bglt BgL_new3047z00_3047;
BgL_new3047z00_3047 = 
((BgL_reshapedzd2localzd2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_reshapedzd2localzd2_bgl)))); 
{ /* ./Cfa/cinfo.scm 68 */
BgL_reshapedzd2localzd2_bglt BgL_res6332z00_3051;
{ /* ./Cfa/cinfo.scm 68 */
BgL_reshapedzd2localzd2_bglt BgL_new3063z00_3048;
BgL_new3063z00_3048 = BgL_new3047z00_3047; 
{ /* ./Cfa/cinfo.scm 68 */
obj_t BgL_bindingzd2value3062zd2_3050;
BgL_bindingzd2value3062zd2_3050 = BgL_bindingzd2value3049zd2_299; 
((((BgL_reshapedzd2localzd2_bglt)CREF(BgL_new3063z00_3048))->BgL_bindingzd2valuezd2) = ((obj_t)BgL_bindingzd2value3062zd2_3050), BUNSPEC); 
BgL_res6332z00_3051 = BgL_new3063z00_3048; } } BgL_res6332z00_3051; } 
BgL_res6333z00_3052 = BgL_new3047z00_3047; } 
BgL_arg4624z00_3042 = BgL_res6333z00_3052; } 
{ /* ./Cfa/cinfo.scm 68 */
obj_t BgL_auxz00_6663;BgL_objectz00_bglt BgL_auxz00_6661;
BgL_auxz00_6663 = 
(obj_t)(BgL_arg4624z00_3042); 
BgL_auxz00_6661 = 
(BgL_objectz00_bglt)(BgL_aux3060z00_3040); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6661, BgL_auxz00_6663); } } 
{ /* ./Cfa/cinfo.scm 68 */
BgL_reshapedzd2localzd2_bglt BgL_new3061z00_3043;
{ 
BgL_reshapedzd2localzd2_bglt BgL_auxz00_6666;
BgL_auxz00_6666 = 
(BgL_reshapedzd2localzd2_bglt)(BgL_aux3060z00_3040); 
BgL_new3061z00_3043 = 
((BgL_reshapedzd2localzd2_bglt)BgL_auxz00_6666); } 
{ /* ./Cfa/cinfo.scm 68 */
obj_t BgL_objz00_3053;
BgL_objz00_3053 = 
(obj_t)(BgL_new3061z00_3043); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3053); BUNSPEC; } 
return BgL_new3061z00_3043;} } } 
}



/* _make-reshaped-local6580 */
obj_t BGl__makezd2reshapedzd2local6580z00zzcfa_infoz00(obj_t BgL_envz00_4530, obj_t BgL_id3050z00_4531, obj_t BgL_name3051z00_4532, obj_t BgL_type3052z00_4533, obj_t BgL_value3053z00_4534, obj_t BgL_access3054z00_4535, obj_t BgL_fastzd2alpha3055zd2_4536, obj_t BgL_removable3056z00_4537, obj_t BgL_occurrence3057z00_4538, obj_t BgL_userzf33058zf3_4539, obj_t BgL_key3059z00_4540, obj_t BgL_bindingzd2value3049zd2_4541)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 68 */
{ /* ./Cfa/cinfo.scm 68 */
BgL_reshapedzd2localzd2_bglt BgL_auxz00_6671;
BgL_auxz00_6671 = 
BGl_makezd2reshapedzd2localz00zzcfa_infoz00(BgL_id3050z00_4531, BgL_name3051z00_4532, 
(BgL_typez00_bglt)(BgL_type3052z00_4533), 
(BgL_valuez00_bglt)(BgL_value3053z00_4534), BgL_access3054z00_4535, BgL_fastzd2alpha3055zd2_4536, BgL_removable3056z00_4537, 
(long)CINT(BgL_occurrence3057z00_4538), 
CBOOL(BgL_userzf33058zf3_4539), 
(long)CINT(BgL_key3059z00_4540), BgL_bindingzd2value3049zd2_4541); 
return 
(obj_t)(BgL_auxz00_6671);} } 
}



/* fill-reshaped-local! */
BGL_EXPORTED_DEF BgL_reshapedzd2localzd2_bglt BGl_fillzd2reshapedzd2localz12z12zzcfa_infoz00(BgL_reshapedzd2localzd2_bglt BgL_new3063z00_300, obj_t BgL_bindingzd2value3062zd2_301)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 68 */
{ /* ./Cfa/cinfo.scm 68 */
obj_t BgL_bindingzd2value3062zd2_5185;
BgL_bindingzd2value3062zd2_5185 = BgL_bindingzd2value3062zd2_301; 
((((BgL_reshapedzd2localzd2_bglt)CREF(BgL_new3063z00_300))->BgL_bindingzd2valuezd2) = ((obj_t)BgL_bindingzd2value3062zd2_5185), BUNSPEC); 
return BgL_new3063z00_300;} } 
}



/* _fill-reshaped-local!6582 */
obj_t BGl__fillzd2reshapedzd2localz126582z12zzcfa_infoz00(obj_t BgL_envz00_4542, obj_t BgL_new3063z00_4543, obj_t BgL_bindingzd2value3062zd2_4544)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 68 */
{ /* ./Cfa/cinfo.scm 68 */
BgL_reshapedzd2localzd2_bglt BgL_auxz00_6680;
{ /* ./Cfa/cinfo.scm 68 */
BgL_reshapedzd2localzd2_bglt BgL_res8202z00_5189;
{ /* ./Cfa/cinfo.scm 68 */
BgL_reshapedzd2localzd2_bglt BgL_new3063z00_5186;
BgL_new3063z00_5186 = 
(BgL_reshapedzd2localzd2_bglt)(BgL_new3063z00_4543); 
{ /* ./Cfa/cinfo.scm 68 */
obj_t BgL_bindingzd2value3062zd2_5188;
BgL_bindingzd2value3062zd2_5188 = BgL_bindingzd2value3062zd2_4544; 
((((BgL_reshapedzd2localzd2_bglt)CREF(BgL_new3063z00_5186))->BgL_bindingzd2valuezd2) = ((obj_t)BgL_bindingzd2value3062zd2_5188), BUNSPEC); 
BgL_res8202z00_5189 = BgL_new3063z00_5186; } } 
BgL_auxz00_6680 = BgL_res8202z00_5189; } 
return 
(obj_t)(BgL_auxz00_6680);} } 
}



/* allocate-reshaped-local */
BGL_EXPORTED_DEF BgL_localz00_bglt BGl_allocatezd2reshapedzd2localz00zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 68 */
{ /* ./Cfa/cinfo.scm 68 */
BgL_localz00_bglt BgL_new3066z00_5190;
BgL_new3066z00_5190 = 
((BgL_localz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_localz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 68 */
long BgL_arg4630z00_5191;
BgL_arg4630z00_5191 = 
BGl_classzd2numzd2zz__objectz00(BGl_reshapedzd2localzd2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 68 */
BgL_objectz00_bglt BgL_objz00_5192;
BgL_objz00_5192 = 
(BgL_objectz00_bglt)(BgL_new3066z00_5190); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5192, BgL_arg4630z00_5191); } } 
{ /* ./Cfa/cinfo.scm 68 */
BgL_objectz00_bglt BgL_auxz00_6688;
BgL_auxz00_6688 = 
(BgL_objectz00_bglt)(BgL_new3066z00_5190); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6688, BFALSE); } 
{ /* ./Cfa/cinfo.scm 68 */
obj_t BgL_objz00_5193;
BgL_objz00_5193 = 
(obj_t)(BgL_new3066z00_5190); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5193); BUNSPEC; } 
return BgL_new3066z00_5190;} } 
}



/* _allocate-reshaped-local */
obj_t BGl__allocatezd2reshapedzd2localz00zzcfa_infoz00(obj_t BgL_envz00_4231)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 68 */
{ /* ./Cfa/cinfo.scm 68 */
BgL_localz00_bglt BgL_auxz00_6693;
{ /* ./Cfa/cinfo.scm 68 */
BgL_localz00_bglt BgL_res8203z00_5198;
{ /* ./Cfa/cinfo.scm 68 */
BgL_localz00_bglt BgL_new3066z00_5194;
BgL_new3066z00_5194 = 
((BgL_localz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_localz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 68 */
long BgL_arg4630z00_5195;
BgL_arg4630z00_5195 = 
BGl_classzd2numzd2zz__objectz00(BGl_reshapedzd2localzd2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 68 */
BgL_objectz00_bglt BgL_objz00_5196;
BgL_objz00_5196 = 
(BgL_objectz00_bglt)(BgL_new3066z00_5194); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5196, BgL_arg4630z00_5195); } } 
{ /* ./Cfa/cinfo.scm 68 */
BgL_objectz00_bglt BgL_auxz00_6698;
BgL_auxz00_6698 = 
(BgL_objectz00_bglt)(BgL_new3066z00_5194); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6698, BFALSE); } 
{ /* ./Cfa/cinfo.scm 68 */
obj_t BgL_objz00_5197;
BgL_objz00_5197 = 
(obj_t)(BgL_new3066z00_5194); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5197); BUNSPEC; } 
BgL_res8203z00_5198 = BgL_new3066z00_5194; } 
BgL_auxz00_6693 = BgL_res8203z00_5198; } 
return 
(obj_t)(BgL_auxz00_6693);} } 
}



/* sexit/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_sexitzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_obj3038z00_303)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 64 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3038z00_303, BGl_sexitzf2Cinfozf2zzcfa_infoz00);} 
}



/* _sexit/Cinfo? */
obj_t BGl__sexitzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_envz00_4545, obj_t BgL_obj3038z00_4546)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 64 */
{ /* ./Cfa/cinfo.scm 64 */
bool_t BgL_auxz00_6705;
BgL_auxz00_6705 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3038z00_4546, BGl_sexitzf2Cinfozf2zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_6705);} } 
}



/* widening-sexit/Cinfo */
BGL_EXPORTED_DEF BgL_sexitzf2cinfozf2_bglt BGl_wideningzd2sexitzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt BgL_approx3019z00_307)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 64 */
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitzf2cinfozf2_bglt BgL_new3020z00_3060;
BgL_new3020z00_3060 = 
((BgL_sexitzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_sexitzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitzf2cinfozf2_bglt BgL_res6334z00_3064;
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitzf2cinfozf2_bglt BgL_new3028z00_3061;
BgL_new3028z00_3061 = BgL_new3020z00_3060; 
{ /* ./Cfa/cinfo.scm 64 */
BgL_approxz00_bglt BgL_approx3027z00_3063;
BgL_approx3027z00_3063 = BgL_approx3019z00_307; 
((((BgL_sexitzf2cinfozf2_bglt)CREF(BgL_new3028z00_3061))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3027z00_3063), BUNSPEC); 
BgL_res6334z00_3064 = BgL_new3028z00_3061; } } BgL_res6334z00_3064; } 
return BgL_new3020z00_3060;} } 
}



/* _widening-sexit/Cinfo */
obj_t BGl__wideningzd2sexitzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4547, obj_t BgL_approx3019z00_4548)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 64 */
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitzf2cinfozf2_bglt BgL_auxz00_6710;
BgL_auxz00_6710 = 
BGl_wideningzd2sexitzf2Cinfoz20zzcfa_infoz00(
(BgL_approxz00_bglt)(BgL_approx3019z00_4548)); 
return 
(obj_t)(BgL_auxz00_6710);} } 
}



/* make-sexit/Cinfo */
BGL_EXPORTED_DEF BgL_sexitzf2cinfozf2_bglt BGl_makezd2sexitzf2Cinfoz20zzcfa_infoz00(obj_t BgL_handler3023z00_308, bool_t BgL_detachedzf33024zf3_309, BgL_approxz00_bglt BgL_approx3022z00_310)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 64 */
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitz00_bglt BgL_aux3025z00_1477;
BgL_aux3025z00_1477 = 
BGl_makezd2sexitzd2zzast_varz00(BgL_handler3023z00_308, BgL_detachedzf33024zf3_309); 
{ /* ./Cfa/cinfo.scm 64 */
long BgL_arg4639z00_1478;
BgL_arg4639z00_1478 = 
BGl_classzd2numzd2zz__objectz00(BGl_sexitzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 64 */
BgL_objectz00_bglt BgL_objz00_3065;
BgL_objz00_3065 = 
(BgL_objectz00_bglt)(BgL_aux3025z00_1477); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3065, BgL_arg4639z00_1478); } } 
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitzf2cinfozf2_bglt BgL_arg4643z00_1479;
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitzf2cinfozf2_bglt BgL_res6336z00_3073;
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitzf2cinfozf2_bglt BgL_new3020z00_3068;
BgL_new3020z00_3068 = 
((BgL_sexitzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_sexitzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitzf2cinfozf2_bglt BgL_res6335z00_3072;
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitzf2cinfozf2_bglt BgL_new3028z00_3069;
BgL_new3028z00_3069 = BgL_new3020z00_3068; 
{ /* ./Cfa/cinfo.scm 64 */
BgL_approxz00_bglt BgL_approx3027z00_3071;
BgL_approx3027z00_3071 = BgL_approx3022z00_310; 
((((BgL_sexitzf2cinfozf2_bglt)CREF(BgL_new3028z00_3069))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3027z00_3071), BUNSPEC); 
BgL_res6335z00_3072 = BgL_new3028z00_3069; } } BgL_res6335z00_3072; } 
BgL_res6336z00_3073 = BgL_new3020z00_3068; } 
BgL_arg4643z00_1479 = BgL_res6336z00_3073; } 
{ /* ./Cfa/cinfo.scm 64 */
obj_t BgL_auxz00_6722;BgL_objectz00_bglt BgL_auxz00_6720;
BgL_auxz00_6722 = 
(obj_t)(BgL_arg4643z00_1479); 
BgL_auxz00_6720 = 
(BgL_objectz00_bglt)(BgL_aux3025z00_1477); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6720, BgL_auxz00_6722); } } 
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitzf2cinfozf2_bglt BgL_new3026z00_1480;
{ 
BgL_sexitzf2cinfozf2_bglt BgL_auxz00_6725;
BgL_auxz00_6725 = 
(BgL_sexitzf2cinfozf2_bglt)(BgL_aux3025z00_1477); 
BgL_new3026z00_1480 = 
((BgL_sexitzf2cinfozf2_bglt)BgL_auxz00_6725); } 
{ /* ./Cfa/cinfo.scm 64 */
obj_t BgL_objz00_3074;
BgL_objz00_3074 = 
(obj_t)(BgL_new3026z00_1480); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3074); BUNSPEC; } 
return BgL_new3026z00_1480;} } } 
}



/* _make-sexit/Cinfo6586 */
obj_t BGl__makezd2sexitzf2Cinfo6586z20zzcfa_infoz00(obj_t BgL_envz00_4549, obj_t BgL_handler3023z00_4550, obj_t BgL_detachedzf33024zf3_4551, obj_t BgL_approx3022z00_4552)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 64 */
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitzf2cinfozf2_bglt BgL_auxz00_6730;
BgL_auxz00_6730 = 
BGl_makezd2sexitzf2Cinfoz20zzcfa_infoz00(BgL_handler3023z00_4550, 
CBOOL(BgL_detachedzf33024zf3_4551), 
(BgL_approxz00_bglt)(BgL_approx3022z00_4552)); 
return 
(obj_t)(BgL_auxz00_6730);} } 
}



/* fill-sexit/Cinfo! */
BGL_EXPORTED_DEF BgL_sexitzf2cinfozf2_bglt BGl_fillzd2sexitzf2Cinfoz12z32zzcfa_infoz00(BgL_sexitzf2cinfozf2_bglt BgL_new3028z00_311, BgL_approxz00_bglt BgL_approx3027z00_312)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 64 */
{ /* ./Cfa/cinfo.scm 64 */
BgL_approxz00_bglt BgL_approx3027z00_5200;
BgL_approx3027z00_5200 = BgL_approx3027z00_312; 
((((BgL_sexitzf2cinfozf2_bglt)CREF(BgL_new3028z00_311))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3027z00_5200), BUNSPEC); 
return BgL_new3028z00_311;} } 
}



/* _fill-sexit/Cinfo!6588 */
obj_t BGl__fillzd2sexitzf2Cinfoz126588z32zzcfa_infoz00(obj_t BgL_envz00_4553, obj_t BgL_new3028z00_4554, obj_t BgL_approx3027z00_4555)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 64 */
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitzf2cinfozf2_bglt BgL_auxz00_6736;
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitzf2cinfozf2_bglt BgL_res8204z00_5204;
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitzf2cinfozf2_bglt BgL_new3028z00_5201;BgL_approxz00_bglt BgL_approx3027z00_5202;
BgL_new3028z00_5201 = 
(BgL_sexitzf2cinfozf2_bglt)(BgL_new3028z00_4554); 
BgL_approx3027z00_5202 = 
(BgL_approxz00_bglt)(BgL_approx3027z00_4555); 
{ /* ./Cfa/cinfo.scm 64 */
BgL_approxz00_bglt BgL_approx3027z00_5203;
BgL_approx3027z00_5203 = BgL_approx3027z00_5202; 
((((BgL_sexitzf2cinfozf2_bglt)CREF(BgL_new3028z00_5201))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3027z00_5203), BUNSPEC); 
BgL_res8204z00_5204 = BgL_new3028z00_5201; } } 
BgL_auxz00_6736 = BgL_res8204z00_5204; } 
return 
(obj_t)(BgL_auxz00_6736);} } 
}



/* allocate-sexit/Cinfo */
BGL_EXPORTED_DEF BgL_sexitz00_bglt BGl_allocatezd2sexitzf2Cinfoz20zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 64 */
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitz00_bglt BgL_new3031z00_5205;
BgL_new3031z00_5205 = 
((BgL_sexitz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_sexitz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 64 */
long BgL_arg4649z00_5206;
BgL_arg4649z00_5206 = 
BGl_classzd2numzd2zz__objectz00(BGl_sexitzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 64 */
BgL_objectz00_bglt BgL_objz00_5207;
BgL_objz00_5207 = 
(BgL_objectz00_bglt)(BgL_new3031z00_5205); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5207, BgL_arg4649z00_5206); } } 
{ /* ./Cfa/cinfo.scm 64 */
BgL_objectz00_bglt BgL_auxz00_6745;
BgL_auxz00_6745 = 
(BgL_objectz00_bglt)(BgL_new3031z00_5205); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6745, BFALSE); } 
{ /* ./Cfa/cinfo.scm 64 */
obj_t BgL_objz00_5208;
BgL_objz00_5208 = 
(obj_t)(BgL_new3031z00_5205); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5208); BUNSPEC; } 
return BgL_new3031z00_5205;} } 
}



/* _allocate-sexit/Cinfo */
obj_t BGl__allocatezd2sexitzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4230)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 64 */
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitz00_bglt BgL_auxz00_6750;
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitz00_bglt BgL_res8205z00_5213;
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitz00_bglt BgL_new3031z00_5209;
BgL_new3031z00_5209 = 
((BgL_sexitz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_sexitz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 64 */
long BgL_arg4649z00_5210;
BgL_arg4649z00_5210 = 
BGl_classzd2numzd2zz__objectz00(BGl_sexitzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 64 */
BgL_objectz00_bglt BgL_objz00_5211;
BgL_objz00_5211 = 
(BgL_objectz00_bglt)(BgL_new3031z00_5209); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5211, BgL_arg4649z00_5210); } } 
{ /* ./Cfa/cinfo.scm 64 */
BgL_objectz00_bglt BgL_auxz00_6755;
BgL_auxz00_6755 = 
(BgL_objectz00_bglt)(BgL_new3031z00_5209); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6755, BFALSE); } 
{ /* ./Cfa/cinfo.scm 64 */
obj_t BgL_objz00_5212;
BgL_objz00_5212 = 
(obj_t)(BgL_new3031z00_5209); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5212); BUNSPEC; } 
BgL_res8205z00_5213 = BgL_new3031z00_5209; } 
BgL_auxz00_6750 = BgL_res8205z00_5213; } 
return 
(obj_t)(BgL_auxz00_6750);} } 
}



/* cvar/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_cvarzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_obj3016z00_314)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 60 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3016z00_314, BGl_cvarzf2Cinfozf2zzcfa_infoz00);} 
}



/* _cvar/Cinfo? */
obj_t BGl__cvarzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_envz00_4556, obj_t BgL_obj3016z00_4557)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 60 */
{ /* ./Cfa/cinfo.scm 60 */
bool_t BgL_auxz00_6762;
BgL_auxz00_6762 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3016z00_4557, BGl_cvarzf2Cinfozf2zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_6762);} } 
}



/* widening-cvar/Cinfo */
BGL_EXPORTED_DEF BgL_cvarzf2cinfozf2_bglt BGl_wideningzd2cvarzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt BgL_approx2998z00_318)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 60 */
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarzf2cinfozf2_bglt BgL_new2999z00_3081;
BgL_new2999z00_3081 = 
((BgL_cvarzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_cvarzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarzf2cinfozf2_bglt BgL_res6337z00_3085;
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarzf2cinfozf2_bglt BgL_new3006z00_3082;
BgL_new3006z00_3082 = BgL_new2999z00_3081; 
{ /* ./Cfa/cinfo.scm 60 */
BgL_approxz00_bglt BgL_approx3005z00_3084;
BgL_approx3005z00_3084 = BgL_approx2998z00_318; 
((((BgL_cvarzf2cinfozf2_bglt)CREF(BgL_new3006z00_3082))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3005z00_3084), BUNSPEC); 
BgL_res6337z00_3085 = BgL_new3006z00_3082; } } BgL_res6337z00_3085; } 
return BgL_new2999z00_3081;} } 
}



/* _widening-cvar/Cinfo */
obj_t BGl__wideningzd2cvarzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4558, obj_t BgL_approx2998z00_4559)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 60 */
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarzf2cinfozf2_bglt BgL_auxz00_6767;
BgL_auxz00_6767 = 
BGl_wideningzd2cvarzf2Cinfoz20zzcfa_infoz00(
(BgL_approxz00_bglt)(BgL_approx2998z00_4559)); 
return 
(obj_t)(BgL_auxz00_6767);} } 
}



/* make-cvar/Cinfo */
BGL_EXPORTED_DEF BgL_cvarzf2cinfozf2_bglt BGl_makezd2cvarzf2Cinfoz20zzcfa_infoz00(bool_t BgL_macrozf33002zf3_319, BgL_approxz00_bglt BgL_approx3001z00_320)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 60 */
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarz00_bglt BgL_aux3003z00_1485;
BgL_aux3003z00_1485 = 
BGl_makezd2cvarzd2zzast_varz00(BgL_macrozf33002zf3_319); 
{ /* ./Cfa/cinfo.scm 60 */
long BgL_arg4658z00_1486;
BgL_arg4658z00_1486 = 
BGl_classzd2numzd2zz__objectz00(BGl_cvarzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 60 */
BgL_objectz00_bglt BgL_objz00_3086;
BgL_objz00_3086 = 
(BgL_objectz00_bglt)(BgL_aux3003z00_1485); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3086, BgL_arg4658z00_1486); } } 
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarzf2cinfozf2_bglt BgL_arg4662z00_1487;
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarzf2cinfozf2_bglt BgL_res6339z00_3094;
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarzf2cinfozf2_bglt BgL_new2999z00_3089;
BgL_new2999z00_3089 = 
((BgL_cvarzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_cvarzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarzf2cinfozf2_bglt BgL_res6338z00_3093;
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarzf2cinfozf2_bglt BgL_new3006z00_3090;
BgL_new3006z00_3090 = BgL_new2999z00_3089; 
{ /* ./Cfa/cinfo.scm 60 */
BgL_approxz00_bglt BgL_approx3005z00_3092;
BgL_approx3005z00_3092 = BgL_approx3001z00_320; 
((((BgL_cvarzf2cinfozf2_bglt)CREF(BgL_new3006z00_3090))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3005z00_3092), BUNSPEC); 
BgL_res6338z00_3093 = BgL_new3006z00_3090; } } BgL_res6338z00_3093; } 
BgL_res6339z00_3094 = BgL_new2999z00_3089; } 
BgL_arg4662z00_1487 = BgL_res6339z00_3094; } 
{ /* ./Cfa/cinfo.scm 60 */
obj_t BgL_auxz00_6779;BgL_objectz00_bglt BgL_auxz00_6777;
BgL_auxz00_6779 = 
(obj_t)(BgL_arg4662z00_1487); 
BgL_auxz00_6777 = 
(BgL_objectz00_bglt)(BgL_aux3003z00_1485); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6777, BgL_auxz00_6779); } } 
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarzf2cinfozf2_bglt BgL_new3004z00_1488;
{ 
BgL_cvarzf2cinfozf2_bglt BgL_auxz00_6782;
BgL_auxz00_6782 = 
(BgL_cvarzf2cinfozf2_bglt)(BgL_aux3003z00_1485); 
BgL_new3004z00_1488 = 
((BgL_cvarzf2cinfozf2_bglt)BgL_auxz00_6782); } 
{ /* ./Cfa/cinfo.scm 60 */
obj_t BgL_objz00_3095;
BgL_objz00_3095 = 
(obj_t)(BgL_new3004z00_1488); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3095); BUNSPEC; } 
return BgL_new3004z00_1488;} } } 
}



/* _make-cvar/Cinfo6592 */
obj_t BGl__makezd2cvarzf2Cinfo6592z20zzcfa_infoz00(obj_t BgL_envz00_4560, obj_t BgL_macrozf33002zf3_4561, obj_t BgL_approx3001z00_4562)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 60 */
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarzf2cinfozf2_bglt BgL_auxz00_6787;
BgL_auxz00_6787 = 
BGl_makezd2cvarzf2Cinfoz20zzcfa_infoz00(
CBOOL(BgL_macrozf33002zf3_4561), 
(BgL_approxz00_bglt)(BgL_approx3001z00_4562)); 
return 
(obj_t)(BgL_auxz00_6787);} } 
}



/* fill-cvar/Cinfo! */
BGL_EXPORTED_DEF BgL_cvarzf2cinfozf2_bglt BGl_fillzd2cvarzf2Cinfoz12z32zzcfa_infoz00(BgL_cvarzf2cinfozf2_bglt BgL_new3006z00_321, BgL_approxz00_bglt BgL_approx3005z00_322)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 60 */
{ /* ./Cfa/cinfo.scm 60 */
BgL_approxz00_bglt BgL_approx3005z00_5215;
BgL_approx3005z00_5215 = BgL_approx3005z00_322; 
((((BgL_cvarzf2cinfozf2_bglt)CREF(BgL_new3006z00_321))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3005z00_5215), BUNSPEC); 
return BgL_new3006z00_321;} } 
}



/* _fill-cvar/Cinfo!6594 */
obj_t BGl__fillzd2cvarzf2Cinfoz126594z32zzcfa_infoz00(obj_t BgL_envz00_4563, obj_t BgL_new3006z00_4564, obj_t BgL_approx3005z00_4565)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 60 */
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarzf2cinfozf2_bglt BgL_auxz00_6793;
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarzf2cinfozf2_bglt BgL_res8206z00_5219;
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarzf2cinfozf2_bglt BgL_new3006z00_5216;BgL_approxz00_bglt BgL_approx3005z00_5217;
BgL_new3006z00_5216 = 
(BgL_cvarzf2cinfozf2_bglt)(BgL_new3006z00_4564); 
BgL_approx3005z00_5217 = 
(BgL_approxz00_bglt)(BgL_approx3005z00_4565); 
{ /* ./Cfa/cinfo.scm 60 */
BgL_approxz00_bglt BgL_approx3005z00_5218;
BgL_approx3005z00_5218 = BgL_approx3005z00_5217; 
((((BgL_cvarzf2cinfozf2_bglt)CREF(BgL_new3006z00_5216))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3005z00_5218), BUNSPEC); 
BgL_res8206z00_5219 = BgL_new3006z00_5216; } } 
BgL_auxz00_6793 = BgL_res8206z00_5219; } 
return 
(obj_t)(BgL_auxz00_6793);} } 
}



/* allocate-cvar/Cinfo */
BGL_EXPORTED_DEF BgL_cvarz00_bglt BGl_allocatezd2cvarzf2Cinfoz20zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 60 */
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarz00_bglt BgL_new3009z00_5220;
BgL_new3009z00_5220 = 
((BgL_cvarz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cvarz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 60 */
long BgL_arg4668z00_5221;
BgL_arg4668z00_5221 = 
BGl_classzd2numzd2zz__objectz00(BGl_cvarzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 60 */
BgL_objectz00_bglt BgL_objz00_5222;
BgL_objz00_5222 = 
(BgL_objectz00_bglt)(BgL_new3009z00_5220); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5222, BgL_arg4668z00_5221); } } 
{ /* ./Cfa/cinfo.scm 60 */
BgL_objectz00_bglt BgL_auxz00_6802;
BgL_auxz00_6802 = 
(BgL_objectz00_bglt)(BgL_new3009z00_5220); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6802, BFALSE); } 
{ /* ./Cfa/cinfo.scm 60 */
obj_t BgL_objz00_5223;
BgL_objz00_5223 = 
(obj_t)(BgL_new3009z00_5220); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5223); BUNSPEC; } 
return BgL_new3009z00_5220;} } 
}



/* _allocate-cvar/Cinfo */
obj_t BGl__allocatezd2cvarzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4229)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 60 */
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarz00_bglt BgL_auxz00_6807;
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarz00_bglt BgL_res8207z00_5228;
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarz00_bglt BgL_new3009z00_5224;
BgL_new3009z00_5224 = 
((BgL_cvarz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cvarz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 60 */
long BgL_arg4668z00_5225;
BgL_arg4668z00_5225 = 
BGl_classzd2numzd2zz__objectz00(BGl_cvarzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 60 */
BgL_objectz00_bglt BgL_objz00_5226;
BgL_objz00_5226 = 
(BgL_objectz00_bglt)(BgL_new3009z00_5224); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5226, BgL_arg4668z00_5225); } } 
{ /* ./Cfa/cinfo.scm 60 */
BgL_objectz00_bglt BgL_auxz00_6812;
BgL_auxz00_6812 = 
(BgL_objectz00_bglt)(BgL_new3009z00_5224); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6812, BFALSE); } 
{ /* ./Cfa/cinfo.scm 60 */
obj_t BgL_objz00_5227;
BgL_objz00_5227 = 
(obj_t)(BgL_new3009z00_5224); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5227); BUNSPEC; } 
BgL_res8207z00_5228 = BgL_new3009z00_5224; } 
BgL_auxz00_6807 = BgL_res8207z00_5228; } 
return 
(obj_t)(BgL_auxz00_6807);} } 
}



/* svar/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_svarzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_obj2990z00_324)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 54 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2990z00_324, BGl_svarzf2Cinfozf2zzcfa_infoz00);} 
}



/* _svar/Cinfo? */
obj_t BGl__svarzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_envz00_4566, obj_t BgL_obj2990z00_4567)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 54 */
{ /* ./Cfa/cinfo.scm 54 */
bool_t BgL_auxz00_6819;
BgL_auxz00_6819 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2990z00_4567, BGl_svarzf2Cinfozf2zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_6819);} } 
}



/* widening-svar/Cinfo */
BGL_EXPORTED_DEF BgL_svarzf2cinfozf2_bglt BGl_wideningzd2svarzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt BgL_approx2967z00_328, bool_t BgL_clozd2envzf32968z21_329)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 54 */
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarzf2cinfozf2_bglt BgL_new2969z00_3102;
BgL_new2969z00_3102 = 
((BgL_svarzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_svarzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarzf2cinfozf2_bglt BgL_res6340z00_3108;
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarzf2cinfozf2_bglt BgL_new2978z00_3103;
BgL_new2978z00_3103 = BgL_new2969z00_3102; 
{ /* ./Cfa/cinfo.scm 54 */
BgL_approxz00_bglt BgL_approx2976z00_3106;bool_t BgL_clozd2envzf32977z21_3107;
BgL_approx2976z00_3106 = BgL_approx2967z00_328; 
BgL_clozd2envzf32977z21_3107 = BgL_clozd2envzf32968z21_329; 
((((BgL_svarzf2cinfozf2_bglt)CREF(BgL_new2978z00_3103))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2976z00_3106), BUNSPEC); 
((((BgL_svarzf2cinfozf2_bglt)CREF(BgL_new2978z00_3103))->BgL_clozd2envzf3z21) = ((bool_t)BgL_clozd2envzf32977z21_3107), BUNSPEC); 
BgL_res6340z00_3108 = BgL_new2978z00_3103; } } BgL_res6340z00_3108; } 
return BgL_new2969z00_3102;} } 
}



/* _widening-svar/Cinfo */
obj_t BGl__wideningzd2svarzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4568, obj_t BgL_approx2967z00_4569, obj_t BgL_clozd2envzf32968z21_4570)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 54 */
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarzf2cinfozf2_bglt BgL_auxz00_6825;
BgL_auxz00_6825 = 
BGl_wideningzd2svarzf2Cinfoz20zzcfa_infoz00(
(BgL_approxz00_bglt)(BgL_approx2967z00_4569), 
CBOOL(BgL_clozd2envzf32968z21_4570)); 
return 
(obj_t)(BgL_auxz00_6825);} } 
}



/* make-svar/Cinfo */
BGL_EXPORTED_DEF BgL_svarzf2cinfozf2_bglt BGl_makezd2svarzf2Cinfoz20zzcfa_infoz00(obj_t BgL_loc2973z00_330, BgL_approxz00_bglt BgL_approx2971z00_331, bool_t BgL_clozd2envzf32972z21_332)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 54 */
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarz00_bglt BgL_aux2974z00_1493;
BgL_aux2974z00_1493 = 
BGl_makezd2svarzd2zzast_varz00(BgL_loc2973z00_330); 
{ /* ./Cfa/cinfo.scm 54 */
long BgL_arg4677z00_1494;
BgL_arg4677z00_1494 = 
BGl_classzd2numzd2zz__objectz00(BGl_svarzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 54 */
BgL_objectz00_bglt BgL_objz00_3109;
BgL_objz00_3109 = 
(BgL_objectz00_bglt)(BgL_aux2974z00_1493); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3109, BgL_arg4677z00_1494); } } 
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarzf2cinfozf2_bglt BgL_arg4682z00_1495;
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarzf2cinfozf2_bglt BgL_res6342z00_3120;
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarzf2cinfozf2_bglt BgL_new2969z00_3113;
BgL_new2969z00_3113 = 
((BgL_svarzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_svarzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarzf2cinfozf2_bglt BgL_res6341z00_3119;
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarzf2cinfozf2_bglt BgL_new2978z00_3114;
BgL_new2978z00_3114 = BgL_new2969z00_3113; 
{ /* ./Cfa/cinfo.scm 54 */
BgL_approxz00_bglt BgL_approx2976z00_3117;bool_t BgL_clozd2envzf32977z21_3118;
BgL_approx2976z00_3117 = BgL_approx2971z00_331; 
BgL_clozd2envzf32977z21_3118 = BgL_clozd2envzf32972z21_332; 
((((BgL_svarzf2cinfozf2_bglt)CREF(BgL_new2978z00_3114))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2976z00_3117), BUNSPEC); 
((((BgL_svarzf2cinfozf2_bglt)CREF(BgL_new2978z00_3114))->BgL_clozd2envzf3z21) = ((bool_t)BgL_clozd2envzf32977z21_3118), BUNSPEC); 
BgL_res6341z00_3119 = BgL_new2978z00_3114; } } BgL_res6341z00_3119; } 
BgL_res6342z00_3120 = BgL_new2969z00_3113; } 
BgL_arg4682z00_1495 = BgL_res6342z00_3120; } 
{ /* ./Cfa/cinfo.scm 54 */
obj_t BgL_auxz00_6839;BgL_objectz00_bglt BgL_auxz00_6837;
BgL_auxz00_6839 = 
(obj_t)(BgL_arg4682z00_1495); 
BgL_auxz00_6837 = 
(BgL_objectz00_bglt)(BgL_aux2974z00_1493); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6837, BgL_auxz00_6839); } } 
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarzf2cinfozf2_bglt BgL_new2975z00_1496;
{ 
BgL_svarzf2cinfozf2_bglt BgL_auxz00_6842;
BgL_auxz00_6842 = 
(BgL_svarzf2cinfozf2_bglt)(BgL_aux2974z00_1493); 
BgL_new2975z00_1496 = 
((BgL_svarzf2cinfozf2_bglt)BgL_auxz00_6842); } 
{ /* ./Cfa/cinfo.scm 54 */
obj_t BgL_objz00_3121;
BgL_objz00_3121 = 
(obj_t)(BgL_new2975z00_1496); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3121); BUNSPEC; } 
return BgL_new2975z00_1496;} } } 
}



/* _make-svar/Cinfo6598 */
obj_t BGl__makezd2svarzf2Cinfo6598z20zzcfa_infoz00(obj_t BgL_envz00_4571, obj_t BgL_loc2973z00_4572, obj_t BgL_approx2971z00_4573, obj_t BgL_clozd2envzf32972z21_4574)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 54 */
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarzf2cinfozf2_bglt BgL_auxz00_6847;
BgL_auxz00_6847 = 
BGl_makezd2svarzf2Cinfoz20zzcfa_infoz00(BgL_loc2973z00_4572, 
(BgL_approxz00_bglt)(BgL_approx2971z00_4573), 
CBOOL(BgL_clozd2envzf32972z21_4574)); 
return 
(obj_t)(BgL_auxz00_6847);} } 
}



/* fill-svar/Cinfo! */
BGL_EXPORTED_DEF BgL_svarzf2cinfozf2_bglt BGl_fillzd2svarzf2Cinfoz12z32zzcfa_infoz00(BgL_svarzf2cinfozf2_bglt BgL_new2978z00_333, BgL_approxz00_bglt BgL_approx2976z00_334, bool_t BgL_clozd2envzf32977z21_335)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 54 */
{ /* ./Cfa/cinfo.scm 54 */
BgL_approxz00_bglt BgL_approx2976z00_5230;bool_t BgL_clozd2envzf32977z21_5231;
BgL_approx2976z00_5230 = BgL_approx2976z00_334; 
BgL_clozd2envzf32977z21_5231 = BgL_clozd2envzf32977z21_335; 
((((BgL_svarzf2cinfozf2_bglt)CREF(BgL_new2978z00_333))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2976z00_5230), BUNSPEC); 
((((BgL_svarzf2cinfozf2_bglt)CREF(BgL_new2978z00_333))->BgL_clozd2envzf3z21) = ((bool_t)BgL_clozd2envzf32977z21_5231), BUNSPEC); 
return BgL_new2978z00_333;} } 
}



/* _fill-svar/Cinfo!6600 */
obj_t BGl__fillzd2svarzf2Cinfoz126600z32zzcfa_infoz00(obj_t BgL_envz00_4575, obj_t BgL_new2978z00_4576, obj_t BgL_approx2976z00_4577, obj_t BgL_clozd2envzf32977z21_4578)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 54 */
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarzf2cinfozf2_bglt BgL_auxz00_6854;
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarzf2cinfozf2_bglt BgL_res8208z00_5237;
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarzf2cinfozf2_bglt BgL_new2978z00_5232;BgL_approxz00_bglt BgL_approx2976z00_5233;bool_t BgL_clozd2envzf32977z21_5234;
BgL_new2978z00_5232 = 
(BgL_svarzf2cinfozf2_bglt)(BgL_new2978z00_4576); 
BgL_approx2976z00_5233 = 
(BgL_approxz00_bglt)(BgL_approx2976z00_4577); 
BgL_clozd2envzf32977z21_5234 = 
CBOOL(BgL_clozd2envzf32977z21_4578); 
{ /* ./Cfa/cinfo.scm 54 */
BgL_approxz00_bglt BgL_approx2976z00_5235;bool_t BgL_clozd2envzf32977z21_5236;
BgL_approx2976z00_5235 = BgL_approx2976z00_5233; 
BgL_clozd2envzf32977z21_5236 = BgL_clozd2envzf32977z21_5234; 
((((BgL_svarzf2cinfozf2_bglt)CREF(BgL_new2978z00_5232))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2976z00_5235), BUNSPEC); 
((((BgL_svarzf2cinfozf2_bglt)CREF(BgL_new2978z00_5232))->BgL_clozd2envzf3z21) = ((bool_t)BgL_clozd2envzf32977z21_5236), BUNSPEC); 
BgL_res8208z00_5237 = BgL_new2978z00_5232; } } 
BgL_auxz00_6854 = BgL_res8208z00_5237; } 
return 
(obj_t)(BgL_auxz00_6854);} } 
}



/* allocate-svar/Cinfo */
BGL_EXPORTED_DEF BgL_svarz00_bglt BGl_allocatezd2svarzf2Cinfoz20zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 54 */
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarz00_bglt BgL_new2982z00_5238;
BgL_new2982z00_5238 = 
((BgL_svarz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_svarz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 54 */
long BgL_arg4688z00_5239;
BgL_arg4688z00_5239 = 
BGl_classzd2numzd2zz__objectz00(BGl_svarzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 54 */
BgL_objectz00_bglt BgL_objz00_5240;
BgL_objz00_5240 = 
(BgL_objectz00_bglt)(BgL_new2982z00_5238); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5240, BgL_arg4688z00_5239); } } 
{ /* ./Cfa/cinfo.scm 54 */
BgL_objectz00_bglt BgL_auxz00_6865;
BgL_auxz00_6865 = 
(BgL_objectz00_bglt)(BgL_new2982z00_5238); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6865, BFALSE); } 
{ /* ./Cfa/cinfo.scm 54 */
obj_t BgL_objz00_5241;
BgL_objz00_5241 = 
(obj_t)(BgL_new2982z00_5238); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5241); BUNSPEC; } 
return BgL_new2982z00_5238;} } 
}



/* _allocate-svar/Cinfo */
obj_t BGl__allocatezd2svarzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4228)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 54 */
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarz00_bglt BgL_auxz00_6870;
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarz00_bglt BgL_res8209z00_5246;
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarz00_bglt BgL_new2982z00_5242;
BgL_new2982z00_5242 = 
((BgL_svarz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_svarz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 54 */
long BgL_arg4688z00_5243;
BgL_arg4688z00_5243 = 
BGl_classzd2numzd2zz__objectz00(BGl_svarzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 54 */
BgL_objectz00_bglt BgL_objz00_5244;
BgL_objz00_5244 = 
(BgL_objectz00_bglt)(BgL_new2982z00_5242); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5244, BgL_arg4688z00_5243); } } 
{ /* ./Cfa/cinfo.scm 54 */
BgL_objectz00_bglt BgL_auxz00_6875;
BgL_auxz00_6875 = 
(BgL_objectz00_bglt)(BgL_new2982z00_5242); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6875, BFALSE); } 
{ /* ./Cfa/cinfo.scm 54 */
obj_t BgL_objz00_5245;
BgL_objz00_5245 = 
(obj_t)(BgL_new2982z00_5242); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5245); BUNSPEC; } 
BgL_res8209z00_5246 = BgL_new2982z00_5242; } 
BgL_auxz00_6870 = BgL_res8209z00_5246; } 
return 
(obj_t)(BgL_auxz00_6870);} } 
}



/* pre-clo-env? */
BGL_EXPORTED_DEF bool_t BGl_prezd2clozd2envzf3zf3zzcfa_infoz00(obj_t BgL_obj2963z00_340)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 53 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2963z00_340, BGl_prezd2clozd2envz00zzcfa_infoz00);} 
}



/* _pre-clo-env? */
obj_t BGl__prezd2clozd2envzf3zf3zzcfa_infoz00(obj_t BgL_envz00_4579, obj_t BgL_obj2963z00_4580)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 53 */
{ /* ./Cfa/cinfo.scm 53 */
bool_t BgL_auxz00_6882;
BgL_auxz00_6882 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2963z00_4580, BGl_prezd2clozd2envz00zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_6882);} } 
}



/* widening-pre-clo-env */
BGL_EXPORTED_DEF BgL_prezd2clozd2envz00_bglt BGl_wideningzd2prezd2clozd2envzd2zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 53 */
{ /* ./Cfa/cinfo.scm 53 */
BgL_prezd2clozd2envz00_bglt BgL_new2949z00_1501;
BgL_new2949z00_1501 = 
((BgL_prezd2clozd2envz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_prezd2clozd2envz00_bgl)))); 
return BgL_new2949z00_1501;} } 
}



/* _widening-pre-clo-env */
obj_t BGl__wideningzd2prezd2clozd2envzd2zzcfa_infoz00(obj_t BgL_envz00_4581)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 53 */
{ /* ./Cfa/cinfo.scm 53 */
BgL_prezd2clozd2envz00_bglt BgL_auxz00_6886;
BgL_auxz00_6886 = 
BGl_wideningzd2prezd2clozd2envzd2zzcfa_infoz00(); 
return 
(obj_t)(BgL_auxz00_6886);} } 
}



/* make-pre-clo-env */
BGL_EXPORTED_DEF BgL_prezd2clozd2envz00_bglt BGl_makezd2prezd2clozd2envzd2zzcfa_infoz00(obj_t BgL_loc2951z00_344)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 53 */
{ /* ./Cfa/cinfo.scm 53 */
BgL_svarz00_bglt BgL_aux2952z00_1502;
BgL_aux2952z00_1502 = 
BGl_makezd2svarzd2zzast_varz00(BgL_loc2951z00_344); 
{ /* ./Cfa/cinfo.scm 53 */
long BgL_arg4699z00_1503;
BgL_arg4699z00_1503 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2clozd2envz00zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 53 */
BgL_objectz00_bglt BgL_objz00_3130;
BgL_objz00_3130 = 
(BgL_objectz00_bglt)(BgL_aux2952z00_1502); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3130, BgL_arg4699z00_1503); } } 
{ /* ./Cfa/cinfo.scm 53 */
BgL_prezd2clozd2envz00_bglt BgL_arg4703z00_1504;
BgL_arg4703z00_1504 = 
BGl_wideningzd2prezd2clozd2envzd2zzcfa_infoz00(); 
{ /* ./Cfa/cinfo.scm 53 */
obj_t BgL_auxz00_6896;BgL_objectz00_bglt BgL_auxz00_6894;
BgL_auxz00_6896 = 
(obj_t)(BgL_arg4703z00_1504); 
BgL_auxz00_6894 = 
(BgL_objectz00_bglt)(BgL_aux2952z00_1502); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6894, BgL_auxz00_6896); } } 
{ /* ./Cfa/cinfo.scm 53 */
BgL_prezd2clozd2envz00_bglt BgL_new2953z00_1505;
{ 
BgL_prezd2clozd2envz00_bglt BgL_auxz00_6899;
BgL_auxz00_6899 = 
(BgL_prezd2clozd2envz00_bglt)(BgL_aux2952z00_1502); 
BgL_new2953z00_1505 = 
((BgL_prezd2clozd2envz00_bglt)BgL_auxz00_6899); } 
{ /* ./Cfa/cinfo.scm 53 */
obj_t BgL_objz00_3132;
BgL_objz00_3132 = 
(obj_t)(BgL_new2953z00_1505); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3132); BUNSPEC; } 
return BgL_new2953z00_1505;} } } 
}



/* _make-pre-clo-env */
obj_t BGl__makezd2prezd2clozd2envzd2zzcfa_infoz00(obj_t BgL_envz00_4582, obj_t BgL_loc2951z00_4583)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 53 */
{ /* ./Cfa/cinfo.scm 53 */
BgL_prezd2clozd2envz00_bglt BgL_auxz00_6904;
BgL_auxz00_6904 = 
BGl_makezd2prezd2clozd2envzd2zzcfa_infoz00(BgL_loc2951z00_4583); 
return 
(obj_t)(BgL_auxz00_6904);} } 
}



/* fill-pre-clo-env! */
BGL_EXPORTED_DEF BgL_prezd2clozd2envz00_bglt BGl_fillzd2prezd2clozd2envz12zc0zzcfa_infoz00(BgL_prezd2clozd2envz00_bglt BgL_new2954z00_345)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 53 */
{ /* ./Cfa/cinfo.scm 53 */

return BgL_new2954z00_345;} } 
}



/* _fill-pre-clo-env!6605 */
obj_t BGl__fillzd2prezd2clozd2envz126605zc0zzcfa_infoz00(obj_t BgL_envz00_4584, obj_t BgL_new2954z00_4585)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 53 */
{ /* ./Cfa/cinfo.scm 53 */
BgL_prezd2clozd2envz00_bglt BgL_auxz00_6907;
{ /* ./Cfa/cinfo.scm 53 */

BgL_auxz00_6907 = 
(BgL_prezd2clozd2envz00_bglt)(BgL_new2954z00_4585); } 
return 
(obj_t)(BgL_auxz00_6907);} } 
}



/* allocate-pre-clo-env */
BGL_EXPORTED_DEF BgL_svarz00_bglt BGl_allocatezd2prezd2clozd2envzd2zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 53 */
{ /* ./Cfa/cinfo.scm 53 */
BgL_svarz00_bglt BgL_new2956z00_5249;
BgL_new2956z00_5249 = 
((BgL_svarz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_svarz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 53 */
long BgL_arg4709z00_5250;
BgL_arg4709z00_5250 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2clozd2envz00zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 53 */
BgL_objectz00_bglt BgL_objz00_5251;
BgL_objz00_5251 = 
(BgL_objectz00_bglt)(BgL_new2956z00_5249); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5251, BgL_arg4709z00_5250); } } 
{ /* ./Cfa/cinfo.scm 53 */
BgL_objectz00_bglt BgL_auxz00_6914;
BgL_auxz00_6914 = 
(BgL_objectz00_bglt)(BgL_new2956z00_5249); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6914, BFALSE); } 
{ /* ./Cfa/cinfo.scm 53 */
obj_t BgL_objz00_5252;
BgL_objz00_5252 = 
(obj_t)(BgL_new2956z00_5249); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5252); BUNSPEC; } 
return BgL_new2956z00_5249;} } 
}



/* _allocate-pre-clo-env */
obj_t BGl__allocatezd2prezd2clozd2envzd2zzcfa_infoz00(obj_t BgL_envz00_4227)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 53 */
{ /* ./Cfa/cinfo.scm 53 */
BgL_svarz00_bglt BgL_auxz00_6919;
{ /* ./Cfa/cinfo.scm 53 */
BgL_svarz00_bglt BgL_res8210z00_5257;
{ /* ./Cfa/cinfo.scm 53 */
BgL_svarz00_bglt BgL_new2956z00_5253;
BgL_new2956z00_5253 = 
((BgL_svarz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_svarz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 53 */
long BgL_arg4709z00_5254;
BgL_arg4709z00_5254 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2clozd2envz00zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 53 */
BgL_objectz00_bglt BgL_objz00_5255;
BgL_objz00_5255 = 
(BgL_objectz00_bglt)(BgL_new2956z00_5253); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5255, BgL_arg4709z00_5254); } } 
{ /* ./Cfa/cinfo.scm 53 */
BgL_objectz00_bglt BgL_auxz00_6924;
BgL_auxz00_6924 = 
(BgL_objectz00_bglt)(BgL_new2956z00_5253); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6924, BFALSE); } 
{ /* ./Cfa/cinfo.scm 53 */
obj_t BgL_objz00_5256;
BgL_objz00_5256 = 
(obj_t)(BgL_new2956z00_5253); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5256); BUNSPEC; } 
BgL_res8210z00_5257 = BgL_new2956z00_5253; } 
BgL_auxz00_6919 = BgL_res8210z00_5257; } 
return 
(obj_t)(BgL_auxz00_6919);} } 
}



/* scnst/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_scnstzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_obj2940z00_346)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 49 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2940z00_346, BGl_scnstzf2Cinfozf2zzcfa_infoz00);} 
}



/* _scnst/Cinfo? */
obj_t BGl__scnstzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_envz00_4586, obj_t BgL_obj2940z00_4587)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 49 */
{ /* ./Cfa/cinfo.scm 49 */
bool_t BgL_auxz00_6931;
BgL_auxz00_6931 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2940z00_4587, BGl_scnstzf2Cinfozf2zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_6931);} } 
}



/* widening-scnst/Cinfo */
BGL_EXPORTED_DEF BgL_scnstzf2cinfozf2_bglt BGl_wideningzd2scnstzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt BgL_approx2920z00_350)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 49 */
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstzf2cinfozf2_bglt BgL_new2921z00_3138;
BgL_new2921z00_3138 = 
((BgL_scnstzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_scnstzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstzf2cinfozf2_bglt BgL_res6343z00_3142;
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstzf2cinfozf2_bglt BgL_new2930z00_3139;
BgL_new2930z00_3139 = BgL_new2921z00_3138; 
{ /* ./Cfa/cinfo.scm 49 */
BgL_approxz00_bglt BgL_approx2929z00_3141;
BgL_approx2929z00_3141 = BgL_approx2920z00_350; 
((((BgL_scnstzf2cinfozf2_bglt)CREF(BgL_new2930z00_3139))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2929z00_3141), BUNSPEC); 
BgL_res6343z00_3142 = BgL_new2930z00_3139; } } BgL_res6343z00_3142; } 
return BgL_new2921z00_3138;} } 
}



/* _widening-scnst/Cinfo */
obj_t BGl__wideningzd2scnstzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4588, obj_t BgL_approx2920z00_4589)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 49 */
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstzf2cinfozf2_bglt BgL_auxz00_6936;
BgL_auxz00_6936 = 
BGl_wideningzd2scnstzf2Cinfoz20zzcfa_infoz00(
(BgL_approxz00_bglt)(BgL_approx2920z00_4589)); 
return 
(obj_t)(BgL_auxz00_6936);} } 
}



/* make-scnst/Cinfo */
BGL_EXPORTED_DEF BgL_scnstzf2cinfozf2_bglt BGl_makezd2scnstzf2Cinfoz20zzcfa_infoz00(obj_t BgL_node2924z00_351, obj_t BgL_class2925z00_352, obj_t BgL_loc2926z00_353, BgL_approxz00_bglt BgL_approx2923z00_354)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 49 */
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstz00_bglt BgL_aux2927z00_3143;
BgL_aux2927z00_3143 = 
BGl_makezd2scnstzd2zzast_varz00(BgL_node2924z00_351, BgL_class2925z00_352, BgL_loc2926z00_353); 
{ /* ./Cfa/cinfo.scm 49 */
long BgL_arg4717z00_3144;
BgL_arg4717z00_3144 = 
BGl_classzd2numzd2zz__objectz00(BGl_scnstzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 49 */
BgL_objectz00_bglt BgL_objz00_3147;
BgL_objz00_3147 = 
(BgL_objectz00_bglt)(BgL_aux2927z00_3143); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3147, BgL_arg4717z00_3144); } } 
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstzf2cinfozf2_bglt BgL_arg4721z00_3145;
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstzf2cinfozf2_bglt BgL_res6345z00_3155;
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstzf2cinfozf2_bglt BgL_new2921z00_3150;
BgL_new2921z00_3150 = 
((BgL_scnstzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_scnstzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstzf2cinfozf2_bglt BgL_res6344z00_3154;
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstzf2cinfozf2_bglt BgL_new2930z00_3151;
BgL_new2930z00_3151 = BgL_new2921z00_3150; 
{ /* ./Cfa/cinfo.scm 49 */
BgL_approxz00_bglt BgL_approx2929z00_3153;
BgL_approx2929z00_3153 = BgL_approx2923z00_354; 
((((BgL_scnstzf2cinfozf2_bglt)CREF(BgL_new2930z00_3151))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2929z00_3153), BUNSPEC); 
BgL_res6344z00_3154 = BgL_new2930z00_3151; } } BgL_res6344z00_3154; } 
BgL_res6345z00_3155 = BgL_new2921z00_3150; } 
BgL_arg4721z00_3145 = BgL_res6345z00_3155; } 
{ /* ./Cfa/cinfo.scm 49 */
obj_t BgL_auxz00_6948;BgL_objectz00_bglt BgL_auxz00_6946;
BgL_auxz00_6948 = 
(obj_t)(BgL_arg4721z00_3145); 
BgL_auxz00_6946 = 
(BgL_objectz00_bglt)(BgL_aux2927z00_3143); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6946, BgL_auxz00_6948); } } 
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstzf2cinfozf2_bglt BgL_new2928z00_3146;
{ 
BgL_scnstzf2cinfozf2_bglt BgL_auxz00_6951;
BgL_auxz00_6951 = 
(BgL_scnstzf2cinfozf2_bglt)(BgL_aux2927z00_3143); 
BgL_new2928z00_3146 = 
((BgL_scnstzf2cinfozf2_bglt)BgL_auxz00_6951); } 
{ /* ./Cfa/cinfo.scm 49 */
obj_t BgL_objz00_3156;
BgL_objz00_3156 = 
(obj_t)(BgL_new2928z00_3146); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3156); BUNSPEC; } 
return BgL_new2928z00_3146;} } } 
}



/* _make-scnst/Cinfo6609 */
obj_t BGl__makezd2scnstzf2Cinfo6609z20zzcfa_infoz00(obj_t BgL_envz00_4590, obj_t BgL_node2924z00_4591, obj_t BgL_class2925z00_4592, obj_t BgL_loc2926z00_4593, obj_t BgL_approx2923z00_4594)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 49 */
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstzf2cinfozf2_bglt BgL_auxz00_6956;
BgL_auxz00_6956 = 
BGl_makezd2scnstzf2Cinfoz20zzcfa_infoz00(BgL_node2924z00_4591, BgL_class2925z00_4592, BgL_loc2926z00_4593, 
(BgL_approxz00_bglt)(BgL_approx2923z00_4594)); 
return 
(obj_t)(BgL_auxz00_6956);} } 
}



/* fill-scnst/Cinfo! */
BGL_EXPORTED_DEF BgL_scnstzf2cinfozf2_bglt BGl_fillzd2scnstzf2Cinfoz12z32zzcfa_infoz00(BgL_scnstzf2cinfozf2_bglt BgL_new2930z00_355, BgL_approxz00_bglt BgL_approx2929z00_356)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 49 */
{ /* ./Cfa/cinfo.scm 49 */
BgL_approxz00_bglt BgL_approx2929z00_5259;
BgL_approx2929z00_5259 = BgL_approx2929z00_356; 
((((BgL_scnstzf2cinfozf2_bglt)CREF(BgL_new2930z00_355))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2929z00_5259), BUNSPEC); 
return BgL_new2930z00_355;} } 
}



/* _fill-scnst/Cinfo!6611 */
obj_t BGl__fillzd2scnstzf2Cinfoz126611z32zzcfa_infoz00(obj_t BgL_envz00_4595, obj_t BgL_new2930z00_4596, obj_t BgL_approx2929z00_4597)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 49 */
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstzf2cinfozf2_bglt BgL_auxz00_6961;
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstzf2cinfozf2_bglt BgL_res8211z00_5263;
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstzf2cinfozf2_bglt BgL_new2930z00_5260;BgL_approxz00_bglt BgL_approx2929z00_5261;
BgL_new2930z00_5260 = 
(BgL_scnstzf2cinfozf2_bglt)(BgL_new2930z00_4596); 
BgL_approx2929z00_5261 = 
(BgL_approxz00_bglt)(BgL_approx2929z00_4597); 
{ /* ./Cfa/cinfo.scm 49 */
BgL_approxz00_bglt BgL_approx2929z00_5262;
BgL_approx2929z00_5262 = BgL_approx2929z00_5261; 
((((BgL_scnstzf2cinfozf2_bglt)CREF(BgL_new2930z00_5260))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2929z00_5262), BUNSPEC); 
BgL_res8211z00_5263 = BgL_new2930z00_5260; } } 
BgL_auxz00_6961 = BgL_res8211z00_5263; } 
return 
(obj_t)(BgL_auxz00_6961);} } 
}



/* allocate-scnst/Cinfo */
BGL_EXPORTED_DEF BgL_scnstz00_bglt BGl_allocatezd2scnstzf2Cinfoz20zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 49 */
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstz00_bglt BgL_new2933z00_5264;
BgL_new2933z00_5264 = 
((BgL_scnstz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_scnstz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 49 */
long BgL_arg4727z00_5265;
BgL_arg4727z00_5265 = 
BGl_classzd2numzd2zz__objectz00(BGl_scnstzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 49 */
BgL_objectz00_bglt BgL_objz00_5266;
BgL_objz00_5266 = 
(BgL_objectz00_bglt)(BgL_new2933z00_5264); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5266, BgL_arg4727z00_5265); } } 
{ /* ./Cfa/cinfo.scm 49 */
BgL_objectz00_bglt BgL_auxz00_6970;
BgL_auxz00_6970 = 
(BgL_objectz00_bglt)(BgL_new2933z00_5264); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6970, BFALSE); } 
{ /* ./Cfa/cinfo.scm 49 */
obj_t BgL_objz00_5267;
BgL_objz00_5267 = 
(obj_t)(BgL_new2933z00_5264); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5267); BUNSPEC; } 
return BgL_new2933z00_5264;} } 
}



/* _allocate-scnst/Cinfo */
obj_t BGl__allocatezd2scnstzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4226)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 49 */
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstz00_bglt BgL_auxz00_6975;
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstz00_bglt BgL_res8212z00_5272;
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstz00_bglt BgL_new2933z00_5268;
BgL_new2933z00_5268 = 
((BgL_scnstz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_scnstz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 49 */
long BgL_arg4727z00_5269;
BgL_arg4727z00_5269 = 
BGl_classzd2numzd2zz__objectz00(BGl_scnstzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 49 */
BgL_objectz00_bglt BgL_objz00_5270;
BgL_objz00_5270 = 
(BgL_objectz00_bglt)(BgL_new2933z00_5268); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5270, BgL_arg4727z00_5269); } } 
{ /* ./Cfa/cinfo.scm 49 */
BgL_objectz00_bglt BgL_auxz00_6980;
BgL_auxz00_6980 = 
(BgL_objectz00_bglt)(BgL_new2933z00_5268); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6980, BFALSE); } 
{ /* ./Cfa/cinfo.scm 49 */
obj_t BgL_objz00_5271;
BgL_objz00_5271 = 
(obj_t)(BgL_new2933z00_5268); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5271); BUNSPEC; } 
BgL_res8212z00_5272 = BgL_new2933z00_5268; } 
BgL_auxz00_6975 = BgL_res8212z00_5272; } 
return 
(obj_t)(BgL_auxz00_6975);} } 
}



/* intern-sfun/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_internzd2sfunzf2Cinfozf3zd3zzcfa_infoz00(obj_t BgL_obj2877z00_358)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 44 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2877z00_358, BGl_internzd2sfunzf2Cinfoz20zzcfa_infoz00);} 
}



/* _intern-sfun/Cinfo? */
obj_t BGl__internzd2sfunzf2Cinfozf3zd3zzcfa_infoz00(obj_t BgL_envz00_4598, obj_t BgL_obj2877z00_4599)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 44 */
{ /* ./Cfa/cinfo.scm 44 */
bool_t BgL_auxz00_6987;
BgL_auxz00_6987 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2877z00_4599, BGl_internzd2sfunzf2Cinfoz20zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_6987);} } 
}



/* widening-intern-sfun/Cinfo */
BGL_EXPORTED_DEF BgL_internzd2sfunzf2cinfoz20_bglt BGl_wideningzd2internzd2sfunzf2Cinfozf2zzcfa_infoz00(BgL_approxz00_bglt BgL_approx2843z00_362, long BgL_stamp2844z00_363)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 44 */
{ /* ./Cfa/cinfo.scm 44 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_new2845z00_3163;
BgL_new2845z00_3163 = 
((BgL_internzd2sfunzf2cinfoz20_bglt)BREF( GC_MALLOC (sizeof(struct BgL_internzd2sfunzf2cinfoz20_bgl)))); 
{ /* ./Cfa/cinfo.scm 44 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_res6346z00_3169;
{ /* ./Cfa/cinfo.scm 44 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_new2866z00_3164;
BgL_new2866z00_3164 = BgL_new2845z00_3163; 
{ /* ./Cfa/cinfo.scm 44 */
BgL_approxz00_bglt BgL_approx2864z00_3167;long BgL_stamp2865z00_3168;
BgL_approx2864z00_3167 = BgL_approx2843z00_362; 
BgL_stamp2865z00_3168 = BgL_stamp2844z00_363; 
((((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_new2866z00_3164))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2864z00_3167), BUNSPEC); 
((((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_new2866z00_3164))->BgL_stampz00) = ((long)BgL_stamp2865z00_3168), BUNSPEC); 
BgL_res6346z00_3169 = BgL_new2866z00_3164; } } BgL_res6346z00_3169; } 
return BgL_new2845z00_3163;} } 
}



/* _widening-intern-sfun/Cinfo */
obj_t BGl__wideningzd2internzd2sfunzf2Cinfozf2zzcfa_infoz00(obj_t BgL_envz00_4600, obj_t BgL_approx2843z00_4601, obj_t BgL_stamp2844z00_4602)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 44 */
{ /* ./Cfa/cinfo.scm 44 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_auxz00_6993;
BgL_auxz00_6993 = 
BGl_wideningzd2internzd2sfunzf2Cinfozf2zzcfa_infoz00(
(BgL_approxz00_bglt)(BgL_approx2843z00_4601), 
(long)CINT(BgL_stamp2844z00_4602)); 
return 
(obj_t)(BgL_auxz00_6993);} } 
}



/* make-intern-sfun/Cinfo */
BGL_EXPORTED_DEF BgL_internzd2sfunzf2cinfoz20_bglt BGl_makezd2internzd2sfunzf2Cinfozf2zzcfa_infoz00(long BgL_arity2849z00_364, obj_t BgL_sidezd2effectzf32850z21_365, obj_t BgL_predicatezd2of2851zd2_366, obj_t BgL_stackzd2allocator2852zd2_367, bool_t BgL_topzf32853zf3_368, obj_t BgL_thezd2closure2854zd2_369, obj_t BgL_effect2855z00_370, obj_t BgL_property2856z00_371, obj_t BgL_args2857z00_372, obj_t BgL_body2858z00_373, obj_t BgL_class2859z00_374, obj_t BgL_dssslzd2keywords2860zd2_375, obj_t BgL_loc2861z00_376, BgL_approxz00_bglt BgL_approx2847z00_377, long BgL_stamp2848z00_378)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 44 */
{ /* ./Cfa/cinfo.scm 44 */
BgL_sfunz00_bglt BgL_aux2862z00_3170;
BgL_aux2862z00_3170 = 
BGl_makezd2sfunzd2zzast_varz00(BgL_arity2849z00_364, BgL_sidezd2effectzf32850z21_365, BgL_predicatezd2of2851zd2_366, BgL_stackzd2allocator2852zd2_367, BgL_topzf32853zf3_368, BgL_thezd2closure2854zd2_369, BgL_effect2855z00_370, BgL_property2856z00_371, BgL_args2857z00_372, BgL_body2858z00_373, BgL_class2859z00_374, BgL_dssslzd2keywords2860zd2_375, BgL_loc2861z00_376); 
{ /* ./Cfa/cinfo.scm 44 */
long BgL_arg4736z00_3171;
BgL_arg4736z00_3171 = 
BGl_classzd2numzd2zz__objectz00(BGl_internzd2sfunzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 44 */
BgL_objectz00_bglt BgL_objz00_3174;
BgL_objz00_3174 = 
(BgL_objectz00_bglt)(BgL_aux2862z00_3170); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3174, BgL_arg4736z00_3171); } } 
{ /* ./Cfa/cinfo.scm 44 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_arg4740z00_3172;
{ /* ./Cfa/cinfo.scm 44 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_res6348z00_3185;
{ /* ./Cfa/cinfo.scm 44 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_new2845z00_3178;
BgL_new2845z00_3178 = 
((BgL_internzd2sfunzf2cinfoz20_bglt)BREF( GC_MALLOC (sizeof(struct BgL_internzd2sfunzf2cinfoz20_bgl)))); 
{ /* ./Cfa/cinfo.scm 44 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_res6347z00_3184;
{ /* ./Cfa/cinfo.scm 44 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_new2866z00_3179;
BgL_new2866z00_3179 = BgL_new2845z00_3178; 
{ /* ./Cfa/cinfo.scm 44 */
BgL_approxz00_bglt BgL_approx2864z00_3182;long BgL_stamp2865z00_3183;
BgL_approx2864z00_3182 = BgL_approx2847z00_377; 
BgL_stamp2865z00_3183 = BgL_stamp2848z00_378; 
((((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_new2866z00_3179))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2864z00_3182), BUNSPEC); 
((((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_new2866z00_3179))->BgL_stampz00) = ((long)BgL_stamp2865z00_3183), BUNSPEC); 
BgL_res6347z00_3184 = BgL_new2866z00_3179; } } BgL_res6347z00_3184; } 
BgL_res6348z00_3185 = BgL_new2845z00_3178; } 
BgL_arg4740z00_3172 = BgL_res6348z00_3185; } 
{ /* ./Cfa/cinfo.scm 44 */
obj_t BgL_auxz00_7007;BgL_objectz00_bglt BgL_auxz00_7005;
BgL_auxz00_7007 = 
(obj_t)(BgL_arg4740z00_3172); 
BgL_auxz00_7005 = 
(BgL_objectz00_bglt)(BgL_aux2862z00_3170); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7005, BgL_auxz00_7007); } } 
{ /* ./Cfa/cinfo.scm 44 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_new2863z00_3173;
{ 
BgL_internzd2sfunzf2cinfoz20_bglt BgL_auxz00_7010;
BgL_auxz00_7010 = 
(BgL_internzd2sfunzf2cinfoz20_bglt)(BgL_aux2862z00_3170); 
BgL_new2863z00_3173 = 
((BgL_internzd2sfunzf2cinfoz20_bglt)BgL_auxz00_7010); } 
{ /* ./Cfa/cinfo.scm 44 */
obj_t BgL_objz00_3186;
BgL_objz00_3186 = 
(obj_t)(BgL_new2863z00_3173); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3186); BUNSPEC; } 
return BgL_new2863z00_3173;} } } 
}



/* _make-intern-sfun/Cinfo6615 */
obj_t BGl__makezd2internzd2sfunzf2Cinfo6615zf2zzcfa_infoz00(obj_t BgL_envz00_4603, obj_t BgL_arity2849z00_4604, obj_t BgL_sidezd2effectzf32850z21_4605, obj_t BgL_predicatezd2of2851zd2_4606, obj_t BgL_stackzd2allocator2852zd2_4607, obj_t BgL_topzf32853zf3_4608, obj_t BgL_thezd2closure2854zd2_4609, obj_t BgL_effect2855z00_4610, obj_t BgL_property2856z00_4611, obj_t BgL_args2857z00_4612, obj_t BgL_body2858z00_4613, obj_t BgL_class2859z00_4614, obj_t BgL_dssslzd2keywords2860zd2_4615, obj_t BgL_loc2861z00_4616, obj_t BgL_approx2847z00_4617, obj_t BgL_stamp2848z00_4618)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 44 */
{ /* ./Cfa/cinfo.scm 44 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_auxz00_7015;
BgL_auxz00_7015 = 
BGl_makezd2internzd2sfunzf2Cinfozf2zzcfa_infoz00(
(long)CINT(BgL_arity2849z00_4604), BgL_sidezd2effectzf32850z21_4605, BgL_predicatezd2of2851zd2_4606, BgL_stackzd2allocator2852zd2_4607, 
CBOOL(BgL_topzf32853zf3_4608), BgL_thezd2closure2854zd2_4609, BgL_effect2855z00_4610, BgL_property2856z00_4611, BgL_args2857z00_4612, BgL_body2858z00_4613, BgL_class2859z00_4614, BgL_dssslzd2keywords2860zd2_4615, BgL_loc2861z00_4616, 
(BgL_approxz00_bglt)(BgL_approx2847z00_4617), 
(long)CINT(BgL_stamp2848z00_4618)); 
return 
(obj_t)(BgL_auxz00_7015);} } 
}



/* fill-intern-sfun/Cinfo! */
BGL_EXPORTED_DEF BgL_internzd2sfunzf2cinfoz20_bglt BGl_fillzd2internzd2sfunzf2Cinfoz12ze0zzcfa_infoz00(BgL_internzd2sfunzf2cinfoz20_bglt BgL_new2866z00_379, BgL_approxz00_bglt BgL_approx2864z00_380, long BgL_stamp2865z00_381)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 44 */
{ /* ./Cfa/cinfo.scm 44 */
BgL_approxz00_bglt BgL_approx2864z00_5274;long BgL_stamp2865z00_5275;
BgL_approx2864z00_5274 = BgL_approx2864z00_380; 
BgL_stamp2865z00_5275 = BgL_stamp2865z00_381; 
((((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_new2866z00_379))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2864z00_5274), BUNSPEC); 
((((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_new2866z00_379))->BgL_stampz00) = ((long)BgL_stamp2865z00_5275), BUNSPEC); 
return BgL_new2866z00_379;} } 
}



/* _fill-intern-sfun/Cinfo!6617 */
obj_t BGl__fillzd2internzd2sfunzf2Cinfoz126617ze0zzcfa_infoz00(obj_t BgL_envz00_4619, obj_t BgL_new2866z00_4620, obj_t BgL_approx2864z00_4621, obj_t BgL_stamp2865z00_4622)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 44 */
{ /* ./Cfa/cinfo.scm 44 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_auxz00_7024;
{ /* ./Cfa/cinfo.scm 44 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_res8213z00_5281;
{ /* ./Cfa/cinfo.scm 44 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_new2866z00_5276;BgL_approxz00_bglt BgL_approx2864z00_5277;long BgL_stamp2865z00_5278;
BgL_new2866z00_5276 = 
(BgL_internzd2sfunzf2cinfoz20_bglt)(BgL_new2866z00_4620); 
BgL_approx2864z00_5277 = 
(BgL_approxz00_bglt)(BgL_approx2864z00_4621); 
BgL_stamp2865z00_5278 = 
(long)CINT(BgL_stamp2865z00_4622); 
{ /* ./Cfa/cinfo.scm 44 */
BgL_approxz00_bglt BgL_approx2864z00_5279;long BgL_stamp2865z00_5280;
BgL_approx2864z00_5279 = BgL_approx2864z00_5277; 
BgL_stamp2865z00_5280 = BgL_stamp2865z00_5278; 
((((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_new2866z00_5276))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2864z00_5279), BUNSPEC); 
((((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_new2866z00_5276))->BgL_stampz00) = ((long)BgL_stamp2865z00_5280), BUNSPEC); 
BgL_res8213z00_5281 = BgL_new2866z00_5276; } } 
BgL_auxz00_7024 = BgL_res8213z00_5281; } 
return 
(obj_t)(BgL_auxz00_7024);} } 
}



/* allocate-intern-sfun/Cinfo */
BGL_EXPORTED_DEF BgL_sfunz00_bglt BGl_allocatezd2internzd2sfunzf2Cinfozf2zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 44 */
{ /* ./Cfa/cinfo.scm 44 */
BgL_sfunz00_bglt BgL_new2870z00_5282;
BgL_new2870z00_5282 = 
((BgL_sfunz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_sfunz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 44 */
long BgL_arg4746z00_5283;
BgL_arg4746z00_5283 = 
BGl_classzd2numzd2zz__objectz00(BGl_internzd2sfunzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 44 */
BgL_objectz00_bglt BgL_objz00_5284;
BgL_objz00_5284 = 
(BgL_objectz00_bglt)(BgL_new2870z00_5282); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5284, BgL_arg4746z00_5283); } } 
{ /* ./Cfa/cinfo.scm 44 */
BgL_objectz00_bglt BgL_auxz00_7035;
BgL_auxz00_7035 = 
(BgL_objectz00_bglt)(BgL_new2870z00_5282); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7035, BFALSE); } 
{ /* ./Cfa/cinfo.scm 44 */
obj_t BgL_objz00_5285;
BgL_objz00_5285 = 
(obj_t)(BgL_new2870z00_5282); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5285); BUNSPEC; } 
return BgL_new2870z00_5282;} } 
}



/* _allocate-intern-sfun/Cinfo */
obj_t BGl__allocatezd2internzd2sfunzf2Cinfozf2zzcfa_infoz00(obj_t BgL_envz00_4225)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 44 */
{ /* ./Cfa/cinfo.scm 44 */
BgL_sfunz00_bglt BgL_auxz00_7040;
{ /* ./Cfa/cinfo.scm 44 */
BgL_sfunz00_bglt BgL_res8214z00_5290;
{ /* ./Cfa/cinfo.scm 44 */
BgL_sfunz00_bglt BgL_new2870z00_5286;
BgL_new2870z00_5286 = 
((BgL_sfunz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_sfunz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 44 */
long BgL_arg4746z00_5287;
BgL_arg4746z00_5287 = 
BGl_classzd2numzd2zz__objectz00(BGl_internzd2sfunzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 44 */
BgL_objectz00_bglt BgL_objz00_5288;
BgL_objz00_5288 = 
(BgL_objectz00_bglt)(BgL_new2870z00_5286); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5288, BgL_arg4746z00_5287); } } 
{ /* ./Cfa/cinfo.scm 44 */
BgL_objectz00_bglt BgL_auxz00_7045;
BgL_auxz00_7045 = 
(BgL_objectz00_bglt)(BgL_new2870z00_5286); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7045, BFALSE); } 
{ /* ./Cfa/cinfo.scm 44 */
obj_t BgL_objz00_5289;
BgL_objz00_5289 = 
(obj_t)(BgL_new2870z00_5286); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5289); BUNSPEC; } 
BgL_res8214z00_5290 = BgL_new2870z00_5286; } 
BgL_auxz00_7040 = BgL_res8214z00_5290; } 
return 
(obj_t)(BgL_auxz00_7040);} } 
}



/* extern-sfun/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_externzd2sfunzf2Cinfozf3zd3zzcfa_infoz00(obj_t BgL_obj2804z00_386)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 42 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2804z00_386, BGl_externzd2sfunzf2Cinfoz20zzcfa_infoz00);} 
}



/* _extern-sfun/Cinfo? */
obj_t BGl__externzd2sfunzf2Cinfozf3zd3zzcfa_infoz00(obj_t BgL_envz00_4623, obj_t BgL_obj2804z00_4624)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 42 */
{ /* ./Cfa/cinfo.scm 42 */
bool_t BgL_auxz00_7052;
BgL_auxz00_7052 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2804z00_4624, BGl_externzd2sfunzf2Cinfoz20zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_7052);} } 
}



/* widening-extern-sfun/Cinfo */
BGL_EXPORTED_DEF BgL_externzd2sfunzf2cinfoz20_bglt BGl_wideningzd2externzd2sfunzf2Cinfozf2zzcfa_infoz00(BgL_approxz00_bglt BgL_approx2774z00_390)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 42 */
{ /* ./Cfa/cinfo.scm 42 */
BgL_externzd2sfunzf2cinfoz20_bglt BgL_new2775z00_3194;
BgL_new2775z00_3194 = 
((BgL_externzd2sfunzf2cinfoz20_bglt)BREF( GC_MALLOC (sizeof(struct BgL_externzd2sfunzf2cinfoz20_bgl)))); 
{ /* ./Cfa/cinfo.scm 42 */
BgL_externzd2sfunzf2cinfoz20_bglt BgL_res6349z00_3198;
{ /* ./Cfa/cinfo.scm 42 */
BgL_externzd2sfunzf2cinfoz20_bglt BgL_new2794z00_3195;
BgL_new2794z00_3195 = BgL_new2775z00_3194; 
{ /* ./Cfa/cinfo.scm 42 */
BgL_approxz00_bglt BgL_approx2793z00_3197;
BgL_approx2793z00_3197 = BgL_approx2774z00_390; 
((((BgL_externzd2sfunzf2cinfoz20_bglt)CREF(BgL_new2794z00_3195))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2793z00_3197), BUNSPEC); 
BgL_res6349z00_3198 = BgL_new2794z00_3195; } } BgL_res6349z00_3198; } 
return BgL_new2775z00_3194;} } 
}



/* _widening-extern-sfun/Cinfo */
obj_t BGl__wideningzd2externzd2sfunzf2Cinfozf2zzcfa_infoz00(obj_t BgL_envz00_4625, obj_t BgL_approx2774z00_4626)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 42 */
{ /* ./Cfa/cinfo.scm 42 */
BgL_externzd2sfunzf2cinfoz20_bglt BgL_auxz00_7057;
BgL_auxz00_7057 = 
BGl_wideningzd2externzd2sfunzf2Cinfozf2zzcfa_infoz00(
(BgL_approxz00_bglt)(BgL_approx2774z00_4626)); 
return 
(obj_t)(BgL_auxz00_7057);} } 
}



/* make-extern-sfun/Cinfo */
BGL_EXPORTED_DEF BgL_externzd2sfunzf2cinfoz20_bglt BGl_makezd2externzd2sfunzf2Cinfozf2zzcfa_infoz00(long BgL_arity2778z00_391, obj_t BgL_sidezd2effectzf32779z21_392, obj_t BgL_predicatezd2of2780zd2_393, obj_t BgL_stackzd2allocator2781zd2_394, bool_t BgL_topzf32782zf3_395, obj_t BgL_thezd2closure2783zd2_396, obj_t BgL_effect2784z00_397, obj_t BgL_property2785z00_398, obj_t BgL_args2786z00_399, obj_t BgL_body2787z00_400, obj_t BgL_class2788z00_401, obj_t BgL_dssslzd2keywords2789zd2_402, obj_t BgL_loc2790z00_403, BgL_approxz00_bglt BgL_approx2777z00_404)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 42 */
{ /* ./Cfa/cinfo.scm 42 */
BgL_sfunz00_bglt BgL_aux2791z00_3199;
BgL_aux2791z00_3199 = 
BGl_makezd2sfunzd2zzast_varz00(BgL_arity2778z00_391, BgL_sidezd2effectzf32779z21_392, BgL_predicatezd2of2780zd2_393, BgL_stackzd2allocator2781zd2_394, BgL_topzf32782zf3_395, BgL_thezd2closure2783zd2_396, BgL_effect2784z00_397, BgL_property2785z00_398, BgL_args2786z00_399, BgL_body2787z00_400, BgL_class2788z00_401, BgL_dssslzd2keywords2789zd2_402, BgL_loc2790z00_403); 
{ /* ./Cfa/cinfo.scm 42 */
long BgL_arg4757z00_3200;
BgL_arg4757z00_3200 = 
BGl_classzd2numzd2zz__objectz00(BGl_externzd2sfunzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 42 */
BgL_objectz00_bglt BgL_objz00_3203;
BgL_objz00_3203 = 
(BgL_objectz00_bglt)(BgL_aux2791z00_3199); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3203, BgL_arg4757z00_3200); } } 
{ /* ./Cfa/cinfo.scm 42 */
BgL_externzd2sfunzf2cinfoz20_bglt BgL_arg4761z00_3201;
{ /* ./Cfa/cinfo.scm 42 */
BgL_externzd2sfunzf2cinfoz20_bglt BgL_res6351z00_3211;
{ /* ./Cfa/cinfo.scm 42 */
BgL_externzd2sfunzf2cinfoz20_bglt BgL_new2775z00_3206;
BgL_new2775z00_3206 = 
((BgL_externzd2sfunzf2cinfoz20_bglt)BREF( GC_MALLOC (sizeof(struct BgL_externzd2sfunzf2cinfoz20_bgl)))); 
{ /* ./Cfa/cinfo.scm 42 */
BgL_externzd2sfunzf2cinfoz20_bglt BgL_res6350z00_3210;
{ /* ./Cfa/cinfo.scm 42 */
BgL_externzd2sfunzf2cinfoz20_bglt BgL_new2794z00_3207;
BgL_new2794z00_3207 = BgL_new2775z00_3206; 
{ /* ./Cfa/cinfo.scm 42 */
BgL_approxz00_bglt BgL_approx2793z00_3209;
BgL_approx2793z00_3209 = BgL_approx2777z00_404; 
((((BgL_externzd2sfunzf2cinfoz20_bglt)CREF(BgL_new2794z00_3207))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2793z00_3209), BUNSPEC); 
BgL_res6350z00_3210 = BgL_new2794z00_3207; } } BgL_res6350z00_3210; } 
BgL_res6351z00_3211 = BgL_new2775z00_3206; } 
BgL_arg4761z00_3201 = BgL_res6351z00_3211; } 
{ /* ./Cfa/cinfo.scm 42 */
obj_t BgL_auxz00_7069;BgL_objectz00_bglt BgL_auxz00_7067;
BgL_auxz00_7069 = 
(obj_t)(BgL_arg4761z00_3201); 
BgL_auxz00_7067 = 
(BgL_objectz00_bglt)(BgL_aux2791z00_3199); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7067, BgL_auxz00_7069); } } 
{ /* ./Cfa/cinfo.scm 42 */
BgL_externzd2sfunzf2cinfoz20_bglt BgL_new2792z00_3202;
{ 
BgL_externzd2sfunzf2cinfoz20_bglt BgL_auxz00_7072;
BgL_auxz00_7072 = 
(BgL_externzd2sfunzf2cinfoz20_bglt)(BgL_aux2791z00_3199); 
BgL_new2792z00_3202 = 
((BgL_externzd2sfunzf2cinfoz20_bglt)BgL_auxz00_7072); } 
{ /* ./Cfa/cinfo.scm 42 */
obj_t BgL_objz00_3212;
BgL_objz00_3212 = 
(obj_t)(BgL_new2792z00_3202); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3212); BUNSPEC; } 
return BgL_new2792z00_3202;} } } 
}



/* _make-extern-sfun/Cinfo6621 */
obj_t BGl__makezd2externzd2sfunzf2Cinfo6621zf2zzcfa_infoz00(obj_t BgL_envz00_4627, obj_t BgL_arity2778z00_4628, obj_t BgL_sidezd2effectzf32779z21_4629, obj_t BgL_predicatezd2of2780zd2_4630, obj_t BgL_stackzd2allocator2781zd2_4631, obj_t BgL_topzf32782zf3_4632, obj_t BgL_thezd2closure2783zd2_4633, obj_t BgL_effect2784z00_4634, obj_t BgL_property2785z00_4635, obj_t BgL_args2786z00_4636, obj_t BgL_body2787z00_4637, obj_t BgL_class2788z00_4638, obj_t BgL_dssslzd2keywords2789zd2_4639, obj_t BgL_loc2790z00_4640, obj_t BgL_approx2777z00_4641)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 42 */
{ /* ./Cfa/cinfo.scm 42 */
BgL_externzd2sfunzf2cinfoz20_bglt BgL_auxz00_7077;
BgL_auxz00_7077 = 
BGl_makezd2externzd2sfunzf2Cinfozf2zzcfa_infoz00(
(long)CINT(BgL_arity2778z00_4628), BgL_sidezd2effectzf32779z21_4629, BgL_predicatezd2of2780zd2_4630, BgL_stackzd2allocator2781zd2_4631, 
CBOOL(BgL_topzf32782zf3_4632), BgL_thezd2closure2783zd2_4633, BgL_effect2784z00_4634, BgL_property2785z00_4635, BgL_args2786z00_4636, BgL_body2787z00_4637, BgL_class2788z00_4638, BgL_dssslzd2keywords2789zd2_4639, BgL_loc2790z00_4640, 
(BgL_approxz00_bglt)(BgL_approx2777z00_4641)); 
return 
(obj_t)(BgL_auxz00_7077);} } 
}



/* fill-extern-sfun/Cinfo! */
BGL_EXPORTED_DEF BgL_externzd2sfunzf2cinfoz20_bglt BGl_fillzd2externzd2sfunzf2Cinfoz12ze0zzcfa_infoz00(BgL_externzd2sfunzf2cinfoz20_bglt BgL_new2794z00_405, BgL_approxz00_bglt BgL_approx2793z00_406)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 42 */
{ /* ./Cfa/cinfo.scm 42 */
BgL_approxz00_bglt BgL_approx2793z00_5292;
BgL_approx2793z00_5292 = BgL_approx2793z00_406; 
((((BgL_externzd2sfunzf2cinfoz20_bglt)CREF(BgL_new2794z00_405))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2793z00_5292), BUNSPEC); 
return BgL_new2794z00_405;} } 
}



/* _fill-extern-sfun/Cinfo!6623 */
obj_t BGl__fillzd2externzd2sfunzf2Cinfoz126623ze0zzcfa_infoz00(obj_t BgL_envz00_4642, obj_t BgL_new2794z00_4643, obj_t BgL_approx2793z00_4644)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 42 */
{ /* ./Cfa/cinfo.scm 42 */
BgL_externzd2sfunzf2cinfoz20_bglt BgL_auxz00_7084;
{ /* ./Cfa/cinfo.scm 42 */
BgL_externzd2sfunzf2cinfoz20_bglt BgL_res8215z00_5296;
{ /* ./Cfa/cinfo.scm 42 */
BgL_externzd2sfunzf2cinfoz20_bglt BgL_new2794z00_5293;BgL_approxz00_bglt BgL_approx2793z00_5294;
BgL_new2794z00_5293 = 
(BgL_externzd2sfunzf2cinfoz20_bglt)(BgL_new2794z00_4643); 
BgL_approx2793z00_5294 = 
(BgL_approxz00_bglt)(BgL_approx2793z00_4644); 
{ /* ./Cfa/cinfo.scm 42 */
BgL_approxz00_bglt BgL_approx2793z00_5295;
BgL_approx2793z00_5295 = BgL_approx2793z00_5294; 
((((BgL_externzd2sfunzf2cinfoz20_bglt)CREF(BgL_new2794z00_5293))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2793z00_5295), BUNSPEC); 
BgL_res8215z00_5296 = BgL_new2794z00_5293; } } 
BgL_auxz00_7084 = BgL_res8215z00_5296; } 
return 
(obj_t)(BgL_auxz00_7084);} } 
}



/* allocate-extern-sfun/Cinfo */
BGL_EXPORTED_DEF BgL_sfunz00_bglt BGl_allocatezd2externzd2sfunzf2Cinfozf2zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 42 */
{ /* ./Cfa/cinfo.scm 42 */
BgL_sfunz00_bglt BgL_new2797z00_5297;
BgL_new2797z00_5297 = 
((BgL_sfunz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_sfunz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 42 */
long BgL_arg4767z00_5298;
BgL_arg4767z00_5298 = 
BGl_classzd2numzd2zz__objectz00(BGl_externzd2sfunzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 42 */
BgL_objectz00_bglt BgL_objz00_5299;
BgL_objz00_5299 = 
(BgL_objectz00_bglt)(BgL_new2797z00_5297); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5299, BgL_arg4767z00_5298); } } 
{ /* ./Cfa/cinfo.scm 42 */
BgL_objectz00_bglt BgL_auxz00_7093;
BgL_auxz00_7093 = 
(BgL_objectz00_bglt)(BgL_new2797z00_5297); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7093, BFALSE); } 
{ /* ./Cfa/cinfo.scm 42 */
obj_t BgL_objz00_5300;
BgL_objz00_5300 = 
(obj_t)(BgL_new2797z00_5297); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5300); BUNSPEC; } 
return BgL_new2797z00_5297;} } 
}



/* _allocate-extern-sfun/Cinfo */
obj_t BGl__allocatezd2externzd2sfunzf2Cinfozf2zzcfa_infoz00(obj_t BgL_envz00_4224)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 42 */
{ /* ./Cfa/cinfo.scm 42 */
BgL_sfunz00_bglt BgL_auxz00_7098;
{ /* ./Cfa/cinfo.scm 42 */
BgL_sfunz00_bglt BgL_res8216z00_5305;
{ /* ./Cfa/cinfo.scm 42 */
BgL_sfunz00_bglt BgL_new2797z00_5301;
BgL_new2797z00_5301 = 
((BgL_sfunz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_sfunz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 42 */
long BgL_arg4767z00_5302;
BgL_arg4767z00_5302 = 
BGl_classzd2numzd2zz__objectz00(BGl_externzd2sfunzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 42 */
BgL_objectz00_bglt BgL_objz00_5303;
BgL_objz00_5303 = 
(BgL_objectz00_bglt)(BgL_new2797z00_5301); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5303, BgL_arg4767z00_5302); } } 
{ /* ./Cfa/cinfo.scm 42 */
BgL_objectz00_bglt BgL_auxz00_7103;
BgL_auxz00_7103 = 
(BgL_objectz00_bglt)(BgL_new2797z00_5301); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7103, BFALSE); } 
{ /* ./Cfa/cinfo.scm 42 */
obj_t BgL_objz00_5304;
BgL_objz00_5304 = 
(obj_t)(BgL_new2797z00_5301); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5304); BUNSPEC; } 
BgL_res8216z00_5305 = BgL_new2797z00_5301; } 
BgL_auxz00_7098 = BgL_res8216z00_5305; } 
return 
(obj_t)(BgL_auxz00_7098);} } 
}



/* cfun/Cinfo? */
BGL_EXPORTED_DEF bool_t BGl_cfunzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_obj2745z00_408)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 40 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2745z00_408, BGl_cfunzf2Cinfozf2zzcfa_infoz00);} 
}



/* _cfun/Cinfo? */
obj_t BGl__cfunzf2Cinfozf3z01zzcfa_infoz00(obj_t BgL_envz00_4645, obj_t BgL_obj2745z00_4646)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 40 */
{ /* ./Cfa/cinfo.scm 40 */
bool_t BgL_auxz00_7110;
BgL_auxz00_7110 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2745z00_4646, BGl_cfunzf2Cinfozf2zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_7110);} } 
}



/* widening-cfun/Cinfo */
BGL_EXPORTED_DEF BgL_cfunzf2cinfozf2_bglt BGl_wideningzd2cfunzf2Cinfoz20zzcfa_infoz00(BgL_approxz00_bglt BgL_approx2716z00_412)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 40 */
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunzf2cinfozf2_bglt BgL_new2717z00_3219;
BgL_new2717z00_3219 = 
((BgL_cfunzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_cfunzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunzf2cinfozf2_bglt BgL_res6352z00_3223;
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunzf2cinfozf2_bglt BgL_new2734z00_3220;
BgL_new2734z00_3220 = BgL_new2717z00_3219; 
{ /* ./Cfa/cinfo.scm 40 */
BgL_approxz00_bglt BgL_approx2733z00_3222;
BgL_approx2733z00_3222 = BgL_approx2716z00_412; 
((((BgL_cfunzf2cinfozf2_bglt)CREF(BgL_new2734z00_3220))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2733z00_3222), BUNSPEC); 
BgL_res6352z00_3223 = BgL_new2734z00_3220; } } BgL_res6352z00_3223; } 
return BgL_new2717z00_3219;} } 
}



/* _widening-cfun/Cinfo */
obj_t BGl__wideningzd2cfunzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4647, obj_t BgL_approx2716z00_4648)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 40 */
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunzf2cinfozf2_bglt BgL_auxz00_7115;
BgL_auxz00_7115 = 
BGl_wideningzd2cfunzf2Cinfoz20zzcfa_infoz00(
(BgL_approxz00_bglt)(BgL_approx2716z00_4648)); 
return 
(obj_t)(BgL_auxz00_7115);} } 
}



/* make-cfun/Cinfo */
BGL_EXPORTED_DEF BgL_cfunzf2cinfozf2_bglt BGl_makezd2cfunzf2Cinfoz20zzcfa_infoz00(long BgL_arity2720z00_413, obj_t BgL_sidezd2effectzf32721z21_414, obj_t BgL_predicatezd2of2722zd2_415, obj_t BgL_stackzd2allocator2723zd2_416, bool_t BgL_topzf32724zf3_417, obj_t BgL_thezd2closure2725zd2_418, obj_t BgL_effect2726z00_419, obj_t BgL_argszd2type2727zd2_420, bool_t BgL_macrozf32728zf3_421, bool_t BgL_infixzf32729zf3_422, obj_t BgL_method2730z00_423, BgL_approxz00_bglt BgL_approx2719z00_424)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 40 */
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunz00_bglt BgL_aux2731z00_3224;
BgL_aux2731z00_3224 = 
BGl_makezd2cfunzd2zzast_varz00(BgL_arity2720z00_413, BgL_sidezd2effectzf32721z21_414, BgL_predicatezd2of2722zd2_415, BgL_stackzd2allocator2723zd2_416, BgL_topzf32724zf3_417, BgL_thezd2closure2725zd2_418, BgL_effect2726z00_419, BgL_argszd2type2727zd2_420, BgL_macrozf32728zf3_421, BgL_infixzf32729zf3_422, BgL_method2730z00_423); 
{ /* ./Cfa/cinfo.scm 40 */
long BgL_arg4776z00_3225;
BgL_arg4776z00_3225 = 
BGl_classzd2numzd2zz__objectz00(BGl_cfunzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 40 */
BgL_objectz00_bglt BgL_objz00_3228;
BgL_objz00_3228 = 
(BgL_objectz00_bglt)(BgL_aux2731z00_3224); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3228, BgL_arg4776z00_3225); } } 
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunzf2cinfozf2_bglt BgL_arg4780z00_3226;
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunzf2cinfozf2_bglt BgL_res6354z00_3236;
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunzf2cinfozf2_bglt BgL_new2717z00_3231;
BgL_new2717z00_3231 = 
((BgL_cfunzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_cfunzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunzf2cinfozf2_bglt BgL_res6353z00_3235;
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunzf2cinfozf2_bglt BgL_new2734z00_3232;
BgL_new2734z00_3232 = BgL_new2717z00_3231; 
{ /* ./Cfa/cinfo.scm 40 */
BgL_approxz00_bglt BgL_approx2733z00_3234;
BgL_approx2733z00_3234 = BgL_approx2719z00_424; 
((((BgL_cfunzf2cinfozf2_bglt)CREF(BgL_new2734z00_3232))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2733z00_3234), BUNSPEC); 
BgL_res6353z00_3235 = BgL_new2734z00_3232; } } BgL_res6353z00_3235; } 
BgL_res6354z00_3236 = BgL_new2717z00_3231; } 
BgL_arg4780z00_3226 = BgL_res6354z00_3236; } 
{ /* ./Cfa/cinfo.scm 40 */
obj_t BgL_auxz00_7127;BgL_objectz00_bglt BgL_auxz00_7125;
BgL_auxz00_7127 = 
(obj_t)(BgL_arg4780z00_3226); 
BgL_auxz00_7125 = 
(BgL_objectz00_bglt)(BgL_aux2731z00_3224); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7125, BgL_auxz00_7127); } } 
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunzf2cinfozf2_bglt BgL_new2732z00_3227;
{ 
BgL_cfunzf2cinfozf2_bglt BgL_auxz00_7130;
BgL_auxz00_7130 = 
(BgL_cfunzf2cinfozf2_bglt)(BgL_aux2731z00_3224); 
BgL_new2732z00_3227 = 
((BgL_cfunzf2cinfozf2_bglt)BgL_auxz00_7130); } 
{ /* ./Cfa/cinfo.scm 40 */
obj_t BgL_objz00_3237;
BgL_objz00_3237 = 
(obj_t)(BgL_new2732z00_3227); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3237); BUNSPEC; } 
return BgL_new2732z00_3227;} } } 
}



/* _make-cfun/Cinfo6627 */
obj_t BGl__makezd2cfunzf2Cinfo6627z20zzcfa_infoz00(obj_t BgL_envz00_4649, obj_t BgL_arity2720z00_4650, obj_t BgL_sidezd2effectzf32721z21_4651, obj_t BgL_predicatezd2of2722zd2_4652, obj_t BgL_stackzd2allocator2723zd2_4653, obj_t BgL_topzf32724zf3_4654, obj_t BgL_thezd2closure2725zd2_4655, obj_t BgL_effect2726z00_4656, obj_t BgL_argszd2type2727zd2_4657, obj_t BgL_macrozf32728zf3_4658, obj_t BgL_infixzf32729zf3_4659, obj_t BgL_method2730z00_4660, obj_t BgL_approx2719z00_4661)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 40 */
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunzf2cinfozf2_bglt BgL_auxz00_7135;
BgL_auxz00_7135 = 
BGl_makezd2cfunzf2Cinfoz20zzcfa_infoz00(
(long)CINT(BgL_arity2720z00_4650), BgL_sidezd2effectzf32721z21_4651, BgL_predicatezd2of2722zd2_4652, BgL_stackzd2allocator2723zd2_4653, 
CBOOL(BgL_topzf32724zf3_4654), BgL_thezd2closure2725zd2_4655, BgL_effect2726z00_4656, BgL_argszd2type2727zd2_4657, 
CBOOL(BgL_macrozf32728zf3_4658), 
CBOOL(BgL_infixzf32729zf3_4659), BgL_method2730z00_4660, 
(BgL_approxz00_bglt)(BgL_approx2719z00_4661)); 
return 
(obj_t)(BgL_auxz00_7135);} } 
}



/* fill-cfun/Cinfo! */
BGL_EXPORTED_DEF BgL_cfunzf2cinfozf2_bglt BGl_fillzd2cfunzf2Cinfoz12z32zzcfa_infoz00(BgL_cfunzf2cinfozf2_bglt BgL_new2734z00_425, BgL_approxz00_bglt BgL_approx2733z00_426)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 40 */
{ /* ./Cfa/cinfo.scm 40 */
BgL_approxz00_bglt BgL_approx2733z00_5307;
BgL_approx2733z00_5307 = BgL_approx2733z00_426; 
((((BgL_cfunzf2cinfozf2_bglt)CREF(BgL_new2734z00_425))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2733z00_5307), BUNSPEC); 
return BgL_new2734z00_425;} } 
}



/* _fill-cfun/Cinfo!6629 */
obj_t BGl__fillzd2cfunzf2Cinfoz126629z32zzcfa_infoz00(obj_t BgL_envz00_4662, obj_t BgL_new2734z00_4663, obj_t BgL_approx2733z00_4664)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 40 */
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunzf2cinfozf2_bglt BgL_auxz00_7144;
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunzf2cinfozf2_bglt BgL_res8217z00_5311;
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunzf2cinfozf2_bglt BgL_new2734z00_5308;BgL_approxz00_bglt BgL_approx2733z00_5309;
BgL_new2734z00_5308 = 
(BgL_cfunzf2cinfozf2_bglt)(BgL_new2734z00_4663); 
BgL_approx2733z00_5309 = 
(BgL_approxz00_bglt)(BgL_approx2733z00_4664); 
{ /* ./Cfa/cinfo.scm 40 */
BgL_approxz00_bglt BgL_approx2733z00_5310;
BgL_approx2733z00_5310 = BgL_approx2733z00_5309; 
((((BgL_cfunzf2cinfozf2_bglt)CREF(BgL_new2734z00_5308))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2733z00_5310), BUNSPEC); 
BgL_res8217z00_5311 = BgL_new2734z00_5308; } } 
BgL_auxz00_7144 = BgL_res8217z00_5311; } 
return 
(obj_t)(BgL_auxz00_7144);} } 
}



/* allocate-cfun/Cinfo */
BGL_EXPORTED_DEF BgL_cfunz00_bglt BGl_allocatezd2cfunzf2Cinfoz20zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 40 */
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunz00_bglt BgL_new2737z00_5312;
BgL_new2737z00_5312 = 
((BgL_cfunz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cfunz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 40 */
long BgL_arg4786z00_5313;
BgL_arg4786z00_5313 = 
BGl_classzd2numzd2zz__objectz00(BGl_cfunzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 40 */
BgL_objectz00_bglt BgL_objz00_5314;
BgL_objz00_5314 = 
(BgL_objectz00_bglt)(BgL_new2737z00_5312); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5314, BgL_arg4786z00_5313); } } 
{ /* ./Cfa/cinfo.scm 40 */
BgL_objectz00_bglt BgL_auxz00_7153;
BgL_auxz00_7153 = 
(BgL_objectz00_bglt)(BgL_new2737z00_5312); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7153, BFALSE); } 
{ /* ./Cfa/cinfo.scm 40 */
obj_t BgL_objz00_5315;
BgL_objz00_5315 = 
(obj_t)(BgL_new2737z00_5312); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5315); BUNSPEC; } 
return BgL_new2737z00_5312;} } 
}



/* _allocate-cfun/Cinfo */
obj_t BGl__allocatezd2cfunzf2Cinfoz20zzcfa_infoz00(obj_t BgL_envz00_4223)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 40 */
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunz00_bglt BgL_auxz00_7158;
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunz00_bglt BgL_res8218z00_5320;
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunz00_bglt BgL_new2737z00_5316;
BgL_new2737z00_5316 = 
((BgL_cfunz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cfunz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 40 */
long BgL_arg4786z00_5317;
BgL_arg4786z00_5317 = 
BGl_classzd2numzd2zz__objectz00(BGl_cfunzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 40 */
BgL_objectz00_bglt BgL_objz00_5318;
BgL_objz00_5318 = 
(BgL_objectz00_bglt)(BgL_new2737z00_5316); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5318, BgL_arg4786z00_5317); } } 
{ /* ./Cfa/cinfo.scm 40 */
BgL_objectz00_bglt BgL_auxz00_7163;
BgL_auxz00_7163 = 
(BgL_objectz00_bglt)(BgL_new2737z00_5316); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7163, BFALSE); } 
{ /* ./Cfa/cinfo.scm 40 */
obj_t BgL_objz00_5319;
BgL_objz00_5319 = 
(obj_t)(BgL_new2737z00_5316); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5319); BUNSPEC; } 
BgL_res8218z00_5320 = BgL_new2737z00_5316; } 
BgL_auxz00_7158 = BgL_res8218z00_5320; } 
return 
(obj_t)(BgL_auxz00_7158);} } 
}



/* approx? */
BGL_EXPORTED_DEF bool_t BGl_approxzf3zf3zzcfa_infoz00(obj_t BgL_obj2715z00_428)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 23 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2715z00_428, BGl_approxz00zzcfa_infoz00);} 
}



/* _approx? */
obj_t BGl__approxzf3zf3zzcfa_infoz00(obj_t BgL_envz00_4665, obj_t BgL_obj2715z00_4666)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 23 */
{ /* ./Cfa/cinfo.scm 23 */
bool_t BgL_auxz00_7170;
BgL_auxz00_7170 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2715z00_4666, BGl_approxz00zzcfa_infoz00); 
return 
BBOOL(BgL_auxz00_7170);} } 
}



/* make-approx */
BGL_EXPORTED_DEF BgL_approxz00_bglt BGl_makezd2approxzd2zzcfa_infoz00(BgL_typez00_bglt BgL_type2673z00_432, bool_t BgL_typezd2lockedzf32674z21_433, obj_t BgL_allocs2675z00_434, bool_t BgL_topzf32676zf3_435, long BgL_lostzd2stamp2677zd2_436)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 23 */
{ /* ./Cfa/cinfo.scm 23 */
BgL_approxz00_bglt BgL_new2678z00_3244;
{ /* ./Cfa/cinfo.scm 23 */
BgL_approxz00_bglt BgL_res6355z00_3250;
{ /* ./Cfa/cinfo.scm 23 */
BgL_approxz00_bglt BgL_new2692z00_3245;
BgL_new2692z00_3245 = 
((BgL_approxz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_approxz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 23 */
long BgL_arg4796z00_3246;
BgL_arg4796z00_3246 = 
BGl_classzd2numzd2zz__objectz00(BGl_approxz00zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 23 */
BgL_objectz00_bglt BgL_objz00_3247;
BgL_objz00_3247 = 
(BgL_objectz00_bglt)(BgL_new2692z00_3245); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3247, BgL_arg4796z00_3246); } } 
{ /* ./Cfa/cinfo.scm 23 */
BgL_objectz00_bglt BgL_auxz00_7177;
BgL_auxz00_7177 = 
(BgL_objectz00_bglt)(BgL_new2692z00_3245); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7177, BFALSE); } 
{ /* ./Cfa/cinfo.scm 23 */
obj_t BgL_objz00_3249;
BgL_objz00_3249 = 
(obj_t)(BgL_new2692z00_3245); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3249); BUNSPEC; } 
BgL_res6355z00_3250 = BgL_new2692z00_3245; } 
BgL_new2678z00_3244 = BgL_res6355z00_3250; } 
{ /* ./Cfa/cinfo.scm 23 */
BgL_approxz00_bglt BgL_res6356z00_3262;
{ /* ./Cfa/cinfo.scm 23 */
BgL_approxz00_bglt BgL_new2685z00_3251;
BgL_new2685z00_3251 = BgL_new2678z00_3244; 
{ /* ./Cfa/cinfo.scm 23 */
BgL_typez00_bglt BgL_type2680z00_3257;bool_t BgL_typezd2lockedzf32681z21_3258;obj_t BgL_allocs2682z00_3259;bool_t BgL_topzf32683zf3_3260;long BgL_lostzd2stamp2684zd2_3261;
BgL_type2680z00_3257 = BgL_type2673z00_432; 
BgL_typezd2lockedzf32681z21_3258 = BgL_typezd2lockedzf32674z21_433; 
BgL_allocs2682z00_3259 = BgL_allocs2675z00_434; 
BgL_topzf32683zf3_3260 = BgL_topzf32676zf3_435; 
BgL_lostzd2stamp2684zd2_3261 = BgL_lostzd2stamp2677zd2_436; 
((((BgL_approxz00_bglt)CREF(BgL_new2685z00_3251))->BgL_typez00) = ((BgL_typez00_bglt)BgL_type2680z00_3257), BUNSPEC); 
((((BgL_approxz00_bglt)CREF(BgL_new2685z00_3251))->BgL_typezd2lockedzf3z21) = ((bool_t)BgL_typezd2lockedzf32681z21_3258), BUNSPEC); 
((((BgL_approxz00_bglt)CREF(BgL_new2685z00_3251))->BgL_allocsz00) = ((obj_t)BgL_allocs2682z00_3259), BUNSPEC); 
((((BgL_approxz00_bglt)CREF(BgL_new2685z00_3251))->BgL_topzf3zf3) = ((bool_t)BgL_topzf32683zf3_3260), BUNSPEC); 
((((BgL_approxz00_bglt)CREF(BgL_new2685z00_3251))->BgL_lostzd2stampzd2) = ((long)BgL_lostzd2stamp2684zd2_3261), BUNSPEC); 
BgL_res6356z00_3262 = BgL_new2685z00_3251; } } BgL_res6356z00_3262; } 
return BgL_new2678z00_3244;} } 
}



/* _make-approx6632 */
obj_t BGl__makezd2approx6632zd2zzcfa_infoz00(obj_t BgL_envz00_4667, obj_t BgL_type2673z00_4668, obj_t BgL_typezd2lockedzf32674z21_4669, obj_t BgL_allocs2675z00_4670, obj_t BgL_topzf32676zf3_4671, obj_t BgL_lostzd2stamp2677zd2_4672)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 23 */
{ /* ./Cfa/cinfo.scm 23 */
BgL_approxz00_bglt BgL_auxz00_7187;
BgL_auxz00_7187 = 
BGl_makezd2approxzd2zzcfa_infoz00(
(BgL_typez00_bglt)(BgL_type2673z00_4668), 
CBOOL(BgL_typezd2lockedzf32674z21_4669), BgL_allocs2675z00_4670, 
CBOOL(BgL_topzf32676zf3_4671), 
(long)CINT(BgL_lostzd2stamp2677zd2_4672)); 
return 
(obj_t)(BgL_auxz00_7187);} } 
}



/* fill-approx! */
BGL_EXPORTED_DEF BgL_approxz00_bglt BGl_fillzd2approxz12zc0zzcfa_infoz00(BgL_approxz00_bglt BgL_new2685z00_437, BgL_typez00_bglt BgL_type2680z00_438, bool_t BgL_typezd2lockedzf32681z21_439, obj_t BgL_allocs2682z00_440, bool_t BgL_topzf32683zf3_441, long BgL_lostzd2stamp2684zd2_442)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 23 */
{ /* ./Cfa/cinfo.scm 23 */
BgL_typez00_bglt BgL_type2680z00_5322;bool_t BgL_typezd2lockedzf32681z21_5323;obj_t BgL_allocs2682z00_5324;bool_t BgL_topzf32683zf3_5325;long BgL_lostzd2stamp2684zd2_5326;
BgL_type2680z00_5322 = BgL_type2680z00_438; 
BgL_typezd2lockedzf32681z21_5323 = BgL_typezd2lockedzf32681z21_439; 
BgL_allocs2682z00_5324 = BgL_allocs2682z00_440; 
BgL_topzf32683zf3_5325 = BgL_topzf32683zf3_441; 
BgL_lostzd2stamp2684zd2_5326 = BgL_lostzd2stamp2684zd2_442; 
((((BgL_approxz00_bglt)CREF(BgL_new2685z00_437))->BgL_typez00) = ((BgL_typez00_bglt)BgL_type2680z00_5322), BUNSPEC); 
((((BgL_approxz00_bglt)CREF(BgL_new2685z00_437))->BgL_typezd2lockedzf3z21) = ((bool_t)BgL_typezd2lockedzf32681z21_5323), BUNSPEC); 
((((BgL_approxz00_bglt)CREF(BgL_new2685z00_437))->BgL_allocsz00) = ((obj_t)BgL_allocs2682z00_5324), BUNSPEC); 
((((BgL_approxz00_bglt)CREF(BgL_new2685z00_437))->BgL_topzf3zf3) = ((bool_t)BgL_topzf32683zf3_5325), BUNSPEC); 
((((BgL_approxz00_bglt)CREF(BgL_new2685z00_437))->BgL_lostzd2stampzd2) = ((long)BgL_lostzd2stamp2684zd2_5326), BUNSPEC); 
return BgL_new2685z00_437;} } 
}



/* _fill-approx!6634 */
obj_t BGl__fillzd2approxz126634zc0zzcfa_infoz00(obj_t BgL_envz00_4673, obj_t BgL_new2685z00_4674, obj_t BgL_type2680z00_4675, obj_t BgL_typezd2lockedzf32681z21_4676, obj_t BgL_allocs2682z00_4677, obj_t BgL_topzf32683zf3_4678, obj_t BgL_lostzd2stamp2684zd2_4679)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 23 */
{ /* ./Cfa/cinfo.scm 23 */
BgL_approxz00_bglt BgL_auxz00_7199;
{ /* ./Cfa/cinfo.scm 23 */
BgL_approxz00_bglt BgL_res8219z00_5338;
{ /* ./Cfa/cinfo.scm 23 */
BgL_approxz00_bglt BgL_new2685z00_5327;BgL_typez00_bglt BgL_type2680z00_5328;bool_t BgL_typezd2lockedzf32681z21_5329;bool_t BgL_topzf32683zf3_5331;long BgL_lostzd2stamp2684zd2_5332;
BgL_new2685z00_5327 = 
(BgL_approxz00_bglt)(BgL_new2685z00_4674); 
BgL_type2680z00_5328 = 
(BgL_typez00_bglt)(BgL_type2680z00_4675); 
BgL_typezd2lockedzf32681z21_5329 = 
CBOOL(BgL_typezd2lockedzf32681z21_4676); 
BgL_topzf32683zf3_5331 = 
CBOOL(BgL_topzf32683zf3_4678); 
BgL_lostzd2stamp2684zd2_5332 = 
(long)CINT(BgL_lostzd2stamp2684zd2_4679); 
{ /* ./Cfa/cinfo.scm 23 */
BgL_typez00_bglt BgL_type2680z00_5333;bool_t BgL_typezd2lockedzf32681z21_5334;obj_t BgL_allocs2682z00_5335;bool_t BgL_topzf32683zf3_5336;long BgL_lostzd2stamp2684zd2_5337;
BgL_type2680z00_5333 = BgL_type2680z00_5328; 
BgL_typezd2lockedzf32681z21_5334 = BgL_typezd2lockedzf32681z21_5329; 
BgL_allocs2682z00_5335 = BgL_allocs2682z00_4677; 
BgL_topzf32683zf3_5336 = BgL_topzf32683zf3_5331; 
BgL_lostzd2stamp2684zd2_5337 = BgL_lostzd2stamp2684zd2_5332; 
((((BgL_approxz00_bglt)CREF(BgL_new2685z00_5327))->BgL_typez00) = ((BgL_typez00_bglt)BgL_type2680z00_5333), BUNSPEC); 
((((BgL_approxz00_bglt)CREF(BgL_new2685z00_5327))->BgL_typezd2lockedzf3z21) = ((bool_t)BgL_typezd2lockedzf32681z21_5334), BUNSPEC); 
((((BgL_approxz00_bglt)CREF(BgL_new2685z00_5327))->BgL_allocsz00) = ((obj_t)BgL_allocs2682z00_5335), BUNSPEC); 
((((BgL_approxz00_bglt)CREF(BgL_new2685z00_5327))->BgL_topzf3zf3) = ((bool_t)BgL_topzf32683zf3_5336), BUNSPEC); 
((((BgL_approxz00_bglt)CREF(BgL_new2685z00_5327))->BgL_lostzd2stampzd2) = ((long)BgL_lostzd2stamp2684zd2_5337), BUNSPEC); 
BgL_res8219z00_5338 = BgL_new2685z00_5327; } } 
BgL_auxz00_7199 = BgL_res8219z00_5338; } 
return 
(obj_t)(BgL_auxz00_7199);} } 
}



/* allocate-approx */
BGL_EXPORTED_DEF BgL_approxz00_bglt BGl_allocatezd2approxzd2zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 23 */
{ /* ./Cfa/cinfo.scm 23 */
BgL_approxz00_bglt BgL_new2692z00_5339;
BgL_new2692z00_5339 = 
((BgL_approxz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_approxz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 23 */
long BgL_arg4796z00_5340;
BgL_arg4796z00_5340 = 
BGl_classzd2numzd2zz__objectz00(BGl_approxz00zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 23 */
BgL_objectz00_bglt BgL_objz00_5341;
BgL_objz00_5341 = 
(BgL_objectz00_bglt)(BgL_new2692z00_5339); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5341, BgL_arg4796z00_5340); } } 
{ /* ./Cfa/cinfo.scm 23 */
BgL_objectz00_bglt BgL_auxz00_7215;
BgL_auxz00_7215 = 
(BgL_objectz00_bglt)(BgL_new2692z00_5339); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7215, BFALSE); } 
{ /* ./Cfa/cinfo.scm 23 */
obj_t BgL_objz00_5342;
BgL_objz00_5342 = 
(obj_t)(BgL_new2692z00_5339); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5342); BUNSPEC; } 
return BgL_new2692z00_5339;} } 
}



/* _allocate-approx */
obj_t BGl__allocatezd2approxzd2zzcfa_infoz00(obj_t BgL_envz00_4222)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 23 */
{ /* ./Cfa/cinfo.scm 23 */
BgL_approxz00_bglt BgL_auxz00_7220;
{ /* ./Cfa/cinfo.scm 23 */
BgL_approxz00_bglt BgL_res8220z00_5347;
{ /* ./Cfa/cinfo.scm 23 */
BgL_approxz00_bglt BgL_new2692z00_5343;
BgL_new2692z00_5343 = 
((BgL_approxz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_approxz00_bgl) ))); 
{ /* ./Cfa/cinfo.scm 23 */
long BgL_arg4796z00_5344;
BgL_arg4796z00_5344 = 
BGl_classzd2numzd2zz__objectz00(BGl_approxz00zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 23 */
BgL_objectz00_bglt BgL_objz00_5345;
BgL_objz00_5345 = 
(BgL_objectz00_bglt)(BgL_new2692z00_5343); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_5345, BgL_arg4796z00_5344); } } 
{ /* ./Cfa/cinfo.scm 23 */
BgL_objectz00_bglt BgL_auxz00_7225;
BgL_auxz00_7225 = 
(BgL_objectz00_bglt)(BgL_new2692z00_5343); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7225, BFALSE); } 
{ /* ./Cfa/cinfo.scm 23 */
obj_t BgL_objz00_5346;
BgL_objz00_5346 = 
(obj_t)(BgL_new2692z00_5343); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_5346); BUNSPEC; } 
BgL_res8220z00_5347 = BgL_new2692z00_5343; } 
BgL_auxz00_7220 = BgL_res8220z00_5347; } 
return 
(obj_t)(BgL_auxz00_7220);} } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 15 */
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_boxzd2refzf2Ozd2Cinfozf2zzcfa_infoz00, BGl_proc8092z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_boxzd2refzf2Ozd2Cinfozf2zzcfa_infoz00, BGl_proc8093z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_boxzd2setz12zf2Ozd2Cinfoze0zzcfa_infoz00, BGl_proc8094z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_boxzd2setz12zf2Ozd2Cinfoze0zzcfa_infoz00, BGl_proc8095z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_boxzd2refzf2Cinfoz20zzcfa_infoz00, BGl_proc8096z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_boxzd2refzf2Cinfoz20zzcfa_infoz00, BGl_proc8097z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_boxzd2setz12zf2Cinfoz32zzcfa_infoz00, BGl_proc8098z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_boxzd2setz12zf2Cinfoz32zzcfa_infoz00, BGl_proc8099z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_makezd2boxzf2Ozd2Cinfozf2zzcfa_infoz00, BGl_proc8100z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_makezd2boxzf2Ozd2Cinfozf2zzcfa_infoz00, BGl_proc8101z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_makezd2boxzf2Cinfoz20zzcfa_infoz00, BGl_proc8102z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_makezd2boxzf2Cinfoz20zzcfa_infoz00, BGl_proc8103z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_prezd2makezd2boxz00zzcfa_infoz00, BGl_proc8104z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_prezd2makezd2boxz00zzcfa_infoz00, BGl_proc8105z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_jumpzd2exzd2itzf2Cinfozf2zzcfa_infoz00, BGl_proc8106z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_jumpzd2exzd2itzf2Cinfozf2zzcfa_infoz00, BGl_proc8107z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_setzd2exzd2itzf2Cinfozf2zzcfa_infoz00, BGl_proc8108z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_setzd2exzd2itzf2Cinfozf2zzcfa_infoz00, BGl_proc8109z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_selectzf2Cinfozf2zzcfa_infoz00, BGl_proc8110z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_selectzf2Cinfozf2zzcfa_infoz00, BGl_proc8111z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_failzf2Cinfozf2zzcfa_infoz00, BGl_proc8112z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_failzf2Cinfozf2zzcfa_infoz00, BGl_proc8113z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_conditionalzf2Cinfozf2zzcfa_infoz00, BGl_proc8114z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_conditionalzf2Cinfozf2zzcfa_infoz00, BGl_proc8115z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_setqzf2Cinfozf2zzcfa_infoz00, BGl_proc8116z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_setqzf2Cinfozf2zzcfa_infoz00, BGl_proc8117z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_funcallzf2Cinfozf2zzcfa_infoz00, BGl_proc8118z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_funcallzf2Cinfozf2zzcfa_infoz00, BGl_proc8119z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_appzd2lyzf2Cinfoz20zzcfa_infoz00, BGl_proc8120z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_appzd2lyzf2Cinfoz20zzcfa_infoz00, BGl_proc8121z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_kwotezf2Cinfozf2zzcfa_infoz00, BGl_proc8122z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_kwotezf2Cinfozf2zzcfa_infoz00, BGl_proc8123z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_kwotezf2nodezf2zzcfa_infoz00, BGl_proc8124z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_kwotezf2nodezf2zzcfa_infoz00, BGl_proc8125z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_atomzf2Cinfozf2zzcfa_infoz00, BGl_proc8126z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_atomzf2Cinfozf2zzcfa_infoz00, BGl_proc8127z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_reshapedzd2globalzd2zzcfa_infoz00, BGl_proc8128z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_reshapedzd2globalzd2zzcfa_infoz00, BGl_proc8129z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_reshapedzd2localzd2zzcfa_infoz00, BGl_proc8130z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_reshapedzd2localzd2zzcfa_infoz00, BGl_proc8131z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_sexitzf2Cinfozf2zzcfa_infoz00, BGl_proc8132z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_sexitzf2Cinfozf2zzcfa_infoz00, BGl_proc8133z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_cvarzf2Cinfozf2zzcfa_infoz00, BGl_proc8134z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_cvarzf2Cinfozf2zzcfa_infoz00, BGl_proc8135z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_svarzf2Cinfozf2zzcfa_infoz00, BGl_proc8136z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_svarzf2Cinfozf2zzcfa_infoz00, BGl_proc8137z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_prezd2clozd2envz00zzcfa_infoz00, BGl_proc8138z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_prezd2clozd2envz00zzcfa_infoz00, BGl_proc8139z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_scnstzf2Cinfozf2zzcfa_infoz00, BGl_proc8140z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_scnstzf2Cinfozf2zzcfa_infoz00, BGl_proc8141z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_internzd2sfunzf2Cinfoz20zzcfa_infoz00, BGl_proc8142z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_internzd2sfunzf2Cinfoz20zzcfa_infoz00, BGl_proc8143z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_externzd2sfunzf2Cinfoz20zzcfa_infoz00, BGl_proc8144z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_externzd2sfunzf2Cinfoz20zzcfa_infoz00, BGl_proc8145z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_cfunzf2Cinfozf2zzcfa_infoz00, BGl_proc8146z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_cfunzf2Cinfozf2zzcfa_infoz00, BGl_proc8147z00zzcfa_infoz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_approxz00zzcfa_infoz00, BGl_proc8148z00zzcfa_infoz00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_approxz00zzcfa_infoz00, BGl_proc8149z00zzcfa_infoz00);} 
}



/* struct+object->object-approx3984 */
obj_t BGl_structzb2objectzd2ze3objectzd2approx3984z51zzcfa_infoz00(obj_t BgL_envz00_4743, obj_t BgL_oz00_4744, obj_t BgL_sz00_4745)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 23 */
{ 
BgL_approxz00_bglt BgL_oz00_2548;obj_t BgL_sz00_2549;
{ /* ./Cfa/cinfo.scm 23 */
BgL_approxz00_bglt BgL_auxz00_7289;
BgL_oz00_2548 = 
(BgL_approxz00_bglt)(BgL_oz00_4744); 
BgL_sz00_2549 = BgL_sz00_4745; 
{ /* ./Cfa/cinfo.scm 23 */
obj_t BgL_arg6263z00_2552;
{ /* ./Cfa/cinfo.scm 23 */
int BgL_auxz00_7290;
BgL_auxz00_7290 = 
(int)(((long)0)); 
BgL_arg6263z00_2552 = 
STRUCT_REF(BgL_sz00_2549, BgL_auxz00_7290); } 
{ /* ./Cfa/cinfo.scm 23 */
BgL_objectz00_bglt BgL_auxz00_7293;
BgL_auxz00_7293 = 
(BgL_objectz00_bglt)(BgL_oz00_2548); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7293, BgL_arg6263z00_2552); } } 
{ /* ./Cfa/cinfo.scm 23 */
BgL_typez00_bglt BgL_v2697z00_2553;
{ /* ./Cfa/cinfo.scm 23 */
obj_t BgL_auxz00_7296;
{ /* ./Cfa/cinfo.scm 23 */
int BgL_auxz00_7297;
BgL_auxz00_7297 = 
(int)(((long)1)); 
BgL_auxz00_7296 = 
STRUCT_REF(BgL_sz00_2549, BgL_auxz00_7297); } 
BgL_v2697z00_2553 = 
(BgL_typez00_bglt)(BgL_auxz00_7296); } 
((((BgL_approxz00_bglt)CREF(BgL_oz00_2548))->BgL_typez00) = ((BgL_typez00_bglt)BgL_v2697z00_2553), BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 23 */
bool_t BgL_v2701z00_2554;
{ /* ./Cfa/cinfo.scm 23 */
obj_t BgL_auxz00_7302;
{ /* ./Cfa/cinfo.scm 23 */
int BgL_auxz00_7303;
BgL_auxz00_7303 = 
(int)(((long)2)); 
BgL_auxz00_7302 = 
STRUCT_REF(BgL_sz00_2549, BgL_auxz00_7303); } 
BgL_v2701z00_2554 = 
CBOOL(BgL_auxz00_7302); } 
((((BgL_approxz00_bglt)CREF(BgL_oz00_2548))->BgL_typezd2lockedzf3z21) = ((bool_t)BgL_v2701z00_2554), BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 23 */
obj_t BgL_v2705z00_2555;
{ /* ./Cfa/cinfo.scm 23 */
int BgL_auxz00_7308;
BgL_auxz00_7308 = 
(int)(((long)3)); 
BgL_v2705z00_2555 = 
STRUCT_REF(BgL_sz00_2549, BgL_auxz00_7308); } 
((((BgL_approxz00_bglt)CREF(BgL_oz00_2548))->BgL_allocsz00) = ((obj_t)BgL_v2705z00_2555), BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 23 */
bool_t BgL_v2709z00_2556;
{ /* ./Cfa/cinfo.scm 23 */
obj_t BgL_auxz00_7312;
{ /* ./Cfa/cinfo.scm 23 */
int BgL_auxz00_7313;
BgL_auxz00_7313 = 
(int)(((long)4)); 
BgL_auxz00_7312 = 
STRUCT_REF(BgL_sz00_2549, BgL_auxz00_7313); } 
BgL_v2709z00_2556 = 
CBOOL(BgL_auxz00_7312); } 
((((BgL_approxz00_bglt)CREF(BgL_oz00_2548))->BgL_topzf3zf3) = ((bool_t)BgL_v2709z00_2556), BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 23 */
long BgL_v2713z00_2557;
{ /* ./Cfa/cinfo.scm 23 */
obj_t BgL_auxz00_7318;
{ /* ./Cfa/cinfo.scm 23 */
int BgL_auxz00_7319;
BgL_auxz00_7319 = 
(int)(((long)5)); 
BgL_auxz00_7318 = 
STRUCT_REF(BgL_sz00_2549, BgL_auxz00_7319); } 
BgL_v2713z00_2557 = 
(long)CINT(BgL_auxz00_7318); } 
((((BgL_approxz00_bglt)CREF(BgL_oz00_2548))->BgL_lostzd2stampzd2) = ((long)BgL_v2713z00_2557), BUNSPEC); } 
BgL_auxz00_7289 = BgL_oz00_2548; 
return 
(obj_t)(BgL_auxz00_7289);} } } 
}



/* object->struct-approx3982 */
obj_t BGl_objectzd2ze3structzd2approx3982ze3zzcfa_infoz00(obj_t BgL_envz00_4746, obj_t BgL_obj2693z00_4747)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 23 */
{ 
BgL_approxz00_bglt BgL_obj2693z00_2532;
BgL_obj2693z00_2532 = 
(BgL_approxz00_bglt)(BgL_obj2693z00_4747); 
{ /* ./Cfa/cinfo.scm 23 */
obj_t BgL_res2694z00_2535;
{ /* ./Cfa/cinfo.scm 23 */
obj_t BgL_keyz00_4184;int BgL_lenz00_4185;
BgL_keyz00_4184 = 
CNST_TABLE_REF(((long)0)); 
BgL_lenz00_4185 = 
(int)(((long)6)); 
BgL_res2694z00_2535 = 
make_struct(BgL_keyz00_4184, BgL_lenz00_4185, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 23 */
int BgL_kz00_4188;
BgL_kz00_4188 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res2694z00_2535, BgL_kz00_4188, BFALSE); } 
{ /* ./Cfa/cinfo.scm 23 */
BgL_typez00_bglt BgL_arg6232z00_2537;
BgL_arg6232z00_2537 = 
(((BgL_approxz00_bglt)CREF(BgL_obj2693z00_2532))->BgL_typez00); 
{ /* ./Cfa/cinfo.scm 23 */
int BgL_kz00_4192;obj_t BgL_oz00_4193;
BgL_kz00_4192 = 
(int)(((long)1)); 
BgL_oz00_4193 = 
(obj_t)(BgL_arg6232z00_2537); 
STRUCT_SET(BgL_res2694z00_2535, BgL_kz00_4192, BgL_oz00_4193); } } 
{ /* ./Cfa/cinfo.scm 23 */
bool_t BgL_arg6237z00_2539;
BgL_arg6237z00_2539 = 
(((BgL_approxz00_bglt)CREF(BgL_obj2693z00_2532))->BgL_typezd2lockedzf3z21); 
{ /* ./Cfa/cinfo.scm 23 */
int BgL_kz00_4196;obj_t BgL_oz00_4197;
BgL_kz00_4196 = 
(int)(((long)2)); 
BgL_oz00_4197 = 
BBOOL(BgL_arg6237z00_2539); 
STRUCT_SET(BgL_res2694z00_2535, BgL_kz00_4196, BgL_oz00_4197); } } 
{ /* ./Cfa/cinfo.scm 23 */
obj_t BgL_arg6242z00_2541;
BgL_arg6242z00_2541 = 
(((BgL_approxz00_bglt)CREF(BgL_obj2693z00_2532))->BgL_allocsz00); 
{ /* ./Cfa/cinfo.scm 23 */
int BgL_kz00_4200;
BgL_kz00_4200 = 
(int)(((long)3)); 
STRUCT_SET(BgL_res2694z00_2535, BgL_kz00_4200, BgL_arg6242z00_2541); } } 
{ /* ./Cfa/cinfo.scm 23 */
bool_t BgL_arg6247z00_2543;
BgL_arg6247z00_2543 = 
(((BgL_approxz00_bglt)CREF(BgL_obj2693z00_2532))->BgL_topzf3zf3); 
{ /* ./Cfa/cinfo.scm 23 */
int BgL_kz00_4204;obj_t BgL_oz00_4205;
BgL_kz00_4204 = 
(int)(((long)4)); 
BgL_oz00_4205 = 
BBOOL(BgL_arg6247z00_2543); 
STRUCT_SET(BgL_res2694z00_2535, BgL_kz00_4204, BgL_oz00_4205); } } 
{ /* ./Cfa/cinfo.scm 23 */
long BgL_arg6252z00_2545;
BgL_arg6252z00_2545 = 
(((BgL_approxz00_bglt)CREF(BgL_obj2693z00_2532))->BgL_lostzd2stampzd2); 
{ /* ./Cfa/cinfo.scm 23 */
int BgL_kz00_4208;obj_t BgL_oz00_4209;
BgL_kz00_4208 = 
(int)(((long)5)); 
BgL_oz00_4209 = 
BINT(BgL_arg6252z00_2545); 
STRUCT_SET(BgL_res2694z00_2535, BgL_kz00_4208, BgL_oz00_4209); } } 
return BgL_res2694z00_2535;} } } 
}



/* struct+object->object-cfun/Cinfo3980 */
obj_t BGl_structzb2objectzd2ze3objectzd2cfunzf2Cinfo3980za3zzcfa_infoz00(obj_t BgL_envz00_4748, obj_t BgL_oz00_4749, obj_t BgL_sz00_4750)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 40 */
{ 
BgL_cfunzf2cinfozf2_bglt BgL_oz00_2520;obj_t BgL_sz00_2521;
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunzf2cinfozf2_bglt BgL_auxz00_7351;
BgL_oz00_2520 = 
(BgL_cfunzf2cinfozf2_bglt)(BgL_oz00_4749); 
BgL_sz00_2521 = BgL_sz00_4750; 
{ 

{ /* ./Cfa/cinfo.scm 40 */
obj_t BgL_old2742z00_2524;obj_t BgL_aux2743z00_2525;
{ /* ./Cfa/cinfo.scm 40 */
obj_t BgL_nextzd2method3979zd2_2530;
BgL_nextzd2method3979zd2_2530 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2520), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_cfunzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 40 */
bool_t BgL_test6223z00_2531;
BgL_test6223z00_2531 = 
PROCEDUREP(BgL_nextzd2method3979zd2_2530); 
if(BgL_test6223z00_2531)
{ /* ./Cfa/cinfo.scm 40 */
BgL_old2742z00_2524 = 
PROCEDURE_ENTRY(BgL_nextzd2method3979zd2_2530)(BgL_nextzd2method3979zd2_2530, 
(obj_t)(BgL_oz00_2520), BgL_sz00_2521, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 40 */
{ /* ./Cfa/cinfo.scm 40 */
BgL_objectz00_bglt BgL_auxz00_7359;
BgL_auxz00_7359 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2520), BgL_sz00_2521); 
BgL_old2742z00_2524 = 
(obj_t)(BgL_auxz00_7359); } } } } 
{ /* ./Cfa/cinfo.scm 40 */
int BgL_auxz00_7363;
BgL_auxz00_7363 = 
(int)(((long)0)); 
BgL_aux2743z00_2525 = 
STRUCT_REF(BgL_sz00_2521, BgL_auxz00_7363); } 
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunzf2cinfozf2_bglt BgL_new2744z00_2526;
BgL_new2744z00_2526 = 
((BgL_cfunzf2cinfozf2_bglt)(BgL_old2742z00_2524)); 
{ /* ./Cfa/cinfo.scm 40 */
long BgL_arg6210z00_2527;
BgL_arg6210z00_2527 = 
BGl_classzd2numzd2zz__objectz00(BGl_cfunzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 40 */
BgL_objectz00_bglt BgL_objz00_4171;
BgL_objz00_4171 = 
(BgL_objectz00_bglt)(BgL_new2744z00_2526); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4171, BgL_arg6210z00_2527); } } 
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunzf2cinfozf2_bglt BgL_arg6214z00_2528;
{ /* ./Cfa/cinfo.scm 40 */
obj_t BgL_arg6217z00_2529;
{ /* ./Cfa/cinfo.scm 40 */
int BgL_auxz00_7370;
BgL_auxz00_7370 = 
(int)(((long)0)); 
BgL_arg6217z00_2529 = 
STRUCT_REF(BgL_aux2743z00_2525, BgL_auxz00_7370); } 
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunzf2cinfozf2_bglt BgL_res6434z00_4181;
{ /* ./Cfa/cinfo.scm 40 */
BgL_approxz00_bglt BgL_approx2716z00_4175;
BgL_approx2716z00_4175 = 
(BgL_approxz00_bglt)(BgL_arg6217z00_2529); 
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunzf2cinfozf2_bglt BgL_new2717z00_4176;
BgL_new2717z00_4176 = 
((BgL_cfunzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_cfunzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunzf2cinfozf2_bglt BgL_res6433z00_4180;
{ /* ./Cfa/cinfo.scm 40 */
BgL_cfunzf2cinfozf2_bglt BgL_new2734z00_4177;
BgL_new2734z00_4177 = BgL_new2717z00_4176; 
{ /* ./Cfa/cinfo.scm 40 */
BgL_approxz00_bglt BgL_approx2733z00_4179;
BgL_approx2733z00_4179 = BgL_approx2716z00_4175; 
((((BgL_cfunzf2cinfozf2_bglt)CREF(BgL_new2734z00_4177))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2733z00_4179), BUNSPEC); 
BgL_res6433z00_4180 = BgL_new2734z00_4177; } } BgL_res6433z00_4180; } 
BgL_res6434z00_4181 = BgL_new2717z00_4176; } } 
BgL_arg6214z00_2528 = BgL_res6434z00_4181; } } 
{ /* ./Cfa/cinfo.scm 40 */
obj_t BgL_auxz00_7378;BgL_objectz00_bglt BgL_auxz00_7376;
BgL_auxz00_7378 = 
(obj_t)(BgL_arg6214z00_2528); 
BgL_auxz00_7376 = 
(BgL_objectz00_bglt)(BgL_new2744z00_2526); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7376, BgL_auxz00_7378); } } 
{ /* ./Cfa/cinfo.scm 40 */
obj_t BgL_objz00_4182;
BgL_objz00_4182 = 
(obj_t)(BgL_new2744z00_2526); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4182); BUNSPEC; } 
BgL_auxz00_7351 = BgL_new2744z00_2526; } } } 
return 
(obj_t)(BgL_auxz00_7351);} } } 
}



/* object->struct-cfun/Cinfo3978 */
obj_t BGl_objectzd2ze3structzd2cfunzf2Cinfo3978z11zzcfa_infoz00(obj_t BgL_envz00_4751, obj_t BgL_obj2739z00_4752)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 40 */
{ 
BgL_cfunzf2cinfozf2_bglt BgL_obj2739z00_2510;
BgL_obj2739z00_2510 = 
(BgL_cfunzf2cinfozf2_bglt)(BgL_obj2739z00_4752); 
{ 

{ /* ./Cfa/cinfo.scm 40 */
obj_t BgL_res2740z00_2513;
{ /* ./Cfa/cinfo.scm 40 */
obj_t BgL_nextzd2method3977zd2_2518;
BgL_nextzd2method3977zd2_2518 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj2739z00_2510), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_cfunzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 40 */
bool_t BgL_test6203z00_2519;
BgL_test6203z00_2519 = 
PROCEDUREP(BgL_nextzd2method3977zd2_2518); 
if(BgL_test6203z00_2519)
{ /* ./Cfa/cinfo.scm 40 */
BgL_res2740z00_2513 = 
PROCEDURE_ENTRY(BgL_nextzd2method3977zd2_2518)(BgL_nextzd2method3977zd2_2518, 
(obj_t)(BgL_obj2739z00_2510), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 40 */
BgL_res2740z00_2513 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj2739z00_2510)); } } } 
{ /* ./Cfa/cinfo.scm 40 */
obj_t BgL_aux2741z00_2514;
{ /* ./Cfa/cinfo.scm 40 */
obj_t BgL_keyz00_4152;int BgL_lenz00_4153;
BgL_keyz00_4152 = 
CNST_TABLE_REF(((long)1)); 
BgL_lenz00_4153 = 
(int)(((long)1)); 
BgL_aux2741z00_2514 = 
make_struct(BgL_keyz00_4152, BgL_lenz00_4153, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 40 */
BgL_approxz00_bglt BgL_arg6192z00_2516;
{ 
obj_t BgL_auxz00_7397;
{ /* ./Cfa/cinfo.scm 40 */
BgL_objectz00_bglt BgL_auxz00_7398;
BgL_auxz00_7398 = 
(BgL_objectz00_bglt)(BgL_obj2739z00_2510); 
BgL_auxz00_7397 = 
BGL_OBJECT_WIDENING(BgL_auxz00_7398); } 
BgL_arg6192z00_2516 = 
(((BgL_cfunzf2cinfozf2_bglt)CREF(BgL_auxz00_7397))->BgL_approxz00); } 
{ /* ./Cfa/cinfo.scm 40 */
int BgL_kz00_4157;obj_t BgL_oz00_4158;
BgL_kz00_4157 = 
(int)(((long)0)); 
BgL_oz00_4158 = 
(obj_t)(BgL_arg6192z00_2516); 
STRUCT_SET(BgL_aux2741z00_2514, BgL_kz00_4157, BgL_oz00_4158); } } 
{ /* ./Cfa/cinfo.scm 40 */
int BgL_kz00_4160;
BgL_kz00_4160 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res2740z00_2513, BgL_kz00_4160, BgL_aux2741z00_2514); } 
{ /* ./Cfa/cinfo.scm 40 */
obj_t BgL_arg6197z00_2517;
BgL_arg6197z00_2517 = 
STRUCT_KEY(BgL_res2740z00_2513); 
STRUCT_KEY_SET(BgL_aux2741z00_2514, BgL_arg6197z00_2517); } 
{ /* ./Cfa/cinfo.scm 40 */
obj_t BgL_kz00_4167;
BgL_kz00_4167 = 
CNST_TABLE_REF(((long)1)); 
STRUCT_KEY_SET(BgL_res2740z00_2513, BgL_kz00_4167); } 
return BgL_res2740z00_2513;} } } } } 
}



/* struct+object->object-extern-sfun/Cinfo3976 */
obj_t BGl_structzb2objectzd2ze3objectzd2externzd2sfunzf2Cinfo3976z71zzcfa_infoz00(obj_t BgL_envz00_4753, obj_t BgL_oz00_4754, obj_t BgL_sz00_4755)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 42 */
{ 
BgL_externzd2sfunzf2cinfoz20_bglt BgL_oz00_2498;obj_t BgL_sz00_2499;
{ /* ./Cfa/cinfo.scm 42 */
BgL_externzd2sfunzf2cinfoz20_bglt BgL_auxz00_7412;
BgL_oz00_2498 = 
(BgL_externzd2sfunzf2cinfoz20_bglt)(BgL_oz00_4754); 
BgL_sz00_2499 = BgL_sz00_4755; 
{ 

{ /* ./Cfa/cinfo.scm 42 */
obj_t BgL_old2801z00_2502;obj_t BgL_aux2802z00_2503;
{ /* ./Cfa/cinfo.scm 42 */
obj_t BgL_nextzd2method3975zd2_2508;
BgL_nextzd2method3975zd2_2508 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2498), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_externzd2sfunzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 42 */
bool_t BgL_test6184z00_2509;
BgL_test6184z00_2509 = 
PROCEDUREP(BgL_nextzd2method3975zd2_2508); 
if(BgL_test6184z00_2509)
{ /* ./Cfa/cinfo.scm 42 */
BgL_old2801z00_2502 = 
PROCEDURE_ENTRY(BgL_nextzd2method3975zd2_2508)(BgL_nextzd2method3975zd2_2508, 
(obj_t)(BgL_oz00_2498), BgL_sz00_2499, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 42 */
{ /* ./Cfa/cinfo.scm 42 */
BgL_objectz00_bglt BgL_auxz00_7420;
BgL_auxz00_7420 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2498), BgL_sz00_2499); 
BgL_old2801z00_2502 = 
(obj_t)(BgL_auxz00_7420); } } } } 
{ /* ./Cfa/cinfo.scm 42 */
int BgL_auxz00_7424;
BgL_auxz00_7424 = 
(int)(((long)0)); 
BgL_aux2802z00_2503 = 
STRUCT_REF(BgL_sz00_2499, BgL_auxz00_7424); } 
{ /* ./Cfa/cinfo.scm 42 */
BgL_externzd2sfunzf2cinfoz20_bglt BgL_new2803z00_2504;
BgL_new2803z00_2504 = 
((BgL_externzd2sfunzf2cinfoz20_bglt)(BgL_old2801z00_2502)); 
{ /* ./Cfa/cinfo.scm 42 */
long BgL_arg6171z00_2505;
BgL_arg6171z00_2505 = 
BGl_classzd2numzd2zz__objectz00(BGl_externzd2sfunzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 42 */
BgL_objectz00_bglt BgL_objz00_4139;
BgL_objz00_4139 = 
(BgL_objectz00_bglt)(BgL_new2803z00_2504); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4139, BgL_arg6171z00_2505); } } 
{ /* ./Cfa/cinfo.scm 42 */
BgL_externzd2sfunzf2cinfoz20_bglt BgL_arg6175z00_2506;
{ /* ./Cfa/cinfo.scm 42 */
obj_t BgL_arg6178z00_2507;
{ /* ./Cfa/cinfo.scm 42 */
int BgL_auxz00_7431;
BgL_auxz00_7431 = 
(int)(((long)0)); 
BgL_arg6178z00_2507 = 
STRUCT_REF(BgL_aux2802z00_2503, BgL_auxz00_7431); } 
{ /* ./Cfa/cinfo.scm 42 */
BgL_externzd2sfunzf2cinfoz20_bglt BgL_res6431z00_4149;
{ /* ./Cfa/cinfo.scm 42 */
BgL_approxz00_bglt BgL_approx2774z00_4143;
BgL_approx2774z00_4143 = 
(BgL_approxz00_bglt)(BgL_arg6178z00_2507); 
{ /* ./Cfa/cinfo.scm 42 */
BgL_externzd2sfunzf2cinfoz20_bglt BgL_new2775z00_4144;
BgL_new2775z00_4144 = 
((BgL_externzd2sfunzf2cinfoz20_bglt)BREF( GC_MALLOC (sizeof(struct BgL_externzd2sfunzf2cinfoz20_bgl)))); 
{ /* ./Cfa/cinfo.scm 42 */
BgL_externzd2sfunzf2cinfoz20_bglt BgL_res6430z00_4148;
{ /* ./Cfa/cinfo.scm 42 */
BgL_externzd2sfunzf2cinfoz20_bglt BgL_new2794z00_4145;
BgL_new2794z00_4145 = BgL_new2775z00_4144; 
{ /* ./Cfa/cinfo.scm 42 */
BgL_approxz00_bglt BgL_approx2793z00_4147;
BgL_approx2793z00_4147 = BgL_approx2774z00_4143; 
((((BgL_externzd2sfunzf2cinfoz20_bglt)CREF(BgL_new2794z00_4145))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2793z00_4147), BUNSPEC); 
BgL_res6430z00_4148 = BgL_new2794z00_4145; } } BgL_res6430z00_4148; } 
BgL_res6431z00_4149 = BgL_new2775z00_4144; } } 
BgL_arg6175z00_2506 = BgL_res6431z00_4149; } } 
{ /* ./Cfa/cinfo.scm 42 */
obj_t BgL_auxz00_7439;BgL_objectz00_bglt BgL_auxz00_7437;
BgL_auxz00_7439 = 
(obj_t)(BgL_arg6175z00_2506); 
BgL_auxz00_7437 = 
(BgL_objectz00_bglt)(BgL_new2803z00_2504); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7437, BgL_auxz00_7439); } } 
{ /* ./Cfa/cinfo.scm 42 */
obj_t BgL_objz00_4150;
BgL_objz00_4150 = 
(obj_t)(BgL_new2803z00_2504); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4150); BUNSPEC; } 
BgL_auxz00_7412 = BgL_new2803z00_2504; } } } 
return 
(obj_t)(BgL_auxz00_7412);} } } 
}



/* object->struct-extern-sfun/Cinfo3974 */
obj_t BGl_objectzd2ze3structzd2externzd2sfunzf2Cinfo3974zc3zzcfa_infoz00(obj_t BgL_envz00_4756, obj_t BgL_obj2798z00_4757)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 42 */
{ 
BgL_externzd2sfunzf2cinfoz20_bglt BgL_obj2798z00_2488;
BgL_obj2798z00_2488 = 
(BgL_externzd2sfunzf2cinfoz20_bglt)(BgL_obj2798z00_4757); 
{ 

{ /* ./Cfa/cinfo.scm 42 */
obj_t BgL_res2799z00_2491;
{ /* ./Cfa/cinfo.scm 42 */
obj_t BgL_nextzd2method3973zd2_2496;
BgL_nextzd2method3973zd2_2496 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj2798z00_2488), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_externzd2sfunzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 42 */
bool_t BgL_test6164z00_2497;
BgL_test6164z00_2497 = 
PROCEDUREP(BgL_nextzd2method3973zd2_2496); 
if(BgL_test6164z00_2497)
{ /* ./Cfa/cinfo.scm 42 */
BgL_res2799z00_2491 = 
PROCEDURE_ENTRY(BgL_nextzd2method3973zd2_2496)(BgL_nextzd2method3973zd2_2496, 
(obj_t)(BgL_obj2798z00_2488), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 42 */
BgL_res2799z00_2491 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj2798z00_2488)); } } } 
{ /* ./Cfa/cinfo.scm 42 */
obj_t BgL_aux2800z00_2492;
{ /* ./Cfa/cinfo.scm 42 */
obj_t BgL_keyz00_4120;int BgL_lenz00_4121;
BgL_keyz00_4120 = 
CNST_TABLE_REF(((long)2)); 
BgL_lenz00_4121 = 
(int)(((long)1)); 
BgL_aux2800z00_2492 = 
make_struct(BgL_keyz00_4120, BgL_lenz00_4121, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 42 */
BgL_approxz00_bglt BgL_arg6153z00_2494;
{ 
obj_t BgL_auxz00_7458;
{ /* ./Cfa/cinfo.scm 42 */
BgL_objectz00_bglt BgL_auxz00_7459;
BgL_auxz00_7459 = 
(BgL_objectz00_bglt)(BgL_obj2798z00_2488); 
BgL_auxz00_7458 = 
BGL_OBJECT_WIDENING(BgL_auxz00_7459); } 
BgL_arg6153z00_2494 = 
(((BgL_externzd2sfunzf2cinfoz20_bglt)CREF(BgL_auxz00_7458))->BgL_approxz00); } 
{ /* ./Cfa/cinfo.scm 42 */
int BgL_kz00_4125;obj_t BgL_oz00_4126;
BgL_kz00_4125 = 
(int)(((long)0)); 
BgL_oz00_4126 = 
(obj_t)(BgL_arg6153z00_2494); 
STRUCT_SET(BgL_aux2800z00_2492, BgL_kz00_4125, BgL_oz00_4126); } } 
{ /* ./Cfa/cinfo.scm 42 */
int BgL_kz00_4128;
BgL_kz00_4128 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res2799z00_2491, BgL_kz00_4128, BgL_aux2800z00_2492); } 
{ /* ./Cfa/cinfo.scm 42 */
obj_t BgL_arg6158z00_2495;
BgL_arg6158z00_2495 = 
STRUCT_KEY(BgL_res2799z00_2491); 
STRUCT_KEY_SET(BgL_aux2800z00_2492, BgL_arg6158z00_2495); } 
{ /* ./Cfa/cinfo.scm 42 */
obj_t BgL_kz00_4135;
BgL_kz00_4135 = 
CNST_TABLE_REF(((long)2)); 
STRUCT_KEY_SET(BgL_res2799z00_2491, BgL_kz00_4135); } 
return BgL_res2799z00_2491;} } } } } 
}



/* struct+object->object-intern-sfun/Cinfo3972 */
obj_t BGl_structzb2objectzd2ze3objectzd2internzd2sfunzf2Cinfo3972z71zzcfa_infoz00(obj_t BgL_envz00_4758, obj_t BgL_oz00_4759, obj_t BgL_sz00_4760)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 44 */
{ 
BgL_internzd2sfunzf2cinfoz20_bglt BgL_oz00_2475;obj_t BgL_sz00_2476;
{ /* ./Cfa/cinfo.scm 44 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_auxz00_7473;
BgL_oz00_2475 = 
(BgL_internzd2sfunzf2cinfoz20_bglt)(BgL_oz00_4759); 
BgL_sz00_2476 = BgL_sz00_4760; 
{ 

{ /* ./Cfa/cinfo.scm 44 */
obj_t BgL_old2874z00_2479;obj_t BgL_aux2875z00_2480;
{ /* ./Cfa/cinfo.scm 44 */
obj_t BgL_nextzd2method3971zd2_2486;
BgL_nextzd2method3971zd2_2486 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2475), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_internzd2sfunzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 44 */
bool_t BgL_test6145z00_2487;
BgL_test6145z00_2487 = 
PROCEDUREP(BgL_nextzd2method3971zd2_2486); 
if(BgL_test6145z00_2487)
{ /* ./Cfa/cinfo.scm 44 */
BgL_old2874z00_2479 = 
PROCEDURE_ENTRY(BgL_nextzd2method3971zd2_2486)(BgL_nextzd2method3971zd2_2486, 
(obj_t)(BgL_oz00_2475), BgL_sz00_2476, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 44 */
{ /* ./Cfa/cinfo.scm 44 */
BgL_objectz00_bglt BgL_auxz00_7481;
BgL_auxz00_7481 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2475), BgL_sz00_2476); 
BgL_old2874z00_2479 = 
(obj_t)(BgL_auxz00_7481); } } } } 
{ /* ./Cfa/cinfo.scm 44 */
int BgL_auxz00_7485;
BgL_auxz00_7485 = 
(int)(((long)0)); 
BgL_aux2875z00_2480 = 
STRUCT_REF(BgL_sz00_2476, BgL_auxz00_7485); } 
{ /* ./Cfa/cinfo.scm 44 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_new2876z00_2481;
BgL_new2876z00_2481 = 
((BgL_internzd2sfunzf2cinfoz20_bglt)(BgL_old2874z00_2479)); 
{ /* ./Cfa/cinfo.scm 44 */
long BgL_arg6130z00_2482;
BgL_arg6130z00_2482 = 
BGl_classzd2numzd2zz__objectz00(BGl_internzd2sfunzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 44 */
BgL_objectz00_bglt BgL_objz00_4102;
BgL_objz00_4102 = 
(BgL_objectz00_bglt)(BgL_new2876z00_2481); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4102, BgL_arg6130z00_2482); } } 
{ /* ./Cfa/cinfo.scm 44 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_arg6134z00_2483;
{ /* ./Cfa/cinfo.scm 44 */
obj_t BgL_arg6137z00_2484;obj_t BgL_arg6138z00_2485;
{ /* ./Cfa/cinfo.scm 44 */
int BgL_auxz00_7492;
BgL_auxz00_7492 = 
(int)(((long)0)); 
BgL_arg6137z00_2484 = 
STRUCT_REF(BgL_aux2875z00_2480, BgL_auxz00_7492); } 
{ /* ./Cfa/cinfo.scm 44 */
int BgL_auxz00_7495;
BgL_auxz00_7495 = 
(int)(((long)1)); 
BgL_arg6138z00_2485 = 
STRUCT_REF(BgL_aux2875z00_2480, BgL_auxz00_7495); } 
{ /* ./Cfa/cinfo.scm 44 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_res6428z00_4117;
{ /* ./Cfa/cinfo.scm 44 */
BgL_approxz00_bglt BgL_approx2843z00_4108;long BgL_stamp2844z00_4109;
BgL_approx2843z00_4108 = 
(BgL_approxz00_bglt)(BgL_arg6137z00_2484); 
BgL_stamp2844z00_4109 = 
(long)CINT(BgL_arg6138z00_2485); 
{ /* ./Cfa/cinfo.scm 44 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_new2845z00_4110;
BgL_new2845z00_4110 = 
((BgL_internzd2sfunzf2cinfoz20_bglt)BREF( GC_MALLOC (sizeof(struct BgL_internzd2sfunzf2cinfoz20_bgl)))); 
{ /* ./Cfa/cinfo.scm 44 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_res6427z00_4116;
{ /* ./Cfa/cinfo.scm 44 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_new2866z00_4111;
BgL_new2866z00_4111 = BgL_new2845z00_4110; 
{ /* ./Cfa/cinfo.scm 44 */
BgL_approxz00_bglt BgL_approx2864z00_4114;long BgL_stamp2865z00_4115;
BgL_approx2864z00_4114 = BgL_approx2843z00_4108; 
BgL_stamp2865z00_4115 = BgL_stamp2844z00_4109; 
((((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_new2866z00_4111))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2864z00_4114), BUNSPEC); 
((((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_new2866z00_4111))->BgL_stampz00) = ((long)BgL_stamp2865z00_4115), BUNSPEC); 
BgL_res6427z00_4116 = BgL_new2866z00_4111; } } BgL_res6427z00_4116; } 
BgL_res6428z00_4117 = BgL_new2845z00_4110; } } 
BgL_arg6134z00_2483 = BgL_res6428z00_4117; } } 
{ /* ./Cfa/cinfo.scm 44 */
obj_t BgL_auxz00_7505;BgL_objectz00_bglt BgL_auxz00_7503;
BgL_auxz00_7505 = 
(obj_t)(BgL_arg6134z00_2483); 
BgL_auxz00_7503 = 
(BgL_objectz00_bglt)(BgL_new2876z00_2481); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7503, BgL_auxz00_7505); } } 
{ /* ./Cfa/cinfo.scm 44 */
obj_t BgL_objz00_4118;
BgL_objz00_4118 = 
(obj_t)(BgL_new2876z00_2481); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4118); BUNSPEC; } 
BgL_auxz00_7473 = BgL_new2876z00_2481; } } } 
return 
(obj_t)(BgL_auxz00_7473);} } } 
}



/* object->struct-intern-sfun/Cinfo3970 */
obj_t BGl_objectzd2ze3structzd2internzd2sfunzf2Cinfo3970zc3zzcfa_infoz00(obj_t BgL_envz00_4761, obj_t BgL_obj2871z00_4762)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 44 */
{ 
BgL_internzd2sfunzf2cinfoz20_bglt BgL_obj2871z00_2463;
BgL_obj2871z00_2463 = 
(BgL_internzd2sfunzf2cinfoz20_bglt)(BgL_obj2871z00_4762); 
{ 

{ /* ./Cfa/cinfo.scm 44 */
obj_t BgL_res2872z00_2466;
{ /* ./Cfa/cinfo.scm 44 */
obj_t BgL_nextzd2method3969zd2_2473;
BgL_nextzd2method3969zd2_2473 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj2871z00_2463), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_internzd2sfunzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 44 */
bool_t BgL_test6123z00_2474;
BgL_test6123z00_2474 = 
PROCEDUREP(BgL_nextzd2method3969zd2_2473); 
if(BgL_test6123z00_2474)
{ /* ./Cfa/cinfo.scm 44 */
BgL_res2872z00_2466 = 
PROCEDURE_ENTRY(BgL_nextzd2method3969zd2_2473)(BgL_nextzd2method3969zd2_2473, 
(obj_t)(BgL_obj2871z00_2463), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 44 */
BgL_res2872z00_2466 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj2871z00_2463)); } } } 
{ /* ./Cfa/cinfo.scm 44 */
obj_t BgL_aux2873z00_2467;
{ /* ./Cfa/cinfo.scm 44 */
obj_t BgL_keyz00_4079;int BgL_lenz00_4080;
BgL_keyz00_4079 = 
CNST_TABLE_REF(((long)3)); 
BgL_lenz00_4080 = 
(int)(((long)2)); 
BgL_aux2873z00_2467 = 
make_struct(BgL_keyz00_4079, BgL_lenz00_4080, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 44 */
BgL_approxz00_bglt BgL_arg6107z00_2469;
{ 
obj_t BgL_auxz00_7524;
{ /* ./Cfa/cinfo.scm 44 */
BgL_objectz00_bglt BgL_auxz00_7525;
BgL_auxz00_7525 = 
(BgL_objectz00_bglt)(BgL_obj2871z00_2463); 
BgL_auxz00_7524 = 
BGL_OBJECT_WIDENING(BgL_auxz00_7525); } 
BgL_arg6107z00_2469 = 
(((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_auxz00_7524))->BgL_approxz00); } 
{ /* ./Cfa/cinfo.scm 44 */
int BgL_kz00_4084;obj_t BgL_oz00_4085;
BgL_kz00_4084 = 
(int)(((long)0)); 
BgL_oz00_4085 = 
(obj_t)(BgL_arg6107z00_2469); 
STRUCT_SET(BgL_aux2873z00_2467, BgL_kz00_4084, BgL_oz00_4085); } } 
{ /* ./Cfa/cinfo.scm 44 */
long BgL_arg6112z00_2471;
{ 
obj_t BgL_auxz00_7532;
{ /* ./Cfa/cinfo.scm 44 */
BgL_objectz00_bglt BgL_auxz00_7533;
BgL_auxz00_7533 = 
(BgL_objectz00_bglt)(BgL_obj2871z00_2463); 
BgL_auxz00_7532 = 
BGL_OBJECT_WIDENING(BgL_auxz00_7533); } 
BgL_arg6112z00_2471 = 
(((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_auxz00_7532))->BgL_stampz00); } 
{ /* ./Cfa/cinfo.scm 44 */
int BgL_kz00_4088;obj_t BgL_oz00_4089;
BgL_kz00_4088 = 
(int)(((long)1)); 
BgL_oz00_4089 = 
BINT(BgL_arg6112z00_2471); 
STRUCT_SET(BgL_aux2873z00_2467, BgL_kz00_4088, BgL_oz00_4089); } } 
{ /* ./Cfa/cinfo.scm 44 */
int BgL_kz00_4091;
BgL_kz00_4091 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res2872z00_2466, BgL_kz00_4091, BgL_aux2873z00_2467); } 
{ /* ./Cfa/cinfo.scm 44 */
obj_t BgL_arg6117z00_2472;
BgL_arg6117z00_2472 = 
STRUCT_KEY(BgL_res2872z00_2466); 
STRUCT_KEY_SET(BgL_aux2873z00_2467, BgL_arg6117z00_2472); } 
{ /* ./Cfa/cinfo.scm 44 */
obj_t BgL_kz00_4098;
BgL_kz00_4098 = 
CNST_TABLE_REF(((long)3)); 
STRUCT_KEY_SET(BgL_res2872z00_2466, BgL_kz00_4098); } 
return BgL_res2872z00_2466;} } } } } 
}



/* struct+object->object-scnst/Cinfo3968 */
obj_t BGl_structzb2objectzd2ze3objectzd2scnstzf2Cinfo3968za3zzcfa_infoz00(obj_t BgL_envz00_4763, obj_t BgL_oz00_4764, obj_t BgL_sz00_4765)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 49 */
{ 
BgL_scnstzf2cinfozf2_bglt BgL_oz00_2451;obj_t BgL_sz00_2452;
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstzf2cinfozf2_bglt BgL_auxz00_7547;
BgL_oz00_2451 = 
(BgL_scnstzf2cinfozf2_bglt)(BgL_oz00_4764); 
BgL_sz00_2452 = BgL_sz00_4765; 
{ 

{ /* ./Cfa/cinfo.scm 49 */
obj_t BgL_old2937z00_2455;obj_t BgL_aux2938z00_2456;
{ /* ./Cfa/cinfo.scm 49 */
obj_t BgL_nextzd2method3967zd2_2461;
BgL_nextzd2method3967zd2_2461 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2451), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_scnstzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 49 */
bool_t BgL_test6099z00_2462;
BgL_test6099z00_2462 = 
PROCEDUREP(BgL_nextzd2method3967zd2_2461); 
if(BgL_test6099z00_2462)
{ /* ./Cfa/cinfo.scm 49 */
BgL_old2937z00_2455 = 
PROCEDURE_ENTRY(BgL_nextzd2method3967zd2_2461)(BgL_nextzd2method3967zd2_2461, 
(obj_t)(BgL_oz00_2451), BgL_sz00_2452, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 49 */
{ /* ./Cfa/cinfo.scm 49 */
BgL_objectz00_bglt BgL_auxz00_7555;
BgL_auxz00_7555 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2451), BgL_sz00_2452); 
BgL_old2937z00_2455 = 
(obj_t)(BgL_auxz00_7555); } } } } 
{ /* ./Cfa/cinfo.scm 49 */
int BgL_auxz00_7559;
BgL_auxz00_7559 = 
(int)(((long)0)); 
BgL_aux2938z00_2456 = 
STRUCT_REF(BgL_sz00_2452, BgL_auxz00_7559); } 
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstzf2cinfozf2_bglt BgL_new2939z00_2457;
BgL_new2939z00_2457 = 
((BgL_scnstzf2cinfozf2_bglt)(BgL_old2937z00_2455)); 
{ /* ./Cfa/cinfo.scm 49 */
long BgL_arg6086z00_2458;
BgL_arg6086z00_2458 = 
BGl_classzd2numzd2zz__objectz00(BGl_scnstzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 49 */
BgL_objectz00_bglt BgL_objz00_4066;
BgL_objz00_4066 = 
(BgL_objectz00_bglt)(BgL_new2939z00_2457); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4066, BgL_arg6086z00_2458); } } 
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstzf2cinfozf2_bglt BgL_arg6090z00_2459;
{ /* ./Cfa/cinfo.scm 49 */
obj_t BgL_arg6093z00_2460;
{ /* ./Cfa/cinfo.scm 49 */
int BgL_auxz00_7566;
BgL_auxz00_7566 = 
(int)(((long)0)); 
BgL_arg6093z00_2460 = 
STRUCT_REF(BgL_aux2938z00_2456, BgL_auxz00_7566); } 
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstzf2cinfozf2_bglt BgL_res6425z00_4076;
{ /* ./Cfa/cinfo.scm 49 */
BgL_approxz00_bglt BgL_approx2920z00_4070;
BgL_approx2920z00_4070 = 
(BgL_approxz00_bglt)(BgL_arg6093z00_2460); 
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstzf2cinfozf2_bglt BgL_new2921z00_4071;
BgL_new2921z00_4071 = 
((BgL_scnstzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_scnstzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstzf2cinfozf2_bglt BgL_res6424z00_4075;
{ /* ./Cfa/cinfo.scm 49 */
BgL_scnstzf2cinfozf2_bglt BgL_new2930z00_4072;
BgL_new2930z00_4072 = BgL_new2921z00_4071; 
{ /* ./Cfa/cinfo.scm 49 */
BgL_approxz00_bglt BgL_approx2929z00_4074;
BgL_approx2929z00_4074 = BgL_approx2920z00_4070; 
((((BgL_scnstzf2cinfozf2_bglt)CREF(BgL_new2930z00_4072))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2929z00_4074), BUNSPEC); 
BgL_res6424z00_4075 = BgL_new2930z00_4072; } } BgL_res6424z00_4075; } 
BgL_res6425z00_4076 = BgL_new2921z00_4071; } } 
BgL_arg6090z00_2459 = BgL_res6425z00_4076; } } 
{ /* ./Cfa/cinfo.scm 49 */
obj_t BgL_auxz00_7574;BgL_objectz00_bglt BgL_auxz00_7572;
BgL_auxz00_7574 = 
(obj_t)(BgL_arg6090z00_2459); 
BgL_auxz00_7572 = 
(BgL_objectz00_bglt)(BgL_new2939z00_2457); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7572, BgL_auxz00_7574); } } 
{ /* ./Cfa/cinfo.scm 49 */
obj_t BgL_objz00_4077;
BgL_objz00_4077 = 
(obj_t)(BgL_new2939z00_2457); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4077); BUNSPEC; } 
BgL_auxz00_7547 = BgL_new2939z00_2457; } } } 
return 
(obj_t)(BgL_auxz00_7547);} } } 
}



/* object->struct-scnst/Cinfo3966 */
obj_t BGl_objectzd2ze3structzd2scnstzf2Cinfo3966z11zzcfa_infoz00(obj_t BgL_envz00_4766, obj_t BgL_obj2934z00_4767)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 49 */
{ 
BgL_scnstzf2cinfozf2_bglt BgL_obj2934z00_2441;
BgL_obj2934z00_2441 = 
(BgL_scnstzf2cinfozf2_bglt)(BgL_obj2934z00_4767); 
{ 

{ /* ./Cfa/cinfo.scm 49 */
obj_t BgL_res2935z00_2444;
{ /* ./Cfa/cinfo.scm 49 */
obj_t BgL_nextzd2method3965zd2_2449;
BgL_nextzd2method3965zd2_2449 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj2934z00_2441), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_scnstzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 49 */
bool_t BgL_test6079z00_2450;
BgL_test6079z00_2450 = 
PROCEDUREP(BgL_nextzd2method3965zd2_2449); 
if(BgL_test6079z00_2450)
{ /* ./Cfa/cinfo.scm 49 */
BgL_res2935z00_2444 = 
PROCEDURE_ENTRY(BgL_nextzd2method3965zd2_2449)(BgL_nextzd2method3965zd2_2449, 
(obj_t)(BgL_obj2934z00_2441), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 49 */
BgL_res2935z00_2444 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj2934z00_2441)); } } } 
{ /* ./Cfa/cinfo.scm 49 */
obj_t BgL_aux2936z00_2445;
{ /* ./Cfa/cinfo.scm 49 */
obj_t BgL_keyz00_4047;int BgL_lenz00_4048;
BgL_keyz00_4047 = 
CNST_TABLE_REF(((long)4)); 
BgL_lenz00_4048 = 
(int)(((long)1)); 
BgL_aux2936z00_2445 = 
make_struct(BgL_keyz00_4047, BgL_lenz00_4048, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 49 */
BgL_approxz00_bglt BgL_arg6068z00_2447;
{ 
obj_t BgL_auxz00_7593;
{ /* ./Cfa/cinfo.scm 49 */
BgL_objectz00_bglt BgL_auxz00_7594;
BgL_auxz00_7594 = 
(BgL_objectz00_bglt)(BgL_obj2934z00_2441); 
BgL_auxz00_7593 = 
BGL_OBJECT_WIDENING(BgL_auxz00_7594); } 
BgL_arg6068z00_2447 = 
(((BgL_scnstzf2cinfozf2_bglt)CREF(BgL_auxz00_7593))->BgL_approxz00); } 
{ /* ./Cfa/cinfo.scm 49 */
int BgL_kz00_4052;obj_t BgL_oz00_4053;
BgL_kz00_4052 = 
(int)(((long)0)); 
BgL_oz00_4053 = 
(obj_t)(BgL_arg6068z00_2447); 
STRUCT_SET(BgL_aux2936z00_2445, BgL_kz00_4052, BgL_oz00_4053); } } 
{ /* ./Cfa/cinfo.scm 49 */
int BgL_kz00_4055;
BgL_kz00_4055 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res2935z00_2444, BgL_kz00_4055, BgL_aux2936z00_2445); } 
{ /* ./Cfa/cinfo.scm 49 */
obj_t BgL_arg6073z00_2448;
BgL_arg6073z00_2448 = 
STRUCT_KEY(BgL_res2935z00_2444); 
STRUCT_KEY_SET(BgL_aux2936z00_2445, BgL_arg6073z00_2448); } 
{ /* ./Cfa/cinfo.scm 49 */
obj_t BgL_kz00_4062;
BgL_kz00_4062 = 
CNST_TABLE_REF(((long)4)); 
STRUCT_KEY_SET(BgL_res2935z00_2444, BgL_kz00_4062); } 
return BgL_res2935z00_2444;} } } } } 
}



/* struct+object->object-pre-clo-env3964 */
obj_t BGl_structzb2objectzd2ze3objectzd2prezd2clozd2env3964z51zzcfa_infoz00(obj_t BgL_envz00_4768, obj_t BgL_oz00_4769, obj_t BgL_sz00_4770)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 53 */
{ 
BgL_prezd2clozd2envz00_bglt BgL_oz00_2430;obj_t BgL_sz00_2431;
{ /* ./Cfa/cinfo.scm 53 */
BgL_prezd2clozd2envz00_bglt BgL_auxz00_7608;
BgL_oz00_2430 = 
(BgL_prezd2clozd2envz00_bglt)(BgL_oz00_4769); 
BgL_sz00_2431 = BgL_sz00_4770; 
{ 

{ /* ./Cfa/cinfo.scm 53 */
obj_t BgL_old2960z00_2434;
{ /* ./Cfa/cinfo.scm 53 */
obj_t BgL_nextzd2method3963zd2_2439;
BgL_nextzd2method3963zd2_2439 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2430), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_prezd2clozd2envz00zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 53 */
bool_t BgL_test6060z00_2440;
BgL_test6060z00_2440 = 
PROCEDUREP(BgL_nextzd2method3963zd2_2439); 
if(BgL_test6060z00_2440)
{ /* ./Cfa/cinfo.scm 53 */
BgL_old2960z00_2434 = 
PROCEDURE_ENTRY(BgL_nextzd2method3963zd2_2439)(BgL_nextzd2method3963zd2_2439, 
(obj_t)(BgL_oz00_2430), BgL_sz00_2431, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 53 */
{ /* ./Cfa/cinfo.scm 53 */
BgL_objectz00_bglt BgL_auxz00_7616;
BgL_auxz00_7616 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2430), BgL_sz00_2431); 
BgL_old2960z00_2434 = 
(obj_t)(BgL_auxz00_7616); } } } } 
{ /* ./Cfa/cinfo.scm 53 */
BgL_prezd2clozd2envz00_bglt BgL_new2962z00_2436;
BgL_new2962z00_2436 = 
((BgL_prezd2clozd2envz00_bglt)(BgL_old2960z00_2434)); 
{ /* ./Cfa/cinfo.scm 53 */
long BgL_arg6050z00_2437;
BgL_arg6050z00_2437 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2clozd2envz00zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 53 */
BgL_objectz00_bglt BgL_objz00_4043;
BgL_objz00_4043 = 
(BgL_objectz00_bglt)(BgL_new2962z00_2436); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4043, BgL_arg6050z00_2437); } } 
{ /* ./Cfa/cinfo.scm 53 */
BgL_prezd2clozd2envz00_bglt BgL_arg6054z00_2438;
BgL_arg6054z00_2438 = 
BGl_wideningzd2prezd2clozd2envzd2zzcfa_infoz00(); 
{ /* ./Cfa/cinfo.scm 53 */
obj_t BgL_auxz00_7627;BgL_objectz00_bglt BgL_auxz00_7625;
BgL_auxz00_7627 = 
(obj_t)(BgL_arg6054z00_2438); 
BgL_auxz00_7625 = 
(BgL_objectz00_bglt)(BgL_new2962z00_2436); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7625, BgL_auxz00_7627); } } 
{ /* ./Cfa/cinfo.scm 53 */
obj_t BgL_objz00_4045;
BgL_objz00_4045 = 
(obj_t)(BgL_new2962z00_2436); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4045); BUNSPEC; } 
BgL_auxz00_7608 = BgL_new2962z00_2436; } } } 
return 
(obj_t)(BgL_auxz00_7608);} } } 
}



/* object->struct-pre-clo-env3962 */
obj_t BGl_objectzd2ze3structzd2prezd2clozd2env3962ze3zzcfa_infoz00(obj_t BgL_envz00_4771, obj_t BgL_obj2957z00_4772)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 53 */
{ 
BgL_prezd2clozd2envz00_bglt BgL_obj2957z00_2422;
BgL_obj2957z00_2422 = 
(BgL_prezd2clozd2envz00_bglt)(BgL_obj2957z00_4772); 
{ 

{ /* ./Cfa/cinfo.scm 53 */
obj_t BgL_res2958z00_2425;
{ /* ./Cfa/cinfo.scm 53 */
obj_t BgL_nextzd2method3961zd2_2428;
BgL_nextzd2method3961zd2_2428 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj2957z00_2422), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_prezd2clozd2envz00zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 53 */
bool_t BgL_test6043z00_2429;
BgL_test6043z00_2429 = 
PROCEDUREP(BgL_nextzd2method3961zd2_2428); 
if(BgL_test6043z00_2429)
{ /* ./Cfa/cinfo.scm 53 */
BgL_res2958z00_2425 = 
PROCEDURE_ENTRY(BgL_nextzd2method3961zd2_2428)(BgL_nextzd2method3961zd2_2428, 
(obj_t)(BgL_obj2957z00_2422), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 53 */
BgL_res2958z00_2425 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj2957z00_2422)); } } } 
{ /* ./Cfa/cinfo.scm 53 */
obj_t BgL_aux2959z00_2426;
{ /* ./Cfa/cinfo.scm 53 */
obj_t BgL_keyz00_4028;int BgL_lenz00_4029;
BgL_keyz00_4028 = 
CNST_TABLE_REF(((long)5)); 
BgL_lenz00_4029 = 
(int)(((long)0)); 
BgL_aux2959z00_2426 = 
make_struct(BgL_keyz00_4028, BgL_lenz00_4029, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 53 */
int BgL_kz00_4032;
BgL_kz00_4032 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res2958z00_2425, BgL_kz00_4032, BgL_aux2959z00_2426); } 
{ /* ./Cfa/cinfo.scm 53 */
obj_t BgL_arg6037z00_2427;
BgL_arg6037z00_2427 = 
STRUCT_KEY(BgL_res2958z00_2425); 
STRUCT_KEY_SET(BgL_aux2959z00_2426, BgL_arg6037z00_2427); } 
{ /* ./Cfa/cinfo.scm 53 */
obj_t BgL_kz00_4039;
BgL_kz00_4039 = 
CNST_TABLE_REF(((long)5)); 
STRUCT_KEY_SET(BgL_res2958z00_2425, BgL_kz00_4039); } 
return BgL_res2958z00_2425;} } } } } 
}



/* struct+object->object-svar/Cinfo3960 */
obj_t BGl_structzb2objectzd2ze3objectzd2svarzf2Cinfo3960za3zzcfa_infoz00(obj_t BgL_envz00_4773, obj_t BgL_oz00_4774, obj_t BgL_sz00_4775)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 54 */
{ 
BgL_svarzf2cinfozf2_bglt BgL_oz00_2409;obj_t BgL_sz00_2410;
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarzf2cinfozf2_bglt BgL_auxz00_7653;
BgL_oz00_2409 = 
(BgL_svarzf2cinfozf2_bglt)(BgL_oz00_4774); 
BgL_sz00_2410 = BgL_sz00_4775; 
{ 

{ /* ./Cfa/cinfo.scm 54 */
obj_t BgL_old2987z00_2413;obj_t BgL_aux2988z00_2414;
{ /* ./Cfa/cinfo.scm 54 */
obj_t BgL_nextzd2method3959zd2_2420;
BgL_nextzd2method3959zd2_2420 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2409), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_svarzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 54 */
bool_t BgL_test6029z00_2421;
BgL_test6029z00_2421 = 
PROCEDUREP(BgL_nextzd2method3959zd2_2420); 
if(BgL_test6029z00_2421)
{ /* ./Cfa/cinfo.scm 54 */
BgL_old2987z00_2413 = 
PROCEDURE_ENTRY(BgL_nextzd2method3959zd2_2420)(BgL_nextzd2method3959zd2_2420, 
(obj_t)(BgL_oz00_2409), BgL_sz00_2410, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 54 */
{ /* ./Cfa/cinfo.scm 54 */
BgL_objectz00_bglt BgL_auxz00_7661;
BgL_auxz00_7661 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2409), BgL_sz00_2410); 
BgL_old2987z00_2413 = 
(obj_t)(BgL_auxz00_7661); } } } } 
{ /* ./Cfa/cinfo.scm 54 */
int BgL_auxz00_7665;
BgL_auxz00_7665 = 
(int)(((long)0)); 
BgL_aux2988z00_2414 = 
STRUCT_REF(BgL_sz00_2410, BgL_auxz00_7665); } 
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarzf2cinfozf2_bglt BgL_new2989z00_2415;
BgL_new2989z00_2415 = 
((BgL_svarzf2cinfozf2_bglt)(BgL_old2987z00_2413)); 
{ /* ./Cfa/cinfo.scm 54 */
long BgL_arg6014z00_2416;
BgL_arg6014z00_2416 = 
BGl_classzd2numzd2zz__objectz00(BGl_svarzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 54 */
BgL_objectz00_bglt BgL_objz00_4010;
BgL_objz00_4010 = 
(BgL_objectz00_bglt)(BgL_new2989z00_2415); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4010, BgL_arg6014z00_2416); } } 
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarzf2cinfozf2_bglt BgL_arg6018z00_2417;
{ /* ./Cfa/cinfo.scm 54 */
obj_t BgL_arg6021z00_2418;obj_t BgL_arg6022z00_2419;
{ /* ./Cfa/cinfo.scm 54 */
int BgL_auxz00_7672;
BgL_auxz00_7672 = 
(int)(((long)0)); 
BgL_arg6021z00_2418 = 
STRUCT_REF(BgL_aux2988z00_2414, BgL_auxz00_7672); } 
{ /* ./Cfa/cinfo.scm 54 */
int BgL_auxz00_7675;
BgL_auxz00_7675 = 
(int)(((long)1)); 
BgL_arg6022z00_2419 = 
STRUCT_REF(BgL_aux2988z00_2414, BgL_auxz00_7675); } 
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarzf2cinfozf2_bglt BgL_res6421z00_4025;
{ /* ./Cfa/cinfo.scm 54 */
BgL_approxz00_bglt BgL_approx2967z00_4016;bool_t BgL_clozd2envzf32968z21_4017;
BgL_approx2967z00_4016 = 
(BgL_approxz00_bglt)(BgL_arg6021z00_2418); 
BgL_clozd2envzf32968z21_4017 = 
CBOOL(BgL_arg6022z00_2419); 
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarzf2cinfozf2_bglt BgL_new2969z00_4018;
BgL_new2969z00_4018 = 
((BgL_svarzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_svarzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarzf2cinfozf2_bglt BgL_res6420z00_4024;
{ /* ./Cfa/cinfo.scm 54 */
BgL_svarzf2cinfozf2_bglt BgL_new2978z00_4019;
BgL_new2978z00_4019 = BgL_new2969z00_4018; 
{ /* ./Cfa/cinfo.scm 54 */
BgL_approxz00_bglt BgL_approx2976z00_4022;bool_t BgL_clozd2envzf32977z21_4023;
BgL_approx2976z00_4022 = BgL_approx2967z00_4016; 
BgL_clozd2envzf32977z21_4023 = BgL_clozd2envzf32968z21_4017; 
((((BgL_svarzf2cinfozf2_bglt)CREF(BgL_new2978z00_4019))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx2976z00_4022), BUNSPEC); 
((((BgL_svarzf2cinfozf2_bglt)CREF(BgL_new2978z00_4019))->BgL_clozd2envzf3z21) = ((bool_t)BgL_clozd2envzf32977z21_4023), BUNSPEC); 
BgL_res6420z00_4024 = BgL_new2978z00_4019; } } BgL_res6420z00_4024; } 
BgL_res6421z00_4025 = BgL_new2969z00_4018; } } 
BgL_arg6018z00_2417 = BgL_res6421z00_4025; } } 
{ /* ./Cfa/cinfo.scm 54 */
obj_t BgL_auxz00_7685;BgL_objectz00_bglt BgL_auxz00_7683;
BgL_auxz00_7685 = 
(obj_t)(BgL_arg6018z00_2417); 
BgL_auxz00_7683 = 
(BgL_objectz00_bglt)(BgL_new2989z00_2415); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7683, BgL_auxz00_7685); } } 
{ /* ./Cfa/cinfo.scm 54 */
obj_t BgL_objz00_4026;
BgL_objz00_4026 = 
(obj_t)(BgL_new2989z00_2415); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4026); BUNSPEC; } 
BgL_auxz00_7653 = BgL_new2989z00_2415; } } } 
return 
(obj_t)(BgL_auxz00_7653);} } } 
}



/* object->struct-svar/Cinfo3958 */
obj_t BGl_objectzd2ze3structzd2svarzf2Cinfo3958z11zzcfa_infoz00(obj_t BgL_envz00_4776, obj_t BgL_obj2984z00_4777)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 54 */
{ 
BgL_svarzf2cinfozf2_bglt BgL_obj2984z00_2397;
BgL_obj2984z00_2397 = 
(BgL_svarzf2cinfozf2_bglt)(BgL_obj2984z00_4777); 
{ 

{ /* ./Cfa/cinfo.scm 54 */
obj_t BgL_res2985z00_2400;
{ /* ./Cfa/cinfo.scm 54 */
obj_t BgL_nextzd2method3957zd2_2407;
BgL_nextzd2method3957zd2_2407 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj2984z00_2397), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_svarzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 54 */
bool_t BgL_test6007z00_2408;
BgL_test6007z00_2408 = 
PROCEDUREP(BgL_nextzd2method3957zd2_2407); 
if(BgL_test6007z00_2408)
{ /* ./Cfa/cinfo.scm 54 */
BgL_res2985z00_2400 = 
PROCEDURE_ENTRY(BgL_nextzd2method3957zd2_2407)(BgL_nextzd2method3957zd2_2407, 
(obj_t)(BgL_obj2984z00_2397), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 54 */
BgL_res2985z00_2400 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj2984z00_2397)); } } } 
{ /* ./Cfa/cinfo.scm 54 */
obj_t BgL_aux2986z00_2401;
{ /* ./Cfa/cinfo.scm 54 */
obj_t BgL_keyz00_3987;int BgL_lenz00_3988;
BgL_keyz00_3987 = 
CNST_TABLE_REF(((long)6)); 
BgL_lenz00_3988 = 
(int)(((long)2)); 
BgL_aux2986z00_2401 = 
make_struct(BgL_keyz00_3987, BgL_lenz00_3988, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 54 */
BgL_approxz00_bglt BgL_arg5991z00_2403;
{ 
obj_t BgL_auxz00_7704;
{ /* ./Cfa/cinfo.scm 54 */
BgL_objectz00_bglt BgL_auxz00_7705;
BgL_auxz00_7705 = 
(BgL_objectz00_bglt)(BgL_obj2984z00_2397); 
BgL_auxz00_7704 = 
BGL_OBJECT_WIDENING(BgL_auxz00_7705); } 
BgL_arg5991z00_2403 = 
(((BgL_svarzf2cinfozf2_bglt)CREF(BgL_auxz00_7704))->BgL_approxz00); } 
{ /* ./Cfa/cinfo.scm 54 */
int BgL_kz00_3992;obj_t BgL_oz00_3993;
BgL_kz00_3992 = 
(int)(((long)0)); 
BgL_oz00_3993 = 
(obj_t)(BgL_arg5991z00_2403); 
STRUCT_SET(BgL_aux2986z00_2401, BgL_kz00_3992, BgL_oz00_3993); } } 
{ /* ./Cfa/cinfo.scm 54 */
bool_t BgL_arg5996z00_2405;
{ 
obj_t BgL_auxz00_7712;
{ /* ./Cfa/cinfo.scm 54 */
BgL_objectz00_bglt BgL_auxz00_7713;
BgL_auxz00_7713 = 
(BgL_objectz00_bglt)(BgL_obj2984z00_2397); 
BgL_auxz00_7712 = 
BGL_OBJECT_WIDENING(BgL_auxz00_7713); } 
BgL_arg5996z00_2405 = 
(((BgL_svarzf2cinfozf2_bglt)CREF(BgL_auxz00_7712))->BgL_clozd2envzf3z21); } 
{ /* ./Cfa/cinfo.scm 54 */
int BgL_kz00_3996;obj_t BgL_oz00_3997;
BgL_kz00_3996 = 
(int)(((long)1)); 
BgL_oz00_3997 = 
BBOOL(BgL_arg5996z00_2405); 
STRUCT_SET(BgL_aux2986z00_2401, BgL_kz00_3996, BgL_oz00_3997); } } 
{ /* ./Cfa/cinfo.scm 54 */
int BgL_kz00_3999;
BgL_kz00_3999 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res2985z00_2400, BgL_kz00_3999, BgL_aux2986z00_2401); } 
{ /* ./Cfa/cinfo.scm 54 */
obj_t BgL_arg6001z00_2406;
BgL_arg6001z00_2406 = 
STRUCT_KEY(BgL_res2985z00_2400); 
STRUCT_KEY_SET(BgL_aux2986z00_2401, BgL_arg6001z00_2406); } 
{ /* ./Cfa/cinfo.scm 54 */
obj_t BgL_kz00_4006;
BgL_kz00_4006 = 
CNST_TABLE_REF(((long)6)); 
STRUCT_KEY_SET(BgL_res2985z00_2400, BgL_kz00_4006); } 
return BgL_res2985z00_2400;} } } } } 
}



/* struct+object->object-cvar/Cinfo3956 */
obj_t BGl_structzb2objectzd2ze3objectzd2cvarzf2Cinfo3956za3zzcfa_infoz00(obj_t BgL_envz00_4778, obj_t BgL_oz00_4779, obj_t BgL_sz00_4780)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 60 */
{ 
BgL_cvarzf2cinfozf2_bglt BgL_oz00_2385;obj_t BgL_sz00_2386;
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarzf2cinfozf2_bglt BgL_auxz00_7727;
BgL_oz00_2385 = 
(BgL_cvarzf2cinfozf2_bglt)(BgL_oz00_4779); 
BgL_sz00_2386 = BgL_sz00_4780; 
{ 

{ /* ./Cfa/cinfo.scm 60 */
obj_t BgL_old3013z00_2389;obj_t BgL_aux3014z00_2390;
{ /* ./Cfa/cinfo.scm 60 */
obj_t BgL_nextzd2method3955zd2_2395;
BgL_nextzd2method3955zd2_2395 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2385), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_cvarzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 60 */
bool_t BgL_test5983z00_2396;
BgL_test5983z00_2396 = 
PROCEDUREP(BgL_nextzd2method3955zd2_2395); 
if(BgL_test5983z00_2396)
{ /* ./Cfa/cinfo.scm 60 */
BgL_old3013z00_2389 = 
PROCEDURE_ENTRY(BgL_nextzd2method3955zd2_2395)(BgL_nextzd2method3955zd2_2395, 
(obj_t)(BgL_oz00_2385), BgL_sz00_2386, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 60 */
{ /* ./Cfa/cinfo.scm 60 */
BgL_objectz00_bglt BgL_auxz00_7735;
BgL_auxz00_7735 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2385), BgL_sz00_2386); 
BgL_old3013z00_2389 = 
(obj_t)(BgL_auxz00_7735); } } } } 
{ /* ./Cfa/cinfo.scm 60 */
int BgL_auxz00_7739;
BgL_auxz00_7739 = 
(int)(((long)0)); 
BgL_aux3014z00_2390 = 
STRUCT_REF(BgL_sz00_2386, BgL_auxz00_7739); } 
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarzf2cinfozf2_bglt BgL_new3015z00_2391;
BgL_new3015z00_2391 = 
((BgL_cvarzf2cinfozf2_bglt)(BgL_old3013z00_2389)); 
{ /* ./Cfa/cinfo.scm 60 */
long BgL_arg5970z00_2392;
BgL_arg5970z00_2392 = 
BGl_classzd2numzd2zz__objectz00(BGl_cvarzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 60 */
BgL_objectz00_bglt BgL_objz00_3974;
BgL_objz00_3974 = 
(BgL_objectz00_bglt)(BgL_new3015z00_2391); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3974, BgL_arg5970z00_2392); } } 
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarzf2cinfozf2_bglt BgL_arg5974z00_2393;
{ /* ./Cfa/cinfo.scm 60 */
obj_t BgL_arg5977z00_2394;
{ /* ./Cfa/cinfo.scm 60 */
int BgL_auxz00_7746;
BgL_auxz00_7746 = 
(int)(((long)0)); 
BgL_arg5977z00_2394 = 
STRUCT_REF(BgL_aux3014z00_2390, BgL_auxz00_7746); } 
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarzf2cinfozf2_bglt BgL_res6418z00_3984;
{ /* ./Cfa/cinfo.scm 60 */
BgL_approxz00_bglt BgL_approx2998z00_3978;
BgL_approx2998z00_3978 = 
(BgL_approxz00_bglt)(BgL_arg5977z00_2394); 
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarzf2cinfozf2_bglt BgL_new2999z00_3979;
BgL_new2999z00_3979 = 
((BgL_cvarzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_cvarzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarzf2cinfozf2_bglt BgL_res6417z00_3983;
{ /* ./Cfa/cinfo.scm 60 */
BgL_cvarzf2cinfozf2_bglt BgL_new3006z00_3980;
BgL_new3006z00_3980 = BgL_new2999z00_3979; 
{ /* ./Cfa/cinfo.scm 60 */
BgL_approxz00_bglt BgL_approx3005z00_3982;
BgL_approx3005z00_3982 = BgL_approx2998z00_3978; 
((((BgL_cvarzf2cinfozf2_bglt)CREF(BgL_new3006z00_3980))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3005z00_3982), BUNSPEC); 
BgL_res6417z00_3983 = BgL_new3006z00_3980; } } BgL_res6417z00_3983; } 
BgL_res6418z00_3984 = BgL_new2999z00_3979; } } 
BgL_arg5974z00_2393 = BgL_res6418z00_3984; } } 
{ /* ./Cfa/cinfo.scm 60 */
obj_t BgL_auxz00_7754;BgL_objectz00_bglt BgL_auxz00_7752;
BgL_auxz00_7754 = 
(obj_t)(BgL_arg5974z00_2393); 
BgL_auxz00_7752 = 
(BgL_objectz00_bglt)(BgL_new3015z00_2391); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7752, BgL_auxz00_7754); } } 
{ /* ./Cfa/cinfo.scm 60 */
obj_t BgL_objz00_3985;
BgL_objz00_3985 = 
(obj_t)(BgL_new3015z00_2391); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3985); BUNSPEC; } 
BgL_auxz00_7727 = BgL_new3015z00_2391; } } } 
return 
(obj_t)(BgL_auxz00_7727);} } } 
}



/* object->struct-cvar/Cinfo3954 */
obj_t BGl_objectzd2ze3structzd2cvarzf2Cinfo3954z11zzcfa_infoz00(obj_t BgL_envz00_4781, obj_t BgL_obj3010z00_4782)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 60 */
{ 
BgL_cvarzf2cinfozf2_bglt BgL_obj3010z00_2375;
BgL_obj3010z00_2375 = 
(BgL_cvarzf2cinfozf2_bglt)(BgL_obj3010z00_4782); 
{ 

{ /* ./Cfa/cinfo.scm 60 */
obj_t BgL_res3011z00_2378;
{ /* ./Cfa/cinfo.scm 60 */
obj_t BgL_nextzd2method3953zd2_2383;
BgL_nextzd2method3953zd2_2383 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3010z00_2375), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_cvarzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 60 */
bool_t BgL_test5963z00_2384;
BgL_test5963z00_2384 = 
PROCEDUREP(BgL_nextzd2method3953zd2_2383); 
if(BgL_test5963z00_2384)
{ /* ./Cfa/cinfo.scm 60 */
BgL_res3011z00_2378 = 
PROCEDURE_ENTRY(BgL_nextzd2method3953zd2_2383)(BgL_nextzd2method3953zd2_2383, 
(obj_t)(BgL_obj3010z00_2375), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 60 */
BgL_res3011z00_2378 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3010z00_2375)); } } } 
{ /* ./Cfa/cinfo.scm 60 */
obj_t BgL_aux3012z00_2379;
{ /* ./Cfa/cinfo.scm 60 */
obj_t BgL_keyz00_3955;int BgL_lenz00_3956;
BgL_keyz00_3955 = 
CNST_TABLE_REF(((long)7)); 
BgL_lenz00_3956 = 
(int)(((long)1)); 
BgL_aux3012z00_2379 = 
make_struct(BgL_keyz00_3955, BgL_lenz00_3956, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 60 */
BgL_approxz00_bglt BgL_arg5952z00_2381;
{ 
obj_t BgL_auxz00_7773;
{ /* ./Cfa/cinfo.scm 60 */
BgL_objectz00_bglt BgL_auxz00_7774;
BgL_auxz00_7774 = 
(BgL_objectz00_bglt)(BgL_obj3010z00_2375); 
BgL_auxz00_7773 = 
BGL_OBJECT_WIDENING(BgL_auxz00_7774); } 
BgL_arg5952z00_2381 = 
(((BgL_cvarzf2cinfozf2_bglt)CREF(BgL_auxz00_7773))->BgL_approxz00); } 
{ /* ./Cfa/cinfo.scm 60 */
int BgL_kz00_3960;obj_t BgL_oz00_3961;
BgL_kz00_3960 = 
(int)(((long)0)); 
BgL_oz00_3961 = 
(obj_t)(BgL_arg5952z00_2381); 
STRUCT_SET(BgL_aux3012z00_2379, BgL_kz00_3960, BgL_oz00_3961); } } 
{ /* ./Cfa/cinfo.scm 60 */
int BgL_kz00_3963;
BgL_kz00_3963 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3011z00_2378, BgL_kz00_3963, BgL_aux3012z00_2379); } 
{ /* ./Cfa/cinfo.scm 60 */
obj_t BgL_arg5957z00_2382;
BgL_arg5957z00_2382 = 
STRUCT_KEY(BgL_res3011z00_2378); 
STRUCT_KEY_SET(BgL_aux3012z00_2379, BgL_arg5957z00_2382); } 
{ /* ./Cfa/cinfo.scm 60 */
obj_t BgL_kz00_3970;
BgL_kz00_3970 = 
CNST_TABLE_REF(((long)7)); 
STRUCT_KEY_SET(BgL_res3011z00_2378, BgL_kz00_3970); } 
return BgL_res3011z00_2378;} } } } } 
}



/* struct+object->object-sexit/Cinfo3952 */
obj_t BGl_structzb2objectzd2ze3objectzd2sexitzf2Cinfo3952za3zzcfa_infoz00(obj_t BgL_envz00_4783, obj_t BgL_oz00_4784, obj_t BgL_sz00_4785)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 64 */
{ 
BgL_sexitzf2cinfozf2_bglt BgL_oz00_2363;obj_t BgL_sz00_2364;
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitzf2cinfozf2_bglt BgL_auxz00_7788;
BgL_oz00_2363 = 
(BgL_sexitzf2cinfozf2_bglt)(BgL_oz00_4784); 
BgL_sz00_2364 = BgL_sz00_4785; 
{ 

{ /* ./Cfa/cinfo.scm 64 */
obj_t BgL_old3035z00_2367;obj_t BgL_aux3036z00_2368;
{ /* ./Cfa/cinfo.scm 64 */
obj_t BgL_nextzd2method3951zd2_2373;
BgL_nextzd2method3951zd2_2373 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2363), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_sexitzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 64 */
bool_t BgL_test5944z00_2374;
BgL_test5944z00_2374 = 
PROCEDUREP(BgL_nextzd2method3951zd2_2373); 
if(BgL_test5944z00_2374)
{ /* ./Cfa/cinfo.scm 64 */
BgL_old3035z00_2367 = 
PROCEDURE_ENTRY(BgL_nextzd2method3951zd2_2373)(BgL_nextzd2method3951zd2_2373, 
(obj_t)(BgL_oz00_2363), BgL_sz00_2364, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 64 */
{ /* ./Cfa/cinfo.scm 64 */
BgL_objectz00_bglt BgL_auxz00_7796;
BgL_auxz00_7796 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2363), BgL_sz00_2364); 
BgL_old3035z00_2367 = 
(obj_t)(BgL_auxz00_7796); } } } } 
{ /* ./Cfa/cinfo.scm 64 */
int BgL_auxz00_7800;
BgL_auxz00_7800 = 
(int)(((long)0)); 
BgL_aux3036z00_2368 = 
STRUCT_REF(BgL_sz00_2364, BgL_auxz00_7800); } 
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitzf2cinfozf2_bglt BgL_new3037z00_2369;
BgL_new3037z00_2369 = 
((BgL_sexitzf2cinfozf2_bglt)(BgL_old3035z00_2367)); 
{ /* ./Cfa/cinfo.scm 64 */
long BgL_arg5931z00_2370;
BgL_arg5931z00_2370 = 
BGl_classzd2numzd2zz__objectz00(BGl_sexitzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 64 */
BgL_objectz00_bglt BgL_objz00_3942;
BgL_objz00_3942 = 
(BgL_objectz00_bglt)(BgL_new3037z00_2369); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3942, BgL_arg5931z00_2370); } } 
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitzf2cinfozf2_bglt BgL_arg5935z00_2371;
{ /* ./Cfa/cinfo.scm 64 */
obj_t BgL_arg5938z00_2372;
{ /* ./Cfa/cinfo.scm 64 */
int BgL_auxz00_7807;
BgL_auxz00_7807 = 
(int)(((long)0)); 
BgL_arg5938z00_2372 = 
STRUCT_REF(BgL_aux3036z00_2368, BgL_auxz00_7807); } 
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitzf2cinfozf2_bglt BgL_res6415z00_3952;
{ /* ./Cfa/cinfo.scm 64 */
BgL_approxz00_bglt BgL_approx3019z00_3946;
BgL_approx3019z00_3946 = 
(BgL_approxz00_bglt)(BgL_arg5938z00_2372); 
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitzf2cinfozf2_bglt BgL_new3020z00_3947;
BgL_new3020z00_3947 = 
((BgL_sexitzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_sexitzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitzf2cinfozf2_bglt BgL_res6414z00_3951;
{ /* ./Cfa/cinfo.scm 64 */
BgL_sexitzf2cinfozf2_bglt BgL_new3028z00_3948;
BgL_new3028z00_3948 = BgL_new3020z00_3947; 
{ /* ./Cfa/cinfo.scm 64 */
BgL_approxz00_bglt BgL_approx3027z00_3950;
BgL_approx3027z00_3950 = BgL_approx3019z00_3946; 
((((BgL_sexitzf2cinfozf2_bglt)CREF(BgL_new3028z00_3948))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3027z00_3950), BUNSPEC); 
BgL_res6414z00_3951 = BgL_new3028z00_3948; } } BgL_res6414z00_3951; } 
BgL_res6415z00_3952 = BgL_new3020z00_3947; } } 
BgL_arg5935z00_2371 = BgL_res6415z00_3952; } } 
{ /* ./Cfa/cinfo.scm 64 */
obj_t BgL_auxz00_7815;BgL_objectz00_bglt BgL_auxz00_7813;
BgL_auxz00_7815 = 
(obj_t)(BgL_arg5935z00_2371); 
BgL_auxz00_7813 = 
(BgL_objectz00_bglt)(BgL_new3037z00_2369); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7813, BgL_auxz00_7815); } } 
{ /* ./Cfa/cinfo.scm 64 */
obj_t BgL_objz00_3953;
BgL_objz00_3953 = 
(obj_t)(BgL_new3037z00_2369); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3953); BUNSPEC; } 
BgL_auxz00_7788 = BgL_new3037z00_2369; } } } 
return 
(obj_t)(BgL_auxz00_7788);} } } 
}



/* object->struct-sexit/Cinfo3950 */
obj_t BGl_objectzd2ze3structzd2sexitzf2Cinfo3950z11zzcfa_infoz00(obj_t BgL_envz00_4786, obj_t BgL_obj3032z00_4787)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 64 */
{ 
BgL_sexitzf2cinfozf2_bglt BgL_obj3032z00_2353;
BgL_obj3032z00_2353 = 
(BgL_sexitzf2cinfozf2_bglt)(BgL_obj3032z00_4787); 
{ 

{ /* ./Cfa/cinfo.scm 64 */
obj_t BgL_res3033z00_2356;
{ /* ./Cfa/cinfo.scm 64 */
obj_t BgL_nextzd2method3949zd2_2361;
BgL_nextzd2method3949zd2_2361 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3032z00_2353), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_sexitzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 64 */
bool_t BgL_test5924z00_2362;
BgL_test5924z00_2362 = 
PROCEDUREP(BgL_nextzd2method3949zd2_2361); 
if(BgL_test5924z00_2362)
{ /* ./Cfa/cinfo.scm 64 */
BgL_res3033z00_2356 = 
PROCEDURE_ENTRY(BgL_nextzd2method3949zd2_2361)(BgL_nextzd2method3949zd2_2361, 
(obj_t)(BgL_obj3032z00_2353), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 64 */
BgL_res3033z00_2356 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3032z00_2353)); } } } 
{ /* ./Cfa/cinfo.scm 64 */
obj_t BgL_aux3034z00_2357;
{ /* ./Cfa/cinfo.scm 64 */
obj_t BgL_keyz00_3923;int BgL_lenz00_3924;
BgL_keyz00_3923 = 
CNST_TABLE_REF(((long)8)); 
BgL_lenz00_3924 = 
(int)(((long)1)); 
BgL_aux3034z00_2357 = 
make_struct(BgL_keyz00_3923, BgL_lenz00_3924, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 64 */
BgL_approxz00_bglt BgL_arg5913z00_2359;
{ 
obj_t BgL_auxz00_7834;
{ /* ./Cfa/cinfo.scm 64 */
BgL_objectz00_bglt BgL_auxz00_7835;
BgL_auxz00_7835 = 
(BgL_objectz00_bglt)(BgL_obj3032z00_2353); 
BgL_auxz00_7834 = 
BGL_OBJECT_WIDENING(BgL_auxz00_7835); } 
BgL_arg5913z00_2359 = 
(((BgL_sexitzf2cinfozf2_bglt)CREF(BgL_auxz00_7834))->BgL_approxz00); } 
{ /* ./Cfa/cinfo.scm 64 */
int BgL_kz00_3928;obj_t BgL_oz00_3929;
BgL_kz00_3928 = 
(int)(((long)0)); 
BgL_oz00_3929 = 
(obj_t)(BgL_arg5913z00_2359); 
STRUCT_SET(BgL_aux3034z00_2357, BgL_kz00_3928, BgL_oz00_3929); } } 
{ /* ./Cfa/cinfo.scm 64 */
int BgL_kz00_3931;
BgL_kz00_3931 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3033z00_2356, BgL_kz00_3931, BgL_aux3034z00_2357); } 
{ /* ./Cfa/cinfo.scm 64 */
obj_t BgL_arg5918z00_2360;
BgL_arg5918z00_2360 = 
STRUCT_KEY(BgL_res3033z00_2356); 
STRUCT_KEY_SET(BgL_aux3034z00_2357, BgL_arg5918z00_2360); } 
{ /* ./Cfa/cinfo.scm 64 */
obj_t BgL_kz00_3938;
BgL_kz00_3938 = 
CNST_TABLE_REF(((long)8)); 
STRUCT_KEY_SET(BgL_res3033z00_2356, BgL_kz00_3938); } 
return BgL_res3033z00_2356;} } } } } 
}



/* struct+object->object-reshaped-local3948 */
obj_t BGl_structzb2objectzd2ze3objectzd2reshapedzd2local3948z83zzcfa_infoz00(obj_t BgL_envz00_4788, obj_t BgL_oz00_4789, obj_t BgL_sz00_4790)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 68 */
{ 
BgL_reshapedzd2localzd2_bglt BgL_oz00_2341;obj_t BgL_sz00_2342;
{ /* ./Cfa/cinfo.scm 68 */
BgL_reshapedzd2localzd2_bglt BgL_auxz00_7849;
BgL_oz00_2341 = 
(BgL_reshapedzd2localzd2_bglt)(BgL_oz00_4789); 
BgL_sz00_2342 = BgL_sz00_4790; 
{ 

{ /* ./Cfa/cinfo.scm 68 */
obj_t BgL_old3070z00_2345;obj_t BgL_aux3071z00_2346;
{ /* ./Cfa/cinfo.scm 68 */
obj_t BgL_nextzd2method3947zd2_2351;
BgL_nextzd2method3947zd2_2351 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2341), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_reshapedzd2localzd2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 68 */
bool_t BgL_test5905z00_2352;
BgL_test5905z00_2352 = 
PROCEDUREP(BgL_nextzd2method3947zd2_2351); 
if(BgL_test5905z00_2352)
{ /* ./Cfa/cinfo.scm 68 */
BgL_old3070z00_2345 = 
PROCEDURE_ENTRY(BgL_nextzd2method3947zd2_2351)(BgL_nextzd2method3947zd2_2351, 
(obj_t)(BgL_oz00_2341), BgL_sz00_2342, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 68 */
{ /* ./Cfa/cinfo.scm 68 */
BgL_objectz00_bglt BgL_auxz00_7857;
BgL_auxz00_7857 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2341), BgL_sz00_2342); 
BgL_old3070z00_2345 = 
(obj_t)(BgL_auxz00_7857); } } } } 
{ /* ./Cfa/cinfo.scm 68 */
int BgL_auxz00_7861;
BgL_auxz00_7861 = 
(int)(((long)0)); 
BgL_aux3071z00_2346 = 
STRUCT_REF(BgL_sz00_2342, BgL_auxz00_7861); } 
{ /* ./Cfa/cinfo.scm 68 */
BgL_reshapedzd2localzd2_bglt BgL_new3072z00_2347;
BgL_new3072z00_2347 = 
((BgL_reshapedzd2localzd2_bglt)(BgL_old3070z00_2345)); 
{ /* ./Cfa/cinfo.scm 68 */
long BgL_arg5892z00_2348;
BgL_arg5892z00_2348 = 
BGl_classzd2numzd2zz__objectz00(BGl_reshapedzd2localzd2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 68 */
BgL_objectz00_bglt BgL_objz00_3910;
BgL_objz00_3910 = 
(BgL_objectz00_bglt)(BgL_new3072z00_2347); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3910, BgL_arg5892z00_2348); } } 
{ /* ./Cfa/cinfo.scm 68 */
BgL_reshapedzd2localzd2_bglt BgL_arg5896z00_2349;
{ /* ./Cfa/cinfo.scm 68 */
obj_t BgL_arg5899z00_2350;
{ /* ./Cfa/cinfo.scm 68 */
int BgL_auxz00_7868;
BgL_auxz00_7868 = 
(int)(((long)0)); 
BgL_arg5899z00_2350 = 
STRUCT_REF(BgL_aux3071z00_2346, BgL_auxz00_7868); } 
{ /* ./Cfa/cinfo.scm 68 */
BgL_reshapedzd2localzd2_bglt BgL_res6412z00_3920;
{ /* ./Cfa/cinfo.scm 68 */
BgL_reshapedzd2localzd2_bglt BgL_new3047z00_3915;
BgL_new3047z00_3915 = 
((BgL_reshapedzd2localzd2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_reshapedzd2localzd2_bgl)))); 
{ /* ./Cfa/cinfo.scm 68 */
BgL_reshapedzd2localzd2_bglt BgL_res6411z00_3919;
{ /* ./Cfa/cinfo.scm 68 */
BgL_reshapedzd2localzd2_bglt BgL_new3063z00_3916;
BgL_new3063z00_3916 = BgL_new3047z00_3915; 
{ /* ./Cfa/cinfo.scm 68 */
obj_t BgL_bindingzd2value3062zd2_3918;
BgL_bindingzd2value3062zd2_3918 = BgL_arg5899z00_2350; 
((((BgL_reshapedzd2localzd2_bglt)CREF(BgL_new3063z00_3916))->BgL_bindingzd2valuezd2) = ((obj_t)BgL_bindingzd2value3062zd2_3918), BUNSPEC); 
BgL_res6411z00_3919 = BgL_new3063z00_3916; } } BgL_res6411z00_3919; } 
BgL_res6412z00_3920 = BgL_new3047z00_3915; } 
BgL_arg5896z00_2349 = BgL_res6412z00_3920; } } 
{ /* ./Cfa/cinfo.scm 68 */
obj_t BgL_auxz00_7875;BgL_objectz00_bglt BgL_auxz00_7873;
BgL_auxz00_7875 = 
(obj_t)(BgL_arg5896z00_2349); 
BgL_auxz00_7873 = 
(BgL_objectz00_bglt)(BgL_new3072z00_2347); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7873, BgL_auxz00_7875); } } 
{ /* ./Cfa/cinfo.scm 68 */
obj_t BgL_objz00_3921;
BgL_objz00_3921 = 
(obj_t)(BgL_new3072z00_2347); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3921); BUNSPEC; } 
BgL_auxz00_7849 = BgL_new3072z00_2347; } } } 
return 
(obj_t)(BgL_auxz00_7849);} } } 
}



/* object->struct-reshaped-local3946 */
obj_t BGl_objectzd2ze3structzd2reshapedzd2local3946z31zzcfa_infoz00(obj_t BgL_envz00_4791, obj_t BgL_obj3067z00_4792)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 68 */
{ 
BgL_reshapedzd2localzd2_bglt BgL_obj3067z00_2331;
BgL_obj3067z00_2331 = 
(BgL_reshapedzd2localzd2_bglt)(BgL_obj3067z00_4792); 
{ 

{ /* ./Cfa/cinfo.scm 68 */
obj_t BgL_res3068z00_2334;
{ /* ./Cfa/cinfo.scm 68 */
obj_t BgL_nextzd2method3945zd2_2339;
BgL_nextzd2method3945zd2_2339 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3067z00_2331), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_reshapedzd2localzd2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 68 */
bool_t BgL_test5885z00_2340;
BgL_test5885z00_2340 = 
PROCEDUREP(BgL_nextzd2method3945zd2_2339); 
if(BgL_test5885z00_2340)
{ /* ./Cfa/cinfo.scm 68 */
BgL_res3068z00_2334 = 
PROCEDURE_ENTRY(BgL_nextzd2method3945zd2_2339)(BgL_nextzd2method3945zd2_2339, 
(obj_t)(BgL_obj3067z00_2331), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 68 */
BgL_res3068z00_2334 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3067z00_2331)); } } } 
{ /* ./Cfa/cinfo.scm 68 */
obj_t BgL_aux3069z00_2335;
{ /* ./Cfa/cinfo.scm 68 */
obj_t BgL_keyz00_3891;int BgL_lenz00_3892;
BgL_keyz00_3891 = 
CNST_TABLE_REF(((long)9)); 
BgL_lenz00_3892 = 
(int)(((long)1)); 
BgL_aux3069z00_2335 = 
make_struct(BgL_keyz00_3891, BgL_lenz00_3892, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 68 */
obj_t BgL_arg5874z00_2337;
{ 
obj_t BgL_auxz00_7894;
{ /* ./Cfa/cinfo.scm 68 */
BgL_objectz00_bglt BgL_auxz00_7895;
BgL_auxz00_7895 = 
(BgL_objectz00_bglt)(BgL_obj3067z00_2331); 
BgL_auxz00_7894 = 
BGL_OBJECT_WIDENING(BgL_auxz00_7895); } 
BgL_arg5874z00_2337 = 
(((BgL_reshapedzd2localzd2_bglt)CREF(BgL_auxz00_7894))->BgL_bindingzd2valuezd2); } 
{ /* ./Cfa/cinfo.scm 68 */
int BgL_kz00_3896;
BgL_kz00_3896 = 
(int)(((long)0)); 
STRUCT_SET(BgL_aux3069z00_2335, BgL_kz00_3896, BgL_arg5874z00_2337); } } 
{ /* ./Cfa/cinfo.scm 68 */
int BgL_kz00_3899;
BgL_kz00_3899 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3068z00_2334, BgL_kz00_3899, BgL_aux3069z00_2335); } 
{ /* ./Cfa/cinfo.scm 68 */
obj_t BgL_arg5879z00_2338;
BgL_arg5879z00_2338 = 
STRUCT_KEY(BgL_res3068z00_2334); 
STRUCT_KEY_SET(BgL_aux3069z00_2335, BgL_arg5879z00_2338); } 
{ /* ./Cfa/cinfo.scm 68 */
obj_t BgL_kz00_3906;
BgL_kz00_3906 = 
CNST_TABLE_REF(((long)9)); 
STRUCT_KEY_SET(BgL_res3068z00_2334, BgL_kz00_3906); } 
return BgL_res3068z00_2334;} } } } } 
}



/* struct+object->object-reshaped-global3943 */
obj_t BGl_structzb2objectzd2ze3objectzd2reshapedzd2global3943z83zzcfa_infoz00(obj_t BgL_envz00_4793, obj_t BgL_oz00_4794, obj_t BgL_sz00_4795)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 70 */
{ 
BgL_reshapedzd2globalzd2_bglt BgL_oz00_2320;obj_t BgL_sz00_2321;
{ /* ./Cfa/cinfo.scm 70 */
BgL_reshapedzd2globalzd2_bglt BgL_auxz00_7908;
BgL_oz00_2320 = 
(BgL_reshapedzd2globalzd2_bglt)(BgL_oz00_4794); 
BgL_sz00_2321 = BgL_sz00_4795; 
{ 

{ /* ./Cfa/cinfo.scm 70 */
obj_t BgL_old3127z00_2324;
{ /* ./Cfa/cinfo.scm 70 */
obj_t BgL_nextzd2method3942zd2_2329;
BgL_nextzd2method3942zd2_2329 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2320), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_reshapedzd2globalzd2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 70 */
bool_t BgL_test5866z00_2330;
BgL_test5866z00_2330 = 
PROCEDUREP(BgL_nextzd2method3942zd2_2329); 
if(BgL_test5866z00_2330)
{ /* ./Cfa/cinfo.scm 70 */
BgL_old3127z00_2324 = 
PROCEDURE_ENTRY(BgL_nextzd2method3942zd2_2329)(BgL_nextzd2method3942zd2_2329, 
(obj_t)(BgL_oz00_2320), BgL_sz00_2321, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 70 */
{ /* ./Cfa/cinfo.scm 70 */
BgL_objectz00_bglt BgL_auxz00_7916;
BgL_auxz00_7916 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2320), BgL_sz00_2321); 
BgL_old3127z00_2324 = 
(obj_t)(BgL_auxz00_7916); } } } } 
{ /* ./Cfa/cinfo.scm 70 */
BgL_reshapedzd2globalzd2_bglt BgL_new3129z00_2326;
BgL_new3129z00_2326 = 
((BgL_reshapedzd2globalzd2_bglt)(BgL_old3127z00_2324)); 
{ /* ./Cfa/cinfo.scm 70 */
long BgL_arg5856z00_2327;
BgL_arg5856z00_2327 = 
BGl_classzd2numzd2zz__objectz00(BGl_reshapedzd2globalzd2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 70 */
BgL_objectz00_bglt BgL_objz00_3887;
BgL_objz00_3887 = 
(BgL_objectz00_bglt)(BgL_new3129z00_2326); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3887, BgL_arg5856z00_2327); } } 
{ /* ./Cfa/cinfo.scm 70 */
BgL_reshapedzd2globalzd2_bglt BgL_arg5860z00_2328;
BgL_arg5860z00_2328 = 
BGl_wideningzd2reshapedzd2globalz00zzcfa_infoz00(); 
{ /* ./Cfa/cinfo.scm 70 */
obj_t BgL_auxz00_7927;BgL_objectz00_bglt BgL_auxz00_7925;
BgL_auxz00_7927 = 
(obj_t)(BgL_arg5860z00_2328); 
BgL_auxz00_7925 = 
(BgL_objectz00_bglt)(BgL_new3129z00_2326); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7925, BgL_auxz00_7927); } } 
{ /* ./Cfa/cinfo.scm 70 */
obj_t BgL_objz00_3889;
BgL_objz00_3889 = 
(obj_t)(BgL_new3129z00_2326); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3889); BUNSPEC; } 
BgL_auxz00_7908 = BgL_new3129z00_2326; } } } 
return 
(obj_t)(BgL_auxz00_7908);} } } 
}



/* object->struct-reshaped-global3941 */
obj_t BGl_objectzd2ze3structzd2reshapedzd2global3941z31zzcfa_infoz00(obj_t BgL_envz00_4796, obj_t BgL_obj3124z00_4797)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 70 */
{ 
BgL_reshapedzd2globalzd2_bglt BgL_obj3124z00_2312;
BgL_obj3124z00_2312 = 
(BgL_reshapedzd2globalzd2_bglt)(BgL_obj3124z00_4797); 
{ 

{ /* ./Cfa/cinfo.scm 70 */
obj_t BgL_res3125z00_2315;
{ /* ./Cfa/cinfo.scm 70 */
obj_t BgL_nextzd2method3940zd2_2318;
BgL_nextzd2method3940zd2_2318 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3124z00_2312), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_reshapedzd2globalzd2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 70 */
bool_t BgL_test5849z00_2319;
BgL_test5849z00_2319 = 
PROCEDUREP(BgL_nextzd2method3940zd2_2318); 
if(BgL_test5849z00_2319)
{ /* ./Cfa/cinfo.scm 70 */
BgL_res3125z00_2315 = 
PROCEDURE_ENTRY(BgL_nextzd2method3940zd2_2318)(BgL_nextzd2method3940zd2_2318, 
(obj_t)(BgL_obj3124z00_2312), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 70 */
BgL_res3125z00_2315 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3124z00_2312)); } } } 
{ /* ./Cfa/cinfo.scm 70 */
obj_t BgL_aux3126z00_2316;
{ /* ./Cfa/cinfo.scm 70 */
obj_t BgL_keyz00_3872;int BgL_lenz00_3873;
BgL_keyz00_3872 = 
CNST_TABLE_REF(((long)10)); 
BgL_lenz00_3873 = 
(int)(((long)0)); 
BgL_aux3126z00_2316 = 
make_struct(BgL_keyz00_3872, BgL_lenz00_3873, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 70 */
int BgL_kz00_3876;
BgL_kz00_3876 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3125z00_2315, BgL_kz00_3876, BgL_aux3126z00_2316); } 
{ /* ./Cfa/cinfo.scm 70 */
obj_t BgL_arg5843z00_2317;
BgL_arg5843z00_2317 = 
STRUCT_KEY(BgL_res3125z00_2315); 
STRUCT_KEY_SET(BgL_aux3126z00_2316, BgL_arg5843z00_2317); } 
{ /* ./Cfa/cinfo.scm 70 */
obj_t BgL_kz00_3883;
BgL_kz00_3883 = 
CNST_TABLE_REF(((long)10)); 
STRUCT_KEY_SET(BgL_res3125z00_2315, BgL_kz00_3883); } 
return BgL_res3125z00_2315;} } } } } 
}



/* struct+object->object-atom/Cinfo3939 */
obj_t BGl_structzb2objectzd2ze3objectzd2atomzf2Cinfo3939za3zzcfa_infoz00(obj_t BgL_envz00_4798, obj_t BgL_oz00_4799, obj_t BgL_sz00_4800)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 73 */
{ 
BgL_atomzf2cinfozf2_bglt BgL_oz00_2300;obj_t BgL_sz00_2301;
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomzf2cinfozf2_bglt BgL_auxz00_7953;
BgL_oz00_2300 = 
(BgL_atomzf2cinfozf2_bglt)(BgL_oz00_4799); 
BgL_sz00_2301 = BgL_sz00_4800; 
{ 

{ /* ./Cfa/cinfo.scm 73 */
obj_t BgL_old3195z00_2304;obj_t BgL_aux3196z00_2305;
{ /* ./Cfa/cinfo.scm 73 */
obj_t BgL_nextzd2method3938zd2_2310;
BgL_nextzd2method3938zd2_2310 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2300), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_atomzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 73 */
bool_t BgL_test5835z00_2311;
BgL_test5835z00_2311 = 
PROCEDUREP(BgL_nextzd2method3938zd2_2310); 
if(BgL_test5835z00_2311)
{ /* ./Cfa/cinfo.scm 73 */
BgL_old3195z00_2304 = 
PROCEDURE_ENTRY(BgL_nextzd2method3938zd2_2310)(BgL_nextzd2method3938zd2_2310, 
(obj_t)(BgL_oz00_2300), BgL_sz00_2301, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 73 */
{ /* ./Cfa/cinfo.scm 73 */
BgL_objectz00_bglt BgL_auxz00_7961;
BgL_auxz00_7961 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2300), BgL_sz00_2301); 
BgL_old3195z00_2304 = 
(obj_t)(BgL_auxz00_7961); } } } } 
{ /* ./Cfa/cinfo.scm 73 */
int BgL_auxz00_7965;
BgL_auxz00_7965 = 
(int)(((long)0)); 
BgL_aux3196z00_2305 = 
STRUCT_REF(BgL_sz00_2301, BgL_auxz00_7965); } 
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomzf2cinfozf2_bglt BgL_new3197z00_2306;
BgL_new3197z00_2306 = 
((BgL_atomzf2cinfozf2_bglt)(BgL_old3195z00_2304)); 
{ /* ./Cfa/cinfo.scm 73 */
long BgL_arg5822z00_2307;
BgL_arg5822z00_2307 = 
BGl_classzd2numzd2zz__objectz00(BGl_atomzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 73 */
BgL_objectz00_bglt BgL_objz00_3859;
BgL_objz00_3859 = 
(BgL_objectz00_bglt)(BgL_new3197z00_2306); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3859, BgL_arg5822z00_2307); } } 
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomzf2cinfozf2_bglt BgL_arg5826z00_2308;
{ /* ./Cfa/cinfo.scm 73 */
obj_t BgL_arg5829z00_2309;
{ /* ./Cfa/cinfo.scm 73 */
int BgL_auxz00_7972;
BgL_auxz00_7972 = 
(int)(((long)0)); 
BgL_arg5829z00_2309 = 
STRUCT_REF(BgL_aux3196z00_2305, BgL_auxz00_7972); } 
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomzf2cinfozf2_bglt BgL_res6408z00_3869;
{ /* ./Cfa/cinfo.scm 73 */
BgL_approxz00_bglt BgL_approx3178z00_3863;
BgL_approx3178z00_3863 = 
(BgL_approxz00_bglt)(BgL_arg5829z00_2309); 
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomzf2cinfozf2_bglt BgL_new3179z00_3864;
BgL_new3179z00_3864 = 
((BgL_atomzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_atomzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomzf2cinfozf2_bglt BgL_res6407z00_3868;
{ /* ./Cfa/cinfo.scm 73 */
BgL_atomzf2cinfozf2_bglt BgL_new3188z00_3865;
BgL_new3188z00_3865 = BgL_new3179z00_3864; 
{ /* ./Cfa/cinfo.scm 73 */
BgL_approxz00_bglt BgL_approx3187z00_3867;
BgL_approx3187z00_3867 = BgL_approx3178z00_3863; 
((((BgL_atomzf2cinfozf2_bglt)CREF(BgL_new3188z00_3865))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3187z00_3867), BUNSPEC); 
BgL_res6407z00_3868 = BgL_new3188z00_3865; } } BgL_res6407z00_3868; } 
BgL_res6408z00_3869 = BgL_new3179z00_3864; } } 
BgL_arg5826z00_2308 = BgL_res6408z00_3869; } } 
{ /* ./Cfa/cinfo.scm 73 */
obj_t BgL_auxz00_7980;BgL_objectz00_bglt BgL_auxz00_7978;
BgL_auxz00_7980 = 
(obj_t)(BgL_arg5826z00_2308); 
BgL_auxz00_7978 = 
(BgL_objectz00_bglt)(BgL_new3197z00_2306); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7978, BgL_auxz00_7980); } } 
{ /* ./Cfa/cinfo.scm 73 */
obj_t BgL_objz00_3870;
BgL_objz00_3870 = 
(obj_t)(BgL_new3197z00_2306); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3870); BUNSPEC; } 
BgL_auxz00_7953 = BgL_new3197z00_2306; } } } 
return 
(obj_t)(BgL_auxz00_7953);} } } 
}



/* object->struct-atom/Cinfo3936 */
obj_t BGl_objectzd2ze3structzd2atomzf2Cinfo3936z11zzcfa_infoz00(obj_t BgL_envz00_4801, obj_t BgL_obj3192z00_4802)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 73 */
{ 
BgL_atomzf2cinfozf2_bglt BgL_obj3192z00_2290;
BgL_obj3192z00_2290 = 
(BgL_atomzf2cinfozf2_bglt)(BgL_obj3192z00_4802); 
{ 

{ /* ./Cfa/cinfo.scm 73 */
obj_t BgL_res3193z00_2293;
{ /* ./Cfa/cinfo.scm 73 */
obj_t BgL_nextzd2method3935zd2_2298;
BgL_nextzd2method3935zd2_2298 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3192z00_2290), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_atomzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 73 */
bool_t BgL_test5815z00_2299;
BgL_test5815z00_2299 = 
PROCEDUREP(BgL_nextzd2method3935zd2_2298); 
if(BgL_test5815z00_2299)
{ /* ./Cfa/cinfo.scm 73 */
BgL_res3193z00_2293 = 
PROCEDURE_ENTRY(BgL_nextzd2method3935zd2_2298)(BgL_nextzd2method3935zd2_2298, 
(obj_t)(BgL_obj3192z00_2290), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 73 */
BgL_res3193z00_2293 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3192z00_2290)); } } } 
{ /* ./Cfa/cinfo.scm 73 */
obj_t BgL_aux3194z00_2294;
{ /* ./Cfa/cinfo.scm 73 */
obj_t BgL_keyz00_3840;int BgL_lenz00_3841;
BgL_keyz00_3840 = 
CNST_TABLE_REF(((long)11)); 
BgL_lenz00_3841 = 
(int)(((long)1)); 
BgL_aux3194z00_2294 = 
make_struct(BgL_keyz00_3840, BgL_lenz00_3841, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 73 */
BgL_approxz00_bglt BgL_arg5804z00_2296;
{ 
obj_t BgL_auxz00_7999;
{ /* ./Cfa/cinfo.scm 73 */
BgL_objectz00_bglt BgL_auxz00_8000;
BgL_auxz00_8000 = 
(BgL_objectz00_bglt)(BgL_obj3192z00_2290); 
BgL_auxz00_7999 = 
BGL_OBJECT_WIDENING(BgL_auxz00_8000); } 
BgL_arg5804z00_2296 = 
(((BgL_atomzf2cinfozf2_bglt)CREF(BgL_auxz00_7999))->BgL_approxz00); } 
{ /* ./Cfa/cinfo.scm 73 */
int BgL_kz00_3845;obj_t BgL_oz00_3846;
BgL_kz00_3845 = 
(int)(((long)0)); 
BgL_oz00_3846 = 
(obj_t)(BgL_arg5804z00_2296); 
STRUCT_SET(BgL_aux3194z00_2294, BgL_kz00_3845, BgL_oz00_3846); } } 
{ /* ./Cfa/cinfo.scm 73 */
int BgL_kz00_3848;
BgL_kz00_3848 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3193z00_2293, BgL_kz00_3848, BgL_aux3194z00_2294); } 
{ /* ./Cfa/cinfo.scm 73 */
obj_t BgL_arg5809z00_2297;
BgL_arg5809z00_2297 = 
STRUCT_KEY(BgL_res3193z00_2293); 
STRUCT_KEY_SET(BgL_aux3194z00_2294, BgL_arg5809z00_2297); } 
{ /* ./Cfa/cinfo.scm 73 */
obj_t BgL_kz00_3855;
BgL_kz00_3855 = 
CNST_TABLE_REF(((long)11)); 
STRUCT_KEY_SET(BgL_res3193z00_2293, BgL_kz00_3855); } 
return BgL_res3193z00_2293;} } } } } 
}



/* struct+object->object-kwote/node3934 */
obj_t BGl_structzb2objectzd2ze3objectzd2kwotezf2node3934za3zzcfa_infoz00(obj_t BgL_envz00_4803, obj_t BgL_oz00_4804, obj_t BgL_sz00_4805)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 75 */
{ 
BgL_kwotezf2nodezf2_bglt BgL_oz00_2278;obj_t BgL_sz00_2279;
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotezf2nodezf2_bglt BgL_auxz00_8014;
BgL_oz00_2278 = 
(BgL_kwotezf2nodezf2_bglt)(BgL_oz00_4804); 
BgL_sz00_2279 = BgL_sz00_4805; 
{ 

{ /* ./Cfa/cinfo.scm 75 */
obj_t BgL_old3225z00_2282;obj_t BgL_aux3226z00_2283;
{ /* ./Cfa/cinfo.scm 75 */
obj_t BgL_nextzd2method3933zd2_2288;
BgL_nextzd2method3933zd2_2288 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2278), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_kwotezf2nodezf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 75 */
bool_t BgL_test5796z00_2289;
BgL_test5796z00_2289 = 
PROCEDUREP(BgL_nextzd2method3933zd2_2288); 
if(BgL_test5796z00_2289)
{ /* ./Cfa/cinfo.scm 75 */
BgL_old3225z00_2282 = 
PROCEDURE_ENTRY(BgL_nextzd2method3933zd2_2288)(BgL_nextzd2method3933zd2_2288, 
(obj_t)(BgL_oz00_2278), BgL_sz00_2279, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 75 */
{ /* ./Cfa/cinfo.scm 75 */
BgL_objectz00_bglt BgL_auxz00_8022;
BgL_auxz00_8022 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2278), BgL_sz00_2279); 
BgL_old3225z00_2282 = 
(obj_t)(BgL_auxz00_8022); } } } } 
{ /* ./Cfa/cinfo.scm 75 */
int BgL_auxz00_8026;
BgL_auxz00_8026 = 
(int)(((long)0)); 
BgL_aux3226z00_2283 = 
STRUCT_REF(BgL_sz00_2279, BgL_auxz00_8026); } 
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotezf2nodezf2_bglt BgL_new3227z00_2284;
BgL_new3227z00_2284 = 
((BgL_kwotezf2nodezf2_bglt)(BgL_old3225z00_2282)); 
{ /* ./Cfa/cinfo.scm 75 */
long BgL_arg5783z00_2285;
BgL_arg5783z00_2285 = 
BGl_classzd2numzd2zz__objectz00(BGl_kwotezf2nodezf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 75 */
BgL_objectz00_bglt BgL_objz00_3827;
BgL_objz00_3827 = 
(BgL_objectz00_bglt)(BgL_new3227z00_2284); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3827, BgL_arg5783z00_2285); } } 
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotezf2nodezf2_bglt BgL_arg5787z00_2286;
{ /* ./Cfa/cinfo.scm 75 */
obj_t BgL_arg5790z00_2287;
{ /* ./Cfa/cinfo.scm 75 */
int BgL_auxz00_8033;
BgL_auxz00_8033 = 
(int)(((long)0)); 
BgL_arg5790z00_2287 = 
STRUCT_REF(BgL_aux3226z00_2283, BgL_auxz00_8033); } 
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotezf2nodezf2_bglt BgL_res6405z00_3837;
{ /* ./Cfa/cinfo.scm 75 */
BgL_nodez00_bglt BgL_node3208z00_3831;
BgL_node3208z00_3831 = 
(BgL_nodez00_bglt)(BgL_arg5790z00_2287); 
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotezf2nodezf2_bglt BgL_new3209z00_3832;
BgL_new3209z00_3832 = 
((BgL_kwotezf2nodezf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_kwotezf2nodezf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotezf2nodezf2_bglt BgL_res6404z00_3836;
{ /* ./Cfa/cinfo.scm 75 */
BgL_kwotezf2nodezf2_bglt BgL_new3218z00_3833;
BgL_new3218z00_3833 = BgL_new3209z00_3832; 
{ /* ./Cfa/cinfo.scm 75 */
BgL_nodez00_bglt BgL_node3217z00_3835;
BgL_node3217z00_3835 = BgL_node3208z00_3831; 
((((BgL_kwotezf2nodezf2_bglt)CREF(BgL_new3218z00_3833))->BgL_nodez00) = ((BgL_nodez00_bglt)BgL_node3217z00_3835), BUNSPEC); 
BgL_res6404z00_3836 = BgL_new3218z00_3833; } } BgL_res6404z00_3836; } 
BgL_res6405z00_3837 = BgL_new3209z00_3832; } } 
BgL_arg5787z00_2286 = BgL_res6405z00_3837; } } 
{ /* ./Cfa/cinfo.scm 75 */
obj_t BgL_auxz00_8041;BgL_objectz00_bglt BgL_auxz00_8039;
BgL_auxz00_8041 = 
(obj_t)(BgL_arg5787z00_2286); 
BgL_auxz00_8039 = 
(BgL_objectz00_bglt)(BgL_new3227z00_2284); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_8039, BgL_auxz00_8041); } } 
{ /* ./Cfa/cinfo.scm 75 */
obj_t BgL_objz00_3838;
BgL_objz00_3838 = 
(obj_t)(BgL_new3227z00_2284); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3838); BUNSPEC; } 
BgL_auxz00_8014 = BgL_new3227z00_2284; } } } 
return 
(obj_t)(BgL_auxz00_8014);} } } 
}



/* object->struct-kwote/node3932 */
obj_t BGl_objectzd2ze3structzd2kwotezf2node3932z11zzcfa_infoz00(obj_t BgL_envz00_4806, obj_t BgL_obj3222z00_4807)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 75 */
{ 
BgL_kwotezf2nodezf2_bglt BgL_obj3222z00_2268;
BgL_obj3222z00_2268 = 
(BgL_kwotezf2nodezf2_bglt)(BgL_obj3222z00_4807); 
{ 

{ /* ./Cfa/cinfo.scm 75 */
obj_t BgL_res3223z00_2271;
{ /* ./Cfa/cinfo.scm 75 */
obj_t BgL_nextzd2method3931zd2_2276;
BgL_nextzd2method3931zd2_2276 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3222z00_2268), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_kwotezf2nodezf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 75 */
bool_t BgL_test5776z00_2277;
BgL_test5776z00_2277 = 
PROCEDUREP(BgL_nextzd2method3931zd2_2276); 
if(BgL_test5776z00_2277)
{ /* ./Cfa/cinfo.scm 75 */
BgL_res3223z00_2271 = 
PROCEDURE_ENTRY(BgL_nextzd2method3931zd2_2276)(BgL_nextzd2method3931zd2_2276, 
(obj_t)(BgL_obj3222z00_2268), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 75 */
BgL_res3223z00_2271 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3222z00_2268)); } } } 
{ /* ./Cfa/cinfo.scm 75 */
obj_t BgL_aux3224z00_2272;
{ /* ./Cfa/cinfo.scm 75 */
obj_t BgL_keyz00_3808;int BgL_lenz00_3809;
BgL_keyz00_3808 = 
CNST_TABLE_REF(((long)12)); 
BgL_lenz00_3809 = 
(int)(((long)1)); 
BgL_aux3224z00_2272 = 
make_struct(BgL_keyz00_3808, BgL_lenz00_3809, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 75 */
BgL_nodez00_bglt BgL_arg5765z00_2274;
{ 
obj_t BgL_auxz00_8060;
{ /* ./Cfa/cinfo.scm 75 */
BgL_objectz00_bglt BgL_auxz00_8061;
BgL_auxz00_8061 = 
(BgL_objectz00_bglt)(BgL_obj3222z00_2268); 
BgL_auxz00_8060 = 
BGL_OBJECT_WIDENING(BgL_auxz00_8061); } 
BgL_arg5765z00_2274 = 
(((BgL_kwotezf2nodezf2_bglt)CREF(BgL_auxz00_8060))->BgL_nodez00); } 
{ /* ./Cfa/cinfo.scm 75 */
int BgL_kz00_3813;obj_t BgL_oz00_3814;
BgL_kz00_3813 = 
(int)(((long)0)); 
BgL_oz00_3814 = 
(obj_t)(BgL_arg5765z00_2274); 
STRUCT_SET(BgL_aux3224z00_2272, BgL_kz00_3813, BgL_oz00_3814); } } 
{ /* ./Cfa/cinfo.scm 75 */
int BgL_kz00_3816;
BgL_kz00_3816 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3223z00_2271, BgL_kz00_3816, BgL_aux3224z00_2272); } 
{ /* ./Cfa/cinfo.scm 75 */
obj_t BgL_arg5770z00_2275;
BgL_arg5770z00_2275 = 
STRUCT_KEY(BgL_res3223z00_2271); 
STRUCT_KEY_SET(BgL_aux3224z00_2272, BgL_arg5770z00_2275); } 
{ /* ./Cfa/cinfo.scm 75 */
obj_t BgL_kz00_3823;
BgL_kz00_3823 = 
CNST_TABLE_REF(((long)12)); 
STRUCT_KEY_SET(BgL_res3223z00_2271, BgL_kz00_3823); } 
return BgL_res3223z00_2271;} } } } } 
}



/* struct+object->object-kwote/Cinfo3930 */
obj_t BGl_structzb2objectzd2ze3objectzd2kwotezf2Cinfo3930za3zzcfa_infoz00(obj_t BgL_envz00_4808, obj_t BgL_oz00_4809, obj_t BgL_sz00_4810)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 77 */
{ 
BgL_kwotezf2cinfozf2_bglt BgL_oz00_2256;obj_t BgL_sz00_2257;
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotezf2cinfozf2_bglt BgL_auxz00_8075;
BgL_oz00_2256 = 
(BgL_kwotezf2cinfozf2_bglt)(BgL_oz00_4809); 
BgL_sz00_2257 = BgL_sz00_4810; 
{ 

{ /* ./Cfa/cinfo.scm 77 */
obj_t BgL_old3252z00_2260;obj_t BgL_aux3253z00_2261;
{ /* ./Cfa/cinfo.scm 77 */
obj_t BgL_nextzd2method3929zd2_2266;
BgL_nextzd2method3929zd2_2266 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2256), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_kwotezf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 77 */
bool_t BgL_test5757z00_2267;
BgL_test5757z00_2267 = 
PROCEDUREP(BgL_nextzd2method3929zd2_2266); 
if(BgL_test5757z00_2267)
{ /* ./Cfa/cinfo.scm 77 */
BgL_old3252z00_2260 = 
PROCEDURE_ENTRY(BgL_nextzd2method3929zd2_2266)(BgL_nextzd2method3929zd2_2266, 
(obj_t)(BgL_oz00_2256), BgL_sz00_2257, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 77 */
{ /* ./Cfa/cinfo.scm 77 */
BgL_objectz00_bglt BgL_auxz00_8083;
BgL_auxz00_8083 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2256), BgL_sz00_2257); 
BgL_old3252z00_2260 = 
(obj_t)(BgL_auxz00_8083); } } } } 
{ /* ./Cfa/cinfo.scm 77 */
int BgL_auxz00_8087;
BgL_auxz00_8087 = 
(int)(((long)0)); 
BgL_aux3253z00_2261 = 
STRUCT_REF(BgL_sz00_2257, BgL_auxz00_8087); } 
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotezf2cinfozf2_bglt BgL_new3254z00_2262;
BgL_new3254z00_2262 = 
((BgL_kwotezf2cinfozf2_bglt)(BgL_old3252z00_2260)); 
{ /* ./Cfa/cinfo.scm 77 */
long BgL_arg5744z00_2263;
BgL_arg5744z00_2263 = 
BGl_classzd2numzd2zz__objectz00(BGl_kwotezf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 77 */
BgL_objectz00_bglt BgL_objz00_3795;
BgL_objz00_3795 = 
(BgL_objectz00_bglt)(BgL_new3254z00_2262); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3795, BgL_arg5744z00_2263); } } 
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotezf2cinfozf2_bglt BgL_arg5748z00_2264;
{ /* ./Cfa/cinfo.scm 77 */
obj_t BgL_arg5751z00_2265;
{ /* ./Cfa/cinfo.scm 77 */
int BgL_auxz00_8094;
BgL_auxz00_8094 = 
(int)(((long)0)); 
BgL_arg5751z00_2265 = 
STRUCT_REF(BgL_aux3253z00_2261, BgL_auxz00_8094); } 
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotezf2cinfozf2_bglt BgL_res6402z00_3805;
{ /* ./Cfa/cinfo.scm 77 */
BgL_approxz00_bglt BgL_approx3235z00_3799;
BgL_approx3235z00_3799 = 
(BgL_approxz00_bglt)(BgL_arg5751z00_2265); 
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotezf2cinfozf2_bglt BgL_new3236z00_3800;
BgL_new3236z00_3800 = 
((BgL_kwotezf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_kwotezf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotezf2cinfozf2_bglt BgL_res6401z00_3804;
{ /* ./Cfa/cinfo.scm 77 */
BgL_kwotezf2cinfozf2_bglt BgL_new3245z00_3801;
BgL_new3245z00_3801 = BgL_new3236z00_3800; 
{ /* ./Cfa/cinfo.scm 77 */
BgL_approxz00_bglt BgL_approx3244z00_3803;
BgL_approx3244z00_3803 = BgL_approx3235z00_3799; 
((((BgL_kwotezf2cinfozf2_bglt)CREF(BgL_new3245z00_3801))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3244z00_3803), BUNSPEC); 
BgL_res6401z00_3804 = BgL_new3245z00_3801; } } BgL_res6401z00_3804; } 
BgL_res6402z00_3805 = BgL_new3236z00_3800; } } 
BgL_arg5748z00_2264 = BgL_res6402z00_3805; } } 
{ /* ./Cfa/cinfo.scm 77 */
obj_t BgL_auxz00_8102;BgL_objectz00_bglt BgL_auxz00_8100;
BgL_auxz00_8102 = 
(obj_t)(BgL_arg5748z00_2264); 
BgL_auxz00_8100 = 
(BgL_objectz00_bglt)(BgL_new3254z00_2262); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_8100, BgL_auxz00_8102); } } 
{ /* ./Cfa/cinfo.scm 77 */
obj_t BgL_objz00_3806;
BgL_objz00_3806 = 
(obj_t)(BgL_new3254z00_2262); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3806); BUNSPEC; } 
BgL_auxz00_8075 = BgL_new3254z00_2262; } } } 
return 
(obj_t)(BgL_auxz00_8075);} } } 
}



/* object->struct-kwote/Cinfo3928 */
obj_t BGl_objectzd2ze3structzd2kwotezf2Cinfo3928z11zzcfa_infoz00(obj_t BgL_envz00_4811, obj_t BgL_obj3249z00_4812)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 77 */
{ 
BgL_kwotezf2cinfozf2_bglt BgL_obj3249z00_2246;
BgL_obj3249z00_2246 = 
(BgL_kwotezf2cinfozf2_bglt)(BgL_obj3249z00_4812); 
{ 

{ /* ./Cfa/cinfo.scm 77 */
obj_t BgL_res3250z00_2249;
{ /* ./Cfa/cinfo.scm 77 */
obj_t BgL_nextzd2method3927zd2_2254;
BgL_nextzd2method3927zd2_2254 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3249z00_2246), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_kwotezf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 77 */
bool_t BgL_test5737z00_2255;
BgL_test5737z00_2255 = 
PROCEDUREP(BgL_nextzd2method3927zd2_2254); 
if(BgL_test5737z00_2255)
{ /* ./Cfa/cinfo.scm 77 */
BgL_res3250z00_2249 = 
PROCEDURE_ENTRY(BgL_nextzd2method3927zd2_2254)(BgL_nextzd2method3927zd2_2254, 
(obj_t)(BgL_obj3249z00_2246), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 77 */
BgL_res3250z00_2249 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3249z00_2246)); } } } 
{ /* ./Cfa/cinfo.scm 77 */
obj_t BgL_aux3251z00_2250;
{ /* ./Cfa/cinfo.scm 77 */
obj_t BgL_keyz00_3776;int BgL_lenz00_3777;
BgL_keyz00_3776 = 
CNST_TABLE_REF(((long)13)); 
BgL_lenz00_3777 = 
(int)(((long)1)); 
BgL_aux3251z00_2250 = 
make_struct(BgL_keyz00_3776, BgL_lenz00_3777, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 77 */
BgL_approxz00_bglt BgL_arg5726z00_2252;
{ 
obj_t BgL_auxz00_8121;
{ /* ./Cfa/cinfo.scm 77 */
BgL_objectz00_bglt BgL_auxz00_8122;
BgL_auxz00_8122 = 
(BgL_objectz00_bglt)(BgL_obj3249z00_2246); 
BgL_auxz00_8121 = 
BGL_OBJECT_WIDENING(BgL_auxz00_8122); } 
BgL_arg5726z00_2252 = 
(((BgL_kwotezf2cinfozf2_bglt)CREF(BgL_auxz00_8121))->BgL_approxz00); } 
{ /* ./Cfa/cinfo.scm 77 */
int BgL_kz00_3781;obj_t BgL_oz00_3782;
BgL_kz00_3781 = 
(int)(((long)0)); 
BgL_oz00_3782 = 
(obj_t)(BgL_arg5726z00_2252); 
STRUCT_SET(BgL_aux3251z00_2250, BgL_kz00_3781, BgL_oz00_3782); } } 
{ /* ./Cfa/cinfo.scm 77 */
int BgL_kz00_3784;
BgL_kz00_3784 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3250z00_2249, BgL_kz00_3784, BgL_aux3251z00_2250); } 
{ /* ./Cfa/cinfo.scm 77 */
obj_t BgL_arg5731z00_2253;
BgL_arg5731z00_2253 = 
STRUCT_KEY(BgL_res3250z00_2249); 
STRUCT_KEY_SET(BgL_aux3251z00_2250, BgL_arg5731z00_2253); } 
{ /* ./Cfa/cinfo.scm 77 */
obj_t BgL_kz00_3791;
BgL_kz00_3791 = 
CNST_TABLE_REF(((long)13)); 
STRUCT_KEY_SET(BgL_res3250z00_2249, BgL_kz00_3791); } 
return BgL_res3250z00_2249;} } } } } 
}



/* struct+object->object-app-ly/Cinfo3926 */
obj_t BGl_structzb2objectzd2ze3objectzd2appzd2lyzf2Cinfo3926z71zzcfa_infoz00(obj_t BgL_envz00_4813, obj_t BgL_oz00_4814, obj_t BgL_sz00_4815)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 79 */
{ 
BgL_appzd2lyzf2cinfoz20_bglt BgL_oz00_2234;obj_t BgL_sz00_2235;
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzf2cinfoz20_bglt BgL_auxz00_8136;
BgL_oz00_2234 = 
(BgL_appzd2lyzf2cinfoz20_bglt)(BgL_oz00_4814); 
BgL_sz00_2235 = BgL_sz00_4815; 
{ 

{ /* ./Cfa/cinfo.scm 79 */
obj_t BgL_old3280z00_2238;obj_t BgL_aux3281z00_2239;
{ /* ./Cfa/cinfo.scm 79 */
obj_t BgL_nextzd2method3925zd2_2244;
BgL_nextzd2method3925zd2_2244 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2234), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_appzd2lyzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 79 */
bool_t BgL_test5718z00_2245;
BgL_test5718z00_2245 = 
PROCEDUREP(BgL_nextzd2method3925zd2_2244); 
if(BgL_test5718z00_2245)
{ /* ./Cfa/cinfo.scm 79 */
BgL_old3280z00_2238 = 
PROCEDURE_ENTRY(BgL_nextzd2method3925zd2_2244)(BgL_nextzd2method3925zd2_2244, 
(obj_t)(BgL_oz00_2234), BgL_sz00_2235, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 79 */
{ /* ./Cfa/cinfo.scm 79 */
BgL_objectz00_bglt BgL_auxz00_8144;
BgL_auxz00_8144 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2234), BgL_sz00_2235); 
BgL_old3280z00_2238 = 
(obj_t)(BgL_auxz00_8144); } } } } 
{ /* ./Cfa/cinfo.scm 79 */
int BgL_auxz00_8148;
BgL_auxz00_8148 = 
(int)(((long)0)); 
BgL_aux3281z00_2239 = 
STRUCT_REF(BgL_sz00_2235, BgL_auxz00_8148); } 
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzf2cinfoz20_bglt BgL_new3282z00_2240;
BgL_new3282z00_2240 = 
((BgL_appzd2lyzf2cinfoz20_bglt)(BgL_old3280z00_2238)); 
{ /* ./Cfa/cinfo.scm 79 */
long BgL_arg5705z00_2241;
BgL_arg5705z00_2241 = 
BGl_classzd2numzd2zz__objectz00(BGl_appzd2lyzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 79 */
BgL_objectz00_bglt BgL_objz00_3763;
BgL_objz00_3763 = 
(BgL_objectz00_bglt)(BgL_new3282z00_2240); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3763, BgL_arg5705z00_2241); } } 
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzf2cinfoz20_bglt BgL_arg5709z00_2242;
{ /* ./Cfa/cinfo.scm 79 */
obj_t BgL_arg5712z00_2243;
{ /* ./Cfa/cinfo.scm 79 */
int BgL_auxz00_8155;
BgL_auxz00_8155 = 
(int)(((long)0)); 
BgL_arg5712z00_2243 = 
STRUCT_REF(BgL_aux3281z00_2239, BgL_auxz00_8155); } 
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzf2cinfoz20_bglt BgL_res6399z00_3773;
{ /* ./Cfa/cinfo.scm 79 */
BgL_approxz00_bglt BgL_approx3262z00_3767;
BgL_approx3262z00_3767 = 
(BgL_approxz00_bglt)(BgL_arg5712z00_2243); 
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzf2cinfoz20_bglt BgL_new3263z00_3768;
BgL_new3263z00_3768 = 
((BgL_appzd2lyzf2cinfoz20_bglt)BREF( GC_MALLOC (sizeof(struct BgL_appzd2lyzf2cinfoz20_bgl)))); 
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzf2cinfoz20_bglt BgL_res6398z00_3772;
{ /* ./Cfa/cinfo.scm 79 */
BgL_appzd2lyzf2cinfoz20_bglt BgL_new3273z00_3769;
BgL_new3273z00_3769 = BgL_new3263z00_3768; 
{ /* ./Cfa/cinfo.scm 79 */
BgL_approxz00_bglt BgL_approx3272z00_3771;
BgL_approx3272z00_3771 = BgL_approx3262z00_3767; 
((((BgL_appzd2lyzf2cinfoz20_bglt)CREF(BgL_new3273z00_3769))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3272z00_3771), BUNSPEC); 
BgL_res6398z00_3772 = BgL_new3273z00_3769; } } BgL_res6398z00_3772; } 
BgL_res6399z00_3773 = BgL_new3263z00_3768; } } 
BgL_arg5709z00_2242 = BgL_res6399z00_3773; } } 
{ /* ./Cfa/cinfo.scm 79 */
obj_t BgL_auxz00_8163;BgL_objectz00_bglt BgL_auxz00_8161;
BgL_auxz00_8163 = 
(obj_t)(BgL_arg5709z00_2242); 
BgL_auxz00_8161 = 
(BgL_objectz00_bglt)(BgL_new3282z00_2240); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_8161, BgL_auxz00_8163); } } 
{ /* ./Cfa/cinfo.scm 79 */
obj_t BgL_objz00_3774;
BgL_objz00_3774 = 
(obj_t)(BgL_new3282z00_2240); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3774); BUNSPEC; } 
BgL_auxz00_8136 = BgL_new3282z00_2240; } } } 
return 
(obj_t)(BgL_auxz00_8136);} } } 
}



/* object->struct-app-ly/Cinfo3924 */
obj_t BGl_objectzd2ze3structzd2appzd2lyzf2Cinfo3924zc3zzcfa_infoz00(obj_t BgL_envz00_4816, obj_t BgL_obj3277z00_4817)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 79 */
{ 
BgL_appzd2lyzf2cinfoz20_bglt BgL_obj3277z00_2224;
BgL_obj3277z00_2224 = 
(BgL_appzd2lyzf2cinfoz20_bglt)(BgL_obj3277z00_4817); 
{ 

{ /* ./Cfa/cinfo.scm 79 */
obj_t BgL_res3278z00_2227;
{ /* ./Cfa/cinfo.scm 79 */
obj_t BgL_nextzd2method3923zd2_2232;
BgL_nextzd2method3923zd2_2232 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3277z00_2224), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_appzd2lyzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 79 */
bool_t BgL_test5698z00_2233;
BgL_test5698z00_2233 = 
PROCEDUREP(BgL_nextzd2method3923zd2_2232); 
if(BgL_test5698z00_2233)
{ /* ./Cfa/cinfo.scm 79 */
BgL_res3278z00_2227 = 
PROCEDURE_ENTRY(BgL_nextzd2method3923zd2_2232)(BgL_nextzd2method3923zd2_2232, 
(obj_t)(BgL_obj3277z00_2224), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 79 */
BgL_res3278z00_2227 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3277z00_2224)); } } } 
{ /* ./Cfa/cinfo.scm 79 */
obj_t BgL_aux3279z00_2228;
{ /* ./Cfa/cinfo.scm 79 */
obj_t BgL_keyz00_3744;int BgL_lenz00_3745;
BgL_keyz00_3744 = 
CNST_TABLE_REF(((long)14)); 
BgL_lenz00_3745 = 
(int)(((long)1)); 
BgL_aux3279z00_2228 = 
make_struct(BgL_keyz00_3744, BgL_lenz00_3745, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 79 */
BgL_approxz00_bglt BgL_arg5687z00_2230;
{ 
obj_t BgL_auxz00_8182;
{ /* ./Cfa/cinfo.scm 79 */
BgL_objectz00_bglt BgL_auxz00_8183;
BgL_auxz00_8183 = 
(BgL_objectz00_bglt)(BgL_obj3277z00_2224); 
BgL_auxz00_8182 = 
BGL_OBJECT_WIDENING(BgL_auxz00_8183); } 
BgL_arg5687z00_2230 = 
(((BgL_appzd2lyzf2cinfoz20_bglt)CREF(BgL_auxz00_8182))->BgL_approxz00); } 
{ /* ./Cfa/cinfo.scm 79 */
int BgL_kz00_3749;obj_t BgL_oz00_3750;
BgL_kz00_3749 = 
(int)(((long)0)); 
BgL_oz00_3750 = 
(obj_t)(BgL_arg5687z00_2230); 
STRUCT_SET(BgL_aux3279z00_2228, BgL_kz00_3749, BgL_oz00_3750); } } 
{ /* ./Cfa/cinfo.scm 79 */
int BgL_kz00_3752;
BgL_kz00_3752 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3278z00_2227, BgL_kz00_3752, BgL_aux3279z00_2228); } 
{ /* ./Cfa/cinfo.scm 79 */
obj_t BgL_arg5692z00_2231;
BgL_arg5692z00_2231 = 
STRUCT_KEY(BgL_res3278z00_2227); 
STRUCT_KEY_SET(BgL_aux3279z00_2228, BgL_arg5692z00_2231); } 
{ /* ./Cfa/cinfo.scm 79 */
obj_t BgL_kz00_3759;
BgL_kz00_3759 = 
CNST_TABLE_REF(((long)14)); 
STRUCT_KEY_SET(BgL_res3278z00_2227, BgL_kz00_3759); } 
return BgL_res3278z00_2227;} } } } } 
}



/* struct+object->object-funcall/Cinfo3922 */
obj_t BGl_structzb2objectzd2ze3objectzd2funcallzf2Cinfo3922za3zzcfa_infoz00(obj_t BgL_envz00_4818, obj_t BgL_oz00_4819, obj_t BgL_sz00_4820)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 81 */
{ 
BgL_funcallzf2cinfozf2_bglt BgL_oz00_2209;obj_t BgL_sz00_2210;
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallzf2cinfozf2_bglt BgL_auxz00_8197;
BgL_oz00_2209 = 
(BgL_funcallzf2cinfozf2_bglt)(BgL_oz00_4819); 
BgL_sz00_2210 = BgL_sz00_4820; 
{ 

{ /* ./Cfa/cinfo.scm 81 */
obj_t BgL_old3326z00_2213;obj_t BgL_aux3327z00_2214;
{ /* ./Cfa/cinfo.scm 81 */
obj_t BgL_nextzd2method3921zd2_2222;
BgL_nextzd2method3921zd2_2222 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2209), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_funcallzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 81 */
bool_t BgL_test5679z00_2223;
BgL_test5679z00_2223 = 
PROCEDUREP(BgL_nextzd2method3921zd2_2222); 
if(BgL_test5679z00_2223)
{ /* ./Cfa/cinfo.scm 81 */
BgL_old3326z00_2213 = 
PROCEDURE_ENTRY(BgL_nextzd2method3921zd2_2222)(BgL_nextzd2method3921zd2_2222, 
(obj_t)(BgL_oz00_2209), BgL_sz00_2210, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 81 */
{ /* ./Cfa/cinfo.scm 81 */
BgL_objectz00_bglt BgL_auxz00_8205;
BgL_auxz00_8205 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2209), BgL_sz00_2210); 
BgL_old3326z00_2213 = 
(obj_t)(BgL_auxz00_8205); } } } } 
{ /* ./Cfa/cinfo.scm 81 */
int BgL_auxz00_8209;
BgL_auxz00_8209 = 
(int)(((long)0)); 
BgL_aux3327z00_2214 = 
STRUCT_REF(BgL_sz00_2210, BgL_auxz00_8209); } 
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallzf2cinfozf2_bglt BgL_new3328z00_2215;
BgL_new3328z00_2215 = 
((BgL_funcallzf2cinfozf2_bglt)(BgL_old3326z00_2213)); 
{ /* ./Cfa/cinfo.scm 81 */
long BgL_arg5660z00_2216;
BgL_arg5660z00_2216 = 
BGl_classzd2numzd2zz__objectz00(BGl_funcallzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 81 */
BgL_objectz00_bglt BgL_objz00_3716;
BgL_objz00_3716 = 
(BgL_objectz00_bglt)(BgL_new3328z00_2215); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3716, BgL_arg5660z00_2216); } } 
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallzf2cinfozf2_bglt BgL_arg5664z00_2217;
{ /* ./Cfa/cinfo.scm 81 */
obj_t BgL_arg5667z00_2218;obj_t BgL_arg5668z00_2219;obj_t BgL_arg5669z00_2220;obj_t BgL_arg5670z00_2221;
{ /* ./Cfa/cinfo.scm 81 */
int BgL_auxz00_8216;
BgL_auxz00_8216 = 
(int)(((long)0)); 
BgL_arg5667z00_2218 = 
STRUCT_REF(BgL_aux3327z00_2214, BgL_auxz00_8216); } 
{ /* ./Cfa/cinfo.scm 81 */
int BgL_auxz00_8219;
BgL_auxz00_8219 = 
(int)(((long)1)); 
BgL_arg5668z00_2219 = 
STRUCT_REF(BgL_aux3327z00_2214, BgL_auxz00_8219); } 
{ /* ./Cfa/cinfo.scm 81 */
int BgL_auxz00_8222;
BgL_auxz00_8222 = 
(int)(((long)2)); 
BgL_arg5669z00_2220 = 
STRUCT_REF(BgL_aux3327z00_2214, BgL_auxz00_8222); } 
{ /* ./Cfa/cinfo.scm 81 */
int BgL_auxz00_8225;
BgL_auxz00_8225 = 
(int)(((long)3)); 
BgL_arg5670z00_2221 = 
STRUCT_REF(BgL_aux3327z00_2214, BgL_auxz00_8225); } 
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallzf2cinfozf2_bglt BgL_res6396z00_3741;
{ /* ./Cfa/cinfo.scm 81 */
BgL_approxz00_bglt BgL_approx3295z00_3726;BgL_approxz00_bglt BgL_vazd2approx3296zd2_3727;bool_t BgL_arityzd2errorzd2noticedzf33297zf3_3728;bool_t BgL_typezd2errorzd2noticedzf33298zf3_3729;
BgL_approx3295z00_3726 = 
(BgL_approxz00_bglt)(BgL_arg5667z00_2218); 
BgL_vazd2approx3296zd2_3727 = 
(BgL_approxz00_bglt)(BgL_arg5668z00_2219); 
BgL_arityzd2errorzd2noticedzf33297zf3_3728 = 
CBOOL(BgL_arg5669z00_2220); 
BgL_typezd2errorzd2noticedzf33298zf3_3729 = 
CBOOL(BgL_arg5670z00_2221); 
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallzf2cinfozf2_bglt BgL_new3299z00_3730;
BgL_new3299z00_3730 = 
((BgL_funcallzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_funcallzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallzf2cinfozf2_bglt BgL_res6395z00_3740;
{ /* ./Cfa/cinfo.scm 81 */
BgL_funcallzf2cinfozf2_bglt BgL_new3316z00_3731;
BgL_new3316z00_3731 = BgL_new3299z00_3730; 
{ /* ./Cfa/cinfo.scm 81 */
BgL_approxz00_bglt BgL_approx3312z00_3736;BgL_approxz00_bglt BgL_vazd2approx3313zd2_3737;bool_t BgL_arityzd2errorzd2noticedzf33314zf3_3738;bool_t BgL_typezd2errorzd2noticedzf33315zf3_3739;
BgL_approx3312z00_3736 = BgL_approx3295z00_3726; 
BgL_vazd2approx3313zd2_3737 = BgL_vazd2approx3296zd2_3727; 
BgL_arityzd2errorzd2noticedzf33314zf3_3738 = BgL_arityzd2errorzd2noticedzf33297zf3_3728; 
BgL_typezd2errorzd2noticedzf33315zf3_3739 = BgL_typezd2errorzd2noticedzf33298zf3_3729; 
((((BgL_funcallzf2cinfozf2_bglt)CREF(BgL_new3316z00_3731))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3312z00_3736), BUNSPEC); 
((((BgL_funcallzf2cinfozf2_bglt)CREF(BgL_new3316z00_3731))->BgL_vazd2approxzd2) = ((BgL_approxz00_bglt)BgL_vazd2approx3313zd2_3737), BUNSPEC); 
((((BgL_funcallzf2cinfozf2_bglt)CREF(BgL_new3316z00_3731))->BgL_arityzd2errorzd2noticedzf3zf3) = ((bool_t)BgL_arityzd2errorzd2noticedzf33314zf3_3738), BUNSPEC); 
((((BgL_funcallzf2cinfozf2_bglt)CREF(BgL_new3316z00_3731))->BgL_typezd2errorzd2noticedzf3zf3) = ((bool_t)BgL_typezd2errorzd2noticedzf33315zf3_3739), BUNSPEC); 
BgL_res6395z00_3740 = BgL_new3316z00_3731; } } BgL_res6395z00_3740; } 
BgL_res6396z00_3741 = BgL_new3299z00_3730; } } 
BgL_arg5664z00_2217 = BgL_res6396z00_3741; } } 
{ /* ./Cfa/cinfo.scm 81 */
obj_t BgL_auxz00_8239;BgL_objectz00_bglt BgL_auxz00_8237;
BgL_auxz00_8239 = 
(obj_t)(BgL_arg5664z00_2217); 
BgL_auxz00_8237 = 
(BgL_objectz00_bglt)(BgL_new3328z00_2215); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_8237, BgL_auxz00_8239); } } 
{ /* ./Cfa/cinfo.scm 81 */
obj_t BgL_objz00_3742;
BgL_objz00_3742 = 
(obj_t)(BgL_new3328z00_2215); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3742); BUNSPEC; } 
BgL_auxz00_8197 = BgL_new3328z00_2215; } } } 
return 
(obj_t)(BgL_auxz00_8197);} } } 
}



/* object->struct-funcall/Cinfo3920 */
obj_t BGl_objectzd2ze3structzd2funcallzf2Cinfo3920z11zzcfa_infoz00(obj_t BgL_envz00_4821, obj_t BgL_obj3323z00_4822)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 81 */
{ 
BgL_funcallzf2cinfozf2_bglt BgL_obj3323z00_2193;
BgL_obj3323z00_2193 = 
(BgL_funcallzf2cinfozf2_bglt)(BgL_obj3323z00_4822); 
{ 

{ /* ./Cfa/cinfo.scm 81 */
obj_t BgL_res3324z00_2196;
{ /* ./Cfa/cinfo.scm 81 */
obj_t BgL_nextzd2method3919zd2_2207;
BgL_nextzd2method3919zd2_2207 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3323z00_2193), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_funcallzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 81 */
bool_t BgL_test5653z00_2208;
BgL_test5653z00_2208 = 
PROCEDUREP(BgL_nextzd2method3919zd2_2207); 
if(BgL_test5653z00_2208)
{ /* ./Cfa/cinfo.scm 81 */
BgL_res3324z00_2196 = 
PROCEDURE_ENTRY(BgL_nextzd2method3919zd2_2207)(BgL_nextzd2method3919zd2_2207, 
(obj_t)(BgL_obj3323z00_2193), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 81 */
BgL_res3324z00_2196 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3323z00_2193)); } } } 
{ /* ./Cfa/cinfo.scm 81 */
obj_t BgL_aux3325z00_2197;
{ /* ./Cfa/cinfo.scm 81 */
obj_t BgL_keyz00_3685;int BgL_lenz00_3686;
BgL_keyz00_3685 = 
CNST_TABLE_REF(((long)15)); 
BgL_lenz00_3686 = 
(int)(((long)4)); 
BgL_aux3325z00_2197 = 
make_struct(BgL_keyz00_3685, BgL_lenz00_3686, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 81 */
BgL_approxz00_bglt BgL_arg5627z00_2199;
{ 
obj_t BgL_auxz00_8258;
{ /* ./Cfa/cinfo.scm 81 */
BgL_objectz00_bglt BgL_auxz00_8259;
BgL_auxz00_8259 = 
(BgL_objectz00_bglt)(BgL_obj3323z00_2193); 
BgL_auxz00_8258 = 
BGL_OBJECT_WIDENING(BgL_auxz00_8259); } 
BgL_arg5627z00_2199 = 
(((BgL_funcallzf2cinfozf2_bglt)CREF(BgL_auxz00_8258))->BgL_approxz00); } 
{ /* ./Cfa/cinfo.scm 81 */
int BgL_kz00_3690;obj_t BgL_oz00_3691;
BgL_kz00_3690 = 
(int)(((long)0)); 
BgL_oz00_3691 = 
(obj_t)(BgL_arg5627z00_2199); 
STRUCT_SET(BgL_aux3325z00_2197, BgL_kz00_3690, BgL_oz00_3691); } } 
{ /* ./Cfa/cinfo.scm 81 */
BgL_approxz00_bglt BgL_arg5632z00_2201;
{ 
obj_t BgL_auxz00_8266;
{ /* ./Cfa/cinfo.scm 81 */
BgL_objectz00_bglt BgL_auxz00_8267;
BgL_auxz00_8267 = 
(BgL_objectz00_bglt)(BgL_obj3323z00_2193); 
BgL_auxz00_8266 = 
BGL_OBJECT_WIDENING(BgL_auxz00_8267); } 
BgL_arg5632z00_2201 = 
(((BgL_funcallzf2cinfozf2_bglt)CREF(BgL_auxz00_8266))->BgL_vazd2approxzd2); } 
{ /* ./Cfa/cinfo.scm 81 */
int BgL_kz00_3694;obj_t BgL_oz00_3695;
BgL_kz00_3694 = 
(int)(((long)1)); 
BgL_oz00_3695 = 
(obj_t)(BgL_arg5632z00_2201); 
STRUCT_SET(BgL_aux3325z00_2197, BgL_kz00_3694, BgL_oz00_3695); } } 
{ /* ./Cfa/cinfo.scm 81 */
bool_t BgL_arg5637z00_2203;
{ 
obj_t BgL_auxz00_8274;
{ /* ./Cfa/cinfo.scm 81 */
BgL_objectz00_bglt BgL_auxz00_8275;
BgL_auxz00_8275 = 
(BgL_objectz00_bglt)(BgL_obj3323z00_2193); 
BgL_auxz00_8274 = 
BGL_OBJECT_WIDENING(BgL_auxz00_8275); } 
BgL_arg5637z00_2203 = 
(((BgL_funcallzf2cinfozf2_bglt)CREF(BgL_auxz00_8274))->BgL_arityzd2errorzd2noticedzf3zf3); } 
{ /* ./Cfa/cinfo.scm 81 */
int BgL_kz00_3698;obj_t BgL_oz00_3699;
BgL_kz00_3698 = 
(int)(((long)2)); 
BgL_oz00_3699 = 
BBOOL(BgL_arg5637z00_2203); 
STRUCT_SET(BgL_aux3325z00_2197, BgL_kz00_3698, BgL_oz00_3699); } } 
{ /* ./Cfa/cinfo.scm 81 */
bool_t BgL_arg5642z00_2205;
{ 
obj_t BgL_auxz00_8282;
{ /* ./Cfa/cinfo.scm 81 */
BgL_objectz00_bglt BgL_auxz00_8283;
BgL_auxz00_8283 = 
(BgL_objectz00_bglt)(BgL_obj3323z00_2193); 
BgL_auxz00_8282 = 
BGL_OBJECT_WIDENING(BgL_auxz00_8283); } 
BgL_arg5642z00_2205 = 
(((BgL_funcallzf2cinfozf2_bglt)CREF(BgL_auxz00_8282))->BgL_typezd2errorzd2noticedzf3zf3); } 
{ /* ./Cfa/cinfo.scm 81 */
int BgL_kz00_3702;obj_t BgL_oz00_3703;
BgL_kz00_3702 = 
(int)(((long)3)); 
BgL_oz00_3703 = 
BBOOL(BgL_arg5642z00_2205); 
STRUCT_SET(BgL_aux3325z00_2197, BgL_kz00_3702, BgL_oz00_3703); } } 
{ /* ./Cfa/cinfo.scm 81 */
int BgL_kz00_3705;
BgL_kz00_3705 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3324z00_2196, BgL_kz00_3705, BgL_aux3325z00_2197); } 
{ /* ./Cfa/cinfo.scm 81 */
obj_t BgL_arg5647z00_2206;
BgL_arg5647z00_2206 = 
STRUCT_KEY(BgL_res3324z00_2196); 
STRUCT_KEY_SET(BgL_aux3325z00_2197, BgL_arg5647z00_2206); } 
{ /* ./Cfa/cinfo.scm 81 */
obj_t BgL_kz00_3712;
BgL_kz00_3712 = 
CNST_TABLE_REF(((long)15)); 
STRUCT_KEY_SET(BgL_res3324z00_2196, BgL_kz00_3712); } 
return BgL_res3324z00_2196;} } } } } 
}



/* struct+object->object-setq/Cinfo3918 */
obj_t BGl_structzb2objectzd2ze3objectzd2setqzf2Cinfo3918za3zzcfa_infoz00(obj_t BgL_envz00_4823, obj_t BgL_oz00_4824, obj_t BgL_sz00_4825)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 86 */
{ 
BgL_setqzf2cinfozf2_bglt BgL_oz00_2181;obj_t BgL_sz00_2182;
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqzf2cinfozf2_bglt BgL_auxz00_8297;
BgL_oz00_2181 = 
(BgL_setqzf2cinfozf2_bglt)(BgL_oz00_4824); 
BgL_sz00_2182 = BgL_sz00_4825; 
{ 

{ /* ./Cfa/cinfo.scm 86 */
obj_t BgL_old3369z00_2185;obj_t BgL_aux3370z00_2186;
{ /* ./Cfa/cinfo.scm 86 */
obj_t BgL_nextzd2method3917zd2_2191;
BgL_nextzd2method3917zd2_2191 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2181), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_setqzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 86 */
bool_t BgL_test5619z00_2192;
BgL_test5619z00_2192 = 
PROCEDUREP(BgL_nextzd2method3917zd2_2191); 
if(BgL_test5619z00_2192)
{ /* ./Cfa/cinfo.scm 86 */
BgL_old3369z00_2185 = 
PROCEDURE_ENTRY(BgL_nextzd2method3917zd2_2191)(BgL_nextzd2method3917zd2_2191, 
(obj_t)(BgL_oz00_2181), BgL_sz00_2182, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 86 */
{ /* ./Cfa/cinfo.scm 86 */
BgL_objectz00_bglt BgL_auxz00_8305;
BgL_auxz00_8305 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2181), BgL_sz00_2182); 
BgL_old3369z00_2185 = 
(obj_t)(BgL_auxz00_8305); } } } } 
{ /* ./Cfa/cinfo.scm 86 */
int BgL_auxz00_8309;
BgL_auxz00_8309 = 
(int)(((long)0)); 
BgL_aux3370z00_2186 = 
STRUCT_REF(BgL_sz00_2182, BgL_auxz00_8309); } 
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqzf2cinfozf2_bglt BgL_new3371z00_2187;
BgL_new3371z00_2187 = 
((BgL_setqzf2cinfozf2_bglt)(BgL_old3369z00_2185)); 
{ /* ./Cfa/cinfo.scm 86 */
long BgL_arg5606z00_2188;
BgL_arg5606z00_2188 = 
BGl_classzd2numzd2zz__objectz00(BGl_setqzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 86 */
BgL_objectz00_bglt BgL_objz00_3672;
BgL_objz00_3672 = 
(BgL_objectz00_bglt)(BgL_new3371z00_2187); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3672, BgL_arg5606z00_2188); } } 
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqzf2cinfozf2_bglt BgL_arg5610z00_2189;
{ /* ./Cfa/cinfo.scm 86 */
obj_t BgL_arg5613z00_2190;
{ /* ./Cfa/cinfo.scm 86 */
int BgL_auxz00_8316;
BgL_auxz00_8316 = 
(int)(((long)0)); 
BgL_arg5613z00_2190 = 
STRUCT_REF(BgL_aux3370z00_2186, BgL_auxz00_8316); } 
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqzf2cinfozf2_bglt BgL_res6393z00_3682;
{ /* ./Cfa/cinfo.scm 86 */
BgL_approxz00_bglt BgL_approx3351z00_3676;
BgL_approx3351z00_3676 = 
(BgL_approxz00_bglt)(BgL_arg5613z00_2190); 
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqzf2cinfozf2_bglt BgL_new3352z00_3677;
BgL_new3352z00_3677 = 
((BgL_setqzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_setqzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqzf2cinfozf2_bglt BgL_res6392z00_3681;
{ /* ./Cfa/cinfo.scm 86 */
BgL_setqzf2cinfozf2_bglt BgL_new3362z00_3678;
BgL_new3362z00_3678 = BgL_new3352z00_3677; 
{ /* ./Cfa/cinfo.scm 86 */
BgL_approxz00_bglt BgL_approx3361z00_3680;
BgL_approx3361z00_3680 = BgL_approx3351z00_3676; 
((((BgL_setqzf2cinfozf2_bglt)CREF(BgL_new3362z00_3678))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3361z00_3680), BUNSPEC); 
BgL_res6392z00_3681 = BgL_new3362z00_3678; } } BgL_res6392z00_3681; } 
BgL_res6393z00_3682 = BgL_new3352z00_3677; } } 
BgL_arg5610z00_2189 = BgL_res6393z00_3682; } } 
{ /* ./Cfa/cinfo.scm 86 */
obj_t BgL_auxz00_8324;BgL_objectz00_bglt BgL_auxz00_8322;
BgL_auxz00_8324 = 
(obj_t)(BgL_arg5610z00_2189); 
BgL_auxz00_8322 = 
(BgL_objectz00_bglt)(BgL_new3371z00_2187); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_8322, BgL_auxz00_8324); } } 
{ /* ./Cfa/cinfo.scm 86 */
obj_t BgL_objz00_3683;
BgL_objz00_3683 = 
(obj_t)(BgL_new3371z00_2187); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3683); BUNSPEC; } 
BgL_auxz00_8297 = BgL_new3371z00_2187; } } } 
return 
(obj_t)(BgL_auxz00_8297);} } } 
}



/* object->struct-setq/Cinfo3916 */
obj_t BGl_objectzd2ze3structzd2setqzf2Cinfo3916z11zzcfa_infoz00(obj_t BgL_envz00_4826, obj_t BgL_obj3366z00_4827)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 86 */
{ 
BgL_setqzf2cinfozf2_bglt BgL_obj3366z00_2171;
BgL_obj3366z00_2171 = 
(BgL_setqzf2cinfozf2_bglt)(BgL_obj3366z00_4827); 
{ 

{ /* ./Cfa/cinfo.scm 86 */
obj_t BgL_res3367z00_2174;
{ /* ./Cfa/cinfo.scm 86 */
obj_t BgL_nextzd2method3915zd2_2179;
BgL_nextzd2method3915zd2_2179 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3366z00_2171), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_setqzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 86 */
bool_t BgL_test5599z00_2180;
BgL_test5599z00_2180 = 
PROCEDUREP(BgL_nextzd2method3915zd2_2179); 
if(BgL_test5599z00_2180)
{ /* ./Cfa/cinfo.scm 86 */
BgL_res3367z00_2174 = 
PROCEDURE_ENTRY(BgL_nextzd2method3915zd2_2179)(BgL_nextzd2method3915zd2_2179, 
(obj_t)(BgL_obj3366z00_2171), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 86 */
BgL_res3367z00_2174 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3366z00_2171)); } } } 
{ /* ./Cfa/cinfo.scm 86 */
obj_t BgL_aux3368z00_2175;
{ /* ./Cfa/cinfo.scm 86 */
obj_t BgL_keyz00_3653;int BgL_lenz00_3654;
BgL_keyz00_3653 = 
CNST_TABLE_REF(((long)16)); 
BgL_lenz00_3654 = 
(int)(((long)1)); 
BgL_aux3368z00_2175 = 
make_struct(BgL_keyz00_3653, BgL_lenz00_3654, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 86 */
BgL_approxz00_bglt BgL_arg5588z00_2177;
{ 
obj_t BgL_auxz00_8343;
{ /* ./Cfa/cinfo.scm 86 */
BgL_objectz00_bglt BgL_auxz00_8344;
BgL_auxz00_8344 = 
(BgL_objectz00_bglt)(BgL_obj3366z00_2171); 
BgL_auxz00_8343 = 
BGL_OBJECT_WIDENING(BgL_auxz00_8344); } 
BgL_arg5588z00_2177 = 
(((BgL_setqzf2cinfozf2_bglt)CREF(BgL_auxz00_8343))->BgL_approxz00); } 
{ /* ./Cfa/cinfo.scm 86 */
int BgL_kz00_3658;obj_t BgL_oz00_3659;
BgL_kz00_3658 = 
(int)(((long)0)); 
BgL_oz00_3659 = 
(obj_t)(BgL_arg5588z00_2177); 
STRUCT_SET(BgL_aux3368z00_2175, BgL_kz00_3658, BgL_oz00_3659); } } 
{ /* ./Cfa/cinfo.scm 86 */
int BgL_kz00_3661;
BgL_kz00_3661 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3367z00_2174, BgL_kz00_3661, BgL_aux3368z00_2175); } 
{ /* ./Cfa/cinfo.scm 86 */
obj_t BgL_arg5593z00_2178;
BgL_arg5593z00_2178 = 
STRUCT_KEY(BgL_res3367z00_2174); 
STRUCT_KEY_SET(BgL_aux3368z00_2175, BgL_arg5593z00_2178); } 
{ /* ./Cfa/cinfo.scm 86 */
obj_t BgL_kz00_3668;
BgL_kz00_3668 = 
CNST_TABLE_REF(((long)16)); 
STRUCT_KEY_SET(BgL_res3367z00_2174, BgL_kz00_3668); } 
return BgL_res3367z00_2174;} } } } } 
}



/* struct+object->object-conditional/Cinfo3914 */
obj_t BGl_structzb2objectzd2ze3objectzd2conditionalzf2Cinfo3914za3zzcfa_infoz00(obj_t BgL_envz00_4828, obj_t BgL_oz00_4829, obj_t BgL_sz00_4830)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 88 */
{ 
BgL_conditionalzf2cinfozf2_bglt BgL_oz00_2159;obj_t BgL_sz00_2160;
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalzf2cinfozf2_bglt BgL_auxz00_8358;
BgL_oz00_2159 = 
(BgL_conditionalzf2cinfozf2_bglt)(BgL_oz00_4829); 
BgL_sz00_2160 = BgL_sz00_4830; 
{ 

{ /* ./Cfa/cinfo.scm 88 */
obj_t BgL_old3405z00_2163;obj_t BgL_aux3406z00_2164;
{ /* ./Cfa/cinfo.scm 88 */
obj_t BgL_nextzd2method3913zd2_2169;
BgL_nextzd2method3913zd2_2169 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2159), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_conditionalzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 88 */
bool_t BgL_test5580z00_2170;
BgL_test5580z00_2170 = 
PROCEDUREP(BgL_nextzd2method3913zd2_2169); 
if(BgL_test5580z00_2170)
{ /* ./Cfa/cinfo.scm 88 */
BgL_old3405z00_2163 = 
PROCEDURE_ENTRY(BgL_nextzd2method3913zd2_2169)(BgL_nextzd2method3913zd2_2169, 
(obj_t)(BgL_oz00_2159), BgL_sz00_2160, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 88 */
{ /* ./Cfa/cinfo.scm 88 */
BgL_objectz00_bglt BgL_auxz00_8366;
BgL_auxz00_8366 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2159), BgL_sz00_2160); 
BgL_old3405z00_2163 = 
(obj_t)(BgL_auxz00_8366); } } } } 
{ /* ./Cfa/cinfo.scm 88 */
int BgL_auxz00_8370;
BgL_auxz00_8370 = 
(int)(((long)0)); 
BgL_aux3406z00_2164 = 
STRUCT_REF(BgL_sz00_2160, BgL_auxz00_8370); } 
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalzf2cinfozf2_bglt BgL_new3407z00_2165;
BgL_new3407z00_2165 = 
((BgL_conditionalzf2cinfozf2_bglt)(BgL_old3405z00_2163)); 
{ /* ./Cfa/cinfo.scm 88 */
long BgL_arg5567z00_2166;
BgL_arg5567z00_2166 = 
BGl_classzd2numzd2zz__objectz00(BGl_conditionalzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 88 */
BgL_objectz00_bglt BgL_objz00_3640;
BgL_objz00_3640 = 
(BgL_objectz00_bglt)(BgL_new3407z00_2165); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3640, BgL_arg5567z00_2166); } } 
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalzf2cinfozf2_bglt BgL_arg5571z00_2167;
{ /* ./Cfa/cinfo.scm 88 */
obj_t BgL_arg5574z00_2168;
{ /* ./Cfa/cinfo.scm 88 */
int BgL_auxz00_8377;
BgL_auxz00_8377 = 
(int)(((long)0)); 
BgL_arg5574z00_2168 = 
STRUCT_REF(BgL_aux3406z00_2164, BgL_auxz00_8377); } 
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalzf2cinfozf2_bglt BgL_res6390z00_3650;
{ /* ./Cfa/cinfo.scm 88 */
BgL_approxz00_bglt BgL_approx3384z00_3644;
BgL_approx3384z00_3644 = 
(BgL_approxz00_bglt)(BgL_arg5574z00_2168); 
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalzf2cinfozf2_bglt BgL_new3385z00_3645;
BgL_new3385z00_3645 = 
((BgL_conditionalzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_conditionalzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalzf2cinfozf2_bglt BgL_res6389z00_3649;
{ /* ./Cfa/cinfo.scm 88 */
BgL_conditionalzf2cinfozf2_bglt BgL_new3398z00_3646;
BgL_new3398z00_3646 = BgL_new3385z00_3645; 
{ /* ./Cfa/cinfo.scm 88 */
BgL_approxz00_bglt BgL_approx3397z00_3648;
BgL_approx3397z00_3648 = BgL_approx3384z00_3644; 
((((BgL_conditionalzf2cinfozf2_bglt)CREF(BgL_new3398z00_3646))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3397z00_3648), BUNSPEC); 
BgL_res6389z00_3649 = BgL_new3398z00_3646; } } BgL_res6389z00_3649; } 
BgL_res6390z00_3650 = BgL_new3385z00_3645; } } 
BgL_arg5571z00_2167 = BgL_res6390z00_3650; } } 
{ /* ./Cfa/cinfo.scm 88 */
obj_t BgL_auxz00_8385;BgL_objectz00_bglt BgL_auxz00_8383;
BgL_auxz00_8385 = 
(obj_t)(BgL_arg5571z00_2167); 
BgL_auxz00_8383 = 
(BgL_objectz00_bglt)(BgL_new3407z00_2165); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_8383, BgL_auxz00_8385); } } 
{ /* ./Cfa/cinfo.scm 88 */
obj_t BgL_objz00_3651;
BgL_objz00_3651 = 
(obj_t)(BgL_new3407z00_2165); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3651); BUNSPEC; } 
BgL_auxz00_8358 = BgL_new3407z00_2165; } } } 
return 
(obj_t)(BgL_auxz00_8358);} } } 
}



/* object->struct-conditional/Cinfo3912 */
obj_t BGl_objectzd2ze3structzd2conditionalzf2Cinfo3912z11zzcfa_infoz00(obj_t BgL_envz00_4831, obj_t BgL_obj3402z00_4832)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 88 */
{ 
BgL_conditionalzf2cinfozf2_bglt BgL_obj3402z00_2149;
BgL_obj3402z00_2149 = 
(BgL_conditionalzf2cinfozf2_bglt)(BgL_obj3402z00_4832); 
{ 

{ /* ./Cfa/cinfo.scm 88 */
obj_t BgL_res3403z00_2152;
{ /* ./Cfa/cinfo.scm 88 */
obj_t BgL_nextzd2method3911zd2_2157;
BgL_nextzd2method3911zd2_2157 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3402z00_2149), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_conditionalzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 88 */
bool_t BgL_test5560z00_2158;
BgL_test5560z00_2158 = 
PROCEDUREP(BgL_nextzd2method3911zd2_2157); 
if(BgL_test5560z00_2158)
{ /* ./Cfa/cinfo.scm 88 */
BgL_res3403z00_2152 = 
PROCEDURE_ENTRY(BgL_nextzd2method3911zd2_2157)(BgL_nextzd2method3911zd2_2157, 
(obj_t)(BgL_obj3402z00_2149), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 88 */
BgL_res3403z00_2152 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3402z00_2149)); } } } 
{ /* ./Cfa/cinfo.scm 88 */
obj_t BgL_aux3404z00_2153;
{ /* ./Cfa/cinfo.scm 88 */
obj_t BgL_keyz00_3621;int BgL_lenz00_3622;
BgL_keyz00_3621 = 
CNST_TABLE_REF(((long)17)); 
BgL_lenz00_3622 = 
(int)(((long)1)); 
BgL_aux3404z00_2153 = 
make_struct(BgL_keyz00_3621, BgL_lenz00_3622, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 88 */
BgL_approxz00_bglt BgL_arg5549z00_2155;
{ 
obj_t BgL_auxz00_8404;
{ /* ./Cfa/cinfo.scm 88 */
BgL_objectz00_bglt BgL_auxz00_8405;
BgL_auxz00_8405 = 
(BgL_objectz00_bglt)(BgL_obj3402z00_2149); 
BgL_auxz00_8404 = 
BGL_OBJECT_WIDENING(BgL_auxz00_8405); } 
BgL_arg5549z00_2155 = 
(((BgL_conditionalzf2cinfozf2_bglt)CREF(BgL_auxz00_8404))->BgL_approxz00); } 
{ /* ./Cfa/cinfo.scm 88 */
int BgL_kz00_3626;obj_t BgL_oz00_3627;
BgL_kz00_3626 = 
(int)(((long)0)); 
BgL_oz00_3627 = 
(obj_t)(BgL_arg5549z00_2155); 
STRUCT_SET(BgL_aux3404z00_2153, BgL_kz00_3626, BgL_oz00_3627); } } 
{ /* ./Cfa/cinfo.scm 88 */
int BgL_kz00_3629;
BgL_kz00_3629 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3403z00_2152, BgL_kz00_3629, BgL_aux3404z00_2153); } 
{ /* ./Cfa/cinfo.scm 88 */
obj_t BgL_arg5554z00_2156;
BgL_arg5554z00_2156 = 
STRUCT_KEY(BgL_res3403z00_2152); 
STRUCT_KEY_SET(BgL_aux3404z00_2153, BgL_arg5554z00_2156); } 
{ /* ./Cfa/cinfo.scm 88 */
obj_t BgL_kz00_3636;
BgL_kz00_3636 = 
CNST_TABLE_REF(((long)17)); 
STRUCT_KEY_SET(BgL_res3403z00_2152, BgL_kz00_3636); } 
return BgL_res3403z00_2152;} } } } } 
}



/* struct+object->object-fail/Cinfo3910 */
obj_t BGl_structzb2objectzd2ze3objectzd2failzf2Cinfo3910za3zzcfa_infoz00(obj_t BgL_envz00_4833, obj_t BgL_oz00_4834, obj_t BgL_sz00_4835)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 90 */
{ 
BgL_failzf2cinfozf2_bglt BgL_oz00_2137;obj_t BgL_sz00_2138;
{ /* ./Cfa/cinfo.scm 90 */
BgL_failzf2cinfozf2_bglt BgL_auxz00_8419;
BgL_oz00_2137 = 
(BgL_failzf2cinfozf2_bglt)(BgL_oz00_4834); 
BgL_sz00_2138 = BgL_sz00_4835; 
{ 

{ /* ./Cfa/cinfo.scm 90 */
obj_t BgL_old3448z00_2141;obj_t BgL_aux3449z00_2142;
{ /* ./Cfa/cinfo.scm 90 */
obj_t BgL_nextzd2method3909zd2_2147;
BgL_nextzd2method3909zd2_2147 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2137), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_failzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 90 */
bool_t BgL_test5541z00_2148;
BgL_test5541z00_2148 = 
PROCEDUREP(BgL_nextzd2method3909zd2_2147); 
if(BgL_test5541z00_2148)
{ /* ./Cfa/cinfo.scm 90 */
BgL_old3448z00_2141 = 
PROCEDURE_ENTRY(BgL_nextzd2method3909zd2_2147)(BgL_nextzd2method3909zd2_2147, 
(obj_t)(BgL_oz00_2137), BgL_sz00_2138, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 90 */
{ /* ./Cfa/cinfo.scm 90 */
BgL_objectz00_bglt BgL_auxz00_8427;
BgL_auxz00_8427 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2137), BgL_sz00_2138); 
BgL_old3448z00_2141 = 
(obj_t)(BgL_auxz00_8427); } } } } 
{ /* ./Cfa/cinfo.scm 90 */
int BgL_auxz00_8431;
BgL_auxz00_8431 = 
(int)(((long)0)); 
BgL_aux3449z00_2142 = 
STRUCT_REF(BgL_sz00_2138, BgL_auxz00_8431); } 
{ /* ./Cfa/cinfo.scm 90 */
BgL_failzf2cinfozf2_bglt BgL_new3450z00_2143;
BgL_new3450z00_2143 = 
((BgL_failzf2cinfozf2_bglt)(BgL_old3448z00_2141)); 
{ /* ./Cfa/cinfo.scm 90 */
long BgL_arg5528z00_2144;
BgL_arg5528z00_2144 = 
BGl_classzd2numzd2zz__objectz00(BGl_failzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 90 */
BgL_objectz00_bglt BgL_objz00_3608;
BgL_objz00_3608 = 
(BgL_objectz00_bglt)(BgL_new3450z00_2143); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3608, BgL_arg5528z00_2144); } } 
{ /* ./Cfa/cinfo.scm 90 */
BgL_failzf2cinfozf2_bglt BgL_arg5532z00_2145;
{ /* ./Cfa/cinfo.scm 90 */
obj_t BgL_arg5535z00_2146;
{ /* ./Cfa/cinfo.scm 90 */
int BgL_auxz00_8438;
BgL_auxz00_8438 = 
(int)(((long)0)); 
BgL_arg5535z00_2146 = 
STRUCT_REF(BgL_aux3449z00_2142, BgL_auxz00_8438); } 
{ /* ./Cfa/cinfo.scm 90 */
BgL_failzf2cinfozf2_bglt BgL_res6387z00_3618;
{ /* ./Cfa/cinfo.scm 90 */
BgL_approxz00_bglt BgL_approx3429z00_3612;
BgL_approx3429z00_3612 = 
(BgL_approxz00_bglt)(BgL_arg5535z00_2146); 
{ /* ./Cfa/cinfo.scm 90 */
BgL_failzf2cinfozf2_bglt BgL_new3430z00_3613;
BgL_new3430z00_3613 = 
((BgL_failzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_failzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 90 */
BgL_failzf2cinfozf2_bglt BgL_res6386z00_3617;
{ /* ./Cfa/cinfo.scm 90 */
BgL_failzf2cinfozf2_bglt BgL_new3441z00_3614;
BgL_new3441z00_3614 = BgL_new3430z00_3613; 
{ /* ./Cfa/cinfo.scm 90 */
BgL_approxz00_bglt BgL_approx3440z00_3616;
BgL_approx3440z00_3616 = BgL_approx3429z00_3612; 
((((BgL_failzf2cinfozf2_bglt)CREF(BgL_new3441z00_3614))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3440z00_3616), BUNSPEC); 
BgL_res6386z00_3617 = BgL_new3441z00_3614; } } BgL_res6386z00_3617; } 
BgL_res6387z00_3618 = BgL_new3430z00_3613; } } 
BgL_arg5532z00_2145 = BgL_res6387z00_3618; } } 
{ /* ./Cfa/cinfo.scm 90 */
obj_t BgL_auxz00_8446;BgL_objectz00_bglt BgL_auxz00_8444;
BgL_auxz00_8446 = 
(obj_t)(BgL_arg5532z00_2145); 
BgL_auxz00_8444 = 
(BgL_objectz00_bglt)(BgL_new3450z00_2143); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_8444, BgL_auxz00_8446); } } 
{ /* ./Cfa/cinfo.scm 90 */
obj_t BgL_objz00_3619;
BgL_objz00_3619 = 
(obj_t)(BgL_new3450z00_2143); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3619); BUNSPEC; } 
BgL_auxz00_8419 = BgL_new3450z00_2143; } } } 
return 
(obj_t)(BgL_auxz00_8419);} } } 
}



/* object->struct-fail/Cinfo3908 */
obj_t BGl_objectzd2ze3structzd2failzf2Cinfo3908z11zzcfa_infoz00(obj_t BgL_envz00_4836, obj_t BgL_obj3445z00_4837)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 90 */
{ 
BgL_failzf2cinfozf2_bglt BgL_obj3445z00_2127;
BgL_obj3445z00_2127 = 
(BgL_failzf2cinfozf2_bglt)(BgL_obj3445z00_4837); 
{ 

{ /* ./Cfa/cinfo.scm 90 */
obj_t BgL_res3446z00_2130;
{ /* ./Cfa/cinfo.scm 90 */
obj_t BgL_nextzd2method3907zd2_2135;
BgL_nextzd2method3907zd2_2135 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3445z00_2127), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_failzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 90 */
bool_t BgL_test5521z00_2136;
BgL_test5521z00_2136 = 
PROCEDUREP(BgL_nextzd2method3907zd2_2135); 
if(BgL_test5521z00_2136)
{ /* ./Cfa/cinfo.scm 90 */
BgL_res3446z00_2130 = 
PROCEDURE_ENTRY(BgL_nextzd2method3907zd2_2135)(BgL_nextzd2method3907zd2_2135, 
(obj_t)(BgL_obj3445z00_2127), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 90 */
BgL_res3446z00_2130 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3445z00_2127)); } } } 
{ /* ./Cfa/cinfo.scm 90 */
obj_t BgL_aux3447z00_2131;
{ /* ./Cfa/cinfo.scm 90 */
obj_t BgL_keyz00_3589;int BgL_lenz00_3590;
BgL_keyz00_3589 = 
CNST_TABLE_REF(((long)18)); 
BgL_lenz00_3590 = 
(int)(((long)1)); 
BgL_aux3447z00_2131 = 
make_struct(BgL_keyz00_3589, BgL_lenz00_3590, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 90 */
BgL_approxz00_bglt BgL_arg5510z00_2133;
{ 
obj_t BgL_auxz00_8465;
{ /* ./Cfa/cinfo.scm 90 */
BgL_objectz00_bglt BgL_auxz00_8466;
BgL_auxz00_8466 = 
(BgL_objectz00_bglt)(BgL_obj3445z00_2127); 
BgL_auxz00_8465 = 
BGL_OBJECT_WIDENING(BgL_auxz00_8466); } 
BgL_arg5510z00_2133 = 
(((BgL_failzf2cinfozf2_bglt)CREF(BgL_auxz00_8465))->BgL_approxz00); } 
{ /* ./Cfa/cinfo.scm 90 */
int BgL_kz00_3594;obj_t BgL_oz00_3595;
BgL_kz00_3594 = 
(int)(((long)0)); 
BgL_oz00_3595 = 
(obj_t)(BgL_arg5510z00_2133); 
STRUCT_SET(BgL_aux3447z00_2131, BgL_kz00_3594, BgL_oz00_3595); } } 
{ /* ./Cfa/cinfo.scm 90 */
int BgL_kz00_3597;
BgL_kz00_3597 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3446z00_2130, BgL_kz00_3597, BgL_aux3447z00_2131); } 
{ /* ./Cfa/cinfo.scm 90 */
obj_t BgL_arg5515z00_2134;
BgL_arg5515z00_2134 = 
STRUCT_KEY(BgL_res3446z00_2130); 
STRUCT_KEY_SET(BgL_aux3447z00_2131, BgL_arg5515z00_2134); } 
{ /* ./Cfa/cinfo.scm 90 */
obj_t BgL_kz00_3604;
BgL_kz00_3604 = 
CNST_TABLE_REF(((long)18)); 
STRUCT_KEY_SET(BgL_res3446z00_2130, BgL_kz00_3604); } 
return BgL_res3446z00_2130;} } } } } 
}



/* struct+object->object-select/Cinfo3906 */
obj_t BGl_structzb2objectzd2ze3objectzd2selectzf2Cinfo3906za3zzcfa_infoz00(obj_t BgL_envz00_4838, obj_t BgL_oz00_4839, obj_t BgL_sz00_4840)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 92 */
{ 
BgL_selectzf2cinfozf2_bglt BgL_oz00_2115;obj_t BgL_sz00_2116;
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectzf2cinfozf2_bglt BgL_auxz00_8480;
BgL_oz00_2115 = 
(BgL_selectzf2cinfozf2_bglt)(BgL_oz00_4839); 
BgL_sz00_2116 = BgL_sz00_4840; 
{ 

{ /* ./Cfa/cinfo.scm 92 */
obj_t BgL_old3488z00_2119;obj_t BgL_aux3489z00_2120;
{ /* ./Cfa/cinfo.scm 92 */
obj_t BgL_nextzd2method3905zd2_2125;
BgL_nextzd2method3905zd2_2125 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2115), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_selectzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 92 */
bool_t BgL_test5502z00_2126;
BgL_test5502z00_2126 = 
PROCEDUREP(BgL_nextzd2method3905zd2_2125); 
if(BgL_test5502z00_2126)
{ /* ./Cfa/cinfo.scm 92 */
BgL_old3488z00_2119 = 
PROCEDURE_ENTRY(BgL_nextzd2method3905zd2_2125)(BgL_nextzd2method3905zd2_2125, 
(obj_t)(BgL_oz00_2115), BgL_sz00_2116, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 92 */
{ /* ./Cfa/cinfo.scm 92 */
BgL_objectz00_bglt BgL_auxz00_8488;
BgL_auxz00_8488 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2115), BgL_sz00_2116); 
BgL_old3488z00_2119 = 
(obj_t)(BgL_auxz00_8488); } } } } 
{ /* ./Cfa/cinfo.scm 92 */
int BgL_auxz00_8492;
BgL_auxz00_8492 = 
(int)(((long)0)); 
BgL_aux3489z00_2120 = 
STRUCT_REF(BgL_sz00_2116, BgL_auxz00_8492); } 
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectzf2cinfozf2_bglt BgL_new3490z00_2121;
BgL_new3490z00_2121 = 
((BgL_selectzf2cinfozf2_bglt)(BgL_old3488z00_2119)); 
{ /* ./Cfa/cinfo.scm 92 */
long BgL_arg5489z00_2122;
BgL_arg5489z00_2122 = 
BGl_classzd2numzd2zz__objectz00(BGl_selectzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 92 */
BgL_objectz00_bglt BgL_objz00_3576;
BgL_objz00_3576 = 
(BgL_objectz00_bglt)(BgL_new3490z00_2121); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3576, BgL_arg5489z00_2122); } } 
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectzf2cinfozf2_bglt BgL_arg5493z00_2123;
{ /* ./Cfa/cinfo.scm 92 */
obj_t BgL_arg5496z00_2124;
{ /* ./Cfa/cinfo.scm 92 */
int BgL_auxz00_8499;
BgL_auxz00_8499 = 
(int)(((long)0)); 
BgL_arg5496z00_2124 = 
STRUCT_REF(BgL_aux3489z00_2120, BgL_auxz00_8499); } 
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectzf2cinfozf2_bglt BgL_res6384z00_3586;
{ /* ./Cfa/cinfo.scm 92 */
BgL_approxz00_bglt BgL_approx3467z00_3580;
BgL_approx3467z00_3580 = 
(BgL_approxz00_bglt)(BgL_arg5496z00_2124); 
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectzf2cinfozf2_bglt BgL_new3468z00_3581;
BgL_new3468z00_3581 = 
((BgL_selectzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_selectzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectzf2cinfozf2_bglt BgL_res6383z00_3585;
{ /* ./Cfa/cinfo.scm 92 */
BgL_selectzf2cinfozf2_bglt BgL_new3481z00_3582;
BgL_new3481z00_3582 = BgL_new3468z00_3581; 
{ /* ./Cfa/cinfo.scm 92 */
BgL_approxz00_bglt BgL_approx3480z00_3584;
BgL_approx3480z00_3584 = BgL_approx3467z00_3580; 
((((BgL_selectzf2cinfozf2_bglt)CREF(BgL_new3481z00_3582))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3480z00_3584), BUNSPEC); 
BgL_res6383z00_3585 = BgL_new3481z00_3582; } } BgL_res6383z00_3585; } 
BgL_res6384z00_3586 = BgL_new3468z00_3581; } } 
BgL_arg5493z00_2123 = BgL_res6384z00_3586; } } 
{ /* ./Cfa/cinfo.scm 92 */
obj_t BgL_auxz00_8507;BgL_objectz00_bglt BgL_auxz00_8505;
BgL_auxz00_8507 = 
(obj_t)(BgL_arg5493z00_2123); 
BgL_auxz00_8505 = 
(BgL_objectz00_bglt)(BgL_new3490z00_2121); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_8505, BgL_auxz00_8507); } } 
{ /* ./Cfa/cinfo.scm 92 */
obj_t BgL_objz00_3587;
BgL_objz00_3587 = 
(obj_t)(BgL_new3490z00_2121); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3587); BUNSPEC; } 
BgL_auxz00_8480 = BgL_new3490z00_2121; } } } 
return 
(obj_t)(BgL_auxz00_8480);} } } 
}



/* object->struct-select/Cinfo3904 */
obj_t BGl_objectzd2ze3structzd2selectzf2Cinfo3904z11zzcfa_infoz00(obj_t BgL_envz00_4841, obj_t BgL_obj3485z00_4842)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 92 */
{ 
BgL_selectzf2cinfozf2_bglt BgL_obj3485z00_2105;
BgL_obj3485z00_2105 = 
(BgL_selectzf2cinfozf2_bglt)(BgL_obj3485z00_4842); 
{ 

{ /* ./Cfa/cinfo.scm 92 */
obj_t BgL_res3486z00_2108;
{ /* ./Cfa/cinfo.scm 92 */
obj_t BgL_nextzd2method3903zd2_2113;
BgL_nextzd2method3903zd2_2113 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3485z00_2105), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_selectzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 92 */
bool_t BgL_test5482z00_2114;
BgL_test5482z00_2114 = 
PROCEDUREP(BgL_nextzd2method3903zd2_2113); 
if(BgL_test5482z00_2114)
{ /* ./Cfa/cinfo.scm 92 */
BgL_res3486z00_2108 = 
PROCEDURE_ENTRY(BgL_nextzd2method3903zd2_2113)(BgL_nextzd2method3903zd2_2113, 
(obj_t)(BgL_obj3485z00_2105), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 92 */
BgL_res3486z00_2108 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3485z00_2105)); } } } 
{ /* ./Cfa/cinfo.scm 92 */
obj_t BgL_aux3487z00_2109;
{ /* ./Cfa/cinfo.scm 92 */
obj_t BgL_keyz00_3557;int BgL_lenz00_3558;
BgL_keyz00_3557 = 
CNST_TABLE_REF(((long)19)); 
BgL_lenz00_3558 = 
(int)(((long)1)); 
BgL_aux3487z00_2109 = 
make_struct(BgL_keyz00_3557, BgL_lenz00_3558, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 92 */
BgL_approxz00_bglt BgL_arg5471z00_2111;
{ 
obj_t BgL_auxz00_8526;
{ /* ./Cfa/cinfo.scm 92 */
BgL_objectz00_bglt BgL_auxz00_8527;
BgL_auxz00_8527 = 
(BgL_objectz00_bglt)(BgL_obj3485z00_2105); 
BgL_auxz00_8526 = 
BGL_OBJECT_WIDENING(BgL_auxz00_8527); } 
BgL_arg5471z00_2111 = 
(((BgL_selectzf2cinfozf2_bglt)CREF(BgL_auxz00_8526))->BgL_approxz00); } 
{ /* ./Cfa/cinfo.scm 92 */
int BgL_kz00_3562;obj_t BgL_oz00_3563;
BgL_kz00_3562 = 
(int)(((long)0)); 
BgL_oz00_3563 = 
(obj_t)(BgL_arg5471z00_2111); 
STRUCT_SET(BgL_aux3487z00_2109, BgL_kz00_3562, BgL_oz00_3563); } } 
{ /* ./Cfa/cinfo.scm 92 */
int BgL_kz00_3565;
BgL_kz00_3565 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3486z00_2108, BgL_kz00_3565, BgL_aux3487z00_2109); } 
{ /* ./Cfa/cinfo.scm 92 */
obj_t BgL_arg5476z00_2112;
BgL_arg5476z00_2112 = 
STRUCT_KEY(BgL_res3486z00_2108); 
STRUCT_KEY_SET(BgL_aux3487z00_2109, BgL_arg5476z00_2112); } 
{ /* ./Cfa/cinfo.scm 92 */
obj_t BgL_kz00_3572;
BgL_kz00_3572 = 
CNST_TABLE_REF(((long)19)); 
STRUCT_KEY_SET(BgL_res3486z00_2108, BgL_kz00_3572); } 
return BgL_res3486z00_2108;} } } } } 
}



/* struct+object->object-set-ex-it/Cinfo3901 */
obj_t BGl_structzb2objectzd2ze3objectzd2setzd2exzd2itzf2Cinfo3901za3zzcfa_infoz00(obj_t BgL_envz00_4843, obj_t BgL_oz00_4844, obj_t BgL_sz00_4845)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 94 */
{ 
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_oz00_2093;obj_t BgL_sz00_2094;
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_auxz00_8541;
BgL_oz00_2093 = 
(BgL_setzd2exzd2itzf2cinfozf2_bglt)(BgL_oz00_4844); 
BgL_sz00_2094 = BgL_sz00_4845; 
{ 

{ /* ./Cfa/cinfo.scm 94 */
obj_t BgL_old3527z00_2097;obj_t BgL_aux3528z00_2098;
{ /* ./Cfa/cinfo.scm 94 */
obj_t BgL_nextzd2method3900zd2_2103;
BgL_nextzd2method3900zd2_2103 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2093), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_setzd2exzd2itzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 94 */
bool_t BgL_test5463z00_2104;
BgL_test5463z00_2104 = 
PROCEDUREP(BgL_nextzd2method3900zd2_2103); 
if(BgL_test5463z00_2104)
{ /* ./Cfa/cinfo.scm 94 */
BgL_old3527z00_2097 = 
PROCEDURE_ENTRY(BgL_nextzd2method3900zd2_2103)(BgL_nextzd2method3900zd2_2103, 
(obj_t)(BgL_oz00_2093), BgL_sz00_2094, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 94 */
{ /* ./Cfa/cinfo.scm 94 */
BgL_objectz00_bglt BgL_auxz00_8549;
BgL_auxz00_8549 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2093), BgL_sz00_2094); 
BgL_old3527z00_2097 = 
(obj_t)(BgL_auxz00_8549); } } } } 
{ /* ./Cfa/cinfo.scm 94 */
int BgL_auxz00_8553;
BgL_auxz00_8553 = 
(int)(((long)0)); 
BgL_aux3528z00_2098 = 
STRUCT_REF(BgL_sz00_2094, BgL_auxz00_8553); } 
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_new3529z00_2099;
BgL_new3529z00_2099 = 
((BgL_setzd2exzd2itzf2cinfozf2_bglt)(BgL_old3527z00_2097)); 
{ /* ./Cfa/cinfo.scm 94 */
long BgL_arg5450z00_2100;
BgL_arg5450z00_2100 = 
BGl_classzd2numzd2zz__objectz00(BGl_setzd2exzd2itzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 94 */
BgL_objectz00_bglt BgL_objz00_3544;
BgL_objz00_3544 = 
(BgL_objectz00_bglt)(BgL_new3529z00_2099); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3544, BgL_arg5450z00_2100); } } 
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_arg5454z00_2101;
{ /* ./Cfa/cinfo.scm 94 */
obj_t BgL_arg5457z00_2102;
{ /* ./Cfa/cinfo.scm 94 */
int BgL_auxz00_8560;
BgL_auxz00_8560 = 
(int)(((long)0)); 
BgL_arg5457z00_2102 = 
STRUCT_REF(BgL_aux3528z00_2098, BgL_auxz00_8560); } 
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_res6381z00_3554;
{ /* ./Cfa/cinfo.scm 94 */
BgL_approxz00_bglt BgL_approx3509z00_3548;
BgL_approx3509z00_3548 = 
(BgL_approxz00_bglt)(BgL_arg5457z00_2102); 
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_new3510z00_3549;
BgL_new3510z00_3549 = 
((BgL_setzd2exzd2itzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_setzd2exzd2itzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_res6380z00_3553;
{ /* ./Cfa/cinfo.scm 94 */
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_new3520z00_3550;
BgL_new3520z00_3550 = BgL_new3510z00_3549; 
{ /* ./Cfa/cinfo.scm 94 */
BgL_approxz00_bglt BgL_approx3519z00_3552;
BgL_approx3519z00_3552 = BgL_approx3509z00_3548; 
((((BgL_setzd2exzd2itzf2cinfozf2_bglt)CREF(BgL_new3520z00_3550))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3519z00_3552), BUNSPEC); 
BgL_res6380z00_3553 = BgL_new3520z00_3550; } } BgL_res6380z00_3553; } 
BgL_res6381z00_3554 = BgL_new3510z00_3549; } } 
BgL_arg5454z00_2101 = BgL_res6381z00_3554; } } 
{ /* ./Cfa/cinfo.scm 94 */
obj_t BgL_auxz00_8568;BgL_objectz00_bglt BgL_auxz00_8566;
BgL_auxz00_8568 = 
(obj_t)(BgL_arg5454z00_2101); 
BgL_auxz00_8566 = 
(BgL_objectz00_bglt)(BgL_new3529z00_2099); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_8566, BgL_auxz00_8568); } } 
{ /* ./Cfa/cinfo.scm 94 */
obj_t BgL_objz00_3555;
BgL_objz00_3555 = 
(obj_t)(BgL_new3529z00_2099); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3555); BUNSPEC; } 
BgL_auxz00_8541 = BgL_new3529z00_2099; } } } 
return 
(obj_t)(BgL_auxz00_8541);} } } 
}



/* object->struct-set-ex-it/Cinfo3899 */
obj_t BGl_objectzd2ze3structzd2setzd2exzd2itzf2Cinfo3899z11zzcfa_infoz00(obj_t BgL_envz00_4846, obj_t BgL_obj3524z00_4847)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 94 */
{ 
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_obj3524z00_2083;
BgL_obj3524z00_2083 = 
(BgL_setzd2exzd2itzf2cinfozf2_bglt)(BgL_obj3524z00_4847); 
{ 

{ /* ./Cfa/cinfo.scm 94 */
obj_t BgL_res3525z00_2086;
{ /* ./Cfa/cinfo.scm 94 */
obj_t BgL_nextzd2method3898zd2_2091;
BgL_nextzd2method3898zd2_2091 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3524z00_2083), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_setzd2exzd2itzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 94 */
bool_t BgL_test5443z00_2092;
BgL_test5443z00_2092 = 
PROCEDUREP(BgL_nextzd2method3898zd2_2091); 
if(BgL_test5443z00_2092)
{ /* ./Cfa/cinfo.scm 94 */
BgL_res3525z00_2086 = 
PROCEDURE_ENTRY(BgL_nextzd2method3898zd2_2091)(BgL_nextzd2method3898zd2_2091, 
(obj_t)(BgL_obj3524z00_2083), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 94 */
BgL_res3525z00_2086 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3524z00_2083)); } } } 
{ /* ./Cfa/cinfo.scm 94 */
obj_t BgL_aux3526z00_2087;
{ /* ./Cfa/cinfo.scm 94 */
obj_t BgL_keyz00_3525;int BgL_lenz00_3526;
BgL_keyz00_3525 = 
CNST_TABLE_REF(((long)20)); 
BgL_lenz00_3526 = 
(int)(((long)1)); 
BgL_aux3526z00_2087 = 
make_struct(BgL_keyz00_3525, BgL_lenz00_3526, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 94 */
BgL_approxz00_bglt BgL_arg5432z00_2089;
{ 
obj_t BgL_auxz00_8587;
{ /* ./Cfa/cinfo.scm 94 */
BgL_objectz00_bglt BgL_auxz00_8588;
BgL_auxz00_8588 = 
(BgL_objectz00_bglt)(BgL_obj3524z00_2083); 
BgL_auxz00_8587 = 
BGL_OBJECT_WIDENING(BgL_auxz00_8588); } 
BgL_arg5432z00_2089 = 
(((BgL_setzd2exzd2itzf2cinfozf2_bglt)CREF(BgL_auxz00_8587))->BgL_approxz00); } 
{ /* ./Cfa/cinfo.scm 94 */
int BgL_kz00_3530;obj_t BgL_oz00_3531;
BgL_kz00_3530 = 
(int)(((long)0)); 
BgL_oz00_3531 = 
(obj_t)(BgL_arg5432z00_2089); 
STRUCT_SET(BgL_aux3526z00_2087, BgL_kz00_3530, BgL_oz00_3531); } } 
{ /* ./Cfa/cinfo.scm 94 */
int BgL_kz00_3533;
BgL_kz00_3533 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3525z00_2086, BgL_kz00_3533, BgL_aux3526z00_2087); } 
{ /* ./Cfa/cinfo.scm 94 */
obj_t BgL_arg5437z00_2090;
BgL_arg5437z00_2090 = 
STRUCT_KEY(BgL_res3525z00_2086); 
STRUCT_KEY_SET(BgL_aux3526z00_2087, BgL_arg5437z00_2090); } 
{ /* ./Cfa/cinfo.scm 94 */
obj_t BgL_kz00_3540;
BgL_kz00_3540 = 
CNST_TABLE_REF(((long)20)); 
STRUCT_KEY_SET(BgL_res3525z00_2086, BgL_kz00_3540); } 
return BgL_res3525z00_2086;} } } } } 
}



/* struct+object->object-jump-ex-it/Cinfo3897 */
obj_t BGl_structzb2objectzd2ze3objectzd2jumpzd2exzd2itzf2Cinfo3897za3zzcfa_infoz00(obj_t BgL_envz00_4848, obj_t BgL_oz00_4849, obj_t BgL_sz00_4850)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 96 */
{ 
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_oz00_2071;obj_t BgL_sz00_2072;
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_auxz00_8602;
BgL_oz00_2071 = 
(BgL_jumpzd2exzd2itzf2cinfozf2_bglt)(BgL_oz00_4849); 
BgL_sz00_2072 = BgL_sz00_4850; 
{ 

{ /* ./Cfa/cinfo.scm 96 */
obj_t BgL_old3560z00_2075;obj_t BgL_aux3561z00_2076;
{ /* ./Cfa/cinfo.scm 96 */
obj_t BgL_nextzd2method3896zd2_2081;
BgL_nextzd2method3896zd2_2081 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2071), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_jumpzd2exzd2itzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 96 */
bool_t BgL_test5424z00_2082;
BgL_test5424z00_2082 = 
PROCEDUREP(BgL_nextzd2method3896zd2_2081); 
if(BgL_test5424z00_2082)
{ /* ./Cfa/cinfo.scm 96 */
BgL_old3560z00_2075 = 
PROCEDURE_ENTRY(BgL_nextzd2method3896zd2_2081)(BgL_nextzd2method3896zd2_2081, 
(obj_t)(BgL_oz00_2071), BgL_sz00_2072, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 96 */
{ /* ./Cfa/cinfo.scm 96 */
BgL_objectz00_bglt BgL_auxz00_8610;
BgL_auxz00_8610 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2071), BgL_sz00_2072); 
BgL_old3560z00_2075 = 
(obj_t)(BgL_auxz00_8610); } } } } 
{ /* ./Cfa/cinfo.scm 96 */
int BgL_auxz00_8614;
BgL_auxz00_8614 = 
(int)(((long)0)); 
BgL_aux3561z00_2076 = 
STRUCT_REF(BgL_sz00_2072, BgL_auxz00_8614); } 
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_new3562z00_2077;
BgL_new3562z00_2077 = 
((BgL_jumpzd2exzd2itzf2cinfozf2_bglt)(BgL_old3560z00_2075)); 
{ /* ./Cfa/cinfo.scm 96 */
long BgL_arg5411z00_2078;
BgL_arg5411z00_2078 = 
BGl_classzd2numzd2zz__objectz00(BGl_jumpzd2exzd2itzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 96 */
BgL_objectz00_bglt BgL_objz00_3512;
BgL_objz00_3512 = 
(BgL_objectz00_bglt)(BgL_new3562z00_2077); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3512, BgL_arg5411z00_2078); } } 
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_arg5415z00_2079;
{ /* ./Cfa/cinfo.scm 96 */
obj_t BgL_arg5418z00_2080;
{ /* ./Cfa/cinfo.scm 96 */
int BgL_auxz00_8621;
BgL_auxz00_8621 = 
(int)(((long)0)); 
BgL_arg5418z00_2080 = 
STRUCT_REF(BgL_aux3561z00_2076, BgL_auxz00_8621); } 
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_res6378z00_3522;
{ /* ./Cfa/cinfo.scm 96 */
BgL_approxz00_bglt BgL_approx3542z00_3516;
BgL_approx3542z00_3516 = 
(BgL_approxz00_bglt)(BgL_arg5418z00_2080); 
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_new3543z00_3517;
BgL_new3543z00_3517 = 
((BgL_jumpzd2exzd2itzf2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_jumpzd2exzd2itzf2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_res6377z00_3521;
{ /* ./Cfa/cinfo.scm 96 */
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_new3553z00_3518;
BgL_new3553z00_3518 = BgL_new3543z00_3517; 
{ /* ./Cfa/cinfo.scm 96 */
BgL_approxz00_bglt BgL_approx3552z00_3520;
BgL_approx3552z00_3520 = BgL_approx3542z00_3516; 
((((BgL_jumpzd2exzd2itzf2cinfozf2_bglt)CREF(BgL_new3553z00_3518))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3552z00_3520), BUNSPEC); 
BgL_res6377z00_3521 = BgL_new3553z00_3518; } } BgL_res6377z00_3521; } 
BgL_res6378z00_3522 = BgL_new3543z00_3517; } } 
BgL_arg5415z00_2079 = BgL_res6378z00_3522; } } 
{ /* ./Cfa/cinfo.scm 96 */
obj_t BgL_auxz00_8629;BgL_objectz00_bglt BgL_auxz00_8627;
BgL_auxz00_8629 = 
(obj_t)(BgL_arg5415z00_2079); 
BgL_auxz00_8627 = 
(BgL_objectz00_bglt)(BgL_new3562z00_2077); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_8627, BgL_auxz00_8629); } } 
{ /* ./Cfa/cinfo.scm 96 */
obj_t BgL_objz00_3523;
BgL_objz00_3523 = 
(obj_t)(BgL_new3562z00_2077); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3523); BUNSPEC; } 
BgL_auxz00_8602 = BgL_new3562z00_2077; } } } 
return 
(obj_t)(BgL_auxz00_8602);} } } 
}



/* object->struct-jump-ex-it/Cinfo3895 */
obj_t BGl_objectzd2ze3structzd2jumpzd2exzd2itzf2Cinfo3895z11zzcfa_infoz00(obj_t BgL_envz00_4851, obj_t BgL_obj3557z00_4852)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 96 */
{ 
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_obj3557z00_2061;
BgL_obj3557z00_2061 = 
(BgL_jumpzd2exzd2itzf2cinfozf2_bglt)(BgL_obj3557z00_4852); 
{ 

{ /* ./Cfa/cinfo.scm 96 */
obj_t BgL_res3558z00_2064;
{ /* ./Cfa/cinfo.scm 96 */
obj_t BgL_nextzd2method3894zd2_2069;
BgL_nextzd2method3894zd2_2069 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3557z00_2061), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_jumpzd2exzd2itzf2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 96 */
bool_t BgL_test5404z00_2070;
BgL_test5404z00_2070 = 
PROCEDUREP(BgL_nextzd2method3894zd2_2069); 
if(BgL_test5404z00_2070)
{ /* ./Cfa/cinfo.scm 96 */
BgL_res3558z00_2064 = 
PROCEDURE_ENTRY(BgL_nextzd2method3894zd2_2069)(BgL_nextzd2method3894zd2_2069, 
(obj_t)(BgL_obj3557z00_2061), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 96 */
BgL_res3558z00_2064 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3557z00_2061)); } } } 
{ /* ./Cfa/cinfo.scm 96 */
obj_t BgL_aux3559z00_2065;
{ /* ./Cfa/cinfo.scm 96 */
obj_t BgL_keyz00_3493;int BgL_lenz00_3494;
BgL_keyz00_3493 = 
CNST_TABLE_REF(((long)21)); 
BgL_lenz00_3494 = 
(int)(((long)1)); 
BgL_aux3559z00_2065 = 
make_struct(BgL_keyz00_3493, BgL_lenz00_3494, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 96 */
BgL_approxz00_bglt BgL_arg5393z00_2067;
{ 
obj_t BgL_auxz00_8648;
{ /* ./Cfa/cinfo.scm 96 */
BgL_objectz00_bglt BgL_auxz00_8649;
BgL_auxz00_8649 = 
(BgL_objectz00_bglt)(BgL_obj3557z00_2061); 
BgL_auxz00_8648 = 
BGL_OBJECT_WIDENING(BgL_auxz00_8649); } 
BgL_arg5393z00_2067 = 
(((BgL_jumpzd2exzd2itzf2cinfozf2_bglt)CREF(BgL_auxz00_8648))->BgL_approxz00); } 
{ /* ./Cfa/cinfo.scm 96 */
int BgL_kz00_3498;obj_t BgL_oz00_3499;
BgL_kz00_3498 = 
(int)(((long)0)); 
BgL_oz00_3499 = 
(obj_t)(BgL_arg5393z00_2067); 
STRUCT_SET(BgL_aux3559z00_2065, BgL_kz00_3498, BgL_oz00_3499); } } 
{ /* ./Cfa/cinfo.scm 96 */
int BgL_kz00_3501;
BgL_kz00_3501 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3558z00_2064, BgL_kz00_3501, BgL_aux3559z00_2065); } 
{ /* ./Cfa/cinfo.scm 96 */
obj_t BgL_arg5398z00_2068;
BgL_arg5398z00_2068 = 
STRUCT_KEY(BgL_res3558z00_2064); 
STRUCT_KEY_SET(BgL_aux3559z00_2065, BgL_arg5398z00_2068); } 
{ /* ./Cfa/cinfo.scm 96 */
obj_t BgL_kz00_3508;
BgL_kz00_3508 = 
CNST_TABLE_REF(((long)21)); 
STRUCT_KEY_SET(BgL_res3558z00_2064, BgL_kz00_3508); } 
return BgL_res3558z00_2064;} } } } } 
}



/* struct+object->object-pre-make-box3892 */
obj_t BGl_structzb2objectzd2ze3objectzd2prezd2makezd2box3892z51zzcfa_infoz00(obj_t BgL_envz00_4853, obj_t BgL_oz00_4854, obj_t BgL_sz00_4855)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 100 */
{ 
BgL_prezd2makezd2boxz00_bglt BgL_oz00_2050;obj_t BgL_sz00_2051;
{ /* ./Cfa/cinfo.scm 100 */
BgL_prezd2makezd2boxz00_bglt BgL_auxz00_8663;
BgL_oz00_2050 = 
(BgL_prezd2makezd2boxz00_bglt)(BgL_oz00_4854); 
BgL_sz00_2051 = BgL_sz00_4855; 
{ 

{ /* ./Cfa/cinfo.scm 100 */
obj_t BgL_old3590z00_2054;
{ /* ./Cfa/cinfo.scm 100 */
obj_t BgL_nextzd2method3891zd2_2059;
BgL_nextzd2method3891zd2_2059 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2050), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_prezd2makezd2boxz00zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 100 */
bool_t BgL_test5385z00_2060;
BgL_test5385z00_2060 = 
PROCEDUREP(BgL_nextzd2method3891zd2_2059); 
if(BgL_test5385z00_2060)
{ /* ./Cfa/cinfo.scm 100 */
BgL_old3590z00_2054 = 
PROCEDURE_ENTRY(BgL_nextzd2method3891zd2_2059)(BgL_nextzd2method3891zd2_2059, 
(obj_t)(BgL_oz00_2050), BgL_sz00_2051, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 100 */
{ /* ./Cfa/cinfo.scm 100 */
BgL_objectz00_bglt BgL_auxz00_8671;
BgL_auxz00_8671 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2050), BgL_sz00_2051); 
BgL_old3590z00_2054 = 
(obj_t)(BgL_auxz00_8671); } } } } 
{ /* ./Cfa/cinfo.scm 100 */
BgL_prezd2makezd2boxz00_bglt BgL_new3592z00_2056;
BgL_new3592z00_2056 = 
((BgL_prezd2makezd2boxz00_bglt)(BgL_old3590z00_2054)); 
{ /* ./Cfa/cinfo.scm 100 */
long BgL_arg5375z00_2057;
BgL_arg5375z00_2057 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2makezd2boxz00zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 100 */
BgL_objectz00_bglt BgL_objz00_3489;
BgL_objz00_3489 = 
(BgL_objectz00_bglt)(BgL_new3592z00_2056); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3489, BgL_arg5375z00_2057); } } 
{ /* ./Cfa/cinfo.scm 100 */
BgL_prezd2makezd2boxz00_bglt BgL_arg5379z00_2058;
BgL_arg5379z00_2058 = 
BGl_wideningzd2prezd2makezd2boxzd2zzcfa_infoz00(); 
{ /* ./Cfa/cinfo.scm 100 */
obj_t BgL_auxz00_8682;BgL_objectz00_bglt BgL_auxz00_8680;
BgL_auxz00_8682 = 
(obj_t)(BgL_arg5379z00_2058); 
BgL_auxz00_8680 = 
(BgL_objectz00_bglt)(BgL_new3592z00_2056); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_8680, BgL_auxz00_8682); } } 
{ /* ./Cfa/cinfo.scm 100 */
obj_t BgL_objz00_3491;
BgL_objz00_3491 = 
(obj_t)(BgL_new3592z00_2056); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3491); BUNSPEC; } 
BgL_auxz00_8663 = BgL_new3592z00_2056; } } } 
return 
(obj_t)(BgL_auxz00_8663);} } } 
}



/* object->struct-pre-make-box3890 */
obj_t BGl_objectzd2ze3structzd2prezd2makezd2box3890ze3zzcfa_infoz00(obj_t BgL_envz00_4856, obj_t BgL_obj3587z00_4857)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 100 */
{ 
BgL_prezd2makezd2boxz00_bglt BgL_obj3587z00_2042;
BgL_obj3587z00_2042 = 
(BgL_prezd2makezd2boxz00_bglt)(BgL_obj3587z00_4857); 
{ 

{ /* ./Cfa/cinfo.scm 100 */
obj_t BgL_res3588z00_2045;
{ /* ./Cfa/cinfo.scm 100 */
obj_t BgL_nextzd2method3889zd2_2048;
BgL_nextzd2method3889zd2_2048 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3587z00_2042), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_prezd2makezd2boxz00zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 100 */
bool_t BgL_test5368z00_2049;
BgL_test5368z00_2049 = 
PROCEDUREP(BgL_nextzd2method3889zd2_2048); 
if(BgL_test5368z00_2049)
{ /* ./Cfa/cinfo.scm 100 */
BgL_res3588z00_2045 = 
PROCEDURE_ENTRY(BgL_nextzd2method3889zd2_2048)(BgL_nextzd2method3889zd2_2048, 
(obj_t)(BgL_obj3587z00_2042), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 100 */
BgL_res3588z00_2045 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3587z00_2042)); } } } 
{ /* ./Cfa/cinfo.scm 100 */
obj_t BgL_aux3589z00_2046;
{ /* ./Cfa/cinfo.scm 100 */
obj_t BgL_keyz00_3474;int BgL_lenz00_3475;
BgL_keyz00_3474 = 
CNST_TABLE_REF(((long)22)); 
BgL_lenz00_3475 = 
(int)(((long)0)); 
BgL_aux3589z00_2046 = 
make_struct(BgL_keyz00_3474, BgL_lenz00_3475, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 100 */
int BgL_kz00_3478;
BgL_kz00_3478 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3588z00_2045, BgL_kz00_3478, BgL_aux3589z00_2046); } 
{ /* ./Cfa/cinfo.scm 100 */
obj_t BgL_arg5362z00_2047;
BgL_arg5362z00_2047 = 
STRUCT_KEY(BgL_res3588z00_2045); 
STRUCT_KEY_SET(BgL_aux3589z00_2046, BgL_arg5362z00_2047); } 
{ /* ./Cfa/cinfo.scm 100 */
obj_t BgL_kz00_3485;
BgL_kz00_3485 = 
CNST_TABLE_REF(((long)22)); 
STRUCT_KEY_SET(BgL_res3588z00_2045, BgL_kz00_3485); } 
return BgL_res3588z00_2045;} } } } } 
}



/* struct+object->object-make-box/Cinfo3888 */
obj_t BGl_structzb2objectzd2ze3objectzd2makezd2boxzf2Cinfo3888z71zzcfa_infoz00(obj_t BgL_envz00_4858, obj_t BgL_oz00_4859, obj_t BgL_sz00_4860)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 101 */
{ 
BgL_makezd2boxzf2cinfoz20_bglt BgL_oz00_2030;obj_t BgL_sz00_2031;
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzf2cinfoz20_bglt BgL_auxz00_8708;
BgL_oz00_2030 = 
(BgL_makezd2boxzf2cinfoz20_bglt)(BgL_oz00_4859); 
BgL_sz00_2031 = BgL_sz00_4860; 
{ 

{ /* ./Cfa/cinfo.scm 101 */
obj_t BgL_old3626z00_2034;obj_t BgL_aux3627z00_2035;
{ /* ./Cfa/cinfo.scm 101 */
obj_t BgL_nextzd2method3887zd2_2040;
BgL_nextzd2method3887zd2_2040 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2030), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_makezd2boxzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 101 */
bool_t BgL_test5354z00_2041;
BgL_test5354z00_2041 = 
PROCEDUREP(BgL_nextzd2method3887zd2_2040); 
if(BgL_test5354z00_2041)
{ /* ./Cfa/cinfo.scm 101 */
BgL_old3626z00_2034 = 
PROCEDURE_ENTRY(BgL_nextzd2method3887zd2_2040)(BgL_nextzd2method3887zd2_2040, 
(obj_t)(BgL_oz00_2030), BgL_sz00_2031, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 101 */
{ /* ./Cfa/cinfo.scm 101 */
BgL_objectz00_bglt BgL_auxz00_8716;
BgL_auxz00_8716 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2030), BgL_sz00_2031); 
BgL_old3626z00_2034 = 
(obj_t)(BgL_auxz00_8716); } } } } 
{ /* ./Cfa/cinfo.scm 101 */
int BgL_auxz00_8720;
BgL_auxz00_8720 = 
(int)(((long)0)); 
BgL_aux3627z00_2035 = 
STRUCT_REF(BgL_sz00_2031, BgL_auxz00_8720); } 
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzf2cinfoz20_bglt BgL_new3628z00_2036;
BgL_new3628z00_2036 = 
((BgL_makezd2boxzf2cinfoz20_bglt)(BgL_old3626z00_2034)); 
{ /* ./Cfa/cinfo.scm 101 */
long BgL_arg5341z00_2037;
BgL_arg5341z00_2037 = 
BGl_classzd2numzd2zz__objectz00(BGl_makezd2boxzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 101 */
BgL_objectz00_bglt BgL_objz00_3461;
BgL_objz00_3461 = 
(BgL_objectz00_bglt)(BgL_new3628z00_2036); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3461, BgL_arg5341z00_2037); } } 
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzf2cinfoz20_bglt BgL_arg5345z00_2038;
{ /* ./Cfa/cinfo.scm 101 */
obj_t BgL_arg5348z00_2039;
{ /* ./Cfa/cinfo.scm 101 */
int BgL_auxz00_8727;
BgL_auxz00_8727 = 
(int)(((long)0)); 
BgL_arg5348z00_2039 = 
STRUCT_REF(BgL_aux3627z00_2035, BgL_auxz00_8727); } 
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzf2cinfoz20_bglt BgL_res6374z00_3471;
{ /* ./Cfa/cinfo.scm 101 */
BgL_approxz00_bglt BgL_approx3607z00_3465;
BgL_approx3607z00_3465 = 
(BgL_approxz00_bglt)(BgL_arg5348z00_2039); 
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzf2cinfoz20_bglt BgL_new3608z00_3466;
BgL_new3608z00_3466 = 
((BgL_makezd2boxzf2cinfoz20_bglt)BREF( GC_MALLOC (sizeof(struct BgL_makezd2boxzf2cinfoz20_bgl)))); 
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzf2cinfoz20_bglt BgL_res6373z00_3470;
{ /* ./Cfa/cinfo.scm 101 */
BgL_makezd2boxzf2cinfoz20_bglt BgL_new3619z00_3467;
BgL_new3619z00_3467 = BgL_new3608z00_3466; 
{ /* ./Cfa/cinfo.scm 101 */
BgL_approxz00_bglt BgL_approx3618z00_3469;
BgL_approx3618z00_3469 = BgL_approx3607z00_3465; 
((((BgL_makezd2boxzf2cinfoz20_bglt)CREF(BgL_new3619z00_3467))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3618z00_3469), BUNSPEC); 
BgL_res6373z00_3470 = BgL_new3619z00_3467; } } BgL_res6373z00_3470; } 
BgL_res6374z00_3471 = BgL_new3608z00_3466; } } 
BgL_arg5345z00_2038 = BgL_res6374z00_3471; } } 
{ /* ./Cfa/cinfo.scm 101 */
obj_t BgL_auxz00_8735;BgL_objectz00_bglt BgL_auxz00_8733;
BgL_auxz00_8735 = 
(obj_t)(BgL_arg5345z00_2038); 
BgL_auxz00_8733 = 
(BgL_objectz00_bglt)(BgL_new3628z00_2036); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_8733, BgL_auxz00_8735); } } 
{ /* ./Cfa/cinfo.scm 101 */
obj_t BgL_objz00_3472;
BgL_objz00_3472 = 
(obj_t)(BgL_new3628z00_2036); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3472); BUNSPEC; } 
BgL_auxz00_8708 = BgL_new3628z00_2036; } } } 
return 
(obj_t)(BgL_auxz00_8708);} } } 
}



/* object->struct-make-box/Cinfo3886 */
obj_t BGl_objectzd2ze3structzd2makezd2boxzf2Cinfo3886zc3zzcfa_infoz00(obj_t BgL_envz00_4861, obj_t BgL_obj3623z00_4862)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 101 */
{ 
BgL_makezd2boxzf2cinfoz20_bglt BgL_obj3623z00_2020;
BgL_obj3623z00_2020 = 
(BgL_makezd2boxzf2cinfoz20_bglt)(BgL_obj3623z00_4862); 
{ 

{ /* ./Cfa/cinfo.scm 101 */
obj_t BgL_res3624z00_2023;
{ /* ./Cfa/cinfo.scm 101 */
obj_t BgL_nextzd2method3885zd2_2028;
BgL_nextzd2method3885zd2_2028 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3623z00_2020), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_makezd2boxzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 101 */
bool_t BgL_test5334z00_2029;
BgL_test5334z00_2029 = 
PROCEDUREP(BgL_nextzd2method3885zd2_2028); 
if(BgL_test5334z00_2029)
{ /* ./Cfa/cinfo.scm 101 */
BgL_res3624z00_2023 = 
PROCEDURE_ENTRY(BgL_nextzd2method3885zd2_2028)(BgL_nextzd2method3885zd2_2028, 
(obj_t)(BgL_obj3623z00_2020), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 101 */
BgL_res3624z00_2023 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3623z00_2020)); } } } 
{ /* ./Cfa/cinfo.scm 101 */
obj_t BgL_aux3625z00_2024;
{ /* ./Cfa/cinfo.scm 101 */
obj_t BgL_keyz00_3442;int BgL_lenz00_3443;
BgL_keyz00_3442 = 
CNST_TABLE_REF(((long)23)); 
BgL_lenz00_3443 = 
(int)(((long)1)); 
BgL_aux3625z00_2024 = 
make_struct(BgL_keyz00_3442, BgL_lenz00_3443, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 101 */
BgL_approxz00_bglt BgL_arg5323z00_2026;
{ 
obj_t BgL_auxz00_8754;
{ /* ./Cfa/cinfo.scm 101 */
BgL_objectz00_bglt BgL_auxz00_8755;
BgL_auxz00_8755 = 
(BgL_objectz00_bglt)(BgL_obj3623z00_2020); 
BgL_auxz00_8754 = 
BGL_OBJECT_WIDENING(BgL_auxz00_8755); } 
BgL_arg5323z00_2026 = 
(((BgL_makezd2boxzf2cinfoz20_bglt)CREF(BgL_auxz00_8754))->BgL_approxz00); } 
{ /* ./Cfa/cinfo.scm 101 */
int BgL_kz00_3447;obj_t BgL_oz00_3448;
BgL_kz00_3447 = 
(int)(((long)0)); 
BgL_oz00_3448 = 
(obj_t)(BgL_arg5323z00_2026); 
STRUCT_SET(BgL_aux3625z00_2024, BgL_kz00_3447, BgL_oz00_3448); } } 
{ /* ./Cfa/cinfo.scm 101 */
int BgL_kz00_3450;
BgL_kz00_3450 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3624z00_2023, BgL_kz00_3450, BgL_aux3625z00_2024); } 
{ /* ./Cfa/cinfo.scm 101 */
obj_t BgL_arg5328z00_2027;
BgL_arg5328z00_2027 = 
STRUCT_KEY(BgL_res3624z00_2023); 
STRUCT_KEY_SET(BgL_aux3625z00_2024, BgL_arg5328z00_2027); } 
{ /* ./Cfa/cinfo.scm 101 */
obj_t BgL_kz00_3457;
BgL_kz00_3457 = 
CNST_TABLE_REF(((long)23)); 
STRUCT_KEY_SET(BgL_res3624z00_2023, BgL_kz00_3457); } 
return BgL_res3624z00_2023;} } } } } 
}



/* struct+object->object-make-box/O-Cinfo3884 */
obj_t BGl_structzb2objectzd2ze3objectzd2makezd2boxzf2Ozd2Cinfo3884za3zzcfa_infoz00(obj_t BgL_envz00_4863, obj_t BgL_oz00_4864, obj_t BgL_sz00_4865)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 103 */
{ 
BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_oz00_2007;obj_t BgL_sz00_2008;
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_auxz00_8769;
BgL_oz00_2007 = 
(BgL_makezd2boxzf2ozd2cinfozf2_bglt)(BgL_oz00_4864); 
BgL_sz00_2008 = BgL_sz00_4865; 
{ 

{ /* ./Cfa/cinfo.scm 103 */
obj_t BgL_old3668z00_2011;obj_t BgL_aux3669z00_2012;
{ /* ./Cfa/cinfo.scm 103 */
obj_t BgL_nextzd2method3883zd2_2018;
BgL_nextzd2method3883zd2_2018 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2007), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_makezd2boxzf2Ozd2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 103 */
bool_t BgL_test5315z00_2019;
BgL_test5315z00_2019 = 
PROCEDUREP(BgL_nextzd2method3883zd2_2018); 
if(BgL_test5315z00_2019)
{ /* ./Cfa/cinfo.scm 103 */
BgL_old3668z00_2011 = 
PROCEDURE_ENTRY(BgL_nextzd2method3883zd2_2018)(BgL_nextzd2method3883zd2_2018, 
(obj_t)(BgL_oz00_2007), BgL_sz00_2008, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 103 */
{ /* ./Cfa/cinfo.scm 103 */
BgL_objectz00_bglt BgL_auxz00_8777;
BgL_auxz00_8777 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2007), BgL_sz00_2008); 
BgL_old3668z00_2011 = 
(obj_t)(BgL_auxz00_8777); } } } } 
{ /* ./Cfa/cinfo.scm 103 */
int BgL_auxz00_8781;
BgL_auxz00_8781 = 
(int)(((long)0)); 
BgL_aux3669z00_2012 = 
STRUCT_REF(BgL_sz00_2008, BgL_auxz00_8781); } 
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_new3670z00_2013;
BgL_new3670z00_2013 = 
((BgL_makezd2boxzf2ozd2cinfozf2_bglt)(BgL_old3668z00_2011)); 
{ /* ./Cfa/cinfo.scm 103 */
long BgL_arg5300z00_2014;
BgL_arg5300z00_2014 = 
BGl_classzd2numzd2zz__objectz00(BGl_makezd2boxzf2Ozd2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 103 */
BgL_objectz00_bglt BgL_objz00_3424;
BgL_objz00_3424 = 
(BgL_objectz00_bglt)(BgL_new3670z00_2013); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3424, BgL_arg5300z00_2014); } } 
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_arg5304z00_2015;
{ /* ./Cfa/cinfo.scm 103 */
obj_t BgL_arg5307z00_2016;obj_t BgL_arg5308z00_2017;
{ /* ./Cfa/cinfo.scm 103 */
int BgL_auxz00_8788;
BgL_auxz00_8788 = 
(int)(((long)0)); 
BgL_arg5307z00_2016 = 
STRUCT_REF(BgL_aux3669z00_2012, BgL_auxz00_8788); } 
{ /* ./Cfa/cinfo.scm 103 */
int BgL_auxz00_8791;
BgL_auxz00_8791 = 
(int)(((long)1)); 
BgL_arg5308z00_2017 = 
STRUCT_REF(BgL_aux3669z00_2012, BgL_auxz00_8791); } 
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_res6371z00_3439;
{ /* ./Cfa/cinfo.scm 103 */
BgL_approxz00_bglt BgL_approx3645z00_3430;BgL_approxz00_bglt BgL_valuezd2approx3646zd2_3431;
BgL_approx3645z00_3430 = 
(BgL_approxz00_bglt)(BgL_arg5307z00_2016); 
BgL_valuezd2approx3646zd2_3431 = 
(BgL_approxz00_bglt)(BgL_arg5308z00_2017); 
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_new3647z00_3432;
BgL_new3647z00_3432 = 
((BgL_makezd2boxzf2ozd2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_makezd2boxzf2ozd2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_res6370z00_3438;
{ /* ./Cfa/cinfo.scm 103 */
BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_new3660z00_3433;
BgL_new3660z00_3433 = BgL_new3647z00_3432; 
{ /* ./Cfa/cinfo.scm 103 */
BgL_approxz00_bglt BgL_approx3658z00_3436;BgL_approxz00_bglt BgL_valuezd2approx3659zd2_3437;
BgL_approx3658z00_3436 = BgL_approx3645z00_3430; 
BgL_valuezd2approx3659zd2_3437 = BgL_valuezd2approx3646zd2_3431; 
((((BgL_makezd2boxzf2ozd2cinfozf2_bglt)CREF(BgL_new3660z00_3433))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3658z00_3436), BUNSPEC); 
((((BgL_makezd2boxzf2ozd2cinfozf2_bglt)CREF(BgL_new3660z00_3433))->BgL_valuezd2approxzd2) = ((BgL_approxz00_bglt)BgL_valuezd2approx3659zd2_3437), BUNSPEC); 
BgL_res6370z00_3438 = BgL_new3660z00_3433; } } BgL_res6370z00_3438; } 
BgL_res6371z00_3439 = BgL_new3647z00_3432; } } 
BgL_arg5304z00_2015 = BgL_res6371z00_3439; } } 
{ /* ./Cfa/cinfo.scm 103 */
obj_t BgL_auxz00_8801;BgL_objectz00_bglt BgL_auxz00_8799;
BgL_auxz00_8801 = 
(obj_t)(BgL_arg5304z00_2015); 
BgL_auxz00_8799 = 
(BgL_objectz00_bglt)(BgL_new3670z00_2013); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_8799, BgL_auxz00_8801); } } 
{ /* ./Cfa/cinfo.scm 103 */
obj_t BgL_objz00_3440;
BgL_objz00_3440 = 
(obj_t)(BgL_new3670z00_2013); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3440); BUNSPEC; } 
BgL_auxz00_8769 = BgL_new3670z00_2013; } } } 
return 
(obj_t)(BgL_auxz00_8769);} } } 
}



/* object->struct-make-box/O-Cinfo3881 */
obj_t BGl_objectzd2ze3structzd2makezd2boxzf2Ozd2Cinfo3881z11zzcfa_infoz00(obj_t BgL_envz00_4866, obj_t BgL_obj3665z00_4867)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 103 */
{ 
BgL_makezd2boxzf2ozd2cinfozf2_bglt BgL_obj3665z00_1995;
BgL_obj3665z00_1995 = 
(BgL_makezd2boxzf2ozd2cinfozf2_bglt)(BgL_obj3665z00_4867); 
{ 

{ /* ./Cfa/cinfo.scm 103 */
obj_t BgL_res3666z00_1998;
{ /* ./Cfa/cinfo.scm 103 */
obj_t BgL_nextzd2method3880zd2_2005;
BgL_nextzd2method3880zd2_2005 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3665z00_1995), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_makezd2boxzf2Ozd2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 103 */
bool_t BgL_test5293z00_2006;
BgL_test5293z00_2006 = 
PROCEDUREP(BgL_nextzd2method3880zd2_2005); 
if(BgL_test5293z00_2006)
{ /* ./Cfa/cinfo.scm 103 */
BgL_res3666z00_1998 = 
PROCEDURE_ENTRY(BgL_nextzd2method3880zd2_2005)(BgL_nextzd2method3880zd2_2005, 
(obj_t)(BgL_obj3665z00_1995), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 103 */
BgL_res3666z00_1998 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3665z00_1995)); } } } 
{ /* ./Cfa/cinfo.scm 103 */
obj_t BgL_aux3667z00_1999;
{ /* ./Cfa/cinfo.scm 103 */
obj_t BgL_keyz00_3401;int BgL_lenz00_3402;
BgL_keyz00_3401 = 
CNST_TABLE_REF(((long)24)); 
BgL_lenz00_3402 = 
(int)(((long)2)); 
BgL_aux3667z00_1999 = 
make_struct(BgL_keyz00_3401, BgL_lenz00_3402, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 103 */
BgL_approxz00_bglt BgL_arg5277z00_2001;
{ 
obj_t BgL_auxz00_8820;
{ /* ./Cfa/cinfo.scm 103 */
BgL_objectz00_bglt BgL_auxz00_8821;
BgL_auxz00_8821 = 
(BgL_objectz00_bglt)(BgL_obj3665z00_1995); 
BgL_auxz00_8820 = 
BGL_OBJECT_WIDENING(BgL_auxz00_8821); } 
BgL_arg5277z00_2001 = 
(((BgL_makezd2boxzf2ozd2cinfozf2_bglt)CREF(BgL_auxz00_8820))->BgL_approxz00); } 
{ /* ./Cfa/cinfo.scm 103 */
int BgL_kz00_3406;obj_t BgL_oz00_3407;
BgL_kz00_3406 = 
(int)(((long)0)); 
BgL_oz00_3407 = 
(obj_t)(BgL_arg5277z00_2001); 
STRUCT_SET(BgL_aux3667z00_1999, BgL_kz00_3406, BgL_oz00_3407); } } 
{ /* ./Cfa/cinfo.scm 103 */
BgL_approxz00_bglt BgL_arg5282z00_2003;
{ 
obj_t BgL_auxz00_8828;
{ /* ./Cfa/cinfo.scm 103 */
BgL_objectz00_bglt BgL_auxz00_8829;
BgL_auxz00_8829 = 
(BgL_objectz00_bglt)(BgL_obj3665z00_1995); 
BgL_auxz00_8828 = 
BGL_OBJECT_WIDENING(BgL_auxz00_8829); } 
BgL_arg5282z00_2003 = 
(((BgL_makezd2boxzf2ozd2cinfozf2_bglt)CREF(BgL_auxz00_8828))->BgL_valuezd2approxzd2); } 
{ /* ./Cfa/cinfo.scm 103 */
int BgL_kz00_3410;obj_t BgL_oz00_3411;
BgL_kz00_3410 = 
(int)(((long)1)); 
BgL_oz00_3411 = 
(obj_t)(BgL_arg5282z00_2003); 
STRUCT_SET(BgL_aux3667z00_1999, BgL_kz00_3410, BgL_oz00_3411); } } 
{ /* ./Cfa/cinfo.scm 103 */
int BgL_kz00_3413;
BgL_kz00_3413 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3666z00_1998, BgL_kz00_3413, BgL_aux3667z00_1999); } 
{ /* ./Cfa/cinfo.scm 103 */
obj_t BgL_arg5287z00_2004;
BgL_arg5287z00_2004 = 
STRUCT_KEY(BgL_res3666z00_1998); 
STRUCT_KEY_SET(BgL_aux3667z00_1999, BgL_arg5287z00_2004); } 
{ /* ./Cfa/cinfo.scm 103 */
obj_t BgL_kz00_3420;
BgL_kz00_3420 = 
CNST_TABLE_REF(((long)24)); 
STRUCT_KEY_SET(BgL_res3666z00_1998, BgL_kz00_3420); } 
return BgL_res3666z00_1998;} } } } } 
}



/* struct+object->object-box-set!/Cinfo3879 */
obj_t BGl_structzb2objectzd2ze3objectzd2boxzd2setz12zf2Cinfo3879z63zzcfa_infoz00(obj_t BgL_envz00_4868, obj_t BgL_oz00_4869, obj_t BgL_sz00_4870)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 106 */
{ 
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_oz00_1983;obj_t BgL_sz00_1984;
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_auxz00_8843;
BgL_oz00_1983 = 
(BgL_boxzd2setz12zf2cinfoz32_bglt)(BgL_oz00_4869); 
BgL_sz00_1984 = BgL_sz00_4870; 
{ 

{ /* ./Cfa/cinfo.scm 106 */
obj_t BgL_old3707z00_1987;obj_t BgL_aux3708z00_1988;
{ /* ./Cfa/cinfo.scm 106 */
obj_t BgL_nextzd2method3878zd2_1993;
BgL_nextzd2method3878zd2_1993 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1983), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_boxzd2setz12zf2Cinfoz32zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 106 */
bool_t BgL_test5269z00_1994;
BgL_test5269z00_1994 = 
PROCEDUREP(BgL_nextzd2method3878zd2_1993); 
if(BgL_test5269z00_1994)
{ /* ./Cfa/cinfo.scm 106 */
BgL_old3707z00_1987 = 
PROCEDURE_ENTRY(BgL_nextzd2method3878zd2_1993)(BgL_nextzd2method3878zd2_1993, 
(obj_t)(BgL_oz00_1983), BgL_sz00_1984, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 106 */
{ /* ./Cfa/cinfo.scm 106 */
BgL_objectz00_bglt BgL_auxz00_8851;
BgL_auxz00_8851 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1983), BgL_sz00_1984); 
BgL_old3707z00_1987 = 
(obj_t)(BgL_auxz00_8851); } } } } 
{ /* ./Cfa/cinfo.scm 106 */
int BgL_auxz00_8855;
BgL_auxz00_8855 = 
(int)(((long)0)); 
BgL_aux3708z00_1988 = 
STRUCT_REF(BgL_sz00_1984, BgL_auxz00_8855); } 
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_new3709z00_1989;
BgL_new3709z00_1989 = 
((BgL_boxzd2setz12zf2cinfoz32_bglt)(BgL_old3707z00_1987)); 
{ /* ./Cfa/cinfo.scm 106 */
long BgL_arg5256z00_1990;
BgL_arg5256z00_1990 = 
BGl_classzd2numzd2zz__objectz00(BGl_boxzd2setz12zf2Cinfoz32zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 106 */
BgL_objectz00_bglt BgL_objz00_3388;
BgL_objz00_3388 = 
(BgL_objectz00_bglt)(BgL_new3709z00_1989); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3388, BgL_arg5256z00_1990); } } 
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_arg5260z00_1991;
{ /* ./Cfa/cinfo.scm 106 */
obj_t BgL_arg5263z00_1992;
{ /* ./Cfa/cinfo.scm 106 */
int BgL_auxz00_8862;
BgL_auxz00_8862 = 
(int)(((long)0)); 
BgL_arg5263z00_1992 = 
STRUCT_REF(BgL_aux3708z00_1988, BgL_auxz00_8862); } 
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_res6368z00_3398;
{ /* ./Cfa/cinfo.scm 106 */
BgL_approxz00_bglt BgL_approx3689z00_3392;
BgL_approx3689z00_3392 = 
(BgL_approxz00_bglt)(BgL_arg5263z00_1992); 
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_new3690z00_3393;
BgL_new3690z00_3393 = 
((BgL_boxzd2setz12zf2cinfoz32_bglt)BREF( GC_MALLOC (sizeof(struct BgL_boxzd2setz12zf2cinfoz32_bgl)))); 
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_res6367z00_3397;
{ /* ./Cfa/cinfo.scm 106 */
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_new3700z00_3394;
BgL_new3700z00_3394 = BgL_new3690z00_3393; 
{ /* ./Cfa/cinfo.scm 106 */
BgL_approxz00_bglt BgL_approx3699z00_3396;
BgL_approx3699z00_3396 = BgL_approx3689z00_3392; 
((((BgL_boxzd2setz12zf2cinfoz32_bglt)CREF(BgL_new3700z00_3394))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3699z00_3396), BUNSPEC); 
BgL_res6367z00_3397 = BgL_new3700z00_3394; } } BgL_res6367z00_3397; } 
BgL_res6368z00_3398 = BgL_new3690z00_3393; } } 
BgL_arg5260z00_1991 = BgL_res6368z00_3398; } } 
{ /* ./Cfa/cinfo.scm 106 */
obj_t BgL_auxz00_8870;BgL_objectz00_bglt BgL_auxz00_8868;
BgL_auxz00_8870 = 
(obj_t)(BgL_arg5260z00_1991); 
BgL_auxz00_8868 = 
(BgL_objectz00_bglt)(BgL_new3709z00_1989); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_8868, BgL_auxz00_8870); } } 
{ /* ./Cfa/cinfo.scm 106 */
obj_t BgL_objz00_3399;
BgL_objz00_3399 = 
(obj_t)(BgL_new3709z00_1989); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3399); BUNSPEC; } 
BgL_auxz00_8843 = BgL_new3709z00_1989; } } } 
return 
(obj_t)(BgL_auxz00_8843);} } } 
}



/* object->struct-box-set!/Cinfo3877 */
obj_t BGl_objectzd2ze3structzd2boxzd2setz12zf2Cinfo3877zd1zzcfa_infoz00(obj_t BgL_envz00_4871, obj_t BgL_obj3704z00_4872)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 106 */
{ 
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_obj3704z00_1973;
BgL_obj3704z00_1973 = 
(BgL_boxzd2setz12zf2cinfoz32_bglt)(BgL_obj3704z00_4872); 
{ 

{ /* ./Cfa/cinfo.scm 106 */
obj_t BgL_res3705z00_1976;
{ /* ./Cfa/cinfo.scm 106 */
obj_t BgL_nextzd2method3876zd2_1981;
BgL_nextzd2method3876zd2_1981 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3704z00_1973), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_boxzd2setz12zf2Cinfoz32zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 106 */
bool_t BgL_test5249z00_1982;
BgL_test5249z00_1982 = 
PROCEDUREP(BgL_nextzd2method3876zd2_1981); 
if(BgL_test5249z00_1982)
{ /* ./Cfa/cinfo.scm 106 */
BgL_res3705z00_1976 = 
PROCEDURE_ENTRY(BgL_nextzd2method3876zd2_1981)(BgL_nextzd2method3876zd2_1981, 
(obj_t)(BgL_obj3704z00_1973), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 106 */
BgL_res3705z00_1976 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3704z00_1973)); } } } 
{ /* ./Cfa/cinfo.scm 106 */
obj_t BgL_aux3706z00_1977;
{ /* ./Cfa/cinfo.scm 106 */
obj_t BgL_keyz00_3369;int BgL_lenz00_3370;
BgL_keyz00_3369 = 
CNST_TABLE_REF(((long)25)); 
BgL_lenz00_3370 = 
(int)(((long)1)); 
BgL_aux3706z00_1977 = 
make_struct(BgL_keyz00_3369, BgL_lenz00_3370, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 106 */
BgL_approxz00_bglt BgL_arg5238z00_1979;
{ 
obj_t BgL_auxz00_8889;
{ /* ./Cfa/cinfo.scm 106 */
BgL_objectz00_bglt BgL_auxz00_8890;
BgL_auxz00_8890 = 
(BgL_objectz00_bglt)(BgL_obj3704z00_1973); 
BgL_auxz00_8889 = 
BGL_OBJECT_WIDENING(BgL_auxz00_8890); } 
BgL_arg5238z00_1979 = 
(((BgL_boxzd2setz12zf2cinfoz32_bglt)CREF(BgL_auxz00_8889))->BgL_approxz00); } 
{ /* ./Cfa/cinfo.scm 106 */
int BgL_kz00_3374;obj_t BgL_oz00_3375;
BgL_kz00_3374 = 
(int)(((long)0)); 
BgL_oz00_3375 = 
(obj_t)(BgL_arg5238z00_1979); 
STRUCT_SET(BgL_aux3706z00_1977, BgL_kz00_3374, BgL_oz00_3375); } } 
{ /* ./Cfa/cinfo.scm 106 */
int BgL_kz00_3377;
BgL_kz00_3377 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3705z00_1976, BgL_kz00_3377, BgL_aux3706z00_1977); } 
{ /* ./Cfa/cinfo.scm 106 */
obj_t BgL_arg5243z00_1980;
BgL_arg5243z00_1980 = 
STRUCT_KEY(BgL_res3705z00_1976); 
STRUCT_KEY_SET(BgL_aux3706z00_1977, BgL_arg5243z00_1980); } 
{ /* ./Cfa/cinfo.scm 106 */
obj_t BgL_kz00_3384;
BgL_kz00_3384 = 
CNST_TABLE_REF(((long)25)); 
STRUCT_KEY_SET(BgL_res3705z00_1976, BgL_kz00_3384); } 
return BgL_res3705z00_1976;} } } } } 
}



/* struct+object->object-box-ref/Cinfo3874 */
obj_t BGl_structzb2objectzd2ze3objectzd2boxzd2refzf2Cinfo3874z71zzcfa_infoz00(obj_t BgL_envz00_4873, obj_t BgL_oz00_4874, obj_t BgL_sz00_4875)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 108 */
{ 
BgL_boxzd2refzf2cinfoz20_bglt BgL_oz00_1961;obj_t BgL_sz00_1962;
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzf2cinfoz20_bglt BgL_auxz00_8904;
BgL_oz00_1961 = 
(BgL_boxzd2refzf2cinfoz20_bglt)(BgL_oz00_4874); 
BgL_sz00_1962 = BgL_sz00_4875; 
{ 

{ /* ./Cfa/cinfo.scm 108 */
obj_t BgL_old3741z00_1965;obj_t BgL_aux3742z00_1966;
{ /* ./Cfa/cinfo.scm 108 */
obj_t BgL_nextzd2method3873zd2_1971;
BgL_nextzd2method3873zd2_1971 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1961), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_boxzd2refzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 108 */
bool_t BgL_test5230z00_1972;
BgL_test5230z00_1972 = 
PROCEDUREP(BgL_nextzd2method3873zd2_1971); 
if(BgL_test5230z00_1972)
{ /* ./Cfa/cinfo.scm 108 */
BgL_old3741z00_1965 = 
PROCEDURE_ENTRY(BgL_nextzd2method3873zd2_1971)(BgL_nextzd2method3873zd2_1971, 
(obj_t)(BgL_oz00_1961), BgL_sz00_1962, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 108 */
{ /* ./Cfa/cinfo.scm 108 */
BgL_objectz00_bglt BgL_auxz00_8912;
BgL_auxz00_8912 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1961), BgL_sz00_1962); 
BgL_old3741z00_1965 = 
(obj_t)(BgL_auxz00_8912); } } } } 
{ /* ./Cfa/cinfo.scm 108 */
int BgL_auxz00_8916;
BgL_auxz00_8916 = 
(int)(((long)0)); 
BgL_aux3742z00_1966 = 
STRUCT_REF(BgL_sz00_1962, BgL_auxz00_8916); } 
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzf2cinfoz20_bglt BgL_new3743z00_1967;
BgL_new3743z00_1967 = 
((BgL_boxzd2refzf2cinfoz20_bglt)(BgL_old3741z00_1965)); 
{ /* ./Cfa/cinfo.scm 108 */
long BgL_arg5217z00_1968;
BgL_arg5217z00_1968 = 
BGl_classzd2numzd2zz__objectz00(BGl_boxzd2refzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 108 */
BgL_objectz00_bglt BgL_objz00_3356;
BgL_objz00_3356 = 
(BgL_objectz00_bglt)(BgL_new3743z00_1967); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3356, BgL_arg5217z00_1968); } } 
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzf2cinfoz20_bglt BgL_arg5221z00_1969;
{ /* ./Cfa/cinfo.scm 108 */
obj_t BgL_arg5224z00_1970;
{ /* ./Cfa/cinfo.scm 108 */
int BgL_auxz00_8923;
BgL_auxz00_8923 = 
(int)(((long)0)); 
BgL_arg5224z00_1970 = 
STRUCT_REF(BgL_aux3742z00_1966, BgL_auxz00_8923); } 
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzf2cinfoz20_bglt BgL_res6365z00_3366;
{ /* ./Cfa/cinfo.scm 108 */
BgL_approxz00_bglt BgL_approx3722z00_3360;
BgL_approx3722z00_3360 = 
(BgL_approxz00_bglt)(BgL_arg5224z00_1970); 
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzf2cinfoz20_bglt BgL_new3723z00_3361;
BgL_new3723z00_3361 = 
((BgL_boxzd2refzf2cinfoz20_bglt)BREF( GC_MALLOC (sizeof(struct BgL_boxzd2refzf2cinfoz20_bgl)))); 
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzf2cinfoz20_bglt BgL_res6364z00_3365;
{ /* ./Cfa/cinfo.scm 108 */
BgL_boxzd2refzf2cinfoz20_bglt BgL_new3734z00_3362;
BgL_new3734z00_3362 = BgL_new3723z00_3361; 
{ /* ./Cfa/cinfo.scm 108 */
BgL_approxz00_bglt BgL_approx3733z00_3364;
BgL_approx3733z00_3364 = BgL_approx3722z00_3360; 
((((BgL_boxzd2refzf2cinfoz20_bglt)CREF(BgL_new3734z00_3362))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3733z00_3364), BUNSPEC); 
BgL_res6364z00_3365 = BgL_new3734z00_3362; } } BgL_res6364z00_3365; } 
BgL_res6365z00_3366 = BgL_new3723z00_3361; } } 
BgL_arg5221z00_1969 = BgL_res6365z00_3366; } } 
{ /* ./Cfa/cinfo.scm 108 */
obj_t BgL_auxz00_8931;BgL_objectz00_bglt BgL_auxz00_8929;
BgL_auxz00_8931 = 
(obj_t)(BgL_arg5221z00_1969); 
BgL_auxz00_8929 = 
(BgL_objectz00_bglt)(BgL_new3743z00_1967); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_8929, BgL_auxz00_8931); } } 
{ /* ./Cfa/cinfo.scm 108 */
obj_t BgL_objz00_3367;
BgL_objz00_3367 = 
(obj_t)(BgL_new3743z00_1967); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3367); BUNSPEC; } 
BgL_auxz00_8904 = BgL_new3743z00_1967; } } } 
return 
(obj_t)(BgL_auxz00_8904);} } } 
}



/* object->struct-box-ref/Cinfo3871 */
obj_t BGl_objectzd2ze3structzd2boxzd2refzf2Cinfo3871zc3zzcfa_infoz00(obj_t BgL_envz00_4876, obj_t BgL_obj3738z00_4877)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 108 */
{ 
BgL_boxzd2refzf2cinfoz20_bglt BgL_obj3738z00_1951;
BgL_obj3738z00_1951 = 
(BgL_boxzd2refzf2cinfoz20_bglt)(BgL_obj3738z00_4877); 
{ 

{ /* ./Cfa/cinfo.scm 108 */
obj_t BgL_res3739z00_1954;
{ /* ./Cfa/cinfo.scm 108 */
obj_t BgL_nextzd2method3870zd2_1959;
BgL_nextzd2method3870zd2_1959 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3738z00_1951), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_boxzd2refzf2Cinfoz20zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 108 */
bool_t BgL_test5210z00_1960;
BgL_test5210z00_1960 = 
PROCEDUREP(BgL_nextzd2method3870zd2_1959); 
if(BgL_test5210z00_1960)
{ /* ./Cfa/cinfo.scm 108 */
BgL_res3739z00_1954 = 
PROCEDURE_ENTRY(BgL_nextzd2method3870zd2_1959)(BgL_nextzd2method3870zd2_1959, 
(obj_t)(BgL_obj3738z00_1951), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 108 */
BgL_res3739z00_1954 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3738z00_1951)); } } } 
{ /* ./Cfa/cinfo.scm 108 */
obj_t BgL_aux3740z00_1955;
{ /* ./Cfa/cinfo.scm 108 */
obj_t BgL_keyz00_3337;int BgL_lenz00_3338;
BgL_keyz00_3337 = 
CNST_TABLE_REF(((long)26)); 
BgL_lenz00_3338 = 
(int)(((long)1)); 
BgL_aux3740z00_1955 = 
make_struct(BgL_keyz00_3337, BgL_lenz00_3338, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 108 */
BgL_approxz00_bglt BgL_arg5199z00_1957;
{ 
obj_t BgL_auxz00_8950;
{ /* ./Cfa/cinfo.scm 108 */
BgL_objectz00_bglt BgL_auxz00_8951;
BgL_auxz00_8951 = 
(BgL_objectz00_bglt)(BgL_obj3738z00_1951); 
BgL_auxz00_8950 = 
BGL_OBJECT_WIDENING(BgL_auxz00_8951); } 
BgL_arg5199z00_1957 = 
(((BgL_boxzd2refzf2cinfoz20_bglt)CREF(BgL_auxz00_8950))->BgL_approxz00); } 
{ /* ./Cfa/cinfo.scm 108 */
int BgL_kz00_3342;obj_t BgL_oz00_3343;
BgL_kz00_3342 = 
(int)(((long)0)); 
BgL_oz00_3343 = 
(obj_t)(BgL_arg5199z00_1957); 
STRUCT_SET(BgL_aux3740z00_1955, BgL_kz00_3342, BgL_oz00_3343); } } 
{ /* ./Cfa/cinfo.scm 108 */
int BgL_kz00_3345;
BgL_kz00_3345 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3739z00_1954, BgL_kz00_3345, BgL_aux3740z00_1955); } 
{ /* ./Cfa/cinfo.scm 108 */
obj_t BgL_arg5204z00_1958;
BgL_arg5204z00_1958 = 
STRUCT_KEY(BgL_res3739z00_1954); 
STRUCT_KEY_SET(BgL_aux3740z00_1955, BgL_arg5204z00_1958); } 
{ /* ./Cfa/cinfo.scm 108 */
obj_t BgL_kz00_3352;
BgL_kz00_3352 = 
CNST_TABLE_REF(((long)26)); 
STRUCT_KEY_SET(BgL_res3739z00_1954, BgL_kz00_3352); } 
return BgL_res3739z00_1954;} } } } } 
}



/* struct+object->object-box-set!/O-Cinfo3869 */
obj_t BGl_structzb2objectzd2ze3objectzd2boxzd2setz12zf2Ozd2Cinfo3869zb1zzcfa_infoz00(obj_t BgL_envz00_4878, obj_t BgL_oz00_4879, obj_t BgL_sz00_4880)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 110 */
{ 
BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_oz00_1939;obj_t BgL_sz00_1940;
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_auxz00_8965;
BgL_oz00_1939 = 
(BgL_boxzd2setz12zf2ozd2cinfoze0_bglt)(BgL_oz00_4879); 
BgL_sz00_1940 = BgL_sz00_4880; 
{ 

{ /* ./Cfa/cinfo.scm 110 */
obj_t BgL_old3779z00_1943;obj_t BgL_aux3780z00_1944;
{ /* ./Cfa/cinfo.scm 110 */
obj_t BgL_nextzd2method3868zd2_1949;
BgL_nextzd2method3868zd2_1949 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1939), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_boxzd2setz12zf2Ozd2Cinfoze0zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 110 */
bool_t BgL_test5191z00_1950;
BgL_test5191z00_1950 = 
PROCEDUREP(BgL_nextzd2method3868zd2_1949); 
if(BgL_test5191z00_1950)
{ /* ./Cfa/cinfo.scm 110 */
BgL_old3779z00_1943 = 
PROCEDURE_ENTRY(BgL_nextzd2method3868zd2_1949)(BgL_nextzd2method3868zd2_1949, 
(obj_t)(BgL_oz00_1939), BgL_sz00_1940, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 110 */
{ /* ./Cfa/cinfo.scm 110 */
BgL_objectz00_bglt BgL_auxz00_8973;
BgL_auxz00_8973 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1939), BgL_sz00_1940); 
BgL_old3779z00_1943 = 
(obj_t)(BgL_auxz00_8973); } } } } 
{ /* ./Cfa/cinfo.scm 110 */
int BgL_auxz00_8977;
BgL_auxz00_8977 = 
(int)(((long)0)); 
BgL_aux3780z00_1944 = 
STRUCT_REF(BgL_sz00_1940, BgL_auxz00_8977); } 
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_new3781z00_1945;
BgL_new3781z00_1945 = 
((BgL_boxzd2setz12zf2ozd2cinfoze0_bglt)(BgL_old3779z00_1943)); 
{ /* ./Cfa/cinfo.scm 110 */
long BgL_arg5178z00_1946;
BgL_arg5178z00_1946 = 
BGl_classzd2numzd2zz__objectz00(BGl_boxzd2setz12zf2Ozd2Cinfoze0zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 110 */
BgL_objectz00_bglt BgL_objz00_3324;
BgL_objz00_3324 = 
(BgL_objectz00_bglt)(BgL_new3781z00_1945); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3324, BgL_arg5178z00_1946); } } 
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_arg5182z00_1947;
{ /* ./Cfa/cinfo.scm 110 */
obj_t BgL_arg5185z00_1948;
{ /* ./Cfa/cinfo.scm 110 */
int BgL_auxz00_8984;
BgL_auxz00_8984 = 
(int)(((long)0)); 
BgL_arg5185z00_1948 = 
STRUCT_REF(BgL_aux3780z00_1944, BgL_auxz00_8984); } 
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_res6362z00_3334;
{ /* ./Cfa/cinfo.scm 110 */
BgL_approxz00_bglt BgL_approx3761z00_3328;
BgL_approx3761z00_3328 = 
(BgL_approxz00_bglt)(BgL_arg5185z00_1948); 
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_new3762z00_3329;
BgL_new3762z00_3329 = 
((BgL_boxzd2setz12zf2ozd2cinfoze0_bglt)BREF( GC_MALLOC (sizeof(struct BgL_boxzd2setz12zf2ozd2cinfoze0_bgl)))); 
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_res6361z00_3333;
{ /* ./Cfa/cinfo.scm 110 */
BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_new3772z00_3330;
BgL_new3772z00_3330 = BgL_new3762z00_3329; 
{ /* ./Cfa/cinfo.scm 110 */
BgL_approxz00_bglt BgL_approx3771z00_3332;
BgL_approx3771z00_3332 = BgL_approx3761z00_3328; 
((((BgL_boxzd2setz12zf2ozd2cinfoze0_bglt)CREF(BgL_new3772z00_3330))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3771z00_3332), BUNSPEC); 
BgL_res6361z00_3333 = BgL_new3772z00_3330; } } BgL_res6361z00_3333; } 
BgL_res6362z00_3334 = BgL_new3762z00_3329; } } 
BgL_arg5182z00_1947 = BgL_res6362z00_3334; } } 
{ /* ./Cfa/cinfo.scm 110 */
obj_t BgL_auxz00_8992;BgL_objectz00_bglt BgL_auxz00_8990;
BgL_auxz00_8992 = 
(obj_t)(BgL_arg5182z00_1947); 
BgL_auxz00_8990 = 
(BgL_objectz00_bglt)(BgL_new3781z00_1945); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_8990, BgL_auxz00_8992); } } 
{ /* ./Cfa/cinfo.scm 110 */
obj_t BgL_objz00_3335;
BgL_objz00_3335 = 
(obj_t)(BgL_new3781z00_1945); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3335); BUNSPEC; } 
BgL_auxz00_8965 = BgL_new3781z00_1945; } } } 
return 
(obj_t)(BgL_auxz00_8965);} } } 
}



/* object->struct-box-set!/O-Cinfo3866 */
obj_t BGl_objectzd2ze3structzd2boxzd2setz12zf2Ozd2Cinfo3866z03zzcfa_infoz00(obj_t BgL_envz00_4881, obj_t BgL_obj3776z00_4882)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 110 */
{ 
BgL_boxzd2setz12zf2ozd2cinfoze0_bglt BgL_obj3776z00_1929;
BgL_obj3776z00_1929 = 
(BgL_boxzd2setz12zf2ozd2cinfoze0_bglt)(BgL_obj3776z00_4882); 
{ 

{ /* ./Cfa/cinfo.scm 110 */
obj_t BgL_res3777z00_1932;
{ /* ./Cfa/cinfo.scm 110 */
obj_t BgL_nextzd2method3865zd2_1937;
BgL_nextzd2method3865zd2_1937 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3776z00_1929), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_boxzd2setz12zf2Ozd2Cinfoze0zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 110 */
bool_t BgL_test5171z00_1938;
BgL_test5171z00_1938 = 
PROCEDUREP(BgL_nextzd2method3865zd2_1937); 
if(BgL_test5171z00_1938)
{ /* ./Cfa/cinfo.scm 110 */
BgL_res3777z00_1932 = 
PROCEDURE_ENTRY(BgL_nextzd2method3865zd2_1937)(BgL_nextzd2method3865zd2_1937, 
(obj_t)(BgL_obj3776z00_1929), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 110 */
BgL_res3777z00_1932 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3776z00_1929)); } } } 
{ /* ./Cfa/cinfo.scm 110 */
obj_t BgL_aux3778z00_1933;
{ /* ./Cfa/cinfo.scm 110 */
obj_t BgL_keyz00_3305;int BgL_lenz00_3306;
BgL_keyz00_3305 = 
CNST_TABLE_REF(((long)27)); 
BgL_lenz00_3306 = 
(int)(((long)1)); 
BgL_aux3778z00_1933 = 
make_struct(BgL_keyz00_3305, BgL_lenz00_3306, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 110 */
BgL_approxz00_bglt BgL_arg5160z00_1935;
{ 
obj_t BgL_auxz00_9011;
{ /* ./Cfa/cinfo.scm 110 */
BgL_objectz00_bglt BgL_auxz00_9012;
BgL_auxz00_9012 = 
(BgL_objectz00_bglt)(BgL_obj3776z00_1929); 
BgL_auxz00_9011 = 
BGL_OBJECT_WIDENING(BgL_auxz00_9012); } 
BgL_arg5160z00_1935 = 
(((BgL_boxzd2setz12zf2ozd2cinfoze0_bglt)CREF(BgL_auxz00_9011))->BgL_approxz00); } 
{ /* ./Cfa/cinfo.scm 110 */
int BgL_kz00_3310;obj_t BgL_oz00_3311;
BgL_kz00_3310 = 
(int)(((long)0)); 
BgL_oz00_3311 = 
(obj_t)(BgL_arg5160z00_1935); 
STRUCT_SET(BgL_aux3778z00_1933, BgL_kz00_3310, BgL_oz00_3311); } } 
{ /* ./Cfa/cinfo.scm 110 */
int BgL_kz00_3313;
BgL_kz00_3313 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3777z00_1932, BgL_kz00_3313, BgL_aux3778z00_1933); } 
{ /* ./Cfa/cinfo.scm 110 */
obj_t BgL_arg5165z00_1936;
BgL_arg5165z00_1936 = 
STRUCT_KEY(BgL_res3777z00_1932); 
STRUCT_KEY_SET(BgL_aux3778z00_1933, BgL_arg5165z00_1936); } 
{ /* ./Cfa/cinfo.scm 110 */
obj_t BgL_kz00_3320;
BgL_kz00_3320 = 
CNST_TABLE_REF(((long)27)); 
STRUCT_KEY_SET(BgL_res3777z00_1932, BgL_kz00_3320); } 
return BgL_res3777z00_1932;} } } } } 
}



/* struct+object->object-box-ref/O-Cinfo3864 */
obj_t BGl_structzb2objectzd2ze3objectzd2boxzd2refzf2Ozd2Cinfo3864za3zzcfa_infoz00(obj_t BgL_envz00_4883, obj_t BgL_oz00_4884, obj_t BgL_sz00_4885)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 112 */
{ 
BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_oz00_1917;obj_t BgL_sz00_1918;
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_auxz00_9026;
BgL_oz00_1917 = 
(BgL_boxzd2refzf2ozd2cinfozf2_bglt)(BgL_oz00_4884); 
BgL_sz00_1918 = BgL_sz00_4885; 
{ 

{ /* ./Cfa/cinfo.scm 112 */
obj_t BgL_old3814z00_1921;obj_t BgL_aux3815z00_1922;
{ /* ./Cfa/cinfo.scm 112 */
obj_t BgL_nextzd2method3863zd2_1927;
BgL_nextzd2method3863zd2_1927 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1917), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_boxzd2refzf2Ozd2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 112 */
bool_t BgL_test5152z00_1928;
BgL_test5152z00_1928 = 
PROCEDUREP(BgL_nextzd2method3863zd2_1927); 
if(BgL_test5152z00_1928)
{ /* ./Cfa/cinfo.scm 112 */
BgL_old3814z00_1921 = 
PROCEDURE_ENTRY(BgL_nextzd2method3863zd2_1927)(BgL_nextzd2method3863zd2_1927, 
(obj_t)(BgL_oz00_1917), BgL_sz00_1918, BEOA); }  else 
{ /* ./Cfa/cinfo.scm 112 */
{ /* ./Cfa/cinfo.scm 112 */
BgL_objectz00_bglt BgL_auxz00_9034;
BgL_auxz00_9034 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1917), BgL_sz00_1918); 
BgL_old3814z00_1921 = 
(obj_t)(BgL_auxz00_9034); } } } } 
{ /* ./Cfa/cinfo.scm 112 */
int BgL_auxz00_9038;
BgL_auxz00_9038 = 
(int)(((long)0)); 
BgL_aux3815z00_1922 = 
STRUCT_REF(BgL_sz00_1918, BgL_auxz00_9038); } 
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_new3816z00_1923;
BgL_new3816z00_1923 = 
((BgL_boxzd2refzf2ozd2cinfozf2_bglt)(BgL_old3814z00_1921)); 
{ /* ./Cfa/cinfo.scm 112 */
long BgL_arg5139z00_1924;
BgL_arg5139z00_1924 = 
BGl_classzd2numzd2zz__objectz00(BGl_boxzd2refzf2Ozd2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 112 */
BgL_objectz00_bglt BgL_objz00_3292;
BgL_objz00_3292 = 
(BgL_objectz00_bglt)(BgL_new3816z00_1923); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3292, BgL_arg5139z00_1924); } } 
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_arg5143z00_1925;
{ /* ./Cfa/cinfo.scm 112 */
obj_t BgL_arg5146z00_1926;
{ /* ./Cfa/cinfo.scm 112 */
int BgL_auxz00_9045;
BgL_auxz00_9045 = 
(int)(((long)0)); 
BgL_arg5146z00_1926 = 
STRUCT_REF(BgL_aux3815z00_1922, BgL_auxz00_9045); } 
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_res6359z00_3302;
{ /* ./Cfa/cinfo.scm 112 */
BgL_approxz00_bglt BgL_approx3794z00_3296;
BgL_approx3794z00_3296 = 
(BgL_approxz00_bglt)(BgL_arg5146z00_1926); 
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_new3795z00_3297;
BgL_new3795z00_3297 = 
((BgL_boxzd2refzf2ozd2cinfozf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_boxzd2refzf2ozd2cinfozf2_bgl)))); 
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_res6358z00_3301;
{ /* ./Cfa/cinfo.scm 112 */
BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_new3806z00_3298;
BgL_new3806z00_3298 = BgL_new3795z00_3297; 
{ /* ./Cfa/cinfo.scm 112 */
BgL_approxz00_bglt BgL_approx3805z00_3300;
BgL_approx3805z00_3300 = BgL_approx3794z00_3296; 
((((BgL_boxzd2refzf2ozd2cinfozf2_bglt)CREF(BgL_new3806z00_3298))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3805z00_3300), BUNSPEC); 
BgL_res6358z00_3301 = BgL_new3806z00_3298; } } BgL_res6358z00_3301; } 
BgL_res6359z00_3302 = BgL_new3795z00_3297; } } 
BgL_arg5143z00_1925 = BgL_res6359z00_3302; } } 
{ /* ./Cfa/cinfo.scm 112 */
obj_t BgL_auxz00_9053;BgL_objectz00_bglt BgL_auxz00_9051;
BgL_auxz00_9053 = 
(obj_t)(BgL_arg5143z00_1925); 
BgL_auxz00_9051 = 
(BgL_objectz00_bglt)(BgL_new3816z00_1923); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_9051, BgL_auxz00_9053); } } 
{ /* ./Cfa/cinfo.scm 112 */
obj_t BgL_objz00_3303;
BgL_objz00_3303 = 
(obj_t)(BgL_new3816z00_1923); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3303); BUNSPEC; } 
BgL_auxz00_9026 = BgL_new3816z00_1923; } } } 
return 
(obj_t)(BgL_auxz00_9026);} } } 
}



/* object->struct-box-ref/O-Cinfo3862 */
obj_t BGl_objectzd2ze3structzd2boxzd2refzf2Ozd2Cinfo3862z11zzcfa_infoz00(obj_t BgL_envz00_4886, obj_t BgL_obj3811z00_4887)
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 112 */
{ 
BgL_boxzd2refzf2ozd2cinfozf2_bglt BgL_obj3811z00_1907;
BgL_obj3811z00_1907 = 
(BgL_boxzd2refzf2ozd2cinfozf2_bglt)(BgL_obj3811z00_4887); 
{ 

{ /* ./Cfa/cinfo.scm 112 */
obj_t BgL_res3812z00_1910;
{ /* ./Cfa/cinfo.scm 112 */
obj_t BgL_nextzd2method3861zd2_1915;
BgL_nextzd2method3861zd2_1915 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3811z00_1907), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_boxzd2refzf2Ozd2Cinfozf2zzcfa_infoz00); 
{ /* ./Cfa/cinfo.scm 112 */
bool_t BgL_test5132z00_1916;
BgL_test5132z00_1916 = 
PROCEDUREP(BgL_nextzd2method3861zd2_1915); 
if(BgL_test5132z00_1916)
{ /* ./Cfa/cinfo.scm 112 */
BgL_res3812z00_1910 = 
PROCEDURE_ENTRY(BgL_nextzd2method3861zd2_1915)(BgL_nextzd2method3861zd2_1915, 
(obj_t)(BgL_obj3811z00_1907), BEOA); }  else 
{ /* ./Cfa/cinfo.scm 112 */
BgL_res3812z00_1910 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3811z00_1907)); } } } 
{ /* ./Cfa/cinfo.scm 112 */
obj_t BgL_aux3813z00_1911;
{ /* ./Cfa/cinfo.scm 112 */
obj_t BgL_keyz00_3273;int BgL_lenz00_3274;
BgL_keyz00_3273 = 
CNST_TABLE_REF(((long)28)); 
BgL_lenz00_3274 = 
(int)(((long)1)); 
BgL_aux3813z00_1911 = 
make_struct(BgL_keyz00_3273, BgL_lenz00_3274, BUNSPEC); } 
{ /* ./Cfa/cinfo.scm 112 */
BgL_approxz00_bglt BgL_arg5120z00_1913;
{ 
obj_t BgL_auxz00_9072;
{ /* ./Cfa/cinfo.scm 112 */
BgL_objectz00_bglt BgL_auxz00_9073;
BgL_auxz00_9073 = 
(BgL_objectz00_bglt)(BgL_obj3811z00_1907); 
BgL_auxz00_9072 = 
BGL_OBJECT_WIDENING(BgL_auxz00_9073); } 
BgL_arg5120z00_1913 = 
(((BgL_boxzd2refzf2ozd2cinfozf2_bglt)CREF(BgL_auxz00_9072))->BgL_approxz00); } 
{ /* ./Cfa/cinfo.scm 112 */
int BgL_kz00_3278;obj_t BgL_oz00_3279;
BgL_kz00_3278 = 
(int)(((long)0)); 
BgL_oz00_3279 = 
(obj_t)(BgL_arg5120z00_1913); 
STRUCT_SET(BgL_aux3813z00_1911, BgL_kz00_3278, BgL_oz00_3279); } } 
{ /* ./Cfa/cinfo.scm 112 */
int BgL_kz00_3281;
BgL_kz00_3281 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3812z00_1910, BgL_kz00_3281, BgL_aux3813z00_1911); } 
{ /* ./Cfa/cinfo.scm 112 */
obj_t BgL_arg5126z00_1914;
BgL_arg5126z00_1914 = 
STRUCT_KEY(BgL_res3812z00_1910); 
STRUCT_KEY_SET(BgL_aux3813z00_1911, BgL_arg5126z00_1914); } 
{ /* ./Cfa/cinfo.scm 112 */
obj_t BgL_kz00_3288;
BgL_kz00_3288 = 
CNST_TABLE_REF(((long)28)); 
STRUCT_KEY_SET(BgL_res3812z00_1910, BgL_kz00_3288); } 
return BgL_res3812z00_1910;} } } } } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzcfa_infoz00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo.scm 15 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "cfa_info"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "cfa_info"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "cfa_info"); 
return 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "cfa_info");} 
}

