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

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

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

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

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

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

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

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

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

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

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

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


extern obj_t BGl_vrefz00zzast_nodez00;
static obj_t BGl_methodzd2initzd2zzcfa_vectorz00();
BGL_IMPORT obj_t open_input_string(obj_t);
BGL_IMPORT long BGl_classzd2numzd2zz__objectz00(obj_t);
static obj_t BGl_cfaz12zd2vlengthzf2Cinfo4590z32zzcfa_vectorz00(obj_t, obj_t);
extern BgL_approxz00_bglt BGl_loosez12z12zzcfa_loosez00(BgL_approxz00_bglt, obj_t);
extern obj_t BGl_vlengthzf2Cinfozf2zzcfa_info3z00;
static obj_t BGl_cfaz12zd2makezd2vectorzd2app4584zc0zzcfa_vectorz00(obj_t, obj_t);
extern obj_t BGl_wideningzd2vsetz12zf2Cinfoz32zzcfa_info3z00(BgL_approxz00_bglt, bool_t);
extern BgL_approxz00_bglt BGl_unionzd2approxz12zc0zzcfa_approxz00(BgL_approxz00_bglt, BgL_approxz00_bglt);
extern BgL_approxz00_bglt BGl_makezd2emptyzd2approxz00zzcfa_approxz00();
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl_cfaz12zd2valloczf2Cinfozb2optim4586z80zzcfa_vectorz00(obj_t, obj_t);
static obj_t BGl_cfaz12zd2valloczf2Cinfo4588z32zzcfa_vectorz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_vectorzd2optimzf3z21zzcfa_vectorz00();
extern obj_t BGl_vrefzf2Cinfozf2zzcfa_info3z00;
extern obj_t BGl_valloczf2Cinfozf2zzcfa_info3z00;
static obj_t BGl_nodezd2setupz12zd2vlength4578z12zzcfa_vectorz00(obj_t, obj_t);
extern obj_t BGl_za2_za2z00zztype_cachez00;
extern obj_t BGl_za2cfazd2stampza2zd2zzcfa_iteratez00;
extern BgL_approxz00_bglt BGl_makezd2typezd2alloczd2approxzd2zzcfa_approxz00(BgL_typez00_bglt, BgL_nodez00_bglt);
BGL_IMPORT obj_t BGl_za2classesza2z00zz__objectz00;
extern obj_t BGl_wideningzd2vrefzf2Cinfoz20zzcfa_info3z00(BgL_approxz00_bglt, bool_t);
static obj_t BGl__vectorzd2optimzf3z21zzcfa_vectorz00(obj_t);
extern obj_t BGl_prezd2makezd2vectorzd2appzd2zzcfa_info2z00;
static obj_t BGl_cnstzd2initzd2zzcfa_vectorz00();
extern obj_t BGl_prezd2valloczf2Cinfoz20zzcfa_info3z00;
extern obj_t BGl_za2unspecza2z00zztype_cachez00;
static obj_t BGl_importedzd2moduleszd2initz00zzcfa_vectorz00();
static obj_t BGl_nodezd2setupz12zd2valloc4576z12zzcfa_vectorz00(obj_t, obj_t);
static obj_t BGl_loosezd2allocz12zd2valloczf2Cinfozb2optim4598z52zzcfa_vectorz00(obj_t, obj_t);
static obj_t BGl_cfaz12zd2vsetz12zf2Cinfo4594z20zzcfa_vectorz00(obj_t, obj_t);
extern obj_t BGl_wideningzd2makezd2vectorzd2appzd2zzcfa_info2z00(BgL_approxz00_bglt, BgL_approxz00_bglt, long, BgL_variablez00_bglt, obj_t, bool_t);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
extern BgL_approxz00_bglt BGl_cfaz12z12zzcfa_cfaz00(BgL_nodez00_bglt);
static obj_t BGl_loosezd2allocz12zd2makezd2vectorzd2app4596z12zzcfa_vectorz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza35830ze3z83zzcfa_vectorz00(obj_t, obj_t);
extern obj_t BGl_vallocz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzcfa_vectorz00();
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzcfa_vectorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(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_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_infoz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_info2z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_info3z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_loosez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_iteratez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_cfaz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_setupz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_approxz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_tvectorz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
extern obj_t BGl_vsetz12zf2Cinfoze0zzcfa_info3z00;
extern obj_t BGl_nodezd2setupz12zc0zzcfa_setupz00(BgL_nodez00_bglt);
extern obj_t BGl_approxzd2setzd2topz12z12zzcfa_approxz00(BgL_approxz00_bglt);
static obj_t BGl_nodezd2setupz12zd2prezd2valloczf2Cinfo4574z32zzcfa_vectorz00(obj_t, obj_t);
extern obj_t BGl_za2vectorza2z00zztype_cachez00;
extern BgL_approxz00_bglt BGl_makezd2typezd2approxz00zzcfa_approxz00(BgL_typez00_bglt);
extern obj_t BGl_wideningzd2valloczf2Cinfoz20zzcfa_info3z00(BgL_approxz00_bglt);
static obj_t BGl_cfaz12zd2vrefzf2Cinfo4592z32zzcfa_vectorz00(obj_t, obj_t);
extern obj_t BGl_za2optimza2z00zzengine_paramz00;
static obj_t BGl_nodezd2setupz12zd2vsetz124582z00zzcfa_vectorz00(obj_t, obj_t);
extern obj_t BGl_nodezd2setupza2z12z62zzcfa_setupz00(obj_t);
extern obj_t BGl_makezd2vectorzd2appz00zzcfa_info2z00;
extern obj_t BGl_forzd2eachzd2approxzd2alloczd2zzcfa_approxz00(obj_t, BgL_approxz00_bglt);
extern obj_t BGl_wideningzd2valloczf2Cinfozb2optimz92zzcfa_info3z00(BgL_approxz00_bglt, BgL_approxz00_bglt, long, BgL_variablez00_bglt, bool_t, obj_t, bool_t);
extern obj_t BGl_valloczf2Cinfozb2optimz40zzcfa_info3z00;
extern obj_t BGl_approxzd2setzd2typez12z12zzcfa_approxz00(BgL_approxz00_bglt, BgL_typez00_bglt);
extern obj_t BGl_vlengthz00zzast_nodez00;
extern obj_t BGl_za2objza2z00zztype_cachez00;
extern obj_t BGl_addzd2makezd2vectorz12z12zzcfa_tvectorz00(BgL_nodez00_bglt);
extern obj_t BGl_wideningzd2vlengthzf2Cinfoz20zzcfa_info3z00(BgL_approxz00_bglt, bool_t);
static obj_t BGl_requirezd2initializa7ationz75zzcfa_vectorz00 = BUNSPEC;
static obj_t BGl_nodezd2setupz12zd2prezd2makezd2vectorzd2app4572zc0zzcfa_vectorz00(obj_t, obj_t);
static obj_t BGl_nodezd2setupz12zd2vref4580z12zzcfa_vectorz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_classzd2superzd2zz__objectz00(obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzcfa_vectorz00();
extern obj_t BGl_vsetz12z12zzast_nodez00;
static obj_t BGl_zc3anonymousza35756ze3z83zzcfa_vectorz00(obj_t, obj_t);
static obj_t __cnst[ 2 ] ;


DEFINE_STRING( BGl_string6184z00zzcfa_vectorz00, BgL_bgl_string6184za700za7za7cfa_vectorza7006210z00, "all nothing ", 12 );
extern obj_t BGl_cfaz12zd2envzc0zzcfa_cfaz00;
DEFINE_STATIC_PROCEDURE( BGl_proc6170z00zzcfa_vectorz00, BgL_bgl_nodeza7d2setupza712za7d2preza7d2makeza7d2vectorza7d2app4572za7c0za7za7cfa_vectorza7006211z00, BGl_nodezd2setupz12zd2prezd2makezd2vectorzd2app4572zc0zzcfa_vectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6171z00zzcfa_vectorz00, BgL_bgl_nodeza7d2setupza712za7d2preza7d2vallocza7f2cinfo4574za732za7za7cfa_vectorza7006212za7, BGl_nodezd2setupz12zd2prezd2valloczf2Cinfo4574z32zzcfa_vectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6172z00zzcfa_vectorz00, BgL_bgl_nodeza7d2setupza712za7d2valloc4576za712za7za7cfa_vectorza7006213za7, BGl_nodezd2setupz12zd2valloc4576z12zzcfa_vectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6173z00zzcfa_vectorz00, BgL_bgl_nodeza7d2setupza712za7d2vlength4578za712za7za7cfa_vectorza7006214za7, BGl_nodezd2setupz12zd2vlength4578z12zzcfa_vectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6174z00zzcfa_vectorz00, BgL_bgl_nodeza7d2setupza712za7d2vref4580za712za7za7cfa_vectorza7006215za7, BGl_nodezd2setupz12zd2vref4580z12zzcfa_vectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6175z00zzcfa_vectorz00, BgL_bgl_nodeza7d2setupza712za7d2vsetza7124582za700za7za7cfa_vectorza7006216z00, BGl_nodezd2setupz12zd2vsetz124582z00zzcfa_vectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6176z00zzcfa_vectorz00, BgL_bgl_cfaza712za7d2makeza7d2vectorza7d2app4584za7c0za7za7cfa_vectorza7006217z00, BGl_cfaz12zd2makezd2vectorzd2app4584zc0zzcfa_vectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6177z00zzcfa_vectorz00, BgL_bgl_cfaza712za7d2vallocza7f2cinfoza7b2optim4586za780za7za7cfa_vectorza7006218z00, BGl_cfaz12zd2valloczf2Cinfozb2optim4586z80zzcfa_vectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6178z00zzcfa_vectorz00, BgL_bgl_cfaza712za7d2vallocza7f2cinfo4588za732za7za7cfa_vectorza7006219za7, BGl_cfaz12zd2valloczf2Cinfo4588z32zzcfa_vectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6180z00zzcfa_vectorz00, BgL_bgl_cfaza712za7d2vrefza7f2cinfo4592za732za7za7cfa_vectorza7006220za7, BGl_cfaz12zd2vrefzf2Cinfo4592z32zzcfa_vectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6179z00zzcfa_vectorz00, BgL_bgl_cfaza712za7d2vlengthza7f2cinfo4590za732za7za7cfa_vectorza7006221za7, BGl_cfaz12zd2vlengthzf2Cinfo4590z32zzcfa_vectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6181z00zzcfa_vectorz00, BgL_bgl_cfaza712za7d2vsetza712za7f2cinfo4594za720za7za7cfa_vectorza7006222z00, BGl_cfaz12zd2vsetz12zf2Cinfo4594z20zzcfa_vectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6182z00zzcfa_vectorz00, BgL_bgl_looseza7d2allocza712za7d2makeza7d2vectorza7d2app4596za712za7za7cfa_vectorza7006223za7, BGl_loosezd2allocz12zd2makezd2vectorzd2app4596z12zzcfa_vectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6183z00zzcfa_vectorz00, BgL_bgl_looseza7d2allocza712za7d2vallocza7f2cinfoza7b2optim4598za752za7za7cfa_vectorza7006224za7, BGl_loosezd2allocz12zd2valloczf2Cinfozb2optim4598z52zzcfa_vectorz00, 0L, 1 );
extern obj_t BGl_nodezd2setupz12zd2envz12zzcfa_setupz00;
extern obj_t BGl_loosezd2allocz12zd2envz12zzcfa_loosez00;
DEFINE_EXPORT_PROCEDURE( BGl_vectorzd2optimzf3zd2envzf3zzcfa_vectorz00, BgL_bgl__vectorza7d2optimza7f3za721za7za7cfa_vectorza7006225z00, BGl__vectorzd2optimzf3z21zzcfa_vectorz00, 0L, 0 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzcfa_vectorz00(long BgL_checksumz00_2051, char * BgL_fromz00_2052)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzcfa_vectorz00))
{ 
BGl_requirezd2initializa7ationz75zzcfa_vectorz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzcfa_vectorz00(); 
BGl_cnstzd2initzd2zzcfa_vectorz00(); 
BGl_importedzd2moduleszd2initz00zzcfa_vectorz00(); 
BGl_methodzd2initzd2zzcfa_vectorz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzcfa_vectorz00()
{ AN_OBJECT;
{ /* ./Cfa/vector.scm 17 */
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "cfa_vector"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "cfa_vector"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzcfa_vectorz00()
{ AN_OBJECT;
{ /* ./Cfa/vector.scm 17 */
{ /* ./Cfa/vector.scm 17 */
obj_t BgL_cportz00_2044;
BgL_cportz00_2044 = 
open_input_string(BGl_string6184z00zzcfa_vectorz00); 
{ 
long BgL_iz00_2045;
BgL_iz00_2045 = ((long)1); 
BgL_loopz00_2046:
{ /* ./Cfa/vector.scm 17 */
bool_t BgL_test6186z00_2047;
BgL_test6186z00_2047 = 
(BgL_iz00_2045==((long)-1)); 
if(BgL_test6186z00_2047)
{ /* ./Cfa/vector.scm 17 */
return BUNSPEC;}  else 
{ /* ./Cfa/vector.scm 17 */
{ /* ./Cfa/vector.scm 17 */
obj_t BgL_arg6188z00_2048;
{ /* ./Cfa/vector.scm 17 */
obj_t BgL_list6191z00_2049;
BgL_list6191z00_2049 = 
MAKE_PAIR(BgL_cportz00_2044, BNIL); 
BgL_arg6188z00_2048 = 
BGl_readz00zz__readerz00(BgL_list6191z00_2049); } 
{ /* ./Cfa/vector.scm 17 */
int BgL_auxz00_2067;
BgL_auxz00_2067 = 
(int)(BgL_iz00_2045); 
CNST_TABLE_SET(BgL_auxz00_2067, BgL_arg6188z00_2048); } } 
{ /* ./Cfa/vector.scm 17 */
int BgL_auxz00_2050;
{ /* ./Cfa/vector.scm 17 */
long BgL_auxz00_2070;
BgL_auxz00_2070 = 
(BgL_iz00_2045-((long)1)); 
BgL_auxz00_2050 = 
(int)(BgL_auxz00_2070); } 
{ 
long BgL_iz00_2073;
BgL_iz00_2073 = 
(long)(BgL_auxz00_2050); 
BgL_iz00_2045 = BgL_iz00_2073; 
goto BgL_loopz00_2046;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzcfa_vectorz00()
{ AN_OBJECT;
{ /* ./Cfa/vector.scm 17 */
return BUNSPEC;} 
}



/* vector-optim? */
BGL_EXPORTED_DEF bool_t BGl_vectorzd2optimzf3z21zzcfa_vectorz00()
{ AN_OBJECT;
{ /* ./Cfa/vector.scm 40 */
{ /* ./Cfa/vector.scm 41 */
long BgL_n1z00_1821;
BgL_n1z00_1821 = 
(long)CINT(BGl_za2optimza2z00zzengine_paramz00); 
return 
(BgL_n1z00_1821>=((long)2));} } 
}



/* _vector-optim? */
obj_t BGl__vectorzd2optimzf3z21zzcfa_vectorz00(obj_t BgL_envz00_1987)
{ AN_OBJECT;
{ /* ./Cfa/vector.scm 40 */
{ /* ./Cfa/vector.scm 41 */
bool_t BgL_auxz00_2077;
BgL_auxz00_2077 = 
BGl_vectorzd2optimzf3z21zzcfa_vectorz00(); 
return 
BBOOL(BgL_auxz00_2077);} } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzcfa_vectorz00()
{ AN_OBJECT;
{ /* ./Cfa/vector.scm 17 */
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2setupz12zd2envz12zzcfa_setupz00, BGl_prezd2makezd2vectorzd2appzd2zzcfa_info2z00, BGl_proc6170z00zzcfa_vectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2setupz12zd2envz12zzcfa_setupz00, BGl_prezd2valloczf2Cinfoz20zzcfa_info3z00, BGl_proc6171z00zzcfa_vectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2setupz12zd2envz12zzcfa_setupz00, BGl_vallocz00zzast_nodez00, BGl_proc6172z00zzcfa_vectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2setupz12zd2envz12zzcfa_setupz00, BGl_vlengthz00zzast_nodez00, BGl_proc6173z00zzcfa_vectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2setupz12zd2envz12zzcfa_setupz00, BGl_vrefz00zzast_nodez00, BGl_proc6174z00zzcfa_vectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2setupz12zd2envz12zzcfa_setupz00, BGl_vsetz12z12zzast_nodez00, BGl_proc6175z00zzcfa_vectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_makezd2vectorzd2appz00zzcfa_info2z00, BGl_proc6176z00zzcfa_vectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_valloczf2Cinfozb2optimz40zzcfa_info3z00, BGl_proc6177z00zzcfa_vectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_valloczf2Cinfozf2zzcfa_info3z00, BGl_proc6178z00zzcfa_vectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_vlengthzf2Cinfozf2zzcfa_info3z00, BGl_proc6179z00zzcfa_vectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_vrefzf2Cinfozf2zzcfa_info3z00, BGl_proc6180z00zzcfa_vectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_vsetz12zf2Cinfoze0zzcfa_info3z00, BGl_proc6181z00zzcfa_vectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_loosezd2allocz12zd2envz12zzcfa_loosez00, BGl_makezd2vectorzd2appz00zzcfa_info2z00, BGl_proc6182z00zzcfa_vectorz00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_loosezd2allocz12zd2envz12zzcfa_loosez00, BGl_valloczf2Cinfozb2optimz40zzcfa_info3z00, BGl_proc6183z00zzcfa_vectorz00);} 
}



/* loose-alloc!-valloc/Cinfo+optim4598 */
obj_t BGl_loosezd2allocz12zd2valloczf2Cinfozb2optim4598z52zzcfa_vectorz00(obj_t BgL_envz00_2006, obj_t BgL_allocz00_2007)
{ AN_OBJECT;
{ /* ./Cfa/vector.scm 282 */
{ 
BgL_valloczf2cinfozb2optimz40_bglt BgL_allocz00_1810;
BgL_allocz00_1810 = 
(BgL_valloczf2cinfozb2optimz40_bglt)(BgL_allocz00_2007); 
{ /* ./Cfa/vector.scm 284 */
bool_t BgL_test5895z00_1814;
{ /* ./Cfa/vector.scm 284 */
long BgL_arg5910z00_1818;
{ 
obj_t BgL_auxz00_2094;
{ /* ./Cfa/vector.scm 284 */
BgL_objectz00_bglt BgL_auxz00_2095;
BgL_auxz00_2095 = 
(BgL_objectz00_bglt)(BgL_allocz00_1810); 
BgL_auxz00_2094 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2095); } 
BgL_arg5910z00_1818 = 
(((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_auxz00_2094))->BgL_lostzd2stampzd2); } 
{ /* ./Cfa/vector.scm 284 */
long BgL_n2z00_1981;
BgL_n2z00_1981 = 
(long)CINT(BGl_za2cfazd2stampza2zd2zzcfa_iteratez00); 
BgL_test5895z00_1814 = 
(BgL_arg5910z00_1818==BgL_n2z00_1981); } } 
if(BgL_test5895z00_1814)
{ /* ./Cfa/vector.scm 284 */
return BUNSPEC;}  else 
{ /* ./Cfa/vector.scm 284 */
{ /* ./Cfa/vector.scm 289 */
long BgL_val4492z00_1983;
BgL_val4492z00_1983 = 
(long)CINT(BGl_za2cfazd2stampza2zd2zzcfa_iteratez00); 
{ 
obj_t BgL_auxz00_2103;
{ /* ./Cfa/vector.scm 289 */
BgL_objectz00_bglt BgL_auxz00_2104;
BgL_auxz00_2104 = 
(BgL_objectz00_bglt)(BgL_allocz00_1810); 
BgL_auxz00_2103 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2104); } 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_auxz00_2103))->BgL_lostzd2stampzd2) = ((long)BgL_val4492z00_1983), BUNSPEC); } } 
{ /* ./Cfa/vector.scm 290 */
BgL_approxz00_bglt BgL_arg5898z00_1815;
{ 
obj_t BgL_auxz00_2108;
{ /* ./Cfa/vector.scm 290 */
BgL_objectz00_bglt BgL_auxz00_2109;
BgL_auxz00_2109 = 
(BgL_objectz00_bglt)(BgL_allocz00_1810); 
BgL_auxz00_2108 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2109); } 
BgL_arg5898z00_1815 = 
(((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_auxz00_2108))->BgL_valuezd2approxzd2); } 
BGl_forzd2eachzd2approxzd2alloczd2zzcfa_approxz00(BGl_loosezd2allocz12zd2envz12zzcfa_loosez00, BgL_arg5898z00_1815); } 
{ /* ./Cfa/vector.scm 291 */
BgL_approxz00_bglt BgL_arg5902z00_1816;
{ 
obj_t BgL_auxz00_2114;
{ /* ./Cfa/vector.scm 291 */
BgL_objectz00_bglt BgL_auxz00_2115;
BgL_auxz00_2115 = 
(BgL_objectz00_bglt)(BgL_allocz00_1810); 
BgL_auxz00_2114 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2115); } 
BgL_arg5902z00_1816 = 
(((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_auxz00_2114))->BgL_valuezd2approxzd2); } 
BGl_approxzd2setzd2typez12z12zzcfa_approxz00(BgL_arg5902z00_1816, 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00)); } 
{ /* ./Cfa/vector.scm 292 */
BgL_approxz00_bglt BgL_arg5906z00_1817;
{ 
obj_t BgL_auxz00_2121;
{ /* ./Cfa/vector.scm 292 */
BgL_objectz00_bglt BgL_auxz00_2122;
BgL_auxz00_2122 = 
(BgL_objectz00_bglt)(BgL_allocz00_1810); 
BgL_auxz00_2121 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2122); } 
BgL_arg5906z00_1817 = 
(((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_auxz00_2121))->BgL_valuezd2approxzd2); } 
return 
BGl_approxzd2setzd2topz12z12zzcfa_approxz00(BgL_arg5906z00_1817);} } } } } 
}



/* loose-alloc!-make-vector-app4596 */
obj_t BGl_loosezd2allocz12zd2makezd2vectorzd2app4596z12zzcfa_vectorz00(obj_t BgL_envz00_2008, obj_t BgL_allocz00_2009)
{ AN_OBJECT;
{ /* ./Cfa/vector.scm 264 */
{ 
BgL_makezd2vectorzd2appz00_bglt BgL_allocz00_1799;
BgL_allocz00_1799 = 
(BgL_makezd2vectorzd2appz00_bglt)(BgL_allocz00_2009); 
{ /* ./Cfa/vector.scm 266 */
bool_t BgL_test5871z00_1803;
{ /* ./Cfa/vector.scm 266 */
long BgL_arg5886z00_1807;
{ 
obj_t BgL_auxz00_2128;
{ /* ./Cfa/vector.scm 266 */
BgL_objectz00_bglt BgL_auxz00_2129;
BgL_auxz00_2129 = 
(BgL_objectz00_bglt)(BgL_allocz00_1799); 
BgL_auxz00_2128 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2129); } 
BgL_arg5886z00_1807 = 
(((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_auxz00_2128))->BgL_lostzd2stampzd2); } 
{ /* ./Cfa/vector.scm 266 */
long BgL_n2z00_1973;
BgL_n2z00_1973 = 
(long)CINT(BGl_za2cfazd2stampza2zd2zzcfa_iteratez00); 
BgL_test5871z00_1803 = 
(BgL_arg5886z00_1807==BgL_n2z00_1973); } } 
if(BgL_test5871z00_1803)
{ /* ./Cfa/vector.scm 266 */
return BUNSPEC;}  else 
{ /* ./Cfa/vector.scm 266 */
{ /* ./Cfa/vector.scm 270 */
long BgL_val3855z00_1975;
BgL_val3855z00_1975 = 
(long)CINT(BGl_za2cfazd2stampza2zd2zzcfa_iteratez00); 
{ 
obj_t BgL_auxz00_2137;
{ /* ./Cfa/vector.scm 270 */
BgL_objectz00_bglt BgL_auxz00_2138;
BgL_auxz00_2138 = 
(BgL_objectz00_bglt)(BgL_allocz00_1799); 
BgL_auxz00_2137 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2138); } 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_auxz00_2137))->BgL_lostzd2stampzd2) = ((long)BgL_val3855z00_1975), BUNSPEC); } } 
{ /* ./Cfa/vector.scm 271 */
BgL_approxz00_bglt BgL_arg5874z00_1804;
{ 
obj_t BgL_auxz00_2142;
{ /* ./Cfa/vector.scm 271 */
BgL_objectz00_bglt BgL_auxz00_2143;
BgL_auxz00_2143 = 
(BgL_objectz00_bglt)(BgL_allocz00_1799); 
BgL_auxz00_2142 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2143); } 
BgL_arg5874z00_1804 = 
(((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_auxz00_2142))->BgL_valuezd2approxzd2); } 
BGl_forzd2eachzd2approxzd2alloczd2zzcfa_approxz00(BGl_loosezd2allocz12zd2envz12zzcfa_loosez00, BgL_arg5874z00_1804); } 
{ /* ./Cfa/vector.scm 272 */
BgL_approxz00_bglt BgL_arg5878z00_1805;
{ 
obj_t BgL_auxz00_2148;
{ /* ./Cfa/vector.scm 272 */
BgL_objectz00_bglt BgL_auxz00_2149;
BgL_auxz00_2149 = 
(BgL_objectz00_bglt)(BgL_allocz00_1799); 
BgL_auxz00_2148 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2149); } 
BgL_arg5878z00_1805 = 
(((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_auxz00_2148))->BgL_valuezd2approxzd2); } 
BGl_approxzd2setzd2typez12z12zzcfa_approxz00(BgL_arg5878z00_1805, 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00)); } 
{ /* ./Cfa/vector.scm 273 */
BgL_approxz00_bglt BgL_arg5882z00_1806;
{ 
obj_t BgL_auxz00_2155;
{ /* ./Cfa/vector.scm 273 */
BgL_objectz00_bglt BgL_auxz00_2156;
BgL_auxz00_2156 = 
(BgL_objectz00_bglt)(BgL_allocz00_1799); 
BgL_auxz00_2155 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2156); } 
BgL_arg5882z00_1806 = 
(((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_auxz00_2155))->BgL_valuezd2approxzd2); } 
return 
BGl_approxzd2setzd2topz12z12zzcfa_approxz00(BgL_arg5882z00_1806);} } } } } 
}



