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

#include <bigloo.h>


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

typedef struct BgL_prezd2clozd2envz00_bgl {
   char dummy;
} *BgL_prezd2clozd2envz00_bglt;

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

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

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

typedef struct BgL_reshapedzd2localzd2_bgl {
   obj_t BgL_bindingzd2valuezd2;
} *BgL_reshapedzd2localzd2_bglt;

typedef struct BgL_reshapedzd2globalzd2_bgl {
   char dummy;
} *BgL_reshapedzd2globalzd2_bglt;

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

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

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

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

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

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

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

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

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

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

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

typedef struct BgL_prezd2makezd2boxz00_bgl {
   char dummy;
} *BgL_prezd2makezd2boxz00_bglt;

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

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

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

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

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

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

typedef struct BgL_prezd2arithmeticzd2appz00_bgl {
   obj_t BgL_speczd2typeszd2;
} *BgL_prezd2arithmeticzd2appz00_bglt;

typedef struct BgL_arithmeticzd2appzd2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   obj_t BgL_speczd2typeszd2;
} *BgL_arithmeticzd2appzd2_bglt;

typedef struct BgL_prezd2makezd2procedurezd2appzd2_bgl {
   struct BgL_variablez00_bgl * BgL_ownerz00;
} *BgL_prezd2makezd2procedurezd2appzd2_bglt;

typedef struct BgL_prezd2procedurezd2refzd2appzd2_bgl {
   char dummy;
} *BgL_prezd2procedurezd2refzd2appzd2_bglt;

typedef struct BgL_prezd2procedurezd2setz12zd2appzc0_bgl {
   char dummy;
} *BgL_prezd2procedurezd2setz12zd2appzc0_bglt;

typedef struct BgL_makezd2procedurezd2appz00_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   obj_t BgL_valueszd2approxzd2;
   long BgL_lostzd2stampzd2;
   bool_t BgL_xzd2tzf3z21;
   bool_t BgL_xz00;
   bool_t BgL_tz00;
   struct BgL_variablez00_bgl * BgL_ownerz00;
   obj_t BgL_stackzd2stampzd2;
} *BgL_makezd2procedurezd2appz00_bglt;

typedef struct BgL_procedurezd2refzd2appz00_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_procedurezd2refzd2appz00_bglt;

typedef struct BgL_procedurezd2setz12zd2appz12_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_procedurezd2setz12zd2appz12_bglt;

typedef struct BgL_prezd2makezd2vectorzd2appzd2_bgl {
   struct BgL_variablez00_bgl * BgL_ownerz00;
} *BgL_prezd2makezd2vectorzd2appzd2_bglt;

typedef struct BgL_makezd2vectorzd2appz00_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   struct BgL_approxz00_bgl * BgL_valuezd2approxzd2;
   long BgL_lostzd2stampzd2;
   struct BgL_variablez00_bgl * BgL_ownerz00;
   obj_t BgL_stackzd2stampzd2;
   bool_t BgL_seenzf3zf3;
} *BgL_makezd2vectorzd2appz00_bglt;

typedef struct BgL_prezd2makezd2structzd2appzd2_bgl {
   struct BgL_variablez00_bgl * BgL_ownerz00;
} *BgL_prezd2makezd2structzd2appzd2_bglt;

typedef struct BgL_prezd2structzd2refzd2appzd2_bgl {
   char dummy;
} *BgL_prezd2structzd2refzd2appzd2_bglt;

typedef struct BgL_prezd2structzd2setz12zd2appzc0_bgl {
   char dummy;
} *BgL_prezd2structzd2setz12zd2appzc0_bglt;

typedef struct BgL_makezd2structzd2appz00_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   struct BgL_approxz00_bgl * BgL_valuezd2approxzd2;
   long BgL_lostzd2stampzd2;
   struct BgL_variablez00_bgl * BgL_ownerz00;
   obj_t BgL_stackzd2stampzd2;
} *BgL_makezd2structzd2appz00_bglt;

typedef struct BgL_structzd2refzd2appz00_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_structzd2refzd2appz00_bglt;

typedef struct BgL_structzd2setz12zd2appz12_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_structzd2setz12zd2appz12_bglt;


static obj_t BGl_structzb2objectzd2ze3objectzd2prezd2makezd2vectorzd2app4306z83zzcfa_info2z00(obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2makezd2procedurezd2appzd2zzcfa_info2z00(obj_t);
static obj_t BGl__fillzd2makezd2procedurezd2appz12zc0zzcfa_info2z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzcfa_info2z00();
static obj_t BGl_structzb2objectzd2ze3objectzd2makezd2vectorzd2app4302z51zzcfa_info2z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_prezd2makezd2structzd2appzd2_bglt BGl_wideningzd2prezd2makezd2structzd2appz00zzcfa_info2z00(BgL_variablez00_bglt);
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2structzd2setz12zd2app4278z43zzcfa_info2z00(obj_t, obj_t, obj_t);
static obj_t BGl__wideningzd2procedurezd2setz12zd2app6225zc0zzcfa_info2z00(obj_t, obj_t);
BGL_IMPORT long BGl_classzd2numzd2zz__objectz00(obj_t);
BGL_EXPORTED_DECL BgL_prezd2makezd2procedurezd2appzd2_bglt BGl_fillzd2prezd2makezd2procedurezd2appz12z12zzcfa_info2z00(BgL_prezd2makezd2procedurezd2appzd2_bglt, BgL_variablez00_bglt);
static obj_t BGl_structzb2objectzd2ze3objectzd2prezd2makezd2procedurezd2app4331z83zzcfa_info2z00(obj_t, obj_t, obj_t);
static obj_t BGl__fillzd2makezd2structzd2appz12zc0zzcfa_info2z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2makezd2vectorzd2appzd2zzcfa_info2z00(obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl__prezd2procedurezd2refzd2appzf3z21zzcfa_info2z00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_prezd2makezd2vectorzd2appzd2_bglt BGl_wideningzd2prezd2makezd2vectorzd2appz00zzcfa_info2z00(BgL_variablez00_bglt);
static obj_t BGl_objectzd2ze3structzd2prezd2makezd2vectorzd2app4304z31zzcfa_info2z00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_objectzd2ze3structz31zz__objectz00(BgL_objectz00_bglt);
static obj_t BGl_structzb2objectzd2ze3objectzd2makezd2procedurezd2app4319z51zzcfa_info2z00(obj_t, obj_t, obj_t);
static obj_t BGl__wideningzd2prezd2procedurezd2setz12zd2appz12zzcfa_info2z00(obj_t);
BGL_EXPORTED_DECL BgL_structzd2setz12zd2appz12_bglt BGl_makezd2structzd2setz12zd2appzc0zzcfa_info2z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt, obj_t, BgL_approxz00_bglt);
BGL_EXPORTED_DECL bool_t BGl_prezd2makezd2procedurezd2appzf3z21zzcfa_info2z00(obj_t);
static obj_t BGl__makezd2prezd2makezd2structzd2appz00zzcfa_info2z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__procedurezd2refzd2appzf3zf3zzcfa_info2z00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_prezd2procedurezd2refzd2appzd2_bglt BGl_wideningzd2prezd2procedurezd2refzd2appz00zzcfa_info2z00();
BGL_EXPORTED_DECL BgL_structzd2setz12zd2appz12_bglt BGl_fillzd2structzd2setz12zd2appz12zd2zzcfa_info2z00(BgL_structzd2setz12zd2appz12_bglt, BgL_approxz00_bglt);
static obj_t BGl__wideningzd2makezd2vectorzd2app6215zd2zzcfa_info2z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2makezd2structzd2appzd2zzcfa_info2z00(obj_t);
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__wideningzd2prezd2structzd2setz12zd2appz12zzcfa_info2z00(obj_t);
static obj_t BGl_objectzd2ze3structzd2prezd2procedurezd2setz12zd2app4321z23zzcfa_info2z00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_appz00_bglt BGl_allocatezd2procedurezd2setz12zd2appzc0zzcfa_info2z00();
BGL_EXPORTED_DECL BgL_prezd2arithmeticzd2appz00_bglt BGl_makezd2prezd2arithmeticzd2appzd2zzcfa_info2z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2procedurezd2refzd2app4313ze3zzcfa_info2z00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_prezd2makezd2structzd2appzd2zzcfa_info2z00 = BUNSPEC;
static obj_t BGl__fillzd2prezd2structzd2setz12zd2appz12z00zzcfa_info2z00(obj_t, obj_t);
static obj_t BGl__allocatezd2prezd2makezd2structzd2appz00zzcfa_info2z00(obj_t);
static obj_t BGl__prezd2structzd2setz12zd2appzf3z33zzcfa_info2z00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_appz00_bglt BGl_allocatezd2prezd2arithmeticzd2appzd2zzcfa_info2z00();
static obj_t BGl__makezd2prezd2makezd2vectorzd2appz00zzcfa_info2z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_procedurezd2setz12zd2appz12_bglt BGl_makezd2procedurezd2setz12zd2appzc0zzcfa_info2z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt, obj_t, BgL_approxz00_bglt);
static obj_t BGl__allocatezd2structzd2setz12zd2appzc0zzcfa_info2z00(obj_t);
BGL_EXPORTED_DECL BgL_appz00_bglt BGl_allocatezd2arithmeticzd2appz00zzcfa_info2z00();
BGL_EXPORTED_DECL BgL_arithmeticzd2appzd2_bglt BGl_makezd2arithmeticzd2appz00zzcfa_info2z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt, obj_t, BgL_approxz00_bglt, obj_t);
BGL_EXPORTED_DEF obj_t BGl_prezd2makezd2procedurezd2appzd2zzcfa_info2z00 = BUNSPEC;
static obj_t BGl__makezd2prezd2procedurezd2setz12zd2appz12zzcfa_info2z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__makezd2prezd2structzd2refzd2appz00zzcfa_info2z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__fillzd2prezd2structzd2refzd2appz12z12zzcfa_info2z00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_appz00_bglt BGl_allocatezd2prezd2procedurezd2setz12zd2appz12zzcfa_info2z00();
static obj_t BGl_structzb2objectzd2ze3objectzd2prezd2procedurezd2refzd2app4327z83zzcfa_info2z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_prezd2arithmeticzd2appz00_bglt BGl_fillzd2prezd2arithmeticzd2appz12zc0zzcfa_info2z00(BgL_prezd2arithmeticzd2appz00_bglt, obj_t);
BGL_EXPORTED_DECL bool_t BGl_prezd2structzd2refzd2appzf3z21zzcfa_info2z00(obj_t);
static obj_t BGl__prezd2procedurezd2setz12zd2appzf3z33zzcfa_info2z00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_prezd2makezd2vectorzd2appzd2zzcfa_info2z00 = BUNSPEC;
static obj_t BGl__allocatezd2prezd2makezd2vectorzd2appz00zzcfa_info2z00(obj_t);
static obj_t BGl__allocatezd2structzd2refzd2appzd2zzcfa_info2z00(obj_t);
BGL_EXPORTED_DECL BgL_structzd2setz12zd2appz12_bglt BGl_wideningzd2structzd2setz12zd2appzc0zzcfa_info2z00(BgL_approxz00_bglt);
BGL_EXPORTED_DECL BgL_prezd2makezd2vectorzd2appzd2_bglt BGl_fillzd2prezd2makezd2vectorzd2appz12z12zzcfa_info2z00(BgL_prezd2makezd2vectorzd2appzd2_bglt, BgL_variablez00_bglt);
extern BgL_appz00_bglt BGl_makezd2appzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt, obj_t);
static obj_t BGl_cnstzd2initzd2zzcfa_info2z00();
BGL_EXPORTED_DEF obj_t BGl_procedurezd2refzd2appz00zzcfa_info2z00 = BUNSPEC;
static obj_t BGl__prezd2makezd2structzd2appzf3z21zzcfa_info2z00(obj_t, obj_t);
static obj_t BGl__fillzd2prezd2makezd2structzd2appz12z12zzcfa_info2z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_makezd2structzd2appz00_bglt BGl_wideningzd2makezd2structzd2appzd2zzcfa_info2z00(BgL_approxz00_bglt, BgL_approxz00_bglt, long, BgL_variablez00_bglt, obj_t);
static obj_t BGl_objectzd2ze3structzd2makezd2vectorzd2app4300ze3zzcfa_info2z00(obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2prezd2structzd2refzd2app4294z83zzcfa_info2z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_makezd2procedurezd2appz00_bglt BGl_fillzd2makezd2procedurezd2appz12zc0zzcfa_info2z00(BgL_makezd2procedurezd2appz00_bglt, BgL_approxz00_bglt, obj_t, long, bool_t, bool_t, bool_t, BgL_variablez00_bglt, obj_t);
BGL_EXPORTED_DECL BgL_makezd2structzd2appz00_bglt BGl_fillzd2makezd2structzd2appz12zc0zzcfa_info2z00(BgL_makezd2structzd2appz00_bglt, BgL_approxz00_bglt, BgL_approxz00_bglt, long, BgL_variablez00_bglt, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzcfa_info2z00();
BGL_EXPORTED_DEF obj_t BGl_prezd2arithmeticzd2appz00zzcfa_info2z00 = BUNSPEC;
BGL_EXPORTED_DECL BgL_appz00_bglt BGl_allocatezd2prezd2procedurezd2refzd2appz00zzcfa_info2z00();
BGL_IMPORT obj_t make_struct(obj_t, int, obj_t);
BGL_EXPORTED_DECL BgL_arithmeticzd2appzd2_bglt BGl_fillzd2arithmeticzd2appz12z12zzcfa_info2z00(BgL_arithmeticzd2appzd2_bglt, BgL_approxz00_bglt, obj_t);
BGL_EXPORTED_DECL BgL_prezd2arithmeticzd2appz00_bglt BGl_wideningzd2prezd2arithmeticzd2appzd2zzcfa_info2z00(obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2prezd2makezd2structzd2app4298z83zzcfa_info2z00(obj_t, obj_t, obj_t);
static obj_t BGl__fillzd2structzd2setz12zd2appz12zd2zzcfa_info2z00(obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2structzd2refzd2app4280ze3zzcfa_info2z00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_makezd2vectorzd2appz00_bglt BGl_wideningzd2makezd2vectorzd2appzd2zzcfa_info2z00(BgL_approxz00_bglt, BgL_approxz00_bglt, long, BgL_variablez00_bglt, obj_t, bool_t);
static obj_t BGl__allocatezd2prezd2structzd2setz12zd2appz12zzcfa_info2z00(obj_t);
BGL_EXPORTED_DECL BgL_prezd2structzd2refzd2appzd2_bglt BGl_wideningzd2prezd2structzd2refzd2appz00zzcfa_info2z00();
BGL_EXPORTED_DECL BgL_appz00_bglt BGl_allocatezd2procedurezd2refzd2appzd2zzcfa_info2z00();
BGL_EXPORTED_DECL bool_t BGl_prezd2arithmeticzd2appzf3zf3zzcfa_info2z00(obj_t);
static obj_t BGl__procedurezd2setz12zd2appzf3ze1zzcfa_info2z00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_prezd2procedurezd2setz12zd2appzc0_bglt BGl_wideningzd2prezd2procedurezd2setz12zd2appz12zzcfa_info2z00();
BGL_EXPORTED_DEF obj_t BGl_prezd2structzd2setz12zd2appzc0zzcfa_info2z00 = BUNSPEC;
static obj_t BGl__prezd2arithmeticzd2appzf3zf3zzcfa_info2z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_procedurezd2setz12zd2appzf3ze1zzcfa_info2z00(obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2prezd2procedurezd2setz12zd2app4323z91zzcfa_info2z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_arithmeticzd2appzd2_bglt BGl_wideningzd2arithmeticzd2appz00zzcfa_info2z00(BgL_approxz00_bglt, obj_t);
BGL_EXPORTED_DEF obj_t BGl_prezd2structzd2refzd2appzd2zzcfa_info2z00 = BUNSPEC;
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_appz00_bglt BGl_allocatezd2makezd2vectorzd2appzd2zzcfa_info2z00();
static obj_t BGl__makezd2makezd2procedurezd2appzd2zzcfa_info2z00(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);
BGL_EXPORTED_DECL BgL_prezd2procedurezd2setz12zd2appzc0_bglt BGl_makezd2prezd2procedurezd2setz12zd2appz12zzcfa_info2z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt, obj_t);
static obj_t BGl__makezd2structzd2refzd2appzd2zzcfa_info2z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__wideningzd2makezd2structzd2app6197zd2zzcfa_info2z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__fillzd2arithmeticzd2appz12z12zzcfa_info2z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__makezd2structzd2appzf3zf3zzcfa_info2z00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_appz00_bglt BGl_allocatezd2prezd2makezd2vectorzd2appz00zzcfa_info2z00();
static obj_t BGl_structzb2objectzd2ze3objectzd2procedurezd2setz12zd2app4310z43zzcfa_info2z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_prezd2makezd2vectorzd2appzf3z21zzcfa_info2z00(obj_t);
static obj_t BGl__makezd2prezd2structzd2setz12zd2appz12zzcfa_info2z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_makezd2structzd2appz00_bglt BGl_makezd2makezd2structzd2appzd2zzcfa_info2z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt, obj_t, BgL_approxz00_bglt, BgL_approxz00_bglt, long, BgL_variablez00_bglt, obj_t);
static obj_t BGl__allocatezd2procedurezd2refzd2appzd2zzcfa_info2z00(obj_t);
static obj_t BGl_toplevelzd2initzd2zzcfa_info2z00();
BGL_EXPORTED_DECL BgL_procedurezd2refzd2appz00_bglt BGl_fillzd2procedurezd2refzd2appz12zc0zzcfa_info2z00(BgL_procedurezd2refzd2appz00_bglt, BgL_approxz00_bglt);
static obj_t BGl__allocatezd2procedurezd2setz12zd2appzc0zzcfa_info2z00(obj_t);
static obj_t BGl__wideningzd2arithmeticzd2app6253z00zzcfa_info2z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzcfa_info2z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_infoz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
static obj_t BGl__makezd2makezd2vectorzd2appzd2zzcfa_info2z00(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);
BGL_EXPORTED_DECL BgL_prezd2procedurezd2refzd2appzd2_bglt BGl_makezd2prezd2procedurezd2refzd2appz00zzcfa_info2z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt, obj_t);
BGL_EXPORTED_DECL BgL_appz00_bglt BGl_allocatezd2makezd2structzd2appzd2zzcfa_info2z00();
static obj_t BGl__allocatezd2prezd2arithmeticzd2appzd2zzcfa_info2z00(obj_t);
static obj_t BGl_objectzd2ze3structzd2prezd2makezd2structzd2app4296z31zzcfa_info2z00(obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2prezd2makezd2procedurezd2app4329z31zzcfa_info2z00(obj_t, obj_t);
static obj_t BGl__wideningzd2prezd2arithmeticzd2app6258zd2zzcfa_info2z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_structzd2setz12zd2appzf3ze1zzcfa_info2z00(obj_t);
BGL_EXPORTED_DECL BgL_appz00_bglt BGl_allocatezd2prezd2makezd2structzd2appz00zzcfa_info2z00();
BGL_EXPORTED_DECL BgL_makezd2vectorzd2appz00_bglt BGl_makezd2makezd2vectorzd2appzd2zzcfa_info2z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt, obj_t, BgL_approxz00_bglt, BgL_approxz00_bglt, long, BgL_variablez00_bglt, obj_t, bool_t);
BGL_EXPORTED_DECL BgL_structzd2refzd2appz00_bglt BGl_makezd2structzd2refzd2appzd2zzcfa_info2z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt, obj_t, BgL_approxz00_bglt);
static obj_t BGl__makezd2prezd2procedurezd2refzd2appz00zzcfa_info2z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_appz00_bglt BGl_allocatezd2structzd2refzd2appzd2zzcfa_info2z00();
BGL_EXPORTED_DECL BgL_prezd2structzd2setz12zd2appzc0_bglt BGl_wideningzd2prezd2structzd2setz12zd2appz12zzcfa_info2z00();
static obj_t BGl__fillzd2procedurezd2setz12zd2appz12zd2zzcfa_info2z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_prezd2procedurezd2setz12zd2appzf3z33zzcfa_info2z00(obj_t);
BGL_EXPORTED_DECL BgL_prezd2makezd2structzd2appzd2_bglt BGl_fillzd2prezd2makezd2structzd2appz12z12zzcfa_info2z00(BgL_prezd2makezd2structzd2appzd2_bglt, BgL_variablez00_bglt);
static obj_t BGl__wideningzd2prezd2makezd2vectorzd2app6220z00zzcfa_info2z00(obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2makezd2procedurezd2app4317ze3zzcfa_info2z00(obj_t, obj_t);
static obj_t BGl__makezd2makezd2structzd2appzd2zzcfa_info2z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_procedurezd2setz12zd2appz12_bglt BGl_wideningzd2procedurezd2setz12zd2appzc0zzcfa_info2z00(BgL_approxz00_bglt);
static obj_t BGl__prezd2makezd2vectorzd2appzf3z21zzcfa_info2z00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_prezd2structzd2refzd2appzd2_bglt BGl_makezd2prezd2structzd2refzd2appz00zzcfa_info2z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt, obj_t);
static obj_t BGl_objectzd2ze3structzd2prezd2arithmeticzd2app4339ze3zzcfa_info2z00(obj_t, obj_t);
static obj_t BGl__fillzd2prezd2makezd2vectorzd2appz12z12zzcfa_info2z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_prezd2structzd2refzd2appzd2_bglt BGl_fillzd2prezd2structzd2refzd2appz12z12zzcfa_info2z00(BgL_prezd2structzd2refzd2appzd2_bglt);
BGL_EXPORTED_DEF obj_t BGl_procedurezd2setz12zd2appz12zzcfa_info2z00 = BUNSPEC;
static obj_t BGl__fillzd2prezd2arithmeticzd2appz12zc0zzcfa_info2z00(obj_t, obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2arithmeticzd2app4336z83zzcfa_info2z00(obj_t, obj_t, obj_t);
BGL_IMPORT BgL_objectz00_bglt BGl_structzb2objectzd2ze3objectz83zz__objectz00(BgL_objectz00_bglt, obj_t);
BGL_EXPORTED_DECL BgL_prezd2procedurezd2setz12zd2appzc0_bglt BGl_fillzd2prezd2procedurezd2setz12zd2appz12z00zzcfa_info2z00(BgL_prezd2procedurezd2setz12zd2appzc0_bglt);
BGL_EXPORTED_DECL BgL_makezd2vectorzd2appz00_bglt BGl_fillzd2makezd2vectorzd2appz12zc0zzcfa_info2z00(BgL_makezd2vectorzd2appz00_bglt, BgL_approxz00_bglt, BgL_approxz00_bglt, long, BgL_variablez00_bglt, obj_t, bool_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2makezd2structzd2app4286z51zzcfa_info2z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_makezd2vectorzd2appzf3zf3zzcfa_info2z00(obj_t);
static obj_t BGl__fillzd2procedurezd2refzd2appz12zc0zzcfa_info2z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_prezd2procedurezd2refzd2appzd2zzcfa_info2z00 = BUNSPEC;
BGL_EXPORTED_DEF obj_t BGl_makezd2structzd2appz00zzcfa_info2z00 = BUNSPEC;
static obj_t BGl__wideningzd2prezd2procedurezd2refzd2appz00zzcfa_info2z00(obj_t);
static obj_t BGl__fillzd2structzd2refzd2appz12zc0zzcfa_info2z00(obj_t, obj_t, obj_t);
static obj_t BGl__fillzd2prezd2makezd2procedurezd2appz12z12zzcfa_info2z00(obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2prezd2structzd2refzd2appz00zzcfa_info2z00(obj_t);
BGL_EXPORTED_DECL BgL_procedurezd2refzd2appz00_bglt BGl_wideningzd2procedurezd2refzd2appzd2zzcfa_info2z00(BgL_approxz00_bglt);
BGL_EXPORTED_DECL BgL_appz00_bglt BGl_allocatezd2makezd2procedurezd2appzd2zzcfa_info2z00();
static obj_t BGl__wideningzd2prezd2structzd2refzd2appz00zzcfa_info2z00(obj_t);
BGL_EXPORTED_DECL BgL_makezd2procedurezd2appz00_bglt BGl_makezd2makezd2procedurezd2appzd2zzcfa_info2z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt, obj_t, BgL_approxz00_bglt, obj_t, long, bool_t, bool_t, bool_t, BgL_variablez00_bglt, obj_t);
static obj_t BGl__wideningzd2makezd2procedurezd2app6235zd2zzcfa_info2z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__prezd2makezd2procedurezd2appzf3z21zzcfa_info2z00(obj_t, obj_t);
static obj_t BGl__prezd2structzd2refzd2appzf3z21zzcfa_info2z00(obj_t, obj_t);
static obj_t BGl__allocatezd2prezd2procedurezd2setz12zd2appz12zzcfa_info2z00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_prezd2structzd2setz12zd2appzf3z33zzcfa_info2z00(obj_t);
BGL_EXPORTED_DEF obj_t BGl_prezd2procedurezd2setz12zd2appzc0zzcfa_info2z00 = BUNSPEC;
static obj_t BGl_objectzd2ze3structzd2structzd2setz12zd2app4275zf1zzcfa_info2z00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_structzd2refzd2appz00_bglt BGl_fillzd2structzd2refzd2appz12zc0zzcfa_info2z00(BgL_structzd2refzd2appz00_bglt, BgL_approxz00_bglt);
BGL_EXPORTED_DECL bool_t BGl_procedurezd2refzd2appzf3zf3zzcfa_info2z00(obj_t);
static obj_t BGl__makezd2prezd2makezd2procedurezd2appz00zzcfa_info2z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_makezd2vectorzd2appz00zzcfa_info2z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_prezd2makezd2structzd2appzf3z21zzcfa_info2z00(obj_t);
static obj_t BGl__wideningzd2structzd2setz12zd2app6187zc0zzcfa_info2z00(obj_t, obj_t);
static obj_t BGl__makezd2arithmeticzd2appz00zzcfa_info2z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_prezd2procedurezd2refzd2appzd2_bglt BGl_fillzd2prezd2procedurezd2refzd2appz12z12zzcfa_info2z00(BgL_prezd2procedurezd2refzd2appzd2_bglt);
BGL_EXPORTED_DECL BgL_appz00_bglt BGl_allocatezd2prezd2makezd2procedurezd2appz00zzcfa_info2z00();
extern obj_t BGl_appz00zzast_nodez00;
static obj_t BGl__allocatezd2prezd2makezd2procedurezd2appz00zzcfa_info2z00(obj_t);
static obj_t BGl_objectzd2ze3structzd2prezd2structzd2setz12zd2app4288z23zzcfa_info2z00(obj_t, obj_t);
static obj_t BGl__allocatezd2prezd2procedurezd2refzd2appz00zzcfa_info2z00(obj_t);
BGL_EXPORTED_DECL BgL_structzd2refzd2appz00_bglt BGl_wideningzd2structzd2refzd2appzd2zzcfa_info2z00(BgL_approxz00_bglt);
BGL_EXPORTED_DECL BgL_prezd2makezd2structzd2appzd2_bglt BGl_makezd2prezd2makezd2structzd2appz00zzcfa_info2z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt, obj_t, BgL_variablez00_bglt);
static obj_t BGl__wideningzd2prezd2makezd2structzd2app6210z00zzcfa_info2z00(obj_t, obj_t);
static obj_t BGl__fillzd2makezd2vectorzd2appz12zc0zzcfa_info2z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__wideningzd2structzd2refzd2app6192zd2zzcfa_info2z00(obj_t, obj_t);
static obj_t BGl__makezd2structzd2setz12zd2appzc0zzcfa_info2z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_structzd2refzd2appzf3zf3zzcfa_info2z00(obj_t);
static obj_t BGl__makezd2vectorzd2appzf3zf3zzcfa_info2z00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_prezd2structzd2setz12zd2appzc0_bglt BGl_makezd2prezd2structzd2setz12zd2appz12zzcfa_info2z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt, obj_t);
BGL_EXPORTED_DECL BgL_appz00_bglt BGl_allocatezd2prezd2structzd2setz12zd2appz12zzcfa_info2z00();
static obj_t BGl_objectzd2ze3structzd2prezd2procedurezd2refzd2app4325z31zzcfa_info2z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_prezd2procedurezd2refzd2appzf3z21zzcfa_info2z00(obj_t);
static obj_t BGl__wideningzd2prezd2makezd2procedurezd2app6248z00zzcfa_info2z00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_prezd2makezd2vectorzd2appzd2_bglt BGl_makezd2prezd2makezd2vectorzd2appz00zzcfa_info2z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt, obj_t, BgL_variablez00_bglt);
BGL_EXPORTED_DECL BgL_appz00_bglt BGl_allocatezd2structzd2setz12zd2appzc0zzcfa_info2z00();
static obj_t BGl_objectzd2initzd2zzcfa_info2z00();
BGL_EXPORTED_DEF obj_t BGl_arithmeticzd2appzd2zzcfa_info2z00 = BUNSPEC;
static obj_t BGl__fillzd2prezd2procedurezd2setz12zd2appz12z00zzcfa_info2z00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_procedurezd2refzd2appz00_bglt BGl_makezd2procedurezd2refzd2appzd2zzcfa_info2z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt, obj_t, BgL_approxz00_bglt);
BGL_EXPORTED_DEF obj_t BGl_makezd2procedurezd2appz00zzcfa_info2z00 = BUNSPEC;
static obj_t BGl_objectzd2ze3structzd2prezd2structzd2refzd2app4292z31zzcfa_info2z00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzcfa_info2z00 = BUNSPEC;
BGL_EXPORTED_DECL BgL_prezd2structzd2setz12zd2appzc0_bglt BGl_fillzd2prezd2structzd2setz12zd2appz12z00zzcfa_info2z00(BgL_prezd2structzd2setz12zd2appzc0_bglt);
static obj_t BGl__arithmeticzd2appzf3z21zzcfa_info2z00(obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2arithmeticzd2app4333z31zzcfa_info2z00(obj_t, obj_t);
static obj_t BGl__makezd2procedurezd2refzd2appzd2zzcfa_info2z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_makezd2procedurezd2appz00_bglt BGl_wideningzd2makezd2procedurezd2appzd2zzcfa_info2z00(BgL_approxz00_bglt, obj_t, long, bool_t, bool_t, bool_t, BgL_variablez00_bglt, obj_t);
BGL_EXPORTED_DECL BgL_procedurezd2setz12zd2appz12_bglt BGl_fillzd2procedurezd2setz12zd2appz12zd2zzcfa_info2z00(BgL_procedurezd2setz12zd2appz12_bglt, BgL_approxz00_bglt);
BGL_EXPORTED_DECL BgL_prezd2makezd2procedurezd2appzd2_bglt BGl_wideningzd2prezd2makezd2procedurezd2appz00zzcfa_info2z00(BgL_variablez00_bglt);
static obj_t BGl_structzb2objectzd2ze3objectzd2prezd2structzd2setz12zd2app4290z91zzcfa_info2z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_structzd2refzd2appz00zzcfa_info2z00 = BUNSPEC;
static obj_t BGl_structzb2objectzd2ze3objectzd2structzd2refzd2app4282z51zzcfa_info2z00(obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2arithmeticzd2appz00zzcfa_info2z00(obj_t);
static obj_t BGl_objectzd2ze3structzd2procedurezd2setz12zd2app4308zf1zzcfa_info2z00(obj_t, obj_t);
static obj_t BGl__fillzd2prezd2procedurezd2refzd2appz12z12zzcfa_info2z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_makezd2structzd2appzf3zf3zzcfa_info2z00(obj_t);
static obj_t BGl__makezd2procedurezd2setz12zd2appzc0zzcfa_info2z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_arithmeticzd2appzf3z21zzcfa_info2z00(obj_t);
BGL_EXPORTED_DEF obj_t BGl_structzd2setz12zd2appz12zzcfa_info2z00 = BUNSPEC;
static obj_t BGl_structzb2objectzd2ze3objectzd2prezd2arithmeticzd2app4341z51zzcfa_info2z00(obj_t, obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzcfa_info2z00();
BGL_EXPORTED_DECL BgL_prezd2makezd2procedurezd2appzd2_bglt BGl_makezd2prezd2makezd2procedurezd2appz00zzcfa_info2z00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt, obj_t, BgL_variablez00_bglt);
static obj_t BGl__makezd2prezd2arithmeticzd2appzd2zzcfa_info2z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2makezd2structzd2app4284ze3zzcfa_info2z00(obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2procedurezd2refzd2app4315z51zzcfa_info2z00(obj_t, obj_t, obj_t);
static obj_t BGl__makezd2procedurezd2appzf3zf3zzcfa_info2z00(obj_t, obj_t);
static obj_t BGl__structzd2refzd2appzf3zf3zzcfa_info2z00(obj_t, obj_t);
static obj_t BGl__wideningzd2procedurezd2refzd2app6230zd2zzcfa_info2z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_makezd2procedurezd2appzf3zf3zzcfa_info2z00(obj_t);
static obj_t BGl__structzd2setz12zd2appzf3ze1zzcfa_info2z00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_findzd2superzd2classzd2methodzd2zz__objectz00(BgL_objectz00_bglt, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_appz00_bglt BGl_allocatezd2prezd2structzd2refzd2appz00zzcfa_info2z00();
static obj_t __cnst[ 16 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2prezd2makezd2procedurezd2appzd2envzd2zzcfa_info2z00, BgL_bgl__wideningza7d2preza7d2makeza7d2procedureza7d2app6248za700za7za7cfa_info2za7007208z00, BGl__wideningzd2prezd2makezd2procedurezd2app6248z00zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2prezd2procedurezd2refzd2appzd2envzd2zzcfa_info2z00, BgL_bgl__allocateza7d2preza7d2procedureza7d2refza7d2appza700za7za7cfa_info2za7007209z00, BGl__allocatezd2prezd2procedurezd2refzd2appz00zzcfa_info2z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2prezd2structzd2refzd2appzd2envzd2zzcfa_info2z00, BgL_bgl__allocateza7d2preza7d2structza7d2refza7d2appza700za7za7cfa_info2za7007210z00, BGl__allocatezd2prezd2structzd2refzd2appz00zzcfa_info2z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_prezd2structzd2setz12zd2appzf3zd2envze1zzcfa_info2z00, BgL_bgl__preza7d2structza7d2setza712za7d2appza7f3za733za7za7cfa_info2za7007211za7, BGl__prezd2structzd2setz12zd2appzf3z33zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2prezd2procedurezd2refzd2appzd2envzd2zzcfa_info2z00, BgL_bgl__makeza7d2preza7d2procedureza7d2refza7d2appza700za7za7cfa_info2za7007212z00, BGl__makezd2prezd2procedurezd2refzd2appz00zzcfa_info2z00, 0L, 6 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2procedurezd2setz12zd2appzd2envz12zzcfa_info2z00, BgL_bgl__allocateza7d2procedureza7d2setza712za7d2appza7c0za7za7cfa_info2za7007213z00, BGl__allocatezd2procedurezd2setz12zd2appzc0zzcfa_info2z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2makezd2structzd2appzd2envz00zzcfa_info2z00, BgL_bgl__allocateza7d2makeza7d2structza7d2appza7d2za7za7cfa_info2za7007214za7, BGl__allocatezd2makezd2structzd2appzd2zzcfa_info2z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_prezd2structzd2refzd2appzf3zd2envzf3zzcfa_info2z00, BgL_bgl__preza7d2structza7d2refza7d2appza7f3za721za7za7cfa_info2za7007215z00, BGl__prezd2structzd2refzd2appzf3z21zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_prezd2procedurezd2refzd2appzf3zd2envzf3zzcfa_info2z00, BgL_bgl__preza7d2procedureza7d2refza7d2appza7f3za721za7za7cfa_info2za7007216z00, BGl__prezd2procedurezd2refzd2appzf3z21zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2structzd2refzd2appzd2envz00zzcfa_info2z00, BgL_bgl__allocateza7d2structza7d2refza7d2appza7d2za7za7cfa_info2za7007217za7, BGl__allocatezd2structzd2refzd2appzd2zzcfa_info2z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2prezd2procedurezd2refzd2appzd2envzd2zzcfa_info2z00, BgL_bgl__wideningza7d2preza7d2procedureza7d2refza7d2appza700za7za7cfa_info2za7007218z00, BGl__wideningzd2prezd2procedurezd2refzd2appz00zzcfa_info2z00, 0L, 0 );
BGL_IMPORT obj_t BGl_objectzd2ze3structzd2envze3zz__objectz00;
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2structzd2setz12zd2appzd2envz12zzcfa_info2z00, BgL_bgl__allocateza7d2structza7d2setza712za7d2appza7c0za7za7cfa_info2za7007219z00, BGl__allocatezd2structzd2setz12zd2appzc0zzcfa_info2z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2makezd2structzd2appz12zd2envz12zzcfa_info2z00, BgL_bgl__fillza7d2makeza7d2structza7d2appza712za7c0za7za7cfa_info2za7007220z00, BGl__fillzd2makezd2structzd2appz12zc0zzcfa_info2z00, 0L, 6 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2prezd2makezd2structzd2appzd2envzd2zzcfa_info2z00, BgL_bgl__wideningza7d2preza7d2makeza7d2structza7d2app6210za700za7za7cfa_info2za7007221z00, BGl__wideningzd2prezd2makezd2structzd2app6210z00zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2arithmeticzd2appzd2envzd2zzcfa_info2z00, BgL_bgl__makeza7d2arithmeticza7d2appza700za7za7cfa_info2za7007222z00, BGl__makezd2arithmeticzd2appz00zzcfa_info2z00, 0L, 8 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2prezd2procedurezd2setz12zd2appzd2envzc0zzcfa_info2z00, BgL_bgl__allocateza7d2preza7d2procedureza7d2setza712za7d2appza712za7za7cfa_info2za7007223za7, BGl__allocatezd2prezd2procedurezd2setz12zd2appz12zzcfa_info2z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2prezd2makezd2vectorzd2appzd2envzd2zzcfa_info2z00, BgL_bgl__wideningza7d2preza7d2makeza7d2vectorza7d2app6220za700za7za7cfa_info2za7007224z00, BGl__wideningzd2prezd2makezd2vectorzd2app6220z00zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2structzd2appzf3zd2envz21zzcfa_info2z00, BgL_bgl__makeza7d2structza7d2appza7f3za7f3za7za7cfa_info2za7007225za7, BGl__makezd2structzd2appzf3zf3zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2makezd2structzd2appzd2envz00zzcfa_info2z00, BgL_bgl__makeza7d2makeza7d2structza7d2appza7d2za7za7cfa_info2za7007226za7, BGl__makezd2makezd2structzd2appzd2zzcfa_info2z00, 0L, 11 );
DEFINE_STATIC_PROCEDURE( BGl_proc7121z00zzcfa_info2z00, BgL_bgl_objectza7d2za7e3structza7d2structza7d2setza712za7d2app4275za7f1za7za7cfa_info2za7007227z00, BGl_objectzd2ze3structzd2structzd2setz12zd2app4275zf1zzcfa_info2z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7122z00zzcfa_info2z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2structza7d2setza712za7d2app4278za743za7za7cfa_info2za7007228za7, BGl_structzb2objectzd2ze3objectzd2structzd2setz12zd2app4278z43zzcfa_info2z00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc7123z00zzcfa_info2z00, BgL_bgl_objectza7d2za7e3structza7d2structza7d2refza7d2app4280za7e3za7za7cfa_info2za7007229za7, BGl_objectzd2ze3structzd2structzd2refzd2app4280ze3zzcfa_info2z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7124z00zzcfa_info2z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2structza7d2refza7d2app4282za751za7za7cfa_info2za7007230z00, BGl_structzb2objectzd2ze3objectzd2structzd2refzd2app4282z51zzcfa_info2z00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc7125z00zzcfa_info2z00, BgL_bgl_objectza7d2za7e3structza7d2makeza7d2structza7d2app4284za7e3za7za7cfa_info2za7007231za7, BGl_objectzd2ze3structzd2makezd2structzd2app4284ze3zzcfa_info2z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7126z00zzcfa_info2z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2makeza7d2structza7d2app4286za751za7za7cfa_info2za7007232z00, BGl_structzb2objectzd2ze3objectzd2makezd2structzd2app4286z51zzcfa_info2z00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc7127z00zzcfa_info2z00, BgL_bgl_objectza7d2za7e3structza7d2preza7d2structza7d2setza712za7d2app4288za723za7za7cfa_info2za7007233za7, BGl_objectzd2ze3structzd2prezd2structzd2setz12zd2app4288z23zzcfa_info2z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7128z00zzcfa_info2z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2preza7d2structza7d2setza712za7d2app4290za791za7za7cfa_info2za7007234z00, BGl_structzb2objectzd2ze3objectzd2prezd2structzd2setz12zd2app4290z91zzcfa_info2z00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc7130z00zzcfa_info2z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2preza7d2structza7d2refza7d2app4294za783za7za7cfa_info2za7007235za7, BGl_structzb2objectzd2ze3objectzd2prezd2structzd2refzd2app4294z83zzcfa_info2z00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc7129z00zzcfa_info2z00, BgL_bgl_objectza7d2za7e3structza7d2preza7d2structza7d2refza7d2app4292za731za7za7cfa_info2za7007236z00, BGl_objectzd2ze3structzd2prezd2structzd2refzd2app4292z31zzcfa_info2z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7131z00zzcfa_info2z00, BgL_bgl_objectza7d2za7e3structza7d2preza7d2makeza7d2structza7d2app4296za731za7za7cfa_info2za7007237z00, BGl_objectzd2ze3structzd2prezd2makezd2structzd2app4296z31zzcfa_info2z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7132z00zzcfa_info2z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2preza7d2makeza7d2structza7d2app4298za783za7za7cfa_info2za7007238za7, BGl_structzb2objectzd2ze3objectzd2prezd2makezd2structzd2app4298z83zzcfa_info2z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2prezd2structzd2setz12zd2appzd2envzc0zzcfa_info2z00, BgL_bgl__allocateza7d2preza7d2structza7d2setza712za7d2appza712za7za7cfa_info2za7007239za7, BGl__allocatezd2prezd2structzd2setz12zd2appz12zzcfa_info2z00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_proc7133z00zzcfa_info2z00, BgL_bgl_objectza7d2za7e3structza7d2makeza7d2vectorza7d2app4300za7e3za7za7cfa_info2za7007240za7, BGl_objectzd2ze3structzd2makezd2vectorzd2app4300ze3zzcfa_info2z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7134z00zzcfa_info2z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2makeza7d2vectorza7d2app4302za751za7za7cfa_info2za7007241z00, BGl_structzb2objectzd2ze3objectzd2makezd2vectorzd2app4302z51zzcfa_info2z00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc7135z00zzcfa_info2z00, BgL_bgl_objectza7d2za7e3structza7d2preza7d2makeza7d2vectorza7d2app4304za731za7za7cfa_info2za7007242z00, BGl_objectzd2ze3structzd2prezd2makezd2vectorzd2app4304z31zzcfa_info2z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7136z00zzcfa_info2z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2preza7d2makeza7d2vectorza7d2app4306za783za7za7cfa_info2za7007243za7, BGl_structzb2objectzd2ze3objectzd2prezd2makezd2vectorzd2app4306z83zzcfa_info2z00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc7137z00zzcfa_info2z00, BgL_bgl_objectza7d2za7e3structza7d2procedureza7d2setza712za7d2app4308za7f1za7za7cfa_info2za7007244z00, BGl_objectzd2ze3structzd2procedurezd2setz12zd2app4308zf1zzcfa_info2z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7138z00zzcfa_info2z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2procedureza7d2setza712za7d2app4310za743za7za7cfa_info2za7007245za7, BGl_structzb2objectzd2ze3objectzd2procedurezd2setz12zd2app4310z43zzcfa_info2z00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc7140z00zzcfa_info2z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2procedureza7d2refza7d2app4315za751za7za7cfa_info2za7007246z00, BGl_structzb2objectzd2ze3objectzd2procedurezd2refzd2app4315z51zzcfa_info2z00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc7139z00zzcfa_info2z00, BgL_bgl_objectza7d2za7e3structza7d2procedureza7d2refza7d2app4313za7e3za7za7cfa_info2za7007247za7, BGl_objectzd2ze3structzd2procedurezd2refzd2app4313ze3zzcfa_info2z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7141z00zzcfa_info2z00, BgL_bgl_objectza7d2za7e3structza7d2makeza7d2procedureza7d2app4317za7e3za7za7cfa_info2za7007248za7, BGl_objectzd2ze3structzd2makezd2procedurezd2app4317ze3zzcfa_info2z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7142z00zzcfa_info2z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2makeza7d2procedureza7d2app4319za751za7za7cfa_info2za7007249z00, BGl_structzb2objectzd2ze3objectzd2makezd2procedurezd2app4319z51zzcfa_info2z00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc7143z00zzcfa_info2z00, BgL_bgl_objectza7d2za7e3structza7d2preza7d2procedureza7d2setza712za7d2app4321za723za7za7cfa_info2za7007250za7, BGl_objectzd2ze3structzd2prezd2procedurezd2setz12zd2app4321z23zzcfa_info2z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7144z00zzcfa_info2z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2preza7d2procedureza7d2setza712za7d2app4323za791za7za7cfa_info2za7007251z00, BGl_structzb2objectzd2ze3objectzd2prezd2procedurezd2setz12zd2app4323z91zzcfa_info2z00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc7145z00zzcfa_info2z00, BgL_bgl_objectza7d2za7e3structza7d2preza7d2procedureza7d2refza7d2app4325za731za7za7cfa_info2za7007252z00, BGl_objectzd2ze3structzd2prezd2procedurezd2refzd2app4325z31zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2structzd2setz12zd2appzd2envz12zzcfa_info2z00, BgL_bgl__wideningza7d2structza7d2setza712za7d2app6187za7c0za7za7cfa_info2za7007253z00, BGl__wideningzd2structzd2setz12zd2app6187zc0zzcfa_info2z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7146z00zzcfa_info2z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2preza7d2procedureza7d2refza7d2app4327za783za7za7cfa_info2za7007254za7, BGl_structzb2objectzd2ze3objectzd2prezd2procedurezd2refzd2app4327z83zzcfa_info2z00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc7147z00zzcfa_info2z00, BgL_bgl_objectza7d2za7e3structza7d2preza7d2makeza7d2procedureza7d2app4329za731za7za7cfa_info2za7007255z00, BGl_objectzd2ze3structzd2prezd2makezd2procedurezd2app4329z31zzcfa_info2z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7148z00zzcfa_info2z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2preza7d2makeza7d2procedureza7d2app4331za783za7za7cfa_info2za7007256za7, BGl_structzb2objectzd2ze3objectzd2prezd2makezd2procedurezd2app4331z83zzcfa_info2z00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc7150z00zzcfa_info2z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2arithmeticza7d2app4336za783za7za7cfa_info2za7007257za7, BGl_structzb2objectzd2ze3objectzd2arithmeticzd2app4336z83zzcfa_info2z00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc7149z00zzcfa_info2z00, BgL_bgl_objectza7d2za7e3structza7d2arithmeticza7d2app4333za731za7za7cfa_info2za7007258z00, BGl_objectzd2ze3structzd2arithmeticzd2app4333z31zzcfa_info2z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7151z00zzcfa_info2z00, BgL_bgl_objectza7d2za7e3structza7d2preza7d2arithmeticza7d2app4339za7e3za7za7cfa_info2za7007259za7, BGl_objectzd2ze3structzd2prezd2arithmeticzd2app4339ze3zzcfa_info2z00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7152z00zzcfa_info2z00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2preza7d2arithmeticza7d2app4341za751za7za7cfa_info2za7007260z00, BGl_structzb2objectzd2ze3objectzd2prezd2arithmeticzd2app4341z51zzcfa_info2z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2structzd2refzd2appzd2envz00zzcfa_info2z00, BgL_bgl__wideningza7d2structza7d2refza7d2app6192za7d2za7za7cfa_info2za7007261za7, BGl__wideningzd2structzd2refzd2app6192zd2zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2procedurezd2setz12zd2appzd2envz12zzcfa_info2z00, BgL_bgl__wideningza7d2procedureza7d2setza712za7d2app6225za7c0za7za7cfa_info2za7007262z00, BGl__wideningzd2procedurezd2setz12zd2app6225zc0zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2makezd2vectorzd2appzd2envz00zzcfa_info2z00, BgL_bgl__allocateza7d2makeza7d2vectorza7d2appza7d2za7za7cfa_info2za7007263za7, BGl__allocatezd2makezd2vectorzd2appzd2zzcfa_info2z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2procedurezd2appzf3zd2envz21zzcfa_info2z00, BgL_bgl__makeza7d2procedureza7d2appza7f3za7f3za7za7cfa_info2za7007264za7, BGl__makezd2procedurezd2appzf3zf3zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2procedurezd2setz12zd2appzd2envz12zzcfa_info2z00, BgL_bgl__makeza7d2procedureza7d2setza712za7d2appza7c0za7za7cfa_info2za7007265z00, BGl__makezd2procedurezd2setz12zd2appzc0zzcfa_info2z00, 0L, 7 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2prezd2arithmeticzd2appzd2envz00zzcfa_info2z00, BgL_bgl__allocateza7d2preza7d2arithmeticza7d2appza7d2za7za7cfa_info2za7007266za7, BGl__allocatezd2prezd2arithmeticzd2appzd2zzcfa_info2z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_prezd2procedurezd2setz12zd2appzf3zd2envze1zzcfa_info2z00, BgL_bgl__preza7d2procedureza7d2setza712za7d2appza7f3za733za7za7cfa_info2za7007267za7, BGl__prezd2procedurezd2setz12zd2appzf3z33zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2prezd2procedurezd2refzd2appz12zd2envzc0zzcfa_info2z00, BgL_bgl__fillza7d2preza7d2procedureza7d2refza7d2appza712za712za7za7cfa_info2za7007268za7, BGl__fillzd2prezd2procedurezd2refzd2appz12z12zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2procedurezd2refzd2appzd2envz00zzcfa_info2z00, BgL_bgl__makeza7d2procedureza7d2refza7d2appza7d2za7za7cfa_info2za7007269za7, BGl__makezd2procedurezd2refzd2appzd2zzcfa_info2z00, 0L, 7 );
DEFINE_EXPORT_PROCEDURE( BGl_arithmeticzd2appzf3zd2envzf3zzcfa_info2z00, BgL_bgl__arithmeticza7d2appza7f3za721za7za7cfa_info2za7007270z00, BGl__arithmeticzd2appzf3z21zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2makezd2procedurezd2appzd2envz00zzcfa_info2z00, BgL_bgl__wideningza7d2makeza7d2procedureza7d2app6235za7d2za7za7cfa_info2za7007271za7, BGl__wideningzd2makezd2procedurezd2app6235zd2zzcfa_info2z00, 0L, 8 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2prezd2makezd2procedurezd2appz12zd2envzc0zzcfa_info2z00, BgL_bgl__fillza7d2preza7d2makeza7d2procedureza7d2appza712za712za7za7cfa_info2za7007272za7, BGl__fillzd2prezd2makezd2procedurezd2appz12z12zzcfa_info2z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2makezd2vectorzd2appzd2envz00zzcfa_info2z00, BgL_bgl__makeza7d2makeza7d2vectorza7d2appza7d2za7za7cfa_info2za7007273za7, BGl__makezd2makezd2vectorzd2appzd2zzcfa_info2z00, 0L, 12 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2arithmeticzd2appzd2envzd2zzcfa_info2z00, BgL_bgl__allocateza7d2arithmeticza7d2appza700za7za7cfa_info2za7007274z00, BGl__allocatezd2arithmeticzd2appz00zzcfa_info2z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2prezd2structzd2setz12zd2appzd2envzc0zzcfa_info2z00, BgL_bgl__makeza7d2preza7d2structza7d2setza712za7d2appza712za7za7cfa_info2za7007275za7, BGl__makezd2prezd2structzd2setz12zd2appz12zzcfa_info2z00, 0L, 6 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2structzd2refzd2appzd2envz00zzcfa_info2z00, BgL_bgl__makeza7d2structza7d2refza7d2appza7d2za7za7cfa_info2za7007276za7, BGl__makezd2structzd2refzd2appzd2zzcfa_info2z00, 0L, 7 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2prezd2makezd2vectorzd2appzd2envzd2zzcfa_info2z00, BgL_bgl__makeza7d2preza7d2makeza7d2vectorza7d2appza700za7za7cfa_info2za7007277z00, BGl__makezd2prezd2makezd2vectorzd2appz00zzcfa_info2z00, 0L, 7 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2procedurezd2setz12zd2appz12zd2envz00zzcfa_info2z00, BgL_bgl__fillza7d2procedureza7d2setza712za7d2appza712za7d2za7za7cfa_info2za7007278za7, BGl__fillzd2procedurezd2setz12zd2appz12zd2zzcfa_info2z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2makezd2structzd2appzd2envz00zzcfa_info2z00, BgL_bgl__wideningza7d2makeza7d2structza7d2app6197za7d2za7za7cfa_info2za7007279za7, BGl__wideningzd2makezd2structzd2app6197zd2zzcfa_info2z00, 0L, 5 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2makezd2procedurezd2appzd2envz00zzcfa_info2z00, BgL_bgl__allocateza7d2makeza7d2procedureza7d2appza7d2za7za7cfa_info2za7007280za7, BGl__allocatezd2makezd2procedurezd2appzd2zzcfa_info2z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_prezd2arithmeticzd2appzf3zd2envz21zzcfa_info2z00, BgL_bgl__preza7d2arithmeticza7d2appza7f3za7f3za7za7cfa_info2za7007281za7, BGl__prezd2arithmeticzd2appzf3zf3zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2structzd2setz12zd2appzd2envz12zzcfa_info2z00, BgL_bgl__makeza7d2structza7d2setza712za7d2appza7c0za7za7cfa_info2za7007282z00, BGl__makezd2structzd2setz12zd2appzc0zzcfa_info2z00, 0L, 7 );
DEFINE_EXPORT_PROCEDURE( BGl_prezd2makezd2procedurezd2appzf3zd2envzf3zzcfa_info2z00, BgL_bgl__preza7d2makeza7d2procedureza7d2appza7f3za721za7za7cfa_info2za7007283z00, BGl__prezd2makezd2procedurezd2appzf3z21zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2prezd2arithmeticzd2appz12zd2envz12zzcfa_info2z00, BgL_bgl__fillza7d2preza7d2arithmeticza7d2appza712za7c0za7za7cfa_info2za7007284z00, BGl__fillzd2prezd2arithmeticzd2appz12zc0zzcfa_info2z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2structzd2setz12zd2appz12zd2envz00zzcfa_info2z00, BgL_bgl__fillza7d2structza7d2setza712za7d2appza712za7d2za7za7cfa_info2za7007285za7, BGl__fillzd2structzd2setz12zd2appz12zd2zzcfa_info2z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2procedurezd2refzd2appzd2envz00zzcfa_info2z00, BgL_bgl__allocateza7d2procedureza7d2refza7d2appza7d2za7za7cfa_info2za7007286za7, BGl__allocatezd2procedurezd2refzd2appzd2zzcfa_info2z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_structzd2setz12zd2appzf3zd2envz33zzcfa_info2z00, BgL_bgl__structza7d2setza712za7d2appza7f3za7e1za7za7cfa_info2za7007287z00, BGl__structzd2setz12zd2appzf3ze1zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2prezd2makezd2structzd2appzd2envzd2zzcfa_info2z00, BgL_bgl__allocateza7d2preza7d2makeza7d2structza7d2appza700za7za7cfa_info2za7007288z00, BGl__allocatezd2prezd2makezd2structzd2appz00zzcfa_info2z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2procedurezd2refzd2appz12zd2envz12zzcfa_info2z00, BgL_bgl__fillza7d2procedureza7d2refza7d2appza712za7c0za7za7cfa_info2za7007289z00, BGl__fillzd2procedurezd2refzd2appz12zc0zzcfa_info2z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2prezd2procedurezd2setz12zd2appz12zd2envzd2zzcfa_info2z00, BgL_bgl__fillza7d2preza7d2procedureza7d2setza712za7d2appza712za700za7za7cfa_info2za7007290z00, BGl__fillzd2prezd2procedurezd2setz12zd2appz12z00zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_procedurezd2setz12zd2appzf3zd2envz33zzcfa_info2z00, BgL_bgl__procedureza7d2setza712za7d2appza7f3za7e1za7za7cfa_info2za7007291z00, BGl__procedurezd2setz12zd2appzf3ze1zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2structzd2refzd2appz12zd2envz12zzcfa_info2z00, BgL_bgl__fillza7d2structza7d2refza7d2appza712za7c0za7za7cfa_info2za7007292z00, BGl__fillzd2structzd2refzd2appz12zc0zzcfa_info2z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2prezd2procedurezd2setz12zd2appzd2envzc0zzcfa_info2z00, BgL_bgl__makeza7d2preza7d2procedureza7d2setza712za7d2appza712za7za7cfa_info2za7007293za7, BGl__makezd2prezd2procedurezd2setz12zd2appz12zzcfa_info2z00, 0L, 6 );
DEFINE_STRING( BGl_string7153z00zzcfa_info2z00, BgL_bgl_string7153za700za7za7cfa_info2za7007294z00, "struct-set!-app struct-ref-app make-struct-app pre-struct-set!-app pre-struct-ref-app pre-make-struct-app make-vector-app pre-make-vector-app procedure-set!-app procedure-ref-app make-procedure-app pre-procedure-set!-app pre-procedure-ref-app pre-make-procedure-app arithmetic-app pre-arithmetic-app ", 300 );
DEFINE_EXPORT_PROCEDURE( BGl_procedurezd2refzd2appzf3zd2envz21zzcfa_info2z00, BgL_bgl__procedureza7d2refza7d2appza7f3za7f3za7za7cfa_info2za7007295za7, BGl__procedurezd2refzd2appzf3zf3zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2prezd2makezd2structzd2appz12zd2envzc0zzcfa_info2z00, BgL_bgl__fillza7d2preza7d2makeza7d2structza7d2appza712za712za7za7cfa_info2za7007296za7, BGl__fillzd2prezd2makezd2structzd2appz12z12zzcfa_info2z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2makezd2procedurezd2appzd2envz00zzcfa_info2z00, BgL_bgl__makeza7d2makeza7d2procedureza7d2appza7d2za7za7cfa_info2za7007297za7, BGl__makezd2makezd2procedurezd2appzd2zzcfa_info2z00, 0L, 14 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2makezd2vectorzd2appz12zd2envz12zzcfa_info2z00, BgL_bgl__fillza7d2makeza7d2vectorza7d2appza712za7c0za7za7cfa_info2za7007298z00, BGl__fillzd2makezd2vectorzd2appz12zc0zzcfa_info2z00, 0L, 7 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2vectorzd2appzf3zd2envz21zzcfa_info2z00, BgL_bgl__makeza7d2vectorza7d2appza7f3za7f3za7za7cfa_info2za7007299za7, BGl__makezd2vectorzd2appzf3zf3zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2makezd2procedurezd2appz12zd2envz12zzcfa_info2z00, BgL_bgl__fillza7d2makeza7d2procedureza7d2appza712za7c0za7za7cfa_info2za7007300z00, BGl__fillzd2makezd2procedurezd2appz12zc0zzcfa_info2z00, 0L, 9 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2prezd2procedurezd2setz12zd2appzd2envzc0zzcfa_info2z00, BgL_bgl__wideningza7d2preza7d2procedureza7d2setza712za7d2appza712za7za7cfa_info2za7007301za7, BGl__wideningzd2prezd2procedurezd2setz12zd2appz12zzcfa_info2z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_structzd2refzd2appzf3zd2envz21zzcfa_info2z00, BgL_bgl__structza7d2refza7d2appza7f3za7f3za7za7cfa_info2za7007302za7, BGl__structzd2refzd2appzf3zf3zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_prezd2makezd2structzd2appzf3zd2envzf3zzcfa_info2z00, BgL_bgl__preza7d2makeza7d2structza7d2appza7f3za721za7za7cfa_info2za7007303z00, BGl__prezd2makezd2structzd2appzf3z21zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_prezd2makezd2vectorzd2appzf3zd2envzf3zzcfa_info2z00, BgL_bgl__preza7d2makeza7d2vectorza7d2appza7f3za721za7za7cfa_info2za7007304z00, BGl__prezd2makezd2vectorzd2appzf3z21zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2arithmeticzd2appz12zd2envzc0zzcfa_info2z00, BgL_bgl__fillza7d2arithmeticza7d2appza712za712za7za7cfa_info2za7007305za7, BGl__fillzd2arithmeticzd2appz12z12zzcfa_info2z00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2prezd2arithmeticzd2appzd2envz00zzcfa_info2z00, BgL_bgl__wideningza7d2preza7d2arithmeticza7d2app6258za7d2za7za7cfa_info2za7007306za7, BGl__wideningzd2prezd2arithmeticzd2app6258zd2zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2prezd2makezd2procedurezd2appzd2envzd2zzcfa_info2z00, BgL_bgl__allocateza7d2preza7d2makeza7d2procedureza7d2appza700za7za7cfa_info2za7007307z00, BGl__allocatezd2prezd2makezd2procedurezd2appz00zzcfa_info2z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2prezd2makezd2structzd2appzd2envzd2zzcfa_info2z00, BgL_bgl__makeza7d2preza7d2makeza7d2structza7d2appza700za7za7cfa_info2za7007308z00, BGl__makezd2prezd2makezd2structzd2appz00zzcfa_info2z00, 0L, 7 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2prezd2arithmeticzd2appzd2envz00zzcfa_info2z00, BgL_bgl__makeza7d2preza7d2arithmeticza7d2appza7d2za7za7cfa_info2za7007309za7, BGl__makezd2prezd2arithmeticzd2appzd2zzcfa_info2z00, 0L, 7 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2makezd2vectorzd2appzd2envz00zzcfa_info2z00, BgL_bgl__wideningza7d2makeza7d2vectorza7d2app6215za7d2za7za7cfa_info2za7007310za7, BGl__wideningzd2makezd2vectorzd2app6215zd2zzcfa_info2z00, 0L, 6 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2prezd2structzd2refzd2appz12zd2envzc0zzcfa_info2z00, BgL_bgl__fillza7d2preza7d2structza7d2refza7d2appza712za712za7za7cfa_info2za7007311za7, BGl__fillzd2prezd2structzd2refzd2appz12z12zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2prezd2makezd2vectorzd2appzd2envzd2zzcfa_info2z00, BgL_bgl__allocateza7d2preza7d2makeza7d2vectorza7d2appza700za7za7cfa_info2za7007312z00, BGl__allocatezd2prezd2makezd2vectorzd2appz00zzcfa_info2z00, 0L, 0 );
BGL_IMPORT obj_t BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00;
DEFINE_EXPORT_PROCEDURE( BGl_makezd2prezd2structzd2refzd2appzd2envzd2zzcfa_info2z00, BgL_bgl__makeza7d2preza7d2structza7d2refza7d2appza700za7za7cfa_info2za7007313z00, BGl__makezd2prezd2structzd2refzd2appz00zzcfa_info2z00, 0L, 6 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2prezd2structzd2setz12zd2appzd2envzc0zzcfa_info2z00, BgL_bgl__wideningza7d2preza7d2structza7d2setza712za7d2appza712za7za7cfa_info2za7007314za7, BGl__wideningzd2prezd2structzd2setz12zd2appz12zzcfa_info2z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2prezd2makezd2vectorzd2appz12zd2envzc0zzcfa_info2z00, BgL_bgl__fillza7d2preza7d2makeza7d2vectorza7d2appza712za712za7za7cfa_info2za7007315za7, BGl__fillzd2prezd2makezd2vectorzd2appz12z12zzcfa_info2z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2prezd2structzd2refzd2appzd2envzd2zzcfa_info2z00, BgL_bgl__wideningza7d2preza7d2structza7d2refza7d2appza700za7za7cfa_info2za7007316z00, BGl__wideningzd2prezd2structzd2refzd2appz00zzcfa_info2z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2prezd2makezd2procedurezd2appzd2envzd2zzcfa_info2z00, BgL_bgl__makeza7d2preza7d2makeza7d2procedureza7d2appza700za7za7cfa_info2za7007317z00, BGl__makezd2prezd2makezd2procedurezd2appz00zzcfa_info2z00, 0L, 7 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2prezd2structzd2setz12zd2appz12zd2envzd2zzcfa_info2z00, BgL_bgl__fillza7d2preza7d2structza7d2setza712za7d2appza712za700za7za7cfa_info2za7007318z00, BGl__fillzd2prezd2structzd2setz12zd2appz12z00zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2procedurezd2refzd2appzd2envz00zzcfa_info2z00, BgL_bgl__wideningza7d2procedureza7d2refza7d2app6230za7d2za7za7cfa_info2za7007319za7, BGl__wideningzd2procedurezd2refzd2app6230zd2zzcfa_info2z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2arithmeticzd2appzd2envzd2zzcfa_info2z00, BgL_bgl__wideningza7d2arithmeticza7d2app6253za700za7za7cfa_info2za7007320z00, BGl__wideningzd2arithmeticzd2app6253z00zzcfa_info2z00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzcfa_info2z00(long BgL_checksumz00_3981, char * BgL_fromz00_3982)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzcfa_info2z00))
{ 
BGl_requirezd2initializa7ationz75zzcfa_info2z00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzcfa_info2z00(); 
BGl_cnstzd2initzd2zzcfa_info2z00(); 
BGl_importedzd2moduleszd2initz00zzcfa_info2z00(); 
BGl_objectzd2initzd2zzcfa_info2z00(); 
BGl_methodzd2initzd2zzcfa_info2z00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



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



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzcfa_info2z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 16 */
{ /* ./Cfa/cinfo2.scm 16 */
obj_t BgL_cportz00_3699;
BgL_cportz00_3699 = 
open_input_string(BGl_string7153z00zzcfa_info2z00); 
{ 
long BgL_iz00_3700;
BgL_iz00_3700 = ((long)15); 
BgL_loopz00_3701:
{ /* ./Cfa/cinfo2.scm 16 */
bool_t BgL_test7155z00_3702;
BgL_test7155z00_3702 = 
(BgL_iz00_3700==((long)-1)); 
if(BgL_test7155z00_3702)
{ /* ./Cfa/cinfo2.scm 16 */
return BUNSPEC;}  else 
{ /* ./Cfa/cinfo2.scm 16 */
{ /* ./Cfa/cinfo2.scm 16 */
obj_t BgL_arg7157z00_3703;
{ /* ./Cfa/cinfo2.scm 16 */
obj_t BgL_list7160z00_3704;
BgL_list7160z00_3704 = 
MAKE_PAIR(BgL_cportz00_3699, BNIL); 
BgL_arg7157z00_3703 = 
BGl_readz00zz__readerz00(BgL_list7160z00_3704); } 
{ /* ./Cfa/cinfo2.scm 16 */
int BgL_auxz00_3998;
BgL_auxz00_3998 = 
(int)(BgL_iz00_3700); 
CNST_TABLE_SET(BgL_auxz00_3998, BgL_arg7157z00_3703); } } 
{ /* ./Cfa/cinfo2.scm 16 */
int BgL_auxz00_3705;
{ /* ./Cfa/cinfo2.scm 16 */
long BgL_auxz00_4001;
BgL_auxz00_4001 = 
(BgL_iz00_3700-((long)1)); 
BgL_auxz00_3705 = 
(int)(BgL_auxz00_4001); } 
{ 
long BgL_iz00_4004;
BgL_iz00_4004 = 
(long)(BgL_auxz00_3705); 
BgL_iz00_3700 = BgL_iz00_4004; 
goto BgL_loopz00_3701;} } } } } } } 
}



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



/* object-init */
obj_t BGl_objectzd2initzd2zzcfa_info2z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 16 */
{ /* ./Cfa/cinfo2.scm 25 */
obj_t BgL_arg4343z00_1124;obj_t BgL_arg4344z00_1125;obj_t BgL_arg4348z00_1129;
BgL_arg4343z00_1124 = 
CNST_TABLE_REF(((long)0)); 
BgL_arg4344z00_1125 = BGl_appz00zzast_nodez00; 
{ /* ./Cfa/cinfo2.scm 25 */
obj_t BgL_v4258z00_1130;
{ 
int BgL_auxz00_4007;
BgL_auxz00_4007 = 
(int)(((long)0)); 
BgL_v4258z00_1130 = 
create_vector(BgL_auxz00_4007); } 
BgL_arg4348z00_1129 = BgL_v4258z00_1130; } 
BGl_prezd2arithmeticzd2appz00zzcfa_info2z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4343z00_1124, BgL_arg4344z00_1125, BFALSE, BGl_allocatezd2prezd2arithmeticzd2appzd2envz00zzcfa_info2z00, ((long)21105), BNIL, BFALSE, BgL_arg4348z00_1129); } 
{ /* ./Cfa/cinfo2.scm 27 */
obj_t BgL_arg4352z00_1131;obj_t BgL_arg4353z00_1132;obj_t BgL_arg4358z00_1136;
BgL_arg4352z00_1131 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg4353z00_1132 = BGl_appz00zzast_nodez00; 
{ /* ./Cfa/cinfo2.scm 27 */
obj_t BgL_v4259z00_1137;
{ 
int BgL_auxz00_4012;
BgL_auxz00_4012 = 
(int)(((long)0)); 
BgL_v4259z00_1137 = 
create_vector(BgL_auxz00_4012); } 
BgL_arg4358z00_1136 = BgL_v4259z00_1137; } 
BGl_arithmeticzd2appzd2zzcfa_info2z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4352z00_1131, BgL_arg4353z00_1132, BFALSE, BGl_allocatezd2arithmeticzd2appzd2envzd2zzcfa_info2z00, ((long)8885), BNIL, BFALSE, BgL_arg4358z00_1136); } 
{ /* ./Cfa/cinfo2.scm 32 */
obj_t BgL_arg4362z00_1138;obj_t BgL_arg4363z00_1139;obj_t BgL_arg4367z00_1143;
BgL_arg4362z00_1138 = 
CNST_TABLE_REF(((long)2)); 
BgL_arg4363z00_1139 = BGl_appz00zzast_nodez00; 
{ /* ./Cfa/cinfo2.scm 32 */
obj_t BgL_v4260z00_1144;
{ 
int BgL_auxz00_4017;
BgL_auxz00_4017 = 
(int)(((long)0)); 
BgL_v4260z00_1144 = 
create_vector(BgL_auxz00_4017); } 
BgL_arg4367z00_1143 = BgL_v4260z00_1144; } 
BGl_prezd2makezd2procedurezd2appzd2zzcfa_info2z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4362z00_1138, BgL_arg4363z00_1139, BFALSE, BGl_allocatezd2prezd2makezd2procedurezd2appzd2envzd2zzcfa_info2z00, ((long)43707), BNIL, BFALSE, BgL_arg4367z00_1143); } 
{ /* ./Cfa/cinfo2.scm 35 */
obj_t BgL_arg4371z00_1145;obj_t BgL_arg4373z00_1146;obj_t BgL_arg4377z00_1150;
BgL_arg4371z00_1145 = 
CNST_TABLE_REF(((long)3)); 
BgL_arg4373z00_1146 = BGl_appz00zzast_nodez00; 
{ /* ./Cfa/cinfo2.scm 35 */
obj_t BgL_v4261z00_1151;
{ 
int BgL_auxz00_4022;
BgL_auxz00_4022 = 
(int)(((long)0)); 
BgL_v4261z00_1151 = 
create_vector(BgL_auxz00_4022); } 
BgL_arg4377z00_1150 = BgL_v4261z00_1151; } 
BGl_prezd2procedurezd2refzd2appzd2zzcfa_info2z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4371z00_1145, BgL_arg4373z00_1146, BFALSE, BGl_allocatezd2prezd2procedurezd2refzd2appzd2envzd2zzcfa_info2z00, ((long)64861), BNIL, BFALSE, BgL_arg4377z00_1150); } 
{ /* ./Cfa/cinfo2.scm 36 */
obj_t BgL_arg4381z00_1152;obj_t BgL_arg4382z00_1153;obj_t BgL_arg4386z00_1157;
BgL_arg4381z00_1152 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg4382z00_1153 = BGl_appz00zzast_nodez00; 
{ /* ./Cfa/cinfo2.scm 36 */
obj_t BgL_v4262z00_1158;
{ 
int BgL_auxz00_4027;
BgL_auxz00_4027 = 
(int)(((long)0)); 
BgL_v4262z00_1158 = 
create_vector(BgL_auxz00_4027); } 
BgL_arg4386z00_1157 = BgL_v4262z00_1158; } 
BGl_prezd2procedurezd2setz12zd2appzc0zzcfa_info2z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4381z00_1152, BgL_arg4382z00_1153, BFALSE, BGl_allocatezd2prezd2procedurezd2setz12zd2appzd2envzc0zzcfa_info2z00, ((long)46349), BNIL, BFALSE, BgL_arg4386z00_1157); } 
{ /* ./Cfa/cinfo2.scm 38 */
obj_t BgL_arg4390z00_1159;obj_t BgL_arg4391z00_1160;obj_t BgL_arg4395z00_1164;
BgL_arg4390z00_1159 = 
CNST_TABLE_REF(((long)5)); 
BgL_arg4391z00_1160 = BGl_appz00zzast_nodez00; 
{ /* ./Cfa/cinfo2.scm 38 */
obj_t BgL_v4263z00_1165;
{ 
int BgL_auxz00_4032;
BgL_auxz00_4032 = 
(int)(((long)0)); 
BgL_v4263z00_1165 = 
create_vector(BgL_auxz00_4032); } 
BgL_arg4395z00_1164 = BgL_v4263z00_1165; } 
BGl_makezd2procedurezd2appz00zzcfa_info2z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4390z00_1159, BgL_arg4391z00_1160, BFALSE, BGl_allocatezd2makezd2procedurezd2appzd2envz00zzcfa_info2z00, ((long)30421), BNIL, BFALSE, BgL_arg4395z00_1164); } 
{ /* ./Cfa/cinfo2.scm 55 */
obj_t BgL_arg4399z00_1166;obj_t BgL_arg4400z00_1167;obj_t BgL_arg4404z00_1171;
BgL_arg4399z00_1166 = 
CNST_TABLE_REF(((long)6)); 
BgL_arg4400z00_1167 = BGl_appz00zzast_nodez00; 
{ /* ./Cfa/cinfo2.scm 55 */
obj_t BgL_v4264z00_1172;
{ 
int BgL_auxz00_4037;
BgL_auxz00_4037 = 
(int)(((long)0)); 
BgL_v4264z00_1172 = 
create_vector(BgL_auxz00_4037); } 
BgL_arg4404z00_1171 = BgL_v4264z00_1172; } 
BGl_procedurezd2refzd2appz00zzcfa_info2z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4399z00_1166, BgL_arg4400z00_1167, BFALSE, BGl_allocatezd2procedurezd2refzd2appzd2envz00zzcfa_info2z00, ((long)10489), BNIL, BFALSE, BgL_arg4404z00_1171); } 
{ /* ./Cfa/cinfo2.scm 56 */
obj_t BgL_arg4409z00_1173;obj_t BgL_arg4410z00_1174;obj_t BgL_arg4414z00_1178;
BgL_arg4409z00_1173 = 
CNST_TABLE_REF(((long)7)); 
BgL_arg4410z00_1174 = BGl_appz00zzast_nodez00; 
{ /* ./Cfa/cinfo2.scm 56 */
obj_t BgL_v4265z00_1179;
{ 
int BgL_auxz00_4042;
BgL_auxz00_4042 = 
(int)(((long)0)); 
BgL_v4265z00_1179 = 
create_vector(BgL_auxz00_4042); } 
BgL_arg4414z00_1178 = BgL_v4265z00_1179; } 
BGl_procedurezd2setz12zd2appz12zzcfa_info2z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4409z00_1173, BgL_arg4410z00_1174, BFALSE, BGl_allocatezd2procedurezd2setz12zd2appzd2envz12zzcfa_info2z00, ((long)4009), BNIL, BFALSE, BgL_arg4414z00_1178); } 
{ /* ./Cfa/cinfo2.scm 59 */
obj_t BgL_arg4418z00_1180;obj_t BgL_arg4419z00_1181;obj_t BgL_arg4423z00_1185;
BgL_arg4418z00_1180 = 
CNST_TABLE_REF(((long)8)); 
BgL_arg4419z00_1181 = BGl_appz00zzast_nodez00; 
{ /* ./Cfa/cinfo2.scm 59 */
obj_t BgL_v4266z00_1186;
{ 
int BgL_auxz00_4047;
BgL_auxz00_4047 = 
(int)(((long)0)); 
BgL_v4266z00_1186 = 
create_vector(BgL_auxz00_4047); } 
BgL_arg4423z00_1185 = BgL_v4266z00_1186; } 
BGl_prezd2makezd2vectorzd2appzd2zzcfa_info2z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4418z00_1180, BgL_arg4419z00_1181, BFALSE, BGl_allocatezd2prezd2makezd2vectorzd2appzd2envzd2zzcfa_info2z00, ((long)3933), BNIL, BFALSE, BgL_arg4423z00_1185); } 
{ /* ./Cfa/cinfo2.scm 63 */
obj_t BgL_arg4427z00_1187;obj_t BgL_arg4428z00_1188;obj_t BgL_arg4432z00_1192;
BgL_arg4427z00_1187 = 
CNST_TABLE_REF(((long)9)); 
BgL_arg4428z00_1188 = BGl_appz00zzast_nodez00; 
{ /* ./Cfa/cinfo2.scm 63 */
obj_t BgL_v4267z00_1193;
{ 
int BgL_auxz00_4052;
BgL_auxz00_4052 = 
(int)(((long)0)); 
BgL_v4267z00_1193 = 
create_vector(BgL_auxz00_4052); } 
BgL_arg4432z00_1192 = BgL_v4267z00_1193; } 
BGl_makezd2vectorzd2appz00zzcfa_info2z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4427z00_1187, BgL_arg4428z00_1188, BFALSE, BGl_allocatezd2makezd2vectorzd2appzd2envz00zzcfa_info2z00, ((long)4865), BNIL, BFALSE, BgL_arg4432z00_1192); } 
{ /* ./Cfa/cinfo2.scm 86 */
obj_t BgL_arg4436z00_1194;obj_t BgL_arg4437z00_1195;obj_t BgL_arg4441z00_1199;
BgL_arg4436z00_1194 = 
CNST_TABLE_REF(((long)10)); 
BgL_arg4437z00_1195 = BGl_appz00zzast_nodez00; 
{ /* ./Cfa/cinfo2.scm 86 */
obj_t BgL_v4268z00_1200;
{ 
int BgL_auxz00_4057;
BgL_auxz00_4057 = 
(int)(((long)0)); 
BgL_v4268z00_1200 = 
create_vector(BgL_auxz00_4057); } 
BgL_arg4441z00_1199 = BgL_v4268z00_1200; } 
BGl_prezd2makezd2structzd2appzd2zzcfa_info2z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4436z00_1194, BgL_arg4437z00_1195, BFALSE, BGl_allocatezd2prezd2makezd2structzd2appzd2envzd2zzcfa_info2z00, ((long)10895), BNIL, BFALSE, BgL_arg4441z00_1199); } 
{ /* ./Cfa/cinfo2.scm 89 */
obj_t BgL_arg4445z00_1201;obj_t BgL_arg4446z00_1202;obj_t BgL_arg4450z00_1206;
BgL_arg4445z00_1201 = 
CNST_TABLE_REF(((long)11)); 
BgL_arg4446z00_1202 = BGl_appz00zzast_nodez00; 
{ /* ./Cfa/cinfo2.scm 89 */
obj_t BgL_v4269z00_1207;
{ 
int BgL_auxz00_4062;
BgL_auxz00_4062 = 
(int)(((long)0)); 
BgL_v4269z00_1207 = 
create_vector(BgL_auxz00_4062); } 
BgL_arg4450z00_1206 = BgL_v4269z00_1207; } 
BGl_prezd2structzd2refzd2appzd2zzcfa_info2z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4445z00_1201, BgL_arg4446z00_1202, BFALSE, BGl_allocatezd2prezd2structzd2refzd2appzd2envzd2zzcfa_info2z00, ((long)30289), BNIL, BFALSE, BgL_arg4450z00_1206); } 
{ /* ./Cfa/cinfo2.scm 90 */
obj_t BgL_arg4454z00_1208;obj_t BgL_arg4455z00_1209;obj_t BgL_arg4460z00_1213;
BgL_arg4454z00_1208 = 
CNST_TABLE_REF(((long)12)); 
BgL_arg4455z00_1209 = BGl_appz00zzast_nodez00; 
{ /* ./Cfa/cinfo2.scm 90 */
obj_t BgL_v4270z00_1214;
{ 
int BgL_auxz00_4067;
BgL_auxz00_4067 = 
(int)(((long)0)); 
BgL_v4270z00_1214 = 
create_vector(BgL_auxz00_4067); } 
BgL_arg4460z00_1213 = BgL_v4270z00_1214; } 
BGl_prezd2structzd2setz12zd2appzc0zzcfa_info2z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4454z00_1208, BgL_arg4455z00_1209, BFALSE, BGl_allocatezd2prezd2structzd2setz12zd2appzd2envzc0zzcfa_info2z00, ((long)62881), BNIL, BFALSE, BgL_arg4460z00_1213); } 
{ /* ./Cfa/cinfo2.scm 92 */
obj_t BgL_arg4464z00_1215;obj_t BgL_arg4465z00_1216;obj_t BgL_arg4469z00_1220;
BgL_arg4464z00_1215 = 
CNST_TABLE_REF(((long)13)); 
BgL_arg4465z00_1216 = BGl_appz00zzast_nodez00; 
{ /* ./Cfa/cinfo2.scm 92 */
obj_t BgL_v4271z00_1221;
{ 
int BgL_auxz00_4072;
BgL_auxz00_4072 = 
(int)(((long)0)); 
BgL_v4271z00_1221 = 
create_vector(BgL_auxz00_4072); } 
BgL_arg4469z00_1220 = BgL_v4271z00_1221; } 
BGl_makezd2structzd2appz00zzcfa_info2z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4464z00_1215, BgL_arg4465z00_1216, BFALSE, BGl_allocatezd2makezd2structzd2appzd2envz00zzcfa_info2z00, ((long)4473), BNIL, BFALSE, BgL_arg4469z00_1220); } 
{ /* ./Cfa/cinfo2.scm 104 */
obj_t BgL_arg4474z00_1222;obj_t BgL_arg4475z00_1223;obj_t BgL_arg4479z00_1227;
BgL_arg4474z00_1222 = 
CNST_TABLE_REF(((long)14)); 
BgL_arg4475z00_1223 = BGl_appz00zzast_nodez00; 
{ /* ./Cfa/cinfo2.scm 104 */
obj_t BgL_v4272z00_1228;
{ 
int BgL_auxz00_4077;
BgL_auxz00_4077 = 
(int)(((long)0)); 
BgL_v4272z00_1228 = 
create_vector(BgL_auxz00_4077); } 
BgL_arg4479z00_1227 = BgL_v4272z00_1228; } 
BGl_structzd2refzd2appz00zzcfa_info2z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4474z00_1222, BgL_arg4475z00_1223, BFALSE, BGl_allocatezd2structzd2refzd2appzd2envz00zzcfa_info2z00, ((long)60013), BNIL, BFALSE, BgL_arg4479z00_1227); } 
{ /* ./Cfa/cinfo2.scm 105 */
obj_t BgL_arg4483z00_1229;obj_t BgL_arg4484z00_1230;obj_t BgL_arg4488z00_1234;
BgL_arg4483z00_1229 = 
CNST_TABLE_REF(((long)15)); 
BgL_arg4484z00_1230 = BGl_appz00zzast_nodez00; 
{ /* ./Cfa/cinfo2.scm 105 */
obj_t BgL_v4273z00_1235;
{ 
int BgL_auxz00_4082;
BgL_auxz00_4082 = 
(int)(((long)0)); 
BgL_v4273z00_1235 = 
create_vector(BgL_auxz00_4082); } 
BgL_arg4488z00_1234 = BgL_v4273z00_1235; } 
BGl_structzd2setz12zd2appz12zzcfa_info2z00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg4483z00_1229, BgL_arg4484z00_1230, BFALSE, BGl_allocatezd2structzd2setz12zd2appzd2envz12zzcfa_info2z00, ((long)62973), BNIL, BFALSE, BgL_arg4488z00_1234); } 
return BUNSPEC;} 
}



/* struct-set!-app? */
BGL_EXPORTED_DEF bool_t BGl_structzd2setz12zd2appzf3ze1zzcfa_info2z00(obj_t BgL_obj4240z00_1)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 105 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj4240z00_1, BGl_structzd2setz12zd2appz12zzcfa_info2z00);} 
}



/* _struct-set!-app? */
obj_t BGl__structzd2setz12zd2appzf3ze1zzcfa_info2z00(obj_t BgL_envz00_3303, obj_t BgL_obj4240z00_3304)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 105 */
{ /* ./Cfa/cinfo2.scm 105 */
bool_t BgL_auxz00_4087;
BgL_auxz00_4087 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj4240z00_3304, BGl_structzd2setz12zd2appz12zzcfa_info2z00); 
return 
BBOOL(BgL_auxz00_4087);} } 
}



/* widening-struct-set!-app */
BGL_EXPORTED_DEF BgL_structzd2setz12zd2appz12_bglt BGl_wideningzd2structzd2setz12zd2appzc0zzcfa_info2z00(BgL_approxz00_bglt BgL_approx4217z00_5)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 105 */
{ /* ./Cfa/cinfo2.scm 105 */
BgL_structzd2setz12zd2appz12_bglt BgL_new4218z00_2220;
BgL_new4218z00_2220 = 
((BgL_structzd2setz12zd2appz12_bglt)BREF( GC_MALLOC (sizeof(struct BgL_structzd2setz12zd2appz12_bgl)))); 
{ /* ./Cfa/cinfo2.scm 105 */
BgL_structzd2setz12zd2appz12_bglt BgL_res6094z00_2224;
{ /* ./Cfa/cinfo2.scm 105 */
BgL_structzd2setz12zd2appz12_bglt BgL_new4230z00_2221;
BgL_new4230z00_2221 = BgL_new4218z00_2220; 
{ /* ./Cfa/cinfo2.scm 105 */
BgL_approxz00_bglt BgL_approx4229z00_2223;
BgL_approx4229z00_2223 = BgL_approx4217z00_5; 
((((BgL_structzd2setz12zd2appz12_bglt)CREF(BgL_new4230z00_2221))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx4229z00_2223), BUNSPEC); 
BgL_res6094z00_2224 = BgL_new4230z00_2221; } } BgL_res6094z00_2224; } 
return BgL_new4218z00_2220;} } 
}



/* _widening-struct-set!-app6187 */
obj_t BGl__wideningzd2structzd2setz12zd2app6187zc0zzcfa_info2z00(obj_t BgL_envz00_3305, obj_t BgL_approx4217z00_3306)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 105 */
{ /* ./Cfa/cinfo2.scm 105 */
BgL_structzd2setz12zd2appz12_bglt BgL_auxz00_4092;
BgL_auxz00_4092 = 
BGl_wideningzd2structzd2setz12zd2appzc0zzcfa_info2z00(
(BgL_approxz00_bglt)(BgL_approx4217z00_3306)); 
return 
(obj_t)(BgL_auxz00_4092);} } 
}



/* make-struct-set!-app */
BGL_EXPORTED_DEF BgL_structzd2setz12zd2appz12_bglt BGl_makezd2structzd2setz12zd2appzc0zzcfa_info2z00(obj_t BgL_loc4221z00_6, BgL_typez00_bglt BgL_type4222z00_7, obj_t BgL_sidezd2effectzf34223z21_8, obj_t BgL_key4224z00_9, BgL_varz00_bglt BgL_fun4225z00_10, obj_t BgL_args4226z00_11, BgL_approxz00_bglt BgL_approx4220z00_12)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 105 */
{ /* ./Cfa/cinfo2.scm 105 */
BgL_appz00_bglt BgL_aux4227z00_2225;
BgL_aux4227z00_2225 = 
BGl_makezd2appzd2zzast_nodez00(BgL_loc4221z00_6, BgL_type4222z00_7, BgL_sidezd2effectzf34223z21_8, BgL_key4224z00_9, BgL_fun4225z00_10, BgL_args4226z00_11); 
{ /* ./Cfa/cinfo2.scm 105 */
long BgL_arg4494z00_2226;
BgL_arg4494z00_2226 = 
BGl_classzd2numzd2zz__objectz00(BGl_structzd2setz12zd2appz12zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 105 */
BgL_objectz00_bglt BgL_objz00_2229;
BgL_objz00_2229 = 
(BgL_objectz00_bglt)(BgL_aux4227z00_2225); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2229, BgL_arg4494z00_2226); } } 
{ /* ./Cfa/cinfo2.scm 105 */
BgL_structzd2setz12zd2appz12_bglt BgL_arg4498z00_2227;
{ /* ./Cfa/cinfo2.scm 105 */
BgL_structzd2setz12zd2appz12_bglt BgL_res6096z00_2237;
{ /* ./Cfa/cinfo2.scm 105 */
BgL_structzd2setz12zd2appz12_bglt BgL_new4218z00_2232;
BgL_new4218z00_2232 = 
((BgL_structzd2setz12zd2appz12_bglt)BREF( GC_MALLOC (sizeof(struct BgL_structzd2setz12zd2appz12_bgl)))); 
{ /* ./Cfa/cinfo2.scm 105 */
BgL_structzd2setz12zd2appz12_bglt BgL_res6095z00_2236;
{ /* ./Cfa/cinfo2.scm 105 */
BgL_structzd2setz12zd2appz12_bglt BgL_new4230z00_2233;
BgL_new4230z00_2233 = BgL_new4218z00_2232; 
{ /* ./Cfa/cinfo2.scm 105 */
BgL_approxz00_bglt BgL_approx4229z00_2235;
BgL_approx4229z00_2235 = BgL_approx4220z00_12; 
((((BgL_structzd2setz12zd2appz12_bglt)CREF(BgL_new4230z00_2233))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx4229z00_2235), BUNSPEC); 
BgL_res6095z00_2236 = BgL_new4230z00_2233; } } BgL_res6095z00_2236; } 
BgL_res6096z00_2237 = BgL_new4218z00_2232; } 
BgL_arg4498z00_2227 = BgL_res6096z00_2237; } 
{ /* ./Cfa/cinfo2.scm 105 */
obj_t BgL_auxz00_4104;BgL_objectz00_bglt BgL_auxz00_4102;
BgL_auxz00_4104 = 
(obj_t)(BgL_arg4498z00_2227); 
BgL_auxz00_4102 = 
(BgL_objectz00_bglt)(BgL_aux4227z00_2225); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4102, BgL_auxz00_4104); } } 
{ /* ./Cfa/cinfo2.scm 105 */
BgL_structzd2setz12zd2appz12_bglt BgL_new4228z00_2228;
{ 
BgL_structzd2setz12zd2appz12_bglt BgL_auxz00_4107;
BgL_auxz00_4107 = 
(BgL_structzd2setz12zd2appz12_bglt)(BgL_aux4227z00_2225); 
BgL_new4228z00_2228 = 
((BgL_structzd2setz12zd2appz12_bglt)BgL_auxz00_4107); } 
{ /* ./Cfa/cinfo2.scm 105 */
obj_t BgL_objz00_2238;
BgL_objz00_2238 = 
(obj_t)(BgL_new4228z00_2228); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2238); BUNSPEC; } 
return BgL_new4228z00_2228;} } } 
}



/* _make-struct-set!-app */
obj_t BGl__makezd2structzd2setz12zd2appzc0zzcfa_info2z00(obj_t BgL_envz00_3307, obj_t BgL_loc4221z00_3308, obj_t BgL_type4222z00_3309, obj_t BgL_sidezd2effectzf34223z21_3310, obj_t BgL_key4224z00_3311, obj_t BgL_fun4225z00_3312, obj_t BgL_args4226z00_3313, obj_t BgL_approx4220z00_3314)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 105 */
{ /* ./Cfa/cinfo2.scm 105 */
BgL_structzd2setz12zd2appz12_bglt BgL_auxz00_4112;
BgL_auxz00_4112 = 
BGl_makezd2structzd2setz12zd2appzc0zzcfa_info2z00(BgL_loc4221z00_3308, 
(BgL_typez00_bglt)(BgL_type4222z00_3309), BgL_sidezd2effectzf34223z21_3310, BgL_key4224z00_3311, 
(BgL_varz00_bglt)(BgL_fun4225z00_3312), BgL_args4226z00_3313, 
(BgL_approxz00_bglt)(BgL_approx4220z00_3314)); 
return 
(obj_t)(BgL_auxz00_4112);} } 
}



/* fill-struct-set!-app! */
BGL_EXPORTED_DEF BgL_structzd2setz12zd2appz12_bglt BGl_fillzd2structzd2setz12zd2appz12zd2zzcfa_info2z00(BgL_structzd2setz12zd2appz12_bglt BgL_new4230z00_13, BgL_approxz00_bglt BgL_approx4229z00_14)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 105 */
{ /* ./Cfa/cinfo2.scm 105 */
BgL_approxz00_bglt BgL_approx4229z00_3707;
BgL_approx4229z00_3707 = BgL_approx4229z00_14; 
((((BgL_structzd2setz12zd2appz12_bglt)CREF(BgL_new4230z00_13))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx4229z00_3707), BUNSPEC); 
return BgL_new4230z00_13;} } 
}



/* _fill-struct-set!-app! */
obj_t BGl__fillzd2structzd2setz12zd2appz12zd2zzcfa_info2z00(obj_t BgL_envz00_3315, obj_t BgL_new4230z00_3316, obj_t BgL_approx4229z00_3317)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 105 */
{ /* ./Cfa/cinfo2.scm 105 */
BgL_structzd2setz12zd2appz12_bglt BgL_auxz00_4119;
{ /* ./Cfa/cinfo2.scm 105 */
BgL_structzd2setz12zd2appz12_bglt BgL_res7169z00_3711;
{ /* ./Cfa/cinfo2.scm 105 */
BgL_structzd2setz12zd2appz12_bglt BgL_new4230z00_3708;BgL_approxz00_bglt BgL_approx4229z00_3709;
BgL_new4230z00_3708 = 
(BgL_structzd2setz12zd2appz12_bglt)(BgL_new4230z00_3316); 
BgL_approx4229z00_3709 = 
(BgL_approxz00_bglt)(BgL_approx4229z00_3317); 
{ /* ./Cfa/cinfo2.scm 105 */
BgL_approxz00_bglt BgL_approx4229z00_3710;
BgL_approx4229z00_3710 = BgL_approx4229z00_3709; 
((((BgL_structzd2setz12zd2appz12_bglt)CREF(BgL_new4230z00_3708))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx4229z00_3710), BUNSPEC); 
BgL_res7169z00_3711 = BgL_new4230z00_3708; } } 
BgL_auxz00_4119 = BgL_res7169z00_3711; } 
return 
(obj_t)(BgL_auxz00_4119);} } 
}



/* allocate-struct-set!-app */
BGL_EXPORTED_DEF BgL_appz00_bglt BGl_allocatezd2structzd2setz12zd2appzc0zzcfa_info2z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 105 */
{ /* ./Cfa/cinfo2.scm 105 */
BgL_appz00_bglt BgL_new4233z00_3712;
BgL_new4233z00_3712 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 105 */
long BgL_arg4504z00_3713;
BgL_arg4504z00_3713 = 
BGl_classzd2numzd2zz__objectz00(BGl_structzd2setz12zd2appz12zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 105 */
BgL_objectz00_bglt BgL_objz00_3714;
BgL_objz00_3714 = 
(BgL_objectz00_bglt)(BgL_new4233z00_3712); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3714, BgL_arg4504z00_3713); } } 
{ /* ./Cfa/cinfo2.scm 105 */
BgL_objectz00_bglt BgL_auxz00_4128;
BgL_auxz00_4128 = 
(BgL_objectz00_bglt)(BgL_new4233z00_3712); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4128, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 105 */
obj_t BgL_objz00_3715;
BgL_objz00_3715 = 
(obj_t)(BgL_new4233z00_3712); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3715); BUNSPEC; } 
return BgL_new4233z00_3712;} } 
}



/* _allocate-struct-set!-app */
obj_t BGl__allocatezd2structzd2setz12zd2appzc0zzcfa_info2z00(obj_t BgL_envz00_3302)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 105 */
{ /* ./Cfa/cinfo2.scm 105 */
BgL_appz00_bglt BgL_auxz00_4133;
{ /* ./Cfa/cinfo2.scm 105 */
BgL_appz00_bglt BgL_res7170z00_3720;
{ /* ./Cfa/cinfo2.scm 105 */
BgL_appz00_bglt BgL_new4233z00_3716;
BgL_new4233z00_3716 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 105 */
long BgL_arg4504z00_3717;
BgL_arg4504z00_3717 = 
BGl_classzd2numzd2zz__objectz00(BGl_structzd2setz12zd2appz12zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 105 */
BgL_objectz00_bglt BgL_objz00_3718;
BgL_objz00_3718 = 
(BgL_objectz00_bglt)(BgL_new4233z00_3716); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3718, BgL_arg4504z00_3717); } } 
{ /* ./Cfa/cinfo2.scm 105 */
BgL_objectz00_bglt BgL_auxz00_4138;
BgL_auxz00_4138 = 
(BgL_objectz00_bglt)(BgL_new4233z00_3716); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4138, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 105 */
obj_t BgL_objz00_3719;
BgL_objz00_3719 = 
(obj_t)(BgL_new4233z00_3716); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3719); BUNSPEC; } 
BgL_res7170z00_3720 = BgL_new4233z00_3716; } 
BgL_auxz00_4133 = BgL_res7170z00_3720; } 
return 
(obj_t)(BgL_auxz00_4133);} } 
}



/* struct-ref-app? */
BGL_EXPORTED_DEF bool_t BGl_structzd2refzd2appzf3zf3zzcfa_info2z00(obj_t BgL_obj4199z00_16)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 104 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj4199z00_16, BGl_structzd2refzd2appz00zzcfa_info2z00);} 
}



/* _struct-ref-app? */
obj_t BGl__structzd2refzd2appzf3zf3zzcfa_info2z00(obj_t BgL_envz00_3318, obj_t BgL_obj4199z00_3319)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 104 */
{ /* ./Cfa/cinfo2.scm 104 */
bool_t BgL_auxz00_4145;
BgL_auxz00_4145 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj4199z00_3319, BGl_structzd2refzd2appz00zzcfa_info2z00); 
return 
BBOOL(BgL_auxz00_4145);} } 
}



/* widening-struct-ref-app */
BGL_EXPORTED_DEF BgL_structzd2refzd2appz00_bglt BGl_wideningzd2structzd2refzd2appzd2zzcfa_info2z00(BgL_approxz00_bglt BgL_approx4176z00_20)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 104 */
{ /* ./Cfa/cinfo2.scm 104 */
BgL_structzd2refzd2appz00_bglt BgL_new4177z00_2245;
BgL_new4177z00_2245 = 
((BgL_structzd2refzd2appz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_structzd2refzd2appz00_bgl)))); 
{ /* ./Cfa/cinfo2.scm 104 */
BgL_structzd2refzd2appz00_bglt BgL_res6097z00_2249;
{ /* ./Cfa/cinfo2.scm 104 */
BgL_structzd2refzd2appz00_bglt BgL_new4189z00_2246;
BgL_new4189z00_2246 = BgL_new4177z00_2245; 
{ /* ./Cfa/cinfo2.scm 104 */
BgL_approxz00_bglt BgL_approx4188z00_2248;
BgL_approx4188z00_2248 = BgL_approx4176z00_20; 
((((BgL_structzd2refzd2appz00_bglt)CREF(BgL_new4189z00_2246))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx4188z00_2248), BUNSPEC); 
BgL_res6097z00_2249 = BgL_new4189z00_2246; } } BgL_res6097z00_2249; } 
return BgL_new4177z00_2245;} } 
}



/* _widening-struct-ref-app6192 */
obj_t BGl__wideningzd2structzd2refzd2app6192zd2zzcfa_info2z00(obj_t BgL_envz00_3320, obj_t BgL_approx4176z00_3321)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 104 */
{ /* ./Cfa/cinfo2.scm 104 */
BgL_structzd2refzd2appz00_bglt BgL_auxz00_4150;
BgL_auxz00_4150 = 
BGl_wideningzd2structzd2refzd2appzd2zzcfa_info2z00(
(BgL_approxz00_bglt)(BgL_approx4176z00_3321)); 
return 
(obj_t)(BgL_auxz00_4150);} } 
}



/* make-struct-ref-app */
BGL_EXPORTED_DEF BgL_structzd2refzd2appz00_bglt BGl_makezd2structzd2refzd2appzd2zzcfa_info2z00(obj_t BgL_loc4180z00_21, BgL_typez00_bglt BgL_type4181z00_22, obj_t BgL_sidezd2effectzf34182z21_23, obj_t BgL_key4183z00_24, BgL_varz00_bglt BgL_fun4184z00_25, obj_t BgL_args4185z00_26, BgL_approxz00_bglt BgL_approx4179z00_27)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 104 */
{ /* ./Cfa/cinfo2.scm 104 */
BgL_appz00_bglt BgL_aux4186z00_2250;
BgL_aux4186z00_2250 = 
BGl_makezd2appzd2zzast_nodez00(BgL_loc4180z00_21, BgL_type4181z00_22, BgL_sidezd2effectzf34182z21_23, BgL_key4183z00_24, BgL_fun4184z00_25, BgL_args4185z00_26); 
{ /* ./Cfa/cinfo2.scm 104 */
long BgL_arg4513z00_2251;
BgL_arg4513z00_2251 = 
BGl_classzd2numzd2zz__objectz00(BGl_structzd2refzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 104 */
BgL_objectz00_bglt BgL_objz00_2254;
BgL_objz00_2254 = 
(BgL_objectz00_bglt)(BgL_aux4186z00_2250); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2254, BgL_arg4513z00_2251); } } 
{ /* ./Cfa/cinfo2.scm 104 */
BgL_structzd2refzd2appz00_bglt BgL_arg4517z00_2252;
{ /* ./Cfa/cinfo2.scm 104 */
BgL_structzd2refzd2appz00_bglt BgL_res6099z00_2262;
{ /* ./Cfa/cinfo2.scm 104 */
BgL_structzd2refzd2appz00_bglt BgL_new4177z00_2257;
BgL_new4177z00_2257 = 
((BgL_structzd2refzd2appz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_structzd2refzd2appz00_bgl)))); 
{ /* ./Cfa/cinfo2.scm 104 */
BgL_structzd2refzd2appz00_bglt BgL_res6098z00_2261;
{ /* ./Cfa/cinfo2.scm 104 */
BgL_structzd2refzd2appz00_bglt BgL_new4189z00_2258;
BgL_new4189z00_2258 = BgL_new4177z00_2257; 
{ /* ./Cfa/cinfo2.scm 104 */
BgL_approxz00_bglt BgL_approx4188z00_2260;
BgL_approx4188z00_2260 = BgL_approx4179z00_27; 
((((BgL_structzd2refzd2appz00_bglt)CREF(BgL_new4189z00_2258))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx4188z00_2260), BUNSPEC); 
BgL_res6098z00_2261 = BgL_new4189z00_2258; } } BgL_res6098z00_2261; } 
BgL_res6099z00_2262 = BgL_new4177z00_2257; } 
BgL_arg4517z00_2252 = BgL_res6099z00_2262; } 
{ /* ./Cfa/cinfo2.scm 104 */
obj_t BgL_auxz00_4162;BgL_objectz00_bglt BgL_auxz00_4160;
BgL_auxz00_4162 = 
(obj_t)(BgL_arg4517z00_2252); 
BgL_auxz00_4160 = 
(BgL_objectz00_bglt)(BgL_aux4186z00_2250); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4160, BgL_auxz00_4162); } } 
{ /* ./Cfa/cinfo2.scm 104 */
BgL_structzd2refzd2appz00_bglt BgL_new4187z00_2253;
{ 
BgL_structzd2refzd2appz00_bglt BgL_auxz00_4165;
BgL_auxz00_4165 = 
(BgL_structzd2refzd2appz00_bglt)(BgL_aux4186z00_2250); 
BgL_new4187z00_2253 = 
((BgL_structzd2refzd2appz00_bglt)BgL_auxz00_4165); } 
{ /* ./Cfa/cinfo2.scm 104 */
obj_t BgL_objz00_2263;
BgL_objz00_2263 = 
(obj_t)(BgL_new4187z00_2253); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2263); BUNSPEC; } 
return BgL_new4187z00_2253;} } } 
}



/* _make-struct-ref-app */
obj_t BGl__makezd2structzd2refzd2appzd2zzcfa_info2z00(obj_t BgL_envz00_3322, obj_t BgL_loc4180z00_3323, obj_t BgL_type4181z00_3324, obj_t BgL_sidezd2effectzf34182z21_3325, obj_t BgL_key4183z00_3326, obj_t BgL_fun4184z00_3327, obj_t BgL_args4185z00_3328, obj_t BgL_approx4179z00_3329)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 104 */
{ /* ./Cfa/cinfo2.scm 104 */
BgL_structzd2refzd2appz00_bglt BgL_auxz00_4170;
BgL_auxz00_4170 = 
BGl_makezd2structzd2refzd2appzd2zzcfa_info2z00(BgL_loc4180z00_3323, 
(BgL_typez00_bglt)(BgL_type4181z00_3324), BgL_sidezd2effectzf34182z21_3325, BgL_key4183z00_3326, 
(BgL_varz00_bglt)(BgL_fun4184z00_3327), BgL_args4185z00_3328, 
(BgL_approxz00_bglt)(BgL_approx4179z00_3329)); 
return 
(obj_t)(BgL_auxz00_4170);} } 
}



/* fill-struct-ref-app! */
BGL_EXPORTED_DEF BgL_structzd2refzd2appz00_bglt BGl_fillzd2structzd2refzd2appz12zc0zzcfa_info2z00(BgL_structzd2refzd2appz00_bglt BgL_new4189z00_28, BgL_approxz00_bglt BgL_approx4188z00_29)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 104 */
{ /* ./Cfa/cinfo2.scm 104 */
BgL_approxz00_bglt BgL_approx4188z00_3722;
BgL_approx4188z00_3722 = BgL_approx4188z00_29; 
((((BgL_structzd2refzd2appz00_bglt)CREF(BgL_new4189z00_28))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx4188z00_3722), BUNSPEC); 
return BgL_new4189z00_28;} } 
}



/* _fill-struct-ref-app! */
obj_t BGl__fillzd2structzd2refzd2appz12zc0zzcfa_info2z00(obj_t BgL_envz00_3330, obj_t BgL_new4189z00_3331, obj_t BgL_approx4188z00_3332)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 104 */
{ /* ./Cfa/cinfo2.scm 104 */
BgL_structzd2refzd2appz00_bglt BgL_auxz00_4177;
{ /* ./Cfa/cinfo2.scm 104 */
BgL_structzd2refzd2appz00_bglt BgL_res7171z00_3726;
{ /* ./Cfa/cinfo2.scm 104 */
BgL_structzd2refzd2appz00_bglt BgL_new4189z00_3723;BgL_approxz00_bglt BgL_approx4188z00_3724;
BgL_new4189z00_3723 = 
(BgL_structzd2refzd2appz00_bglt)(BgL_new4189z00_3331); 
BgL_approx4188z00_3724 = 
(BgL_approxz00_bglt)(BgL_approx4188z00_3332); 
{ /* ./Cfa/cinfo2.scm 104 */
BgL_approxz00_bglt BgL_approx4188z00_3725;
BgL_approx4188z00_3725 = BgL_approx4188z00_3724; 
((((BgL_structzd2refzd2appz00_bglt)CREF(BgL_new4189z00_3723))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx4188z00_3725), BUNSPEC); 
BgL_res7171z00_3726 = BgL_new4189z00_3723; } } 
BgL_auxz00_4177 = BgL_res7171z00_3726; } 
return 
(obj_t)(BgL_auxz00_4177);} } 
}



/* allocate-struct-ref-app */
BGL_EXPORTED_DEF BgL_appz00_bglt BGl_allocatezd2structzd2refzd2appzd2zzcfa_info2z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 104 */
{ /* ./Cfa/cinfo2.scm 104 */
BgL_appz00_bglt BgL_new4192z00_3727;
BgL_new4192z00_3727 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 104 */
long BgL_arg4524z00_3728;
BgL_arg4524z00_3728 = 
BGl_classzd2numzd2zz__objectz00(BGl_structzd2refzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 104 */
BgL_objectz00_bglt BgL_objz00_3729;
BgL_objz00_3729 = 
(BgL_objectz00_bglt)(BgL_new4192z00_3727); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3729, BgL_arg4524z00_3728); } } 
{ /* ./Cfa/cinfo2.scm 104 */
BgL_objectz00_bglt BgL_auxz00_4186;
BgL_auxz00_4186 = 
(BgL_objectz00_bglt)(BgL_new4192z00_3727); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4186, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 104 */
obj_t BgL_objz00_3730;
BgL_objz00_3730 = 
(obj_t)(BgL_new4192z00_3727); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3730); BUNSPEC; } 
return BgL_new4192z00_3727;} } 
}



/* _allocate-struct-ref-app */
obj_t BGl__allocatezd2structzd2refzd2appzd2zzcfa_info2z00(obj_t BgL_envz00_3301)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 104 */
{ /* ./Cfa/cinfo2.scm 104 */
BgL_appz00_bglt BgL_auxz00_4191;
{ /* ./Cfa/cinfo2.scm 104 */
BgL_appz00_bglt BgL_res7172z00_3735;
{ /* ./Cfa/cinfo2.scm 104 */
BgL_appz00_bglt BgL_new4192z00_3731;
BgL_new4192z00_3731 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 104 */
long BgL_arg4524z00_3732;
BgL_arg4524z00_3732 = 
BGl_classzd2numzd2zz__objectz00(BGl_structzd2refzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 104 */
BgL_objectz00_bglt BgL_objz00_3733;
BgL_objz00_3733 = 
(BgL_objectz00_bglt)(BgL_new4192z00_3731); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3733, BgL_arg4524z00_3732); } } 
{ /* ./Cfa/cinfo2.scm 104 */
BgL_objectz00_bglt BgL_auxz00_4196;
BgL_auxz00_4196 = 
(BgL_objectz00_bglt)(BgL_new4192z00_3731); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4196, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 104 */
obj_t BgL_objz00_3734;
BgL_objz00_3734 = 
(obj_t)(BgL_new4192z00_3731); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3734); BUNSPEC; } 
BgL_res7172z00_3735 = BgL_new4192z00_3731; } 
BgL_auxz00_4191 = BgL_res7172z00_3735; } 
return 
(obj_t)(BgL_auxz00_4191);} } 
}



/* make-struct-app? */
BGL_EXPORTED_DEF bool_t BGl_makezd2structzd2appzf3zf3zzcfa_info2z00(obj_t BgL_obj4148z00_31)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 92 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj4148z00_31, BGl_makezd2structzd2appz00zzcfa_info2z00);} 
}



/* _make-struct-app? */
obj_t BGl__makezd2structzd2appzf3zf3zzcfa_info2z00(obj_t BgL_envz00_3333, obj_t BgL_obj4148z00_3334)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 92 */
{ /* ./Cfa/cinfo2.scm 92 */
bool_t BgL_auxz00_4203;
BgL_auxz00_4203 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj4148z00_3334, BGl_makezd2structzd2appz00zzcfa_info2z00); 
return 
BBOOL(BgL_auxz00_4203);} } 
}



/* widening-make-struct-app */
BGL_EXPORTED_DEF BgL_makezd2structzd2appz00_bglt BGl_wideningzd2makezd2structzd2appzd2zzcfa_info2z00(BgL_approxz00_bglt BgL_approx4109z00_35, BgL_approxz00_bglt BgL_valuezd2approx4110zd2_36, long BgL_lostzd2stamp4111zd2_37, BgL_variablez00_bglt BgL_owner4112z00_38, obj_t BgL_stackzd2stamp4113zd2_39)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 92 */
{ /* ./Cfa/cinfo2.scm 92 */
BgL_makezd2structzd2appz00_bglt BgL_new4114z00_2270;
BgL_new4114z00_2270 = 
((BgL_makezd2structzd2appz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_makezd2structzd2appz00_bgl)))); 
{ /* ./Cfa/cinfo2.scm 92 */
BgL_makezd2structzd2appz00_bglt BgL_res6100z00_2282;
{ /* ./Cfa/cinfo2.scm 92 */
BgL_makezd2structzd2appz00_bglt BgL_new4134z00_2271;
BgL_new4134z00_2271 = BgL_new4114z00_2270; 
{ /* ./Cfa/cinfo2.scm 92 */
BgL_approxz00_bglt BgL_approx4129z00_2277;BgL_approxz00_bglt BgL_valuezd2approx4130zd2_2278;long BgL_lostzd2stamp4131zd2_2279;BgL_variablez00_bglt BgL_owner4132z00_2280;obj_t BgL_stackzd2stamp4133zd2_2281;
BgL_approx4129z00_2277 = BgL_approx4109z00_35; 
BgL_valuezd2approx4130zd2_2278 = BgL_valuezd2approx4110zd2_36; 
BgL_lostzd2stamp4131zd2_2279 = BgL_lostzd2stamp4111zd2_37; 
BgL_owner4132z00_2280 = BgL_owner4112z00_38; 
BgL_stackzd2stamp4133zd2_2281 = BgL_stackzd2stamp4113zd2_39; 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_2271))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx4129z00_2277), BUNSPEC); 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_2271))->BgL_valuezd2approxzd2) = ((BgL_approxz00_bglt)BgL_valuezd2approx4130zd2_2278), BUNSPEC); 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_2271))->BgL_lostzd2stampzd2) = ((long)BgL_lostzd2stamp4131zd2_2279), BUNSPEC); 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_2271))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner4132z00_2280), BUNSPEC); 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_2271))->BgL_stackzd2stampzd2) = ((obj_t)BgL_stackzd2stamp4133zd2_2281), BUNSPEC); 
BgL_res6100z00_2282 = BgL_new4134z00_2271; } } BgL_res6100z00_2282; } 
return BgL_new4114z00_2270;} } 
}



/* _widening-make-struct-app6197 */
obj_t BGl__wideningzd2makezd2structzd2app6197zd2zzcfa_info2z00(obj_t BgL_envz00_3335, obj_t BgL_approx4109z00_3336, obj_t BgL_valuezd2approx4110zd2_3337, obj_t BgL_lostzd2stamp4111zd2_3338, obj_t BgL_owner4112z00_3339, obj_t BgL_stackzd2stamp4113zd2_3340)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 92 */
{ /* ./Cfa/cinfo2.scm 92 */
BgL_makezd2structzd2appz00_bglt BgL_auxz00_4212;
BgL_auxz00_4212 = 
BGl_wideningzd2makezd2structzd2appzd2zzcfa_info2z00(
(BgL_approxz00_bglt)(BgL_approx4109z00_3336), 
(BgL_approxz00_bglt)(BgL_valuezd2approx4110zd2_3337), 
(long)CINT(BgL_lostzd2stamp4111zd2_3338), 
(BgL_variablez00_bglt)(BgL_owner4112z00_3339), BgL_stackzd2stamp4113zd2_3340); 
return 
(obj_t)(BgL_auxz00_4212);} } 
}



/* make-make-struct-app */
BGL_EXPORTED_DEF BgL_makezd2structzd2appz00_bglt BGl_makezd2makezd2structzd2appzd2zzcfa_info2z00(obj_t BgL_loc4121z00_40, BgL_typez00_bglt BgL_type4122z00_41, obj_t BgL_sidezd2effectzf34123z21_42, obj_t BgL_key4124z00_43, BgL_varz00_bglt BgL_fun4125z00_44, obj_t BgL_args4126z00_45, BgL_approxz00_bglt BgL_approx4116z00_46, BgL_approxz00_bglt BgL_valuezd2approx4117zd2_47, long BgL_lostzd2stamp4118zd2_48, BgL_variablez00_bglt BgL_owner4119z00_49, obj_t BgL_stackzd2stamp4120zd2_50)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 92 */
{ /* ./Cfa/cinfo2.scm 92 */
BgL_appz00_bglt BgL_aux4127z00_2283;
BgL_aux4127z00_2283 = 
BGl_makezd2appzd2zzast_nodez00(BgL_loc4121z00_40, BgL_type4122z00_41, BgL_sidezd2effectzf34123z21_42, BgL_key4124z00_43, BgL_fun4125z00_44, BgL_args4126z00_45); 
{ /* ./Cfa/cinfo2.scm 92 */
long BgL_arg4533z00_2284;
BgL_arg4533z00_2284 = 
BGl_classzd2numzd2zz__objectz00(BGl_makezd2structzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 92 */
BgL_objectz00_bglt BgL_objz00_2287;
BgL_objz00_2287 = 
(BgL_objectz00_bglt)(BgL_aux4127z00_2283); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2287, BgL_arg4533z00_2284); } } 
{ /* ./Cfa/cinfo2.scm 92 */
BgL_makezd2structzd2appz00_bglt BgL_arg4537z00_2285;
{ /* ./Cfa/cinfo2.scm 92 */
BgL_makezd2structzd2appz00_bglt BgL_res6102z00_2307;
{ /* ./Cfa/cinfo2.scm 92 */
BgL_makezd2structzd2appz00_bglt BgL_new4114z00_2294;
BgL_new4114z00_2294 = 
((BgL_makezd2structzd2appz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_makezd2structzd2appz00_bgl)))); 
{ /* ./Cfa/cinfo2.scm 92 */
BgL_makezd2structzd2appz00_bglt BgL_res6101z00_2306;
{ /* ./Cfa/cinfo2.scm 92 */
BgL_makezd2structzd2appz00_bglt BgL_new4134z00_2295;
BgL_new4134z00_2295 = BgL_new4114z00_2294; 
{ /* ./Cfa/cinfo2.scm 92 */
BgL_approxz00_bglt BgL_approx4129z00_2301;BgL_approxz00_bglt BgL_valuezd2approx4130zd2_2302;long BgL_lostzd2stamp4131zd2_2303;BgL_variablez00_bglt BgL_owner4132z00_2304;obj_t BgL_stackzd2stamp4133zd2_2305;
BgL_approx4129z00_2301 = BgL_approx4116z00_46; 
BgL_valuezd2approx4130zd2_2302 = BgL_valuezd2approx4117zd2_47; 
BgL_lostzd2stamp4131zd2_2303 = BgL_lostzd2stamp4118zd2_48; 
BgL_owner4132z00_2304 = BgL_owner4119z00_49; 
BgL_stackzd2stamp4133zd2_2305 = BgL_stackzd2stamp4120zd2_50; 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_2295))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx4129z00_2301), BUNSPEC); 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_2295))->BgL_valuezd2approxzd2) = ((BgL_approxz00_bglt)BgL_valuezd2approx4130zd2_2302), BUNSPEC); 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_2295))->BgL_lostzd2stampzd2) = ((long)BgL_lostzd2stamp4131zd2_2303), BUNSPEC); 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_2295))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner4132z00_2304), BUNSPEC); 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_2295))->BgL_stackzd2stampzd2) = ((obj_t)BgL_stackzd2stamp4133zd2_2305), BUNSPEC); 
BgL_res6101z00_2306 = BgL_new4134z00_2295; } } BgL_res6101z00_2306; } 
BgL_res6102z00_2307 = BgL_new4114z00_2294; } 
BgL_arg4537z00_2285 = BgL_res6102z00_2307; } 
{ /* ./Cfa/cinfo2.scm 92 */
obj_t BgL_auxz00_4231;BgL_objectz00_bglt BgL_auxz00_4229;
BgL_auxz00_4231 = 
(obj_t)(BgL_arg4537z00_2285); 
BgL_auxz00_4229 = 
(BgL_objectz00_bglt)(BgL_aux4127z00_2283); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4229, BgL_auxz00_4231); } } 
{ /* ./Cfa/cinfo2.scm 92 */
BgL_makezd2structzd2appz00_bglt BgL_new4128z00_2286;
{ 
BgL_makezd2structzd2appz00_bglt BgL_auxz00_4234;
BgL_auxz00_4234 = 
(BgL_makezd2structzd2appz00_bglt)(BgL_aux4127z00_2283); 
BgL_new4128z00_2286 = 
((BgL_makezd2structzd2appz00_bglt)BgL_auxz00_4234); } 
{ /* ./Cfa/cinfo2.scm 92 */
obj_t BgL_objz00_2308;
BgL_objz00_2308 = 
(obj_t)(BgL_new4128z00_2286); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2308); BUNSPEC; } 
return BgL_new4128z00_2286;} } } 
}



/* _make-make-struct-app */
obj_t BGl__makezd2makezd2structzd2appzd2zzcfa_info2z00(obj_t BgL_envz00_3341, obj_t BgL_loc4121z00_3342, obj_t BgL_type4122z00_3343, obj_t BgL_sidezd2effectzf34123z21_3344, obj_t BgL_key4124z00_3345, obj_t BgL_fun4125z00_3346, obj_t BgL_args4126z00_3347, obj_t BgL_approx4116z00_3348, obj_t BgL_valuezd2approx4117zd2_3349, obj_t BgL_lostzd2stamp4118zd2_3350, obj_t BgL_owner4119z00_3351, obj_t BgL_stackzd2stamp4120zd2_3352)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 92 */
{ /* ./Cfa/cinfo2.scm 92 */
BgL_makezd2structzd2appz00_bglt BgL_auxz00_4239;
BgL_auxz00_4239 = 
BGl_makezd2makezd2structzd2appzd2zzcfa_info2z00(BgL_loc4121z00_3342, 
(BgL_typez00_bglt)(BgL_type4122z00_3343), BgL_sidezd2effectzf34123z21_3344, BgL_key4124z00_3345, 
(BgL_varz00_bglt)(BgL_fun4125z00_3346), BgL_args4126z00_3347, 
(BgL_approxz00_bglt)(BgL_approx4116z00_3348), 
(BgL_approxz00_bglt)(BgL_valuezd2approx4117zd2_3349), 
(long)CINT(BgL_lostzd2stamp4118zd2_3350), 
(BgL_variablez00_bglt)(BgL_owner4119z00_3351), BgL_stackzd2stamp4120zd2_3352); 
return 
(obj_t)(BgL_auxz00_4239);} } 
}



/* fill-make-struct-app! */
BGL_EXPORTED_DEF BgL_makezd2structzd2appz00_bglt BGl_fillzd2makezd2structzd2appz12zc0zzcfa_info2z00(BgL_makezd2structzd2appz00_bglt BgL_new4134z00_51, BgL_approxz00_bglt BgL_approx4129z00_52, BgL_approxz00_bglt BgL_valuezd2approx4130zd2_53, long BgL_lostzd2stamp4131zd2_54, BgL_variablez00_bglt BgL_owner4132z00_55, obj_t BgL_stackzd2stamp4133zd2_56)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 92 */
{ /* ./Cfa/cinfo2.scm 92 */
BgL_approxz00_bglt BgL_approx4129z00_3737;BgL_approxz00_bglt BgL_valuezd2approx4130zd2_3738;long BgL_lostzd2stamp4131zd2_3739;BgL_variablez00_bglt BgL_owner4132z00_3740;obj_t BgL_stackzd2stamp4133zd2_3741;
BgL_approx4129z00_3737 = BgL_approx4129z00_52; 
BgL_valuezd2approx4130zd2_3738 = BgL_valuezd2approx4130zd2_53; 
BgL_lostzd2stamp4131zd2_3739 = BgL_lostzd2stamp4131zd2_54; 
BgL_owner4132z00_3740 = BgL_owner4132z00_55; 
BgL_stackzd2stamp4133zd2_3741 = BgL_stackzd2stamp4133zd2_56; 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_51))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx4129z00_3737), BUNSPEC); 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_51))->BgL_valuezd2approxzd2) = ((BgL_approxz00_bglt)BgL_valuezd2approx4130zd2_3738), BUNSPEC); 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_51))->BgL_lostzd2stampzd2) = ((long)BgL_lostzd2stamp4131zd2_3739), BUNSPEC); 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_51))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner4132z00_3740), BUNSPEC); 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_51))->BgL_stackzd2stampzd2) = ((obj_t)BgL_stackzd2stamp4133zd2_3741), BUNSPEC); 
return BgL_new4134z00_51;} } 
}



/* _fill-make-struct-app! */
obj_t BGl__fillzd2makezd2structzd2appz12zc0zzcfa_info2z00(obj_t BgL_envz00_3353, obj_t BgL_new4134z00_3354, obj_t BgL_approx4129z00_3355, obj_t BgL_valuezd2approx4130zd2_3356, obj_t BgL_lostzd2stamp4131zd2_3357, obj_t BgL_owner4132z00_3358, obj_t BgL_stackzd2stamp4133zd2_3359)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 92 */
{ /* ./Cfa/cinfo2.scm 92 */
BgL_makezd2structzd2appz00_bglt BgL_auxz00_4253;
{ /* ./Cfa/cinfo2.scm 92 */
BgL_makezd2structzd2appz00_bglt BgL_res7173z00_3753;
{ /* ./Cfa/cinfo2.scm 92 */
BgL_makezd2structzd2appz00_bglt BgL_new4134z00_3742;BgL_approxz00_bglt BgL_approx4129z00_3743;BgL_approxz00_bglt BgL_valuezd2approx4130zd2_3744;long BgL_lostzd2stamp4131zd2_3745;BgL_variablez00_bglt BgL_owner4132z00_3746;
BgL_new4134z00_3742 = 
(BgL_makezd2structzd2appz00_bglt)(BgL_new4134z00_3354); 
BgL_approx4129z00_3743 = 
(BgL_approxz00_bglt)(BgL_approx4129z00_3355); 
BgL_valuezd2approx4130zd2_3744 = 
(BgL_approxz00_bglt)(BgL_valuezd2approx4130zd2_3356); 
BgL_lostzd2stamp4131zd2_3745 = 
(long)CINT(BgL_lostzd2stamp4131zd2_3357); 
BgL_owner4132z00_3746 = 
(BgL_variablez00_bglt)(BgL_owner4132z00_3358); 
{ /* ./Cfa/cinfo2.scm 92 */
BgL_approxz00_bglt BgL_approx4129z00_3748;BgL_approxz00_bglt BgL_valuezd2approx4130zd2_3749;long BgL_lostzd2stamp4131zd2_3750;BgL_variablez00_bglt BgL_owner4132z00_3751;obj_t BgL_stackzd2stamp4133zd2_3752;
BgL_approx4129z00_3748 = BgL_approx4129z00_3743; 
BgL_valuezd2approx4130zd2_3749 = BgL_valuezd2approx4130zd2_3744; 
BgL_lostzd2stamp4131zd2_3750 = BgL_lostzd2stamp4131zd2_3745; 
BgL_owner4132z00_3751 = BgL_owner4132z00_3746; 
BgL_stackzd2stamp4133zd2_3752 = BgL_stackzd2stamp4133zd2_3359; 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_3742))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx4129z00_3748), BUNSPEC); 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_3742))->BgL_valuezd2approxzd2) = ((BgL_approxz00_bglt)BgL_valuezd2approx4130zd2_3749), BUNSPEC); 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_3742))->BgL_lostzd2stampzd2) = ((long)BgL_lostzd2stamp4131zd2_3750), BUNSPEC); 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_3742))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner4132z00_3751), BUNSPEC); 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_3742))->BgL_stackzd2stampzd2) = ((obj_t)BgL_stackzd2stamp4133zd2_3752), BUNSPEC); 
BgL_res7173z00_3753 = BgL_new4134z00_3742; } } 
BgL_auxz00_4253 = BgL_res7173z00_3753; } 
return 
(obj_t)(BgL_auxz00_4253);} } 
}



/* allocate-make-struct-app */
BGL_EXPORTED_DEF BgL_appz00_bglt BGl_allocatezd2makezd2structzd2appzd2zzcfa_info2z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 92 */
{ /* ./Cfa/cinfo2.scm 92 */
BgL_appz00_bglt BgL_new4141z00_3754;
BgL_new4141z00_3754 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 92 */
long BgL_arg4543z00_3755;
BgL_arg4543z00_3755 = 
BGl_classzd2numzd2zz__objectz00(BGl_makezd2structzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 92 */
BgL_objectz00_bglt BgL_objz00_3756;
BgL_objz00_3756 = 
(BgL_objectz00_bglt)(BgL_new4141z00_3754); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3756, BgL_arg4543z00_3755); } } 
{ /* ./Cfa/cinfo2.scm 92 */
BgL_objectz00_bglt BgL_auxz00_4269;
BgL_auxz00_4269 = 
(BgL_objectz00_bglt)(BgL_new4141z00_3754); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4269, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 92 */
obj_t BgL_objz00_3757;
BgL_objz00_3757 = 
(obj_t)(BgL_new4141z00_3754); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3757); BUNSPEC; } 
return BgL_new4141z00_3754;} } 
}



/* _allocate-make-struct-app */
obj_t BGl__allocatezd2makezd2structzd2appzd2zzcfa_info2z00(obj_t BgL_envz00_3300)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 92 */
{ /* ./Cfa/cinfo2.scm 92 */
BgL_appz00_bglt BgL_auxz00_4274;
{ /* ./Cfa/cinfo2.scm 92 */
BgL_appz00_bglt BgL_res7174z00_3762;
{ /* ./Cfa/cinfo2.scm 92 */
BgL_appz00_bglt BgL_new4141z00_3758;
BgL_new4141z00_3758 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 92 */
long BgL_arg4543z00_3759;
BgL_arg4543z00_3759 = 
BGl_classzd2numzd2zz__objectz00(BGl_makezd2structzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 92 */
BgL_objectz00_bglt BgL_objz00_3760;
BgL_objz00_3760 = 
(BgL_objectz00_bglt)(BgL_new4141z00_3758); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3760, BgL_arg4543z00_3759); } } 
{ /* ./Cfa/cinfo2.scm 92 */
BgL_objectz00_bglt BgL_auxz00_4279;
BgL_auxz00_4279 = 
(BgL_objectz00_bglt)(BgL_new4141z00_3758); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4279, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 92 */
obj_t BgL_objz00_3761;
BgL_objz00_3761 = 
(obj_t)(BgL_new4141z00_3758); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3761); BUNSPEC; } 
BgL_res7174z00_3762 = BgL_new4141z00_3758; } 
BgL_auxz00_4274 = BgL_res7174z00_3762; } 
return 
(obj_t)(BgL_auxz00_4274);} } 
}



/* pre-struct-set!-app? */
BGL_EXPORTED_DEF bool_t BGl_prezd2structzd2setz12zd2appzf3z33zzcfa_info2z00(obj_t BgL_obj4092z00_68)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 90 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj4092z00_68, BGl_prezd2structzd2setz12zd2appzc0zzcfa_info2z00);} 
}



/* _pre-struct-set!-app? */
obj_t BGl__prezd2structzd2setz12zd2appzf3z33zzcfa_info2z00(obj_t BgL_envz00_3360, obj_t BgL_obj4092z00_3361)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 90 */
{ /* ./Cfa/cinfo2.scm 90 */
bool_t BgL_auxz00_4286;
BgL_auxz00_4286 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj4092z00_3361, BGl_prezd2structzd2setz12zd2appzc0zzcfa_info2z00); 
return 
BBOOL(BgL_auxz00_4286);} } 
}



/* widening-pre-struct-set!-app */
BGL_EXPORTED_DEF BgL_prezd2structzd2setz12zd2appzc0_bglt BGl_wideningzd2prezd2structzd2setz12zd2appz12zzcfa_info2z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 90 */
{ /* ./Cfa/cinfo2.scm 90 */
BgL_prezd2structzd2setz12zd2appzc0_bglt BgL_new4073z00_1264;
BgL_new4073z00_1264 = 
((BgL_prezd2structzd2setz12zd2appzc0_bglt)BREF( GC_MALLOC (sizeof(struct BgL_prezd2structzd2setz12zd2appzc0_bgl)))); 
return BgL_new4073z00_1264;} } 
}



/* _widening-pre-struct-set!-app */
obj_t BGl__wideningzd2prezd2structzd2setz12zd2appz12zzcfa_info2z00(obj_t BgL_envz00_3362)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 90 */
{ /* ./Cfa/cinfo2.scm 90 */
BgL_prezd2structzd2setz12zd2appzc0_bglt BgL_auxz00_4290;
BgL_auxz00_4290 = 
BGl_wideningzd2prezd2structzd2setz12zd2appz12zzcfa_info2z00(); 
return 
(obj_t)(BgL_auxz00_4290);} } 
}



/* make-pre-struct-set!-app */
BGL_EXPORTED_DEF BgL_prezd2structzd2setz12zd2appzc0_bglt BGl_makezd2prezd2structzd2setz12zd2appz12zzcfa_info2z00(obj_t BgL_loc4075z00_72, BgL_typez00_bglt BgL_type4076z00_73, obj_t BgL_sidezd2effectzf34077z21_74, obj_t BgL_key4078z00_75, BgL_varz00_bglt BgL_fun4079z00_76, obj_t BgL_args4080z00_77)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 90 */
{ /* ./Cfa/cinfo2.scm 90 */
BgL_appz00_bglt BgL_aux4081z00_2320;
BgL_aux4081z00_2320 = 
BGl_makezd2appzd2zzast_nodez00(BgL_loc4075z00_72, BgL_type4076z00_73, BgL_sidezd2effectzf34077z21_74, BgL_key4078z00_75, BgL_fun4079z00_76, BgL_args4080z00_77); 
{ /* ./Cfa/cinfo2.scm 90 */
long BgL_arg4559z00_2321;
BgL_arg4559z00_2321 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2structzd2setz12zd2appzc0zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 90 */
BgL_objectz00_bglt BgL_objz00_2324;
BgL_objz00_2324 = 
(BgL_objectz00_bglt)(BgL_aux4081z00_2320); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2324, BgL_arg4559z00_2321); } } 
{ /* ./Cfa/cinfo2.scm 90 */
BgL_prezd2structzd2setz12zd2appzc0_bglt BgL_arg4563z00_2322;
BgL_arg4563z00_2322 = 
BGl_wideningzd2prezd2structzd2setz12zd2appz12zzcfa_info2z00(); 
{ /* ./Cfa/cinfo2.scm 90 */
obj_t BgL_auxz00_4300;BgL_objectz00_bglt BgL_auxz00_4298;
BgL_auxz00_4300 = 
(obj_t)(BgL_arg4563z00_2322); 
BgL_auxz00_4298 = 
(BgL_objectz00_bglt)(BgL_aux4081z00_2320); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4298, BgL_auxz00_4300); } } 
{ /* ./Cfa/cinfo2.scm 90 */
BgL_prezd2structzd2setz12zd2appzc0_bglt BgL_new4082z00_2323;
{ 
BgL_prezd2structzd2setz12zd2appzc0_bglt BgL_auxz00_4303;
BgL_auxz00_4303 = 
(BgL_prezd2structzd2setz12zd2appzc0_bglt)(BgL_aux4081z00_2320); 
BgL_new4082z00_2323 = 
((BgL_prezd2structzd2setz12zd2appzc0_bglt)BgL_auxz00_4303); } 
{ /* ./Cfa/cinfo2.scm 90 */
obj_t BgL_objz00_2326;
BgL_objz00_2326 = 
(obj_t)(BgL_new4082z00_2323); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2326); BUNSPEC; } 
return BgL_new4082z00_2323;} } } 
}



/* _make-pre-struct-set!-app */
obj_t BGl__makezd2prezd2structzd2setz12zd2appz12zzcfa_info2z00(obj_t BgL_envz00_3363, obj_t BgL_loc4075z00_3364, obj_t BgL_type4076z00_3365, obj_t BgL_sidezd2effectzf34077z21_3366, obj_t BgL_key4078z00_3367, obj_t BgL_fun4079z00_3368, obj_t BgL_args4080z00_3369)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 90 */
{ /* ./Cfa/cinfo2.scm 90 */
BgL_prezd2structzd2setz12zd2appzc0_bglt BgL_auxz00_4308;
BgL_auxz00_4308 = 
BGl_makezd2prezd2structzd2setz12zd2appz12zzcfa_info2z00(BgL_loc4075z00_3364, 
(BgL_typez00_bglt)(BgL_type4076z00_3365), BgL_sidezd2effectzf34077z21_3366, BgL_key4078z00_3367, 
(BgL_varz00_bglt)(BgL_fun4079z00_3368), BgL_args4080z00_3369); 
return 
(obj_t)(BgL_auxz00_4308);} } 
}



/* fill-pre-struct-set!-app! */
BGL_EXPORTED_DEF BgL_prezd2structzd2setz12zd2appzc0_bglt BGl_fillzd2prezd2structzd2setz12zd2appz12z00zzcfa_info2z00(BgL_prezd2structzd2setz12zd2appzc0_bglt BgL_new4083z00_78)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 90 */
{ /* ./Cfa/cinfo2.scm 90 */

return BgL_new4083z00_78;} } 
}



/* _fill-pre-struct-set!-app! */
obj_t BGl__fillzd2prezd2structzd2setz12zd2appz12z00zzcfa_info2z00(obj_t BgL_envz00_3370, obj_t BgL_new4083z00_3371)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 90 */
{ /* ./Cfa/cinfo2.scm 90 */
BgL_prezd2structzd2setz12zd2appzc0_bglt BgL_auxz00_4313;
{ /* ./Cfa/cinfo2.scm 90 */

BgL_auxz00_4313 = 
(BgL_prezd2structzd2setz12zd2appzc0_bglt)(BgL_new4083z00_3371); } 
return 
(obj_t)(BgL_auxz00_4313);} } 
}



/* allocate-pre-struct-set!-app */
BGL_EXPORTED_DEF BgL_appz00_bglt BGl_allocatezd2prezd2structzd2setz12zd2appz12zzcfa_info2z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 90 */
{ /* ./Cfa/cinfo2.scm 90 */
BgL_appz00_bglt BgL_new4085z00_3765;
BgL_new4085z00_3765 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 90 */
long BgL_arg4569z00_3766;
BgL_arg4569z00_3766 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2structzd2setz12zd2appzc0zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 90 */
BgL_objectz00_bglt BgL_objz00_3767;
BgL_objz00_3767 = 
(BgL_objectz00_bglt)(BgL_new4085z00_3765); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3767, BgL_arg4569z00_3766); } } 
{ /* ./Cfa/cinfo2.scm 90 */
BgL_objectz00_bglt BgL_auxz00_4320;
BgL_auxz00_4320 = 
(BgL_objectz00_bglt)(BgL_new4085z00_3765); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4320, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 90 */
obj_t BgL_objz00_3768;
BgL_objz00_3768 = 
(obj_t)(BgL_new4085z00_3765); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3768); BUNSPEC; } 
return BgL_new4085z00_3765;} } 
}



/* _allocate-pre-struct-set!-app */
obj_t BGl__allocatezd2prezd2structzd2setz12zd2appz12zzcfa_info2z00(obj_t BgL_envz00_3299)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 90 */
{ /* ./Cfa/cinfo2.scm 90 */
BgL_appz00_bglt BgL_auxz00_4325;
{ /* ./Cfa/cinfo2.scm 90 */
BgL_appz00_bglt BgL_res7175z00_3773;
{ /* ./Cfa/cinfo2.scm 90 */
BgL_appz00_bglt BgL_new4085z00_3769;
BgL_new4085z00_3769 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 90 */
long BgL_arg4569z00_3770;
BgL_arg4569z00_3770 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2structzd2setz12zd2appzc0zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 90 */
BgL_objectz00_bglt BgL_objz00_3771;
BgL_objz00_3771 = 
(BgL_objectz00_bglt)(BgL_new4085z00_3769); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3771, BgL_arg4569z00_3770); } } 
{ /* ./Cfa/cinfo2.scm 90 */
BgL_objectz00_bglt BgL_auxz00_4330;
BgL_auxz00_4330 = 
(BgL_objectz00_bglt)(BgL_new4085z00_3769); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4330, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 90 */
obj_t BgL_objz00_3772;
BgL_objz00_3772 = 
(obj_t)(BgL_new4085z00_3769); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3772); BUNSPEC; } 
BgL_res7175z00_3773 = BgL_new4085z00_3769; } 
BgL_auxz00_4325 = BgL_res7175z00_3773; } 
return 
(obj_t)(BgL_auxz00_4325);} } 
}



/* pre-struct-ref-app? */
BGL_EXPORTED_DEF bool_t BGl_prezd2structzd2refzd2appzf3z21zzcfa_info2z00(obj_t BgL_obj4056z00_79)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 89 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj4056z00_79, BGl_prezd2structzd2refzd2appzd2zzcfa_info2z00);} 
}



/* _pre-struct-ref-app? */
obj_t BGl__prezd2structzd2refzd2appzf3z21zzcfa_info2z00(obj_t BgL_envz00_3372, obj_t BgL_obj4056z00_3373)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 89 */
{ /* ./Cfa/cinfo2.scm 89 */
bool_t BgL_auxz00_4337;
BgL_auxz00_4337 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj4056z00_3373, BGl_prezd2structzd2refzd2appzd2zzcfa_info2z00); 
return 
BBOOL(BgL_auxz00_4337);} } 
}



/* widening-pre-struct-ref-app */
BGL_EXPORTED_DEF BgL_prezd2structzd2refzd2appzd2_bglt BGl_wideningzd2prezd2structzd2refzd2appz00zzcfa_info2z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 89 */
{ /* ./Cfa/cinfo2.scm 89 */
BgL_prezd2structzd2refzd2appzd2_bglt BgL_new4037z00_1271;
BgL_new4037z00_1271 = 
((BgL_prezd2structzd2refzd2appzd2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_prezd2structzd2refzd2appzd2_bgl)))); 
return BgL_new4037z00_1271;} } 
}



/* _widening-pre-struct-ref-app */
obj_t BGl__wideningzd2prezd2structzd2refzd2appz00zzcfa_info2z00(obj_t BgL_envz00_3374)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 89 */
{ /* ./Cfa/cinfo2.scm 89 */
BgL_prezd2structzd2refzd2appzd2_bglt BgL_auxz00_4341;
BgL_auxz00_4341 = 
BGl_wideningzd2prezd2structzd2refzd2appz00zzcfa_info2z00(); 
return 
(obj_t)(BgL_auxz00_4341);} } 
}



/* make-pre-struct-ref-app */
BGL_EXPORTED_DEF BgL_prezd2structzd2refzd2appzd2_bglt BGl_makezd2prezd2structzd2refzd2appz00zzcfa_info2z00(obj_t BgL_loc4039z00_83, BgL_typez00_bglt BgL_type4040z00_84, obj_t BgL_sidezd2effectzf34041z21_85, obj_t BgL_key4042z00_86, BgL_varz00_bglt BgL_fun4043z00_87, obj_t BgL_args4044z00_88)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 89 */
{ /* ./Cfa/cinfo2.scm 89 */
BgL_appz00_bglt BgL_aux4045z00_2333;
BgL_aux4045z00_2333 = 
BGl_makezd2appzd2zzast_nodez00(BgL_loc4039z00_83, BgL_type4040z00_84, BgL_sidezd2effectzf34041z21_85, BgL_key4042z00_86, BgL_fun4043z00_87, BgL_args4044z00_88); 
{ /* ./Cfa/cinfo2.scm 89 */
long BgL_arg4577z00_2334;
BgL_arg4577z00_2334 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2structzd2refzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 89 */
BgL_objectz00_bglt BgL_objz00_2337;
BgL_objz00_2337 = 
(BgL_objectz00_bglt)(BgL_aux4045z00_2333); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2337, BgL_arg4577z00_2334); } } 
{ /* ./Cfa/cinfo2.scm 89 */
BgL_prezd2structzd2refzd2appzd2_bglt BgL_arg4581z00_2335;
BgL_arg4581z00_2335 = 
BGl_wideningzd2prezd2structzd2refzd2appz00zzcfa_info2z00(); 
{ /* ./Cfa/cinfo2.scm 89 */
obj_t BgL_auxz00_4351;BgL_objectz00_bglt BgL_auxz00_4349;
BgL_auxz00_4351 = 
(obj_t)(BgL_arg4581z00_2335); 
BgL_auxz00_4349 = 
(BgL_objectz00_bglt)(BgL_aux4045z00_2333); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4349, BgL_auxz00_4351); } } 
{ /* ./Cfa/cinfo2.scm 89 */
BgL_prezd2structzd2refzd2appzd2_bglt BgL_new4046z00_2336;
{ 
BgL_prezd2structzd2refzd2appzd2_bglt BgL_auxz00_4354;
BgL_auxz00_4354 = 
(BgL_prezd2structzd2refzd2appzd2_bglt)(BgL_aux4045z00_2333); 
BgL_new4046z00_2336 = 
((BgL_prezd2structzd2refzd2appzd2_bglt)BgL_auxz00_4354); } 
{ /* ./Cfa/cinfo2.scm 89 */
obj_t BgL_objz00_2339;
BgL_objz00_2339 = 
(obj_t)(BgL_new4046z00_2336); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2339); BUNSPEC; } 
return BgL_new4046z00_2336;} } } 
}



/* _make-pre-struct-ref-app */
obj_t BGl__makezd2prezd2structzd2refzd2appz00zzcfa_info2z00(obj_t BgL_envz00_3375, obj_t BgL_loc4039z00_3376, obj_t BgL_type4040z00_3377, obj_t BgL_sidezd2effectzf34041z21_3378, obj_t BgL_key4042z00_3379, obj_t BgL_fun4043z00_3380, obj_t BgL_args4044z00_3381)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 89 */
{ /* ./Cfa/cinfo2.scm 89 */
BgL_prezd2structzd2refzd2appzd2_bglt BgL_auxz00_4359;
BgL_auxz00_4359 = 
BGl_makezd2prezd2structzd2refzd2appz00zzcfa_info2z00(BgL_loc4039z00_3376, 
(BgL_typez00_bglt)(BgL_type4040z00_3377), BgL_sidezd2effectzf34041z21_3378, BgL_key4042z00_3379, 
(BgL_varz00_bglt)(BgL_fun4043z00_3380), BgL_args4044z00_3381); 
return 
(obj_t)(BgL_auxz00_4359);} } 
}



/* fill-pre-struct-ref-app! */
BGL_EXPORTED_DEF BgL_prezd2structzd2refzd2appzd2_bglt BGl_fillzd2prezd2structzd2refzd2appz12z12zzcfa_info2z00(BgL_prezd2structzd2refzd2appzd2_bglt BgL_new4047z00_89)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 89 */
{ /* ./Cfa/cinfo2.scm 89 */

return BgL_new4047z00_89;} } 
}



/* _fill-pre-struct-ref-app! */
obj_t BGl__fillzd2prezd2structzd2refzd2appz12z12zzcfa_info2z00(obj_t BgL_envz00_3382, obj_t BgL_new4047z00_3383)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 89 */
{ /* ./Cfa/cinfo2.scm 89 */
BgL_prezd2structzd2refzd2appzd2_bglt BgL_auxz00_4364;
{ /* ./Cfa/cinfo2.scm 89 */

BgL_auxz00_4364 = 
(BgL_prezd2structzd2refzd2appzd2_bglt)(BgL_new4047z00_3383); } 
return 
(obj_t)(BgL_auxz00_4364);} } 
}



/* allocate-pre-struct-ref-app */
BGL_EXPORTED_DEF BgL_appz00_bglt BGl_allocatezd2prezd2structzd2refzd2appz00zzcfa_info2z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 89 */
{ /* ./Cfa/cinfo2.scm 89 */
BgL_appz00_bglt BgL_new4049z00_3776;
BgL_new4049z00_3776 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 89 */
long BgL_arg4587z00_3777;
BgL_arg4587z00_3777 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2structzd2refzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 89 */
BgL_objectz00_bglt BgL_objz00_3778;
BgL_objz00_3778 = 
(BgL_objectz00_bglt)(BgL_new4049z00_3776); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3778, BgL_arg4587z00_3777); } } 
{ /* ./Cfa/cinfo2.scm 89 */
BgL_objectz00_bglt BgL_auxz00_4371;
BgL_auxz00_4371 = 
(BgL_objectz00_bglt)(BgL_new4049z00_3776); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4371, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 89 */
obj_t BgL_objz00_3779;
BgL_objz00_3779 = 
(obj_t)(BgL_new4049z00_3776); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3779); BUNSPEC; } 
return BgL_new4049z00_3776;} } 
}



/* _allocate-pre-struct-ref-app */
obj_t BGl__allocatezd2prezd2structzd2refzd2appz00zzcfa_info2z00(obj_t BgL_envz00_3298)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 89 */
{ /* ./Cfa/cinfo2.scm 89 */
BgL_appz00_bglt BgL_auxz00_4376;
{ /* ./Cfa/cinfo2.scm 89 */
BgL_appz00_bglt BgL_res7176z00_3784;
{ /* ./Cfa/cinfo2.scm 89 */
BgL_appz00_bglt BgL_new4049z00_3780;
BgL_new4049z00_3780 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 89 */
long BgL_arg4587z00_3781;
BgL_arg4587z00_3781 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2structzd2refzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 89 */
BgL_objectz00_bglt BgL_objz00_3782;
BgL_objz00_3782 = 
(BgL_objectz00_bglt)(BgL_new4049z00_3780); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3782, BgL_arg4587z00_3781); } } 
{ /* ./Cfa/cinfo2.scm 89 */
BgL_objectz00_bglt BgL_auxz00_4381;
BgL_auxz00_4381 = 
(BgL_objectz00_bglt)(BgL_new4049z00_3780); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4381, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 89 */
obj_t BgL_objz00_3783;
BgL_objz00_3783 = 
(obj_t)(BgL_new4049z00_3780); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3783); BUNSPEC; } 
BgL_res7176z00_3784 = BgL_new4049z00_3780; } 
BgL_auxz00_4376 = BgL_res7176z00_3784; } 
return 
(obj_t)(BgL_auxz00_4376);} } 
}



/* pre-make-struct-app? */
BGL_EXPORTED_DEF bool_t BGl_prezd2makezd2structzd2appzf3z21zzcfa_info2z00(obj_t BgL_obj4018z00_90)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 86 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj4018z00_90, BGl_prezd2makezd2structzd2appzd2zzcfa_info2z00);} 
}



/* _pre-make-struct-app? */
obj_t BGl__prezd2makezd2structzd2appzf3z21zzcfa_info2z00(obj_t BgL_envz00_3384, obj_t BgL_obj4018z00_3385)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 86 */
{ /* ./Cfa/cinfo2.scm 86 */
bool_t BgL_auxz00_4388;
BgL_auxz00_4388 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj4018z00_3385, BGl_prezd2makezd2structzd2appzd2zzcfa_info2z00); 
return 
BBOOL(BgL_auxz00_4388);} } 
}



/* widening-pre-make-struct-app */
BGL_EXPORTED_DEF BgL_prezd2makezd2structzd2appzd2_bglt BGl_wideningzd2prezd2makezd2structzd2appz00zzcfa_info2z00(BgL_variablez00_bglt BgL_owner3995z00_94)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 86 */
{ /* ./Cfa/cinfo2.scm 86 */
BgL_prezd2makezd2structzd2appzd2_bglt BgL_new3996z00_2345;
BgL_new3996z00_2345 = 
((BgL_prezd2makezd2structzd2appzd2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_prezd2makezd2structzd2appzd2_bgl)))); 
{ /* ./Cfa/cinfo2.scm 86 */
BgL_prezd2makezd2structzd2appzd2_bglt BgL_res6103z00_2349;
{ /* ./Cfa/cinfo2.scm 86 */
BgL_prezd2makezd2structzd2appzd2_bglt BgL_new4008z00_2346;
BgL_new4008z00_2346 = BgL_new3996z00_2345; 
{ /* ./Cfa/cinfo2.scm 86 */
BgL_variablez00_bglt BgL_owner4007z00_2348;
BgL_owner4007z00_2348 = BgL_owner3995z00_94; 
((((BgL_prezd2makezd2structzd2appzd2_bglt)CREF(BgL_new4008z00_2346))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner4007z00_2348), BUNSPEC); 
BgL_res6103z00_2349 = BgL_new4008z00_2346; } } BgL_res6103z00_2349; } 
return BgL_new3996z00_2345;} } 
}



/* _widening-pre-make-struct-app6210 */
obj_t BGl__wideningzd2prezd2makezd2structzd2app6210z00zzcfa_info2z00(obj_t BgL_envz00_3386, obj_t BgL_owner3995z00_3387)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 86 */
{ /* ./Cfa/cinfo2.scm 86 */
BgL_prezd2makezd2structzd2appzd2_bglt BgL_auxz00_4393;
BgL_auxz00_4393 = 
BGl_wideningzd2prezd2makezd2structzd2appz00zzcfa_info2z00(
(BgL_variablez00_bglt)(BgL_owner3995z00_3387)); 
return 
(obj_t)(BgL_auxz00_4393);} } 
}



/* make-pre-make-struct-app */
BGL_EXPORTED_DEF BgL_prezd2makezd2structzd2appzd2_bglt BGl_makezd2prezd2makezd2structzd2appz00zzcfa_info2z00(obj_t BgL_loc3999z00_95, BgL_typez00_bglt BgL_type4000z00_96, obj_t BgL_sidezd2effectzf34001z21_97, obj_t BgL_key4002z00_98, BgL_varz00_bglt BgL_fun4003z00_99, obj_t BgL_args4004z00_100, BgL_variablez00_bglt BgL_owner3998z00_101)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 86 */
{ /* ./Cfa/cinfo2.scm 86 */
BgL_appz00_bglt BgL_aux4005z00_2350;
BgL_aux4005z00_2350 = 
BGl_makezd2appzd2zzast_nodez00(BgL_loc3999z00_95, BgL_type4000z00_96, BgL_sidezd2effectzf34001z21_97, BgL_key4002z00_98, BgL_fun4003z00_99, BgL_args4004z00_100); 
{ /* ./Cfa/cinfo2.scm 86 */
long BgL_arg4595z00_2351;
BgL_arg4595z00_2351 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2makezd2structzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 86 */
BgL_objectz00_bglt BgL_objz00_2354;
BgL_objz00_2354 = 
(BgL_objectz00_bglt)(BgL_aux4005z00_2350); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2354, BgL_arg4595z00_2351); } } 
{ /* ./Cfa/cinfo2.scm 86 */
BgL_prezd2makezd2structzd2appzd2_bglt BgL_arg4599z00_2352;
{ /* ./Cfa/cinfo2.scm 86 */
BgL_prezd2makezd2structzd2appzd2_bglt BgL_res6105z00_2362;
{ /* ./Cfa/cinfo2.scm 86 */
BgL_prezd2makezd2structzd2appzd2_bglt BgL_new3996z00_2357;
BgL_new3996z00_2357 = 
((BgL_prezd2makezd2structzd2appzd2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_prezd2makezd2structzd2appzd2_bgl)))); 
{ /* ./Cfa/cinfo2.scm 86 */
BgL_prezd2makezd2structzd2appzd2_bglt BgL_res6104z00_2361;
{ /* ./Cfa/cinfo2.scm 86 */
BgL_prezd2makezd2structzd2appzd2_bglt BgL_new4008z00_2358;
BgL_new4008z00_2358 = BgL_new3996z00_2357; 
{ /* ./Cfa/cinfo2.scm 86 */
BgL_variablez00_bglt BgL_owner4007z00_2360;
BgL_owner4007z00_2360 = BgL_owner3998z00_101; 
((((BgL_prezd2makezd2structzd2appzd2_bglt)CREF(BgL_new4008z00_2358))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner4007z00_2360), BUNSPEC); 
BgL_res6104z00_2361 = BgL_new4008z00_2358; } } BgL_res6104z00_2361; } 
BgL_res6105z00_2362 = BgL_new3996z00_2357; } 
BgL_arg4599z00_2352 = BgL_res6105z00_2362; } 
{ /* ./Cfa/cinfo2.scm 86 */
obj_t BgL_auxz00_4405;BgL_objectz00_bglt BgL_auxz00_4403;
BgL_auxz00_4405 = 
(obj_t)(BgL_arg4599z00_2352); 
BgL_auxz00_4403 = 
(BgL_objectz00_bglt)(BgL_aux4005z00_2350); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4403, BgL_auxz00_4405); } } 
{ /* ./Cfa/cinfo2.scm 86 */
BgL_prezd2makezd2structzd2appzd2_bglt BgL_new4006z00_2353;
{ 
BgL_prezd2makezd2structzd2appzd2_bglt BgL_auxz00_4408;
BgL_auxz00_4408 = 
(BgL_prezd2makezd2structzd2appzd2_bglt)(BgL_aux4005z00_2350); 
BgL_new4006z00_2353 = 
((BgL_prezd2makezd2structzd2appzd2_bglt)BgL_auxz00_4408); } 
{ /* ./Cfa/cinfo2.scm 86 */
obj_t BgL_objz00_2363;
BgL_objz00_2363 = 
(obj_t)(BgL_new4006z00_2353); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2363); BUNSPEC; } 
return BgL_new4006z00_2353;} } } 
}



/* _make-pre-make-struct-app */
obj_t BGl__makezd2prezd2makezd2structzd2appz00zzcfa_info2z00(obj_t BgL_envz00_3388, obj_t BgL_loc3999z00_3389, obj_t BgL_type4000z00_3390, obj_t BgL_sidezd2effectzf34001z21_3391, obj_t BgL_key4002z00_3392, obj_t BgL_fun4003z00_3393, obj_t BgL_args4004z00_3394, obj_t BgL_owner3998z00_3395)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 86 */
{ /* ./Cfa/cinfo2.scm 86 */
BgL_prezd2makezd2structzd2appzd2_bglt BgL_auxz00_4413;
BgL_auxz00_4413 = 
BGl_makezd2prezd2makezd2structzd2appz00zzcfa_info2z00(BgL_loc3999z00_3389, 
(BgL_typez00_bglt)(BgL_type4000z00_3390), BgL_sidezd2effectzf34001z21_3391, BgL_key4002z00_3392, 
(BgL_varz00_bglt)(BgL_fun4003z00_3393), BgL_args4004z00_3394, 
(BgL_variablez00_bglt)(BgL_owner3998z00_3395)); 
return 
(obj_t)(BgL_auxz00_4413);} } 
}



/* fill-pre-make-struct-app! */
BGL_EXPORTED_DEF BgL_prezd2makezd2structzd2appzd2_bglt BGl_fillzd2prezd2makezd2structzd2appz12z12zzcfa_info2z00(BgL_prezd2makezd2structzd2appzd2_bglt BgL_new4008z00_102, BgL_variablez00_bglt BgL_owner4007z00_103)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 86 */
{ /* ./Cfa/cinfo2.scm 86 */
BgL_variablez00_bglt BgL_owner4007z00_3786;
BgL_owner4007z00_3786 = BgL_owner4007z00_103; 
((((BgL_prezd2makezd2structzd2appzd2_bglt)CREF(BgL_new4008z00_102))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner4007z00_3786), BUNSPEC); 
return BgL_new4008z00_102;} } 
}



/* _fill-pre-make-struct-app! */
obj_t BGl__fillzd2prezd2makezd2structzd2appz12z12zzcfa_info2z00(obj_t BgL_envz00_3396, obj_t BgL_new4008z00_3397, obj_t BgL_owner4007z00_3398)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 86 */
{ /* ./Cfa/cinfo2.scm 86 */
BgL_prezd2makezd2structzd2appzd2_bglt BgL_auxz00_4420;
{ /* ./Cfa/cinfo2.scm 86 */
BgL_prezd2makezd2structzd2appzd2_bglt BgL_res7177z00_3790;
{ /* ./Cfa/cinfo2.scm 86 */
BgL_prezd2makezd2structzd2appzd2_bglt BgL_new4008z00_3787;BgL_variablez00_bglt BgL_owner4007z00_3788;
BgL_new4008z00_3787 = 
(BgL_prezd2makezd2structzd2appzd2_bglt)(BgL_new4008z00_3397); 
BgL_owner4007z00_3788 = 
(BgL_variablez00_bglt)(BgL_owner4007z00_3398); 
{ /* ./Cfa/cinfo2.scm 86 */
BgL_variablez00_bglt BgL_owner4007z00_3789;
BgL_owner4007z00_3789 = BgL_owner4007z00_3788; 
((((BgL_prezd2makezd2structzd2appzd2_bglt)CREF(BgL_new4008z00_3787))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner4007z00_3789), BUNSPEC); 
BgL_res7177z00_3790 = BgL_new4008z00_3787; } } 
BgL_auxz00_4420 = BgL_res7177z00_3790; } 
return 
(obj_t)(BgL_auxz00_4420);} } 
}



/* allocate-pre-make-struct-app */
BGL_EXPORTED_DEF BgL_appz00_bglt BGl_allocatezd2prezd2makezd2structzd2appz00zzcfa_info2z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 86 */
{ /* ./Cfa/cinfo2.scm 86 */
BgL_appz00_bglt BgL_new4011z00_3791;
BgL_new4011z00_3791 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 86 */
long BgL_arg4605z00_3792;
BgL_arg4605z00_3792 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2makezd2structzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 86 */
BgL_objectz00_bglt BgL_objz00_3793;
BgL_objz00_3793 = 
(BgL_objectz00_bglt)(BgL_new4011z00_3791); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3793, BgL_arg4605z00_3792); } } 
{ /* ./Cfa/cinfo2.scm 86 */
BgL_objectz00_bglt BgL_auxz00_4429;
BgL_auxz00_4429 = 
(BgL_objectz00_bglt)(BgL_new4011z00_3791); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4429, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 86 */
obj_t BgL_objz00_3794;
BgL_objz00_3794 = 
(obj_t)(BgL_new4011z00_3791); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3794); BUNSPEC; } 
return BgL_new4011z00_3791;} } 
}



/* _allocate-pre-make-struct-app */
obj_t BGl__allocatezd2prezd2makezd2structzd2appz00zzcfa_info2z00(obj_t BgL_envz00_3297)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 86 */
{ /* ./Cfa/cinfo2.scm 86 */
BgL_appz00_bglt BgL_auxz00_4434;
{ /* ./Cfa/cinfo2.scm 86 */
BgL_appz00_bglt BgL_res7178z00_3799;
{ /* ./Cfa/cinfo2.scm 86 */
BgL_appz00_bglt BgL_new4011z00_3795;
BgL_new4011z00_3795 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 86 */
long BgL_arg4605z00_3796;
BgL_arg4605z00_3796 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2makezd2structzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 86 */
BgL_objectz00_bglt BgL_objz00_3797;
BgL_objz00_3797 = 
(BgL_objectz00_bglt)(BgL_new4011z00_3795); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3797, BgL_arg4605z00_3796); } } 
{ /* ./Cfa/cinfo2.scm 86 */
BgL_objectz00_bglt BgL_auxz00_4439;
BgL_auxz00_4439 = 
(BgL_objectz00_bglt)(BgL_new4011z00_3795); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4439, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 86 */
obj_t BgL_objz00_3798;
BgL_objz00_3798 = 
(obj_t)(BgL_new4011z00_3795); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3798); BUNSPEC; } 
BgL_res7178z00_3799 = BgL_new4011z00_3795; } 
BgL_auxz00_4434 = BgL_res7178z00_3799; } 
return 
(obj_t)(BgL_auxz00_4434);} } 
}



/* make-vector-app? */
BGL_EXPORTED_DEF bool_t BGl_makezd2vectorzd2appzf3zf3zzcfa_info2z00(obj_t BgL_obj3964z00_105)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 63 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3964z00_105, BGl_makezd2vectorzd2appz00zzcfa_info2z00);} 
}



/* _make-vector-app? */
obj_t BGl__makezd2vectorzd2appzf3zf3zzcfa_info2z00(obj_t BgL_envz00_3399, obj_t BgL_obj3964z00_3400)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 63 */
{ /* ./Cfa/cinfo2.scm 63 */
bool_t BgL_auxz00_4446;
BgL_auxz00_4446 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3964z00_3400, BGl_makezd2vectorzd2appz00zzcfa_info2z00); 
return 
BBOOL(BgL_auxz00_4446);} } 
}



/* widening-make-vector-app */
BGL_EXPORTED_DEF BgL_makezd2vectorzd2appz00_bglt BGl_wideningzd2makezd2vectorzd2appzd2zzcfa_info2z00(BgL_approxz00_bglt BgL_approx3921z00_109, BgL_approxz00_bglt BgL_valuezd2approx3922zd2_110, long BgL_lostzd2stamp3923zd2_111, BgL_variablez00_bglt BgL_owner3924z00_112, obj_t BgL_stackzd2stamp3925zd2_113, bool_t BgL_seenzf33926zf3_114)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 63 */
{ /* ./Cfa/cinfo2.scm 63 */
BgL_makezd2vectorzd2appz00_bglt BgL_new3927z00_2370;
BgL_new3927z00_2370 = 
((BgL_makezd2vectorzd2appz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_makezd2vectorzd2appz00_bgl)))); 
{ /* ./Cfa/cinfo2.scm 63 */
BgL_makezd2vectorzd2appz00_bglt BgL_res6106z00_2384;
{ /* ./Cfa/cinfo2.scm 63 */
BgL_makezd2vectorzd2appz00_bglt BgL_new3949z00_2371;
BgL_new3949z00_2371 = BgL_new3927z00_2370; 
{ /* ./Cfa/cinfo2.scm 63 */
BgL_approxz00_bglt BgL_approx3943z00_2378;BgL_approxz00_bglt BgL_valuezd2approx3944zd2_2379;long BgL_lostzd2stamp3945zd2_2380;BgL_variablez00_bglt BgL_owner3946z00_2381;obj_t BgL_stackzd2stamp3947zd2_2382;bool_t BgL_seenzf33948zf3_2383;
BgL_approx3943z00_2378 = BgL_approx3921z00_109; 
BgL_valuezd2approx3944zd2_2379 = BgL_valuezd2approx3922zd2_110; 
BgL_lostzd2stamp3945zd2_2380 = BgL_lostzd2stamp3923zd2_111; 
BgL_owner3946z00_2381 = BgL_owner3924z00_112; 
BgL_stackzd2stamp3947zd2_2382 = BgL_stackzd2stamp3925zd2_113; 
BgL_seenzf33948zf3_2383 = BgL_seenzf33926zf3_114; 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_2371))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3943z00_2378), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_2371))->BgL_valuezd2approxzd2) = ((BgL_approxz00_bglt)BgL_valuezd2approx3944zd2_2379), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_2371))->BgL_lostzd2stampzd2) = ((long)BgL_lostzd2stamp3945zd2_2380), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_2371))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3946z00_2381), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_2371))->BgL_stackzd2stampzd2) = ((obj_t)BgL_stackzd2stamp3947zd2_2382), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_2371))->BgL_seenzf3zf3) = ((bool_t)BgL_seenzf33948zf3_2383), BUNSPEC); 
BgL_res6106z00_2384 = BgL_new3949z00_2371; } } BgL_res6106z00_2384; } 
return BgL_new3927z00_2370;} } 
}



/* _widening-make-vector-app6215 */
obj_t BGl__wideningzd2makezd2vectorzd2app6215zd2zzcfa_info2z00(obj_t BgL_envz00_3401, obj_t BgL_approx3921z00_3402, obj_t BgL_valuezd2approx3922zd2_3403, obj_t BgL_lostzd2stamp3923zd2_3404, obj_t BgL_owner3924z00_3405, obj_t BgL_stackzd2stamp3925zd2_3406, obj_t BgL_seenzf33926zf3_3407)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 63 */
{ /* ./Cfa/cinfo2.scm 63 */
BgL_makezd2vectorzd2appz00_bglt BgL_auxz00_4456;
BgL_auxz00_4456 = 
BGl_wideningzd2makezd2vectorzd2appzd2zzcfa_info2z00(
(BgL_approxz00_bglt)(BgL_approx3921z00_3402), 
(BgL_approxz00_bglt)(BgL_valuezd2approx3922zd2_3403), 
(long)CINT(BgL_lostzd2stamp3923zd2_3404), 
(BgL_variablez00_bglt)(BgL_owner3924z00_3405), BgL_stackzd2stamp3925zd2_3406, 
CBOOL(BgL_seenzf33926zf3_3407)); 
return 
(obj_t)(BgL_auxz00_4456);} } 
}



/* make-make-vector-app */
BGL_EXPORTED_DEF BgL_makezd2vectorzd2appz00_bglt BGl_makezd2makezd2vectorzd2appzd2zzcfa_info2z00(obj_t BgL_loc3935z00_115, BgL_typez00_bglt BgL_type3936z00_116, obj_t BgL_sidezd2effectzf33937z21_117, obj_t BgL_key3938z00_118, BgL_varz00_bglt BgL_fun3939z00_119, obj_t BgL_args3940z00_120, BgL_approxz00_bglt BgL_approx3929z00_121, BgL_approxz00_bglt BgL_valuezd2approx3930zd2_122, long BgL_lostzd2stamp3931zd2_123, BgL_variablez00_bglt BgL_owner3932z00_124, obj_t BgL_stackzd2stamp3933zd2_125, bool_t BgL_seenzf33934zf3_126)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 63 */
{ /* ./Cfa/cinfo2.scm 63 */
BgL_appz00_bglt BgL_aux3941z00_2385;
BgL_aux3941z00_2385 = 
BGl_makezd2appzd2zzast_nodez00(BgL_loc3935z00_115, BgL_type3936z00_116, BgL_sidezd2effectzf33937z21_117, BgL_key3938z00_118, BgL_fun3939z00_119, BgL_args3940z00_120); 
{ /* ./Cfa/cinfo2.scm 63 */
long BgL_arg4614z00_2386;
BgL_arg4614z00_2386 = 
BGl_classzd2numzd2zz__objectz00(BGl_makezd2vectorzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 63 */
BgL_objectz00_bglt BgL_objz00_2389;
BgL_objz00_2389 = 
(BgL_objectz00_bglt)(BgL_aux3941z00_2385); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2389, BgL_arg4614z00_2386); } } 
{ /* ./Cfa/cinfo2.scm 63 */
BgL_makezd2vectorzd2appz00_bglt BgL_arg4618z00_2387;
{ /* ./Cfa/cinfo2.scm 63 */
BgL_makezd2vectorzd2appz00_bglt BgL_res6108z00_2412;
{ /* ./Cfa/cinfo2.scm 63 */
BgL_makezd2vectorzd2appz00_bglt BgL_new3927z00_2397;
BgL_new3927z00_2397 = 
((BgL_makezd2vectorzd2appz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_makezd2vectorzd2appz00_bgl)))); 
{ /* ./Cfa/cinfo2.scm 63 */
BgL_makezd2vectorzd2appz00_bglt BgL_res6107z00_2411;
{ /* ./Cfa/cinfo2.scm 63 */
BgL_makezd2vectorzd2appz00_bglt BgL_new3949z00_2398;
BgL_new3949z00_2398 = BgL_new3927z00_2397; 
{ /* ./Cfa/cinfo2.scm 63 */
BgL_approxz00_bglt BgL_approx3943z00_2405;BgL_approxz00_bglt BgL_valuezd2approx3944zd2_2406;long BgL_lostzd2stamp3945zd2_2407;BgL_variablez00_bglt BgL_owner3946z00_2408;obj_t BgL_stackzd2stamp3947zd2_2409;bool_t BgL_seenzf33948zf3_2410;
BgL_approx3943z00_2405 = BgL_approx3929z00_121; 
BgL_valuezd2approx3944zd2_2406 = BgL_valuezd2approx3930zd2_122; 
BgL_lostzd2stamp3945zd2_2407 = BgL_lostzd2stamp3931zd2_123; 
BgL_owner3946z00_2408 = BgL_owner3932z00_124; 
BgL_stackzd2stamp3947zd2_2409 = BgL_stackzd2stamp3933zd2_125; 
BgL_seenzf33948zf3_2410 = BgL_seenzf33934zf3_126; 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_2398))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3943z00_2405), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_2398))->BgL_valuezd2approxzd2) = ((BgL_approxz00_bglt)BgL_valuezd2approx3944zd2_2406), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_2398))->BgL_lostzd2stampzd2) = ((long)BgL_lostzd2stamp3945zd2_2407), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_2398))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3946z00_2408), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_2398))->BgL_stackzd2stampzd2) = ((obj_t)BgL_stackzd2stamp3947zd2_2409), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_2398))->BgL_seenzf3zf3) = ((bool_t)BgL_seenzf33948zf3_2410), BUNSPEC); 
BgL_res6107z00_2411 = BgL_new3949z00_2398; } } BgL_res6107z00_2411; } 
BgL_res6108z00_2412 = BgL_new3927z00_2397; } 
BgL_arg4618z00_2387 = BgL_res6108z00_2412; } 
{ /* ./Cfa/cinfo2.scm 63 */
obj_t BgL_auxz00_4477;BgL_objectz00_bglt BgL_auxz00_4475;
BgL_auxz00_4477 = 
(obj_t)(BgL_arg4618z00_2387); 
BgL_auxz00_4475 = 
(BgL_objectz00_bglt)(BgL_aux3941z00_2385); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4475, BgL_auxz00_4477); } } 
{ /* ./Cfa/cinfo2.scm 63 */
BgL_makezd2vectorzd2appz00_bglt BgL_new3942z00_2388;
{ 
BgL_makezd2vectorzd2appz00_bglt BgL_auxz00_4480;
BgL_auxz00_4480 = 
(BgL_makezd2vectorzd2appz00_bglt)(BgL_aux3941z00_2385); 
BgL_new3942z00_2388 = 
((BgL_makezd2vectorzd2appz00_bglt)BgL_auxz00_4480); } 
{ /* ./Cfa/cinfo2.scm 63 */
obj_t BgL_objz00_2413;
BgL_objz00_2413 = 
(obj_t)(BgL_new3942z00_2388); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2413); BUNSPEC; } 
return BgL_new3942z00_2388;} } } 
}



/* _make-make-vector-app */
obj_t BGl__makezd2makezd2vectorzd2appzd2zzcfa_info2z00(obj_t BgL_envz00_3408, obj_t BgL_loc3935z00_3409, obj_t BgL_type3936z00_3410, obj_t BgL_sidezd2effectzf33937z21_3411, obj_t BgL_key3938z00_3412, obj_t BgL_fun3939z00_3413, obj_t BgL_args3940z00_3414, obj_t BgL_approx3929z00_3415, obj_t BgL_valuezd2approx3930zd2_3416, obj_t BgL_lostzd2stamp3931zd2_3417, obj_t BgL_owner3932z00_3418, obj_t BgL_stackzd2stamp3933zd2_3419, obj_t BgL_seenzf33934zf3_3420)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 63 */
{ /* ./Cfa/cinfo2.scm 63 */
BgL_makezd2vectorzd2appz00_bglt BgL_auxz00_4485;
BgL_auxz00_4485 = 
BGl_makezd2makezd2vectorzd2appzd2zzcfa_info2z00(BgL_loc3935z00_3409, 
(BgL_typez00_bglt)(BgL_type3936z00_3410), BgL_sidezd2effectzf33937z21_3411, BgL_key3938z00_3412, 
(BgL_varz00_bglt)(BgL_fun3939z00_3413), BgL_args3940z00_3414, 
(BgL_approxz00_bglt)(BgL_approx3929z00_3415), 
(BgL_approxz00_bglt)(BgL_valuezd2approx3930zd2_3416), 
(long)CINT(BgL_lostzd2stamp3931zd2_3417), 
(BgL_variablez00_bglt)(BgL_owner3932z00_3418), BgL_stackzd2stamp3933zd2_3419, 
CBOOL(BgL_seenzf33934zf3_3420)); 
return 
(obj_t)(BgL_auxz00_4485);} } 
}



/* fill-make-vector-app! */
BGL_EXPORTED_DEF BgL_makezd2vectorzd2appz00_bglt BGl_fillzd2makezd2vectorzd2appz12zc0zzcfa_info2z00(BgL_makezd2vectorzd2appz00_bglt BgL_new3949z00_127, BgL_approxz00_bglt BgL_approx3943z00_128, BgL_approxz00_bglt BgL_valuezd2approx3944zd2_129, long BgL_lostzd2stamp3945zd2_130, BgL_variablez00_bglt BgL_owner3946z00_131, obj_t BgL_stackzd2stamp3947zd2_132, bool_t BgL_seenzf33948zf3_133)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 63 */
{ /* ./Cfa/cinfo2.scm 63 */
BgL_approxz00_bglt BgL_approx3943z00_3801;BgL_approxz00_bglt BgL_valuezd2approx3944zd2_3802;long BgL_lostzd2stamp3945zd2_3803;BgL_variablez00_bglt BgL_owner3946z00_3804;obj_t BgL_stackzd2stamp3947zd2_3805;bool_t BgL_seenzf33948zf3_3806;
BgL_approx3943z00_3801 = BgL_approx3943z00_128; 
BgL_valuezd2approx3944zd2_3802 = BgL_valuezd2approx3944zd2_129; 
BgL_lostzd2stamp3945zd2_3803 = BgL_lostzd2stamp3945zd2_130; 
BgL_owner3946z00_3804 = BgL_owner3946z00_131; 
BgL_stackzd2stamp3947zd2_3805 = BgL_stackzd2stamp3947zd2_132; 
BgL_seenzf33948zf3_3806 = BgL_seenzf33948zf3_133; 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_127))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3943z00_3801), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_127))->BgL_valuezd2approxzd2) = ((BgL_approxz00_bglt)BgL_valuezd2approx3944zd2_3802), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_127))->BgL_lostzd2stampzd2) = ((long)BgL_lostzd2stamp3945zd2_3803), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_127))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3946z00_3804), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_127))->BgL_stackzd2stampzd2) = ((obj_t)BgL_stackzd2stamp3947zd2_3805), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_127))->BgL_seenzf3zf3) = ((bool_t)BgL_seenzf33948zf3_3806), BUNSPEC); 
return BgL_new3949z00_127;} } 
}



/* _fill-make-vector-app! */
obj_t BGl__fillzd2makezd2vectorzd2appz12zc0zzcfa_info2z00(obj_t BgL_envz00_3421, obj_t BgL_new3949z00_3422, obj_t BgL_approx3943z00_3423, obj_t BgL_valuezd2approx3944zd2_3424, obj_t BgL_lostzd2stamp3945zd2_3425, obj_t BgL_owner3946z00_3426, obj_t BgL_stackzd2stamp3947zd2_3427, obj_t BgL_seenzf33948zf3_3428)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 63 */
{ /* ./Cfa/cinfo2.scm 63 */
BgL_makezd2vectorzd2appz00_bglt BgL_auxz00_4501;
{ /* ./Cfa/cinfo2.scm 63 */
BgL_makezd2vectorzd2appz00_bglt BgL_res7179z00_3820;
{ /* ./Cfa/cinfo2.scm 63 */
BgL_makezd2vectorzd2appz00_bglt BgL_new3949z00_3807;BgL_approxz00_bglt BgL_approx3943z00_3808;BgL_approxz00_bglt BgL_valuezd2approx3944zd2_3809;long BgL_lostzd2stamp3945zd2_3810;BgL_variablez00_bglt BgL_owner3946z00_3811;bool_t BgL_seenzf33948zf3_3813;
BgL_new3949z00_3807 = 
(BgL_makezd2vectorzd2appz00_bglt)(BgL_new3949z00_3422); 
BgL_approx3943z00_3808 = 
(BgL_approxz00_bglt)(BgL_approx3943z00_3423); 
BgL_valuezd2approx3944zd2_3809 = 
(BgL_approxz00_bglt)(BgL_valuezd2approx3944zd2_3424); 
BgL_lostzd2stamp3945zd2_3810 = 
(long)CINT(BgL_lostzd2stamp3945zd2_3425); 
BgL_owner3946z00_3811 = 
(BgL_variablez00_bglt)(BgL_owner3946z00_3426); 
BgL_seenzf33948zf3_3813 = 
CBOOL(BgL_seenzf33948zf3_3428); 
{ /* ./Cfa/cinfo2.scm 63 */
BgL_approxz00_bglt BgL_approx3943z00_3814;BgL_approxz00_bglt BgL_valuezd2approx3944zd2_3815;long BgL_lostzd2stamp3945zd2_3816;BgL_variablez00_bglt BgL_owner3946z00_3817;obj_t BgL_stackzd2stamp3947zd2_3818;bool_t BgL_seenzf33948zf3_3819;
BgL_approx3943z00_3814 = BgL_approx3943z00_3808; 
BgL_valuezd2approx3944zd2_3815 = BgL_valuezd2approx3944zd2_3809; 
BgL_lostzd2stamp3945zd2_3816 = BgL_lostzd2stamp3945zd2_3810; 
BgL_owner3946z00_3817 = BgL_owner3946z00_3811; 
BgL_stackzd2stamp3947zd2_3818 = BgL_stackzd2stamp3947zd2_3427; 
BgL_seenzf33948zf3_3819 = BgL_seenzf33948zf3_3813; 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_3807))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3943z00_3814), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_3807))->BgL_valuezd2approxzd2) = ((BgL_approxz00_bglt)BgL_valuezd2approx3944zd2_3815), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_3807))->BgL_lostzd2stampzd2) = ((long)BgL_lostzd2stamp3945zd2_3816), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_3807))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3946z00_3817), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_3807))->BgL_stackzd2stampzd2) = ((obj_t)BgL_stackzd2stamp3947zd2_3818), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_3807))->BgL_seenzf3zf3) = ((bool_t)BgL_seenzf33948zf3_3819), BUNSPEC); 
BgL_res7179z00_3820 = BgL_new3949z00_3807; } } 
BgL_auxz00_4501 = BgL_res7179z00_3820; } 
return 
(obj_t)(BgL_auxz00_4501);} } 
}



/* allocate-make-vector-app */
BGL_EXPORTED_DEF BgL_appz00_bglt BGl_allocatezd2makezd2vectorzd2appzd2zzcfa_info2z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 63 */
{ /* ./Cfa/cinfo2.scm 63 */
BgL_appz00_bglt BgL_new3957z00_3821;
BgL_new3957z00_3821 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 63 */
long BgL_arg4624z00_3822;
BgL_arg4624z00_3822 = 
BGl_classzd2numzd2zz__objectz00(BGl_makezd2vectorzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 63 */
BgL_objectz00_bglt BgL_objz00_3823;
BgL_objz00_3823 = 
(BgL_objectz00_bglt)(BgL_new3957z00_3821); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3823, BgL_arg4624z00_3822); } } 
{ /* ./Cfa/cinfo2.scm 63 */
BgL_objectz00_bglt BgL_auxz00_4519;
BgL_auxz00_4519 = 
(BgL_objectz00_bglt)(BgL_new3957z00_3821); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4519, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 63 */
obj_t BgL_objz00_3824;
BgL_objz00_3824 = 
(obj_t)(BgL_new3957z00_3821); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3824); BUNSPEC; } 
return BgL_new3957z00_3821;} } 
}



/* _allocate-make-vector-app */
obj_t BGl__allocatezd2makezd2vectorzd2appzd2zzcfa_info2z00(obj_t BgL_envz00_3296)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 63 */
{ /* ./Cfa/cinfo2.scm 63 */
BgL_appz00_bglt BgL_auxz00_4524;
{ /* ./Cfa/cinfo2.scm 63 */
BgL_appz00_bglt BgL_res7180z00_3829;
{ /* ./Cfa/cinfo2.scm 63 */
BgL_appz00_bglt BgL_new3957z00_3825;
BgL_new3957z00_3825 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 63 */
long BgL_arg4624z00_3826;
BgL_arg4624z00_3826 = 
BGl_classzd2numzd2zz__objectz00(BGl_makezd2vectorzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 63 */
BgL_objectz00_bglt BgL_objz00_3827;
BgL_objz00_3827 = 
(BgL_objectz00_bglt)(BgL_new3957z00_3825); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3827, BgL_arg4624z00_3826); } } 
{ /* ./Cfa/cinfo2.scm 63 */
BgL_objectz00_bglt BgL_auxz00_4529;
BgL_auxz00_4529 = 
(BgL_objectz00_bglt)(BgL_new3957z00_3825); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4529, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 63 */
obj_t BgL_objz00_3828;
BgL_objz00_3828 = 
(obj_t)(BgL_new3957z00_3825); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3828); BUNSPEC; } 
BgL_res7180z00_3829 = BgL_new3957z00_3825; } 
BgL_auxz00_4524 = BgL_res7180z00_3829; } 
return 
(obj_t)(BgL_auxz00_4524);} } 
}



/* pre-make-vector-app? */
BGL_EXPORTED_DEF bool_t BGl_prezd2makezd2vectorzd2appzf3z21zzcfa_info2z00(obj_t BgL_obj3902z00_148)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 59 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3902z00_148, BGl_prezd2makezd2vectorzd2appzd2zzcfa_info2z00);} 
}



/* _pre-make-vector-app? */
obj_t BGl__prezd2makezd2vectorzd2appzf3z21zzcfa_info2z00(obj_t BgL_envz00_3429, obj_t BgL_obj3902z00_3430)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 59 */
{ /* ./Cfa/cinfo2.scm 59 */
bool_t BgL_auxz00_4536;
BgL_auxz00_4536 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3902z00_3430, BGl_prezd2makezd2vectorzd2appzd2zzcfa_info2z00); 
return 
BBOOL(BgL_auxz00_4536);} } 
}



/* widening-pre-make-vector-app */
BGL_EXPORTED_DEF BgL_prezd2makezd2vectorzd2appzd2_bglt BGl_wideningzd2prezd2makezd2vectorzd2appz00zzcfa_info2z00(BgL_variablez00_bglt BgL_owner3879z00_152)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 59 */
{ /* ./Cfa/cinfo2.scm 59 */
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_new3880z00_2425;
BgL_new3880z00_2425 = 
((BgL_prezd2makezd2vectorzd2appzd2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_prezd2makezd2vectorzd2appzd2_bgl)))); 
{ /* ./Cfa/cinfo2.scm 59 */
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_res6109z00_2429;
{ /* ./Cfa/cinfo2.scm 59 */
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_new3892z00_2426;
BgL_new3892z00_2426 = BgL_new3880z00_2425; 
{ /* ./Cfa/cinfo2.scm 59 */
BgL_variablez00_bglt BgL_owner3891z00_2428;
BgL_owner3891z00_2428 = BgL_owner3879z00_152; 
((((BgL_prezd2makezd2vectorzd2appzd2_bglt)CREF(BgL_new3892z00_2426))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3891z00_2428), BUNSPEC); 
BgL_res6109z00_2429 = BgL_new3892z00_2426; } } BgL_res6109z00_2429; } 
return BgL_new3880z00_2425;} } 
}



/* _widening-pre-make-vector-app6220 */
obj_t BGl__wideningzd2prezd2makezd2vectorzd2app6220z00zzcfa_info2z00(obj_t BgL_envz00_3431, obj_t BgL_owner3879z00_3432)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 59 */
{ /* ./Cfa/cinfo2.scm 59 */
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_auxz00_4541;
BgL_auxz00_4541 = 
BGl_wideningzd2prezd2makezd2vectorzd2appz00zzcfa_info2z00(
(BgL_variablez00_bglt)(BgL_owner3879z00_3432)); 
return 
(obj_t)(BgL_auxz00_4541);} } 
}



/* make-pre-make-vector-app */
BGL_EXPORTED_DEF BgL_prezd2makezd2vectorzd2appzd2_bglt BGl_makezd2prezd2makezd2vectorzd2appz00zzcfa_info2z00(obj_t BgL_loc3883z00_153, BgL_typez00_bglt BgL_type3884z00_154, obj_t BgL_sidezd2effectzf33885z21_155, obj_t BgL_key3886z00_156, BgL_varz00_bglt BgL_fun3887z00_157, obj_t BgL_args3888z00_158, BgL_variablez00_bglt BgL_owner3882z00_159)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 59 */
{ /* ./Cfa/cinfo2.scm 59 */
BgL_appz00_bglt BgL_aux3889z00_2430;
BgL_aux3889z00_2430 = 
BGl_makezd2appzd2zzast_nodez00(BgL_loc3883z00_153, BgL_type3884z00_154, BgL_sidezd2effectzf33885z21_155, BgL_key3886z00_156, BgL_fun3887z00_157, BgL_args3888z00_158); 
{ /* ./Cfa/cinfo2.scm 59 */
long BgL_arg4642z00_2431;
BgL_arg4642z00_2431 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2makezd2vectorzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 59 */
BgL_objectz00_bglt BgL_objz00_2434;
BgL_objz00_2434 = 
(BgL_objectz00_bglt)(BgL_aux3889z00_2430); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2434, BgL_arg4642z00_2431); } } 
{ /* ./Cfa/cinfo2.scm 59 */
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_arg4646z00_2432;
{ /* ./Cfa/cinfo2.scm 59 */
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_res6111z00_2442;
{ /* ./Cfa/cinfo2.scm 59 */
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_new3880z00_2437;
BgL_new3880z00_2437 = 
((BgL_prezd2makezd2vectorzd2appzd2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_prezd2makezd2vectorzd2appzd2_bgl)))); 
{ /* ./Cfa/cinfo2.scm 59 */
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_res6110z00_2441;
{ /* ./Cfa/cinfo2.scm 59 */
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_new3892z00_2438;
BgL_new3892z00_2438 = BgL_new3880z00_2437; 
{ /* ./Cfa/cinfo2.scm 59 */
BgL_variablez00_bglt BgL_owner3891z00_2440;
BgL_owner3891z00_2440 = BgL_owner3882z00_159; 
((((BgL_prezd2makezd2vectorzd2appzd2_bglt)CREF(BgL_new3892z00_2438))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3891z00_2440), BUNSPEC); 
BgL_res6110z00_2441 = BgL_new3892z00_2438; } } BgL_res6110z00_2441; } 
BgL_res6111z00_2442 = BgL_new3880z00_2437; } 
BgL_arg4646z00_2432 = BgL_res6111z00_2442; } 
{ /* ./Cfa/cinfo2.scm 59 */
obj_t BgL_auxz00_4553;BgL_objectz00_bglt BgL_auxz00_4551;
BgL_auxz00_4553 = 
(obj_t)(BgL_arg4646z00_2432); 
BgL_auxz00_4551 = 
(BgL_objectz00_bglt)(BgL_aux3889z00_2430); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4551, BgL_auxz00_4553); } } 
{ /* ./Cfa/cinfo2.scm 59 */
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_new3890z00_2433;
{ 
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_auxz00_4556;
BgL_auxz00_4556 = 
(BgL_prezd2makezd2vectorzd2appzd2_bglt)(BgL_aux3889z00_2430); 
BgL_new3890z00_2433 = 
((BgL_prezd2makezd2vectorzd2appzd2_bglt)BgL_auxz00_4556); } 
{ /* ./Cfa/cinfo2.scm 59 */
obj_t BgL_objz00_2443;
BgL_objz00_2443 = 
(obj_t)(BgL_new3890z00_2433); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2443); BUNSPEC; } 
return BgL_new3890z00_2433;} } } 
}



/* _make-pre-make-vector-app */
obj_t BGl__makezd2prezd2makezd2vectorzd2appz00zzcfa_info2z00(obj_t BgL_envz00_3433, obj_t BgL_loc3883z00_3434, obj_t BgL_type3884z00_3435, obj_t BgL_sidezd2effectzf33885z21_3436, obj_t BgL_key3886z00_3437, obj_t BgL_fun3887z00_3438, obj_t BgL_args3888z00_3439, obj_t BgL_owner3882z00_3440)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 59 */
{ /* ./Cfa/cinfo2.scm 59 */
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_auxz00_4561;
BgL_auxz00_4561 = 
BGl_makezd2prezd2makezd2vectorzd2appz00zzcfa_info2z00(BgL_loc3883z00_3434, 
(BgL_typez00_bglt)(BgL_type3884z00_3435), BgL_sidezd2effectzf33885z21_3436, BgL_key3886z00_3437, 
(BgL_varz00_bglt)(BgL_fun3887z00_3438), BgL_args3888z00_3439, 
(BgL_variablez00_bglt)(BgL_owner3882z00_3440)); 
return 
(obj_t)(BgL_auxz00_4561);} } 
}



/* fill-pre-make-vector-app! */
BGL_EXPORTED_DEF BgL_prezd2makezd2vectorzd2appzd2_bglt BGl_fillzd2prezd2makezd2vectorzd2appz12z12zzcfa_info2z00(BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_new3892z00_160, BgL_variablez00_bglt BgL_owner3891z00_161)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 59 */
{ /* ./Cfa/cinfo2.scm 59 */
BgL_variablez00_bglt BgL_owner3891z00_3831;
BgL_owner3891z00_3831 = BgL_owner3891z00_161; 
((((BgL_prezd2makezd2vectorzd2appzd2_bglt)CREF(BgL_new3892z00_160))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3891z00_3831), BUNSPEC); 
return BgL_new3892z00_160;} } 
}



/* _fill-pre-make-vector-app! */
obj_t BGl__fillzd2prezd2makezd2vectorzd2appz12z12zzcfa_info2z00(obj_t BgL_envz00_3441, obj_t BgL_new3892z00_3442, obj_t BgL_owner3891z00_3443)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 59 */
{ /* ./Cfa/cinfo2.scm 59 */
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_auxz00_4568;
{ /* ./Cfa/cinfo2.scm 59 */
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_res7181z00_3835;
{ /* ./Cfa/cinfo2.scm 59 */
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_new3892z00_3832;BgL_variablez00_bglt BgL_owner3891z00_3833;
BgL_new3892z00_3832 = 
(BgL_prezd2makezd2vectorzd2appzd2_bglt)(BgL_new3892z00_3442); 
BgL_owner3891z00_3833 = 
(BgL_variablez00_bglt)(BgL_owner3891z00_3443); 
{ /* ./Cfa/cinfo2.scm 59 */
BgL_variablez00_bglt BgL_owner3891z00_3834;
BgL_owner3891z00_3834 = BgL_owner3891z00_3833; 
((((BgL_prezd2makezd2vectorzd2appzd2_bglt)CREF(BgL_new3892z00_3832))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3891z00_3834), BUNSPEC); 
BgL_res7181z00_3835 = BgL_new3892z00_3832; } } 
BgL_auxz00_4568 = BgL_res7181z00_3835; } 
return 
(obj_t)(BgL_auxz00_4568);} } 
}



/* allocate-pre-make-vector-app */
BGL_EXPORTED_DEF BgL_appz00_bglt BGl_allocatezd2prezd2makezd2vectorzd2appz00zzcfa_info2z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 59 */
{ /* ./Cfa/cinfo2.scm 59 */
BgL_appz00_bglt BgL_new3895z00_3836;
BgL_new3895z00_3836 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 59 */
long BgL_arg4652z00_3837;
BgL_arg4652z00_3837 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2makezd2vectorzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 59 */
BgL_objectz00_bglt BgL_objz00_3838;
BgL_objz00_3838 = 
(BgL_objectz00_bglt)(BgL_new3895z00_3836); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3838, BgL_arg4652z00_3837); } } 
{ /* ./Cfa/cinfo2.scm 59 */
BgL_objectz00_bglt BgL_auxz00_4577;
BgL_auxz00_4577 = 
(BgL_objectz00_bglt)(BgL_new3895z00_3836); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4577, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 59 */
obj_t BgL_objz00_3839;
BgL_objz00_3839 = 
(obj_t)(BgL_new3895z00_3836); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3839); BUNSPEC; } 
return BgL_new3895z00_3836;} } 
}



/* _allocate-pre-make-vector-app */
obj_t BGl__allocatezd2prezd2makezd2vectorzd2appz00zzcfa_info2z00(obj_t BgL_envz00_3295)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 59 */
{ /* ./Cfa/cinfo2.scm 59 */
BgL_appz00_bglt BgL_auxz00_4582;
{ /* ./Cfa/cinfo2.scm 59 */
BgL_appz00_bglt BgL_res7182z00_3844;
{ /* ./Cfa/cinfo2.scm 59 */
BgL_appz00_bglt BgL_new3895z00_3840;
BgL_new3895z00_3840 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 59 */
long BgL_arg4652z00_3841;
BgL_arg4652z00_3841 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2makezd2vectorzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 59 */
BgL_objectz00_bglt BgL_objz00_3842;
BgL_objz00_3842 = 
(BgL_objectz00_bglt)(BgL_new3895z00_3840); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3842, BgL_arg4652z00_3841); } } 
{ /* ./Cfa/cinfo2.scm 59 */
BgL_objectz00_bglt BgL_auxz00_4587;
BgL_auxz00_4587 = 
(BgL_objectz00_bglt)(BgL_new3895z00_3840); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4587, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 59 */
obj_t BgL_objz00_3843;
BgL_objz00_3843 = 
(obj_t)(BgL_new3895z00_3840); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3843); BUNSPEC; } 
BgL_res7182z00_3844 = BgL_new3895z00_3840; } 
BgL_auxz00_4582 = BgL_res7182z00_3844; } 
return 
(obj_t)(BgL_auxz00_4582);} } 
}



/* procedure-set!-app? */
BGL_EXPORTED_DEF bool_t BGl_procedurezd2setz12zd2appzf3ze1zzcfa_info2z00(obj_t BgL_obj3859z00_163)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 56 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3859z00_163, BGl_procedurezd2setz12zd2appz12zzcfa_info2z00);} 
}



/* _procedure-set!-app? */
obj_t BGl__procedurezd2setz12zd2appzf3ze1zzcfa_info2z00(obj_t BgL_envz00_3444, obj_t BgL_obj3859z00_3445)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 56 */
{ /* ./Cfa/cinfo2.scm 56 */
bool_t BgL_auxz00_4594;
BgL_auxz00_4594 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3859z00_3445, BGl_procedurezd2setz12zd2appz12zzcfa_info2z00); 
return 
BBOOL(BgL_auxz00_4594);} } 
}



/* widening-procedure-set!-app */
BGL_EXPORTED_DEF BgL_procedurezd2setz12zd2appz12_bglt BGl_wideningzd2procedurezd2setz12zd2appzc0zzcfa_info2z00(BgL_approxz00_bglt BgL_approx3836z00_167)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 56 */
{ /* ./Cfa/cinfo2.scm 56 */
BgL_procedurezd2setz12zd2appz12_bglt BgL_new3837z00_2450;
BgL_new3837z00_2450 = 
((BgL_procedurezd2setz12zd2appz12_bglt)BREF( GC_MALLOC (sizeof(struct BgL_procedurezd2setz12zd2appz12_bgl)))); 
{ /* ./Cfa/cinfo2.scm 56 */
BgL_procedurezd2setz12zd2appz12_bglt BgL_res6112z00_2454;
{ /* ./Cfa/cinfo2.scm 56 */
BgL_procedurezd2setz12zd2appz12_bglt BgL_new3849z00_2451;
BgL_new3849z00_2451 = BgL_new3837z00_2450; 
{ /* ./Cfa/cinfo2.scm 56 */
BgL_approxz00_bglt BgL_approx3848z00_2453;
BgL_approx3848z00_2453 = BgL_approx3836z00_167; 
((((BgL_procedurezd2setz12zd2appz12_bglt)CREF(BgL_new3849z00_2451))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3848z00_2453), BUNSPEC); 
BgL_res6112z00_2454 = BgL_new3849z00_2451; } } BgL_res6112z00_2454; } 
return BgL_new3837z00_2450;} } 
}



/* _widening-procedure-set!-app6225 */
obj_t BGl__wideningzd2procedurezd2setz12zd2app6225zc0zzcfa_info2z00(obj_t BgL_envz00_3446, obj_t BgL_approx3836z00_3447)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 56 */
{ /* ./Cfa/cinfo2.scm 56 */
BgL_procedurezd2setz12zd2appz12_bglt BgL_auxz00_4599;
BgL_auxz00_4599 = 
BGl_wideningzd2procedurezd2setz12zd2appzc0zzcfa_info2z00(
(BgL_approxz00_bglt)(BgL_approx3836z00_3447)); 
return 
(obj_t)(BgL_auxz00_4599);} } 
}



/* make-procedure-set!-app */
BGL_EXPORTED_DEF BgL_procedurezd2setz12zd2appz12_bglt BGl_makezd2procedurezd2setz12zd2appzc0zzcfa_info2z00(obj_t BgL_loc3840z00_168, BgL_typez00_bglt BgL_type3841z00_169, obj_t BgL_sidezd2effectzf33842z21_170, obj_t BgL_key3843z00_171, BgL_varz00_bglt BgL_fun3844z00_172, obj_t BgL_args3845z00_173, BgL_approxz00_bglt BgL_approx3839z00_174)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 56 */
{ /* ./Cfa/cinfo2.scm 56 */
BgL_appz00_bglt BgL_aux3846z00_2455;
BgL_aux3846z00_2455 = 
BGl_makezd2appzd2zzast_nodez00(BgL_loc3840z00_168, BgL_type3841z00_169, BgL_sidezd2effectzf33842z21_170, BgL_key3843z00_171, BgL_fun3844z00_172, BgL_args3845z00_173); 
{ /* ./Cfa/cinfo2.scm 56 */
long BgL_arg4661z00_2456;
BgL_arg4661z00_2456 = 
BGl_classzd2numzd2zz__objectz00(BGl_procedurezd2setz12zd2appz12zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 56 */
BgL_objectz00_bglt BgL_objz00_2459;
BgL_objz00_2459 = 
(BgL_objectz00_bglt)(BgL_aux3846z00_2455); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2459, BgL_arg4661z00_2456); } } 
{ /* ./Cfa/cinfo2.scm 56 */
BgL_procedurezd2setz12zd2appz12_bglt BgL_arg4665z00_2457;
{ /* ./Cfa/cinfo2.scm 56 */
BgL_procedurezd2setz12zd2appz12_bglt BgL_res6114z00_2467;
{ /* ./Cfa/cinfo2.scm 56 */
BgL_procedurezd2setz12zd2appz12_bglt BgL_new3837z00_2462;
BgL_new3837z00_2462 = 
((BgL_procedurezd2setz12zd2appz12_bglt)BREF( GC_MALLOC (sizeof(struct BgL_procedurezd2setz12zd2appz12_bgl)))); 
{ /* ./Cfa/cinfo2.scm 56 */
BgL_procedurezd2setz12zd2appz12_bglt BgL_res6113z00_2466;
{ /* ./Cfa/cinfo2.scm 56 */
BgL_procedurezd2setz12zd2appz12_bglt BgL_new3849z00_2463;
BgL_new3849z00_2463 = BgL_new3837z00_2462; 
{ /* ./Cfa/cinfo2.scm 56 */
BgL_approxz00_bglt BgL_approx3848z00_2465;
BgL_approx3848z00_2465 = BgL_approx3839z00_174; 
((((BgL_procedurezd2setz12zd2appz12_bglt)CREF(BgL_new3849z00_2463))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3848z00_2465), BUNSPEC); 
BgL_res6113z00_2466 = BgL_new3849z00_2463; } } BgL_res6113z00_2466; } 
BgL_res6114z00_2467 = BgL_new3837z00_2462; } 
BgL_arg4665z00_2457 = BgL_res6114z00_2467; } 
{ /* ./Cfa/cinfo2.scm 56 */
obj_t BgL_auxz00_4611;BgL_objectz00_bglt BgL_auxz00_4609;
BgL_auxz00_4611 = 
(obj_t)(BgL_arg4665z00_2457); 
BgL_auxz00_4609 = 
(BgL_objectz00_bglt)(BgL_aux3846z00_2455); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4609, BgL_auxz00_4611); } } 
{ /* ./Cfa/cinfo2.scm 56 */
BgL_procedurezd2setz12zd2appz12_bglt BgL_new3847z00_2458;
{ 
BgL_procedurezd2setz12zd2appz12_bglt BgL_auxz00_4614;
BgL_auxz00_4614 = 
(BgL_procedurezd2setz12zd2appz12_bglt)(BgL_aux3846z00_2455); 
BgL_new3847z00_2458 = 
((BgL_procedurezd2setz12zd2appz12_bglt)BgL_auxz00_4614); } 
{ /* ./Cfa/cinfo2.scm 56 */
obj_t BgL_objz00_2468;
BgL_objz00_2468 = 
(obj_t)(BgL_new3847z00_2458); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2468); BUNSPEC; } 
return BgL_new3847z00_2458;} } } 
}



/* _make-procedure-set!-app */
obj_t BGl__makezd2procedurezd2setz12zd2appzc0zzcfa_info2z00(obj_t BgL_envz00_3448, obj_t BgL_loc3840z00_3449, obj_t BgL_type3841z00_3450, obj_t BgL_sidezd2effectzf33842z21_3451, obj_t BgL_key3843z00_3452, obj_t BgL_fun3844z00_3453, obj_t BgL_args3845z00_3454, obj_t BgL_approx3839z00_3455)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 56 */
{ /* ./Cfa/cinfo2.scm 56 */
BgL_procedurezd2setz12zd2appz12_bglt BgL_auxz00_4619;
BgL_auxz00_4619 = 
BGl_makezd2procedurezd2setz12zd2appzc0zzcfa_info2z00(BgL_loc3840z00_3449, 
(BgL_typez00_bglt)(BgL_type3841z00_3450), BgL_sidezd2effectzf33842z21_3451, BgL_key3843z00_3452, 
(BgL_varz00_bglt)(BgL_fun3844z00_3453), BgL_args3845z00_3454, 
(BgL_approxz00_bglt)(BgL_approx3839z00_3455)); 
return 
(obj_t)(BgL_auxz00_4619);} } 
}



/* fill-procedure-set!-app! */
BGL_EXPORTED_DEF BgL_procedurezd2setz12zd2appz12_bglt BGl_fillzd2procedurezd2setz12zd2appz12zd2zzcfa_info2z00(BgL_procedurezd2setz12zd2appz12_bglt BgL_new3849z00_175, BgL_approxz00_bglt BgL_approx3848z00_176)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 56 */
{ /* ./Cfa/cinfo2.scm 56 */
BgL_approxz00_bglt BgL_approx3848z00_3846;
BgL_approx3848z00_3846 = BgL_approx3848z00_176; 
((((BgL_procedurezd2setz12zd2appz12_bglt)CREF(BgL_new3849z00_175))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3848z00_3846), BUNSPEC); 
return BgL_new3849z00_175;} } 
}



/* _fill-procedure-set!-app! */
obj_t BGl__fillzd2procedurezd2setz12zd2appz12zd2zzcfa_info2z00(obj_t BgL_envz00_3456, obj_t BgL_new3849z00_3457, obj_t BgL_approx3848z00_3458)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 56 */
{ /* ./Cfa/cinfo2.scm 56 */
BgL_procedurezd2setz12zd2appz12_bglt BgL_auxz00_4626;
{ /* ./Cfa/cinfo2.scm 56 */
BgL_procedurezd2setz12zd2appz12_bglt BgL_res7183z00_3850;
{ /* ./Cfa/cinfo2.scm 56 */
BgL_procedurezd2setz12zd2appz12_bglt BgL_new3849z00_3847;BgL_approxz00_bglt BgL_approx3848z00_3848;
BgL_new3849z00_3847 = 
(BgL_procedurezd2setz12zd2appz12_bglt)(BgL_new3849z00_3457); 
BgL_approx3848z00_3848 = 
(BgL_approxz00_bglt)(BgL_approx3848z00_3458); 
{ /* ./Cfa/cinfo2.scm 56 */
BgL_approxz00_bglt BgL_approx3848z00_3849;
BgL_approx3848z00_3849 = BgL_approx3848z00_3848; 
((((BgL_procedurezd2setz12zd2appz12_bglt)CREF(BgL_new3849z00_3847))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3848z00_3849), BUNSPEC); 
BgL_res7183z00_3850 = BgL_new3849z00_3847; } } 
BgL_auxz00_4626 = BgL_res7183z00_3850; } 
return 
(obj_t)(BgL_auxz00_4626);} } 
}



/* allocate-procedure-set!-app */
BGL_EXPORTED_DEF BgL_appz00_bglt BGl_allocatezd2procedurezd2setz12zd2appzc0zzcfa_info2z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 56 */
{ /* ./Cfa/cinfo2.scm 56 */
BgL_appz00_bglt BgL_new3852z00_3851;
BgL_new3852z00_3851 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 56 */
long BgL_arg4671z00_3852;
BgL_arg4671z00_3852 = 
BGl_classzd2numzd2zz__objectz00(BGl_procedurezd2setz12zd2appz12zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 56 */
BgL_objectz00_bglt BgL_objz00_3853;
BgL_objz00_3853 = 
(BgL_objectz00_bglt)(BgL_new3852z00_3851); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3853, BgL_arg4671z00_3852); } } 
{ /* ./Cfa/cinfo2.scm 56 */
BgL_objectz00_bglt BgL_auxz00_4635;
BgL_auxz00_4635 = 
(BgL_objectz00_bglt)(BgL_new3852z00_3851); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4635, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 56 */
obj_t BgL_objz00_3854;
BgL_objz00_3854 = 
(obj_t)(BgL_new3852z00_3851); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3854); BUNSPEC; } 
return BgL_new3852z00_3851;} } 
}



/* _allocate-procedure-set!-app */
obj_t BGl__allocatezd2procedurezd2setz12zd2appzc0zzcfa_info2z00(obj_t BgL_envz00_3294)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 56 */
{ /* ./Cfa/cinfo2.scm 56 */
BgL_appz00_bglt BgL_auxz00_4640;
{ /* ./Cfa/cinfo2.scm 56 */
BgL_appz00_bglt BgL_res7184z00_3859;
{ /* ./Cfa/cinfo2.scm 56 */
BgL_appz00_bglt BgL_new3852z00_3855;
BgL_new3852z00_3855 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 56 */
long BgL_arg4671z00_3856;
BgL_arg4671z00_3856 = 
BGl_classzd2numzd2zz__objectz00(BGl_procedurezd2setz12zd2appz12zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 56 */
BgL_objectz00_bglt BgL_objz00_3857;
BgL_objz00_3857 = 
(BgL_objectz00_bglt)(BgL_new3852z00_3855); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3857, BgL_arg4671z00_3856); } } 
{ /* ./Cfa/cinfo2.scm 56 */
BgL_objectz00_bglt BgL_auxz00_4645;
BgL_auxz00_4645 = 
(BgL_objectz00_bglt)(BgL_new3852z00_3855); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4645, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 56 */
obj_t BgL_objz00_3858;
BgL_objz00_3858 = 
(obj_t)(BgL_new3852z00_3855); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3858); BUNSPEC; } 
BgL_res7184z00_3859 = BgL_new3852z00_3855; } 
BgL_auxz00_4640 = BgL_res7184z00_3859; } 
return 
(obj_t)(BgL_auxz00_4640);} } 
}



/* procedure-ref-app? */
BGL_EXPORTED_DEF bool_t BGl_procedurezd2refzd2appzf3zf3zzcfa_info2z00(obj_t BgL_obj3818z00_178)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 55 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3818z00_178, BGl_procedurezd2refzd2appz00zzcfa_info2z00);} 
}



/* _procedure-ref-app? */
obj_t BGl__procedurezd2refzd2appzf3zf3zzcfa_info2z00(obj_t BgL_envz00_3459, obj_t BgL_obj3818z00_3460)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 55 */
{ /* ./Cfa/cinfo2.scm 55 */
bool_t BgL_auxz00_4652;
BgL_auxz00_4652 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3818z00_3460, BGl_procedurezd2refzd2appz00zzcfa_info2z00); 
return 
BBOOL(BgL_auxz00_4652);} } 
}



/* widening-procedure-ref-app */
BGL_EXPORTED_DEF BgL_procedurezd2refzd2appz00_bglt BGl_wideningzd2procedurezd2refzd2appzd2zzcfa_info2z00(BgL_approxz00_bglt BgL_approx3795z00_182)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 55 */
{ /* ./Cfa/cinfo2.scm 55 */
BgL_procedurezd2refzd2appz00_bglt BgL_new3796z00_2475;
BgL_new3796z00_2475 = 
((BgL_procedurezd2refzd2appz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_procedurezd2refzd2appz00_bgl)))); 
{ /* ./Cfa/cinfo2.scm 55 */
BgL_procedurezd2refzd2appz00_bglt BgL_res6115z00_2479;
{ /* ./Cfa/cinfo2.scm 55 */
BgL_procedurezd2refzd2appz00_bglt BgL_new3808z00_2476;
BgL_new3808z00_2476 = BgL_new3796z00_2475; 
{ /* ./Cfa/cinfo2.scm 55 */
BgL_approxz00_bglt BgL_approx3807z00_2478;
BgL_approx3807z00_2478 = BgL_approx3795z00_182; 
((((BgL_procedurezd2refzd2appz00_bglt)CREF(BgL_new3808z00_2476))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3807z00_2478), BUNSPEC); 
BgL_res6115z00_2479 = BgL_new3808z00_2476; } } BgL_res6115z00_2479; } 
return BgL_new3796z00_2475;} } 
}



/* _widening-procedure-ref-app6230 */
obj_t BGl__wideningzd2procedurezd2refzd2app6230zd2zzcfa_info2z00(obj_t BgL_envz00_3461, obj_t BgL_approx3795z00_3462)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 55 */
{ /* ./Cfa/cinfo2.scm 55 */
BgL_procedurezd2refzd2appz00_bglt BgL_auxz00_4657;
BgL_auxz00_4657 = 
BGl_wideningzd2procedurezd2refzd2appzd2zzcfa_info2z00(
(BgL_approxz00_bglt)(BgL_approx3795z00_3462)); 
return 
(obj_t)(BgL_auxz00_4657);} } 
}



/* make-procedure-ref-app */
BGL_EXPORTED_DEF BgL_procedurezd2refzd2appz00_bglt BGl_makezd2procedurezd2refzd2appzd2zzcfa_info2z00(obj_t BgL_loc3799z00_183, BgL_typez00_bglt BgL_type3800z00_184, obj_t BgL_sidezd2effectzf33801z21_185, obj_t BgL_key3802z00_186, BgL_varz00_bglt BgL_fun3803z00_187, obj_t BgL_args3804z00_188, BgL_approxz00_bglt BgL_approx3798z00_189)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 55 */
{ /* ./Cfa/cinfo2.scm 55 */
BgL_appz00_bglt BgL_aux3805z00_2480;
BgL_aux3805z00_2480 = 
BGl_makezd2appzd2zzast_nodez00(BgL_loc3799z00_183, BgL_type3800z00_184, BgL_sidezd2effectzf33801z21_185, BgL_key3802z00_186, BgL_fun3803z00_187, BgL_args3804z00_188); 
{ /* ./Cfa/cinfo2.scm 55 */
long BgL_arg4680z00_2481;
BgL_arg4680z00_2481 = 
BGl_classzd2numzd2zz__objectz00(BGl_procedurezd2refzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 55 */
BgL_objectz00_bglt BgL_objz00_2484;
BgL_objz00_2484 = 
(BgL_objectz00_bglt)(BgL_aux3805z00_2480); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2484, BgL_arg4680z00_2481); } } 
{ /* ./Cfa/cinfo2.scm 55 */
BgL_procedurezd2refzd2appz00_bglt BgL_arg4684z00_2482;
{ /* ./Cfa/cinfo2.scm 55 */
BgL_procedurezd2refzd2appz00_bglt BgL_res6117z00_2492;
{ /* ./Cfa/cinfo2.scm 55 */
BgL_procedurezd2refzd2appz00_bglt BgL_new3796z00_2487;
BgL_new3796z00_2487 = 
((BgL_procedurezd2refzd2appz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_procedurezd2refzd2appz00_bgl)))); 
{ /* ./Cfa/cinfo2.scm 55 */
BgL_procedurezd2refzd2appz00_bglt BgL_res6116z00_2491;
{ /* ./Cfa/cinfo2.scm 55 */
BgL_procedurezd2refzd2appz00_bglt BgL_new3808z00_2488;
BgL_new3808z00_2488 = BgL_new3796z00_2487; 
{ /* ./Cfa/cinfo2.scm 55 */
BgL_approxz00_bglt BgL_approx3807z00_2490;
BgL_approx3807z00_2490 = BgL_approx3798z00_189; 
((((BgL_procedurezd2refzd2appz00_bglt)CREF(BgL_new3808z00_2488))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3807z00_2490), BUNSPEC); 
BgL_res6116z00_2491 = BgL_new3808z00_2488; } } BgL_res6116z00_2491; } 
BgL_res6117z00_2492 = BgL_new3796z00_2487; } 
BgL_arg4684z00_2482 = BgL_res6117z00_2492; } 
{ /* ./Cfa/cinfo2.scm 55 */
obj_t BgL_auxz00_4669;BgL_objectz00_bglt BgL_auxz00_4667;
BgL_auxz00_4669 = 
(obj_t)(BgL_arg4684z00_2482); 
BgL_auxz00_4667 = 
(BgL_objectz00_bglt)(BgL_aux3805z00_2480); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4667, BgL_auxz00_4669); } } 
{ /* ./Cfa/cinfo2.scm 55 */
BgL_procedurezd2refzd2appz00_bglt BgL_new3806z00_2483;
{ 
BgL_procedurezd2refzd2appz00_bglt BgL_auxz00_4672;
BgL_auxz00_4672 = 
(BgL_procedurezd2refzd2appz00_bglt)(BgL_aux3805z00_2480); 
BgL_new3806z00_2483 = 
((BgL_procedurezd2refzd2appz00_bglt)BgL_auxz00_4672); } 
{ /* ./Cfa/cinfo2.scm 55 */
obj_t BgL_objz00_2493;
BgL_objz00_2493 = 
(obj_t)(BgL_new3806z00_2483); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2493); BUNSPEC; } 
return BgL_new3806z00_2483;} } } 
}



/* _make-procedure-ref-app */
obj_t BGl__makezd2procedurezd2refzd2appzd2zzcfa_info2z00(obj_t BgL_envz00_3463, obj_t BgL_loc3799z00_3464, obj_t BgL_type3800z00_3465, obj_t BgL_sidezd2effectzf33801z21_3466, obj_t BgL_key3802z00_3467, obj_t BgL_fun3803z00_3468, obj_t BgL_args3804z00_3469, obj_t BgL_approx3798z00_3470)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 55 */
{ /* ./Cfa/cinfo2.scm 55 */
BgL_procedurezd2refzd2appz00_bglt BgL_auxz00_4677;
BgL_auxz00_4677 = 
BGl_makezd2procedurezd2refzd2appzd2zzcfa_info2z00(BgL_loc3799z00_3464, 
(BgL_typez00_bglt)(BgL_type3800z00_3465), BgL_sidezd2effectzf33801z21_3466, BgL_key3802z00_3467, 
(BgL_varz00_bglt)(BgL_fun3803z00_3468), BgL_args3804z00_3469, 
(BgL_approxz00_bglt)(BgL_approx3798z00_3470)); 
return 
(obj_t)(BgL_auxz00_4677);} } 
}



/* fill-procedure-ref-app! */
BGL_EXPORTED_DEF BgL_procedurezd2refzd2appz00_bglt BGl_fillzd2procedurezd2refzd2appz12zc0zzcfa_info2z00(BgL_procedurezd2refzd2appz00_bglt BgL_new3808z00_190, BgL_approxz00_bglt BgL_approx3807z00_191)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 55 */
{ /* ./Cfa/cinfo2.scm 55 */
BgL_approxz00_bglt BgL_approx3807z00_3861;
BgL_approx3807z00_3861 = BgL_approx3807z00_191; 
((((BgL_procedurezd2refzd2appz00_bglt)CREF(BgL_new3808z00_190))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3807z00_3861), BUNSPEC); 
return BgL_new3808z00_190;} } 
}



/* _fill-procedure-ref-app! */
obj_t BGl__fillzd2procedurezd2refzd2appz12zc0zzcfa_info2z00(obj_t BgL_envz00_3471, obj_t BgL_new3808z00_3472, obj_t BgL_approx3807z00_3473)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 55 */
{ /* ./Cfa/cinfo2.scm 55 */
BgL_procedurezd2refzd2appz00_bglt BgL_auxz00_4684;
{ /* ./Cfa/cinfo2.scm 55 */
BgL_procedurezd2refzd2appz00_bglt BgL_res7185z00_3865;
{ /* ./Cfa/cinfo2.scm 55 */
BgL_procedurezd2refzd2appz00_bglt BgL_new3808z00_3862;BgL_approxz00_bglt BgL_approx3807z00_3863;
BgL_new3808z00_3862 = 
(BgL_procedurezd2refzd2appz00_bglt)(BgL_new3808z00_3472); 
BgL_approx3807z00_3863 = 
(BgL_approxz00_bglt)(BgL_approx3807z00_3473); 
{ /* ./Cfa/cinfo2.scm 55 */
BgL_approxz00_bglt BgL_approx3807z00_3864;
BgL_approx3807z00_3864 = BgL_approx3807z00_3863; 
((((BgL_procedurezd2refzd2appz00_bglt)CREF(BgL_new3808z00_3862))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3807z00_3864), BUNSPEC); 
BgL_res7185z00_3865 = BgL_new3808z00_3862; } } 
BgL_auxz00_4684 = BgL_res7185z00_3865; } 
return 
(obj_t)(BgL_auxz00_4684);} } 
}



/* allocate-procedure-ref-app */
BGL_EXPORTED_DEF BgL_appz00_bglt BGl_allocatezd2procedurezd2refzd2appzd2zzcfa_info2z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 55 */
{ /* ./Cfa/cinfo2.scm 55 */
BgL_appz00_bglt BgL_new3811z00_3866;
BgL_new3811z00_3866 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 55 */
long BgL_arg4690z00_3867;
BgL_arg4690z00_3867 = 
BGl_classzd2numzd2zz__objectz00(BGl_procedurezd2refzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 55 */
BgL_objectz00_bglt BgL_objz00_3868;
BgL_objz00_3868 = 
(BgL_objectz00_bglt)(BgL_new3811z00_3866); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3868, BgL_arg4690z00_3867); } } 
{ /* ./Cfa/cinfo2.scm 55 */
BgL_objectz00_bglt BgL_auxz00_4693;
BgL_auxz00_4693 = 
(BgL_objectz00_bglt)(BgL_new3811z00_3866); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4693, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 55 */
obj_t BgL_objz00_3869;
BgL_objz00_3869 = 
(obj_t)(BgL_new3811z00_3866); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3869); BUNSPEC; } 
return BgL_new3811z00_3866;} } 
}



/* _allocate-procedure-ref-app */
obj_t BGl__allocatezd2procedurezd2refzd2appzd2zzcfa_info2z00(obj_t BgL_envz00_3293)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 55 */
{ /* ./Cfa/cinfo2.scm 55 */
BgL_appz00_bglt BgL_auxz00_4698;
{ /* ./Cfa/cinfo2.scm 55 */
BgL_appz00_bglt BgL_res7186z00_3874;
{ /* ./Cfa/cinfo2.scm 55 */
BgL_appz00_bglt BgL_new3811z00_3870;
BgL_new3811z00_3870 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 55 */
long BgL_arg4690z00_3871;
BgL_arg4690z00_3871 = 
BGl_classzd2numzd2zz__objectz00(BGl_procedurezd2refzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 55 */
BgL_objectz00_bglt BgL_objz00_3872;
BgL_objz00_3872 = 
(BgL_objectz00_bglt)(BgL_new3811z00_3870); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3872, BgL_arg4690z00_3871); } } 
{ /* ./Cfa/cinfo2.scm 55 */
BgL_objectz00_bglt BgL_auxz00_4703;
BgL_auxz00_4703 = 
(BgL_objectz00_bglt)(BgL_new3811z00_3870); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4703, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 55 */
obj_t BgL_objz00_3873;
BgL_objz00_3873 = 
(obj_t)(BgL_new3811z00_3870); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3873); BUNSPEC; } 
BgL_res7186z00_3874 = BgL_new3811z00_3870; } 
BgL_auxz00_4698 = BgL_res7186z00_3874; } 
return 
(obj_t)(BgL_auxz00_4698);} } 
}



/* make-procedure-app? */
BGL_EXPORTED_DEF bool_t BGl_makezd2procedurezd2appzf3zf3zzcfa_info2z00(obj_t BgL_obj3755z00_193)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 38 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3755z00_193, BGl_makezd2procedurezd2appz00zzcfa_info2z00);} 
}



/* _make-procedure-app? */
obj_t BGl__makezd2procedurezd2appzf3zf3zzcfa_info2z00(obj_t BgL_envz00_3474, obj_t BgL_obj3755z00_3475)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 38 */
{ /* ./Cfa/cinfo2.scm 38 */
bool_t BgL_auxz00_4710;
BgL_auxz00_4710 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3755z00_3475, BGl_makezd2procedurezd2appz00zzcfa_info2z00); 
return 
BBOOL(BgL_auxz00_4710);} } 
}



/* widening-make-procedure-app */
BGL_EXPORTED_DEF BgL_makezd2procedurezd2appz00_bglt BGl_wideningzd2makezd2procedurezd2appzd2zzcfa_info2z00(BgL_approxz00_bglt BgL_approx3704z00_197, obj_t BgL_valueszd2approx3705zd2_198, long BgL_lostzd2stamp3706zd2_199, bool_t BgL_xzd2tzf33707z21_200, bool_t BgL_x3708z00_201, bool_t BgL_t3709z00_202, BgL_variablez00_bglt BgL_owner3710z00_203, obj_t BgL_stackzd2stamp3711zd2_204)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 38 */
{ /* ./Cfa/cinfo2.scm 38 */
BgL_makezd2procedurezd2appz00_bglt BgL_new3712z00_2500;
BgL_new3712z00_2500 = 
((BgL_makezd2procedurezd2appz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_makezd2procedurezd2appz00_bgl)))); 
{ /* ./Cfa/cinfo2.scm 38 */
BgL_makezd2procedurezd2appz00_bglt BgL_res6118z00_2518;
{ /* ./Cfa/cinfo2.scm 38 */
BgL_makezd2procedurezd2appz00_bglt BgL_new3738z00_2501;
BgL_new3738z00_2501 = BgL_new3712z00_2500; 
{ /* ./Cfa/cinfo2.scm 38 */
BgL_approxz00_bglt BgL_approx3730z00_2510;obj_t BgL_valueszd2approx3731zd2_2511;long BgL_lostzd2stamp3732zd2_2512;bool_t BgL_xzd2tzf33733z21_2513;bool_t BgL_x3734z00_2514;bool_t BgL_t3735z00_2515;BgL_variablez00_bglt BgL_owner3736z00_2516;obj_t BgL_stackzd2stamp3737zd2_2517;
BgL_approx3730z00_2510 = BgL_approx3704z00_197; 
BgL_valueszd2approx3731zd2_2511 = BgL_valueszd2approx3705zd2_198; 
BgL_lostzd2stamp3732zd2_2512 = BgL_lostzd2stamp3706zd2_199; 
BgL_xzd2tzf33733z21_2513 = BgL_xzd2tzf33707z21_200; 
BgL_x3734z00_2514 = BgL_x3708z00_201; 
BgL_t3735z00_2515 = BgL_t3709z00_202; 
BgL_owner3736z00_2516 = BgL_owner3710z00_203; 
BgL_stackzd2stamp3737zd2_2517 = BgL_stackzd2stamp3711zd2_204; 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_2501))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3730z00_2510), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_2501))->BgL_valueszd2approxzd2) = ((obj_t)BgL_valueszd2approx3731zd2_2511), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_2501))->BgL_lostzd2stampzd2) = ((long)BgL_lostzd2stamp3732zd2_2512), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_2501))->BgL_xzd2tzf3z21) = ((bool_t)BgL_xzd2tzf33733z21_2513), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_2501))->BgL_xz00) = ((bool_t)BgL_x3734z00_2514), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_2501))->BgL_tz00) = ((bool_t)BgL_t3735z00_2515), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_2501))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3736z00_2516), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_2501))->BgL_stackzd2stampzd2) = ((obj_t)BgL_stackzd2stamp3737zd2_2517), BUNSPEC); 
BgL_res6118z00_2518 = BgL_new3738z00_2501; } } BgL_res6118z00_2518; } 
return BgL_new3712z00_2500;} } 
}



/* _widening-make-procedure-app6235 */
obj_t BGl__wideningzd2makezd2procedurezd2app6235zd2zzcfa_info2z00(obj_t BgL_envz00_3476, obj_t BgL_approx3704z00_3477, obj_t BgL_valueszd2approx3705zd2_3478, obj_t BgL_lostzd2stamp3706zd2_3479, obj_t BgL_xzd2tzf33707z21_3480, obj_t BgL_x3708z00_3481, obj_t BgL_t3709z00_3482, obj_t BgL_owner3710z00_3483, obj_t BgL_stackzd2stamp3711zd2_3484)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 38 */
{ /* ./Cfa/cinfo2.scm 38 */
BgL_makezd2procedurezd2appz00_bglt BgL_auxz00_4722;
BgL_auxz00_4722 = 
BGl_wideningzd2makezd2procedurezd2appzd2zzcfa_info2z00(
(BgL_approxz00_bglt)(BgL_approx3704z00_3477), BgL_valueszd2approx3705zd2_3478, 
(long)CINT(BgL_lostzd2stamp3706zd2_3479), 
CBOOL(BgL_xzd2tzf33707z21_3480), 
CBOOL(BgL_x3708z00_3481), 
CBOOL(BgL_t3709z00_3482), 
(BgL_variablez00_bglt)(BgL_owner3710z00_3483), BgL_stackzd2stamp3711zd2_3484); 
return 
(obj_t)(BgL_auxz00_4722);} } 
}



/* make-make-procedure-app */
BGL_EXPORTED_DEF BgL_makezd2procedurezd2appz00_bglt BGl_makezd2makezd2procedurezd2appzd2zzcfa_info2z00(obj_t BgL_loc3722z00_205, BgL_typez00_bglt BgL_type3723z00_206, obj_t BgL_sidezd2effectzf33724z21_207, obj_t BgL_key3725z00_208, BgL_varz00_bglt BgL_fun3726z00_209, obj_t BgL_args3727z00_210, BgL_approxz00_bglt BgL_approx3714z00_211, obj_t BgL_valueszd2approx3715zd2_212, long BgL_lostzd2stamp3716zd2_213, bool_t BgL_xzd2tzf33717z21_214, bool_t BgL_x3718z00_215, bool_t BgL_t3719z00_216, BgL_variablez00_bglt BgL_owner3720z00_217, obj_t BgL_stackzd2stamp3721zd2_218)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 38 */
{ /* ./Cfa/cinfo2.scm 38 */
BgL_appz00_bglt BgL_aux3728z00_2519;
BgL_aux3728z00_2519 = 
BGl_makezd2appzd2zzast_nodez00(BgL_loc3722z00_205, BgL_type3723z00_206, BgL_sidezd2effectzf33724z21_207, BgL_key3725z00_208, BgL_fun3726z00_209, BgL_args3727z00_210); 
{ /* ./Cfa/cinfo2.scm 38 */
long BgL_arg4699z00_2520;
BgL_arg4699z00_2520 = 
BGl_classzd2numzd2zz__objectz00(BGl_makezd2procedurezd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 38 */
BgL_objectz00_bglt BgL_objz00_2523;
BgL_objz00_2523 = 
(BgL_objectz00_bglt)(BgL_aux3728z00_2519); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2523, BgL_arg4699z00_2520); } } 
{ /* ./Cfa/cinfo2.scm 38 */
BgL_makezd2procedurezd2appz00_bglt BgL_arg4703z00_2521;
{ /* ./Cfa/cinfo2.scm 38 */
BgL_makezd2procedurezd2appz00_bglt BgL_res6120z00_2552;
{ /* ./Cfa/cinfo2.scm 38 */
BgL_makezd2procedurezd2appz00_bglt BgL_new3712z00_2533;
BgL_new3712z00_2533 = 
((BgL_makezd2procedurezd2appz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_makezd2procedurezd2appz00_bgl)))); 
{ /* ./Cfa/cinfo2.scm 38 */
BgL_makezd2procedurezd2appz00_bglt BgL_res6119z00_2551;
{ /* ./Cfa/cinfo2.scm 38 */
BgL_makezd2procedurezd2appz00_bglt BgL_new3738z00_2534;
BgL_new3738z00_2534 = BgL_new3712z00_2533; 
{ /* ./Cfa/cinfo2.scm 38 */
BgL_approxz00_bglt BgL_approx3730z00_2543;obj_t BgL_valueszd2approx3731zd2_2544;long BgL_lostzd2stamp3732zd2_2545;bool_t BgL_xzd2tzf33733z21_2546;bool_t BgL_x3734z00_2547;bool_t BgL_t3735z00_2548;BgL_variablez00_bglt BgL_owner3736z00_2549;obj_t BgL_stackzd2stamp3737zd2_2550;
BgL_approx3730z00_2543 = BgL_approx3714z00_211; 
BgL_valueszd2approx3731zd2_2544 = BgL_valueszd2approx3715zd2_212; 
BgL_lostzd2stamp3732zd2_2545 = BgL_lostzd2stamp3716zd2_213; 
BgL_xzd2tzf33733z21_2546 = BgL_xzd2tzf33717z21_214; 
BgL_x3734z00_2547 = BgL_x3718z00_215; 
BgL_t3735z00_2548 = BgL_t3719z00_216; 
BgL_owner3736z00_2549 = BgL_owner3720z00_217; 
BgL_stackzd2stamp3737zd2_2550 = BgL_stackzd2stamp3721zd2_218; 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_2534))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3730z00_2543), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_2534))->BgL_valueszd2approxzd2) = ((obj_t)BgL_valueszd2approx3731zd2_2544), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_2534))->BgL_lostzd2stampzd2) = ((long)BgL_lostzd2stamp3732zd2_2545), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_2534))->BgL_xzd2tzf3z21) = ((bool_t)BgL_xzd2tzf33733z21_2546), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_2534))->BgL_xz00) = ((bool_t)BgL_x3734z00_2547), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_2534))->BgL_tz00) = ((bool_t)BgL_t3735z00_2548), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_2534))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3736z00_2549), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_2534))->BgL_stackzd2stampzd2) = ((obj_t)BgL_stackzd2stamp3737zd2_2550), BUNSPEC); 
BgL_res6119z00_2551 = BgL_new3738z00_2534; } } BgL_res6119z00_2551; } 
BgL_res6120z00_2552 = BgL_new3712z00_2533; } 
BgL_arg4703z00_2521 = BgL_res6120z00_2552; } 
{ /* ./Cfa/cinfo2.scm 38 */
obj_t BgL_auxz00_4746;BgL_objectz00_bglt BgL_auxz00_4744;
BgL_auxz00_4746 = 
(obj_t)(BgL_arg4703z00_2521); 
BgL_auxz00_4744 = 
(BgL_objectz00_bglt)(BgL_aux3728z00_2519); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4744, BgL_auxz00_4746); } } 
{ /* ./Cfa/cinfo2.scm 38 */
BgL_makezd2procedurezd2appz00_bglt BgL_new3729z00_2522;
{ 
BgL_makezd2procedurezd2appz00_bglt BgL_auxz00_4749;
BgL_auxz00_4749 = 
(BgL_makezd2procedurezd2appz00_bglt)(BgL_aux3728z00_2519); 
BgL_new3729z00_2522 = 
((BgL_makezd2procedurezd2appz00_bglt)BgL_auxz00_4749); } 
{ /* ./Cfa/cinfo2.scm 38 */
obj_t BgL_objz00_2553;
BgL_objz00_2553 = 
(obj_t)(BgL_new3729z00_2522); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2553); BUNSPEC; } 
return BgL_new3729z00_2522;} } } 
}



/* _make-make-procedure-app */
obj_t BGl__makezd2makezd2procedurezd2appzd2zzcfa_info2z00(obj_t BgL_envz00_3485, obj_t BgL_loc3722z00_3486, obj_t BgL_type3723z00_3487, obj_t BgL_sidezd2effectzf33724z21_3488, obj_t BgL_key3725z00_3489, obj_t BgL_fun3726z00_3490, obj_t BgL_args3727z00_3491, obj_t BgL_approx3714z00_3492, obj_t BgL_valueszd2approx3715zd2_3493, obj_t BgL_lostzd2stamp3716zd2_3494, obj_t BgL_xzd2tzf33717z21_3495, obj_t BgL_x3718z00_3496, obj_t BgL_t3719z00_3497, obj_t BgL_owner3720z00_3498, obj_t BgL_stackzd2stamp3721zd2_3499)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 38 */
{ /* ./Cfa/cinfo2.scm 38 */
BgL_makezd2procedurezd2appz00_bglt BgL_auxz00_4754;
BgL_auxz00_4754 = 
BGl_makezd2makezd2procedurezd2appzd2zzcfa_info2z00(BgL_loc3722z00_3486, 
(BgL_typez00_bglt)(BgL_type3723z00_3487), BgL_sidezd2effectzf33724z21_3488, BgL_key3725z00_3489, 
(BgL_varz00_bglt)(BgL_fun3726z00_3490), BgL_args3727z00_3491, 
(BgL_approxz00_bglt)(BgL_approx3714z00_3492), BgL_valueszd2approx3715zd2_3493, 
(long)CINT(BgL_lostzd2stamp3716zd2_3494), 
CBOOL(BgL_xzd2tzf33717z21_3495), 
CBOOL(BgL_x3718z00_3496), 
CBOOL(BgL_t3719z00_3497), 
(BgL_variablez00_bglt)(BgL_owner3720z00_3498), BgL_stackzd2stamp3721zd2_3499); 
return 
(obj_t)(BgL_auxz00_4754);} } 
}



/* fill-make-procedure-app! */
BGL_EXPORTED_DEF BgL_makezd2procedurezd2appz00_bglt BGl_fillzd2makezd2procedurezd2appz12zc0zzcfa_info2z00(BgL_makezd2procedurezd2appz00_bglt BgL_new3738z00_219, BgL_approxz00_bglt BgL_approx3730z00_220, obj_t BgL_valueszd2approx3731zd2_221, long BgL_lostzd2stamp3732zd2_222, bool_t BgL_xzd2tzf33733z21_223, bool_t BgL_x3734z00_224, bool_t BgL_t3735z00_225, BgL_variablez00_bglt BgL_owner3736z00_226, obj_t BgL_stackzd2stamp3737zd2_227)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 38 */
{ /* ./Cfa/cinfo2.scm 38 */
BgL_approxz00_bglt BgL_approx3730z00_3876;obj_t BgL_valueszd2approx3731zd2_3877;long BgL_lostzd2stamp3732zd2_3878;bool_t BgL_xzd2tzf33733z21_3879;bool_t BgL_x3734z00_3880;bool_t BgL_t3735z00_3881;BgL_variablez00_bglt BgL_owner3736z00_3882;obj_t BgL_stackzd2stamp3737zd2_3883;
BgL_approx3730z00_3876 = BgL_approx3730z00_220; 
BgL_valueszd2approx3731zd2_3877 = BgL_valueszd2approx3731zd2_221; 
BgL_lostzd2stamp3732zd2_3878 = BgL_lostzd2stamp3732zd2_222; 
BgL_xzd2tzf33733z21_3879 = BgL_xzd2tzf33733z21_223; 
BgL_x3734z00_3880 = BgL_x3734z00_224; 
BgL_t3735z00_3881 = BgL_t3735z00_225; 
BgL_owner3736z00_3882 = BgL_owner3736z00_226; 
BgL_stackzd2stamp3737zd2_3883 = BgL_stackzd2stamp3737zd2_227; 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_219))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3730z00_3876), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_219))->BgL_valueszd2approxzd2) = ((obj_t)BgL_valueszd2approx3731zd2_3877), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_219))->BgL_lostzd2stampzd2) = ((long)BgL_lostzd2stamp3732zd2_3878), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_219))->BgL_xzd2tzf3z21) = ((bool_t)BgL_xzd2tzf33733z21_3879), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_219))->BgL_xz00) = ((bool_t)BgL_x3734z00_3880), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_219))->BgL_tz00) = ((bool_t)BgL_t3735z00_3881), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_219))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3736z00_3882), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_219))->BgL_stackzd2stampzd2) = ((obj_t)BgL_stackzd2stamp3737zd2_3883), BUNSPEC); 
return BgL_new3738z00_219;} } 
}



/* _fill-make-procedure-app! */
obj_t BGl__fillzd2makezd2procedurezd2appz12zc0zzcfa_info2z00(obj_t BgL_envz00_3500, obj_t BgL_new3738z00_3501, obj_t BgL_approx3730z00_3502, obj_t BgL_valueszd2approx3731zd2_3503, obj_t BgL_lostzd2stamp3732zd2_3504, obj_t BgL_xzd2tzf33733z21_3505, obj_t BgL_x3734z00_3506, obj_t BgL_t3735z00_3507, obj_t BgL_owner3736z00_3508, obj_t BgL_stackzd2stamp3737zd2_3509)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 38 */
{ /* ./Cfa/cinfo2.scm 38 */
BgL_makezd2procedurezd2appz00_bglt BgL_auxz00_4773;
{ /* ./Cfa/cinfo2.scm 38 */
BgL_makezd2procedurezd2appz00_bglt BgL_res7187z00_3901;
{ /* ./Cfa/cinfo2.scm 38 */
BgL_makezd2procedurezd2appz00_bglt BgL_new3738z00_3884;BgL_approxz00_bglt BgL_approx3730z00_3885;long BgL_lostzd2stamp3732zd2_3887;bool_t BgL_xzd2tzf33733z21_3888;bool_t BgL_x3734z00_3889;bool_t BgL_t3735z00_3890;BgL_variablez00_bglt BgL_owner3736z00_3891;
BgL_new3738z00_3884 = 
(BgL_makezd2procedurezd2appz00_bglt)(BgL_new3738z00_3501); 
BgL_approx3730z00_3885 = 
(BgL_approxz00_bglt)(BgL_approx3730z00_3502); 
BgL_lostzd2stamp3732zd2_3887 = 
(long)CINT(BgL_lostzd2stamp3732zd2_3504); 
BgL_xzd2tzf33733z21_3888 = 
CBOOL(BgL_xzd2tzf33733z21_3505); 
BgL_x3734z00_3889 = 
CBOOL(BgL_x3734z00_3506); 
BgL_t3735z00_3890 = 
CBOOL(BgL_t3735z00_3507); 
BgL_owner3736z00_3891 = 
(BgL_variablez00_bglt)(BgL_owner3736z00_3508); 
{ /* ./Cfa/cinfo2.scm 38 */
BgL_approxz00_bglt BgL_approx3730z00_3893;obj_t BgL_valueszd2approx3731zd2_3894;long BgL_lostzd2stamp3732zd2_3895;bool_t BgL_xzd2tzf33733z21_3896;bool_t BgL_x3734z00_3897;bool_t BgL_t3735z00_3898;BgL_variablez00_bglt BgL_owner3736z00_3899;obj_t BgL_stackzd2stamp3737zd2_3900;
BgL_approx3730z00_3893 = BgL_approx3730z00_3885; 
BgL_valueszd2approx3731zd2_3894 = BgL_valueszd2approx3731zd2_3503; 
BgL_lostzd2stamp3732zd2_3895 = BgL_lostzd2stamp3732zd2_3887; 
BgL_xzd2tzf33733z21_3896 = BgL_xzd2tzf33733z21_3888; 
BgL_x3734z00_3897 = BgL_x3734z00_3889; 
BgL_t3735z00_3898 = BgL_t3735z00_3890; 
BgL_owner3736z00_3899 = BgL_owner3736z00_3891; 
BgL_stackzd2stamp3737zd2_3900 = BgL_stackzd2stamp3737zd2_3509; 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_3884))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3730z00_3893), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_3884))->BgL_valueszd2approxzd2) = ((obj_t)BgL_valueszd2approx3731zd2_3894), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_3884))->BgL_lostzd2stampzd2) = ((long)BgL_lostzd2stamp3732zd2_3895), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_3884))->BgL_xzd2tzf3z21) = ((bool_t)BgL_xzd2tzf33733z21_3896), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_3884))->BgL_xz00) = ((bool_t)BgL_x3734z00_3897), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_3884))->BgL_tz00) = ((bool_t)BgL_t3735z00_3898), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_3884))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3736z00_3899), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_3884))->BgL_stackzd2stampzd2) = ((obj_t)BgL_stackzd2stamp3737zd2_3900), BUNSPEC); 
BgL_res7187z00_3901 = BgL_new3738z00_3884; } } 
BgL_auxz00_4773 = BgL_res7187z00_3901; } 
return 
(obj_t)(BgL_auxz00_4773);} } 
}



/* allocate-make-procedure-app */
BGL_EXPORTED_DEF BgL_appz00_bglt BGl_allocatezd2makezd2procedurezd2appzd2zzcfa_info2z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 38 */
{ /* ./Cfa/cinfo2.scm 38 */
BgL_appz00_bglt BgL_new3748z00_3902;
BgL_new3748z00_3902 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 38 */
long BgL_arg4709z00_3903;
BgL_arg4709z00_3903 = 
BGl_classzd2numzd2zz__objectz00(BGl_makezd2procedurezd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 38 */
BgL_objectz00_bglt BgL_objz00_3904;
BgL_objz00_3904 = 
(BgL_objectz00_bglt)(BgL_new3748z00_3902); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3904, BgL_arg4709z00_3903); } } 
{ /* ./Cfa/cinfo2.scm 38 */
BgL_objectz00_bglt BgL_auxz00_4794;
BgL_auxz00_4794 = 
(BgL_objectz00_bglt)(BgL_new3748z00_3902); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4794, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 38 */
obj_t BgL_objz00_3905;
BgL_objz00_3905 = 
(obj_t)(BgL_new3748z00_3902); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3905); BUNSPEC; } 
return BgL_new3748z00_3902;} } 
}



/* _allocate-make-procedure-app */
obj_t BGl__allocatezd2makezd2procedurezd2appzd2zzcfa_info2z00(obj_t BgL_envz00_3292)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 38 */
{ /* ./Cfa/cinfo2.scm 38 */
BgL_appz00_bglt BgL_auxz00_4799;
{ /* ./Cfa/cinfo2.scm 38 */
BgL_appz00_bglt BgL_res7188z00_3910;
{ /* ./Cfa/cinfo2.scm 38 */
BgL_appz00_bglt BgL_new3748z00_3906;
BgL_new3748z00_3906 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 38 */
long BgL_arg4709z00_3907;
BgL_arg4709z00_3907 = 
BGl_classzd2numzd2zz__objectz00(BGl_makezd2procedurezd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 38 */
BgL_objectz00_bglt BgL_objz00_3908;
BgL_objz00_3908 = 
(BgL_objectz00_bglt)(BgL_new3748z00_3906); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3908, BgL_arg4709z00_3907); } } 
{ /* ./Cfa/cinfo2.scm 38 */
BgL_objectz00_bglt BgL_auxz00_4804;
BgL_auxz00_4804 = 
(BgL_objectz00_bglt)(BgL_new3748z00_3906); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4804, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 38 */
obj_t BgL_objz00_3909;
BgL_objz00_3909 = 
(obj_t)(BgL_new3748z00_3906); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3909); BUNSPEC; } 
BgL_res7188z00_3910 = BgL_new3748z00_3906; } 
BgL_auxz00_4799 = BgL_res7188z00_3910; } 
return 
(obj_t)(BgL_auxz00_4799);} } 
}



/* pre-procedure-set!-app? */
BGL_EXPORTED_DEF bool_t BGl_prezd2procedurezd2setz12zd2appzf3z33zzcfa_info2z00(obj_t BgL_obj3686z00_250)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 36 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3686z00_250, BGl_prezd2procedurezd2setz12zd2appzc0zzcfa_info2z00);} 
}



/* _pre-procedure-set!-app? */
obj_t BGl__prezd2procedurezd2setz12zd2appzf3z33zzcfa_info2z00(obj_t BgL_envz00_3510, obj_t BgL_obj3686z00_3511)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 36 */
{ /* ./Cfa/cinfo2.scm 36 */
bool_t BgL_auxz00_4811;
BgL_auxz00_4811 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3686z00_3511, BGl_prezd2procedurezd2setz12zd2appzc0zzcfa_info2z00); 
return 
BBOOL(BgL_auxz00_4811);} } 
}



/* widening-pre-procedure-set!-app */
BGL_EXPORTED_DEF BgL_prezd2procedurezd2setz12zd2appzc0_bglt BGl_wideningzd2prezd2procedurezd2setz12zd2appz12zzcfa_info2z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 36 */
{ /* ./Cfa/cinfo2.scm 36 */
BgL_prezd2procedurezd2setz12zd2appzc0_bglt BgL_new3667z00_1338;
BgL_new3667z00_1338 = 
((BgL_prezd2procedurezd2setz12zd2appzc0_bglt)BREF( GC_MALLOC (sizeof(struct BgL_prezd2procedurezd2setz12zd2appzc0_bgl)))); 
return BgL_new3667z00_1338;} } 
}



/* _widening-pre-procedure-set!-app */
obj_t BGl__wideningzd2prezd2procedurezd2setz12zd2appz12zzcfa_info2z00(obj_t BgL_envz00_3512)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 36 */
{ /* ./Cfa/cinfo2.scm 36 */
BgL_prezd2procedurezd2setz12zd2appzc0_bglt BgL_auxz00_4815;
BgL_auxz00_4815 = 
BGl_wideningzd2prezd2procedurezd2setz12zd2appz12zzcfa_info2z00(); 
return 
(obj_t)(BgL_auxz00_4815);} } 
}



/* make-pre-procedure-set!-app */
BGL_EXPORTED_DEF BgL_prezd2procedurezd2setz12zd2appzc0_bglt BGl_makezd2prezd2procedurezd2setz12zd2appz12zzcfa_info2z00(obj_t BgL_loc3669z00_254, BgL_typez00_bglt BgL_type3670z00_255, obj_t BgL_sidezd2effectzf33671z21_256, obj_t BgL_key3672z00_257, BgL_varz00_bglt BgL_fun3673z00_258, obj_t BgL_args3674z00_259)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 36 */
{ /* ./Cfa/cinfo2.scm 36 */
BgL_appz00_bglt BgL_aux3675z00_2568;
BgL_aux3675z00_2568 = 
BGl_makezd2appzd2zzast_nodez00(BgL_loc3669z00_254, BgL_type3670z00_255, BgL_sidezd2effectzf33671z21_256, BgL_key3672z00_257, BgL_fun3673z00_258, BgL_args3674z00_259); 
{ /* ./Cfa/cinfo2.scm 36 */
long BgL_arg4732z00_2569;
BgL_arg4732z00_2569 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2procedurezd2setz12zd2appzc0zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 36 */
BgL_objectz00_bglt BgL_objz00_2572;
BgL_objz00_2572 = 
(BgL_objectz00_bglt)(BgL_aux3675z00_2568); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2572, BgL_arg4732z00_2569); } } 
{ /* ./Cfa/cinfo2.scm 36 */
BgL_prezd2procedurezd2setz12zd2appzc0_bglt BgL_arg4736z00_2570;
BgL_arg4736z00_2570 = 
BGl_wideningzd2prezd2procedurezd2setz12zd2appz12zzcfa_info2z00(); 
{ /* ./Cfa/cinfo2.scm 36 */
obj_t BgL_auxz00_4825;BgL_objectz00_bglt BgL_auxz00_4823;
BgL_auxz00_4825 = 
(obj_t)(BgL_arg4736z00_2570); 
BgL_auxz00_4823 = 
(BgL_objectz00_bglt)(BgL_aux3675z00_2568); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4823, BgL_auxz00_4825); } } 
{ /* ./Cfa/cinfo2.scm 36 */
BgL_prezd2procedurezd2setz12zd2appzc0_bglt BgL_new3676z00_2571;
{ 
BgL_prezd2procedurezd2setz12zd2appzc0_bglt BgL_auxz00_4828;
BgL_auxz00_4828 = 
(BgL_prezd2procedurezd2setz12zd2appzc0_bglt)(BgL_aux3675z00_2568); 
BgL_new3676z00_2571 = 
((BgL_prezd2procedurezd2setz12zd2appzc0_bglt)BgL_auxz00_4828); } 
{ /* ./Cfa/cinfo2.scm 36 */
obj_t BgL_objz00_2574;
BgL_objz00_2574 = 
(obj_t)(BgL_new3676z00_2571); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2574); BUNSPEC; } 
return BgL_new3676z00_2571;} } } 
}



/* _make-pre-procedure-set!-app */
obj_t BGl__makezd2prezd2procedurezd2setz12zd2appz12zzcfa_info2z00(obj_t BgL_envz00_3513, obj_t BgL_loc3669z00_3514, obj_t BgL_type3670z00_3515, obj_t BgL_sidezd2effectzf33671z21_3516, obj_t BgL_key3672z00_3517, obj_t BgL_fun3673z00_3518, obj_t BgL_args3674z00_3519)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 36 */
{ /* ./Cfa/cinfo2.scm 36 */
BgL_prezd2procedurezd2setz12zd2appzc0_bglt BgL_auxz00_4833;
BgL_auxz00_4833 = 
BGl_makezd2prezd2procedurezd2setz12zd2appz12zzcfa_info2z00(BgL_loc3669z00_3514, 
(BgL_typez00_bglt)(BgL_type3670z00_3515), BgL_sidezd2effectzf33671z21_3516, BgL_key3672z00_3517, 
(BgL_varz00_bglt)(BgL_fun3673z00_3518), BgL_args3674z00_3519); 
return 
(obj_t)(BgL_auxz00_4833);} } 
}



/* fill-pre-procedure-set!-app! */
BGL_EXPORTED_DEF BgL_prezd2procedurezd2setz12zd2appzc0_bglt BGl_fillzd2prezd2procedurezd2setz12zd2appz12z00zzcfa_info2z00(BgL_prezd2procedurezd2setz12zd2appzc0_bglt BgL_new3677z00_260)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 36 */
{ /* ./Cfa/cinfo2.scm 36 */

return BgL_new3677z00_260;} } 
}



/* _fill-pre-procedure-set!-app! */
obj_t BGl__fillzd2prezd2procedurezd2setz12zd2appz12z00zzcfa_info2z00(obj_t BgL_envz00_3520, obj_t BgL_new3677z00_3521)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 36 */
{ /* ./Cfa/cinfo2.scm 36 */
BgL_prezd2procedurezd2setz12zd2appzc0_bglt BgL_auxz00_4838;
{ /* ./Cfa/cinfo2.scm 36 */

BgL_auxz00_4838 = 
(BgL_prezd2procedurezd2setz12zd2appzc0_bglt)(BgL_new3677z00_3521); } 
return 
(obj_t)(BgL_auxz00_4838);} } 
}



/* allocate-pre-procedure-set!-app */
BGL_EXPORTED_DEF BgL_appz00_bglt BGl_allocatezd2prezd2procedurezd2setz12zd2appz12zzcfa_info2z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 36 */
{ /* ./Cfa/cinfo2.scm 36 */
BgL_appz00_bglt BgL_new3679z00_3913;
BgL_new3679z00_3913 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 36 */
long BgL_arg4742z00_3914;
BgL_arg4742z00_3914 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2procedurezd2setz12zd2appzc0zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 36 */
BgL_objectz00_bglt BgL_objz00_3915;
BgL_objz00_3915 = 
(BgL_objectz00_bglt)(BgL_new3679z00_3913); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3915, BgL_arg4742z00_3914); } } 
{ /* ./Cfa/cinfo2.scm 36 */
BgL_objectz00_bglt BgL_auxz00_4845;
BgL_auxz00_4845 = 
(BgL_objectz00_bglt)(BgL_new3679z00_3913); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4845, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 36 */
obj_t BgL_objz00_3916;
BgL_objz00_3916 = 
(obj_t)(BgL_new3679z00_3913); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3916); BUNSPEC; } 
return BgL_new3679z00_3913;} } 
}



/* _allocate-pre-procedure-set!-app */
obj_t BGl__allocatezd2prezd2procedurezd2setz12zd2appz12zzcfa_info2z00(obj_t BgL_envz00_3291)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 36 */
{ /* ./Cfa/cinfo2.scm 36 */
BgL_appz00_bglt BgL_auxz00_4850;
{ /* ./Cfa/cinfo2.scm 36 */
BgL_appz00_bglt BgL_res7189z00_3921;
{ /* ./Cfa/cinfo2.scm 36 */
BgL_appz00_bglt BgL_new3679z00_3917;
BgL_new3679z00_3917 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 36 */
long BgL_arg4742z00_3918;
BgL_arg4742z00_3918 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2procedurezd2setz12zd2appzc0zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 36 */
BgL_objectz00_bglt BgL_objz00_3919;
BgL_objz00_3919 = 
(BgL_objectz00_bglt)(BgL_new3679z00_3917); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3919, BgL_arg4742z00_3918); } } 
{ /* ./Cfa/cinfo2.scm 36 */
BgL_objectz00_bglt BgL_auxz00_4855;
BgL_auxz00_4855 = 
(BgL_objectz00_bglt)(BgL_new3679z00_3917); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4855, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 36 */
obj_t BgL_objz00_3920;
BgL_objz00_3920 = 
(obj_t)(BgL_new3679z00_3917); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3920); BUNSPEC; } 
BgL_res7189z00_3921 = BgL_new3679z00_3917; } 
BgL_auxz00_4850 = BgL_res7189z00_3921; } 
return 
(obj_t)(BgL_auxz00_4850);} } 
}



/* pre-procedure-ref-app? */
BGL_EXPORTED_DEF bool_t BGl_prezd2procedurezd2refzd2appzf3z21zzcfa_info2z00(obj_t BgL_obj3649z00_261)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 35 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3649z00_261, BGl_prezd2procedurezd2refzd2appzd2zzcfa_info2z00);} 
}



/* _pre-procedure-ref-app? */
obj_t BGl__prezd2procedurezd2refzd2appzf3z21zzcfa_info2z00(obj_t BgL_envz00_3522, obj_t BgL_obj3649z00_3523)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 35 */
{ /* ./Cfa/cinfo2.scm 35 */
bool_t BgL_auxz00_4862;
BgL_auxz00_4862 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3649z00_3523, BGl_prezd2procedurezd2refzd2appzd2zzcfa_info2z00); 
return 
BBOOL(BgL_auxz00_4862);} } 
}



/* widening-pre-procedure-ref-app */
BGL_EXPORTED_DEF BgL_prezd2procedurezd2refzd2appzd2_bglt BGl_wideningzd2prezd2procedurezd2refzd2appz00zzcfa_info2z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 35 */
{ /* ./Cfa/cinfo2.scm 35 */
BgL_prezd2procedurezd2refzd2appzd2_bglt BgL_new3630z00_1345;
BgL_new3630z00_1345 = 
((BgL_prezd2procedurezd2refzd2appzd2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_prezd2procedurezd2refzd2appzd2_bgl)))); 
return BgL_new3630z00_1345;} } 
}



/* _widening-pre-procedure-ref-app */
obj_t BGl__wideningzd2prezd2procedurezd2refzd2appz00zzcfa_info2z00(obj_t BgL_envz00_3524)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 35 */
{ /* ./Cfa/cinfo2.scm 35 */
BgL_prezd2procedurezd2refzd2appzd2_bglt BgL_auxz00_4866;
BgL_auxz00_4866 = 
BGl_wideningzd2prezd2procedurezd2refzd2appz00zzcfa_info2z00(); 
return 
(obj_t)(BgL_auxz00_4866);} } 
}



/* make-pre-procedure-ref-app */
BGL_EXPORTED_DEF BgL_prezd2procedurezd2refzd2appzd2_bglt BGl_makezd2prezd2procedurezd2refzd2appz00zzcfa_info2z00(obj_t BgL_loc3632z00_265, BgL_typez00_bglt BgL_type3633z00_266, obj_t BgL_sidezd2effectzf33634z21_267, obj_t BgL_key3635z00_268, BgL_varz00_bglt BgL_fun3636z00_269, obj_t BgL_args3637z00_270)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 35 */
{ /* ./Cfa/cinfo2.scm 35 */
BgL_appz00_bglt BgL_aux3638z00_2581;
BgL_aux3638z00_2581 = 
BGl_makezd2appzd2zzast_nodez00(BgL_loc3632z00_265, BgL_type3633z00_266, BgL_sidezd2effectzf33634z21_267, BgL_key3635z00_268, BgL_fun3636z00_269, BgL_args3637z00_270); 
{ /* ./Cfa/cinfo2.scm 35 */
long BgL_arg4750z00_2582;
BgL_arg4750z00_2582 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2procedurezd2refzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 35 */
BgL_objectz00_bglt BgL_objz00_2585;
BgL_objz00_2585 = 
(BgL_objectz00_bglt)(BgL_aux3638z00_2581); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2585, BgL_arg4750z00_2582); } } 
{ /* ./Cfa/cinfo2.scm 35 */
BgL_prezd2procedurezd2refzd2appzd2_bglt BgL_arg4754z00_2583;
BgL_arg4754z00_2583 = 
BGl_wideningzd2prezd2procedurezd2refzd2appz00zzcfa_info2z00(); 
{ /* ./Cfa/cinfo2.scm 35 */
obj_t BgL_auxz00_4876;BgL_objectz00_bglt BgL_auxz00_4874;
BgL_auxz00_4876 = 
(obj_t)(BgL_arg4754z00_2583); 
BgL_auxz00_4874 = 
(BgL_objectz00_bglt)(BgL_aux3638z00_2581); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4874, BgL_auxz00_4876); } } 
{ /* ./Cfa/cinfo2.scm 35 */
BgL_prezd2procedurezd2refzd2appzd2_bglt BgL_new3639z00_2584;
{ 
BgL_prezd2procedurezd2refzd2appzd2_bglt BgL_auxz00_4879;
BgL_auxz00_4879 = 
(BgL_prezd2procedurezd2refzd2appzd2_bglt)(BgL_aux3638z00_2581); 
BgL_new3639z00_2584 = 
((BgL_prezd2procedurezd2refzd2appzd2_bglt)BgL_auxz00_4879); } 
{ /* ./Cfa/cinfo2.scm 35 */
obj_t BgL_objz00_2587;
BgL_objz00_2587 = 
(obj_t)(BgL_new3639z00_2584); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2587); BUNSPEC; } 
return BgL_new3639z00_2584;} } } 
}



/* _make-pre-procedure-ref-app */
obj_t BGl__makezd2prezd2procedurezd2refzd2appz00zzcfa_info2z00(obj_t BgL_envz00_3525, obj_t BgL_loc3632z00_3526, obj_t BgL_type3633z00_3527, obj_t BgL_sidezd2effectzf33634z21_3528, obj_t BgL_key3635z00_3529, obj_t BgL_fun3636z00_3530, obj_t BgL_args3637z00_3531)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 35 */
{ /* ./Cfa/cinfo2.scm 35 */
BgL_prezd2procedurezd2refzd2appzd2_bglt BgL_auxz00_4884;
BgL_auxz00_4884 = 
BGl_makezd2prezd2procedurezd2refzd2appz00zzcfa_info2z00(BgL_loc3632z00_3526, 
(BgL_typez00_bglt)(BgL_type3633z00_3527), BgL_sidezd2effectzf33634z21_3528, BgL_key3635z00_3529, 
(BgL_varz00_bglt)(BgL_fun3636z00_3530), BgL_args3637z00_3531); 
return 
(obj_t)(BgL_auxz00_4884);} } 
}



/* fill-pre-procedure-ref-app! */
BGL_EXPORTED_DEF BgL_prezd2procedurezd2refzd2appzd2_bglt BGl_fillzd2prezd2procedurezd2refzd2appz12z12zzcfa_info2z00(BgL_prezd2procedurezd2refzd2appzd2_bglt BgL_new3640z00_271)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 35 */
{ /* ./Cfa/cinfo2.scm 35 */

return BgL_new3640z00_271;} } 
}



/* _fill-pre-procedure-ref-app! */
obj_t BGl__fillzd2prezd2procedurezd2refzd2appz12z12zzcfa_info2z00(obj_t BgL_envz00_3532, obj_t BgL_new3640z00_3533)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 35 */
{ /* ./Cfa/cinfo2.scm 35 */
BgL_prezd2procedurezd2refzd2appzd2_bglt BgL_auxz00_4889;
{ /* ./Cfa/cinfo2.scm 35 */

BgL_auxz00_4889 = 
(BgL_prezd2procedurezd2refzd2appzd2_bglt)(BgL_new3640z00_3533); } 
return 
(obj_t)(BgL_auxz00_4889);} } 
}



/* allocate-pre-procedure-ref-app */
BGL_EXPORTED_DEF BgL_appz00_bglt BGl_allocatezd2prezd2procedurezd2refzd2appz00zzcfa_info2z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 35 */
{ /* ./Cfa/cinfo2.scm 35 */
BgL_appz00_bglt BgL_new3642z00_3924;
BgL_new3642z00_3924 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 35 */
long BgL_arg4760z00_3925;
BgL_arg4760z00_3925 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2procedurezd2refzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 35 */
BgL_objectz00_bglt BgL_objz00_3926;
BgL_objz00_3926 = 
(BgL_objectz00_bglt)(BgL_new3642z00_3924); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3926, BgL_arg4760z00_3925); } } 
{ /* ./Cfa/cinfo2.scm 35 */
BgL_objectz00_bglt BgL_auxz00_4896;
BgL_auxz00_4896 = 
(BgL_objectz00_bglt)(BgL_new3642z00_3924); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4896, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 35 */
obj_t BgL_objz00_3927;
BgL_objz00_3927 = 
(obj_t)(BgL_new3642z00_3924); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3927); BUNSPEC; } 
return BgL_new3642z00_3924;} } 
}



/* _allocate-pre-procedure-ref-app */
obj_t BGl__allocatezd2prezd2procedurezd2refzd2appz00zzcfa_info2z00(obj_t BgL_envz00_3290)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 35 */
{ /* ./Cfa/cinfo2.scm 35 */
BgL_appz00_bglt BgL_auxz00_4901;
{ /* ./Cfa/cinfo2.scm 35 */
BgL_appz00_bglt BgL_res7190z00_3932;
{ /* ./Cfa/cinfo2.scm 35 */
BgL_appz00_bglt BgL_new3642z00_3928;
BgL_new3642z00_3928 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 35 */
long BgL_arg4760z00_3929;
BgL_arg4760z00_3929 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2procedurezd2refzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 35 */
BgL_objectz00_bglt BgL_objz00_3930;
BgL_objz00_3930 = 
(BgL_objectz00_bglt)(BgL_new3642z00_3928); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3930, BgL_arg4760z00_3929); } } 
{ /* ./Cfa/cinfo2.scm 35 */
BgL_objectz00_bglt BgL_auxz00_4906;
BgL_auxz00_4906 = 
(BgL_objectz00_bglt)(BgL_new3642z00_3928); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4906, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 35 */
obj_t BgL_objz00_3931;
BgL_objz00_3931 = 
(obj_t)(BgL_new3642z00_3928); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3931); BUNSPEC; } 
BgL_res7190z00_3932 = BgL_new3642z00_3928; } 
BgL_auxz00_4901 = BgL_res7190z00_3932; } 
return 
(obj_t)(BgL_auxz00_4901);} } 
}



/* pre-make-procedure-app? */
BGL_EXPORTED_DEF bool_t BGl_prezd2makezd2procedurezd2appzf3z21zzcfa_info2z00(obj_t BgL_obj3611z00_272)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 32 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3611z00_272, BGl_prezd2makezd2procedurezd2appzd2zzcfa_info2z00);} 
}



/* _pre-make-procedure-app? */
obj_t BGl__prezd2makezd2procedurezd2appzf3z21zzcfa_info2z00(obj_t BgL_envz00_3534, obj_t BgL_obj3611z00_3535)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 32 */
{ /* ./Cfa/cinfo2.scm 32 */
bool_t BgL_auxz00_4913;
BgL_auxz00_4913 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3611z00_3535, BGl_prezd2makezd2procedurezd2appzd2zzcfa_info2z00); 
return 
BBOOL(BgL_auxz00_4913);} } 
}



/* widening-pre-make-procedure-app */
BGL_EXPORTED_DEF BgL_prezd2makezd2procedurezd2appzd2_bglt BGl_wideningzd2prezd2makezd2procedurezd2appz00zzcfa_info2z00(BgL_variablez00_bglt BgL_owner3588z00_276)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 32 */
{ /* ./Cfa/cinfo2.scm 32 */
BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_new3589z00_2593;
BgL_new3589z00_2593 = 
((BgL_prezd2makezd2procedurezd2appzd2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_prezd2makezd2procedurezd2appzd2_bgl)))); 
{ /* ./Cfa/cinfo2.scm 32 */
BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_res6121z00_2597;
{ /* ./Cfa/cinfo2.scm 32 */
BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_new3601z00_2594;
BgL_new3601z00_2594 = BgL_new3589z00_2593; 
{ /* ./Cfa/cinfo2.scm 32 */
BgL_variablez00_bglt BgL_owner3600z00_2596;
BgL_owner3600z00_2596 = BgL_owner3588z00_276; 
((((BgL_prezd2makezd2procedurezd2appzd2_bglt)CREF(BgL_new3601z00_2594))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3600z00_2596), BUNSPEC); 
BgL_res6121z00_2597 = BgL_new3601z00_2594; } } BgL_res6121z00_2597; } 
return BgL_new3589z00_2593;} } 
}



/* _widening-pre-make-procedure-app6248 */
obj_t BGl__wideningzd2prezd2makezd2procedurezd2app6248z00zzcfa_info2z00(obj_t BgL_envz00_3536, obj_t BgL_owner3588z00_3537)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 32 */
{ /* ./Cfa/cinfo2.scm 32 */
BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_auxz00_4918;
BgL_auxz00_4918 = 
BGl_wideningzd2prezd2makezd2procedurezd2appz00zzcfa_info2z00(
(BgL_variablez00_bglt)(BgL_owner3588z00_3537)); 
return 
(obj_t)(BgL_auxz00_4918);} } 
}



/* make-pre-make-procedure-app */
BGL_EXPORTED_DEF BgL_prezd2makezd2procedurezd2appzd2_bglt BGl_makezd2prezd2makezd2procedurezd2appz00zzcfa_info2z00(obj_t BgL_loc3592z00_277, BgL_typez00_bglt BgL_type3593z00_278, obj_t BgL_sidezd2effectzf33594z21_279, obj_t BgL_key3595z00_280, BgL_varz00_bglt BgL_fun3596z00_281, obj_t BgL_args3597z00_282, BgL_variablez00_bglt BgL_owner3591z00_283)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 32 */
{ /* ./Cfa/cinfo2.scm 32 */
BgL_appz00_bglt BgL_aux3598z00_2598;
BgL_aux3598z00_2598 = 
BGl_makezd2appzd2zzast_nodez00(BgL_loc3592z00_277, BgL_type3593z00_278, BgL_sidezd2effectzf33594z21_279, BgL_key3595z00_280, BgL_fun3596z00_281, BgL_args3597z00_282); 
{ /* ./Cfa/cinfo2.scm 32 */
long BgL_arg4768z00_2599;
BgL_arg4768z00_2599 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2makezd2procedurezd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 32 */
BgL_objectz00_bglt BgL_objz00_2602;
BgL_objz00_2602 = 
(BgL_objectz00_bglt)(BgL_aux3598z00_2598); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2602, BgL_arg4768z00_2599); } } 
{ /* ./Cfa/cinfo2.scm 32 */
BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_arg4772z00_2600;
{ /* ./Cfa/cinfo2.scm 32 */
BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_res6123z00_2610;
{ /* ./Cfa/cinfo2.scm 32 */
BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_new3589z00_2605;
BgL_new3589z00_2605 = 
((BgL_prezd2makezd2procedurezd2appzd2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_prezd2makezd2procedurezd2appzd2_bgl)))); 
{ /* ./Cfa/cinfo2.scm 32 */
BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_res6122z00_2609;
{ /* ./Cfa/cinfo2.scm 32 */
BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_new3601z00_2606;
BgL_new3601z00_2606 = BgL_new3589z00_2605; 
{ /* ./Cfa/cinfo2.scm 32 */
BgL_variablez00_bglt BgL_owner3600z00_2608;
BgL_owner3600z00_2608 = BgL_owner3591z00_283; 
((((BgL_prezd2makezd2procedurezd2appzd2_bglt)CREF(BgL_new3601z00_2606))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3600z00_2608), BUNSPEC); 
BgL_res6122z00_2609 = BgL_new3601z00_2606; } } BgL_res6122z00_2609; } 
BgL_res6123z00_2610 = BgL_new3589z00_2605; } 
BgL_arg4772z00_2600 = BgL_res6123z00_2610; } 
{ /* ./Cfa/cinfo2.scm 32 */
obj_t BgL_auxz00_4930;BgL_objectz00_bglt BgL_auxz00_4928;
BgL_auxz00_4930 = 
(obj_t)(BgL_arg4772z00_2600); 
BgL_auxz00_4928 = 
(BgL_objectz00_bglt)(BgL_aux3598z00_2598); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4928, BgL_auxz00_4930); } } 
{ /* ./Cfa/cinfo2.scm 32 */
BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_new3599z00_2601;
{ 
BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_auxz00_4933;
BgL_auxz00_4933 = 
(BgL_prezd2makezd2procedurezd2appzd2_bglt)(BgL_aux3598z00_2598); 
BgL_new3599z00_2601 = 
((BgL_prezd2makezd2procedurezd2appzd2_bglt)BgL_auxz00_4933); } 
{ /* ./Cfa/cinfo2.scm 32 */
obj_t BgL_objz00_2611;
BgL_objz00_2611 = 
(obj_t)(BgL_new3599z00_2601); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2611); BUNSPEC; } 
return BgL_new3599z00_2601;} } } 
}



/* _make-pre-make-procedure-app */
obj_t BGl__makezd2prezd2makezd2procedurezd2appz00zzcfa_info2z00(obj_t BgL_envz00_3538, obj_t BgL_loc3592z00_3539, obj_t BgL_type3593z00_3540, obj_t BgL_sidezd2effectzf33594z21_3541, obj_t BgL_key3595z00_3542, obj_t BgL_fun3596z00_3543, obj_t BgL_args3597z00_3544, obj_t BgL_owner3591z00_3545)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 32 */
{ /* ./Cfa/cinfo2.scm 32 */
BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_auxz00_4938;
BgL_auxz00_4938 = 
BGl_makezd2prezd2makezd2procedurezd2appz00zzcfa_info2z00(BgL_loc3592z00_3539, 
(BgL_typez00_bglt)(BgL_type3593z00_3540), BgL_sidezd2effectzf33594z21_3541, BgL_key3595z00_3542, 
(BgL_varz00_bglt)(BgL_fun3596z00_3543), BgL_args3597z00_3544, 
(BgL_variablez00_bglt)(BgL_owner3591z00_3545)); 
return 
(obj_t)(BgL_auxz00_4938);} } 
}



/* fill-pre-make-procedure-app! */
BGL_EXPORTED_DEF BgL_prezd2makezd2procedurezd2appzd2_bglt BGl_fillzd2prezd2makezd2procedurezd2appz12z12zzcfa_info2z00(BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_new3601z00_284, BgL_variablez00_bglt BgL_owner3600z00_285)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 32 */
{ /* ./Cfa/cinfo2.scm 32 */
BgL_variablez00_bglt BgL_owner3600z00_3934;
BgL_owner3600z00_3934 = BgL_owner3600z00_285; 
((((BgL_prezd2makezd2procedurezd2appzd2_bglt)CREF(BgL_new3601z00_284))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3600z00_3934), BUNSPEC); 
return BgL_new3601z00_284;} } 
}



/* _fill-pre-make-procedure-app! */
obj_t BGl__fillzd2prezd2makezd2procedurezd2appz12z12zzcfa_info2z00(obj_t BgL_envz00_3546, obj_t BgL_new3601z00_3547, obj_t BgL_owner3600z00_3548)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 32 */
{ /* ./Cfa/cinfo2.scm 32 */
BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_auxz00_4945;
{ /* ./Cfa/cinfo2.scm 32 */
BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_res7191z00_3938;
{ /* ./Cfa/cinfo2.scm 32 */
BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_new3601z00_3935;BgL_variablez00_bglt BgL_owner3600z00_3936;
BgL_new3601z00_3935 = 
(BgL_prezd2makezd2procedurezd2appzd2_bglt)(BgL_new3601z00_3547); 
BgL_owner3600z00_3936 = 
(BgL_variablez00_bglt)(BgL_owner3600z00_3548); 
{ /* ./Cfa/cinfo2.scm 32 */
BgL_variablez00_bglt BgL_owner3600z00_3937;
BgL_owner3600z00_3937 = BgL_owner3600z00_3936; 
((((BgL_prezd2makezd2procedurezd2appzd2_bglt)CREF(BgL_new3601z00_3935))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3600z00_3937), BUNSPEC); 
BgL_res7191z00_3938 = BgL_new3601z00_3935; } } 
BgL_auxz00_4945 = BgL_res7191z00_3938; } 
return 
(obj_t)(BgL_auxz00_4945);} } 
}



/* allocate-pre-make-procedure-app */
BGL_EXPORTED_DEF BgL_appz00_bglt BGl_allocatezd2prezd2makezd2procedurezd2appz00zzcfa_info2z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 32 */
{ /* ./Cfa/cinfo2.scm 32 */
BgL_appz00_bglt BgL_new3604z00_3939;
BgL_new3604z00_3939 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 32 */
long BgL_arg4778z00_3940;
BgL_arg4778z00_3940 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2makezd2procedurezd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 32 */
BgL_objectz00_bglt BgL_objz00_3941;
BgL_objz00_3941 = 
(BgL_objectz00_bglt)(BgL_new3604z00_3939); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3941, BgL_arg4778z00_3940); } } 
{ /* ./Cfa/cinfo2.scm 32 */
BgL_objectz00_bglt BgL_auxz00_4954;
BgL_auxz00_4954 = 
(BgL_objectz00_bglt)(BgL_new3604z00_3939); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4954, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 32 */
obj_t BgL_objz00_3942;
BgL_objz00_3942 = 
(obj_t)(BgL_new3604z00_3939); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3942); BUNSPEC; } 
return BgL_new3604z00_3939;} } 
}



/* _allocate-pre-make-procedure-app */
obj_t BGl__allocatezd2prezd2makezd2procedurezd2appz00zzcfa_info2z00(obj_t BgL_envz00_3289)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 32 */
{ /* ./Cfa/cinfo2.scm 32 */
BgL_appz00_bglt BgL_auxz00_4959;
{ /* ./Cfa/cinfo2.scm 32 */
BgL_appz00_bglt BgL_res7192z00_3947;
{ /* ./Cfa/cinfo2.scm 32 */
BgL_appz00_bglt BgL_new3604z00_3943;
BgL_new3604z00_3943 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 32 */
long BgL_arg4778z00_3944;
BgL_arg4778z00_3944 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2makezd2procedurezd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 32 */
BgL_objectz00_bglt BgL_objz00_3945;
BgL_objz00_3945 = 
(BgL_objectz00_bglt)(BgL_new3604z00_3943); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3945, BgL_arg4778z00_3944); } } 
{ /* ./Cfa/cinfo2.scm 32 */
BgL_objectz00_bglt BgL_auxz00_4964;
BgL_auxz00_4964 = 
(BgL_objectz00_bglt)(BgL_new3604z00_3943); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4964, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 32 */
obj_t BgL_objz00_3946;
BgL_objz00_3946 = 
(obj_t)(BgL_new3604z00_3943); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3946); BUNSPEC; } 
BgL_res7192z00_3947 = BgL_new3604z00_3943; } 
BgL_auxz00_4959 = BgL_res7192z00_3947; } 
return 
(obj_t)(BgL_auxz00_4959);} } 
}



/* arithmetic-app? */
BGL_EXPORTED_DEF bool_t BGl_arithmeticzd2appzf3z21zzcfa_info2z00(obj_t BgL_obj3569z00_287)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 27 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3569z00_287, BGl_arithmeticzd2appzd2zzcfa_info2z00);} 
}



/* _arithmetic-app? */
obj_t BGl__arithmeticzd2appzf3z21zzcfa_info2z00(obj_t BgL_envz00_3549, obj_t BgL_obj3569z00_3550)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 27 */
{ /* ./Cfa/cinfo2.scm 27 */
bool_t BgL_auxz00_4971;
BgL_auxz00_4971 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3569z00_3550, BGl_arithmeticzd2appzd2zzcfa_info2z00); 
return 
BBOOL(BgL_auxz00_4971);} } 
}



/* widening-arithmetic-app */
BGL_EXPORTED_DEF BgL_arithmeticzd2appzd2_bglt BGl_wideningzd2arithmeticzd2appz00zzcfa_info2z00(BgL_approxz00_bglt BgL_approx3542z00_291, obj_t BgL_speczd2types3543zd2_292)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 27 */
{ /* ./Cfa/cinfo2.scm 27 */
BgL_arithmeticzd2appzd2_bglt BgL_new3544z00_2618;
BgL_new3544z00_2618 = 
((BgL_arithmeticzd2appzd2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_arithmeticzd2appzd2_bgl)))); 
{ /* ./Cfa/cinfo2.scm 27 */
BgL_arithmeticzd2appzd2_bglt BgL_res6124z00_2624;
{ /* ./Cfa/cinfo2.scm 27 */
BgL_arithmeticzd2appzd2_bglt BgL_new3558z00_2619;
BgL_new3558z00_2619 = BgL_new3544z00_2618; 
{ /* ./Cfa/cinfo2.scm 27 */
BgL_approxz00_bglt BgL_approx3556z00_2622;obj_t BgL_speczd2types3557zd2_2623;
BgL_approx3556z00_2622 = BgL_approx3542z00_291; 
BgL_speczd2types3557zd2_2623 = BgL_speczd2types3543zd2_292; 
((((BgL_arithmeticzd2appzd2_bglt)CREF(BgL_new3558z00_2619))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3556z00_2622), BUNSPEC); 
((((BgL_arithmeticzd2appzd2_bglt)CREF(BgL_new3558z00_2619))->BgL_speczd2typeszd2) = ((obj_t)BgL_speczd2types3557zd2_2623), BUNSPEC); 
BgL_res6124z00_2624 = BgL_new3558z00_2619; } } BgL_res6124z00_2624; } 
return BgL_new3544z00_2618;} } 
}



/* _widening-arithmetic-app6253 */
obj_t BGl__wideningzd2arithmeticzd2app6253z00zzcfa_info2z00(obj_t BgL_envz00_3551, obj_t BgL_approx3542z00_3552, obj_t BgL_speczd2types3543zd2_3553)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 27 */
{ /* ./Cfa/cinfo2.scm 27 */
BgL_arithmeticzd2appzd2_bglt BgL_auxz00_4977;
BgL_auxz00_4977 = 
BGl_wideningzd2arithmeticzd2appz00zzcfa_info2z00(
(BgL_approxz00_bglt)(BgL_approx3542z00_3552), BgL_speczd2types3543zd2_3553); 
return 
(obj_t)(BgL_auxz00_4977);} } 
}



/* make-arithmetic-app */
BGL_EXPORTED_DEF BgL_arithmeticzd2appzd2_bglt BGl_makezd2arithmeticzd2appz00zzcfa_info2z00(obj_t BgL_loc3548z00_293, BgL_typez00_bglt BgL_type3549z00_294, obj_t BgL_sidezd2effectzf33550z21_295, obj_t BgL_key3551z00_296, BgL_varz00_bglt BgL_fun3552z00_297, obj_t BgL_args3553z00_298, BgL_approxz00_bglt BgL_approx3546z00_299, obj_t BgL_speczd2types3547zd2_300)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 27 */
{ /* ./Cfa/cinfo2.scm 27 */
BgL_appz00_bglt BgL_aux3554z00_2625;
BgL_aux3554z00_2625 = 
BGl_makezd2appzd2zzast_nodez00(BgL_loc3548z00_293, BgL_type3549z00_294, BgL_sidezd2effectzf33550z21_295, BgL_key3551z00_296, BgL_fun3552z00_297, BgL_args3553z00_298); 
{ /* ./Cfa/cinfo2.scm 27 */
long BgL_arg4787z00_2626;
BgL_arg4787z00_2626 = 
BGl_classzd2numzd2zz__objectz00(BGl_arithmeticzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 27 */
BgL_objectz00_bglt BgL_objz00_2629;
BgL_objz00_2629 = 
(BgL_objectz00_bglt)(BgL_aux3554z00_2625); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2629, BgL_arg4787z00_2626); } } 
{ /* ./Cfa/cinfo2.scm 27 */
BgL_arithmeticzd2appzd2_bglt BgL_arg4791z00_2627;
{ /* ./Cfa/cinfo2.scm 27 */
BgL_arithmeticzd2appzd2_bglt BgL_res6126z00_2640;
{ /* ./Cfa/cinfo2.scm 27 */
BgL_arithmeticzd2appzd2_bglt BgL_new3544z00_2633;
BgL_new3544z00_2633 = 
((BgL_arithmeticzd2appzd2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_arithmeticzd2appzd2_bgl)))); 
{ /* ./Cfa/cinfo2.scm 27 */
BgL_arithmeticzd2appzd2_bglt BgL_res6125z00_2639;
{ /* ./Cfa/cinfo2.scm 27 */
BgL_arithmeticzd2appzd2_bglt BgL_new3558z00_2634;
BgL_new3558z00_2634 = BgL_new3544z00_2633; 
{ /* ./Cfa/cinfo2.scm 27 */
BgL_approxz00_bglt BgL_approx3556z00_2637;obj_t BgL_speczd2types3557zd2_2638;
BgL_approx3556z00_2637 = BgL_approx3546z00_299; 
BgL_speczd2types3557zd2_2638 = BgL_speczd2types3547zd2_300; 
((((BgL_arithmeticzd2appzd2_bglt)CREF(BgL_new3558z00_2634))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3556z00_2637), BUNSPEC); 
((((BgL_arithmeticzd2appzd2_bglt)CREF(BgL_new3558z00_2634))->BgL_speczd2typeszd2) = ((obj_t)BgL_speczd2types3557zd2_2638), BUNSPEC); 
BgL_res6125z00_2639 = BgL_new3558z00_2634; } } BgL_res6125z00_2639; } 
BgL_res6126z00_2640 = BgL_new3544z00_2633; } 
BgL_arg4791z00_2627 = BgL_res6126z00_2640; } 
{ /* ./Cfa/cinfo2.scm 27 */
obj_t BgL_auxz00_4990;BgL_objectz00_bglt BgL_auxz00_4988;
BgL_auxz00_4990 = 
(obj_t)(BgL_arg4791z00_2627); 
BgL_auxz00_4988 = 
(BgL_objectz00_bglt)(BgL_aux3554z00_2625); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4988, BgL_auxz00_4990); } } 
{ /* ./Cfa/cinfo2.scm 27 */
BgL_arithmeticzd2appzd2_bglt BgL_new3555z00_2628;
{ 
BgL_arithmeticzd2appzd2_bglt BgL_auxz00_4993;
BgL_auxz00_4993 = 
(BgL_arithmeticzd2appzd2_bglt)(BgL_aux3554z00_2625); 
BgL_new3555z00_2628 = 
((BgL_arithmeticzd2appzd2_bglt)BgL_auxz00_4993); } 
{ /* ./Cfa/cinfo2.scm 27 */
obj_t BgL_objz00_2641;
BgL_objz00_2641 = 
(obj_t)(BgL_new3555z00_2628); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2641); BUNSPEC; } 
return BgL_new3555z00_2628;} } } 
}



/* _make-arithmetic-app */
obj_t BGl__makezd2arithmeticzd2appz00zzcfa_info2z00(obj_t BgL_envz00_3554, obj_t BgL_loc3548z00_3555, obj_t BgL_type3549z00_3556, obj_t BgL_sidezd2effectzf33550z21_3557, obj_t BgL_key3551z00_3558, obj_t BgL_fun3552z00_3559, obj_t BgL_args3553z00_3560, obj_t BgL_approx3546z00_3561, obj_t BgL_speczd2types3547zd2_3562)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 27 */
{ /* ./Cfa/cinfo2.scm 27 */
BgL_arithmeticzd2appzd2_bglt BgL_auxz00_4998;
BgL_auxz00_4998 = 
BGl_makezd2arithmeticzd2appz00zzcfa_info2z00(BgL_loc3548z00_3555, 
(BgL_typez00_bglt)(BgL_type3549z00_3556), BgL_sidezd2effectzf33550z21_3557, BgL_key3551z00_3558, 
(BgL_varz00_bglt)(BgL_fun3552z00_3559), BgL_args3553z00_3560, 
(BgL_approxz00_bglt)(BgL_approx3546z00_3561), BgL_speczd2types3547zd2_3562); 
return 
(obj_t)(BgL_auxz00_4998);} } 
}



/* fill-arithmetic-app! */
BGL_EXPORTED_DEF BgL_arithmeticzd2appzd2_bglt BGl_fillzd2arithmeticzd2appz12z12zzcfa_info2z00(BgL_arithmeticzd2appzd2_bglt BgL_new3558z00_301, BgL_approxz00_bglt BgL_approx3556z00_302, obj_t BgL_speczd2types3557zd2_303)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 27 */
{ /* ./Cfa/cinfo2.scm 27 */
BgL_approxz00_bglt BgL_approx3556z00_3949;obj_t BgL_speczd2types3557zd2_3950;
BgL_approx3556z00_3949 = BgL_approx3556z00_302; 
BgL_speczd2types3557zd2_3950 = BgL_speczd2types3557zd2_303; 
((((BgL_arithmeticzd2appzd2_bglt)CREF(BgL_new3558z00_301))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3556z00_3949), BUNSPEC); 
((((BgL_arithmeticzd2appzd2_bglt)CREF(BgL_new3558z00_301))->BgL_speczd2typeszd2) = ((obj_t)BgL_speczd2types3557zd2_3950), BUNSPEC); 
return BgL_new3558z00_301;} } 
}



/* _fill-arithmetic-app! */
obj_t BGl__fillzd2arithmeticzd2appz12z12zzcfa_info2z00(obj_t BgL_envz00_3563, obj_t BgL_new3558z00_3564, obj_t BgL_approx3556z00_3565, obj_t BgL_speczd2types3557zd2_3566)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 27 */
{ /* ./Cfa/cinfo2.scm 27 */
BgL_arithmeticzd2appzd2_bglt BgL_auxz00_5006;
{ /* ./Cfa/cinfo2.scm 27 */
BgL_arithmeticzd2appzd2_bglt BgL_res7193z00_3956;
{ /* ./Cfa/cinfo2.scm 27 */
BgL_arithmeticzd2appzd2_bglt BgL_new3558z00_3951;BgL_approxz00_bglt BgL_approx3556z00_3952;
BgL_new3558z00_3951 = 
(BgL_arithmeticzd2appzd2_bglt)(BgL_new3558z00_3564); 
BgL_approx3556z00_3952 = 
(BgL_approxz00_bglt)(BgL_approx3556z00_3565); 
{ /* ./Cfa/cinfo2.scm 27 */
BgL_approxz00_bglt BgL_approx3556z00_3954;obj_t BgL_speczd2types3557zd2_3955;
BgL_approx3556z00_3954 = BgL_approx3556z00_3952; 
BgL_speczd2types3557zd2_3955 = BgL_speczd2types3557zd2_3566; 
((((BgL_arithmeticzd2appzd2_bglt)CREF(BgL_new3558z00_3951))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3556z00_3954), BUNSPEC); 
((((BgL_arithmeticzd2appzd2_bglt)CREF(BgL_new3558z00_3951))->BgL_speczd2typeszd2) = ((obj_t)BgL_speczd2types3557zd2_3955), BUNSPEC); 
BgL_res7193z00_3956 = BgL_new3558z00_3951; } } 
BgL_auxz00_5006 = BgL_res7193z00_3956; } 
return 
(obj_t)(BgL_auxz00_5006);} } 
}



/* allocate-arithmetic-app */
BGL_EXPORTED_DEF BgL_appz00_bglt BGl_allocatezd2arithmeticzd2appz00zzcfa_info2z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 27 */
{ /* ./Cfa/cinfo2.scm 27 */
BgL_appz00_bglt BgL_new3562z00_3957;
BgL_new3562z00_3957 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 27 */
long BgL_arg4797z00_3958;
BgL_arg4797z00_3958 = 
BGl_classzd2numzd2zz__objectz00(BGl_arithmeticzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 27 */
BgL_objectz00_bglt BgL_objz00_3959;
BgL_objz00_3959 = 
(BgL_objectz00_bglt)(BgL_new3562z00_3957); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3959, BgL_arg4797z00_3958); } } 
{ /* ./Cfa/cinfo2.scm 27 */
BgL_objectz00_bglt BgL_auxz00_5016;
BgL_auxz00_5016 = 
(BgL_objectz00_bglt)(BgL_new3562z00_3957); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5016, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 27 */
obj_t BgL_objz00_3960;
BgL_objz00_3960 = 
(obj_t)(BgL_new3562z00_3957); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3960); BUNSPEC; } 
return BgL_new3562z00_3957;} } 
}



/* _allocate-arithmetic-app */
obj_t BGl__allocatezd2arithmeticzd2appz00zzcfa_info2z00(obj_t BgL_envz00_3288)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 27 */
{ /* ./Cfa/cinfo2.scm 27 */
BgL_appz00_bglt BgL_auxz00_5021;
{ /* ./Cfa/cinfo2.scm 27 */
BgL_appz00_bglt BgL_res7194z00_3965;
{ /* ./Cfa/cinfo2.scm 27 */
BgL_appz00_bglt BgL_new3562z00_3961;
BgL_new3562z00_3961 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 27 */
long BgL_arg4797z00_3962;
BgL_arg4797z00_3962 = 
BGl_classzd2numzd2zz__objectz00(BGl_arithmeticzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 27 */
BgL_objectz00_bglt BgL_objz00_3963;
BgL_objz00_3963 = 
(BgL_objectz00_bglt)(BgL_new3562z00_3961); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3963, BgL_arg4797z00_3962); } } 
{ /* ./Cfa/cinfo2.scm 27 */
BgL_objectz00_bglt BgL_auxz00_5026;
BgL_auxz00_5026 = 
(BgL_objectz00_bglt)(BgL_new3562z00_3961); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5026, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 27 */
obj_t BgL_objz00_3964;
BgL_objz00_3964 = 
(obj_t)(BgL_new3562z00_3961); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3964); BUNSPEC; } 
BgL_res7194z00_3965 = BgL_new3562z00_3961; } 
BgL_auxz00_5021 = BgL_res7194z00_3965; } 
return 
(obj_t)(BgL_auxz00_5021);} } 
}



/* pre-arithmetic-app? */
BGL_EXPORTED_DEF bool_t BGl_prezd2arithmeticzd2appzf3zf3zzcfa_info2z00(obj_t BgL_obj3524z00_306)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 25 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3524z00_306, BGl_prezd2arithmeticzd2appz00zzcfa_info2z00);} 
}



/* _pre-arithmetic-app? */
obj_t BGl__prezd2arithmeticzd2appzf3zf3zzcfa_info2z00(obj_t BgL_envz00_3567, obj_t BgL_obj3524z00_3568)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 25 */
{ /* ./Cfa/cinfo2.scm 25 */
bool_t BgL_auxz00_5033;
BgL_auxz00_5033 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3524z00_3568, BGl_prezd2arithmeticzd2appz00zzcfa_info2z00); 
return 
BBOOL(BgL_auxz00_5033);} } 
}



/* widening-pre-arithmetic-app */
BGL_EXPORTED_DEF BgL_prezd2arithmeticzd2appz00_bglt BGl_wideningzd2prezd2arithmeticzd2appzd2zzcfa_info2z00(obj_t BgL_speczd2types3501zd2_310)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 25 */
{ /* ./Cfa/cinfo2.scm 25 */
BgL_prezd2arithmeticzd2appz00_bglt BgL_new3502z00_2649;
BgL_new3502z00_2649 = 
((BgL_prezd2arithmeticzd2appz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_prezd2arithmeticzd2appz00_bgl)))); 
{ /* ./Cfa/cinfo2.scm 25 */
BgL_prezd2arithmeticzd2appz00_bglt BgL_res6127z00_2653;
{ /* ./Cfa/cinfo2.scm 25 */
BgL_prezd2arithmeticzd2appz00_bglt BgL_new3514z00_2650;
BgL_new3514z00_2650 = BgL_new3502z00_2649; 
{ /* ./Cfa/cinfo2.scm 25 */
obj_t BgL_speczd2types3513zd2_2652;
BgL_speczd2types3513zd2_2652 = BgL_speczd2types3501zd2_310; 
((((BgL_prezd2arithmeticzd2appz00_bglt)CREF(BgL_new3514z00_2650))->BgL_speczd2typeszd2) = ((obj_t)BgL_speczd2types3513zd2_2652), BUNSPEC); 
BgL_res6127z00_2653 = BgL_new3514z00_2650; } } BgL_res6127z00_2653; } 
return BgL_new3502z00_2649;} } 
}



/* _widening-pre-arithmetic-app6258 */
obj_t BGl__wideningzd2prezd2arithmeticzd2app6258zd2zzcfa_info2z00(obj_t BgL_envz00_3569, obj_t BgL_speczd2types3501zd2_3570)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 25 */
{ /* ./Cfa/cinfo2.scm 25 */
BgL_prezd2arithmeticzd2appz00_bglt BgL_auxz00_5038;
BgL_auxz00_5038 = 
BGl_wideningzd2prezd2arithmeticzd2appzd2zzcfa_info2z00(BgL_speczd2types3501zd2_3570); 
return 
(obj_t)(BgL_auxz00_5038);} } 
}



/* make-pre-arithmetic-app */
BGL_EXPORTED_DEF BgL_prezd2arithmeticzd2appz00_bglt BGl_makezd2prezd2arithmeticzd2appzd2zzcfa_info2z00(obj_t BgL_loc3505z00_311, BgL_typez00_bglt BgL_type3506z00_312, obj_t BgL_sidezd2effectzf33507z21_313, obj_t BgL_key3508z00_314, BgL_varz00_bglt BgL_fun3509z00_315, obj_t BgL_args3510z00_316, obj_t BgL_speczd2types3504zd2_317)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 25 */
{ /* ./Cfa/cinfo2.scm 25 */
BgL_appz00_bglt BgL_aux3511z00_2654;
BgL_aux3511z00_2654 = 
BGl_makezd2appzd2zzast_nodez00(BgL_loc3505z00_311, BgL_type3506z00_312, BgL_sidezd2effectzf33507z21_313, BgL_key3508z00_314, BgL_fun3509z00_315, BgL_args3510z00_316); 
{ /* ./Cfa/cinfo2.scm 25 */
long BgL_arg4807z00_2655;
BgL_arg4807z00_2655 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2arithmeticzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 25 */
BgL_objectz00_bglt BgL_objz00_2658;
BgL_objz00_2658 = 
(BgL_objectz00_bglt)(BgL_aux3511z00_2654); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2658, BgL_arg4807z00_2655); } } 
{ /* ./Cfa/cinfo2.scm 25 */
BgL_prezd2arithmeticzd2appz00_bglt BgL_arg4811z00_2656;
{ /* ./Cfa/cinfo2.scm 25 */
BgL_prezd2arithmeticzd2appz00_bglt BgL_res6129z00_2666;
{ /* ./Cfa/cinfo2.scm 25 */
BgL_prezd2arithmeticzd2appz00_bglt BgL_new3502z00_2661;
BgL_new3502z00_2661 = 
((BgL_prezd2arithmeticzd2appz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_prezd2arithmeticzd2appz00_bgl)))); 
{ /* ./Cfa/cinfo2.scm 25 */
BgL_prezd2arithmeticzd2appz00_bglt BgL_res6128z00_2665;
{ /* ./Cfa/cinfo2.scm 25 */
BgL_prezd2arithmeticzd2appz00_bglt BgL_new3514z00_2662;
BgL_new3514z00_2662 = BgL_new3502z00_2661; 
{ /* ./Cfa/cinfo2.scm 25 */
obj_t BgL_speczd2types3513zd2_2664;
BgL_speczd2types3513zd2_2664 = BgL_speczd2types3504zd2_317; 
((((BgL_prezd2arithmeticzd2appz00_bglt)CREF(BgL_new3514z00_2662))->BgL_speczd2typeszd2) = ((obj_t)BgL_speczd2types3513zd2_2664), BUNSPEC); 
BgL_res6128z00_2665 = BgL_new3514z00_2662; } } BgL_res6128z00_2665; } 
BgL_res6129z00_2666 = BgL_new3502z00_2661; } 
BgL_arg4811z00_2656 = BgL_res6129z00_2666; } 
{ /* ./Cfa/cinfo2.scm 25 */
obj_t BgL_auxz00_5049;BgL_objectz00_bglt BgL_auxz00_5047;
BgL_auxz00_5049 = 
(obj_t)(BgL_arg4811z00_2656); 
BgL_auxz00_5047 = 
(BgL_objectz00_bglt)(BgL_aux3511z00_2654); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5047, BgL_auxz00_5049); } } 
{ /* ./Cfa/cinfo2.scm 25 */
BgL_prezd2arithmeticzd2appz00_bglt BgL_new3512z00_2657;
{ 
BgL_prezd2arithmeticzd2appz00_bglt BgL_auxz00_5052;
BgL_auxz00_5052 = 
(BgL_prezd2arithmeticzd2appz00_bglt)(BgL_aux3511z00_2654); 
BgL_new3512z00_2657 = 
((BgL_prezd2arithmeticzd2appz00_bglt)BgL_auxz00_5052); } 
{ /* ./Cfa/cinfo2.scm 25 */
obj_t BgL_objz00_2667;
BgL_objz00_2667 = 
(obj_t)(BgL_new3512z00_2657); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2667); BUNSPEC; } 
return BgL_new3512z00_2657;} } } 
}



/* _make-pre-arithmetic-app */
obj_t BGl__makezd2prezd2arithmeticzd2appzd2zzcfa_info2z00(obj_t BgL_envz00_3571, obj_t BgL_loc3505z00_3572, obj_t BgL_type3506z00_3573, obj_t BgL_sidezd2effectzf33507z21_3574, obj_t BgL_key3508z00_3575, obj_t BgL_fun3509z00_3576, obj_t BgL_args3510z00_3577, obj_t BgL_speczd2types3504zd2_3578)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 25 */
{ /* ./Cfa/cinfo2.scm 25 */
BgL_prezd2arithmeticzd2appz00_bglt BgL_auxz00_5057;
BgL_auxz00_5057 = 
BGl_makezd2prezd2arithmeticzd2appzd2zzcfa_info2z00(BgL_loc3505z00_3572, 
(BgL_typez00_bglt)(BgL_type3506z00_3573), BgL_sidezd2effectzf33507z21_3574, BgL_key3508z00_3575, 
(BgL_varz00_bglt)(BgL_fun3509z00_3576), BgL_args3510z00_3577, BgL_speczd2types3504zd2_3578); 
return 
(obj_t)(BgL_auxz00_5057);} } 
}



/* fill-pre-arithmetic-app! */
BGL_EXPORTED_DEF BgL_prezd2arithmeticzd2appz00_bglt BGl_fillzd2prezd2arithmeticzd2appz12zc0zzcfa_info2z00(BgL_prezd2arithmeticzd2appz00_bglt BgL_new3514z00_318, obj_t BgL_speczd2types3513zd2_319)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 25 */
{ /* ./Cfa/cinfo2.scm 25 */
obj_t BgL_speczd2types3513zd2_3967;
BgL_speczd2types3513zd2_3967 = BgL_speczd2types3513zd2_319; 
((((BgL_prezd2arithmeticzd2appz00_bglt)CREF(BgL_new3514z00_318))->BgL_speczd2typeszd2) = ((obj_t)BgL_speczd2types3513zd2_3967), BUNSPEC); 
return BgL_new3514z00_318;} } 
}



/* _fill-pre-arithmetic-app! */
obj_t BGl__fillzd2prezd2arithmeticzd2appz12zc0zzcfa_info2z00(obj_t BgL_envz00_3579, obj_t BgL_new3514z00_3580, obj_t BgL_speczd2types3513zd2_3581)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 25 */
{ /* ./Cfa/cinfo2.scm 25 */
BgL_prezd2arithmeticzd2appz00_bglt BgL_auxz00_5063;
{ /* ./Cfa/cinfo2.scm 25 */
BgL_prezd2arithmeticzd2appz00_bglt BgL_res7195z00_3971;
{ /* ./Cfa/cinfo2.scm 25 */
BgL_prezd2arithmeticzd2appz00_bglt BgL_new3514z00_3968;
BgL_new3514z00_3968 = 
(BgL_prezd2arithmeticzd2appz00_bglt)(BgL_new3514z00_3580); 
{ /* ./Cfa/cinfo2.scm 25 */
obj_t BgL_speczd2types3513zd2_3970;
BgL_speczd2types3513zd2_3970 = BgL_speczd2types3513zd2_3581; 
((((BgL_prezd2arithmeticzd2appz00_bglt)CREF(BgL_new3514z00_3968))->BgL_speczd2typeszd2) = ((obj_t)BgL_speczd2types3513zd2_3970), BUNSPEC); 
BgL_res7195z00_3971 = BgL_new3514z00_3968; } } 
BgL_auxz00_5063 = BgL_res7195z00_3971; } 
return 
(obj_t)(BgL_auxz00_5063);} } 
}



/* allocate-pre-arithmetic-app */
BGL_EXPORTED_DEF BgL_appz00_bglt BGl_allocatezd2prezd2arithmeticzd2appzd2zzcfa_info2z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 25 */
{ /* ./Cfa/cinfo2.scm 25 */
BgL_appz00_bglt BgL_new3517z00_3972;
BgL_new3517z00_3972 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 25 */
long BgL_arg4817z00_3973;
BgL_arg4817z00_3973 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2arithmeticzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 25 */
BgL_objectz00_bglt BgL_objz00_3974;
BgL_objz00_3974 = 
(BgL_objectz00_bglt)(BgL_new3517z00_3972); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3974, BgL_arg4817z00_3973); } } 
{ /* ./Cfa/cinfo2.scm 25 */
BgL_objectz00_bglt BgL_auxz00_5071;
BgL_auxz00_5071 = 
(BgL_objectz00_bglt)(BgL_new3517z00_3972); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5071, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 25 */
obj_t BgL_objz00_3975;
BgL_objz00_3975 = 
(obj_t)(BgL_new3517z00_3972); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3975); BUNSPEC; } 
return BgL_new3517z00_3972;} } 
}



/* _allocate-pre-arithmetic-app */
obj_t BGl__allocatezd2prezd2arithmeticzd2appzd2zzcfa_info2z00(obj_t BgL_envz00_3287)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 25 */
{ /* ./Cfa/cinfo2.scm 25 */
BgL_appz00_bglt BgL_auxz00_5076;
{ /* ./Cfa/cinfo2.scm 25 */
BgL_appz00_bglt BgL_res7196z00_3980;
{ /* ./Cfa/cinfo2.scm 25 */
BgL_appz00_bglt BgL_new3517z00_3976;
BgL_new3517z00_3976 = 
((BgL_appz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_appz00_bgl) ))); 
{ /* ./Cfa/cinfo2.scm 25 */
long BgL_arg4817z00_3977;
BgL_arg4817z00_3977 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2arithmeticzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 25 */
BgL_objectz00_bglt BgL_objz00_3978;
BgL_objz00_3978 = 
(BgL_objectz00_bglt)(BgL_new3517z00_3976); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3978, BgL_arg4817z00_3977); } } 
{ /* ./Cfa/cinfo2.scm 25 */
BgL_objectz00_bglt BgL_auxz00_5081;
BgL_auxz00_5081 = 
(BgL_objectz00_bglt)(BgL_new3517z00_3976); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5081, BFALSE); } 
{ /* ./Cfa/cinfo2.scm 25 */
obj_t BgL_objz00_3979;
BgL_objz00_3979 = 
(obj_t)(BgL_new3517z00_3976); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3979); BUNSPEC; } 
BgL_res7196z00_3980 = BgL_new3517z00_3976; } 
BgL_auxz00_5076 = BgL_res7196z00_3980; } 
return 
(obj_t)(BgL_auxz00_5076);} } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzcfa_info2z00()
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 16 */
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_structzd2setz12zd2appz12zzcfa_info2z00, BGl_proc7121z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_structzd2setz12zd2appz12zzcfa_info2z00, BGl_proc7122z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_structzd2refzd2appz00zzcfa_info2z00, BGl_proc7123z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_structzd2refzd2appz00zzcfa_info2z00, BGl_proc7124z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_makezd2structzd2appz00zzcfa_info2z00, BGl_proc7125z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_makezd2structzd2appz00zzcfa_info2z00, BGl_proc7126z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_prezd2structzd2setz12zd2appzc0zzcfa_info2z00, BGl_proc7127z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_prezd2structzd2setz12zd2appzc0zzcfa_info2z00, BGl_proc7128z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_prezd2structzd2refzd2appzd2zzcfa_info2z00, BGl_proc7129z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_prezd2structzd2refzd2appzd2zzcfa_info2z00, BGl_proc7130z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_prezd2makezd2structzd2appzd2zzcfa_info2z00, BGl_proc7131z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_prezd2makezd2structzd2appzd2zzcfa_info2z00, BGl_proc7132z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_makezd2vectorzd2appz00zzcfa_info2z00, BGl_proc7133z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_makezd2vectorzd2appz00zzcfa_info2z00, BGl_proc7134z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_prezd2makezd2vectorzd2appzd2zzcfa_info2z00, BGl_proc7135z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_prezd2makezd2vectorzd2appzd2zzcfa_info2z00, BGl_proc7136z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_procedurezd2setz12zd2appz12zzcfa_info2z00, BGl_proc7137z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_procedurezd2setz12zd2appz12zzcfa_info2z00, BGl_proc7138z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_procedurezd2refzd2appz00zzcfa_info2z00, BGl_proc7139z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_procedurezd2refzd2appz00zzcfa_info2z00, BGl_proc7140z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_makezd2procedurezd2appz00zzcfa_info2z00, BGl_proc7141z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_makezd2procedurezd2appz00zzcfa_info2z00, BGl_proc7142z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_prezd2procedurezd2setz12zd2appzc0zzcfa_info2z00, BGl_proc7143z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_prezd2procedurezd2setz12zd2appzc0zzcfa_info2z00, BGl_proc7144z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_prezd2procedurezd2refzd2appzd2zzcfa_info2z00, BGl_proc7145z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_prezd2procedurezd2refzd2appzd2zzcfa_info2z00, BGl_proc7146z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_prezd2makezd2procedurezd2appzd2zzcfa_info2z00, BGl_proc7147z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_prezd2makezd2procedurezd2appzd2zzcfa_info2z00, BGl_proc7148z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_arithmeticzd2appzd2zzcfa_info2z00, BGl_proc7149z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_arithmeticzd2appzd2zzcfa_info2z00, BGl_proc7150z00zzcfa_info2z00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_prezd2arithmeticzd2appz00zzcfa_info2z00, BGl_proc7151z00zzcfa_info2z00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_prezd2arithmeticzd2appz00zzcfa_info2z00, BGl_proc7152z00zzcfa_info2z00);} 
}



/* struct+object->object-pre-arithmetic-app4341 */
obj_t BGl_structzb2objectzd2ze3objectzd2prezd2arithmeticzd2app4341z51zzcfa_info2z00(obj_t BgL_envz00_3619, obj_t BgL_oz00_3620, obj_t BgL_sz00_3621)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 25 */
{ 
BgL_prezd2arithmeticzd2appz00_bglt BgL_oz00_2208;obj_t BgL_sz00_2209;
{ /* ./Cfa/cinfo2.scm 25 */
BgL_prezd2arithmeticzd2appz00_bglt BgL_auxz00_5119;
BgL_oz00_2208 = 
(BgL_prezd2arithmeticzd2appz00_bglt)(BgL_oz00_3620); 
BgL_sz00_2209 = BgL_sz00_3621; 
{ 

{ /* ./Cfa/cinfo2.scm 25 */
obj_t BgL_old3521z00_2212;obj_t BgL_aux3522z00_2213;
{ /* ./Cfa/cinfo2.scm 25 */
obj_t BgL_nextzd2method4340zd2_2218;
BgL_nextzd2method4340zd2_2218 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2208), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_prezd2arithmeticzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 25 */
bool_t BgL_test6084z00_2219;
BgL_test6084z00_2219 = 
PROCEDUREP(BgL_nextzd2method4340zd2_2218); 
if(BgL_test6084z00_2219)
{ /* ./Cfa/cinfo2.scm 25 */
BgL_old3521z00_2212 = 
PROCEDURE_ENTRY(BgL_nextzd2method4340zd2_2218)(BgL_nextzd2method4340zd2_2218, 
(obj_t)(BgL_oz00_2208), BgL_sz00_2209, BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 25 */
{ /* ./Cfa/cinfo2.scm 25 */
BgL_objectz00_bglt BgL_auxz00_5127;
BgL_auxz00_5127 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2208), BgL_sz00_2209); 
BgL_old3521z00_2212 = 
(obj_t)(BgL_auxz00_5127); } } } } 
{ /* ./Cfa/cinfo2.scm 25 */
int BgL_auxz00_5131;
BgL_auxz00_5131 = 
(int)(((long)0)); 
BgL_aux3522z00_2213 = 
STRUCT_REF(BgL_sz00_2209, BgL_auxz00_5131); } 
{ /* ./Cfa/cinfo2.scm 25 */
BgL_prezd2arithmeticzd2appz00_bglt BgL_new3523z00_2214;
BgL_new3523z00_2214 = 
((BgL_prezd2arithmeticzd2appz00_bglt)(BgL_old3521z00_2212)); 
{ /* ./Cfa/cinfo2.scm 25 */
long BgL_arg6071z00_2215;
BgL_arg6071z00_2215 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2arithmeticzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 25 */
BgL_objectz00_bglt BgL_objz00_3274;
BgL_objz00_3274 = 
(BgL_objectz00_bglt)(BgL_new3523z00_2214); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3274, BgL_arg6071z00_2215); } } 
{ /* ./Cfa/cinfo2.scm 25 */
BgL_prezd2arithmeticzd2appz00_bglt BgL_arg6075z00_2216;
{ /* ./Cfa/cinfo2.scm 25 */
obj_t BgL_arg6078z00_2217;
{ /* ./Cfa/cinfo2.scm 25 */
int BgL_auxz00_5138;
BgL_auxz00_5138 = 
(int)(((long)0)); 
BgL_arg6078z00_2217 = 
STRUCT_REF(BgL_aux3522z00_2213, BgL_auxz00_5138); } 
{ /* ./Cfa/cinfo2.scm 25 */
BgL_prezd2arithmeticzd2appz00_bglt BgL_res6169z00_3284;
{ /* ./Cfa/cinfo2.scm 25 */
BgL_prezd2arithmeticzd2appz00_bglt BgL_new3502z00_3279;
BgL_new3502z00_3279 = 
((BgL_prezd2arithmeticzd2appz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_prezd2arithmeticzd2appz00_bgl)))); 
{ /* ./Cfa/cinfo2.scm 25 */
BgL_prezd2arithmeticzd2appz00_bglt BgL_res6168z00_3283;
{ /* ./Cfa/cinfo2.scm 25 */
BgL_prezd2arithmeticzd2appz00_bglt BgL_new3514z00_3280;
BgL_new3514z00_3280 = BgL_new3502z00_3279; 
{ /* ./Cfa/cinfo2.scm 25 */
obj_t BgL_speczd2types3513zd2_3282;
BgL_speczd2types3513zd2_3282 = BgL_arg6078z00_2217; 
((((BgL_prezd2arithmeticzd2appz00_bglt)CREF(BgL_new3514z00_3280))->BgL_speczd2typeszd2) = ((obj_t)BgL_speczd2types3513zd2_3282), BUNSPEC); 
BgL_res6168z00_3283 = BgL_new3514z00_3280; } } BgL_res6168z00_3283; } 
BgL_res6169z00_3284 = BgL_new3502z00_3279; } 
BgL_arg6075z00_2216 = BgL_res6169z00_3284; } } 
{ /* ./Cfa/cinfo2.scm 25 */
obj_t BgL_auxz00_5145;BgL_objectz00_bglt BgL_auxz00_5143;
BgL_auxz00_5145 = 
(obj_t)(BgL_arg6075z00_2216); 
BgL_auxz00_5143 = 
(BgL_objectz00_bglt)(BgL_new3523z00_2214); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5143, BgL_auxz00_5145); } } 
{ /* ./Cfa/cinfo2.scm 25 */
obj_t BgL_objz00_3285;
BgL_objz00_3285 = 
(obj_t)(BgL_new3523z00_2214); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3285); BUNSPEC; } 
BgL_auxz00_5119 = BgL_new3523z00_2214; } } } 
return 
(obj_t)(BgL_auxz00_5119);} } } 
}



/* object->struct-pre-arithmetic-app4339 */
obj_t BGl_objectzd2ze3structzd2prezd2arithmeticzd2app4339ze3zzcfa_info2z00(obj_t BgL_envz00_3622, obj_t BgL_obj3518z00_3623)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 25 */
{ 
BgL_prezd2arithmeticzd2appz00_bglt BgL_obj3518z00_2198;
BgL_obj3518z00_2198 = 
(BgL_prezd2arithmeticzd2appz00_bglt)(BgL_obj3518z00_3623); 
{ 

{ /* ./Cfa/cinfo2.scm 25 */
obj_t BgL_res3519z00_2201;
{ /* ./Cfa/cinfo2.scm 25 */
obj_t BgL_nextzd2method4338zd2_2206;
BgL_nextzd2method4338zd2_2206 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3518z00_2198), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_prezd2arithmeticzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 25 */
bool_t BgL_test6064z00_2207;
BgL_test6064z00_2207 = 
PROCEDUREP(BgL_nextzd2method4338zd2_2206); 
if(BgL_test6064z00_2207)
{ /* ./Cfa/cinfo2.scm 25 */
BgL_res3519z00_2201 = 
PROCEDURE_ENTRY(BgL_nextzd2method4338zd2_2206)(BgL_nextzd2method4338zd2_2206, 
(obj_t)(BgL_obj3518z00_2198), BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 25 */
BgL_res3519z00_2201 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3518z00_2198)); } } } 
{ /* ./Cfa/cinfo2.scm 25 */
obj_t BgL_aux3520z00_2202;
{ /* ./Cfa/cinfo2.scm 25 */
obj_t BgL_keyz00_3255;int BgL_lenz00_3256;
BgL_keyz00_3255 = 
CNST_TABLE_REF(((long)0)); 
BgL_lenz00_3256 = 
(int)(((long)1)); 
BgL_aux3520z00_2202 = 
make_struct(BgL_keyz00_3255, BgL_lenz00_3256, BUNSPEC); } 
{ /* ./Cfa/cinfo2.scm 25 */
obj_t BgL_arg6053z00_2204;
{ 
obj_t BgL_auxz00_5164;
{ /* ./Cfa/cinfo2.scm 25 */
BgL_objectz00_bglt BgL_auxz00_5165;
BgL_auxz00_5165 = 
(BgL_objectz00_bglt)(BgL_obj3518z00_2198); 
BgL_auxz00_5164 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5165); } 
BgL_arg6053z00_2204 = 
(((BgL_prezd2arithmeticzd2appz00_bglt)CREF(BgL_auxz00_5164))->BgL_speczd2typeszd2); } 
{ /* ./Cfa/cinfo2.scm 25 */
int BgL_kz00_3260;
BgL_kz00_3260 = 
(int)(((long)0)); 
STRUCT_SET(BgL_aux3520z00_2202, BgL_kz00_3260, BgL_arg6053z00_2204); } } 
{ /* ./Cfa/cinfo2.scm 25 */
int BgL_kz00_3263;
BgL_kz00_3263 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3519z00_2201, BgL_kz00_3263, BgL_aux3520z00_2202); } 
{ /* ./Cfa/cinfo2.scm 25 */
obj_t BgL_arg6058z00_2205;
BgL_arg6058z00_2205 = 
STRUCT_KEY(BgL_res3519z00_2201); 
STRUCT_KEY_SET(BgL_aux3520z00_2202, BgL_arg6058z00_2205); } 
{ /* ./Cfa/cinfo2.scm 25 */
obj_t BgL_kz00_3270;
BgL_kz00_3270 = 
CNST_TABLE_REF(((long)0)); 
STRUCT_KEY_SET(BgL_res3519z00_2201, BgL_kz00_3270); } 
return BgL_res3519z00_2201;} } } } } 
}



/* struct+object->object-arithmetic-app4336 */
obj_t BGl_structzb2objectzd2ze3objectzd2arithmeticzd2app4336z83zzcfa_info2z00(obj_t BgL_envz00_3624, obj_t BgL_oz00_3625, obj_t BgL_sz00_3626)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 27 */
{ 
BgL_arithmeticzd2appzd2_bglt BgL_oz00_2185;obj_t BgL_sz00_2186;
{ /* ./Cfa/cinfo2.scm 27 */
BgL_arithmeticzd2appzd2_bglt BgL_auxz00_5178;
BgL_oz00_2185 = 
(BgL_arithmeticzd2appzd2_bglt)(BgL_oz00_3625); 
BgL_sz00_2186 = BgL_sz00_3626; 
{ 

{ /* ./Cfa/cinfo2.scm 27 */
obj_t BgL_old3566z00_2189;obj_t BgL_aux3567z00_2190;
{ /* ./Cfa/cinfo2.scm 27 */
obj_t BgL_nextzd2method4335zd2_2196;
BgL_nextzd2method4335zd2_2196 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2185), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_arithmeticzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 27 */
bool_t BgL_test6045z00_2197;
BgL_test6045z00_2197 = 
PROCEDUREP(BgL_nextzd2method4335zd2_2196); 
if(BgL_test6045z00_2197)
{ /* ./Cfa/cinfo2.scm 27 */
BgL_old3566z00_2189 = 
PROCEDURE_ENTRY(BgL_nextzd2method4335zd2_2196)(BgL_nextzd2method4335zd2_2196, 
(obj_t)(BgL_oz00_2185), BgL_sz00_2186, BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 27 */
{ /* ./Cfa/cinfo2.scm 27 */
BgL_objectz00_bglt BgL_auxz00_5186;
BgL_auxz00_5186 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2185), BgL_sz00_2186); 
BgL_old3566z00_2189 = 
(obj_t)(BgL_auxz00_5186); } } } } 
{ /* ./Cfa/cinfo2.scm 27 */
int BgL_auxz00_5190;
BgL_auxz00_5190 = 
(int)(((long)0)); 
BgL_aux3567z00_2190 = 
STRUCT_REF(BgL_sz00_2186, BgL_auxz00_5190); } 
{ /* ./Cfa/cinfo2.scm 27 */
BgL_arithmeticzd2appzd2_bglt BgL_new3568z00_2191;
BgL_new3568z00_2191 = 
((BgL_arithmeticzd2appzd2_bglt)(BgL_old3566z00_2189)); 
{ /* ./Cfa/cinfo2.scm 27 */
long BgL_arg6030z00_2192;
BgL_arg6030z00_2192 = 
BGl_classzd2numzd2zz__objectz00(BGl_arithmeticzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 27 */
BgL_objectz00_bglt BgL_objz00_3237;
BgL_objz00_3237 = 
(BgL_objectz00_bglt)(BgL_new3568z00_2191); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3237, BgL_arg6030z00_2192); } } 
{ /* ./Cfa/cinfo2.scm 27 */
BgL_arithmeticzd2appzd2_bglt BgL_arg6034z00_2193;
{ /* ./Cfa/cinfo2.scm 27 */
obj_t BgL_arg6037z00_2194;obj_t BgL_arg6038z00_2195;
{ /* ./Cfa/cinfo2.scm 27 */
int BgL_auxz00_5197;
BgL_auxz00_5197 = 
(int)(((long)0)); 
BgL_arg6037z00_2194 = 
STRUCT_REF(BgL_aux3567z00_2190, BgL_auxz00_5197); } 
{ /* ./Cfa/cinfo2.scm 27 */
int BgL_auxz00_5200;
BgL_auxz00_5200 = 
(int)(((long)1)); 
BgL_arg6038z00_2195 = 
STRUCT_REF(BgL_aux3567z00_2190, BgL_auxz00_5200); } 
{ /* ./Cfa/cinfo2.scm 27 */
BgL_arithmeticzd2appzd2_bglt BgL_res6166z00_3252;
{ /* ./Cfa/cinfo2.scm 27 */
BgL_approxz00_bglt BgL_approx3542z00_3243;
BgL_approx3542z00_3243 = 
(BgL_approxz00_bglt)(BgL_arg6037z00_2194); 
{ /* ./Cfa/cinfo2.scm 27 */
BgL_arithmeticzd2appzd2_bglt BgL_new3544z00_3245;
BgL_new3544z00_3245 = 
((BgL_arithmeticzd2appzd2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_arithmeticzd2appzd2_bgl)))); 
{ /* ./Cfa/cinfo2.scm 27 */
BgL_arithmeticzd2appzd2_bglt BgL_res6165z00_3251;
{ /* ./Cfa/cinfo2.scm 27 */
BgL_arithmeticzd2appzd2_bglt BgL_new3558z00_3246;
BgL_new3558z00_3246 = BgL_new3544z00_3245; 
{ /* ./Cfa/cinfo2.scm 27 */
BgL_approxz00_bglt BgL_approx3556z00_3249;obj_t BgL_speczd2types3557zd2_3250;
BgL_approx3556z00_3249 = BgL_approx3542z00_3243; 
BgL_speczd2types3557zd2_3250 = BgL_arg6038z00_2195; 
((((BgL_arithmeticzd2appzd2_bglt)CREF(BgL_new3558z00_3246))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3556z00_3249), BUNSPEC); 
((((BgL_arithmeticzd2appzd2_bglt)CREF(BgL_new3558z00_3246))->BgL_speczd2typeszd2) = ((obj_t)BgL_speczd2types3557zd2_3250), BUNSPEC); 
BgL_res6165z00_3251 = BgL_new3558z00_3246; } } BgL_res6165z00_3251; } 
BgL_res6166z00_3252 = BgL_new3544z00_3245; } } 
BgL_arg6034z00_2193 = BgL_res6166z00_3252; } } 
{ /* ./Cfa/cinfo2.scm 27 */
obj_t BgL_auxz00_5209;BgL_objectz00_bglt BgL_auxz00_5207;
BgL_auxz00_5209 = 
(obj_t)(BgL_arg6034z00_2193); 
BgL_auxz00_5207 = 
(BgL_objectz00_bglt)(BgL_new3568z00_2191); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5207, BgL_auxz00_5209); } } 
{ /* ./Cfa/cinfo2.scm 27 */
obj_t BgL_objz00_3253;
BgL_objz00_3253 = 
(obj_t)(BgL_new3568z00_2191); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3253); BUNSPEC; } 
BgL_auxz00_5178 = BgL_new3568z00_2191; } } } 
return 
(obj_t)(BgL_auxz00_5178);} } } 
}



/* object->struct-arithmetic-app4333 */
obj_t BGl_objectzd2ze3structzd2arithmeticzd2app4333z31zzcfa_info2z00(obj_t BgL_envz00_3627, obj_t BgL_obj3563z00_3628)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 27 */
{ 
BgL_arithmeticzd2appzd2_bglt BgL_obj3563z00_2173;
BgL_obj3563z00_2173 = 
(BgL_arithmeticzd2appzd2_bglt)(BgL_obj3563z00_3628); 
{ 

{ /* ./Cfa/cinfo2.scm 27 */
obj_t BgL_res3564z00_2176;
{ /* ./Cfa/cinfo2.scm 27 */
obj_t BgL_nextzd2method4332zd2_2183;
BgL_nextzd2method4332zd2_2183 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3563z00_2173), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_arithmeticzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 27 */
bool_t BgL_test6023z00_2184;
BgL_test6023z00_2184 = 
PROCEDUREP(BgL_nextzd2method4332zd2_2183); 
if(BgL_test6023z00_2184)
{ /* ./Cfa/cinfo2.scm 27 */
BgL_res3564z00_2176 = 
PROCEDURE_ENTRY(BgL_nextzd2method4332zd2_2183)(BgL_nextzd2method4332zd2_2183, 
(obj_t)(BgL_obj3563z00_2173), BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 27 */
BgL_res3564z00_2176 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3563z00_2173)); } } } 
{ /* ./Cfa/cinfo2.scm 27 */
obj_t BgL_aux3565z00_2177;
{ /* ./Cfa/cinfo2.scm 27 */
obj_t BgL_keyz00_3214;int BgL_lenz00_3215;
BgL_keyz00_3214 = 
CNST_TABLE_REF(((long)1)); 
BgL_lenz00_3215 = 
(int)(((long)2)); 
BgL_aux3565z00_2177 = 
make_struct(BgL_keyz00_3214, BgL_lenz00_3215, BUNSPEC); } 
{ /* ./Cfa/cinfo2.scm 27 */
BgL_approxz00_bglt BgL_arg6007z00_2179;
{ 
obj_t BgL_auxz00_5228;
{ /* ./Cfa/cinfo2.scm 27 */
BgL_objectz00_bglt BgL_auxz00_5229;
BgL_auxz00_5229 = 
(BgL_objectz00_bglt)(BgL_obj3563z00_2173); 
BgL_auxz00_5228 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5229); } 
BgL_arg6007z00_2179 = 
(((BgL_arithmeticzd2appzd2_bglt)CREF(BgL_auxz00_5228))->BgL_approxz00); } 
{ /* ./Cfa/cinfo2.scm 27 */
int BgL_kz00_3219;obj_t BgL_oz00_3220;
BgL_kz00_3219 = 
(int)(((long)0)); 
BgL_oz00_3220 = 
(obj_t)(BgL_arg6007z00_2179); 
STRUCT_SET(BgL_aux3565z00_2177, BgL_kz00_3219, BgL_oz00_3220); } } 
{ /* ./Cfa/cinfo2.scm 27 */
obj_t BgL_arg6012z00_2181;
{ 
obj_t BgL_auxz00_5236;
{ /* ./Cfa/cinfo2.scm 27 */
BgL_objectz00_bglt BgL_auxz00_5237;
BgL_auxz00_5237 = 
(BgL_objectz00_bglt)(BgL_obj3563z00_2173); 
BgL_auxz00_5236 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5237); } 
BgL_arg6012z00_2181 = 
(((BgL_arithmeticzd2appzd2_bglt)CREF(BgL_auxz00_5236))->BgL_speczd2typeszd2); } 
{ /* ./Cfa/cinfo2.scm 27 */
int BgL_kz00_3223;
BgL_kz00_3223 = 
(int)(((long)1)); 
STRUCT_SET(BgL_aux3565z00_2177, BgL_kz00_3223, BgL_arg6012z00_2181); } } 
{ /* ./Cfa/cinfo2.scm 27 */
int BgL_kz00_3226;
BgL_kz00_3226 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3564z00_2176, BgL_kz00_3226, BgL_aux3565z00_2177); } 
{ /* ./Cfa/cinfo2.scm 27 */
obj_t BgL_arg6017z00_2182;
BgL_arg6017z00_2182 = 
STRUCT_KEY(BgL_res3564z00_2176); 
STRUCT_KEY_SET(BgL_aux3565z00_2177, BgL_arg6017z00_2182); } 
{ /* ./Cfa/cinfo2.scm 27 */
obj_t BgL_kz00_3233;
BgL_kz00_3233 = 
CNST_TABLE_REF(((long)1)); 
STRUCT_KEY_SET(BgL_res3564z00_2176, BgL_kz00_3233); } 
return BgL_res3564z00_2176;} } } } } 
}



/* struct+object->object-pre-make-procedure-app4331 */
obj_t BGl_structzb2objectzd2ze3objectzd2prezd2makezd2procedurezd2app4331z83zzcfa_info2z00(obj_t BgL_envz00_3629, obj_t BgL_oz00_3630, obj_t BgL_sz00_3631)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 32 */
{ 
BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_oz00_2161;obj_t BgL_sz00_2162;
{ /* ./Cfa/cinfo2.scm 32 */
BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_auxz00_5250;
BgL_oz00_2161 = 
(BgL_prezd2makezd2procedurezd2appzd2_bglt)(BgL_oz00_3630); 
BgL_sz00_2162 = BgL_sz00_3631; 
{ 

{ /* ./Cfa/cinfo2.scm 32 */
obj_t BgL_old3608z00_2165;obj_t BgL_aux3609z00_2166;
{ /* ./Cfa/cinfo2.scm 32 */
obj_t BgL_nextzd2method4330zd2_2171;
BgL_nextzd2method4330zd2_2171 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2161), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_prezd2makezd2procedurezd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 32 */
bool_t BgL_test5999z00_2172;
BgL_test5999z00_2172 = 
PROCEDUREP(BgL_nextzd2method4330zd2_2171); 
if(BgL_test5999z00_2172)
{ /* ./Cfa/cinfo2.scm 32 */
BgL_old3608z00_2165 = 
PROCEDURE_ENTRY(BgL_nextzd2method4330zd2_2171)(BgL_nextzd2method4330zd2_2171, 
(obj_t)(BgL_oz00_2161), BgL_sz00_2162, BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 32 */
{ /* ./Cfa/cinfo2.scm 32 */
BgL_objectz00_bglt BgL_auxz00_5258;
BgL_auxz00_5258 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2161), BgL_sz00_2162); 
BgL_old3608z00_2165 = 
(obj_t)(BgL_auxz00_5258); } } } } 
{ /* ./Cfa/cinfo2.scm 32 */
int BgL_auxz00_5262;
BgL_auxz00_5262 = 
(int)(((long)0)); 
BgL_aux3609z00_2166 = 
STRUCT_REF(BgL_sz00_2162, BgL_auxz00_5262); } 
{ /* ./Cfa/cinfo2.scm 32 */
BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_new3610z00_2167;
BgL_new3610z00_2167 = 
((BgL_prezd2makezd2procedurezd2appzd2_bglt)(BgL_old3608z00_2165)); 
{ /* ./Cfa/cinfo2.scm 32 */
long BgL_arg5986z00_2168;
BgL_arg5986z00_2168 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2makezd2procedurezd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 32 */
BgL_objectz00_bglt BgL_objz00_3201;
BgL_objz00_3201 = 
(BgL_objectz00_bglt)(BgL_new3610z00_2167); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3201, BgL_arg5986z00_2168); } } 
{ /* ./Cfa/cinfo2.scm 32 */
BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_arg5990z00_2169;
{ /* ./Cfa/cinfo2.scm 32 */
obj_t BgL_arg5993z00_2170;
{ /* ./Cfa/cinfo2.scm 32 */
int BgL_auxz00_5269;
BgL_auxz00_5269 = 
(int)(((long)0)); 
BgL_arg5993z00_2170 = 
STRUCT_REF(BgL_aux3609z00_2166, BgL_auxz00_5269); } 
{ /* ./Cfa/cinfo2.scm 32 */
BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_res6163z00_3211;
{ /* ./Cfa/cinfo2.scm 32 */
BgL_variablez00_bglt BgL_owner3588z00_3205;
BgL_owner3588z00_3205 = 
(BgL_variablez00_bglt)(BgL_arg5993z00_2170); 
{ /* ./Cfa/cinfo2.scm 32 */
BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_new3589z00_3206;
BgL_new3589z00_3206 = 
((BgL_prezd2makezd2procedurezd2appzd2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_prezd2makezd2procedurezd2appzd2_bgl)))); 
{ /* ./Cfa/cinfo2.scm 32 */
BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_res6162z00_3210;
{ /* ./Cfa/cinfo2.scm 32 */
BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_new3601z00_3207;
BgL_new3601z00_3207 = BgL_new3589z00_3206; 
{ /* ./Cfa/cinfo2.scm 32 */
BgL_variablez00_bglt BgL_owner3600z00_3209;
BgL_owner3600z00_3209 = BgL_owner3588z00_3205; 
((((BgL_prezd2makezd2procedurezd2appzd2_bglt)CREF(BgL_new3601z00_3207))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3600z00_3209), BUNSPEC); 
BgL_res6162z00_3210 = BgL_new3601z00_3207; } } BgL_res6162z00_3210; } 
BgL_res6163z00_3211 = BgL_new3589z00_3206; } } 
BgL_arg5990z00_2169 = BgL_res6163z00_3211; } } 
{ /* ./Cfa/cinfo2.scm 32 */
obj_t BgL_auxz00_5277;BgL_objectz00_bglt BgL_auxz00_5275;
BgL_auxz00_5277 = 
(obj_t)(BgL_arg5990z00_2169); 
BgL_auxz00_5275 = 
(BgL_objectz00_bglt)(BgL_new3610z00_2167); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5275, BgL_auxz00_5277); } } 
{ /* ./Cfa/cinfo2.scm 32 */
obj_t BgL_objz00_3212;
BgL_objz00_3212 = 
(obj_t)(BgL_new3610z00_2167); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3212); BUNSPEC; } 
BgL_auxz00_5250 = BgL_new3610z00_2167; } } } 
return 
(obj_t)(BgL_auxz00_5250);} } } 
}



/* object->struct-pre-make-procedure-app4329 */
obj_t BGl_objectzd2ze3structzd2prezd2makezd2procedurezd2app4329z31zzcfa_info2z00(obj_t BgL_envz00_3632, obj_t BgL_obj3605z00_3633)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 32 */
{ 
BgL_prezd2makezd2procedurezd2appzd2_bglt BgL_obj3605z00_2151;
BgL_obj3605z00_2151 = 
(BgL_prezd2makezd2procedurezd2appzd2_bglt)(BgL_obj3605z00_3633); 
{ 

{ /* ./Cfa/cinfo2.scm 32 */
obj_t BgL_res3606z00_2154;
{ /* ./Cfa/cinfo2.scm 32 */
obj_t BgL_nextzd2method4328zd2_2159;
BgL_nextzd2method4328zd2_2159 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3605z00_2151), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_prezd2makezd2procedurezd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 32 */
bool_t BgL_test5979z00_2160;
BgL_test5979z00_2160 = 
PROCEDUREP(BgL_nextzd2method4328zd2_2159); 
if(BgL_test5979z00_2160)
{ /* ./Cfa/cinfo2.scm 32 */
BgL_res3606z00_2154 = 
PROCEDURE_ENTRY(BgL_nextzd2method4328zd2_2159)(BgL_nextzd2method4328zd2_2159, 
(obj_t)(BgL_obj3605z00_2151), BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 32 */
BgL_res3606z00_2154 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3605z00_2151)); } } } 
{ /* ./Cfa/cinfo2.scm 32 */
obj_t BgL_aux3607z00_2155;
{ /* ./Cfa/cinfo2.scm 32 */
obj_t BgL_keyz00_3182;int BgL_lenz00_3183;
BgL_keyz00_3182 = 
CNST_TABLE_REF(((long)2)); 
BgL_lenz00_3183 = 
(int)(((long)1)); 
BgL_aux3607z00_2155 = 
make_struct(BgL_keyz00_3182, BgL_lenz00_3183, BUNSPEC); } 
{ /* ./Cfa/cinfo2.scm 32 */
BgL_variablez00_bglt BgL_arg5968z00_2157;
{ 
obj_t BgL_auxz00_5296;
{ /* ./Cfa/cinfo2.scm 32 */
BgL_objectz00_bglt BgL_auxz00_5297;
BgL_auxz00_5297 = 
(BgL_objectz00_bglt)(BgL_obj3605z00_2151); 
BgL_auxz00_5296 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5297); } 
BgL_arg5968z00_2157 = 
(((BgL_prezd2makezd2procedurezd2appzd2_bglt)CREF(BgL_auxz00_5296))->BgL_ownerz00); } 
{ /* ./Cfa/cinfo2.scm 32 */
int BgL_kz00_3187;obj_t BgL_oz00_3188;
BgL_kz00_3187 = 
(int)(((long)0)); 
BgL_oz00_3188 = 
(obj_t)(BgL_arg5968z00_2157); 
STRUCT_SET(BgL_aux3607z00_2155, BgL_kz00_3187, BgL_oz00_3188); } } 
{ /* ./Cfa/cinfo2.scm 32 */
int BgL_kz00_3190;
BgL_kz00_3190 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3606z00_2154, BgL_kz00_3190, BgL_aux3607z00_2155); } 
{ /* ./Cfa/cinfo2.scm 32 */
obj_t BgL_arg5973z00_2158;
BgL_arg5973z00_2158 = 
STRUCT_KEY(BgL_res3606z00_2154); 
STRUCT_KEY_SET(BgL_aux3607z00_2155, BgL_arg5973z00_2158); } 
{ /* ./Cfa/cinfo2.scm 32 */
obj_t BgL_kz00_3197;
BgL_kz00_3197 = 
CNST_TABLE_REF(((long)2)); 
STRUCT_KEY_SET(BgL_res3606z00_2154, BgL_kz00_3197); } 
return BgL_res3606z00_2154;} } } } } 
}



/* struct+object->object-pre-procedure-ref-app4327 */
obj_t BGl_structzb2objectzd2ze3objectzd2prezd2procedurezd2refzd2app4327z83zzcfa_info2z00(obj_t BgL_envz00_3634, obj_t BgL_oz00_3635, obj_t BgL_sz00_3636)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 35 */
{ 
BgL_prezd2procedurezd2refzd2appzd2_bglt BgL_oz00_2140;obj_t BgL_sz00_2141;
{ /* ./Cfa/cinfo2.scm 35 */
BgL_prezd2procedurezd2refzd2appzd2_bglt BgL_auxz00_5311;
BgL_oz00_2140 = 
(BgL_prezd2procedurezd2refzd2appzd2_bglt)(BgL_oz00_3635); 
BgL_sz00_2141 = BgL_sz00_3636; 
{ 

{ /* ./Cfa/cinfo2.scm 35 */
obj_t BgL_old3646z00_2144;
{ /* ./Cfa/cinfo2.scm 35 */
obj_t BgL_nextzd2method4326zd2_2149;
BgL_nextzd2method4326zd2_2149 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2140), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_prezd2procedurezd2refzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 35 */
bool_t BgL_test5960z00_2150;
BgL_test5960z00_2150 = 
PROCEDUREP(BgL_nextzd2method4326zd2_2149); 
if(BgL_test5960z00_2150)
{ /* ./Cfa/cinfo2.scm 35 */
BgL_old3646z00_2144 = 
PROCEDURE_ENTRY(BgL_nextzd2method4326zd2_2149)(BgL_nextzd2method4326zd2_2149, 
(obj_t)(BgL_oz00_2140), BgL_sz00_2141, BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 35 */
{ /* ./Cfa/cinfo2.scm 35 */
BgL_objectz00_bglt BgL_auxz00_5319;
BgL_auxz00_5319 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2140), BgL_sz00_2141); 
BgL_old3646z00_2144 = 
(obj_t)(BgL_auxz00_5319); } } } } 
{ /* ./Cfa/cinfo2.scm 35 */
BgL_prezd2procedurezd2refzd2appzd2_bglt BgL_new3648z00_2146;
BgL_new3648z00_2146 = 
((BgL_prezd2procedurezd2refzd2appzd2_bglt)(BgL_old3646z00_2144)); 
{ /* ./Cfa/cinfo2.scm 35 */
long BgL_arg5950z00_2147;
BgL_arg5950z00_2147 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2procedurezd2refzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 35 */
BgL_objectz00_bglt BgL_objz00_3178;
BgL_objz00_3178 = 
(BgL_objectz00_bglt)(BgL_new3648z00_2146); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3178, BgL_arg5950z00_2147); } } 
{ /* ./Cfa/cinfo2.scm 35 */
BgL_prezd2procedurezd2refzd2appzd2_bglt BgL_arg5954z00_2148;
BgL_arg5954z00_2148 = 
BGl_wideningzd2prezd2procedurezd2refzd2appz00zzcfa_info2z00(); 
{ /* ./Cfa/cinfo2.scm 35 */
obj_t BgL_auxz00_5330;BgL_objectz00_bglt BgL_auxz00_5328;
BgL_auxz00_5330 = 
(obj_t)(BgL_arg5954z00_2148); 
BgL_auxz00_5328 = 
(BgL_objectz00_bglt)(BgL_new3648z00_2146); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5328, BgL_auxz00_5330); } } 
{ /* ./Cfa/cinfo2.scm 35 */
obj_t BgL_objz00_3180;
BgL_objz00_3180 = 
(obj_t)(BgL_new3648z00_2146); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3180); BUNSPEC; } 
BgL_auxz00_5311 = BgL_new3648z00_2146; } } } 
return 
(obj_t)(BgL_auxz00_5311);} } } 
}



/* object->struct-pre-procedure-ref-app4325 */
obj_t BGl_objectzd2ze3structzd2prezd2procedurezd2refzd2app4325z31zzcfa_info2z00(obj_t BgL_envz00_3637, obj_t BgL_obj3643z00_3638)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 35 */
{ 
BgL_prezd2procedurezd2refzd2appzd2_bglt BgL_obj3643z00_2132;
BgL_obj3643z00_2132 = 
(BgL_prezd2procedurezd2refzd2appzd2_bglt)(BgL_obj3643z00_3638); 
{ 

{ /* ./Cfa/cinfo2.scm 35 */
obj_t BgL_res3644z00_2135;
{ /* ./Cfa/cinfo2.scm 35 */
obj_t BgL_nextzd2method4324zd2_2138;
BgL_nextzd2method4324zd2_2138 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3643z00_2132), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_prezd2procedurezd2refzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 35 */
bool_t BgL_test5943z00_2139;
BgL_test5943z00_2139 = 
PROCEDUREP(BgL_nextzd2method4324zd2_2138); 
if(BgL_test5943z00_2139)
{ /* ./Cfa/cinfo2.scm 35 */
BgL_res3644z00_2135 = 
PROCEDURE_ENTRY(BgL_nextzd2method4324zd2_2138)(BgL_nextzd2method4324zd2_2138, 
(obj_t)(BgL_obj3643z00_2132), BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 35 */
BgL_res3644z00_2135 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3643z00_2132)); } } } 
{ /* ./Cfa/cinfo2.scm 35 */
obj_t BgL_aux3645z00_2136;
{ /* ./Cfa/cinfo2.scm 35 */
obj_t BgL_keyz00_3163;int BgL_lenz00_3164;
BgL_keyz00_3163 = 
CNST_TABLE_REF(((long)3)); 
BgL_lenz00_3164 = 
(int)(((long)0)); 
BgL_aux3645z00_2136 = 
make_struct(BgL_keyz00_3163, BgL_lenz00_3164, BUNSPEC); } 
{ /* ./Cfa/cinfo2.scm 35 */
int BgL_kz00_3167;
BgL_kz00_3167 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3644z00_2135, BgL_kz00_3167, BgL_aux3645z00_2136); } 
{ /* ./Cfa/cinfo2.scm 35 */
obj_t BgL_arg5937z00_2137;
BgL_arg5937z00_2137 = 
STRUCT_KEY(BgL_res3644z00_2135); 
STRUCT_KEY_SET(BgL_aux3645z00_2136, BgL_arg5937z00_2137); } 
{ /* ./Cfa/cinfo2.scm 35 */
obj_t BgL_kz00_3174;
BgL_kz00_3174 = 
CNST_TABLE_REF(((long)3)); 
STRUCT_KEY_SET(BgL_res3644z00_2135, BgL_kz00_3174); } 
return BgL_res3644z00_2135;} } } } } 
}



/* struct+object->object-pre-procedure-set!-app4323 */
obj_t BGl_structzb2objectzd2ze3objectzd2prezd2procedurezd2setz12zd2app4323z91zzcfa_info2z00(obj_t BgL_envz00_3639, obj_t BgL_oz00_3640, obj_t BgL_sz00_3641)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 36 */
{ 
BgL_prezd2procedurezd2setz12zd2appzc0_bglt BgL_oz00_2121;obj_t BgL_sz00_2122;
{ /* ./Cfa/cinfo2.scm 36 */
BgL_prezd2procedurezd2setz12zd2appzc0_bglt BgL_auxz00_5356;
BgL_oz00_2121 = 
(BgL_prezd2procedurezd2setz12zd2appzc0_bglt)(BgL_oz00_3640); 
BgL_sz00_2122 = BgL_sz00_3641; 
{ 

{ /* ./Cfa/cinfo2.scm 36 */
obj_t BgL_old3683z00_2125;
{ /* ./Cfa/cinfo2.scm 36 */
obj_t BgL_nextzd2method4322zd2_2130;
BgL_nextzd2method4322zd2_2130 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2121), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_prezd2procedurezd2setz12zd2appzc0zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 36 */
bool_t BgL_test5929z00_2131;
BgL_test5929z00_2131 = 
PROCEDUREP(BgL_nextzd2method4322zd2_2130); 
if(BgL_test5929z00_2131)
{ /* ./Cfa/cinfo2.scm 36 */
BgL_old3683z00_2125 = 
PROCEDURE_ENTRY(BgL_nextzd2method4322zd2_2130)(BgL_nextzd2method4322zd2_2130, 
(obj_t)(BgL_oz00_2121), BgL_sz00_2122, BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 36 */
{ /* ./Cfa/cinfo2.scm 36 */
BgL_objectz00_bglt BgL_auxz00_5364;
BgL_auxz00_5364 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2121), BgL_sz00_2122); 
BgL_old3683z00_2125 = 
(obj_t)(BgL_auxz00_5364); } } } } 
{ /* ./Cfa/cinfo2.scm 36 */
BgL_prezd2procedurezd2setz12zd2appzc0_bglt BgL_new3685z00_2127;
BgL_new3685z00_2127 = 
((BgL_prezd2procedurezd2setz12zd2appzc0_bglt)(BgL_old3683z00_2125)); 
{ /* ./Cfa/cinfo2.scm 36 */
long BgL_arg5919z00_2128;
BgL_arg5919z00_2128 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2procedurezd2setz12zd2appzc0zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 36 */
BgL_objectz00_bglt BgL_objz00_3159;
BgL_objz00_3159 = 
(BgL_objectz00_bglt)(BgL_new3685z00_2127); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3159, BgL_arg5919z00_2128); } } 
{ /* ./Cfa/cinfo2.scm 36 */
BgL_prezd2procedurezd2setz12zd2appzc0_bglt BgL_arg5923z00_2129;
BgL_arg5923z00_2129 = 
BGl_wideningzd2prezd2procedurezd2setz12zd2appz12zzcfa_info2z00(); 
{ /* ./Cfa/cinfo2.scm 36 */
obj_t BgL_auxz00_5375;BgL_objectz00_bglt BgL_auxz00_5373;
BgL_auxz00_5375 = 
(obj_t)(BgL_arg5923z00_2129); 
BgL_auxz00_5373 = 
(BgL_objectz00_bglt)(BgL_new3685z00_2127); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5373, BgL_auxz00_5375); } } 
{ /* ./Cfa/cinfo2.scm 36 */
obj_t BgL_objz00_3161;
BgL_objz00_3161 = 
(obj_t)(BgL_new3685z00_2127); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3161); BUNSPEC; } 
BgL_auxz00_5356 = BgL_new3685z00_2127; } } } 
return 
(obj_t)(BgL_auxz00_5356);} } } 
}



/* object->struct-pre-procedure-set!-app4321 */
obj_t BGl_objectzd2ze3structzd2prezd2procedurezd2setz12zd2app4321z23zzcfa_info2z00(obj_t BgL_envz00_3642, obj_t BgL_obj3680z00_3643)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 36 */
{ 
BgL_prezd2procedurezd2setz12zd2appzc0_bglt BgL_obj3680z00_2113;
BgL_obj3680z00_2113 = 
(BgL_prezd2procedurezd2setz12zd2appzc0_bglt)(BgL_obj3680z00_3643); 
{ 

{ /* ./Cfa/cinfo2.scm 36 */
obj_t BgL_res3681z00_2116;
{ /* ./Cfa/cinfo2.scm 36 */
obj_t BgL_nextzd2method4320zd2_2119;
BgL_nextzd2method4320zd2_2119 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3680z00_2113), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_prezd2procedurezd2setz12zd2appzc0zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 36 */
bool_t BgL_test5912z00_2120;
BgL_test5912z00_2120 = 
PROCEDUREP(BgL_nextzd2method4320zd2_2119); 
if(BgL_test5912z00_2120)
{ /* ./Cfa/cinfo2.scm 36 */
BgL_res3681z00_2116 = 
PROCEDURE_ENTRY(BgL_nextzd2method4320zd2_2119)(BgL_nextzd2method4320zd2_2119, 
(obj_t)(BgL_obj3680z00_2113), BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 36 */
BgL_res3681z00_2116 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3680z00_2113)); } } } 
{ /* ./Cfa/cinfo2.scm 36 */
obj_t BgL_aux3682z00_2117;
{ /* ./Cfa/cinfo2.scm 36 */
obj_t BgL_keyz00_3144;int BgL_lenz00_3145;
BgL_keyz00_3144 = 
CNST_TABLE_REF(((long)4)); 
BgL_lenz00_3145 = 
(int)(((long)0)); 
BgL_aux3682z00_2117 = 
make_struct(BgL_keyz00_3144, BgL_lenz00_3145, BUNSPEC); } 
{ /* ./Cfa/cinfo2.scm 36 */
int BgL_kz00_3148;
BgL_kz00_3148 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3681z00_2116, BgL_kz00_3148, BgL_aux3682z00_2117); } 
{ /* ./Cfa/cinfo2.scm 36 */
obj_t BgL_arg5906z00_2118;
BgL_arg5906z00_2118 = 
STRUCT_KEY(BgL_res3681z00_2116); 
STRUCT_KEY_SET(BgL_aux3682z00_2117, BgL_arg5906z00_2118); } 
{ /* ./Cfa/cinfo2.scm 36 */
obj_t BgL_kz00_3155;
BgL_kz00_3155 = 
CNST_TABLE_REF(((long)4)); 
STRUCT_KEY_SET(BgL_res3681z00_2116, BgL_kz00_3155); } 
return BgL_res3681z00_2116;} } } } } 
}



/* struct+object->object-make-procedure-app4319 */
obj_t BGl_structzb2objectzd2ze3objectzd2makezd2procedurezd2app4319z51zzcfa_info2z00(obj_t BgL_envz00_3644, obj_t BgL_oz00_3645, obj_t BgL_sz00_3646)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 38 */
{ 
BgL_makezd2procedurezd2appz00_bglt BgL_oz00_2094;obj_t BgL_sz00_2095;
{ /* ./Cfa/cinfo2.scm 38 */
BgL_makezd2procedurezd2appz00_bglt BgL_auxz00_5401;
BgL_oz00_2094 = 
(BgL_makezd2procedurezd2appz00_bglt)(BgL_oz00_3645); 
BgL_sz00_2095 = BgL_sz00_3646; 
{ 

{ /* ./Cfa/cinfo2.scm 38 */
obj_t BgL_old3752z00_2098;obj_t BgL_aux3753z00_2099;
{ /* ./Cfa/cinfo2.scm 38 */
obj_t BgL_nextzd2method4318zd2_2111;
BgL_nextzd2method4318zd2_2111 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2094), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_makezd2procedurezd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 38 */
bool_t BgL_test5898z00_2112;
BgL_test5898z00_2112 = 
PROCEDUREP(BgL_nextzd2method4318zd2_2111); 
if(BgL_test5898z00_2112)
{ /* ./Cfa/cinfo2.scm 38 */
BgL_old3752z00_2098 = 
PROCEDURE_ENTRY(BgL_nextzd2method4318zd2_2111)(BgL_nextzd2method4318zd2_2111, 
(obj_t)(BgL_oz00_2094), BgL_sz00_2095, BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 38 */
{ /* ./Cfa/cinfo2.scm 38 */
BgL_objectz00_bglt BgL_auxz00_5409;
BgL_auxz00_5409 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2094), BgL_sz00_2095); 
BgL_old3752z00_2098 = 
(obj_t)(BgL_auxz00_5409); } } } } 
{ /* ./Cfa/cinfo2.scm 38 */
int BgL_auxz00_5413;
BgL_auxz00_5413 = 
(int)(((long)0)); 
BgL_aux3753z00_2099 = 
STRUCT_REF(BgL_sz00_2095, BgL_auxz00_5413); } 
{ /* ./Cfa/cinfo2.scm 38 */
BgL_makezd2procedurezd2appz00_bglt BgL_new3754z00_2100;
BgL_new3754z00_2100 = 
((BgL_makezd2procedurezd2appz00_bglt)(BgL_old3752z00_2098)); 
{ /* ./Cfa/cinfo2.scm 38 */
long BgL_arg5871z00_2101;
BgL_arg5871z00_2101 = 
BGl_classzd2numzd2zz__objectz00(BGl_makezd2procedurezd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 38 */
BgL_objectz00_bglt BgL_objz00_3096;
BgL_objz00_3096 = 
(BgL_objectz00_bglt)(BgL_new3754z00_2100); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3096, BgL_arg5871z00_2101); } } 
{ /* ./Cfa/cinfo2.scm 38 */
BgL_makezd2procedurezd2appz00_bglt BgL_arg5875z00_2102;
{ /* ./Cfa/cinfo2.scm 38 */
obj_t BgL_arg5878z00_2103;obj_t BgL_arg5879z00_2104;obj_t BgL_arg5880z00_2105;obj_t BgL_arg5881z00_2106;obj_t BgL_arg5882z00_2107;obj_t BgL_arg5883z00_2108;obj_t BgL_arg5884z00_2109;obj_t BgL_arg5885z00_2110;
{ /* ./Cfa/cinfo2.scm 38 */
int BgL_auxz00_5420;
BgL_auxz00_5420 = 
(int)(((long)0)); 
BgL_arg5878z00_2103 = 
STRUCT_REF(BgL_aux3753z00_2099, BgL_auxz00_5420); } 
{ /* ./Cfa/cinfo2.scm 38 */
int BgL_auxz00_5423;
BgL_auxz00_5423 = 
(int)(((long)1)); 
BgL_arg5879z00_2104 = 
STRUCT_REF(BgL_aux3753z00_2099, BgL_auxz00_5423); } 
{ /* ./Cfa/cinfo2.scm 38 */
int BgL_auxz00_5426;
BgL_auxz00_5426 = 
(int)(((long)2)); 
BgL_arg5880z00_2105 = 
STRUCT_REF(BgL_aux3753z00_2099, BgL_auxz00_5426); } 
{ /* ./Cfa/cinfo2.scm 38 */
int BgL_auxz00_5429;
BgL_auxz00_5429 = 
(int)(((long)3)); 
BgL_arg5881z00_2106 = 
STRUCT_REF(BgL_aux3753z00_2099, BgL_auxz00_5429); } 
{ /* ./Cfa/cinfo2.scm 38 */
int BgL_auxz00_5432;
BgL_auxz00_5432 = 
(int)(((long)4)); 
BgL_arg5882z00_2107 = 
STRUCT_REF(BgL_aux3753z00_2099, BgL_auxz00_5432); } 
{ /* ./Cfa/cinfo2.scm 38 */
int BgL_auxz00_5435;
BgL_auxz00_5435 = 
(int)(((long)5)); 
BgL_arg5883z00_2108 = 
STRUCT_REF(BgL_aux3753z00_2099, BgL_auxz00_5435); } 
{ /* ./Cfa/cinfo2.scm 38 */
int BgL_auxz00_5438;
BgL_auxz00_5438 = 
(int)(((long)6)); 
BgL_arg5884z00_2109 = 
STRUCT_REF(BgL_aux3753z00_2099, BgL_auxz00_5438); } 
{ /* ./Cfa/cinfo2.scm 38 */
int BgL_auxz00_5441;
BgL_auxz00_5441 = 
(int)(((long)7)); 
BgL_arg5885z00_2110 = 
STRUCT_REF(BgL_aux3753z00_2099, BgL_auxz00_5441); } 
{ /* ./Cfa/cinfo2.scm 38 */
BgL_makezd2procedurezd2appz00_bglt BgL_res6158z00_3141;
{ /* ./Cfa/cinfo2.scm 38 */
BgL_approxz00_bglt BgL_approx3704z00_3114;long BgL_lostzd2stamp3706zd2_3116;bool_t BgL_xzd2tzf33707z21_3117;bool_t BgL_x3708z00_3118;bool_t BgL_t3709z00_3119;BgL_variablez00_bglt BgL_owner3710z00_3120;
BgL_approx3704z00_3114 = 
(BgL_approxz00_bglt)(BgL_arg5878z00_2103); 
BgL_lostzd2stamp3706zd2_3116 = 
(long)CINT(BgL_arg5880z00_2105); 
BgL_xzd2tzf33707z21_3117 = 
CBOOL(BgL_arg5881z00_2106); 
BgL_x3708z00_3118 = 
CBOOL(BgL_arg5882z00_2107); 
BgL_t3709z00_3119 = 
CBOOL(BgL_arg5883z00_2108); 
BgL_owner3710z00_3120 = 
(BgL_variablez00_bglt)(BgL_arg5884z00_2109); 
{ /* ./Cfa/cinfo2.scm 38 */
BgL_makezd2procedurezd2appz00_bglt BgL_new3712z00_3122;
BgL_new3712z00_3122 = 
((BgL_makezd2procedurezd2appz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_makezd2procedurezd2appz00_bgl)))); 
{ /* ./Cfa/cinfo2.scm 38 */
BgL_makezd2procedurezd2appz00_bglt BgL_res6157z00_3140;
{ /* ./Cfa/cinfo2.scm 38 */
BgL_makezd2procedurezd2appz00_bglt BgL_new3738z00_3123;
BgL_new3738z00_3123 = BgL_new3712z00_3122; 
{ /* ./Cfa/cinfo2.scm 38 */
BgL_approxz00_bglt BgL_approx3730z00_3132;obj_t BgL_valueszd2approx3731zd2_3133;long BgL_lostzd2stamp3732zd2_3134;bool_t BgL_xzd2tzf33733z21_3135;bool_t BgL_x3734z00_3136;bool_t BgL_t3735z00_3137;BgL_variablez00_bglt BgL_owner3736z00_3138;obj_t BgL_stackzd2stamp3737zd2_3139;
BgL_approx3730z00_3132 = BgL_approx3704z00_3114; 
BgL_valueszd2approx3731zd2_3133 = BgL_arg5879z00_2104; 
BgL_lostzd2stamp3732zd2_3134 = BgL_lostzd2stamp3706zd2_3116; 
BgL_xzd2tzf33733z21_3135 = BgL_xzd2tzf33707z21_3117; 
BgL_x3734z00_3136 = BgL_x3708z00_3118; 
BgL_t3735z00_3137 = BgL_t3709z00_3119; 
BgL_owner3736z00_3138 = BgL_owner3710z00_3120; 
BgL_stackzd2stamp3737zd2_3139 = BgL_arg5885z00_2110; 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_3123))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3730z00_3132), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_3123))->BgL_valueszd2approxzd2) = ((obj_t)BgL_valueszd2approx3731zd2_3133), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_3123))->BgL_lostzd2stampzd2) = ((long)BgL_lostzd2stamp3732zd2_3134), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_3123))->BgL_xzd2tzf3z21) = ((bool_t)BgL_xzd2tzf33733z21_3135), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_3123))->BgL_xz00) = ((bool_t)BgL_x3734z00_3136), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_3123))->BgL_tz00) = ((bool_t)BgL_t3735z00_3137), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_3123))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3736z00_3138), BUNSPEC); 
((((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_new3738z00_3123))->BgL_stackzd2stampzd2) = ((obj_t)BgL_stackzd2stamp3737zd2_3139), BUNSPEC); 
BgL_res6157z00_3140 = BgL_new3738z00_3123; } } BgL_res6157z00_3140; } 
BgL_res6158z00_3141 = BgL_new3712z00_3122; } } 
BgL_arg5875z00_2102 = BgL_res6158z00_3141; } } 
{ /* ./Cfa/cinfo2.scm 38 */
obj_t BgL_auxz00_5461;BgL_objectz00_bglt BgL_auxz00_5459;
BgL_auxz00_5461 = 
(obj_t)(BgL_arg5875z00_2102); 
BgL_auxz00_5459 = 
(BgL_objectz00_bglt)(BgL_new3754z00_2100); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5459, BgL_auxz00_5461); } } 
{ /* ./Cfa/cinfo2.scm 38 */
obj_t BgL_objz00_3142;
BgL_objz00_3142 = 
(obj_t)(BgL_new3754z00_2100); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3142); BUNSPEC; } 
BgL_auxz00_5401 = BgL_new3754z00_2100; } } } 
return 
(obj_t)(BgL_auxz00_5401);} } } 
}



/* object->struct-make-procedure-app4317 */
obj_t BGl_objectzd2ze3structzd2makezd2procedurezd2app4317ze3zzcfa_info2z00(obj_t BgL_envz00_3647, obj_t BgL_obj3749z00_3648)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 38 */
{ 
BgL_makezd2procedurezd2appz00_bglt BgL_obj3749z00_2070;
BgL_obj3749z00_2070 = 
(BgL_makezd2procedurezd2appz00_bglt)(BgL_obj3749z00_3648); 
{ 

{ /* ./Cfa/cinfo2.scm 38 */
obj_t BgL_res3750z00_2073;
{ /* ./Cfa/cinfo2.scm 38 */
obj_t BgL_nextzd2method4316zd2_2092;
BgL_nextzd2method4316zd2_2092 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3749z00_2070), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_makezd2procedurezd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 38 */
bool_t BgL_test5864z00_2093;
BgL_test5864z00_2093 = 
PROCEDUREP(BgL_nextzd2method4316zd2_2092); 
if(BgL_test5864z00_2093)
{ /* ./Cfa/cinfo2.scm 38 */
BgL_res3750z00_2073 = 
PROCEDURE_ENTRY(BgL_nextzd2method4316zd2_2092)(BgL_nextzd2method4316zd2_2092, 
(obj_t)(BgL_obj3749z00_2070), BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 38 */
BgL_res3750z00_2073 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3749z00_2070)); } } } 
{ /* ./Cfa/cinfo2.scm 38 */
obj_t BgL_aux3751z00_2074;
{ /* ./Cfa/cinfo2.scm 38 */
obj_t BgL_keyz00_3049;int BgL_lenz00_3050;
BgL_keyz00_3049 = 
CNST_TABLE_REF(((long)5)); 
BgL_lenz00_3050 = 
(int)(((long)8)); 
BgL_aux3751z00_2074 = 
make_struct(BgL_keyz00_3049, BgL_lenz00_3050, BUNSPEC); } 
{ /* ./Cfa/cinfo2.scm 38 */
BgL_approxz00_bglt BgL_arg5818z00_2076;
{ 
obj_t BgL_auxz00_5480;
{ /* ./Cfa/cinfo2.scm 38 */
BgL_objectz00_bglt BgL_auxz00_5481;
BgL_auxz00_5481 = 
(BgL_objectz00_bglt)(BgL_obj3749z00_2070); 
BgL_auxz00_5480 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5481); } 
BgL_arg5818z00_2076 = 
(((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_auxz00_5480))->BgL_approxz00); } 
{ /* ./Cfa/cinfo2.scm 38 */
int BgL_kz00_3054;obj_t BgL_oz00_3055;
BgL_kz00_3054 = 
(int)(((long)0)); 
BgL_oz00_3055 = 
(obj_t)(BgL_arg5818z00_2076); 
STRUCT_SET(BgL_aux3751z00_2074, BgL_kz00_3054, BgL_oz00_3055); } } 
{ /* ./Cfa/cinfo2.scm 38 */
obj_t BgL_arg5823z00_2078;
{ 
obj_t BgL_auxz00_5488;
{ /* ./Cfa/cinfo2.scm 38 */
BgL_objectz00_bglt BgL_auxz00_5489;
BgL_auxz00_5489 = 
(BgL_objectz00_bglt)(BgL_obj3749z00_2070); 
BgL_auxz00_5488 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5489); } 
BgL_arg5823z00_2078 = 
(((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_auxz00_5488))->BgL_valueszd2approxzd2); } 
{ /* ./Cfa/cinfo2.scm 38 */
int BgL_kz00_3058;
BgL_kz00_3058 = 
(int)(((long)1)); 
STRUCT_SET(BgL_aux3751z00_2074, BgL_kz00_3058, BgL_arg5823z00_2078); } } 
{ /* ./Cfa/cinfo2.scm 38 */
long BgL_arg5828z00_2080;
{ 
obj_t BgL_auxz00_5495;
{ /* ./Cfa/cinfo2.scm 38 */
BgL_objectz00_bglt BgL_auxz00_5496;
BgL_auxz00_5496 = 
(BgL_objectz00_bglt)(BgL_obj3749z00_2070); 
BgL_auxz00_5495 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5496); } 
BgL_arg5828z00_2080 = 
(((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_auxz00_5495))->BgL_lostzd2stampzd2); } 
{ /* ./Cfa/cinfo2.scm 38 */
int BgL_kz00_3062;obj_t BgL_oz00_3063;
BgL_kz00_3062 = 
(int)(((long)2)); 
BgL_oz00_3063 = 
BINT(BgL_arg5828z00_2080); 
STRUCT_SET(BgL_aux3751z00_2074, BgL_kz00_3062, BgL_oz00_3063); } } 
{ /* ./Cfa/cinfo2.scm 38 */
bool_t BgL_arg5833z00_2082;
{ 
obj_t BgL_auxz00_5503;
{ /* ./Cfa/cinfo2.scm 38 */
BgL_objectz00_bglt BgL_auxz00_5504;
BgL_auxz00_5504 = 
(BgL_objectz00_bglt)(BgL_obj3749z00_2070); 
BgL_auxz00_5503 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5504); } 
BgL_arg5833z00_2082 = 
(((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_auxz00_5503))->BgL_xzd2tzf3z21); } 
{ /* ./Cfa/cinfo2.scm 38 */
int BgL_kz00_3066;obj_t BgL_oz00_3067;
BgL_kz00_3066 = 
(int)(((long)3)); 
BgL_oz00_3067 = 
BBOOL(BgL_arg5833z00_2082); 
STRUCT_SET(BgL_aux3751z00_2074, BgL_kz00_3066, BgL_oz00_3067); } } 
{ /* ./Cfa/cinfo2.scm 38 */
bool_t BgL_arg5838z00_2084;
{ 
obj_t BgL_auxz00_5511;
{ /* ./Cfa/cinfo2.scm 38 */
BgL_objectz00_bglt BgL_auxz00_5512;
BgL_auxz00_5512 = 
(BgL_objectz00_bglt)(BgL_obj3749z00_2070); 
BgL_auxz00_5511 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5512); } 
BgL_arg5838z00_2084 = 
(((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_auxz00_5511))->BgL_xz00); } 
{ /* ./Cfa/cinfo2.scm 38 */
int BgL_kz00_3070;obj_t BgL_oz00_3071;
BgL_kz00_3070 = 
(int)(((long)4)); 
BgL_oz00_3071 = 
BBOOL(BgL_arg5838z00_2084); 
STRUCT_SET(BgL_aux3751z00_2074, BgL_kz00_3070, BgL_oz00_3071); } } 
{ /* ./Cfa/cinfo2.scm 38 */
bool_t BgL_arg5843z00_2086;
{ 
obj_t BgL_auxz00_5519;
{ /* ./Cfa/cinfo2.scm 38 */
BgL_objectz00_bglt BgL_auxz00_5520;
BgL_auxz00_5520 = 
(BgL_objectz00_bglt)(BgL_obj3749z00_2070); 
BgL_auxz00_5519 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5520); } 
BgL_arg5843z00_2086 = 
(((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_auxz00_5519))->BgL_tz00); } 
{ /* ./Cfa/cinfo2.scm 38 */
int BgL_kz00_3074;obj_t BgL_oz00_3075;
BgL_kz00_3074 = 
(int)(((long)5)); 
BgL_oz00_3075 = 
BBOOL(BgL_arg5843z00_2086); 
STRUCT_SET(BgL_aux3751z00_2074, BgL_kz00_3074, BgL_oz00_3075); } } 
{ /* ./Cfa/cinfo2.scm 38 */
BgL_variablez00_bglt BgL_arg5848z00_2088;
{ 
obj_t BgL_auxz00_5527;
{ /* ./Cfa/cinfo2.scm 38 */
BgL_objectz00_bglt BgL_auxz00_5528;
BgL_auxz00_5528 = 
(BgL_objectz00_bglt)(BgL_obj3749z00_2070); 
BgL_auxz00_5527 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5528); } 
BgL_arg5848z00_2088 = 
(((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_auxz00_5527))->BgL_ownerz00); } 
{ /* ./Cfa/cinfo2.scm 38 */
int BgL_kz00_3078;obj_t BgL_oz00_3079;
BgL_kz00_3078 = 
(int)(((long)6)); 
BgL_oz00_3079 = 
(obj_t)(BgL_arg5848z00_2088); 
STRUCT_SET(BgL_aux3751z00_2074, BgL_kz00_3078, BgL_oz00_3079); } } 
{ /* ./Cfa/cinfo2.scm 38 */
obj_t BgL_arg5853z00_2090;
{ 
obj_t BgL_auxz00_5535;
{ /* ./Cfa/cinfo2.scm 38 */
BgL_objectz00_bglt BgL_auxz00_5536;
BgL_auxz00_5536 = 
(BgL_objectz00_bglt)(BgL_obj3749z00_2070); 
BgL_auxz00_5535 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5536); } 
BgL_arg5853z00_2090 = 
(((BgL_makezd2procedurezd2appz00_bglt)CREF(BgL_auxz00_5535))->BgL_stackzd2stampzd2); } 
{ /* ./Cfa/cinfo2.scm 38 */
int BgL_kz00_3082;
BgL_kz00_3082 = 
(int)(((long)7)); 
STRUCT_SET(BgL_aux3751z00_2074, BgL_kz00_3082, BgL_arg5853z00_2090); } } 
{ /* ./Cfa/cinfo2.scm 38 */
int BgL_kz00_3085;
BgL_kz00_3085 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3750z00_2073, BgL_kz00_3085, BgL_aux3751z00_2074); } 
{ /* ./Cfa/cinfo2.scm 38 */
obj_t BgL_arg5858z00_2091;
BgL_arg5858z00_2091 = 
STRUCT_KEY(BgL_res3750z00_2073); 
STRUCT_KEY_SET(BgL_aux3751z00_2074, BgL_arg5858z00_2091); } 
{ /* ./Cfa/cinfo2.scm 38 */
obj_t BgL_kz00_3092;
BgL_kz00_3092 = 
CNST_TABLE_REF(((long)5)); 
STRUCT_KEY_SET(BgL_res3750z00_2073, BgL_kz00_3092); } 
return BgL_res3750z00_2073;} } } } } 
}



/* struct+object->object-procedure-ref-app4315 */
obj_t BGl_structzb2objectzd2ze3objectzd2procedurezd2refzd2app4315z51zzcfa_info2z00(obj_t BgL_envz00_3649, obj_t BgL_oz00_3650, obj_t BgL_sz00_3651)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 55 */
{ 
BgL_procedurezd2refzd2appz00_bglt BgL_oz00_2058;obj_t BgL_sz00_2059;
{ /* ./Cfa/cinfo2.scm 55 */
BgL_procedurezd2refzd2appz00_bglt BgL_auxz00_5549;
BgL_oz00_2058 = 
(BgL_procedurezd2refzd2appz00_bglt)(BgL_oz00_3650); 
BgL_sz00_2059 = BgL_sz00_3651; 
{ 

{ /* ./Cfa/cinfo2.scm 55 */
obj_t BgL_old3815z00_2062;obj_t BgL_aux3816z00_2063;
{ /* ./Cfa/cinfo2.scm 55 */
obj_t BgL_nextzd2method4314zd2_2068;
BgL_nextzd2method4314zd2_2068 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2058), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_procedurezd2refzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 55 */
bool_t BgL_test5810z00_2069;
BgL_test5810z00_2069 = 
PROCEDUREP(BgL_nextzd2method4314zd2_2068); 
if(BgL_test5810z00_2069)
{ /* ./Cfa/cinfo2.scm 55 */
BgL_old3815z00_2062 = 
PROCEDURE_ENTRY(BgL_nextzd2method4314zd2_2068)(BgL_nextzd2method4314zd2_2068, 
(obj_t)(BgL_oz00_2058), BgL_sz00_2059, BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 55 */
{ /* ./Cfa/cinfo2.scm 55 */
BgL_objectz00_bglt BgL_auxz00_5557;
BgL_auxz00_5557 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2058), BgL_sz00_2059); 
BgL_old3815z00_2062 = 
(obj_t)(BgL_auxz00_5557); } } } } 
{ /* ./Cfa/cinfo2.scm 55 */
int BgL_auxz00_5561;
BgL_auxz00_5561 = 
(int)(((long)0)); 
BgL_aux3816z00_2063 = 
STRUCT_REF(BgL_sz00_2059, BgL_auxz00_5561); } 
{ /* ./Cfa/cinfo2.scm 55 */
BgL_procedurezd2refzd2appz00_bglt BgL_new3817z00_2064;
BgL_new3817z00_2064 = 
((BgL_procedurezd2refzd2appz00_bglt)(BgL_old3815z00_2062)); 
{ /* ./Cfa/cinfo2.scm 55 */
long BgL_arg5797z00_2065;
BgL_arg5797z00_2065 = 
BGl_classzd2numzd2zz__objectz00(BGl_procedurezd2refzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 55 */
BgL_objectz00_bglt BgL_objz00_3036;
BgL_objz00_3036 = 
(BgL_objectz00_bglt)(BgL_new3817z00_2064); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3036, BgL_arg5797z00_2065); } } 
{ /* ./Cfa/cinfo2.scm 55 */
BgL_procedurezd2refzd2appz00_bglt BgL_arg5801z00_2066;
{ /* ./Cfa/cinfo2.scm 55 */
obj_t BgL_arg5804z00_2067;
{ /* ./Cfa/cinfo2.scm 55 */
int BgL_auxz00_5568;
BgL_auxz00_5568 = 
(int)(((long)0)); 
BgL_arg5804z00_2067 = 
STRUCT_REF(BgL_aux3816z00_2063, BgL_auxz00_5568); } 
{ /* ./Cfa/cinfo2.scm 55 */
BgL_procedurezd2refzd2appz00_bglt BgL_res6155z00_3046;
{ /* ./Cfa/cinfo2.scm 55 */
BgL_approxz00_bglt BgL_approx3795z00_3040;
BgL_approx3795z00_3040 = 
(BgL_approxz00_bglt)(BgL_arg5804z00_2067); 
{ /* ./Cfa/cinfo2.scm 55 */
BgL_procedurezd2refzd2appz00_bglt BgL_new3796z00_3041;
BgL_new3796z00_3041 = 
((BgL_procedurezd2refzd2appz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_procedurezd2refzd2appz00_bgl)))); 
{ /* ./Cfa/cinfo2.scm 55 */
BgL_procedurezd2refzd2appz00_bglt BgL_res6154z00_3045;
{ /* ./Cfa/cinfo2.scm 55 */
BgL_procedurezd2refzd2appz00_bglt BgL_new3808z00_3042;
BgL_new3808z00_3042 = BgL_new3796z00_3041; 
{ /* ./Cfa/cinfo2.scm 55 */
BgL_approxz00_bglt BgL_approx3807z00_3044;
BgL_approx3807z00_3044 = BgL_approx3795z00_3040; 
((((BgL_procedurezd2refzd2appz00_bglt)CREF(BgL_new3808z00_3042))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3807z00_3044), BUNSPEC); 
BgL_res6154z00_3045 = BgL_new3808z00_3042; } } BgL_res6154z00_3045; } 
BgL_res6155z00_3046 = BgL_new3796z00_3041; } } 
BgL_arg5801z00_2066 = BgL_res6155z00_3046; } } 
{ /* ./Cfa/cinfo2.scm 55 */
obj_t BgL_auxz00_5576;BgL_objectz00_bglt BgL_auxz00_5574;
BgL_auxz00_5576 = 
(obj_t)(BgL_arg5801z00_2066); 
BgL_auxz00_5574 = 
(BgL_objectz00_bglt)(BgL_new3817z00_2064); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5574, BgL_auxz00_5576); } } 
{ /* ./Cfa/cinfo2.scm 55 */
obj_t BgL_objz00_3047;
BgL_objz00_3047 = 
(obj_t)(BgL_new3817z00_2064); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3047); BUNSPEC; } 
BgL_auxz00_5549 = BgL_new3817z00_2064; } } } 
return 
(obj_t)(BgL_auxz00_5549);} } } 
}



/* object->struct-procedure-ref-app4313 */
obj_t BGl_objectzd2ze3structzd2procedurezd2refzd2app4313ze3zzcfa_info2z00(obj_t BgL_envz00_3652, obj_t BgL_obj3812z00_3653)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 55 */
{ 
BgL_procedurezd2refzd2appz00_bglt BgL_obj3812z00_2048;
BgL_obj3812z00_2048 = 
(BgL_procedurezd2refzd2appz00_bglt)(BgL_obj3812z00_3653); 
{ 

{ /* ./Cfa/cinfo2.scm 55 */
obj_t BgL_res3813z00_2051;
{ /* ./Cfa/cinfo2.scm 55 */
obj_t BgL_nextzd2method4312zd2_2056;
BgL_nextzd2method4312zd2_2056 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3812z00_2048), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_procedurezd2refzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 55 */
bool_t BgL_test5790z00_2057;
BgL_test5790z00_2057 = 
PROCEDUREP(BgL_nextzd2method4312zd2_2056); 
if(BgL_test5790z00_2057)
{ /* ./Cfa/cinfo2.scm 55 */
BgL_res3813z00_2051 = 
PROCEDURE_ENTRY(BgL_nextzd2method4312zd2_2056)(BgL_nextzd2method4312zd2_2056, 
(obj_t)(BgL_obj3812z00_2048), BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 55 */
BgL_res3813z00_2051 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3812z00_2048)); } } } 
{ /* ./Cfa/cinfo2.scm 55 */
obj_t BgL_aux3814z00_2052;
{ /* ./Cfa/cinfo2.scm 55 */
obj_t BgL_keyz00_3017;int BgL_lenz00_3018;
BgL_keyz00_3017 = 
CNST_TABLE_REF(((long)6)); 
BgL_lenz00_3018 = 
(int)(((long)1)); 
BgL_aux3814z00_2052 = 
make_struct(BgL_keyz00_3017, BgL_lenz00_3018, BUNSPEC); } 
{ /* ./Cfa/cinfo2.scm 55 */
BgL_approxz00_bglt BgL_arg5779z00_2054;
{ 
obj_t BgL_auxz00_5595;
{ /* ./Cfa/cinfo2.scm 55 */
BgL_objectz00_bglt BgL_auxz00_5596;
BgL_auxz00_5596 = 
(BgL_objectz00_bglt)(BgL_obj3812z00_2048); 
BgL_auxz00_5595 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5596); } 
BgL_arg5779z00_2054 = 
(((BgL_procedurezd2refzd2appz00_bglt)CREF(BgL_auxz00_5595))->BgL_approxz00); } 
{ /* ./Cfa/cinfo2.scm 55 */
int BgL_kz00_3022;obj_t BgL_oz00_3023;
BgL_kz00_3022 = 
(int)(((long)0)); 
BgL_oz00_3023 = 
(obj_t)(BgL_arg5779z00_2054); 
STRUCT_SET(BgL_aux3814z00_2052, BgL_kz00_3022, BgL_oz00_3023); } } 
{ /* ./Cfa/cinfo2.scm 55 */
int BgL_kz00_3025;
BgL_kz00_3025 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3813z00_2051, BgL_kz00_3025, BgL_aux3814z00_2052); } 
{ /* ./Cfa/cinfo2.scm 55 */
obj_t BgL_arg5784z00_2055;
BgL_arg5784z00_2055 = 
STRUCT_KEY(BgL_res3813z00_2051); 
STRUCT_KEY_SET(BgL_aux3814z00_2052, BgL_arg5784z00_2055); } 
{ /* ./Cfa/cinfo2.scm 55 */
obj_t BgL_kz00_3032;
BgL_kz00_3032 = 
CNST_TABLE_REF(((long)6)); 
STRUCT_KEY_SET(BgL_res3813z00_2051, BgL_kz00_3032); } 
return BgL_res3813z00_2051;} } } } } 
}



/* struct+object->object-procedure-set!-app4310 */
obj_t BGl_structzb2objectzd2ze3objectzd2procedurezd2setz12zd2app4310z43zzcfa_info2z00(obj_t BgL_envz00_3654, obj_t BgL_oz00_3655, obj_t BgL_sz00_3656)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 56 */
{ 
BgL_procedurezd2setz12zd2appz12_bglt BgL_oz00_2036;obj_t BgL_sz00_2037;
{ /* ./Cfa/cinfo2.scm 56 */
BgL_procedurezd2setz12zd2appz12_bglt BgL_auxz00_5610;
BgL_oz00_2036 = 
(BgL_procedurezd2setz12zd2appz12_bglt)(BgL_oz00_3655); 
BgL_sz00_2037 = BgL_sz00_3656; 
{ 

{ /* ./Cfa/cinfo2.scm 56 */
obj_t BgL_old3856z00_2040;obj_t BgL_aux3857z00_2041;
{ /* ./Cfa/cinfo2.scm 56 */
obj_t BgL_nextzd2method4309zd2_2046;
BgL_nextzd2method4309zd2_2046 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2036), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_procedurezd2setz12zd2appz12zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 56 */
bool_t BgL_test5771z00_2047;
BgL_test5771z00_2047 = 
PROCEDUREP(BgL_nextzd2method4309zd2_2046); 
if(BgL_test5771z00_2047)
{ /* ./Cfa/cinfo2.scm 56 */
BgL_old3856z00_2040 = 
PROCEDURE_ENTRY(BgL_nextzd2method4309zd2_2046)(BgL_nextzd2method4309zd2_2046, 
(obj_t)(BgL_oz00_2036), BgL_sz00_2037, BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 56 */
{ /* ./Cfa/cinfo2.scm 56 */
BgL_objectz00_bglt BgL_auxz00_5618;
BgL_auxz00_5618 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2036), BgL_sz00_2037); 
BgL_old3856z00_2040 = 
(obj_t)(BgL_auxz00_5618); } } } } 
{ /* ./Cfa/cinfo2.scm 56 */
int BgL_auxz00_5622;
BgL_auxz00_5622 = 
(int)(((long)0)); 
BgL_aux3857z00_2041 = 
STRUCT_REF(BgL_sz00_2037, BgL_auxz00_5622); } 
{ /* ./Cfa/cinfo2.scm 56 */
BgL_procedurezd2setz12zd2appz12_bglt BgL_new3858z00_2042;
BgL_new3858z00_2042 = 
((BgL_procedurezd2setz12zd2appz12_bglt)(BgL_old3856z00_2040)); 
{ /* ./Cfa/cinfo2.scm 56 */
long BgL_arg5758z00_2043;
BgL_arg5758z00_2043 = 
BGl_classzd2numzd2zz__objectz00(BGl_procedurezd2setz12zd2appz12zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 56 */
BgL_objectz00_bglt BgL_objz00_3004;
BgL_objz00_3004 = 
(BgL_objectz00_bglt)(BgL_new3858z00_2042); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3004, BgL_arg5758z00_2043); } } 
{ /* ./Cfa/cinfo2.scm 56 */
BgL_procedurezd2setz12zd2appz12_bglt BgL_arg5762z00_2044;
{ /* ./Cfa/cinfo2.scm 56 */
obj_t BgL_arg5765z00_2045;
{ /* ./Cfa/cinfo2.scm 56 */
int BgL_auxz00_5629;
BgL_auxz00_5629 = 
(int)(((long)0)); 
BgL_arg5765z00_2045 = 
STRUCT_REF(BgL_aux3857z00_2041, BgL_auxz00_5629); } 
{ /* ./Cfa/cinfo2.scm 56 */
BgL_procedurezd2setz12zd2appz12_bglt BgL_res6152z00_3014;
{ /* ./Cfa/cinfo2.scm 56 */
BgL_approxz00_bglt BgL_approx3836z00_3008;
BgL_approx3836z00_3008 = 
(BgL_approxz00_bglt)(BgL_arg5765z00_2045); 
{ /* ./Cfa/cinfo2.scm 56 */
BgL_procedurezd2setz12zd2appz12_bglt BgL_new3837z00_3009;
BgL_new3837z00_3009 = 
((BgL_procedurezd2setz12zd2appz12_bglt)BREF( GC_MALLOC (sizeof(struct BgL_procedurezd2setz12zd2appz12_bgl)))); 
{ /* ./Cfa/cinfo2.scm 56 */
BgL_procedurezd2setz12zd2appz12_bglt BgL_res6151z00_3013;
{ /* ./Cfa/cinfo2.scm 56 */
BgL_procedurezd2setz12zd2appz12_bglt BgL_new3849z00_3010;
BgL_new3849z00_3010 = BgL_new3837z00_3009; 
{ /* ./Cfa/cinfo2.scm 56 */
BgL_approxz00_bglt BgL_approx3848z00_3012;
BgL_approx3848z00_3012 = BgL_approx3836z00_3008; 
((((BgL_procedurezd2setz12zd2appz12_bglt)CREF(BgL_new3849z00_3010))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3848z00_3012), BUNSPEC); 
BgL_res6151z00_3013 = BgL_new3849z00_3010; } } BgL_res6151z00_3013; } 
BgL_res6152z00_3014 = BgL_new3837z00_3009; } } 
BgL_arg5762z00_2044 = BgL_res6152z00_3014; } } 
{ /* ./Cfa/cinfo2.scm 56 */
obj_t BgL_auxz00_5637;BgL_objectz00_bglt BgL_auxz00_5635;
BgL_auxz00_5637 = 
(obj_t)(BgL_arg5762z00_2044); 
BgL_auxz00_5635 = 
(BgL_objectz00_bglt)(BgL_new3858z00_2042); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5635, BgL_auxz00_5637); } } 
{ /* ./Cfa/cinfo2.scm 56 */
obj_t BgL_objz00_3015;
BgL_objz00_3015 = 
(obj_t)(BgL_new3858z00_2042); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3015); BUNSPEC; } 
BgL_auxz00_5610 = BgL_new3858z00_2042; } } } 
return 
(obj_t)(BgL_auxz00_5610);} } } 
}



/* object->struct-procedure-set!-app4308 */
obj_t BGl_objectzd2ze3structzd2procedurezd2setz12zd2app4308zf1zzcfa_info2z00(obj_t BgL_envz00_3657, obj_t BgL_obj3853z00_3658)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 56 */
{ 
BgL_procedurezd2setz12zd2appz12_bglt BgL_obj3853z00_2026;
BgL_obj3853z00_2026 = 
(BgL_procedurezd2setz12zd2appz12_bglt)(BgL_obj3853z00_3658); 
{ 

{ /* ./Cfa/cinfo2.scm 56 */
obj_t BgL_res3854z00_2029;
{ /* ./Cfa/cinfo2.scm 56 */
obj_t BgL_nextzd2method4307zd2_2034;
BgL_nextzd2method4307zd2_2034 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3853z00_2026), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_procedurezd2setz12zd2appz12zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 56 */
bool_t BgL_test5751z00_2035;
BgL_test5751z00_2035 = 
PROCEDUREP(BgL_nextzd2method4307zd2_2034); 
if(BgL_test5751z00_2035)
{ /* ./Cfa/cinfo2.scm 56 */
BgL_res3854z00_2029 = 
PROCEDURE_ENTRY(BgL_nextzd2method4307zd2_2034)(BgL_nextzd2method4307zd2_2034, 
(obj_t)(BgL_obj3853z00_2026), BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 56 */
BgL_res3854z00_2029 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3853z00_2026)); } } } 
{ /* ./Cfa/cinfo2.scm 56 */
obj_t BgL_aux3855z00_2030;
{ /* ./Cfa/cinfo2.scm 56 */
obj_t BgL_keyz00_2985;int BgL_lenz00_2986;
BgL_keyz00_2985 = 
CNST_TABLE_REF(((long)7)); 
BgL_lenz00_2986 = 
(int)(((long)1)); 
BgL_aux3855z00_2030 = 
make_struct(BgL_keyz00_2985, BgL_lenz00_2986, BUNSPEC); } 
{ /* ./Cfa/cinfo2.scm 56 */
BgL_approxz00_bglt BgL_arg5740z00_2032;
{ 
obj_t BgL_auxz00_5656;
{ /* ./Cfa/cinfo2.scm 56 */
BgL_objectz00_bglt BgL_auxz00_5657;
BgL_auxz00_5657 = 
(BgL_objectz00_bglt)(BgL_obj3853z00_2026); 
BgL_auxz00_5656 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5657); } 
BgL_arg5740z00_2032 = 
(((BgL_procedurezd2setz12zd2appz12_bglt)CREF(BgL_auxz00_5656))->BgL_approxz00); } 
{ /* ./Cfa/cinfo2.scm 56 */
int BgL_kz00_2990;obj_t BgL_oz00_2991;
BgL_kz00_2990 = 
(int)(((long)0)); 
BgL_oz00_2991 = 
(obj_t)(BgL_arg5740z00_2032); 
STRUCT_SET(BgL_aux3855z00_2030, BgL_kz00_2990, BgL_oz00_2991); } } 
{ /* ./Cfa/cinfo2.scm 56 */
int BgL_kz00_2993;
BgL_kz00_2993 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3854z00_2029, BgL_kz00_2993, BgL_aux3855z00_2030); } 
{ /* ./Cfa/cinfo2.scm 56 */
obj_t BgL_arg5745z00_2033;
BgL_arg5745z00_2033 = 
STRUCT_KEY(BgL_res3854z00_2029); 
STRUCT_KEY_SET(BgL_aux3855z00_2030, BgL_arg5745z00_2033); } 
{ /* ./Cfa/cinfo2.scm 56 */
obj_t BgL_kz00_3000;
BgL_kz00_3000 = 
CNST_TABLE_REF(((long)7)); 
STRUCT_KEY_SET(BgL_res3854z00_2029, BgL_kz00_3000); } 
return BgL_res3854z00_2029;} } } } } 
}



/* struct+object->object-pre-make-vector-app4306 */
obj_t BGl_structzb2objectzd2ze3objectzd2prezd2makezd2vectorzd2app4306z83zzcfa_info2z00(obj_t BgL_envz00_3659, obj_t BgL_oz00_3660, obj_t BgL_sz00_3661)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 59 */
{ 
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_oz00_2014;obj_t BgL_sz00_2015;
{ /* ./Cfa/cinfo2.scm 59 */
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_auxz00_5671;
BgL_oz00_2014 = 
(BgL_prezd2makezd2vectorzd2appzd2_bglt)(BgL_oz00_3660); 
BgL_sz00_2015 = BgL_sz00_3661; 
{ 

{ /* ./Cfa/cinfo2.scm 59 */
obj_t BgL_old3899z00_2018;obj_t BgL_aux3900z00_2019;
{ /* ./Cfa/cinfo2.scm 59 */
obj_t BgL_nextzd2method4305zd2_2024;
BgL_nextzd2method4305zd2_2024 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2014), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_prezd2makezd2vectorzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 59 */
bool_t BgL_test5732z00_2025;
BgL_test5732z00_2025 = 
PROCEDUREP(BgL_nextzd2method4305zd2_2024); 
if(BgL_test5732z00_2025)
{ /* ./Cfa/cinfo2.scm 59 */
BgL_old3899z00_2018 = 
PROCEDURE_ENTRY(BgL_nextzd2method4305zd2_2024)(BgL_nextzd2method4305zd2_2024, 
(obj_t)(BgL_oz00_2014), BgL_sz00_2015, BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 59 */
{ /* ./Cfa/cinfo2.scm 59 */
BgL_objectz00_bglt BgL_auxz00_5679;
BgL_auxz00_5679 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_2014), BgL_sz00_2015); 
BgL_old3899z00_2018 = 
(obj_t)(BgL_auxz00_5679); } } } } 
{ /* ./Cfa/cinfo2.scm 59 */
int BgL_auxz00_5683;
BgL_auxz00_5683 = 
(int)(((long)0)); 
BgL_aux3900z00_2019 = 
STRUCT_REF(BgL_sz00_2015, BgL_auxz00_5683); } 
{ /* ./Cfa/cinfo2.scm 59 */
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_new3901z00_2020;
BgL_new3901z00_2020 = 
((BgL_prezd2makezd2vectorzd2appzd2_bglt)(BgL_old3899z00_2018)); 
{ /* ./Cfa/cinfo2.scm 59 */
long BgL_arg5719z00_2021;
BgL_arg5719z00_2021 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2makezd2vectorzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 59 */
BgL_objectz00_bglt BgL_objz00_2972;
BgL_objz00_2972 = 
(BgL_objectz00_bglt)(BgL_new3901z00_2020); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2972, BgL_arg5719z00_2021); } } 
{ /* ./Cfa/cinfo2.scm 59 */
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_arg5723z00_2022;
{ /* ./Cfa/cinfo2.scm 59 */
obj_t BgL_arg5726z00_2023;
{ /* ./Cfa/cinfo2.scm 59 */
int BgL_auxz00_5690;
BgL_auxz00_5690 = 
(int)(((long)0)); 
BgL_arg5726z00_2023 = 
STRUCT_REF(BgL_aux3900z00_2019, BgL_auxz00_5690); } 
{ /* ./Cfa/cinfo2.scm 59 */
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_res6149z00_2982;
{ /* ./Cfa/cinfo2.scm 59 */
BgL_variablez00_bglt BgL_owner3879z00_2976;
BgL_owner3879z00_2976 = 
(BgL_variablez00_bglt)(BgL_arg5726z00_2023); 
{ /* ./Cfa/cinfo2.scm 59 */
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_new3880z00_2977;
BgL_new3880z00_2977 = 
((BgL_prezd2makezd2vectorzd2appzd2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_prezd2makezd2vectorzd2appzd2_bgl)))); 
{ /* ./Cfa/cinfo2.scm 59 */
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_res6148z00_2981;
{ /* ./Cfa/cinfo2.scm 59 */
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_new3892z00_2978;
BgL_new3892z00_2978 = BgL_new3880z00_2977; 
{ /* ./Cfa/cinfo2.scm 59 */
BgL_variablez00_bglt BgL_owner3891z00_2980;
BgL_owner3891z00_2980 = BgL_owner3879z00_2976; 
((((BgL_prezd2makezd2vectorzd2appzd2_bglt)CREF(BgL_new3892z00_2978))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3891z00_2980), BUNSPEC); 
BgL_res6148z00_2981 = BgL_new3892z00_2978; } } BgL_res6148z00_2981; } 
BgL_res6149z00_2982 = BgL_new3880z00_2977; } } 
BgL_arg5723z00_2022 = BgL_res6149z00_2982; } } 
{ /* ./Cfa/cinfo2.scm 59 */
obj_t BgL_auxz00_5698;BgL_objectz00_bglt BgL_auxz00_5696;
BgL_auxz00_5698 = 
(obj_t)(BgL_arg5723z00_2022); 
BgL_auxz00_5696 = 
(BgL_objectz00_bglt)(BgL_new3901z00_2020); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5696, BgL_auxz00_5698); } } 
{ /* ./Cfa/cinfo2.scm 59 */
obj_t BgL_objz00_2983;
BgL_objz00_2983 = 
(obj_t)(BgL_new3901z00_2020); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2983); BUNSPEC; } 
BgL_auxz00_5671 = BgL_new3901z00_2020; } } } 
return 
(obj_t)(BgL_auxz00_5671);} } } 
}



/* object->struct-pre-make-vector-app4304 */
obj_t BGl_objectzd2ze3structzd2prezd2makezd2vectorzd2app4304z31zzcfa_info2z00(obj_t BgL_envz00_3662, obj_t BgL_obj3896z00_3663)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 59 */
{ 
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_obj3896z00_2004;
BgL_obj3896z00_2004 = 
(BgL_prezd2makezd2vectorzd2appzd2_bglt)(BgL_obj3896z00_3663); 
{ 

{ /* ./Cfa/cinfo2.scm 59 */
obj_t BgL_res3897z00_2007;
{ /* ./Cfa/cinfo2.scm 59 */
obj_t BgL_nextzd2method4303zd2_2012;
BgL_nextzd2method4303zd2_2012 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3896z00_2004), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_prezd2makezd2vectorzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 59 */
bool_t BgL_test5712z00_2013;
BgL_test5712z00_2013 = 
PROCEDUREP(BgL_nextzd2method4303zd2_2012); 
if(BgL_test5712z00_2013)
{ /* ./Cfa/cinfo2.scm 59 */
BgL_res3897z00_2007 = 
PROCEDURE_ENTRY(BgL_nextzd2method4303zd2_2012)(BgL_nextzd2method4303zd2_2012, 
(obj_t)(BgL_obj3896z00_2004), BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 59 */
BgL_res3897z00_2007 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3896z00_2004)); } } } 
{ /* ./Cfa/cinfo2.scm 59 */
obj_t BgL_aux3898z00_2008;
{ /* ./Cfa/cinfo2.scm 59 */
obj_t BgL_keyz00_2953;int BgL_lenz00_2954;
BgL_keyz00_2953 = 
CNST_TABLE_REF(((long)8)); 
BgL_lenz00_2954 = 
(int)(((long)1)); 
BgL_aux3898z00_2008 = 
make_struct(BgL_keyz00_2953, BgL_lenz00_2954, BUNSPEC); } 
{ /* ./Cfa/cinfo2.scm 59 */
BgL_variablez00_bglt BgL_arg5701z00_2010;
{ 
obj_t BgL_auxz00_5717;
{ /* ./Cfa/cinfo2.scm 59 */
BgL_objectz00_bglt BgL_auxz00_5718;
BgL_auxz00_5718 = 
(BgL_objectz00_bglt)(BgL_obj3896z00_2004); 
BgL_auxz00_5717 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5718); } 
BgL_arg5701z00_2010 = 
(((BgL_prezd2makezd2vectorzd2appzd2_bglt)CREF(BgL_auxz00_5717))->BgL_ownerz00); } 
{ /* ./Cfa/cinfo2.scm 59 */
int BgL_kz00_2958;obj_t BgL_oz00_2959;
BgL_kz00_2958 = 
(int)(((long)0)); 
BgL_oz00_2959 = 
(obj_t)(BgL_arg5701z00_2010); 
STRUCT_SET(BgL_aux3898z00_2008, BgL_kz00_2958, BgL_oz00_2959); } } 
{ /* ./Cfa/cinfo2.scm 59 */
int BgL_kz00_2961;
BgL_kz00_2961 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3897z00_2007, BgL_kz00_2961, BgL_aux3898z00_2008); } 
{ /* ./Cfa/cinfo2.scm 59 */
obj_t BgL_arg5706z00_2011;
BgL_arg5706z00_2011 = 
STRUCT_KEY(BgL_res3897z00_2007); 
STRUCT_KEY_SET(BgL_aux3898z00_2008, BgL_arg5706z00_2011); } 
{ /* ./Cfa/cinfo2.scm 59 */
obj_t BgL_kz00_2968;
BgL_kz00_2968 = 
CNST_TABLE_REF(((long)8)); 
STRUCT_KEY_SET(BgL_res3897z00_2007, BgL_kz00_2968); } 
return BgL_res3897z00_2007;} } } } } 
}



/* struct+object->object-make-vector-app4302 */
obj_t BGl_structzb2objectzd2ze3objectzd2makezd2vectorzd2app4302z51zzcfa_info2z00(obj_t BgL_envz00_3664, obj_t BgL_oz00_3665, obj_t BgL_sz00_3666)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 63 */
{ 
BgL_makezd2vectorzd2appz00_bglt BgL_oz00_1987;obj_t BgL_sz00_1988;
{ /* ./Cfa/cinfo2.scm 63 */
BgL_makezd2vectorzd2appz00_bglt BgL_auxz00_5732;
BgL_oz00_1987 = 
(BgL_makezd2vectorzd2appz00_bglt)(BgL_oz00_3665); 
BgL_sz00_1988 = BgL_sz00_3666; 
{ 

{ /* ./Cfa/cinfo2.scm 63 */
obj_t BgL_old3961z00_1991;obj_t BgL_aux3962z00_1992;
{ /* ./Cfa/cinfo2.scm 63 */
obj_t BgL_nextzd2method4301zd2_2002;
BgL_nextzd2method4301zd2_2002 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1987), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_makezd2vectorzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 63 */
bool_t BgL_test5693z00_2003;
BgL_test5693z00_2003 = 
PROCEDUREP(BgL_nextzd2method4301zd2_2002); 
if(BgL_test5693z00_2003)
{ /* ./Cfa/cinfo2.scm 63 */
BgL_old3961z00_1991 = 
PROCEDURE_ENTRY(BgL_nextzd2method4301zd2_2002)(BgL_nextzd2method4301zd2_2002, 
(obj_t)(BgL_oz00_1987), BgL_sz00_1988, BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 63 */
{ /* ./Cfa/cinfo2.scm 63 */
BgL_objectz00_bglt BgL_auxz00_5740;
BgL_auxz00_5740 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1987), BgL_sz00_1988); 
BgL_old3961z00_1991 = 
(obj_t)(BgL_auxz00_5740); } } } } 
{ /* ./Cfa/cinfo2.scm 63 */
int BgL_auxz00_5744;
BgL_auxz00_5744 = 
(int)(((long)0)); 
BgL_aux3962z00_1992 = 
STRUCT_REF(BgL_sz00_1988, BgL_auxz00_5744); } 
{ /* ./Cfa/cinfo2.scm 63 */
BgL_makezd2vectorzd2appz00_bglt BgL_new3963z00_1993;
BgL_new3963z00_1993 = 
((BgL_makezd2vectorzd2appz00_bglt)(BgL_old3961z00_1991)); 
{ /* ./Cfa/cinfo2.scm 63 */
long BgL_arg5670z00_1994;
BgL_arg5670z00_1994 = 
BGl_classzd2numzd2zz__objectz00(BGl_makezd2vectorzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 63 */
BgL_objectz00_bglt BgL_objz00_2915;
BgL_objz00_2915 = 
(BgL_objectz00_bglt)(BgL_new3963z00_1993); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2915, BgL_arg5670z00_1994); } } 
{ /* ./Cfa/cinfo2.scm 63 */
BgL_makezd2vectorzd2appz00_bglt BgL_arg5674z00_1995;
{ /* ./Cfa/cinfo2.scm 63 */
obj_t BgL_arg5677z00_1996;obj_t BgL_arg5678z00_1997;obj_t BgL_arg5679z00_1998;obj_t BgL_arg5680z00_1999;obj_t BgL_arg5681z00_2000;obj_t BgL_arg5682z00_2001;
{ /* ./Cfa/cinfo2.scm 63 */
int BgL_auxz00_5751;
BgL_auxz00_5751 = 
(int)(((long)0)); 
BgL_arg5677z00_1996 = 
STRUCT_REF(BgL_aux3962z00_1992, BgL_auxz00_5751); } 
{ /* ./Cfa/cinfo2.scm 63 */
int BgL_auxz00_5754;
BgL_auxz00_5754 = 
(int)(((long)1)); 
BgL_arg5678z00_1997 = 
STRUCT_REF(BgL_aux3962z00_1992, BgL_auxz00_5754); } 
{ /* ./Cfa/cinfo2.scm 63 */
int BgL_auxz00_5757;
BgL_auxz00_5757 = 
(int)(((long)2)); 
BgL_arg5679z00_1998 = 
STRUCT_REF(BgL_aux3962z00_1992, BgL_auxz00_5757); } 
{ /* ./Cfa/cinfo2.scm 63 */
int BgL_auxz00_5760;
BgL_auxz00_5760 = 
(int)(((long)3)); 
BgL_arg5680z00_1999 = 
STRUCT_REF(BgL_aux3962z00_1992, BgL_auxz00_5760); } 
{ /* ./Cfa/cinfo2.scm 63 */
int BgL_auxz00_5763;
BgL_auxz00_5763 = 
(int)(((long)4)); 
BgL_arg5681z00_2000 = 
STRUCT_REF(BgL_aux3962z00_1992, BgL_auxz00_5763); } 
{ /* ./Cfa/cinfo2.scm 63 */
int BgL_auxz00_5766;
BgL_auxz00_5766 = 
(int)(((long)5)); 
BgL_arg5682z00_2001 = 
STRUCT_REF(BgL_aux3962z00_1992, BgL_auxz00_5766); } 
{ /* ./Cfa/cinfo2.scm 63 */
BgL_makezd2vectorzd2appz00_bglt BgL_res6146z00_2950;
{ /* ./Cfa/cinfo2.scm 63 */
BgL_approxz00_bglt BgL_approx3921z00_2929;BgL_approxz00_bglt BgL_valuezd2approx3922zd2_2930;long BgL_lostzd2stamp3923zd2_2931;BgL_variablez00_bglt BgL_owner3924z00_2932;bool_t BgL_seenzf33926zf3_2934;
BgL_approx3921z00_2929 = 
(BgL_approxz00_bglt)(BgL_arg5677z00_1996); 
BgL_valuezd2approx3922zd2_2930 = 
(BgL_approxz00_bglt)(BgL_arg5678z00_1997); 
BgL_lostzd2stamp3923zd2_2931 = 
(long)CINT(BgL_arg5679z00_1998); 
BgL_owner3924z00_2932 = 
(BgL_variablez00_bglt)(BgL_arg5680z00_1999); 
BgL_seenzf33926zf3_2934 = 
CBOOL(BgL_arg5682z00_2001); 
{ /* ./Cfa/cinfo2.scm 63 */
BgL_makezd2vectorzd2appz00_bglt BgL_new3927z00_2935;
BgL_new3927z00_2935 = 
((BgL_makezd2vectorzd2appz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_makezd2vectorzd2appz00_bgl)))); 
{ /* ./Cfa/cinfo2.scm 63 */
BgL_makezd2vectorzd2appz00_bglt BgL_res6145z00_2949;
{ /* ./Cfa/cinfo2.scm 63 */
BgL_makezd2vectorzd2appz00_bglt BgL_new3949z00_2936;
BgL_new3949z00_2936 = BgL_new3927z00_2935; 
{ /* ./Cfa/cinfo2.scm 63 */
BgL_approxz00_bglt BgL_approx3943z00_2943;BgL_approxz00_bglt BgL_valuezd2approx3944zd2_2944;long BgL_lostzd2stamp3945zd2_2945;BgL_variablez00_bglt BgL_owner3946z00_2946;obj_t BgL_stackzd2stamp3947zd2_2947;bool_t BgL_seenzf33948zf3_2948;
BgL_approx3943z00_2943 = BgL_approx3921z00_2929; 
BgL_valuezd2approx3944zd2_2944 = BgL_valuezd2approx3922zd2_2930; 
BgL_lostzd2stamp3945zd2_2945 = BgL_lostzd2stamp3923zd2_2931; 
BgL_owner3946z00_2946 = BgL_owner3924z00_2932; 
BgL_stackzd2stamp3947zd2_2947 = BgL_arg5681z00_2000; 
BgL_seenzf33948zf3_2948 = BgL_seenzf33926zf3_2934; 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_2936))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx3943z00_2943), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_2936))->BgL_valuezd2approxzd2) = ((BgL_approxz00_bglt)BgL_valuezd2approx3944zd2_2944), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_2936))->BgL_lostzd2stampzd2) = ((long)BgL_lostzd2stamp3945zd2_2945), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_2936))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner3946z00_2946), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_2936))->BgL_stackzd2stampzd2) = ((obj_t)BgL_stackzd2stamp3947zd2_2947), BUNSPEC); 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_new3949z00_2936))->BgL_seenzf3zf3) = ((bool_t)BgL_seenzf33948zf3_2948), BUNSPEC); 
BgL_res6145z00_2949 = BgL_new3949z00_2936; } } BgL_res6145z00_2949; } 
BgL_res6146z00_2950 = BgL_new3927z00_2935; } } 
BgL_arg5674z00_1995 = BgL_res6146z00_2950; } } 
{ /* ./Cfa/cinfo2.scm 63 */
obj_t BgL_auxz00_5783;BgL_objectz00_bglt BgL_auxz00_5781;
BgL_auxz00_5783 = 
(obj_t)(BgL_arg5674z00_1995); 
BgL_auxz00_5781 = 
(BgL_objectz00_bglt)(BgL_new3963z00_1993); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5781, BgL_auxz00_5783); } } 
{ /* ./Cfa/cinfo2.scm 63 */
obj_t BgL_objz00_2951;
BgL_objz00_2951 = 
(obj_t)(BgL_new3963z00_1993); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2951); BUNSPEC; } 
BgL_auxz00_5732 = BgL_new3963z00_1993; } } } 
return 
(obj_t)(BgL_auxz00_5732);} } } 
}



/* object->struct-make-vector-app4300 */
obj_t BGl_objectzd2ze3structzd2makezd2vectorzd2app4300ze3zzcfa_info2z00(obj_t BgL_envz00_3667, obj_t BgL_obj3958z00_3668)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 63 */
{ 
BgL_makezd2vectorzd2appz00_bglt BgL_obj3958z00_1967;
BgL_obj3958z00_1967 = 
(BgL_makezd2vectorzd2appz00_bglt)(BgL_obj3958z00_3668); 
{ 

{ /* ./Cfa/cinfo2.scm 63 */
obj_t BgL_res3959z00_1970;
{ /* ./Cfa/cinfo2.scm 63 */
obj_t BgL_nextzd2method4299zd2_1985;
BgL_nextzd2method4299zd2_1985 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3958z00_1967), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_makezd2vectorzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 63 */
bool_t BgL_test5663z00_1986;
BgL_test5663z00_1986 = 
PROCEDUREP(BgL_nextzd2method4299zd2_1985); 
if(BgL_test5663z00_1986)
{ /* ./Cfa/cinfo2.scm 63 */
BgL_res3959z00_1970 = 
PROCEDURE_ENTRY(BgL_nextzd2method4299zd2_1985)(BgL_nextzd2method4299zd2_1985, 
(obj_t)(BgL_obj3958z00_1967), BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 63 */
BgL_res3959z00_1970 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3958z00_1967)); } } } 
{ /* ./Cfa/cinfo2.scm 63 */
obj_t BgL_aux3960z00_1971;
{ /* ./Cfa/cinfo2.scm 63 */
obj_t BgL_keyz00_2876;int BgL_lenz00_2877;
BgL_keyz00_2876 = 
CNST_TABLE_REF(((long)9)); 
BgL_lenz00_2877 = 
(int)(((long)6)); 
BgL_aux3960z00_1971 = 
make_struct(BgL_keyz00_2876, BgL_lenz00_2877, BUNSPEC); } 
{ /* ./Cfa/cinfo2.scm 63 */
BgL_approxz00_bglt BgL_arg5627z00_1973;
{ 
obj_t BgL_auxz00_5802;
{ /* ./Cfa/cinfo2.scm 63 */
BgL_objectz00_bglt BgL_auxz00_5803;
BgL_auxz00_5803 = 
(BgL_objectz00_bglt)(BgL_obj3958z00_1967); 
BgL_auxz00_5802 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5803); } 
BgL_arg5627z00_1973 = 
(((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_auxz00_5802))->BgL_approxz00); } 
{ /* ./Cfa/cinfo2.scm 63 */
int BgL_kz00_2881;obj_t BgL_oz00_2882;
BgL_kz00_2881 = 
(int)(((long)0)); 
BgL_oz00_2882 = 
(obj_t)(BgL_arg5627z00_1973); 
STRUCT_SET(BgL_aux3960z00_1971, BgL_kz00_2881, BgL_oz00_2882); } } 
{ /* ./Cfa/cinfo2.scm 63 */
BgL_approxz00_bglt BgL_arg5632z00_1975;
{ 
obj_t BgL_auxz00_5810;
{ /* ./Cfa/cinfo2.scm 63 */
BgL_objectz00_bglt BgL_auxz00_5811;
BgL_auxz00_5811 = 
(BgL_objectz00_bglt)(BgL_obj3958z00_1967); 
BgL_auxz00_5810 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5811); } 
BgL_arg5632z00_1975 = 
(((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_auxz00_5810))->BgL_valuezd2approxzd2); } 
{ /* ./Cfa/cinfo2.scm 63 */
int BgL_kz00_2885;obj_t BgL_oz00_2886;
BgL_kz00_2885 = 
(int)(((long)1)); 
BgL_oz00_2886 = 
(obj_t)(BgL_arg5632z00_1975); 
STRUCT_SET(BgL_aux3960z00_1971, BgL_kz00_2885, BgL_oz00_2886); } } 
{ /* ./Cfa/cinfo2.scm 63 */
long BgL_arg5637z00_1977;
{ 
obj_t BgL_auxz00_5818;
{ /* ./Cfa/cinfo2.scm 63 */
BgL_objectz00_bglt BgL_auxz00_5819;
BgL_auxz00_5819 = 
(BgL_objectz00_bglt)(BgL_obj3958z00_1967); 
BgL_auxz00_5818 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5819); } 
BgL_arg5637z00_1977 = 
(((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_auxz00_5818))->BgL_lostzd2stampzd2); } 
{ /* ./Cfa/cinfo2.scm 63 */
int BgL_kz00_2889;obj_t BgL_oz00_2890;
BgL_kz00_2889 = 
(int)(((long)2)); 
BgL_oz00_2890 = 
BINT(BgL_arg5637z00_1977); 
STRUCT_SET(BgL_aux3960z00_1971, BgL_kz00_2889, BgL_oz00_2890); } } 
{ /* ./Cfa/cinfo2.scm 63 */
BgL_variablez00_bglt BgL_arg5642z00_1979;
{ 
obj_t BgL_auxz00_5826;
{ /* ./Cfa/cinfo2.scm 63 */
BgL_objectz00_bglt BgL_auxz00_5827;
BgL_auxz00_5827 = 
(BgL_objectz00_bglt)(BgL_obj3958z00_1967); 
BgL_auxz00_5826 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5827); } 
BgL_arg5642z00_1979 = 
(((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_auxz00_5826))->BgL_ownerz00); } 
{ /* ./Cfa/cinfo2.scm 63 */
int BgL_kz00_2893;obj_t BgL_oz00_2894;
BgL_kz00_2893 = 
(int)(((long)3)); 
BgL_oz00_2894 = 
(obj_t)(BgL_arg5642z00_1979); 
STRUCT_SET(BgL_aux3960z00_1971, BgL_kz00_2893, BgL_oz00_2894); } } 
{ /* ./Cfa/cinfo2.scm 63 */
obj_t BgL_arg5647z00_1981;
{ 
obj_t BgL_auxz00_5834;
{ /* ./Cfa/cinfo2.scm 63 */
BgL_objectz00_bglt BgL_auxz00_5835;
BgL_auxz00_5835 = 
(BgL_objectz00_bglt)(BgL_obj3958z00_1967); 
BgL_auxz00_5834 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5835); } 
BgL_arg5647z00_1981 = 
(((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_auxz00_5834))->BgL_stackzd2stampzd2); } 
{ /* ./Cfa/cinfo2.scm 63 */
int BgL_kz00_2897;
BgL_kz00_2897 = 
(int)(((long)4)); 
STRUCT_SET(BgL_aux3960z00_1971, BgL_kz00_2897, BgL_arg5647z00_1981); } } 
{ /* ./Cfa/cinfo2.scm 63 */
bool_t BgL_arg5652z00_1983;
{ 
obj_t BgL_auxz00_5841;
{ /* ./Cfa/cinfo2.scm 63 */
BgL_objectz00_bglt BgL_auxz00_5842;
BgL_auxz00_5842 = 
(BgL_objectz00_bglt)(BgL_obj3958z00_1967); 
BgL_auxz00_5841 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5842); } 
BgL_arg5652z00_1983 = 
(((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_auxz00_5841))->BgL_seenzf3zf3); } 
{ /* ./Cfa/cinfo2.scm 63 */
int BgL_kz00_2901;obj_t BgL_oz00_2902;
BgL_kz00_2901 = 
(int)(((long)5)); 
BgL_oz00_2902 = 
BBOOL(BgL_arg5652z00_1983); 
STRUCT_SET(BgL_aux3960z00_1971, BgL_kz00_2901, BgL_oz00_2902); } } 
{ /* ./Cfa/cinfo2.scm 63 */
int BgL_kz00_2904;
BgL_kz00_2904 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3959z00_1970, BgL_kz00_2904, BgL_aux3960z00_1971); } 
{ /* ./Cfa/cinfo2.scm 63 */
obj_t BgL_arg5657z00_1984;
BgL_arg5657z00_1984 = 
STRUCT_KEY(BgL_res3959z00_1970); 
STRUCT_KEY_SET(BgL_aux3960z00_1971, BgL_arg5657z00_1984); } 
{ /* ./Cfa/cinfo2.scm 63 */
obj_t BgL_kz00_2911;
BgL_kz00_2911 = 
CNST_TABLE_REF(((long)9)); 
STRUCT_KEY_SET(BgL_res3959z00_1970, BgL_kz00_2911); } 
return BgL_res3959z00_1970;} } } } } 
}



/* struct+object->object-pre-make-struct-app4298 */
obj_t BGl_structzb2objectzd2ze3objectzd2prezd2makezd2structzd2app4298z83zzcfa_info2z00(obj_t BgL_envz00_3669, obj_t BgL_oz00_3670, obj_t BgL_sz00_3671)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 86 */
{ 
BgL_prezd2makezd2structzd2appzd2_bglt BgL_oz00_1955;obj_t BgL_sz00_1956;
{ /* ./Cfa/cinfo2.scm 86 */
BgL_prezd2makezd2structzd2appzd2_bglt BgL_auxz00_5856;
BgL_oz00_1955 = 
(BgL_prezd2makezd2structzd2appzd2_bglt)(BgL_oz00_3670); 
BgL_sz00_1956 = BgL_sz00_3671; 
{ 

{ /* ./Cfa/cinfo2.scm 86 */
obj_t BgL_old4015z00_1959;obj_t BgL_aux4016z00_1960;
{ /* ./Cfa/cinfo2.scm 86 */
obj_t BgL_nextzd2method4297zd2_1965;
BgL_nextzd2method4297zd2_1965 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1955), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_prezd2makezd2structzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 86 */
bool_t BgL_test5619z00_1966;
BgL_test5619z00_1966 = 
PROCEDUREP(BgL_nextzd2method4297zd2_1965); 
if(BgL_test5619z00_1966)
{ /* ./Cfa/cinfo2.scm 86 */
BgL_old4015z00_1959 = 
PROCEDURE_ENTRY(BgL_nextzd2method4297zd2_1965)(BgL_nextzd2method4297zd2_1965, 
(obj_t)(BgL_oz00_1955), BgL_sz00_1956, BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 86 */
{ /* ./Cfa/cinfo2.scm 86 */
BgL_objectz00_bglt BgL_auxz00_5864;
BgL_auxz00_5864 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1955), BgL_sz00_1956); 
BgL_old4015z00_1959 = 
(obj_t)(BgL_auxz00_5864); } } } } 
{ /* ./Cfa/cinfo2.scm 86 */
int BgL_auxz00_5868;
BgL_auxz00_5868 = 
(int)(((long)0)); 
BgL_aux4016z00_1960 = 
STRUCT_REF(BgL_sz00_1956, BgL_auxz00_5868); } 
{ /* ./Cfa/cinfo2.scm 86 */
BgL_prezd2makezd2structzd2appzd2_bglt BgL_new4017z00_1961;
BgL_new4017z00_1961 = 
((BgL_prezd2makezd2structzd2appzd2_bglt)(BgL_old4015z00_1959)); 
{ /* ./Cfa/cinfo2.scm 86 */
long BgL_arg5606z00_1962;
BgL_arg5606z00_1962 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2makezd2structzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 86 */
BgL_objectz00_bglt BgL_objz00_2863;
BgL_objz00_2863 = 
(BgL_objectz00_bglt)(BgL_new4017z00_1961); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2863, BgL_arg5606z00_1962); } } 
{ /* ./Cfa/cinfo2.scm 86 */
BgL_prezd2makezd2structzd2appzd2_bglt BgL_arg5610z00_1963;
{ /* ./Cfa/cinfo2.scm 86 */
obj_t BgL_arg5613z00_1964;
{ /* ./Cfa/cinfo2.scm 86 */
int BgL_auxz00_5875;
BgL_auxz00_5875 = 
(int)(((long)0)); 
BgL_arg5613z00_1964 = 
STRUCT_REF(BgL_aux4016z00_1960, BgL_auxz00_5875); } 
{ /* ./Cfa/cinfo2.scm 86 */
BgL_prezd2makezd2structzd2appzd2_bglt BgL_res6143z00_2873;
{ /* ./Cfa/cinfo2.scm 86 */
BgL_variablez00_bglt BgL_owner3995z00_2867;
BgL_owner3995z00_2867 = 
(BgL_variablez00_bglt)(BgL_arg5613z00_1964); 
{ /* ./Cfa/cinfo2.scm 86 */
BgL_prezd2makezd2structzd2appzd2_bglt BgL_new3996z00_2868;
BgL_new3996z00_2868 = 
((BgL_prezd2makezd2structzd2appzd2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_prezd2makezd2structzd2appzd2_bgl)))); 
{ /* ./Cfa/cinfo2.scm 86 */
BgL_prezd2makezd2structzd2appzd2_bglt BgL_res6142z00_2872;
{ /* ./Cfa/cinfo2.scm 86 */
BgL_prezd2makezd2structzd2appzd2_bglt BgL_new4008z00_2869;
BgL_new4008z00_2869 = BgL_new3996z00_2868; 
{ /* ./Cfa/cinfo2.scm 86 */
BgL_variablez00_bglt BgL_owner4007z00_2871;
BgL_owner4007z00_2871 = BgL_owner3995z00_2867; 
((((BgL_prezd2makezd2structzd2appzd2_bglt)CREF(BgL_new4008z00_2869))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner4007z00_2871), BUNSPEC); 
BgL_res6142z00_2872 = BgL_new4008z00_2869; } } BgL_res6142z00_2872; } 
BgL_res6143z00_2873 = BgL_new3996z00_2868; } } 
BgL_arg5610z00_1963 = BgL_res6143z00_2873; } } 
{ /* ./Cfa/cinfo2.scm 86 */
obj_t BgL_auxz00_5883;BgL_objectz00_bglt BgL_auxz00_5881;
BgL_auxz00_5883 = 
(obj_t)(BgL_arg5610z00_1963); 
BgL_auxz00_5881 = 
(BgL_objectz00_bglt)(BgL_new4017z00_1961); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5881, BgL_auxz00_5883); } } 
{ /* ./Cfa/cinfo2.scm 86 */
obj_t BgL_objz00_2874;
BgL_objz00_2874 = 
(obj_t)(BgL_new4017z00_1961); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2874); BUNSPEC; } 
BgL_auxz00_5856 = BgL_new4017z00_1961; } } } 
return 
(obj_t)(BgL_auxz00_5856);} } } 
}



/* object->struct-pre-make-struct-app4296 */
obj_t BGl_objectzd2ze3structzd2prezd2makezd2structzd2app4296z31zzcfa_info2z00(obj_t BgL_envz00_3672, obj_t BgL_obj4012z00_3673)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 86 */
{ 
BgL_prezd2makezd2structzd2appzd2_bglt BgL_obj4012z00_1945;
BgL_obj4012z00_1945 = 
(BgL_prezd2makezd2structzd2appzd2_bglt)(BgL_obj4012z00_3673); 
{ 

{ /* ./Cfa/cinfo2.scm 86 */
obj_t BgL_res4013z00_1948;
{ /* ./Cfa/cinfo2.scm 86 */
obj_t BgL_nextzd2method4295zd2_1953;
BgL_nextzd2method4295zd2_1953 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj4012z00_1945), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_prezd2makezd2structzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 86 */
bool_t BgL_test5599z00_1954;
BgL_test5599z00_1954 = 
PROCEDUREP(BgL_nextzd2method4295zd2_1953); 
if(BgL_test5599z00_1954)
{ /* ./Cfa/cinfo2.scm 86 */
BgL_res4013z00_1948 = 
PROCEDURE_ENTRY(BgL_nextzd2method4295zd2_1953)(BgL_nextzd2method4295zd2_1953, 
(obj_t)(BgL_obj4012z00_1945), BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 86 */
BgL_res4013z00_1948 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj4012z00_1945)); } } } 
{ /* ./Cfa/cinfo2.scm 86 */
obj_t BgL_aux4014z00_1949;
{ /* ./Cfa/cinfo2.scm 86 */
obj_t BgL_keyz00_2844;int BgL_lenz00_2845;
BgL_keyz00_2844 = 
CNST_TABLE_REF(((long)10)); 
BgL_lenz00_2845 = 
(int)(((long)1)); 
BgL_aux4014z00_1949 = 
make_struct(BgL_keyz00_2844, BgL_lenz00_2845, BUNSPEC); } 
{ /* ./Cfa/cinfo2.scm 86 */
BgL_variablez00_bglt BgL_arg5588z00_1951;
{ 
obj_t BgL_auxz00_5902;
{ /* ./Cfa/cinfo2.scm 86 */
BgL_objectz00_bglt BgL_auxz00_5903;
BgL_auxz00_5903 = 
(BgL_objectz00_bglt)(BgL_obj4012z00_1945); 
BgL_auxz00_5902 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5903); } 
BgL_arg5588z00_1951 = 
(((BgL_prezd2makezd2structzd2appzd2_bglt)CREF(BgL_auxz00_5902))->BgL_ownerz00); } 
{ /* ./Cfa/cinfo2.scm 86 */
int BgL_kz00_2849;obj_t BgL_oz00_2850;
BgL_kz00_2849 = 
(int)(((long)0)); 
BgL_oz00_2850 = 
(obj_t)(BgL_arg5588z00_1951); 
STRUCT_SET(BgL_aux4014z00_1949, BgL_kz00_2849, BgL_oz00_2850); } } 
{ /* ./Cfa/cinfo2.scm 86 */
int BgL_kz00_2852;
BgL_kz00_2852 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res4013z00_1948, BgL_kz00_2852, BgL_aux4014z00_1949); } 
{ /* ./Cfa/cinfo2.scm 86 */
obj_t BgL_arg5593z00_1952;
BgL_arg5593z00_1952 = 
STRUCT_KEY(BgL_res4013z00_1948); 
STRUCT_KEY_SET(BgL_aux4014z00_1949, BgL_arg5593z00_1952); } 
{ /* ./Cfa/cinfo2.scm 86 */
obj_t BgL_kz00_2859;
BgL_kz00_2859 = 
CNST_TABLE_REF(((long)10)); 
STRUCT_KEY_SET(BgL_res4013z00_1948, BgL_kz00_2859); } 
return BgL_res4013z00_1948;} } } } } 
}



/* struct+object->object-pre-struct-ref-app4294 */
obj_t BGl_structzb2objectzd2ze3objectzd2prezd2structzd2refzd2app4294z83zzcfa_info2z00(obj_t BgL_envz00_3674, obj_t BgL_oz00_3675, obj_t BgL_sz00_3676)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 89 */
{ 
BgL_prezd2structzd2refzd2appzd2_bglt BgL_oz00_1934;obj_t BgL_sz00_1935;
{ /* ./Cfa/cinfo2.scm 89 */
BgL_prezd2structzd2refzd2appzd2_bglt BgL_auxz00_5917;
BgL_oz00_1934 = 
(BgL_prezd2structzd2refzd2appzd2_bglt)(BgL_oz00_3675); 
BgL_sz00_1935 = BgL_sz00_3676; 
{ 

{ /* ./Cfa/cinfo2.scm 89 */
obj_t BgL_old4053z00_1938;
{ /* ./Cfa/cinfo2.scm 89 */
obj_t BgL_nextzd2method4293zd2_1943;
BgL_nextzd2method4293zd2_1943 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1934), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_prezd2structzd2refzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 89 */
bool_t BgL_test5580z00_1944;
BgL_test5580z00_1944 = 
PROCEDUREP(BgL_nextzd2method4293zd2_1943); 
if(BgL_test5580z00_1944)
{ /* ./Cfa/cinfo2.scm 89 */
BgL_old4053z00_1938 = 
PROCEDURE_ENTRY(BgL_nextzd2method4293zd2_1943)(BgL_nextzd2method4293zd2_1943, 
(obj_t)(BgL_oz00_1934), BgL_sz00_1935, BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 89 */
{ /* ./Cfa/cinfo2.scm 89 */
BgL_objectz00_bglt BgL_auxz00_5925;
BgL_auxz00_5925 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1934), BgL_sz00_1935); 
BgL_old4053z00_1938 = 
(obj_t)(BgL_auxz00_5925); } } } } 
{ /* ./Cfa/cinfo2.scm 89 */
BgL_prezd2structzd2refzd2appzd2_bglt BgL_new4055z00_1940;
BgL_new4055z00_1940 = 
((BgL_prezd2structzd2refzd2appzd2_bglt)(BgL_old4053z00_1938)); 
{ /* ./Cfa/cinfo2.scm 89 */
long BgL_arg5570z00_1941;
BgL_arg5570z00_1941 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2structzd2refzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 89 */
BgL_objectz00_bglt BgL_objz00_2840;
BgL_objz00_2840 = 
(BgL_objectz00_bglt)(BgL_new4055z00_1940); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2840, BgL_arg5570z00_1941); } } 
{ /* ./Cfa/cinfo2.scm 89 */
BgL_prezd2structzd2refzd2appzd2_bglt BgL_arg5574z00_1942;
BgL_arg5574z00_1942 = 
BGl_wideningzd2prezd2structzd2refzd2appz00zzcfa_info2z00(); 
{ /* ./Cfa/cinfo2.scm 89 */
obj_t BgL_auxz00_5936;BgL_objectz00_bglt BgL_auxz00_5934;
BgL_auxz00_5936 = 
(obj_t)(BgL_arg5574z00_1942); 
BgL_auxz00_5934 = 
(BgL_objectz00_bglt)(BgL_new4055z00_1940); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5934, BgL_auxz00_5936); } } 
{ /* ./Cfa/cinfo2.scm 89 */
obj_t BgL_objz00_2842;
BgL_objz00_2842 = 
(obj_t)(BgL_new4055z00_1940); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2842); BUNSPEC; } 
BgL_auxz00_5917 = BgL_new4055z00_1940; } } } 
return 
(obj_t)(BgL_auxz00_5917);} } } 
}



/* object->struct-pre-struct-ref-app4292 */
obj_t BGl_objectzd2ze3structzd2prezd2structzd2refzd2app4292z31zzcfa_info2z00(obj_t BgL_envz00_3677, obj_t BgL_obj4050z00_3678)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 89 */
{ 
BgL_prezd2structzd2refzd2appzd2_bglt BgL_obj4050z00_1926;
BgL_obj4050z00_1926 = 
(BgL_prezd2structzd2refzd2appzd2_bglt)(BgL_obj4050z00_3678); 
{ 

{ /* ./Cfa/cinfo2.scm 89 */
obj_t BgL_res4051z00_1929;
{ /* ./Cfa/cinfo2.scm 89 */
obj_t BgL_nextzd2method4291zd2_1932;
BgL_nextzd2method4291zd2_1932 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj4050z00_1926), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_prezd2structzd2refzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 89 */
bool_t BgL_test5563z00_1933;
BgL_test5563z00_1933 = 
PROCEDUREP(BgL_nextzd2method4291zd2_1932); 
if(BgL_test5563z00_1933)
{ /* ./Cfa/cinfo2.scm 89 */
BgL_res4051z00_1929 = 
PROCEDURE_ENTRY(BgL_nextzd2method4291zd2_1932)(BgL_nextzd2method4291zd2_1932, 
(obj_t)(BgL_obj4050z00_1926), BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 89 */
BgL_res4051z00_1929 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj4050z00_1926)); } } } 
{ /* ./Cfa/cinfo2.scm 89 */
obj_t BgL_aux4052z00_1930;
{ /* ./Cfa/cinfo2.scm 89 */
obj_t BgL_keyz00_2825;int BgL_lenz00_2826;
BgL_keyz00_2825 = 
CNST_TABLE_REF(((long)11)); 
BgL_lenz00_2826 = 
(int)(((long)0)); 
BgL_aux4052z00_1930 = 
make_struct(BgL_keyz00_2825, BgL_lenz00_2826, BUNSPEC); } 
{ /* ./Cfa/cinfo2.scm 89 */
int BgL_kz00_2829;
BgL_kz00_2829 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res4051z00_1929, BgL_kz00_2829, BgL_aux4052z00_1930); } 
{ /* ./Cfa/cinfo2.scm 89 */
obj_t BgL_arg5557z00_1931;
BgL_arg5557z00_1931 = 
STRUCT_KEY(BgL_res4051z00_1929); 
STRUCT_KEY_SET(BgL_aux4052z00_1930, BgL_arg5557z00_1931); } 
{ /* ./Cfa/cinfo2.scm 89 */
obj_t BgL_kz00_2836;
BgL_kz00_2836 = 
CNST_TABLE_REF(((long)11)); 
STRUCT_KEY_SET(BgL_res4051z00_1929, BgL_kz00_2836); } 
return BgL_res4051z00_1929;} } } } } 
}



/* struct+object->object-pre-struct-set!-app4290 */
obj_t BGl_structzb2objectzd2ze3objectzd2prezd2structzd2setz12zd2app4290z91zzcfa_info2z00(obj_t BgL_envz00_3679, obj_t BgL_oz00_3680, obj_t BgL_sz00_3681)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 90 */
{ 
BgL_prezd2structzd2setz12zd2appzc0_bglt BgL_oz00_1915;obj_t BgL_sz00_1916;
{ /* ./Cfa/cinfo2.scm 90 */
BgL_prezd2structzd2setz12zd2appzc0_bglt BgL_auxz00_5962;
BgL_oz00_1915 = 
(BgL_prezd2structzd2setz12zd2appzc0_bglt)(BgL_oz00_3680); 
BgL_sz00_1916 = BgL_sz00_3681; 
{ 

{ /* ./Cfa/cinfo2.scm 90 */
obj_t BgL_old4089z00_1919;
{ /* ./Cfa/cinfo2.scm 90 */
obj_t BgL_nextzd2method4289zd2_1924;
BgL_nextzd2method4289zd2_1924 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1915), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_prezd2structzd2setz12zd2appzc0zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 90 */
bool_t BgL_test5549z00_1925;
BgL_test5549z00_1925 = 
PROCEDUREP(BgL_nextzd2method4289zd2_1924); 
if(BgL_test5549z00_1925)
{ /* ./Cfa/cinfo2.scm 90 */
BgL_old4089z00_1919 = 
PROCEDURE_ENTRY(BgL_nextzd2method4289zd2_1924)(BgL_nextzd2method4289zd2_1924, 
(obj_t)(BgL_oz00_1915), BgL_sz00_1916, BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 90 */
{ /* ./Cfa/cinfo2.scm 90 */
BgL_objectz00_bglt BgL_auxz00_5970;
BgL_auxz00_5970 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1915), BgL_sz00_1916); 
BgL_old4089z00_1919 = 
(obj_t)(BgL_auxz00_5970); } } } } 
{ /* ./Cfa/cinfo2.scm 90 */
BgL_prezd2structzd2setz12zd2appzc0_bglt BgL_new4091z00_1921;
BgL_new4091z00_1921 = 
((BgL_prezd2structzd2setz12zd2appzc0_bglt)(BgL_old4089z00_1919)); 
{ /* ./Cfa/cinfo2.scm 90 */
long BgL_arg5539z00_1922;
BgL_arg5539z00_1922 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2structzd2setz12zd2appzc0zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 90 */
BgL_objectz00_bglt BgL_objz00_2821;
BgL_objz00_2821 = 
(BgL_objectz00_bglt)(BgL_new4091z00_1921); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2821, BgL_arg5539z00_1922); } } 
{ /* ./Cfa/cinfo2.scm 90 */
BgL_prezd2structzd2setz12zd2appzc0_bglt BgL_arg5543z00_1923;
BgL_arg5543z00_1923 = 
BGl_wideningzd2prezd2structzd2setz12zd2appz12zzcfa_info2z00(); 
{ /* ./Cfa/cinfo2.scm 90 */
obj_t BgL_auxz00_5981;BgL_objectz00_bglt BgL_auxz00_5979;
BgL_auxz00_5981 = 
(obj_t)(BgL_arg5543z00_1923); 
BgL_auxz00_5979 = 
(BgL_objectz00_bglt)(BgL_new4091z00_1921); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5979, BgL_auxz00_5981); } } 
{ /* ./Cfa/cinfo2.scm 90 */
obj_t BgL_objz00_2823;
BgL_objz00_2823 = 
(obj_t)(BgL_new4091z00_1921); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2823); BUNSPEC; } 
BgL_auxz00_5962 = BgL_new4091z00_1921; } } } 
return 
(obj_t)(BgL_auxz00_5962);} } } 
}



/* object->struct-pre-struct-set!-app4288 */
obj_t BGl_objectzd2ze3structzd2prezd2structzd2setz12zd2app4288z23zzcfa_info2z00(obj_t BgL_envz00_3682, obj_t BgL_obj4086z00_3683)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 90 */
{ 
BgL_prezd2structzd2setz12zd2appzc0_bglt BgL_obj4086z00_1907;
BgL_obj4086z00_1907 = 
(BgL_prezd2structzd2setz12zd2appzc0_bglt)(BgL_obj4086z00_3683); 
{ 

{ /* ./Cfa/cinfo2.scm 90 */
obj_t BgL_res4087z00_1910;
{ /* ./Cfa/cinfo2.scm 90 */
obj_t BgL_nextzd2method4287zd2_1913;
BgL_nextzd2method4287zd2_1913 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj4086z00_1907), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_prezd2structzd2setz12zd2appzc0zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 90 */
bool_t BgL_test5532z00_1914;
BgL_test5532z00_1914 = 
PROCEDUREP(BgL_nextzd2method4287zd2_1913); 
if(BgL_test5532z00_1914)
{ /* ./Cfa/cinfo2.scm 90 */
BgL_res4087z00_1910 = 
PROCEDURE_ENTRY(BgL_nextzd2method4287zd2_1913)(BgL_nextzd2method4287zd2_1913, 
(obj_t)(BgL_obj4086z00_1907), BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 90 */
BgL_res4087z00_1910 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj4086z00_1907)); } } } 
{ /* ./Cfa/cinfo2.scm 90 */
obj_t BgL_aux4088z00_1911;
{ /* ./Cfa/cinfo2.scm 90 */
obj_t BgL_keyz00_2806;int BgL_lenz00_2807;
BgL_keyz00_2806 = 
CNST_TABLE_REF(((long)12)); 
BgL_lenz00_2807 = 
(int)(((long)0)); 
BgL_aux4088z00_1911 = 
make_struct(BgL_keyz00_2806, BgL_lenz00_2807, BUNSPEC); } 
{ /* ./Cfa/cinfo2.scm 90 */
int BgL_kz00_2810;
BgL_kz00_2810 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res4087z00_1910, BgL_kz00_2810, BgL_aux4088z00_1911); } 
{ /* ./Cfa/cinfo2.scm 90 */
obj_t BgL_arg5526z00_1912;
BgL_arg5526z00_1912 = 
STRUCT_KEY(BgL_res4087z00_1910); 
STRUCT_KEY_SET(BgL_aux4088z00_1911, BgL_arg5526z00_1912); } 
{ /* ./Cfa/cinfo2.scm 90 */
obj_t BgL_kz00_2817;
BgL_kz00_2817 = 
CNST_TABLE_REF(((long)12)); 
STRUCT_KEY_SET(BgL_res4087z00_1910, BgL_kz00_2817); } 
return BgL_res4087z00_1910;} } } } } 
}



/* struct+object->object-make-struct-app4286 */
obj_t BGl_structzb2objectzd2ze3objectzd2makezd2structzd2app4286z51zzcfa_info2z00(obj_t BgL_envz00_3684, obj_t BgL_oz00_3685, obj_t BgL_sz00_3686)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 92 */
{ 
BgL_makezd2structzd2appz00_bglt BgL_oz00_1891;obj_t BgL_sz00_1892;
{ /* ./Cfa/cinfo2.scm 92 */
BgL_makezd2structzd2appz00_bglt BgL_auxz00_6007;
BgL_oz00_1891 = 
(BgL_makezd2structzd2appz00_bglt)(BgL_oz00_3685); 
BgL_sz00_1892 = BgL_sz00_3686; 
{ 

{ /* ./Cfa/cinfo2.scm 92 */
obj_t BgL_old4145z00_1895;obj_t BgL_aux4146z00_1896;
{ /* ./Cfa/cinfo2.scm 92 */
obj_t BgL_nextzd2method4285zd2_1905;
BgL_nextzd2method4285zd2_1905 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1891), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_makezd2structzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 92 */
bool_t BgL_test5518z00_1906;
BgL_test5518z00_1906 = 
PROCEDUREP(BgL_nextzd2method4285zd2_1905); 
if(BgL_test5518z00_1906)
{ /* ./Cfa/cinfo2.scm 92 */
BgL_old4145z00_1895 = 
PROCEDURE_ENTRY(BgL_nextzd2method4285zd2_1905)(BgL_nextzd2method4285zd2_1905, 
(obj_t)(BgL_oz00_1891), BgL_sz00_1892, BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 92 */
{ /* ./Cfa/cinfo2.scm 92 */
BgL_objectz00_bglt BgL_auxz00_6015;
BgL_auxz00_6015 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1891), BgL_sz00_1892); 
BgL_old4145z00_1895 = 
(obj_t)(BgL_auxz00_6015); } } } } 
{ /* ./Cfa/cinfo2.scm 92 */
int BgL_auxz00_6019;
BgL_auxz00_6019 = 
(int)(((long)0)); 
BgL_aux4146z00_1896 = 
STRUCT_REF(BgL_sz00_1892, BgL_auxz00_6019); } 
{ /* ./Cfa/cinfo2.scm 92 */
BgL_makezd2structzd2appz00_bglt BgL_new4147z00_1897;
BgL_new4147z00_1897 = 
((BgL_makezd2structzd2appz00_bglt)(BgL_old4145z00_1895)); 
{ /* ./Cfa/cinfo2.scm 92 */
long BgL_arg5497z00_1898;
BgL_arg5497z00_1898 = 
BGl_classzd2numzd2zz__objectz00(BGl_makezd2structzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 92 */
BgL_objectz00_bglt BgL_objz00_2773;
BgL_objz00_2773 = 
(BgL_objectz00_bglt)(BgL_new4147z00_1897); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2773, BgL_arg5497z00_1898); } } 
{ /* ./Cfa/cinfo2.scm 92 */
BgL_makezd2structzd2appz00_bglt BgL_arg5501z00_1899;
{ /* ./Cfa/cinfo2.scm 92 */
obj_t BgL_arg5504z00_1900;obj_t BgL_arg5505z00_1901;obj_t BgL_arg5506z00_1902;obj_t BgL_arg5507z00_1903;obj_t BgL_arg5508z00_1904;
{ /* ./Cfa/cinfo2.scm 92 */
int BgL_auxz00_6026;
BgL_auxz00_6026 = 
(int)(((long)0)); 
BgL_arg5504z00_1900 = 
STRUCT_REF(BgL_aux4146z00_1896, BgL_auxz00_6026); } 
{ /* ./Cfa/cinfo2.scm 92 */
int BgL_auxz00_6029;
BgL_auxz00_6029 = 
(int)(((long)1)); 
BgL_arg5505z00_1901 = 
STRUCT_REF(BgL_aux4146z00_1896, BgL_auxz00_6029); } 
{ /* ./Cfa/cinfo2.scm 92 */
int BgL_auxz00_6032;
BgL_auxz00_6032 = 
(int)(((long)2)); 
BgL_arg5506z00_1902 = 
STRUCT_REF(BgL_aux4146z00_1896, BgL_auxz00_6032); } 
{ /* ./Cfa/cinfo2.scm 92 */
int BgL_auxz00_6035;
BgL_auxz00_6035 = 
(int)(((long)3)); 
BgL_arg5507z00_1903 = 
STRUCT_REF(BgL_aux4146z00_1896, BgL_auxz00_6035); } 
{ /* ./Cfa/cinfo2.scm 92 */
int BgL_auxz00_6038;
BgL_auxz00_6038 = 
(int)(((long)4)); 
BgL_arg5508z00_1904 = 
STRUCT_REF(BgL_aux4146z00_1896, BgL_auxz00_6038); } 
{ /* ./Cfa/cinfo2.scm 92 */
BgL_makezd2structzd2appz00_bglt BgL_res6138z00_2803;
{ /* ./Cfa/cinfo2.scm 92 */
BgL_approxz00_bglt BgL_approx4109z00_2785;BgL_approxz00_bglt BgL_valuezd2approx4110zd2_2786;long BgL_lostzd2stamp4111zd2_2787;BgL_variablez00_bglt BgL_owner4112z00_2788;
BgL_approx4109z00_2785 = 
(BgL_approxz00_bglt)(BgL_arg5504z00_1900); 
BgL_valuezd2approx4110zd2_2786 = 
(BgL_approxz00_bglt)(BgL_arg5505z00_1901); 
BgL_lostzd2stamp4111zd2_2787 = 
(long)CINT(BgL_arg5506z00_1902); 
BgL_owner4112z00_2788 = 
(BgL_variablez00_bglt)(BgL_arg5507z00_1903); 
{ /* ./Cfa/cinfo2.scm 92 */
BgL_makezd2structzd2appz00_bglt BgL_new4114z00_2790;
BgL_new4114z00_2790 = 
((BgL_makezd2structzd2appz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_makezd2structzd2appz00_bgl)))); 
{ /* ./Cfa/cinfo2.scm 92 */
BgL_makezd2structzd2appz00_bglt BgL_res6137z00_2802;
{ /* ./Cfa/cinfo2.scm 92 */
BgL_makezd2structzd2appz00_bglt BgL_new4134z00_2791;
BgL_new4134z00_2791 = BgL_new4114z00_2790; 
{ /* ./Cfa/cinfo2.scm 92 */
BgL_approxz00_bglt BgL_approx4129z00_2797;BgL_approxz00_bglt BgL_valuezd2approx4130zd2_2798;long BgL_lostzd2stamp4131zd2_2799;BgL_variablez00_bglt BgL_owner4132z00_2800;obj_t BgL_stackzd2stamp4133zd2_2801;
BgL_approx4129z00_2797 = BgL_approx4109z00_2785; 
BgL_valuezd2approx4130zd2_2798 = BgL_valuezd2approx4110zd2_2786; 
BgL_lostzd2stamp4131zd2_2799 = BgL_lostzd2stamp4111zd2_2787; 
BgL_owner4132z00_2800 = BgL_owner4112z00_2788; 
BgL_stackzd2stamp4133zd2_2801 = BgL_arg5508z00_1904; 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_2791))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx4129z00_2797), BUNSPEC); 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_2791))->BgL_valuezd2approxzd2) = ((BgL_approxz00_bglt)BgL_valuezd2approx4130zd2_2798), BUNSPEC); 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_2791))->BgL_lostzd2stampzd2) = ((long)BgL_lostzd2stamp4131zd2_2799), BUNSPEC); 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_2791))->BgL_ownerz00) = ((BgL_variablez00_bglt)BgL_owner4132z00_2800), BUNSPEC); 
((((BgL_makezd2structzd2appz00_bglt)CREF(BgL_new4134z00_2791))->BgL_stackzd2stampzd2) = ((obj_t)BgL_stackzd2stamp4133zd2_2801), BUNSPEC); 
BgL_res6137z00_2802 = BgL_new4134z00_2791; } } BgL_res6137z00_2802; } 
BgL_res6138z00_2803 = BgL_new4114z00_2790; } } 
BgL_arg5501z00_1899 = BgL_res6138z00_2803; } } 
{ /* ./Cfa/cinfo2.scm 92 */
obj_t BgL_auxz00_6053;BgL_objectz00_bglt BgL_auxz00_6051;
BgL_auxz00_6053 = 
(obj_t)(BgL_arg5501z00_1899); 
BgL_auxz00_6051 = 
(BgL_objectz00_bglt)(BgL_new4147z00_1897); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6051, BgL_auxz00_6053); } } 
{ /* ./Cfa/cinfo2.scm 92 */
obj_t BgL_objz00_2804;
BgL_objz00_2804 = 
(obj_t)(BgL_new4147z00_1897); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2804); BUNSPEC; } 
BgL_auxz00_6007 = BgL_new4147z00_1897; } } } 
return 
(obj_t)(BgL_auxz00_6007);} } } 
}



/* object->struct-make-struct-app4284 */
obj_t BGl_objectzd2ze3structzd2makezd2structzd2app4284ze3zzcfa_info2z00(obj_t BgL_envz00_3687, obj_t BgL_obj4142z00_3688)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 92 */
{ 
BgL_makezd2structzd2appz00_bglt BgL_obj4142z00_1873;
BgL_obj4142z00_1873 = 
(BgL_makezd2structzd2appz00_bglt)(BgL_obj4142z00_3688); 
{ 

{ /* ./Cfa/cinfo2.scm 92 */
obj_t BgL_res4143z00_1876;
{ /* ./Cfa/cinfo2.scm 92 */
obj_t BgL_nextzd2method4283zd2_1889;
BgL_nextzd2method4283zd2_1889 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj4142z00_1873), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_makezd2structzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 92 */
bool_t BgL_test5490z00_1890;
BgL_test5490z00_1890 = 
PROCEDUREP(BgL_nextzd2method4283zd2_1889); 
if(BgL_test5490z00_1890)
{ /* ./Cfa/cinfo2.scm 92 */
BgL_res4143z00_1876 = 
PROCEDURE_ENTRY(BgL_nextzd2method4283zd2_1889)(BgL_nextzd2method4283zd2_1889, 
(obj_t)(BgL_obj4142z00_1873), BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 92 */
BgL_res4143z00_1876 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj4142z00_1873)); } } } 
{ /* ./Cfa/cinfo2.scm 92 */
obj_t BgL_aux4144z00_1877;
{ /* ./Cfa/cinfo2.scm 92 */
obj_t BgL_keyz00_2738;int BgL_lenz00_2739;
BgL_keyz00_2738 = 
CNST_TABLE_REF(((long)13)); 
BgL_lenz00_2739 = 
(int)(((long)5)); 
BgL_aux4144z00_1877 = 
make_struct(BgL_keyz00_2738, BgL_lenz00_2739, BUNSPEC); } 
{ /* ./Cfa/cinfo2.scm 92 */
BgL_approxz00_bglt BgL_arg5459z00_1879;
{ 
obj_t BgL_auxz00_6072;
{ /* ./Cfa/cinfo2.scm 92 */
BgL_objectz00_bglt BgL_auxz00_6073;
BgL_auxz00_6073 = 
(BgL_objectz00_bglt)(BgL_obj4142z00_1873); 
BgL_auxz00_6072 = 
BGL_OBJECT_WIDENING(BgL_auxz00_6073); } 
BgL_arg5459z00_1879 = 
(((BgL_makezd2structzd2appz00_bglt)CREF(BgL_auxz00_6072))->BgL_approxz00); } 
{ /* ./Cfa/cinfo2.scm 92 */
int BgL_kz00_2743;obj_t BgL_oz00_2744;
BgL_kz00_2743 = 
(int)(((long)0)); 
BgL_oz00_2744 = 
(obj_t)(BgL_arg5459z00_1879); 
STRUCT_SET(BgL_aux4144z00_1877, BgL_kz00_2743, BgL_oz00_2744); } } 
{ /* ./Cfa/cinfo2.scm 92 */
BgL_approxz00_bglt BgL_arg5464z00_1881;
{ 
obj_t BgL_auxz00_6080;
{ /* ./Cfa/cinfo2.scm 92 */
BgL_objectz00_bglt BgL_auxz00_6081;
BgL_auxz00_6081 = 
(BgL_objectz00_bglt)(BgL_obj4142z00_1873); 
BgL_auxz00_6080 = 
BGL_OBJECT_WIDENING(BgL_auxz00_6081); } 
BgL_arg5464z00_1881 = 
(((BgL_makezd2structzd2appz00_bglt)CREF(BgL_auxz00_6080))->BgL_valuezd2approxzd2); } 
{ /* ./Cfa/cinfo2.scm 92 */
int BgL_kz00_2747;obj_t BgL_oz00_2748;
BgL_kz00_2747 = 
(int)(((long)1)); 
BgL_oz00_2748 = 
(obj_t)(BgL_arg5464z00_1881); 
STRUCT_SET(BgL_aux4144z00_1877, BgL_kz00_2747, BgL_oz00_2748); } } 
{ /* ./Cfa/cinfo2.scm 92 */
long BgL_arg5469z00_1883;
{ 
obj_t BgL_auxz00_6088;
{ /* ./Cfa/cinfo2.scm 92 */
BgL_objectz00_bglt BgL_auxz00_6089;
BgL_auxz00_6089 = 
(BgL_objectz00_bglt)(BgL_obj4142z00_1873); 
BgL_auxz00_6088 = 
BGL_OBJECT_WIDENING(BgL_auxz00_6089); } 
BgL_arg5469z00_1883 = 
(((BgL_makezd2structzd2appz00_bglt)CREF(BgL_auxz00_6088))->BgL_lostzd2stampzd2); } 
{ /* ./Cfa/cinfo2.scm 92 */
int BgL_kz00_2751;obj_t BgL_oz00_2752;
BgL_kz00_2751 = 
(int)(((long)2)); 
BgL_oz00_2752 = 
BINT(BgL_arg5469z00_1883); 
STRUCT_SET(BgL_aux4144z00_1877, BgL_kz00_2751, BgL_oz00_2752); } } 
{ /* ./Cfa/cinfo2.scm 92 */
BgL_variablez00_bglt BgL_arg5474z00_1885;
{ 
obj_t BgL_auxz00_6096;
{ /* ./Cfa/cinfo2.scm 92 */
BgL_objectz00_bglt BgL_auxz00_6097;
BgL_auxz00_6097 = 
(BgL_objectz00_bglt)(BgL_obj4142z00_1873); 
BgL_auxz00_6096 = 
BGL_OBJECT_WIDENING(BgL_auxz00_6097); } 
BgL_arg5474z00_1885 = 
(((BgL_makezd2structzd2appz00_bglt)CREF(BgL_auxz00_6096))->BgL_ownerz00); } 
{ /* ./Cfa/cinfo2.scm 92 */
int BgL_kz00_2755;obj_t BgL_oz00_2756;
BgL_kz00_2755 = 
(int)(((long)3)); 
BgL_oz00_2756 = 
(obj_t)(BgL_arg5474z00_1885); 
STRUCT_SET(BgL_aux4144z00_1877, BgL_kz00_2755, BgL_oz00_2756); } } 
{ /* ./Cfa/cinfo2.scm 92 */
obj_t BgL_arg5479z00_1887;
{ 
obj_t BgL_auxz00_6104;
{ /* ./Cfa/cinfo2.scm 92 */
BgL_objectz00_bglt BgL_auxz00_6105;
BgL_auxz00_6105 = 
(BgL_objectz00_bglt)(BgL_obj4142z00_1873); 
BgL_auxz00_6104 = 
BGL_OBJECT_WIDENING(BgL_auxz00_6105); } 
BgL_arg5479z00_1887 = 
(((BgL_makezd2structzd2appz00_bglt)CREF(BgL_auxz00_6104))->BgL_stackzd2stampzd2); } 
{ /* ./Cfa/cinfo2.scm 92 */
int BgL_kz00_2759;
BgL_kz00_2759 = 
(int)(((long)4)); 
STRUCT_SET(BgL_aux4144z00_1877, BgL_kz00_2759, BgL_arg5479z00_1887); } } 
{ /* ./Cfa/cinfo2.scm 92 */
int BgL_kz00_2762;
BgL_kz00_2762 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res4143z00_1876, BgL_kz00_2762, BgL_aux4144z00_1877); } 
{ /* ./Cfa/cinfo2.scm 92 */
obj_t BgL_arg5484z00_1888;
BgL_arg5484z00_1888 = 
STRUCT_KEY(BgL_res4143z00_1876); 
STRUCT_KEY_SET(BgL_aux4144z00_1877, BgL_arg5484z00_1888); } 
{ /* ./Cfa/cinfo2.scm 92 */
obj_t BgL_kz00_2769;
BgL_kz00_2769 = 
CNST_TABLE_REF(((long)13)); 
STRUCT_KEY_SET(BgL_res4143z00_1876, BgL_kz00_2769); } 
return BgL_res4143z00_1876;} } } } } 
}



/* struct+object->object-struct-ref-app4282 */
obj_t BGl_structzb2objectzd2ze3objectzd2structzd2refzd2app4282z51zzcfa_info2z00(obj_t BgL_envz00_3689, obj_t BgL_oz00_3690, obj_t BgL_sz00_3691)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 104 */
{ 
BgL_structzd2refzd2appz00_bglt BgL_oz00_1861;obj_t BgL_sz00_1862;
{ /* ./Cfa/cinfo2.scm 104 */
BgL_structzd2refzd2appz00_bglt BgL_auxz00_6118;
BgL_oz00_1861 = 
(BgL_structzd2refzd2appz00_bglt)(BgL_oz00_3690); 
BgL_sz00_1862 = BgL_sz00_3691; 
{ 

{ /* ./Cfa/cinfo2.scm 104 */
obj_t BgL_old4196z00_1865;obj_t BgL_aux4197z00_1866;
{ /* ./Cfa/cinfo2.scm 104 */
obj_t BgL_nextzd2method4281zd2_1871;
BgL_nextzd2method4281zd2_1871 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1861), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_structzd2refzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 104 */
bool_t BgL_test5451z00_1872;
BgL_test5451z00_1872 = 
PROCEDUREP(BgL_nextzd2method4281zd2_1871); 
if(BgL_test5451z00_1872)
{ /* ./Cfa/cinfo2.scm 104 */
BgL_old4196z00_1865 = 
PROCEDURE_ENTRY(BgL_nextzd2method4281zd2_1871)(BgL_nextzd2method4281zd2_1871, 
(obj_t)(BgL_oz00_1861), BgL_sz00_1862, BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 104 */
{ /* ./Cfa/cinfo2.scm 104 */
BgL_objectz00_bglt BgL_auxz00_6126;
BgL_auxz00_6126 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1861), BgL_sz00_1862); 
BgL_old4196z00_1865 = 
(obj_t)(BgL_auxz00_6126); } } } } 
{ /* ./Cfa/cinfo2.scm 104 */
int BgL_auxz00_6130;
BgL_auxz00_6130 = 
(int)(((long)0)); 
BgL_aux4197z00_1866 = 
STRUCT_REF(BgL_sz00_1862, BgL_auxz00_6130); } 
{ /* ./Cfa/cinfo2.scm 104 */
BgL_structzd2refzd2appz00_bglt BgL_new4198z00_1867;
BgL_new4198z00_1867 = 
((BgL_structzd2refzd2appz00_bglt)(BgL_old4196z00_1865)); 
{ /* ./Cfa/cinfo2.scm 104 */
long BgL_arg5438z00_1868;
BgL_arg5438z00_1868 = 
BGl_classzd2numzd2zz__objectz00(BGl_structzd2refzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 104 */
BgL_objectz00_bglt BgL_objz00_2725;
BgL_objz00_2725 = 
(BgL_objectz00_bglt)(BgL_new4198z00_1867); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2725, BgL_arg5438z00_1868); } } 
{ /* ./Cfa/cinfo2.scm 104 */
BgL_structzd2refzd2appz00_bglt BgL_arg5442z00_1869;
{ /* ./Cfa/cinfo2.scm 104 */
obj_t BgL_arg5445z00_1870;
{ /* ./Cfa/cinfo2.scm 104 */
int BgL_auxz00_6137;
BgL_auxz00_6137 = 
(int)(((long)0)); 
BgL_arg5445z00_1870 = 
STRUCT_REF(BgL_aux4197z00_1866, BgL_auxz00_6137); } 
{ /* ./Cfa/cinfo2.scm 104 */
BgL_structzd2refzd2appz00_bglt BgL_res6135z00_2735;
{ /* ./Cfa/cinfo2.scm 104 */
BgL_approxz00_bglt BgL_approx4176z00_2729;
BgL_approx4176z00_2729 = 
(BgL_approxz00_bglt)(BgL_arg5445z00_1870); 
{ /* ./Cfa/cinfo2.scm 104 */
BgL_structzd2refzd2appz00_bglt BgL_new4177z00_2730;
BgL_new4177z00_2730 = 
((BgL_structzd2refzd2appz00_bglt)BREF( GC_MALLOC (sizeof(struct BgL_structzd2refzd2appz00_bgl)))); 
{ /* ./Cfa/cinfo2.scm 104 */
BgL_structzd2refzd2appz00_bglt BgL_res6134z00_2734;
{ /* ./Cfa/cinfo2.scm 104 */
BgL_structzd2refzd2appz00_bglt BgL_new4189z00_2731;
BgL_new4189z00_2731 = BgL_new4177z00_2730; 
{ /* ./Cfa/cinfo2.scm 104 */
BgL_approxz00_bglt BgL_approx4188z00_2733;
BgL_approx4188z00_2733 = BgL_approx4176z00_2729; 
((((BgL_structzd2refzd2appz00_bglt)CREF(BgL_new4189z00_2731))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx4188z00_2733), BUNSPEC); 
BgL_res6134z00_2734 = BgL_new4189z00_2731; } } BgL_res6134z00_2734; } 
BgL_res6135z00_2735 = BgL_new4177z00_2730; } } 
BgL_arg5442z00_1869 = BgL_res6135z00_2735; } } 
{ /* ./Cfa/cinfo2.scm 104 */
obj_t BgL_auxz00_6145;BgL_objectz00_bglt BgL_auxz00_6143;
BgL_auxz00_6145 = 
(obj_t)(BgL_arg5442z00_1869); 
BgL_auxz00_6143 = 
(BgL_objectz00_bglt)(BgL_new4198z00_1867); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6143, BgL_auxz00_6145); } } 
{ /* ./Cfa/cinfo2.scm 104 */
obj_t BgL_objz00_2736;
BgL_objz00_2736 = 
(obj_t)(BgL_new4198z00_1867); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2736); BUNSPEC; } 
BgL_auxz00_6118 = BgL_new4198z00_1867; } } } 
return 
(obj_t)(BgL_auxz00_6118);} } } 
}



/* object->struct-struct-ref-app4280 */
obj_t BGl_objectzd2ze3structzd2structzd2refzd2app4280ze3zzcfa_info2z00(obj_t BgL_envz00_3692, obj_t BgL_obj4193z00_3693)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 104 */
{ 
BgL_structzd2refzd2appz00_bglt BgL_obj4193z00_1851;
BgL_obj4193z00_1851 = 
(BgL_structzd2refzd2appz00_bglt)(BgL_obj4193z00_3693); 
{ 

{ /* ./Cfa/cinfo2.scm 104 */
obj_t BgL_res4194z00_1854;
{ /* ./Cfa/cinfo2.scm 104 */
obj_t BgL_nextzd2method4279zd2_1859;
BgL_nextzd2method4279zd2_1859 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj4193z00_1851), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_structzd2refzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 104 */
bool_t BgL_test5431z00_1860;
BgL_test5431z00_1860 = 
PROCEDUREP(BgL_nextzd2method4279zd2_1859); 
if(BgL_test5431z00_1860)
{ /* ./Cfa/cinfo2.scm 104 */
BgL_res4194z00_1854 = 
PROCEDURE_ENTRY(BgL_nextzd2method4279zd2_1859)(BgL_nextzd2method4279zd2_1859, 
(obj_t)(BgL_obj4193z00_1851), BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 104 */
BgL_res4194z00_1854 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj4193z00_1851)); } } } 
{ /* ./Cfa/cinfo2.scm 104 */
obj_t BgL_aux4195z00_1855;
{ /* ./Cfa/cinfo2.scm 104 */
obj_t BgL_keyz00_2706;int BgL_lenz00_2707;
BgL_keyz00_2706 = 
CNST_TABLE_REF(((long)14)); 
BgL_lenz00_2707 = 
(int)(((long)1)); 
BgL_aux4195z00_1855 = 
make_struct(BgL_keyz00_2706, BgL_lenz00_2707, BUNSPEC); } 
{ /* ./Cfa/cinfo2.scm 104 */
BgL_approxz00_bglt BgL_arg5420z00_1857;
{ 
obj_t BgL_auxz00_6164;
{ /* ./Cfa/cinfo2.scm 104 */
BgL_objectz00_bglt BgL_auxz00_6165;
BgL_auxz00_6165 = 
(BgL_objectz00_bglt)(BgL_obj4193z00_1851); 
BgL_auxz00_6164 = 
BGL_OBJECT_WIDENING(BgL_auxz00_6165); } 
BgL_arg5420z00_1857 = 
(((BgL_structzd2refzd2appz00_bglt)CREF(BgL_auxz00_6164))->BgL_approxz00); } 
{ /* ./Cfa/cinfo2.scm 104 */
int BgL_kz00_2711;obj_t BgL_oz00_2712;
BgL_kz00_2711 = 
(int)(((long)0)); 
BgL_oz00_2712 = 
(obj_t)(BgL_arg5420z00_1857); 
STRUCT_SET(BgL_aux4195z00_1855, BgL_kz00_2711, BgL_oz00_2712); } } 
{ /* ./Cfa/cinfo2.scm 104 */
int BgL_kz00_2714;
BgL_kz00_2714 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res4194z00_1854, BgL_kz00_2714, BgL_aux4195z00_1855); } 
{ /* ./Cfa/cinfo2.scm 104 */
obj_t BgL_arg5425z00_1858;
BgL_arg5425z00_1858 = 
STRUCT_KEY(BgL_res4194z00_1854); 
STRUCT_KEY_SET(BgL_aux4195z00_1855, BgL_arg5425z00_1858); } 
{ /* ./Cfa/cinfo2.scm 104 */
obj_t BgL_kz00_2721;
BgL_kz00_2721 = 
CNST_TABLE_REF(((long)14)); 
STRUCT_KEY_SET(BgL_res4194z00_1854, BgL_kz00_2721); } 
return BgL_res4194z00_1854;} } } } } 
}



/* struct+object->object-struct-set!-app4278 */
obj_t BGl_structzb2objectzd2ze3objectzd2structzd2setz12zd2app4278z43zzcfa_info2z00(obj_t BgL_envz00_3694, obj_t BgL_oz00_3695, obj_t BgL_sz00_3696)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 105 */
{ 
BgL_structzd2setz12zd2appz12_bglt BgL_oz00_1839;obj_t BgL_sz00_1840;
{ /* ./Cfa/cinfo2.scm 105 */
BgL_structzd2setz12zd2appz12_bglt BgL_auxz00_6179;
BgL_oz00_1839 = 
(BgL_structzd2setz12zd2appz12_bglt)(BgL_oz00_3695); 
BgL_sz00_1840 = BgL_sz00_3696; 
{ 

{ /* ./Cfa/cinfo2.scm 105 */
obj_t BgL_old4237z00_1843;obj_t BgL_aux4238z00_1844;
{ /* ./Cfa/cinfo2.scm 105 */
obj_t BgL_nextzd2method4277zd2_1849;
BgL_nextzd2method4277zd2_1849 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1839), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_structzd2setz12zd2appz12zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 105 */
bool_t BgL_test5412z00_1850;
BgL_test5412z00_1850 = 
PROCEDUREP(BgL_nextzd2method4277zd2_1849); 
if(BgL_test5412z00_1850)
{ /* ./Cfa/cinfo2.scm 105 */
BgL_old4237z00_1843 = 
PROCEDURE_ENTRY(BgL_nextzd2method4277zd2_1849)(BgL_nextzd2method4277zd2_1849, 
(obj_t)(BgL_oz00_1839), BgL_sz00_1840, BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 105 */
{ /* ./Cfa/cinfo2.scm 105 */
BgL_objectz00_bglt BgL_auxz00_6187;
BgL_auxz00_6187 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1839), BgL_sz00_1840); 
BgL_old4237z00_1843 = 
(obj_t)(BgL_auxz00_6187); } } } } 
{ /* ./Cfa/cinfo2.scm 105 */
int BgL_auxz00_6191;
BgL_auxz00_6191 = 
(int)(((long)0)); 
BgL_aux4238z00_1844 = 
STRUCT_REF(BgL_sz00_1840, BgL_auxz00_6191); } 
{ /* ./Cfa/cinfo2.scm 105 */
BgL_structzd2setz12zd2appz12_bglt BgL_new4239z00_1845;
BgL_new4239z00_1845 = 
((BgL_structzd2setz12zd2appz12_bglt)(BgL_old4237z00_1843)); 
{ /* ./Cfa/cinfo2.scm 105 */
long BgL_arg5399z00_1846;
BgL_arg5399z00_1846 = 
BGl_classzd2numzd2zz__objectz00(BGl_structzd2setz12zd2appz12zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 105 */
BgL_objectz00_bglt BgL_objz00_2693;
BgL_objz00_2693 = 
(BgL_objectz00_bglt)(BgL_new4239z00_1845); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2693, BgL_arg5399z00_1846); } } 
{ /* ./Cfa/cinfo2.scm 105 */
BgL_structzd2setz12zd2appz12_bglt BgL_arg5403z00_1847;
{ /* ./Cfa/cinfo2.scm 105 */
obj_t BgL_arg5406z00_1848;
{ /* ./Cfa/cinfo2.scm 105 */
int BgL_auxz00_6198;
BgL_auxz00_6198 = 
(int)(((long)0)); 
BgL_arg5406z00_1848 = 
STRUCT_REF(BgL_aux4238z00_1844, BgL_auxz00_6198); } 
{ /* ./Cfa/cinfo2.scm 105 */
BgL_structzd2setz12zd2appz12_bglt BgL_res6132z00_2703;
{ /* ./Cfa/cinfo2.scm 105 */
BgL_approxz00_bglt BgL_approx4217z00_2697;
BgL_approx4217z00_2697 = 
(BgL_approxz00_bglt)(BgL_arg5406z00_1848); 
{ /* ./Cfa/cinfo2.scm 105 */
BgL_structzd2setz12zd2appz12_bglt BgL_new4218z00_2698;
BgL_new4218z00_2698 = 
((BgL_structzd2setz12zd2appz12_bglt)BREF( GC_MALLOC (sizeof(struct BgL_structzd2setz12zd2appz12_bgl)))); 
{ /* ./Cfa/cinfo2.scm 105 */
BgL_structzd2setz12zd2appz12_bglt BgL_res6131z00_2702;
{ /* ./Cfa/cinfo2.scm 105 */
BgL_structzd2setz12zd2appz12_bglt BgL_new4230z00_2699;
BgL_new4230z00_2699 = BgL_new4218z00_2698; 
{ /* ./Cfa/cinfo2.scm 105 */
BgL_approxz00_bglt BgL_approx4229z00_2701;
BgL_approx4229z00_2701 = BgL_approx4217z00_2697; 
((((BgL_structzd2setz12zd2appz12_bglt)CREF(BgL_new4230z00_2699))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_approx4229z00_2701), BUNSPEC); 
BgL_res6131z00_2702 = BgL_new4230z00_2699; } } BgL_res6131z00_2702; } 
BgL_res6132z00_2703 = BgL_new4218z00_2698; } } 
BgL_arg5403z00_1847 = BgL_res6132z00_2703; } } 
{ /* ./Cfa/cinfo2.scm 105 */
obj_t BgL_auxz00_6206;BgL_objectz00_bglt BgL_auxz00_6204;
BgL_auxz00_6206 = 
(obj_t)(BgL_arg5403z00_1847); 
BgL_auxz00_6204 = 
(BgL_objectz00_bglt)(BgL_new4239z00_1845); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6204, BgL_auxz00_6206); } } 
{ /* ./Cfa/cinfo2.scm 105 */
obj_t BgL_objz00_2704;
BgL_objz00_2704 = 
(obj_t)(BgL_new4239z00_1845); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2704); BUNSPEC; } 
BgL_auxz00_6179 = BgL_new4239z00_1845; } } } 
return 
(obj_t)(BgL_auxz00_6179);} } } 
}



/* object->struct-struct-set!-app4275 */
obj_t BGl_objectzd2ze3structzd2structzd2setz12zd2app4275zf1zzcfa_info2z00(obj_t BgL_envz00_3697, obj_t BgL_obj4234z00_3698)
{ AN_OBJECT;
{ /* ./Cfa/cinfo2.scm 105 */
{ 
BgL_structzd2setz12zd2appz12_bglt BgL_obj4234z00_1829;
BgL_obj4234z00_1829 = 
(BgL_structzd2setz12zd2appz12_bglt)(BgL_obj4234z00_3698); 
{ 

{ /* ./Cfa/cinfo2.scm 105 */
obj_t BgL_res4235z00_1832;
{ /* ./Cfa/cinfo2.scm 105 */
obj_t BgL_nextzd2method4274zd2_1837;
BgL_nextzd2method4274zd2_1837 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj4234z00_1829), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_structzd2setz12zd2appz12zzcfa_info2z00); 
{ /* ./Cfa/cinfo2.scm 105 */
bool_t BgL_test5392z00_1838;
BgL_test5392z00_1838 = 
PROCEDUREP(BgL_nextzd2method4274zd2_1837); 
if(BgL_test5392z00_1838)
{ /* ./Cfa/cinfo2.scm 105 */
BgL_res4235z00_1832 = 
PROCEDURE_ENTRY(BgL_nextzd2method4274zd2_1837)(BgL_nextzd2method4274zd2_1837, 
(obj_t)(BgL_obj4234z00_1829), BEOA); }  else 
{ /* ./Cfa/cinfo2.scm 105 */
BgL_res4235z00_1832 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj4234z00_1829)); } } } 
{ /* ./Cfa/cinfo2.scm 105 */
obj_t BgL_aux4236z00_1833;
{ /* ./Cfa/cinfo2.scm 105 */
obj_t BgL_keyz00_2674;int BgL_lenz00_2675;
BgL_keyz00_2674 = 
CNST_TABLE_REF(((long)15)); 
BgL_lenz00_2675 = 
(int)(((long)1)); 
BgL_aux4236z00_1833 = 
make_struct(BgL_keyz00_2674, BgL_lenz00_2675, BUNSPEC); } 
{ /* ./Cfa/cinfo2.scm 105 */
BgL_approxz00_bglt BgL_arg5381z00_1835;
{ 
obj_t BgL_auxz00_6225;
{ /* ./Cfa/cinfo2.scm 105 */
BgL_objectz00_bglt BgL_auxz00_6226;
BgL_auxz00_6226 = 
(BgL_objectz00_bglt)(BgL_obj4234z00_1829); 
BgL_auxz00_6225 = 
BGL_OBJECT_WIDENING(BgL_auxz00_6226); } 
BgL_arg5381z00_1835 = 
(((BgL_structzd2setz12zd2appz12_bglt)CREF(BgL_auxz00_6225))->BgL_approxz00); } 
{ /* ./Cfa/cinfo2.scm 105 */
int BgL_kz00_2679;obj_t BgL_oz00_2680;
BgL_kz00_2679 = 
(int)(((long)0)); 
BgL_oz00_2680 = 
(obj_t)(BgL_arg5381z00_1835); 
STRUCT_SET(BgL_aux4236z00_1833, BgL_kz00_2679, BgL_oz00_2680); } } 
{ /* ./Cfa/cinfo2.scm 105 */
int BgL_kz00_2682;
BgL_kz00_2682 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res4235z00_1832, BgL_kz00_2682, BgL_aux4236z00_1833); } 
{ /* ./Cfa/cinfo2.scm 105 */
obj_t BgL_arg5386z00_1836;
BgL_arg5386z00_1836 = 
STRUCT_KEY(BgL_res4235z00_1832); 
STRUCT_KEY_SET(BgL_aux4236z00_1833, BgL_arg5386z00_1836); } 
{ /* ./Cfa/cinfo2.scm 105 */
obj_t BgL_kz00_2689;
BgL_kz00_2689 = 
CNST_TABLE_REF(((long)15)); 
STRUCT_KEY_SET(BgL_res4235z00_1832, BgL_kz00_2689); } 
return BgL_res4235z00_1832;} } } } } 
}



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