/* cfa!-vset!/Cinfo4594 */
obj_t BGl_cfaz12zd2vsetz12zf2Cinfo4594z20zzcfa_vectorz00(obj_t BgL_envz00_2010, obj_t BgL_nodez00_2011)
{ AN_OBJECT;
{ /* ./Cfa/vector.scm 219 */
{ 
BgL_vsetz12zf2cinfoze0_bglt BgL_nodez00_1770;
{ /* ./Cfa/vector.scm 220 */
BgL_approxz00_bglt BgL_auxz00_2162;
BgL_nodez00_1770 = 
(BgL_vsetz12zf2cinfoze0_bglt)(BgL_nodez00_2011); 
{ /* ./Cfa/vector.scm 223 */
obj_t BgL_arg5811z00_1774;
{ /* ./Cfa/vector.scm 223 */
obj_t BgL_auxz00_2163;
{ /* ./Cfa/vector.scm 223 */
obj_t BgL_auxz00_2164;
{ /* ./Cfa/vector.scm 223 */
BgL_externz00_bglt BgL_obj1817z00_1943;
BgL_obj1817z00_1943 = 
(BgL_externz00_bglt)(BgL_nodez00_1770); 
BgL_auxz00_2164 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1943))->BgL_exprza2za2); } 
BgL_auxz00_2163 = 
CDR(BgL_auxz00_2164); } 
BgL_arg5811z00_1774 = 
CAR(BgL_auxz00_2163); } 
BGl_cfaz12z12zzcfa_cfaz00(
(BgL_nodez00_bglt)(BgL_arg5811z00_1774)); } 
{ /* ./Cfa/vector.scm 224 */
BgL_approxz00_bglt BgL_veczd2approxzd2_1776;BgL_approxz00_bglt BgL_valzd2approxzd2_1777;
{ /* ./Cfa/vector.scm 224 */
obj_t BgL_arg5851z00_1793;
{ /* ./Cfa/vector.scm 224 */
obj_t BgL_auxz00_2171;
{ /* ./Cfa/vector.scm 224 */
BgL_externz00_bglt BgL_obj1817z00_1948;
BgL_obj1817z00_1948 = 
(BgL_externz00_bglt)(BgL_nodez00_1770); 
BgL_auxz00_2171 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1948))->BgL_exprza2za2); } 
BgL_arg5851z00_1793 = 
CAR(BgL_auxz00_2171); } 
BgL_veczd2approxzd2_1776 = 
BGl_cfaz12z12zzcfa_cfaz00(
(BgL_nodez00_bglt)(BgL_arg5851z00_1793)); } 
{ /* ./Cfa/vector.scm 225 */
obj_t BgL_arg5858z00_1795;
{ /* ./Cfa/vector.scm 225 */
obj_t BgL_auxz00_2177;
{ /* ./Cfa/vector.scm 225 */
obj_t BgL_auxz00_2178;
{ /* ./Cfa/vector.scm 225 */
obj_t BgL_auxz00_2179;
{ /* ./Cfa/vector.scm 225 */
BgL_externz00_bglt BgL_obj1817z00_1950;
BgL_obj1817z00_1950 = 
(BgL_externz00_bglt)(BgL_nodez00_1770); 
BgL_auxz00_2179 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1950))->BgL_exprza2za2); } 
BgL_auxz00_2178 = 
CDR(BgL_auxz00_2179); } 
BgL_auxz00_2177 = 
CDR(BgL_auxz00_2178); } 
BgL_arg5858z00_1795 = 
CAR(BgL_auxz00_2177); } 
BgL_valzd2approxzd2_1777 = 
BGl_cfaz12z12zzcfa_cfaz00(
(BgL_nodez00_bglt)(BgL_arg5858z00_1795)); } 
{ /* ./Cfa/vector.scm 227 */
bool_t BgL_test5817z00_1778;
{ 
obj_t BgL_auxz00_2187;
{ /* ./Cfa/vector.scm 227 */
BgL_objectz00_bglt BgL_auxz00_2188;
BgL_auxz00_2188 = 
(BgL_objectz00_bglt)(BgL_nodez00_1770); 
BgL_auxz00_2187 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2188); } 
BgL_test5817z00_1778 = 
(((BgL_vsetz12zf2cinfoze0_bglt)CREF(BgL_auxz00_2187))->BgL_tvectorzf3zf3); } 
if(BgL_test5817z00_1778)
{ /* ./Cfa/vector.scm 227 */
CNST_TABLE_REF(((long)0)); }  else 
{ /* ./Cfa/vector.scm 229 */
bool_t BgL_test5818z00_1779;
{ /* ./Cfa/vector.scm 229 */
long BgL_n1z00_1958;
BgL_n1z00_1958 = 
(long)CINT(BGl_za2optimza2z00zzengine_paramz00); 
BgL_test5818z00_1779 = 
(BgL_n1z00_1958>=((long)2)); } 
if(BgL_test5818z00_1779)
{ /* ./Cfa/vector.scm 229 */
{ /* ./Cfa/vector.scm 233 */
bool_t BgL_test5819z00_1780;
{ /* ./Cfa/vector.scm 233 */
BgL_typez00_bglt BgL_arg5822z00_1781;
BgL_arg5822z00_1781 = 
(((BgL_approxz00_bglt)CREF(BgL_veczd2approxzd2_1776))->BgL_typez00); 
{ /* ./Cfa/vector.scm 233 */
obj_t BgL_auxz00_2198;
BgL_auxz00_2198 = 
(obj_t)(BgL_arg5822z00_1781); 
BgL_test5819z00_1780 = 
(BgL_auxz00_2198==BGl_za2vectorza2z00zztype_cachez00); } } 
if(BgL_test5819z00_1780)
{ /* ./Cfa/vector.scm 233 */BFALSE; }  else 
{ /* ./Cfa/vector.scm 233 */
BGl_approxzd2setzd2typez12z12zzcfa_approxz00(BgL_valzd2approxzd2_1777, 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00)); } } 
{ /* ./Cfa/vector.scm 236 */
bool_t BgL_test5825z00_1782;
BgL_test5825z00_1782 = 
(((BgL_approxz00_bglt)CREF(BgL_veczd2approxzd2_1776))->BgL_topzf3zf3); 
if(BgL_test5825z00_1782)
{ /* ./Cfa/vector.scm 238 */
BgL_approxz00_bglt BgL_auxz00_2206;
BgL_auxz00_2206 = 
BGl_loosez12z12zzcfa_loosez00(BgL_valzd2approxzd2_1777, 
CNST_TABLE_REF(((long)1))); 
(obj_t)(BgL_auxz00_2206); }  else 
{ /* ./Cfa/vector.scm 243 */
obj_t BgL_zc3anonymousza35830ze3z83_1992;
{ 
int BgL_auxz00_2212;int BgL_auxz00_2210;
BgL_auxz00_2212 = 
(int)(((long)1)); 
BgL_auxz00_2210 = 
(int)(((long)1)); 
BgL_zc3anonymousza35830ze3z83_1992 = 
make_fx_procedure(BGl_zc3anonymousza35830ze3z83zzcfa_vectorz00, BgL_auxz00_2210, BgL_auxz00_2212); } 
{ /* ./Cfa/vector.scm 243 */
obj_t BgL_auxz00_2217;int BgL_auxz00_2215;
BgL_auxz00_2217 = 
(obj_t)(BgL_valzd2approxzd2_1777); 
BgL_auxz00_2215 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza35830ze3z83_1992, BgL_auxz00_2215, BgL_auxz00_2217); } 
BGl_forzd2eachzd2approxzd2alloczd2zzcfa_approxz00(BgL_zc3anonymousza35830ze3z83_1992, BgL_veczd2approxzd2_1776); } } }  else 
{ /* ./Cfa/vector.scm 229 */
BGl_loosez12z12zzcfa_loosez00(BgL_veczd2approxzd2_1776, 
CNST_TABLE_REF(((long)1))); 
{ /* ./Cfa/vector.scm 254 */
BgL_approxz00_bglt BgL_auxz00_2223;
BgL_auxz00_2223 = 
BGl_loosez12z12zzcfa_loosez00(BgL_valzd2approxzd2_1777, 
CNST_TABLE_REF(((long)1))); 
(obj_t)(BgL_auxz00_2223); } } } } } 
{ 
obj_t BgL_auxz00_2227;
{ /* ./Cfa/vector.scm 255 */
BgL_objectz00_bglt BgL_auxz00_2228;
BgL_auxz00_2228 = 
(BgL_objectz00_bglt)(BgL_nodez00_1770); 
BgL_auxz00_2227 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2228); } 
BgL_auxz00_2162 = 
(((BgL_vsetz12zf2cinfoze0_bglt)CREF(BgL_auxz00_2227))->BgL_approxz00); } 
return 
(obj_t)(BgL_auxz00_2162);} } } 
}



/* <anonymous:5830> */
obj_t BGl_zc3anonymousza35830ze3z83zzcfa_vectorz00(obj_t BgL_envz00_2012, obj_t BgL_appz00_2014)
{ AN_OBJECT;
{ /* ./Cfa/vector.scm 241 */
{ /* ./Cfa/vector.scm 243 */
obj_t BgL_valzd2approxzd2_2013;
{ /* ./Cfa/vector.scm 243 */
int BgL_auxz00_2234;
BgL_auxz00_2234 = 
(int)(((long)0)); 
BgL_valzd2approxzd2_2013 = 
PROCEDURE_REF(BgL_envz00_2012, BgL_auxz00_2234); } 
{ 
obj_t BgL_appz00_1784;
BgL_appz00_1784 = BgL_appz00_2014; 
{ /* ./Cfa/vector.scm 243 */
bool_t BgL_test5831z00_1786;
BgL_test5831z00_1786 = 
BGl_iszd2azf3z21zz__objectz00(BgL_appz00_1784, BGl_makezd2vectorzd2appz00zzcfa_info2z00); 
if(BgL_test5831z00_1786)
{ /* ./Cfa/vector.scm 243 */
{ /* ./Cfa/vector.scm 245 */
BgL_makezd2vectorzd2appz00_bglt BgL_obj3863z00_1963;bool_t BgL_val3862z00_1964;
BgL_obj3863z00_1963 = 
(BgL_makezd2vectorzd2appz00_bglt)(BgL_appz00_1784); 
BgL_val3862z00_1964 = ((bool_t)1); 
{ 
obj_t BgL_auxz00_2240;
{ /* ./Cfa/vector.scm 245 */
BgL_objectz00_bglt BgL_auxz00_2241;
BgL_auxz00_2241 = 
(BgL_objectz00_bglt)(BgL_obj3863z00_1963); 
BgL_auxz00_2240 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2241); } 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_auxz00_2240))->BgL_seenzf3zf3) = ((bool_t)BgL_val3862z00_1964), BUNSPEC); } } 
{ /* ./Cfa/vector.scm 246 */
BgL_approxz00_bglt BgL_arg5834z00_1788;
{ /* ./Cfa/vector.scm 246 */
BgL_makezd2vectorzd2appz00_bglt BgL_obj3853z00_1965;
BgL_obj3853z00_1965 = 
(BgL_makezd2vectorzd2appz00_bglt)(BgL_appz00_1784); 
{ 
obj_t BgL_auxz00_2246;
{ /* ./Cfa/vector.scm 246 */
BgL_objectz00_bglt BgL_auxz00_2247;
BgL_auxz00_2247 = 
(BgL_objectz00_bglt)(BgL_obj3853z00_1965); 
BgL_auxz00_2246 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2247); } 
BgL_arg5834z00_1788 = 
(((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_auxz00_2246))->BgL_valuezd2approxzd2); } } 
{ /* ./Cfa/vector.scm 246 */
BgL_approxz00_bglt BgL_auxz00_2251;
BgL_auxz00_2251 = 
BGl_unionzd2approxz12zc0zzcfa_approxz00(BgL_arg5834z00_1788, 
(BgL_approxz00_bglt)(BgL_valzd2approxzd2_2013)); 
return 
(obj_t)(BgL_auxz00_2251);} } }  else 
{ /* ./Cfa/vector.scm 247 */
bool_t BgL_test5837z00_1789;
BgL_test5837z00_1789 = 
BGl_iszd2azf3z21zz__objectz00(BgL_appz00_1784, BGl_valloczf2Cinfozb2optimz40zzcfa_info3z00); 
if(BgL_test5837z00_1789)
{ /* ./Cfa/vector.scm 247 */
{ /* ./Cfa/vector.scm 249 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_obj4503z00_1967;bool_t BgL_val4502z00_1968;
BgL_obj4503z00_1967 = 
(BgL_valloczf2cinfozb2optimz40_bglt)(BgL_appz00_1784); 
BgL_val4502z00_1968 = ((bool_t)1); 
{ 
obj_t BgL_auxz00_2258;
{ /* ./Cfa/vector.scm 249 */
BgL_objectz00_bglt BgL_auxz00_2259;
BgL_auxz00_2259 = 
(BgL_objectz00_bglt)(BgL_obj4503z00_1967); 
BgL_auxz00_2258 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2259); } 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_auxz00_2258))->BgL_seenzf3zf3) = ((bool_t)BgL_val4502z00_1968), BUNSPEC); } } 
{ /* ./Cfa/vector.scm 250 */
BgL_approxz00_bglt BgL_arg5840z00_1791;
{ /* ./Cfa/vector.scm 250 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_obj4490z00_1969;
BgL_obj4490z00_1969 = 
(BgL_valloczf2cinfozb2optimz40_bglt)(BgL_appz00_1784); 
{ 
obj_t BgL_auxz00_2264;
{ /* ./Cfa/vector.scm 250 */
BgL_objectz00_bglt BgL_auxz00_2265;
BgL_auxz00_2265 = 
(BgL_objectz00_bglt)(BgL_obj4490z00_1969); 
BgL_auxz00_2264 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2265); } 
BgL_arg5840z00_1791 = 
(((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_auxz00_2264))->BgL_valuezd2approxzd2); } } 
{ /* ./Cfa/vector.scm 250 */
BgL_approxz00_bglt BgL_auxz00_2269;
BgL_auxz00_2269 = 
BGl_unionzd2approxz12zc0zzcfa_approxz00(BgL_arg5840z00_1791, 
(BgL_approxz00_bglt)(BgL_valzd2approxzd2_2013)); 
return 
(obj_t)(BgL_auxz00_2269);} } }  else 
{ /* ./Cfa/vector.scm 247 */
return BFALSE;} } } } } } 
}



/* cfa!-vref/Cinfo4592 */
obj_t BGl_cfaz12zd2vrefzf2Cinfo4592z32zzcfa_vectorz00(obj_t BgL_envz00_2015, obj_t BgL_nodez00_2016)
{ AN_OBJECT;
{ /* ./Cfa/vector.scm 175 */
{ 
BgL_vrefzf2cinfozf2_bglt BgL_nodez00_1733;
{ /* ./Cfa/vector.scm 176 */
BgL_approxz00_bglt BgL_auxz00_2273;
BgL_nodez00_1733 = 
(BgL_vrefzf2cinfozf2_bglt)(BgL_nodez00_2016); 
{ /* ./Cfa/vector.scm 179 */
obj_t BgL_arg5727z00_1737;
{ /* ./Cfa/vector.scm 179 */
obj_t BgL_auxz00_2274;
{ /* ./Cfa/vector.scm 179 */
obj_t BgL_auxz00_2275;
{ /* ./Cfa/vector.scm 179 */
BgL_externz00_bglt BgL_obj1817z00_1910;
BgL_obj1817z00_1910 = 
(BgL_externz00_bglt)(BgL_nodez00_1733); 
BgL_auxz00_2275 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1910))->BgL_exprza2za2); } 
BgL_auxz00_2274 = 
CDR(BgL_auxz00_2275); } 
BgL_arg5727z00_1737 = 
CAR(BgL_auxz00_2274); } 
BGl_cfaz12z12zzcfa_cfaz00(
(BgL_nodez00_bglt)(BgL_arg5727z00_1737)); } 
{ /* ./Cfa/vector.scm 180 */
BgL_approxz00_bglt BgL_veczd2approxzd2_1739;
{ /* ./Cfa/vector.scm 180 */
obj_t BgL_arg5798z00_1766;
{ /* ./Cfa/vector.scm 180 */
obj_t BgL_auxz00_2282;
{ /* ./Cfa/vector.scm 180 */
BgL_externz00_bglt BgL_obj1817z00_1915;
BgL_obj1817z00_1915 = 
(BgL_externz00_bglt)(BgL_nodez00_1733); 
BgL_auxz00_2282 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1915))->BgL_exprza2za2); } 
BgL_arg5798z00_1766 = 
CAR(BgL_auxz00_2282); } 
BgL_veczd2approxzd2_1739 = 
BGl_cfaz12z12zzcfa_cfaz00(
(BgL_nodez00_bglt)(BgL_arg5798z00_1766)); } 
{ /* ./Cfa/vector.scm 182 */
bool_t BgL_test5733z00_1740;
{ 
obj_t BgL_auxz00_2288;
{ /* ./Cfa/vector.scm 182 */
BgL_objectz00_bglt BgL_auxz00_2289;
BgL_auxz00_2289 = 
(BgL_objectz00_bglt)(BgL_nodez00_1733); 
BgL_auxz00_2288 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2289); } 
BgL_test5733z00_1740 = 
(((BgL_vrefzf2cinfozf2_bglt)CREF(BgL_auxz00_2288))->BgL_tvectorzf3zf3); } 
if(BgL_test5733z00_1740)
{ /* ./Cfa/vector.scm 182 */
{ /* ./Cfa/vector.scm 182 */
BgL_approxz00_bglt BgL_auxz00_2294;
{ 
obj_t BgL_auxz00_2295;
{ /* ./Cfa/vector.scm 182 */
BgL_objectz00_bglt BgL_auxz00_2296;
BgL_auxz00_2296 = 
(BgL_objectz00_bglt)(BgL_nodez00_1733); 
BgL_auxz00_2295 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2296); } 
BgL_auxz00_2294 = 
(((BgL_vrefzf2cinfozf2_bglt)CREF(BgL_auxz00_2295))->BgL_approxz00); } 
(obj_t)(BgL_auxz00_2294); } }  else 
{ /* ./Cfa/vector.scm 184 */
bool_t BgL_test5735z00_1741;
{ /* ./Cfa/vector.scm 184 */
long BgL_n1z00_1919;
BgL_n1z00_1919 = 
(long)CINT(BGl_za2optimza2z00zzengine_paramz00); 
BgL_test5735z00_1741 = 
(BgL_n1z00_1919>=((long)2)); } 
if(BgL_test5735z00_1741)
{ /* ./Cfa/vector.scm 184 */
{ /* ./Cfa/vector.scm 189 */
bool_t BgL_test5736z00_1742;
{ /* ./Cfa/vector.scm 189 */
bool_t BgL_test5741z00_1744;
{ /* ./Cfa/vector.scm 189 */
BgL_typez00_bglt BgL_arg5744z00_1745;
BgL_arg5744z00_1745 = 
(((BgL_approxz00_bglt)CREF(BgL_veczd2approxzd2_1739))->BgL_typez00); 
{ /* ./Cfa/vector.scm 189 */
obj_t BgL_auxz00_2305;
BgL_auxz00_2305 = 
(obj_t)(BgL_arg5744z00_1745); 
BgL_test5741z00_1744 = 
(BgL_auxz00_2305==BGl_za2vectorza2z00zztype_cachez00); } } 
if(BgL_test5741z00_1744)
{ /* ./Cfa/vector.scm 189 */
BgL_test5736z00_1742 = 
(((BgL_approxz00_bglt)CREF(BgL_veczd2approxzd2_1739))->BgL_topzf3zf3); }  else 
{ /* ./Cfa/vector.scm 189 */
BgL_test5736z00_1742 = ((bool_t)1); } } 
if(BgL_test5736z00_1742)
{ /* ./Cfa/vector.scm 191 */
BgL_approxz00_bglt BgL_arg5738z00_1743;
{ 
obj_t BgL_auxz00_2311;
{ /* ./Cfa/vector.scm 191 */
BgL_objectz00_bglt BgL_auxz00_2312;
BgL_auxz00_2312 = 
(BgL_objectz00_bglt)(BgL_nodez00_1733); 
BgL_auxz00_2311 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2312); } 
BgL_arg5738z00_1743 = 
(((BgL_vrefzf2cinfozf2_bglt)CREF(BgL_auxz00_2311))->BgL_approxz00); } 
BGl_approxzd2setzd2typez12z12zzcfa_approxz00(BgL_arg5738z00_1743, 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00)); }  else 
{ /* ./Cfa/vector.scm 189 */BFALSE; } } 
{ /* ./Cfa/vector.scm 193 */
bool_t BgL_test5747z00_1746;
BgL_test5747z00_1746 = 
(((BgL_approxz00_bglt)CREF(BgL_veczd2approxzd2_1739))->BgL_topzf3zf3); 
if(BgL_test5747z00_1746)
{ /* ./Cfa/vector.scm 194 */
BgL_approxz00_bglt BgL_arg5749z00_1747;
{ 
obj_t BgL_auxz00_2320;
{ /* ./Cfa/vector.scm 194 */
BgL_objectz00_bglt BgL_auxz00_2321;
BgL_auxz00_2321 = 
(BgL_objectz00_bglt)(BgL_nodez00_1733); 
BgL_auxz00_2320 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2321); } 
BgL_arg5749z00_1747 = 
(((BgL_vrefzf2cinfozf2_bglt)CREF(BgL_auxz00_2320))->BgL_approxz00); } 
BGl_approxzd2setzd2topz12z12zzcfa_approxz00(BgL_arg5749z00_1747); }  else 
{ /* ./Cfa/vector.scm 193 */BFALSE; } } 
{ /* ./Cfa/vector.scm 199 */
obj_t BgL_zc3anonymousza35756ze3z83_1994;
{ 
int BgL_auxz00_2328;int BgL_auxz00_2326;
BgL_auxz00_2328 = 
(int)(((long)1)); 
BgL_auxz00_2326 = 
(int)(((long)1)); 
BgL_zc3anonymousza35756ze3z83_1994 = 
make_fx_procedure(BGl_zc3anonymousza35756ze3z83zzcfa_vectorz00, BgL_auxz00_2326, BgL_auxz00_2328); } 
{ /* ./Cfa/vector.scm 199 */
obj_t BgL_auxz00_2333;int BgL_auxz00_2331;
BgL_auxz00_2333 = 
(obj_t)(BgL_nodez00_1733); 
BgL_auxz00_2331 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza35756ze3z83_1994, BgL_auxz00_2331, BgL_auxz00_2333); } 
BGl_forzd2eachzd2approxzd2alloczd2zzcfa_approxz00(BgL_zc3anonymousza35756ze3z83_1994, BgL_veczd2approxzd2_1739); } }  else 
{ /* ./Cfa/vector.scm 184 */
{ /* ./Cfa/vector.scm 213 */
BgL_approxz00_bglt BgL_auxz00_2337;
BgL_auxz00_2337 = 
BGl_loosez12z12zzcfa_loosez00(BgL_veczd2approxzd2_1739, 
CNST_TABLE_REF(((long)1))); 
(obj_t)(BgL_auxz00_2337); } } } } 
{ 
obj_t BgL_auxz00_2341;
{ /* ./Cfa/vector.scm 214 */
BgL_objectz00_bglt BgL_auxz00_2342;
BgL_auxz00_2342 = 
(BgL_objectz00_bglt)(BgL_nodez00_1733); 
BgL_auxz00_2341 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2342); } 
BgL_auxz00_2273 = 
(((BgL_vrefzf2cinfozf2_bglt)CREF(BgL_auxz00_2341))->BgL_approxz00); } } 
return 
(obj_t)(BgL_auxz00_2273);} } } 
}



/* <anonymous:5756> */
obj_t BGl_zc3anonymousza35756ze3z83zzcfa_vectorz00(obj_t BgL_envz00_2017, obj_t BgL_appz00_2019)
{ AN_OBJECT;
{ /* ./Cfa/vector.scm 197 */
{ /* ./Cfa/vector.scm 199 */
obj_t BgL_instance4555z00_2018;
{ /* ./Cfa/vector.scm 199 */
int BgL_auxz00_2348;
BgL_auxz00_2348 = 
(int)(((long)0)); 
BgL_instance4555z00_2018 = 
PROCEDURE_REF(BgL_envz00_2017, BgL_auxz00_2348); } 
{ 
obj_t BgL_appz00_1749;
BgL_appz00_1749 = BgL_appz00_2019; 
{ /* ./Cfa/vector.scm 199 */
bool_t BgL_test5757z00_1751;
BgL_test5757z00_1751 = 
BGl_iszd2azf3z21zz__objectz00(BgL_appz00_1749, BGl_makezd2vectorzd2appz00zzcfa_info2z00); 
if(BgL_test5757z00_1751)
{ /* ./Cfa/vector.scm 199 */
{ /* ./Cfa/vector.scm 201 */
BgL_makezd2vectorzd2appz00_bglt BgL_obj3863z00_1927;bool_t BgL_val3862z00_1928;
BgL_obj3863z00_1927 = 
(BgL_makezd2vectorzd2appz00_bglt)(BgL_appz00_1749); 
BgL_val3862z00_1928 = ((bool_t)1); 
{ 
obj_t BgL_auxz00_2354;
{ /* ./Cfa/vector.scm 201 */
BgL_objectz00_bglt BgL_auxz00_2355;
BgL_auxz00_2355 = 
(BgL_objectz00_bglt)(BgL_obj3863z00_1927); 
BgL_auxz00_2354 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2355); } 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_auxz00_2354))->BgL_seenzf3zf3) = ((bool_t)BgL_val3862z00_1928), BUNSPEC); } } 
{ /* ./Cfa/vector.scm 202 */
BgL_approxz00_bglt BgL_arg5760z00_1753;BgL_approxz00_bglt BgL_arg5761z00_1754;
{ /* ./Cfa/vector.scm 202 */
BgL_vrefzf2cinfozf2_bglt BgL_obj4269z00_1929;
BgL_obj4269z00_1929 = 
(BgL_vrefzf2cinfozf2_bglt)(BgL_instance4555z00_2018); 
{ 
obj_t BgL_auxz00_2360;
{ /* ./Cfa/vector.scm 202 */
BgL_objectz00_bglt BgL_auxz00_2361;
BgL_auxz00_2361 = 
(BgL_objectz00_bglt)(BgL_obj4269z00_1929); 
BgL_auxz00_2360 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2361); } 
BgL_arg5760z00_1753 = 
(((BgL_vrefzf2cinfozf2_bglt)CREF(BgL_auxz00_2360))->BgL_approxz00); } } 
{ /* ./Cfa/vector.scm 202 */
BgL_makezd2vectorzd2appz00_bglt BgL_obj3853z00_1930;
BgL_obj3853z00_1930 = 
(BgL_makezd2vectorzd2appz00_bglt)(BgL_appz00_1749); 
{ 
obj_t BgL_auxz00_2366;
{ /* ./Cfa/vector.scm 202 */
BgL_objectz00_bglt BgL_auxz00_2367;
BgL_auxz00_2367 = 
(BgL_objectz00_bglt)(BgL_obj3853z00_1930); 
BgL_auxz00_2366 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2367); } 
BgL_arg5761z00_1754 = 
(((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_auxz00_2366))->BgL_valuezd2approxzd2); } } 
BGl_unionzd2approxz12zc0zzcfa_approxz00(BgL_arg5760z00_1753, BgL_arg5761z00_1754); } 
{ /* ./Cfa/vector.scm 203 */
BgL_approxz00_bglt BgL_arg5766z00_1755;BgL_typez00_bglt BgL_arg5767z00_1756;
{ /* ./Cfa/vector.scm 203 */
BgL_makezd2vectorzd2appz00_bglt BgL_obj3853z00_1931;
BgL_obj3853z00_1931 = 
(BgL_makezd2vectorzd2appz00_bglt)(BgL_appz00_1749); 
{ 
obj_t BgL_auxz00_2373;
{ /* ./Cfa/vector.scm 203 */
BgL_objectz00_bglt BgL_auxz00_2374;
BgL_auxz00_2374 = 
(BgL_objectz00_bglt)(BgL_obj3853z00_1931); 
BgL_auxz00_2373 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2374); } 
BgL_arg5766z00_1755 = 
(((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_auxz00_2373))->BgL_valuezd2approxzd2); } } 
{ /* ./Cfa/vector.scm 204 */
BgL_approxz00_bglt BgL_arg5771z00_1757;
{ /* ./Cfa/vector.scm 204 */
BgL_vrefzf2cinfozf2_bglt BgL_obj4269z00_1932;
BgL_obj4269z00_1932 = 
(BgL_vrefzf2cinfozf2_bglt)(BgL_instance4555z00_2018); 
{ 
obj_t BgL_auxz00_2379;
{ /* ./Cfa/vector.scm 204 */
BgL_objectz00_bglt BgL_auxz00_2380;
BgL_auxz00_2380 = 
(BgL_objectz00_bglt)(BgL_obj4269z00_1932); 
BgL_auxz00_2379 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2380); } 
BgL_arg5771z00_1757 = 
(((BgL_vrefzf2cinfozf2_bglt)CREF(BgL_auxz00_2379))->BgL_approxz00); } } 
BgL_arg5767z00_1756 = 
(((BgL_approxz00_bglt)CREF(BgL_arg5771z00_1757))->BgL_typez00); } 
return 
BGl_approxzd2setzd2typez12z12zzcfa_approxz00(BgL_arg5766z00_1755, BgL_arg5767z00_1756);} }  else 
{ /* ./Cfa/vector.scm 205 */
bool_t BgL_test5774z00_1758;
BgL_test5774z00_1758 = 
BGl_iszd2azf3z21zz__objectz00(BgL_appz00_1749, BGl_valloczf2Cinfozb2optimz40zzcfa_info3z00); 
if(BgL_test5774z00_1758)
{ /* ./Cfa/vector.scm 205 */
{ /* ./Cfa/vector.scm 207 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_obj4503z00_1935;bool_t BgL_val4502z00_1936;
BgL_obj4503z00_1935 = 
(BgL_valloczf2cinfozb2optimz40_bglt)(BgL_appz00_1749); 
BgL_val4502z00_1936 = ((bool_t)1); 
{ 
obj_t BgL_auxz00_2389;
{ /* ./Cfa/vector.scm 207 */
BgL_objectz00_bglt BgL_auxz00_2390;
BgL_auxz00_2390 = 
(BgL_objectz00_bglt)(BgL_obj4503z00_1935); 
BgL_auxz00_2389 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2390); } 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_auxz00_2389))->BgL_seenzf3zf3) = ((bool_t)BgL_val4502z00_1936), BUNSPEC); } } 
{ /* ./Cfa/vector.scm 208 */
BgL_approxz00_bglt BgL_arg5777z00_1760;BgL_approxz00_bglt BgL_arg5778z00_1761;
{ /* ./Cfa/vector.scm 208 */
BgL_vrefzf2cinfozf2_bglt BgL_obj4269z00_1937;
BgL_obj4269z00_1937 = 
(BgL_vrefzf2cinfozf2_bglt)(BgL_instance4555z00_2018); 
{ 
obj_t BgL_auxz00_2395;
{ /* ./Cfa/vector.scm 208 */
BgL_objectz00_bglt BgL_auxz00_2396;
BgL_auxz00_2396 = 
(BgL_objectz00_bglt)(BgL_obj4269z00_1937); 
BgL_auxz00_2395 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2396); } 
BgL_arg5777z00_1760 = 
(((BgL_vrefzf2cinfozf2_bglt)CREF(BgL_auxz00_2395))->BgL_approxz00); } } 
{ /* ./Cfa/vector.scm 208 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_obj4490z00_1938;
BgL_obj4490z00_1938 = 
(BgL_valloczf2cinfozb2optimz40_bglt)(BgL_appz00_1749); 
{ 
obj_t BgL_auxz00_2401;
{ /* ./Cfa/vector.scm 208 */
BgL_objectz00_bglt BgL_auxz00_2402;
BgL_auxz00_2402 = 
(BgL_objectz00_bglt)(BgL_obj4490z00_1938); 
BgL_auxz00_2401 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2402); } 
BgL_arg5778z00_1761 = 
(((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_auxz00_2401))->BgL_valuezd2approxzd2); } } 
BGl_unionzd2approxz12zc0zzcfa_approxz00(BgL_arg5777z00_1760, BgL_arg5778z00_1761); } 
{ /* ./Cfa/vector.scm 209 */
BgL_approxz00_bglt BgL_arg5783z00_1762;BgL_typez00_bglt BgL_arg5784z00_1763;
{ /* ./Cfa/vector.scm 209 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_obj4490z00_1939;
BgL_obj4490z00_1939 = 
(BgL_valloczf2cinfozb2optimz40_bglt)(BgL_appz00_1749); 
{ 
obj_t BgL_auxz00_2408;
{ /* ./Cfa/vector.scm 209 */
BgL_objectz00_bglt BgL_auxz00_2409;
BgL_auxz00_2409 = 
(BgL_objectz00_bglt)(BgL_obj4490z00_1939); 
BgL_auxz00_2408 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2409); } 
BgL_arg5783z00_1762 = 
(((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_auxz00_2408))->BgL_valuezd2approxzd2); } } 
{ /* ./Cfa/vector.scm 210 */
BgL_approxz00_bglt BgL_arg5788z00_1764;
{ /* ./Cfa/vector.scm 210 */
BgL_vrefzf2cinfozf2_bglt BgL_obj4269z00_1940;
BgL_obj4269z00_1940 = 
(BgL_vrefzf2cinfozf2_bglt)(BgL_instance4555z00_2018); 
{ 
obj_t BgL_auxz00_2414;
{ /* ./Cfa/vector.scm 210 */
BgL_objectz00_bglt BgL_auxz00_2415;
BgL_auxz00_2415 = 
(BgL_objectz00_bglt)(BgL_obj4269z00_1940); 
BgL_auxz00_2414 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2415); } 
BgL_arg5788z00_1764 = 
(((BgL_vrefzf2cinfozf2_bglt)CREF(BgL_auxz00_2414))->BgL_approxz00); } } 
BgL_arg5784z00_1763 = 
(((BgL_approxz00_bglt)CREF(BgL_arg5788z00_1764))->BgL_typez00); } 
return 
BGl_approxzd2setzd2typez12z12zzcfa_approxz00(BgL_arg5783z00_1762, BgL_arg5784z00_1763);} }  else 
{ /* ./Cfa/vector.scm 205 */
return BFALSE;} } } } } } 
}



/* cfa!-vlength/Cinfo4590 */
obj_t BGl_cfaz12zd2vlengthzf2Cinfo4590z32zzcfa_vectorz00(obj_t BgL_envz00_2020, obj_t BgL_nodez00_2021)
{ AN_OBJECT;
{ /* ./Cfa/vector.scm 164 */
{ 
BgL_vlengthzf2cinfozf2_bglt BgL_nodez00_1723;
{ /* ./Cfa/vector.scm 165 */
BgL_approxz00_bglt BgL_auxz00_2421;
BgL_nodez00_1723 = 
(BgL_vlengthzf2cinfozf2_bglt)(BgL_nodez00_2021); 
{ /* ./Cfa/vector.scm 167 */
BgL_approxz00_bglt BgL_veczd2approxzd2_1727;
{ /* ./Cfa/vector.scm 167 */
obj_t BgL_arg5713z00_1729;
{ /* ./Cfa/vector.scm 167 */
obj_t BgL_auxz00_2422;
{ /* ./Cfa/vector.scm 167 */
BgL_externz00_bglt BgL_obj1817z00_1905;
BgL_obj1817z00_1905 = 
(BgL_externz00_bglt)(BgL_nodez00_1723); 
BgL_auxz00_2422 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1905))->BgL_exprza2za2); } 
BgL_arg5713z00_1729 = 
CAR(BgL_auxz00_2422); } 
BgL_veczd2approxzd2_1727 = 
BGl_cfaz12z12zzcfa_cfaz00(
(BgL_nodez00_bglt)(BgL_arg5713z00_1729)); } 
{ /* ./Cfa/vector.scm 168 */
bool_t BgL_test5709z00_1728;
{ /* ./Cfa/vector.scm 168 */
long BgL_n1z00_1907;
BgL_n1z00_1907 = 
(long)CINT(BGl_za2optimza2z00zzengine_paramz00); 
BgL_test5709z00_1728 = 
(BgL_n1z00_1907>=((long)2)); } 
if(BgL_test5709z00_1728)
{ /* ./Cfa/vector.scm 168 */BFALSE; }  else 
{ /* ./Cfa/vector.scm 169 */
BgL_approxz00_bglt BgL_auxz00_2431;
BgL_auxz00_2431 = 
BGl_loosez12z12zzcfa_loosez00(BgL_veczd2approxzd2_1727, 
CNST_TABLE_REF(((long)1))); 
(obj_t)(BgL_auxz00_2431); } } } 
{ 
obj_t BgL_auxz00_2435;
{ /* ./Cfa/vector.scm 170 */
BgL_objectz00_bglt BgL_auxz00_2436;
BgL_auxz00_2436 = 
(BgL_objectz00_bglt)(BgL_nodez00_1723); 
BgL_auxz00_2435 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2436); } 
BgL_auxz00_2421 = 
(((BgL_vlengthzf2cinfozf2_bglt)CREF(BgL_auxz00_2435))->BgL_approxz00); } 
return 
(obj_t)(BgL_auxz00_2421);} } } 
}



/* cfa!-valloc/Cinfo4588 */
obj_t BGl_cfaz12zd2valloczf2Cinfo4588z32zzcfa_vectorz00(obj_t BgL_envz00_2022, obj_t BgL_nodez00_2023)
{ AN_OBJECT;
{ /* ./Cfa/vector.scm 155 */
{ 
BgL_valloczf2cinfozf2_bglt BgL_nodez00_1709;
{ /* ./Cfa/vector.scm 156 */
BgL_approxz00_bglt BgL_auxz00_2442;
BgL_nodez00_1709 = 
(BgL_valloczf2cinfozf2_bglt)(BgL_nodez00_2023); 
{ 
obj_t BgL_l4551z00_1713;
{ /* ./Cfa/vector.scm 158 */
obj_t BgL_arg5687z00_1715;
{ /* ./Cfa/vector.scm 158 */
BgL_externz00_bglt BgL_obj1817z00_1900;
BgL_obj1817z00_1900 = 
(BgL_externz00_bglt)(BgL_nodez00_1709); 
BgL_arg5687z00_1715 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1900))->BgL_exprza2za2); } 
BgL_l4551z00_1713 = BgL_arg5687z00_1715; 
BgL_forzd2each4552zd2_1714:
{ /* ./Cfa/vector.scm 158 */
bool_t BgL_test5690z00_1716;
BgL_test5690z00_1716 = 
PAIRP(BgL_l4551z00_1713); 
if(BgL_test5690z00_1716)
{ /* ./Cfa/vector.scm 158 */
{ /* ./Cfa/vector.scm 158 */
obj_t BgL_xz00_1717;
BgL_xz00_1717 = 
CAR(BgL_l4551z00_1713); 
{ /* ./Cfa/vector.scm 158 */
BgL_approxz00_bglt BgL_arg5692z00_1718;obj_t BgL_arg5693z00_1719;
BgL_arg5692z00_1718 = 
BGl_cfaz12z12zzcfa_cfaz00(
(BgL_nodez00_bglt)(BgL_xz00_1717)); 
BgL_arg5693z00_1719 = 
CNST_TABLE_REF(((long)1)); 
BGl_loosez12z12zzcfa_loosez00(BgL_arg5692z00_1718, BgL_arg5693z00_1719); } } 
{ /* ./Cfa/vector.scm 158 */
obj_t BgL_arg5698z00_1720;
BgL_arg5698z00_1720 = 
CDR(BgL_l4551z00_1713); 
{ 
obj_t BgL_l4551z00_2453;
BgL_l4551z00_2453 = BgL_arg5698z00_1720; 
BgL_l4551z00_1713 = BgL_l4551z00_2453; 
goto BgL_forzd2each4552zd2_1714;} } }  else 
{ /* ./Cfa/vector.scm 158 */((bool_t)1); } } } } 
{ 
obj_t BgL_auxz00_2454;
{ /* ./Cfa/vector.scm 159 */
BgL_objectz00_bglt BgL_auxz00_2455;
BgL_auxz00_2455 = 
(BgL_objectz00_bglt)(BgL_nodez00_1709); 
BgL_auxz00_2454 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2455); } 
BgL_auxz00_2442 = 
(((BgL_valloczf2cinfozf2_bglt)CREF(BgL_auxz00_2454))->BgL_approxz00); } 
return 
(obj_t)(BgL_auxz00_2442);} } } 
}



/* cfa!-valloc/Cinfo+optim4586 */
obj_t BGl_cfaz12zd2valloczf2Cinfozb2optim4586z80zzcfa_vectorz00(obj_t BgL_envz00_2024, obj_t BgL_nodez00_2025)
{ AN_OBJECT;
{ /* ./Cfa/vector.scm 146 */
{ 
BgL_valloczf2cinfozb2optimz40_bglt BgL_nodez00_1697;
{ /* ./Cfa/vector.scm 147 */
BgL_approxz00_bglt BgL_auxz00_2461;
BgL_nodez00_1697 = 
(BgL_valloczf2cinfozb2optimz40_bglt)(BgL_nodez00_2025); 
{ 
obj_t BgL_l4547z00_1701;
{ /* ./Cfa/vector.scm 149 */
obj_t BgL_arg5666z00_1703;
{ /* ./Cfa/vector.scm 149 */
BgL_externz00_bglt BgL_obj1817z00_1895;
BgL_obj1817z00_1895 = 
(BgL_externz00_bglt)(BgL_nodez00_1697); 
BgL_arg5666z00_1703 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1895))->BgL_exprza2za2); } 
BgL_l4547z00_1701 = BgL_arg5666z00_1703; 
BgL_forzd2each4548zd2_1702:
{ /* ./Cfa/vector.scm 149 */
bool_t BgL_test5669z00_1704;
BgL_test5669z00_1704 = 
PAIRP(BgL_l4547z00_1701); 
if(BgL_test5669z00_1704)
{ /* ./Cfa/vector.scm 149 */
{ /* ./Cfa/vector.scm 149 */
obj_t BgL_arg5671z00_1705;
BgL_arg5671z00_1705 = 
CAR(BgL_l4547z00_1701); 
BGl_cfaz12z12zzcfa_cfaz00(
(BgL_nodez00_bglt)(BgL_arg5671z00_1705)); } 
{ /* ./Cfa/vector.scm 149 */
obj_t BgL_arg5675z00_1706;
BgL_arg5675z00_1706 = 
CDR(BgL_l4547z00_1701); 
{ 
obj_t BgL_l4547z00_2470;
BgL_l4547z00_2470 = BgL_arg5675z00_1706; 
BgL_l4547z00_1701 = BgL_l4547z00_2470; 
goto BgL_forzd2each4548zd2_1702;} } }  else 
{ /* ./Cfa/vector.scm 149 */((bool_t)1); } } } } 
{ 
obj_t BgL_auxz00_2471;
{ /* ./Cfa/vector.scm 150 */
BgL_objectz00_bglt BgL_auxz00_2472;
BgL_auxz00_2472 = 
(BgL_objectz00_bglt)(BgL_nodez00_1697); 
BgL_auxz00_2471 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2472); } 
BgL_auxz00_2461 = 
(((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_auxz00_2471))->BgL_approxz00); } 
return 
(obj_t)(BgL_auxz00_2461);} } } 
}



/* cfa!-make-vector-app4584 */
obj_t BGl_cfaz12zd2makezd2vectorzd2app4584zc0zzcfa_vectorz00(obj_t BgL_envz00_2026, obj_t BgL_nodez00_2027)
{ AN_OBJECT;
{ /* ./Cfa/vector.scm 135 */
{ 
BgL_makezd2vectorzd2appz00_bglt BgL_nodez00_1685;
{ /* ./Cfa/vector.scm 136 */
BgL_approxz00_bglt BgL_auxz00_2478;
BgL_nodez00_1685 = 
(BgL_makezd2vectorzd2appz00_bglt)(BgL_nodez00_2027); 
{ /* ./Cfa/vector.scm 138 */
obj_t BgL_arg5641z00_1689;
{ /* ./Cfa/vector.scm 138 */
obj_t BgL_auxz00_2479;
{ /* ./Cfa/vector.scm 138 */
BgL_appz00_bglt BgL_obj1722z00_1886;
BgL_obj1722z00_1886 = 
(BgL_appz00_bglt)(BgL_nodez00_1685); 
BgL_auxz00_2479 = 
(((BgL_appz00_bglt)CREF(BgL_obj1722z00_1886))->BgL_argsz00); } 
BgL_arg5641z00_1689 = 
CAR(BgL_auxz00_2479); } 
BGl_cfaz12z12zzcfa_cfaz00(
(BgL_nodez00_bglt)(BgL_arg5641z00_1689)); } 
{ /* ./Cfa/vector.scm 139 */
BgL_approxz00_bglt BgL_initzd2valuezd2approxz00_1691;
{ /* ./Cfa/vector.scm 139 */
obj_t BgL_arg5653z00_1693;
{ /* ./Cfa/vector.scm 139 */
obj_t BgL_auxz00_2485;
{ /* ./Cfa/vector.scm 139 */
obj_t BgL_auxz00_2486;
{ /* ./Cfa/vector.scm 139 */
BgL_appz00_bglt BgL_obj1722z00_1888;
BgL_obj1722z00_1888 = 
(BgL_appz00_bglt)(BgL_nodez00_1685); 
BgL_auxz00_2486 = 
(((BgL_appz00_bglt)CREF(BgL_obj1722z00_1888))->BgL_argsz00); } 
BgL_auxz00_2485 = 
CDR(BgL_auxz00_2486); } 
BgL_arg5653z00_1693 = 
CAR(BgL_auxz00_2485); } 
BgL_initzd2valuezd2approxz00_1691 = 
BGl_cfaz12z12zzcfa_cfaz00(
(BgL_nodez00_bglt)(BgL_arg5653z00_1693)); } 
{ /* ./Cfa/vector.scm 140 */
BgL_approxz00_bglt BgL_arg5648z00_1692;
{ 
obj_t BgL_auxz00_2493;
{ /* ./Cfa/vector.scm 140 */
BgL_objectz00_bglt BgL_auxz00_2494;
BgL_auxz00_2494 = 
(BgL_objectz00_bglt)(BgL_nodez00_1685); 
BgL_auxz00_2493 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2494); } 
BgL_arg5648z00_1692 = 
(((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_auxz00_2493))->BgL_valuezd2approxzd2); } 
BGl_unionzd2approxz12zc0zzcfa_approxz00(BgL_arg5648z00_1692, BgL_initzd2valuezd2approxz00_1691); } 
{ 
obj_t BgL_auxz00_2499;
{ /* ./Cfa/vector.scm 141 */
BgL_objectz00_bglt BgL_auxz00_2500;
BgL_auxz00_2500 = 
(BgL_objectz00_bglt)(BgL_nodez00_1685); 
BgL_auxz00_2499 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2500); } 
BgL_auxz00_2478 = 
(((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_auxz00_2499))->BgL_approxz00); } } 
return 
(obj_t)(BgL_auxz00_2478);} } } 
}



/* node-setup!-vset!4582 */
obj_t BGl_nodezd2setupz12zd2vsetz124582z00zzcfa_vectorz00(obj_t BgL_envz00_2028, obj_t BgL_nodez00_2029)
{ AN_OBJECT;
{ /* ./Cfa/vector.scm 125 */
{ 
BgL_vsetz12z12_bglt BgL_nodez00_1669;
{ /* ./Cfa/vector.scm 126 */
BgL_vsetz12z12_bglt BgL_auxz00_2506;
BgL_nodez00_1669 = 
(BgL_vsetz12z12_bglt)(BgL_nodez00_2029); 
{ /* ./Cfa/vector.scm 127 */
obj_t BgL_arg5608z00_1673;
{ /* ./Cfa/vector.scm 127 */
BgL_externz00_bglt BgL_obj1817z00_1880;
BgL_obj1817z00_1880 = 
(BgL_externz00_bglt)(BgL_nodez00_1669); 
BgL_arg5608z00_1673 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1880))->BgL_exprza2za2); } 
BGl_nodezd2setupza2z12z62zzcfa_setupz00(BgL_arg5608z00_1673); } 
{ /* ./Cfa/vector.scm 128 */
BgL_vsetz12z12_bglt BgL_obj4542z00_1674;
BgL_obj4542z00_1674 = 
((BgL_vsetz12z12_bglt)BgL_nodez00_1669); 
{ /* ./Cfa/vector.scm 129 */
obj_t BgL_arg5612z00_1675;
{ /* ./Cfa/vector.scm 129 */
BgL_approxz00_bglt BgL_arg5615z00_1676;bool_t BgL_arg5616z00_1677;
BgL_arg5615z00_1676 = 
BGl_makezd2typezd2approxz00zzcfa_approxz00(
(BgL_typez00_bglt)(BGl_za2unspecza2z00zztype_cachez00)); 
{ /* ./Cfa/vector.scm 130 */
bool_t BgL_test5619z00_1678;
{ /* ./Cfa/vector.scm 130 */
bool_t BgL_test5620z00_1679;
{ /* ./Cfa/vector.scm 130 */
BgL_typez00_bglt BgL_arg5626z00_1681;
BgL_arg5626z00_1681 = 
(((BgL_vsetz12z12_bglt)CREF(BgL_nodez00_1669))->BgL_ftypez00); 
{ /* ./Cfa/vector.scm 130 */
obj_t BgL_auxz00_2514;
BgL_auxz00_2514 = 
(obj_t)(BgL_arg5626z00_1681); 
BgL_test5620z00_1679 = 
(BgL_auxz00_2514==BGl_za2_za2z00zztype_cachez00); } } 
if(BgL_test5620z00_1679)
{ /* ./Cfa/vector.scm 130 */
BgL_test5619z00_1678 = ((bool_t)1); }  else 
{ /* ./Cfa/vector.scm 130 */
BgL_typez00_bglt BgL_arg5622z00_1680;
BgL_arg5622z00_1680 = 
(((BgL_vsetz12z12_bglt)CREF(BgL_nodez00_1669))->BgL_ftypez00); 
{ /* ./Cfa/vector.scm 130 */
obj_t BgL_auxz00_2519;
BgL_auxz00_2519 = 
(obj_t)(BgL_arg5622z00_1680); 
BgL_test5619z00_1678 = 
(BgL_auxz00_2519==BGl_za2objza2z00zztype_cachez00); } } } 
if(BgL_test5619z00_1678)
{ /* ./Cfa/vector.scm 130 */
BgL_arg5616z00_1677 = ((bool_t)0); }  else 
{ /* ./Cfa/vector.scm 130 */
BgL_arg5616z00_1677 = ((bool_t)1); } } 
BgL_arg5612z00_1675 = 
BGl_wideningzd2vsetz12zf2Cinfoz32zzcfa_info3z00(BgL_arg5615z00_1676, BgL_arg5616z00_1677); } 
{ /* ./Cfa/vector.scm 128 */
BgL_objectz00_bglt BgL_auxz00_2524;
BgL_auxz00_2524 = 
(BgL_objectz00_bglt)(BgL_obj4542z00_1674); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2524, BgL_arg5612z00_1675); } } 
{ /* ./Cfa/vector.scm 128 */
long BgL_arg5630z00_1682;
BgL_arg5630z00_1682 = 
BGl_classzd2numzd2zz__objectz00(BGl_vsetz12zf2Cinfoze0zzcfa_info3z00); 
{ /* ./Cfa/vector.scm 128 */
BgL_objectz00_bglt BgL_objz00_1883;
BgL_objz00_1883 = 
(BgL_objectz00_bglt)(BgL_obj4542z00_1674); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1883, BgL_arg5630z00_1682); } } 
{ /* ./Cfa/vector.scm 128 */
obj_t BgL_objz00_1885;
BgL_objz00_1885 = 
(obj_t)(BgL_obj4542z00_1674); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1885); BUNSPEC; } 
BgL_auxz00_2506 = BgL_obj4542z00_1674; } 
return 
(obj_t)(BgL_auxz00_2506);} } } 
}



/* node-setup!-vref4580 */
obj_t BGl_nodezd2setupz12zd2vref4580z12zzcfa_vectorz00(obj_t BgL_envz00_2030, obj_t BgL_nodez00_2031)
{ AN_OBJECT;
{ /* ./Cfa/vector.scm 105 */
{ 
BgL_vrefz00_bglt BgL_nodez00_1648;
{ /* ./Cfa/vector.scm 106 */
BgL_vrefz00_bglt BgL_auxz00_2534;
BgL_nodez00_1648 = 
(BgL_vrefz00_bglt)(BgL_nodez00_2031); 
{ /* ./Cfa/vector.scm 107 */
obj_t BgL_arg5567z00_1652;
{ /* ./Cfa/vector.scm 107 */
BgL_externz00_bglt BgL_obj1817z00_1871;
BgL_obj1817z00_1871 = 
(BgL_externz00_bglt)(BgL_nodez00_1648); 
BgL_arg5567z00_1652 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1871))->BgL_exprza2za2); } 
BGl_nodezd2setupza2z12z62zzcfa_setupz00(BgL_arg5567z00_1652); } 
{ /* ./Cfa/vector.scm 108 */
bool_t BgL_tvectorzf3zf3_1653;
{ /* ./Cfa/vector.scm 108 */
bool_t BgL_test5591z00_1663;
{ /* ./Cfa/vector.scm 108 */
bool_t BgL_test5592z00_1664;
{ /* ./Cfa/vector.scm 108 */
BgL_typez00_bglt BgL_arg5598z00_1666;
BgL_arg5598z00_1666 = 
(((BgL_vrefz00_bglt)CREF(BgL_nodez00_1648))->BgL_ftypez00); 
{ /* ./Cfa/vector.scm 108 */
obj_t BgL_auxz00_2539;
BgL_auxz00_2539 = 
(obj_t)(BgL_arg5598z00_1666); 
BgL_test5592z00_1664 = 
(BgL_auxz00_2539==BGl_za2_za2z00zztype_cachez00); } } 
if(BgL_test5592z00_1664)
{ /* ./Cfa/vector.scm 108 */
BgL_test5591z00_1663 = ((bool_t)1); }  else 
{ /* ./Cfa/vector.scm 108 */
BgL_typez00_bglt BgL_arg5594z00_1665;
BgL_arg5594z00_1665 = 
(((BgL_vrefz00_bglt)CREF(BgL_nodez00_1648))->BgL_ftypez00); 
{ /* ./Cfa/vector.scm 108 */
obj_t BgL_auxz00_2544;
BgL_auxz00_2544 = 
(obj_t)(BgL_arg5594z00_1665); 
BgL_test5591z00_1663 = 
(BgL_auxz00_2544==BGl_za2objza2z00zztype_cachez00); } } } 
if(BgL_test5591z00_1663)
{ /* ./Cfa/vector.scm 108 */
BgL_tvectorzf3zf3_1653 = ((bool_t)0); }  else 
{ /* ./Cfa/vector.scm 108 */
BgL_tvectorzf3zf3_1653 = ((bool_t)1); } } 
{ /* ./Cfa/vector.scm 108 */
BgL_approxz00_bglt BgL_approxz00_1654;
if(BgL_tvectorzf3zf3_1653)
{ /* ./Cfa/vector.scm 110 */
{ /* ./Cfa/vector.scm 111 */
BgL_typez00_bglt BgL_arg5583z00_1660;
BgL_arg5583z00_1660 = 
(((BgL_vrefz00_bglt)CREF(BgL_nodez00_1648))->BgL_ftypez00); 
BgL_approxz00_1654 = 
BGl_makezd2typezd2approxz00zzcfa_approxz00(BgL_arg5583z00_1660); } }  else 
{ /* ./Cfa/vector.scm 112 */
bool_t BgL_test5586z00_1661;
{ /* ./Cfa/vector.scm 112 */
long BgL_n1z00_1875;
BgL_n1z00_1875 = 
(long)CINT(BGl_za2optimza2z00zzengine_paramz00); 
BgL_test5586z00_1661 = 
(BgL_n1z00_1875>=((long)2)); } 
if(BgL_test5586z00_1661)
{ /* ./Cfa/vector.scm 112 */
BgL_approxz00_1654 = 
BGl_makezd2emptyzd2approxz00zzcfa_approxz00(); }  else 
{ /* ./Cfa/vector.scm 112 */
{ /* ./Cfa/vector.scm 115 */
BgL_approxz00_bglt BgL_approxz00_1662;
BgL_approxz00_1662 = 
BGl_makezd2typezd2approxz00zzcfa_approxz00(
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00)); 
BGl_approxzd2setzd2topz12z12zzcfa_approxz00(BgL_approxz00_1662); 
BgL_approxz00_1654 = BgL_approxz00_1662; } } } 
{ /* ./Cfa/vector.scm 109 */

{ /* ./Cfa/vector.scm 118 */
BgL_vrefz00_bglt BgL_obj4539z00_1655;
BgL_obj4539z00_1655 = 
((BgL_vrefz00_bglt)BgL_nodez00_1648); 
{ /* ./Cfa/vector.scm 119 */
obj_t BgL_arg5571z00_1656;
{ /* ./Cfa/vector.scm 119 */
BgL_approxz00_bglt BgL_arg5574z00_1657;bool_t BgL_arg5575z00_1658;
BgL_arg5574z00_1657 = BgL_approxz00_1654; 
BgL_arg5575z00_1658 = BgL_tvectorzf3zf3_1653; 
BgL_arg5571z00_1656 = 
BGl_wideningzd2vrefzf2Cinfoz20zzcfa_info3z00(BgL_arg5574z00_1657, BgL_arg5575z00_1658); } 
{ /* ./Cfa/vector.scm 118 */
BgL_objectz00_bglt BgL_auxz00_2560;
BgL_auxz00_2560 = 
(BgL_objectz00_bglt)(BgL_obj4539z00_1655); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2560, BgL_arg5571z00_1656); } } 
{ /* ./Cfa/vector.scm 118 */
long BgL_arg5578z00_1659;
BgL_arg5578z00_1659 = 
BGl_classzd2numzd2zz__objectz00(BGl_vrefzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/vector.scm 118 */
BgL_objectz00_bglt BgL_objz00_1877;
BgL_objz00_1877 = 
(BgL_objectz00_bglt)(BgL_obj4539z00_1655); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1877, BgL_arg5578z00_1659); } } 
{ /* ./Cfa/vector.scm 118 */
obj_t BgL_objz00_1879;
BgL_objz00_1879 = 
(obj_t)(BgL_obj4539z00_1655); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1879); BUNSPEC; } 
BgL_auxz00_2534 = BgL_obj4539z00_1655; } } } } 
return 
(obj_t)(BgL_auxz00_2534);} } } 
}



/* node-setup!-vlength4578 */
obj_t BGl_nodezd2setupz12zd2vlength4578z12zzcfa_vectorz00(obj_t BgL_envz00_2032, obj_t BgL_nodez00_2033)
{ AN_OBJECT;
{ /* ./Cfa/vector.scm 95 */
{ 
BgL_vlengthz00_bglt BgL_nodez00_1633;
{ /* ./Cfa/vector.scm 96 */
BgL_vlengthz00_bglt BgL_auxz00_2570;
BgL_nodez00_1633 = 
(BgL_vlengthz00_bglt)(BgL_nodez00_2033); 
{ /* ./Cfa/vector.scm 97 */
obj_t BgL_arg5534z00_1637;
{ /* ./Cfa/vector.scm 97 */
obj_t BgL_auxz00_2571;
{ /* ./Cfa/vector.scm 97 */
BgL_externz00_bglt BgL_obj1817z00_1863;
BgL_obj1817z00_1863 = 
(BgL_externz00_bglt)(BgL_nodez00_1633); 
BgL_auxz00_2571 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1863))->BgL_exprza2za2); } 
BgL_arg5534z00_1637 = 
CAR(BgL_auxz00_2571); } 
BGl_nodezd2setupz12zc0zzcfa_setupz00(
(BgL_nodez00_bglt)(BgL_arg5534z00_1637)); } 
{ /* ./Cfa/vector.scm 98 */
BgL_vlengthz00_bglt BgL_obj4536z00_1639;
BgL_obj4536z00_1639 = 
((BgL_vlengthz00_bglt)BgL_nodez00_1633); 
{ /* ./Cfa/vector.scm 99 */
obj_t BgL_arg5541z00_1640;
{ /* ./Cfa/vector.scm 99 */
BgL_approxz00_bglt BgL_arg5544z00_1641;bool_t BgL_arg5545z00_1642;
{ /* ./Cfa/vector.scm 99 */
BgL_typez00_bglt BgL_arg5548z00_1643;
{ /* ./Cfa/vector.scm 99 */
BgL_nodez00_bglt BgL_obj1561z00_1865;
BgL_obj1561z00_1865 = 
(BgL_nodez00_bglt)(BgL_nodez00_1633); 
BgL_arg5548z00_1643 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_1865))->BgL_typez00); } 
BgL_arg5544z00_1641 = 
BGl_makezd2typezd2approxz00zzcfa_approxz00(BgL_arg5548z00_1643); } 
{ /* ./Cfa/vector.scm 100 */
obj_t BgL_auxz00_2581;
{ /* ./Cfa/vector.scm 100 */
BgL_typez00_bglt BgL_auxz00_2582;
BgL_auxz00_2582 = 
(((BgL_vlengthz00_bglt)CREF(BgL_nodez00_1633))->BgL_vtypez00); 
BgL_auxz00_2581 = 
(obj_t)(BgL_auxz00_2582); } 
BgL_arg5545z00_1642 = 
TVECTORP(BgL_auxz00_2581); } 
BgL_arg5541z00_1640 = 
BGl_wideningzd2vlengthzf2Cinfoz20zzcfa_info3z00(BgL_arg5544z00_1641, BgL_arg5545z00_1642); } 
{ /* ./Cfa/vector.scm 98 */
BgL_objectz00_bglt BgL_auxz00_2587;
BgL_auxz00_2587 = 
(BgL_objectz00_bglt)(BgL_obj4536z00_1639); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2587, BgL_arg5541z00_1640); } } 
{ /* ./Cfa/vector.scm 98 */
long BgL_arg5556z00_1645;
BgL_arg5556z00_1645 = 
BGl_classzd2numzd2zz__objectz00(BGl_vlengthzf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/vector.scm 98 */
BgL_objectz00_bglt BgL_objz00_1868;
BgL_objz00_1868 = 
(BgL_objectz00_bglt)(BgL_obj4536z00_1639); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1868, BgL_arg5556z00_1645); } } 
{ /* ./Cfa/vector.scm 98 */
obj_t BgL_objz00_1870;
BgL_objz00_1870 = 
(obj_t)(BgL_obj4536z00_1639); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1870); BUNSPEC; } 
BgL_auxz00_2570 = BgL_obj4536z00_1639; } 
return 
(obj_t)(BgL_auxz00_2570);} } } 
}



/* node-setup!-valloc4576 */
obj_t BGl_nodezd2setupz12zd2valloc4576z12zzcfa_vectorz00(obj_t BgL_envz00_2034, obj_t BgL_nodez00_2035)
{ AN_OBJECT;
{ /* ./Cfa/vector.scm 82 */
{ 
BgL_vallocz00_bglt BgL_nodez00_1619;
{ /* ./Cfa/vector.scm 83 */
BgL_vallocz00_bglt BgL_auxz00_2597;
BgL_nodez00_1619 = 
(BgL_vallocz00_bglt)(BgL_nodez00_2035); 
{ /* ./Cfa/vector.scm 84 */
obj_t BgL_arg5508z00_1623;
{ /* ./Cfa/vector.scm 84 */
BgL_externz00_bglt BgL_obj1817z00_1858;
BgL_obj1817z00_1858 = 
(BgL_externz00_bglt)(BgL_nodez00_1619); 
BgL_arg5508z00_1623 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1858))->BgL_exprza2za2); } 
BGl_nodezd2setupza2z12z62zzcfa_setupz00(BgL_arg5508z00_1623); } 
{ /* ./Cfa/vector.scm 86 */
BgL_approxz00_bglt BgL_approxz00_1624;
{ /* ./Cfa/vector.scm 86 */
BgL_typez00_bglt BgL_arg5524z00_1630;
{ /* ./Cfa/vector.scm 86 */
BgL_nodez00_bglt BgL_obj1561z00_1859;
BgL_obj1561z00_1859 = 
(BgL_nodez00_bglt)(BgL_nodez00_1619); 
BgL_arg5524z00_1630 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_1859))->BgL_typez00); } 
BgL_approxz00_1624 = 
BGl_makezd2typezd2approxz00zzcfa_approxz00(BgL_arg5524z00_1630); } 
{ /* ./Cfa/vector.scm 86 */
BgL_vallocz00_bglt BgL_wnodez00_1625;
{ /* ./Cfa/vector.scm 87 */
BgL_vallocz00_bglt BgL_obj4533z00_1626;
BgL_obj4533z00_1626 = 
((BgL_vallocz00_bglt)BgL_nodez00_1619); 
{ /* ./Cfa/vector.scm 88 */
obj_t BgL_arg5513z00_1627;
{ /* ./Cfa/vector.scm 88 */
BgL_approxz00_bglt BgL_arg5516z00_1628;
BgL_arg5516z00_1628 = BgL_approxz00_1624; 
BgL_arg5513z00_1627 = 
BGl_wideningzd2valloczf2Cinfoz20zzcfa_info3z00(BgL_arg5516z00_1628); } 
{ /* ./Cfa/vector.scm 87 */
BgL_objectz00_bglt BgL_auxz00_2606;
BgL_auxz00_2606 = 
(BgL_objectz00_bglt)(BgL_obj4533z00_1626); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2606, BgL_arg5513z00_1627); } } 
{ /* ./Cfa/vector.scm 87 */
long BgL_arg5519z00_1629;
BgL_arg5519z00_1629 = 
BGl_classzd2numzd2zz__objectz00(BGl_valloczf2Cinfozf2zzcfa_info3z00); 
{ /* ./Cfa/vector.scm 87 */
BgL_objectz00_bglt BgL_objz00_1860;
BgL_objz00_1860 = 
(BgL_objectz00_bglt)(BgL_obj4533z00_1626); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1860, BgL_arg5519z00_1629); } } 
{ /* ./Cfa/vector.scm 87 */
obj_t BgL_objz00_1862;
BgL_objz00_1862 = 
(obj_t)(BgL_obj4533z00_1626); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1862); BUNSPEC; } 
BgL_wnodez00_1625 = BgL_obj4533z00_1626; } 
{ /* ./Cfa/vector.scm 87 */

BGl_approxzd2setzd2topz12z12zzcfa_approxz00(BgL_approxz00_1624); 
BgL_auxz00_2597 = BgL_wnodez00_1625; } } } 
return 
(obj_t)(BgL_auxz00_2597);} } } 
}



/* node-setup!-pre-valloc/Cinfo4574 */
obj_t BGl_nodezd2setupz12zd2prezd2valloczf2Cinfo4574z32zzcfa_vectorz00(obj_t BgL_envz00_2036, obj_t BgL_nodez00_2037)
{ AN_OBJECT;
{ /* ./Cfa/vector.scm 64 */
{ 
BgL_prezd2valloczf2cinfoz20_bglt BgL_nodez00_1595;
BgL_nodez00_1595 = 
(BgL_prezd2valloczf2cinfoz20_bglt)(BgL_nodez00_2037); 
BGl_addzd2makezd2vectorz12z12zzcfa_tvectorz00(
(BgL_nodez00_bglt)(BgL_nodez00_1595)); 
{ /* ./Cfa/vector.scm 67 */
obj_t BgL_arg5461z00_1599;
{ /* ./Cfa/vector.scm 67 */
BgL_externz00_bglt BgL_obj1817z00_1840;
BgL_obj1817z00_1840 = 
(BgL_externz00_bglt)(BgL_nodez00_1595); 
BgL_arg5461z00_1599 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_1840))->BgL_exprza2za2); } 
BGl_nodezd2setupza2z12z62zzcfa_setupz00(BgL_arg5461z00_1599); } 
{ /* ./Cfa/vector.scm 68 */
BgL_variablez00_bglt BgL_ownerz00_1600;
{ 
obj_t BgL_auxz00_2622;
{ /* ./Cfa/vector.scm 68 */
BgL_objectz00_bglt BgL_auxz00_2623;
BgL_auxz00_2623 = 
(BgL_objectz00_bglt)(BgL_nodez00_1595); 
BgL_auxz00_2622 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2623); } 
BgL_ownerz00_1600 = 
(((BgL_prezd2valloczf2cinfoz20_bglt)CREF(BgL_auxz00_2622))->BgL_ownerz00); } 
{ /* ./Cfa/vector.scm 68 */
BgL_prezd2valloczf2cinfoz20_bglt BgL_nodez00_1601;
{ /* ./Cfa/vector.scm 69 */
long BgL_arg5490z00_1614;
{ /* ./Cfa/vector.scm 69 */
obj_t BgL_arg5493z00_1615;
{ /* ./Cfa/vector.scm 69 */
obj_t BgL_arg5496z00_1616;
{ /* ./Cfa/vector.scm 69 */
BgL_objectz00_bglt BgL_objectz00_1842;
BgL_objectz00_1842 = 
(BgL_objectz00_bglt)(BgL_nodez00_1595); 
{ /* ./Cfa/vector.scm 69 */
long BgL_arg2036z00_1843;
{ /* ./Cfa/vector.scm 69 */
long BgL_arg2039z00_1844;
BgL_arg2039z00_1844 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_1842); 
BgL_arg2036z00_1843 = 
(BgL_arg2039z00_1844-OBJECT_TYPE); } 
{ /* ./Cfa/vector.scm 69 */
obj_t BgL_vectorz00_1848;int BgL_kz00_1849;
BgL_vectorz00_1848 = BGl_za2classesza2z00zz__objectz00; 
BgL_kz00_1849 = 
(int)(BgL_arg2036z00_1843); 
BgL_arg5496z00_1616 = 
VECTOR_REF(BgL_vectorz00_1848,BgL_kz00_1849); } } } 
BgL_arg5493z00_1615 = 
BGl_classzd2superzd2zz__objectz00(BgL_arg5496z00_1616); } 
BgL_arg5490z00_1614 = 
BGl_classzd2numzd2zz__objectz00(BgL_arg5493z00_1615); } 
{ /* ./Cfa/vector.scm 69 */
BgL_objectz00_bglt BgL_objz00_1850;
BgL_objz00_1850 = 
(BgL_objectz00_bglt)(BgL_nodez00_1595); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1850, BgL_arg5490z00_1614); } } 
{ /* ./Cfa/vector.scm 69 */
BgL_objectz00_bglt BgL_auxz00_2636;
BgL_auxz00_2636 = 
(BgL_objectz00_bglt)(BgL_nodez00_1595); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2636, BFALSE); } 
BgL_nodez00_1601 = BgL_nodez00_1595; 
{ /* ./Cfa/vector.scm 69 */

{ /* ./Cfa/vector.scm 70 */
BgL_vallocz00_bglt BgL_wnodez00_1602;
{ /* ./Cfa/vector.scm 70 */
BgL_vallocz00_bglt BgL_obj4530z00_1605;
{ 
BgL_vallocz00_bglt BgL_auxz00_2639;
BgL_auxz00_2639 = 
(BgL_vallocz00_bglt)(BgL_nodez00_1601); 
BgL_obj4530z00_1605 = 
((BgL_vallocz00_bglt)BgL_auxz00_2639); } 
{ /* ./Cfa/vector.scm 72 */
obj_t BgL_arg5472z00_1606;
{ /* ./Cfa/vector.scm 72 */
BgL_approxz00_bglt BgL_arg5475z00_1607;BgL_approxz00_bglt BgL_arg5476z00_1608;BgL_variablez00_bglt BgL_arg5479z00_1610;
BgL_arg5475z00_1607 = 
BGl_makezd2emptyzd2approxz00zzcfa_approxz00(); 
BgL_arg5476z00_1608 = 
BGl_makezd2emptyzd2approxz00zzcfa_approxz00(); 
BgL_arg5479z00_1610 = BgL_ownerz00_1600; 
BgL_arg5472z00_1606 = 
BGl_wideningzd2valloczf2Cinfozb2optimz92zzcfa_info3z00(BgL_arg5475z00_1607, BgL_arg5476z00_1608, ((long)-1), BgL_arg5479z00_1610, ((bool_t)1), BNIL, ((bool_t)0)); } 
{ /* ./Cfa/vector.scm 70 */
BgL_objectz00_bglt BgL_auxz00_2645;
BgL_auxz00_2645 = 
(BgL_objectz00_bglt)(BgL_obj4530z00_1605); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2645, BgL_arg5472z00_1606); } } 
{ /* ./Cfa/vector.scm 70 */
long BgL_arg5485z00_1612;
BgL_arg5485z00_1612 = 
BGl_classzd2numzd2zz__objectz00(BGl_valloczf2Cinfozb2optimz40zzcfa_info3z00); 
{ /* ./Cfa/vector.scm 70 */
BgL_objectz00_bglt BgL_objz00_1852;
BgL_objz00_1852 = 
(BgL_objectz00_bglt)(BgL_obj4530z00_1605); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1852, BgL_arg5485z00_1612); } } 
{ /* ./Cfa/vector.scm 70 */
obj_t BgL_objz00_1854;
BgL_objz00_1854 = 
(obj_t)(BgL_obj4530z00_1605); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1854); BUNSPEC; } 
BgL_wnodez00_1602 = BgL_obj4530z00_1605; } 
{ /* ./Cfa/vector.scm 77 */
BgL_approxz00_bglt BgL_arg5465z00_1603;
{ /* ./Cfa/vector.scm 77 */
BgL_typez00_bglt BgL_arg5468z00_1604;
{ /* ./Cfa/vector.scm 77 */
BgL_nodez00_bglt BgL_obj1561z00_1855;
BgL_obj1561z00_1855 = 
(BgL_nodez00_bglt)(BgL_nodez00_1595); 
BgL_arg5468z00_1604 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_1855))->BgL_typez00); } 
BgL_arg5465z00_1603 = 
BGl_makezd2typezd2alloczd2approxzd2zzcfa_approxz00(BgL_arg5468z00_1604, 
(BgL_nodez00_bglt)(BgL_nodez00_1601)); } 
{ /* ./Cfa/vector.scm 75 */
BgL_valloczf2cinfozb2optimz40_bglt BgL_obj4489z00_1856;BgL_approxz00_bglt BgL_val4488z00_1857;
BgL_obj4489z00_1856 = 
(BgL_valloczf2cinfozb2optimz40_bglt)(BgL_wnodez00_1602); 
BgL_val4488z00_1857 = BgL_arg5465z00_1603; 
{ 
obj_t BgL_auxz00_2658;
{ /* ./Cfa/vector.scm 75 */
BgL_objectz00_bglt BgL_auxz00_2659;
BgL_auxz00_2659 = 
(BgL_objectz00_bglt)(BgL_obj4489z00_1856); 
BgL_auxz00_2658 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2659); } 
return 
((((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_auxz00_2658))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_val4488z00_1857), BUNSPEC);} } } } } } } } } 
}



/* node-setup!-pre-make-vector-app4572 */
obj_t BGl_nodezd2setupz12zd2prezd2makezd2vectorzd2app4572zc0zzcfa_vectorz00(obj_t BgL_envz00_2038, obj_t BgL_nodez00_2039)
{ AN_OBJECT;
{ /* ./Cfa/vector.scm 46 */
{ 
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_nodez00_1572;
BgL_nodez00_1572 = 
(BgL_prezd2makezd2vectorzd2appzd2_bglt)(BgL_nodez00_2039); 
BGl_addzd2makezd2vectorz12z12zzcfa_tvectorz00(
(BgL_nodez00_bglt)(BgL_nodez00_1572)); 
{ /* ./Cfa/vector.scm 49 */
obj_t BgL_arg5417z00_1576;
{ /* ./Cfa/vector.scm 49 */
BgL_appz00_bglt BgL_obj1722z00_1823;
BgL_obj1722z00_1823 = 
(BgL_appz00_bglt)(BgL_nodez00_1572); 
BgL_arg5417z00_1576 = 
(((BgL_appz00_bglt)CREF(BgL_obj1722z00_1823))->BgL_argsz00); } 
BGl_nodezd2setupza2z12z62zzcfa_setupz00(BgL_arg5417z00_1576); } 
{ /* ./Cfa/vector.scm 50 */
BgL_variablez00_bglt BgL_ownerz00_1577;
{ 
obj_t BgL_auxz00_2669;
{ /* ./Cfa/vector.scm 50 */
BgL_objectz00_bglt BgL_auxz00_2670;
BgL_auxz00_2670 = 
(BgL_objectz00_bglt)(BgL_nodez00_1572); 
BgL_auxz00_2669 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2670); } 
BgL_ownerz00_1577 = 
(((BgL_prezd2makezd2vectorzd2appzd2_bglt)CREF(BgL_auxz00_2669))->BgL_ownerz00); } 
{ /* ./Cfa/vector.scm 50 */
BgL_prezd2makezd2vectorzd2appzd2_bglt BgL_nodez00_1578;
{ /* ./Cfa/vector.scm 51 */
long BgL_arg5442z00_1590;
{ /* ./Cfa/vector.scm 51 */
obj_t BgL_arg5445z00_1591;
{ /* ./Cfa/vector.scm 51 */
obj_t BgL_arg5448z00_1592;
{ /* ./Cfa/vector.scm 51 */
BgL_objectz00_bglt BgL_objectz00_1825;
BgL_objectz00_1825 = 
(BgL_objectz00_bglt)(BgL_nodez00_1572); 
{ /* ./Cfa/vector.scm 51 */
long BgL_arg2036z00_1826;
{ /* ./Cfa/vector.scm 51 */
long BgL_arg2039z00_1827;
BgL_arg2039z00_1827 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_1825); 
BgL_arg2036z00_1826 = 
(BgL_arg2039z00_1827-OBJECT_TYPE); } 
{ /* ./Cfa/vector.scm 51 */
obj_t BgL_vectorz00_1831;int BgL_kz00_1832;
BgL_vectorz00_1831 = BGl_za2classesza2z00zz__objectz00; 
BgL_kz00_1832 = 
(int)(BgL_arg2036z00_1826); 
BgL_arg5448z00_1592 = 
VECTOR_REF(BgL_vectorz00_1831,BgL_kz00_1832); } } } 
BgL_arg5445z00_1591 = 
BGl_classzd2superzd2zz__objectz00(BgL_arg5448z00_1592); } 
BgL_arg5442z00_1590 = 
BGl_classzd2numzd2zz__objectz00(BgL_arg5445z00_1591); } 
{ /* ./Cfa/vector.scm 51 */
BgL_objectz00_bglt BgL_objz00_1833;
BgL_objz00_1833 = 
(BgL_objectz00_bglt)(BgL_nodez00_1572); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1833, BgL_arg5442z00_1590); } } 
{ /* ./Cfa/vector.scm 51 */
BgL_objectz00_bglt BgL_auxz00_2683;
BgL_auxz00_2683 = 
(BgL_objectz00_bglt)(BgL_nodez00_1572); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2683, BFALSE); } 
BgL_nodez00_1578 = BgL_nodez00_1572; 
{ /* ./Cfa/vector.scm 51 */

{ /* ./Cfa/vector.scm 52 */
BgL_appz00_bglt BgL_wnodez00_1579;
{ /* ./Cfa/vector.scm 52 */
BgL_appz00_bglt BgL_obj4526z00_1581;
{ 
BgL_appz00_bglt BgL_auxz00_2686;
BgL_auxz00_2686 = 
(BgL_appz00_bglt)(BgL_nodez00_1578); 
BgL_obj4526z00_1581 = 
((BgL_appz00_bglt)BgL_auxz00_2686); } 
{ /* ./Cfa/vector.scm 54 */
obj_t BgL_arg5425z00_1582;
{ /* ./Cfa/vector.scm 54 */
BgL_approxz00_bglt BgL_arg5428z00_1583;BgL_approxz00_bglt BgL_arg5429z00_1584;BgL_variablez00_bglt BgL_arg5431z00_1586;
BgL_arg5428z00_1583 = 
BGl_makezd2emptyzd2approxz00zzcfa_approxz00(); 
BgL_arg5429z00_1584 = 
BGl_makezd2emptyzd2approxz00zzcfa_approxz00(); 
BgL_arg5431z00_1586 = BgL_ownerz00_1577; 
BgL_arg5425z00_1582 = 
BGl_wideningzd2makezd2vectorzd2appzd2zzcfa_info2z00(BgL_arg5428z00_1583, BgL_arg5429z00_1584, ((long)-1), BgL_arg5431z00_1586, BNIL, ((bool_t)0)); } 
{ /* ./Cfa/vector.scm 52 */
BgL_objectz00_bglt BgL_auxz00_2692;
BgL_auxz00_2692 = 
(BgL_objectz00_bglt)(BgL_obj4526z00_1581); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2692, BgL_arg5425z00_1582); } } 
{ /* ./Cfa/vector.scm 52 */
long BgL_arg5437z00_1588;
BgL_arg5437z00_1588 = 
BGl_classzd2numzd2zz__objectz00(BGl_makezd2vectorzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/vector.scm 52 */
BgL_objectz00_bglt BgL_objz00_1835;
BgL_objz00_1835 = 
(BgL_objectz00_bglt)(BgL_obj4526z00_1581); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1835, BgL_arg5437z00_1588); } } 
{ /* ./Cfa/vector.scm 52 */
obj_t BgL_objz00_1837;
BgL_objz00_1837 = 
(obj_t)(BgL_obj4526z00_1581); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1837); BUNSPEC; } 
BgL_wnodez00_1579 = BgL_obj4526z00_1581; } 
{ /* ./Cfa/vector.scm 58 */
BgL_approxz00_bglt BgL_arg5421z00_1580;
BgL_arg5421z00_1580 = 
BGl_makezd2typezd2alloczd2approxzd2zzcfa_approxz00(
(BgL_typez00_bglt)(BGl_za2vectorza2z00zztype_cachez00), 
(BgL_nodez00_bglt)(BgL_nodez00_1578)); 
{ /* ./Cfa/vector.scm 57 */
BgL_makezd2vectorzd2appz00_bglt BgL_obj3852z00_1838;BgL_approxz00_bglt BgL_val3850z00_1839;
BgL_obj3852z00_1838 = 
(BgL_makezd2vectorzd2appz00_bglt)(BgL_wnodez00_1579); 
BgL_val3850z00_1839 = BgL_arg5421z00_1580; 
{ 
obj_t BgL_auxz00_2704;
{ /* ./Cfa/vector.scm 57 */
BgL_objectz00_bglt BgL_auxz00_2705;
BgL_auxz00_2705 = 
(BgL_objectz00_bglt)(BgL_obj3852z00_1838); 
BgL_auxz00_2704 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2705); } 
return 
((((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_auxz00_2704))->BgL_approxz00) = ((BgL_approxz00_bglt)BgL_val3850z00_1839), BUNSPEC);} } } } } } } } } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzcfa_vectorz00()
{ AN_OBJECT;
{ /* ./Cfa/vector.scm 17 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "cfa_vector"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "cfa_vector"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "cfa_vector"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "cfa_vector"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "cfa_vector"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "cfa_vector"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "cfa_vector"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "cfa_vector"); 
BGl_modulezd2initializa7ationz75zzcfa_infoz00(((long)2565), "cfa_vector"); 
BGl_modulezd2initializa7ationz75zzcfa_info2z00(((long)0), "cfa_vector"); 
BGl_modulezd2initializa7ationz75zzcfa_info3z00(((long)0), "cfa_vector"); 
BGl_modulezd2initializa7ationz75zzcfa_loosez00(((long)78579), "cfa_vector"); 
BGl_modulezd2initializa7ationz75zzcfa_iteratez00(((long)17824), "cfa_vector"); 
BGl_modulezd2initializa7ationz75zzcfa_cfaz00(((long)65191), "cfa_vector"); 
BGl_modulezd2initializa7ationz75zzcfa_setupz00(((long)47065), "cfa_vector"); 
BGl_modulezd2initializa7ationz75zzcfa_approxz00(((long)43477), "cfa_vector"); 
return 
BGl_modulezd2initializa7ationz75zzcfa_tvectorz00(((long)20474), "cfa_vector");} 
}

