/*===========================================================================*/
/*   (Cfa/tvector.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/tvector.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_tvecz00_bgl {
   struct BgL_typez00_bgl * BgL_itemzd2typezd2;
} *BgL_tvecz00_bglt;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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;

typedef struct BgL_isfunz00_bgl {
   struct BgL_nodez00_bgl * BgL_originalzd2bodyzd2;
   obj_t BgL_recursivezd2callszd2;
} *BgL_isfunz00_bglt;


extern obj_t BGl_tvectorzd2finaliza7erz75zzmodule_typez00();
BGL_IMPORT obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_za2makezd2vectorzd2listza2z00zzcfa_tvectorz00 = BUNSPEC;
static obj_t BGl_methodzd2initzd2zzcfa_tvectorz00();
BGL_IMPORT obj_t open_input_string(obj_t);
BGL_IMPORT long BGl_classzd2numzd2zz__objectz00(obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
static obj_t BGl_patchz12zd2letzd2var4755z12zzcfa_tvectorz00(obj_t, obj_t);
extern obj_t BGl_sfunz00zzast_varz00;
static obj_t BGl_patchz12zd2select4751zc0zzcfa_tvectorz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
extern obj_t BGl_buildzd2astzd2sanszd2removezd2zzast_buildz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
extern BgL_nodez00_bglt BGl_sexpzd2ze3nodez31zzast_sexpz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_patchz12zd2setzd2exzd2it4757zc0zzcfa_tvectorz00(obj_t, obj_t);
static obj_t BGl_patchz12zd2vlength4769zc0zzcfa_tvectorz00(obj_t, obj_t);
extern BgL_atomz00_bglt BGl_makezd2atomzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
static obj_t BGl_patchz12zd2cast4743zc0zzcfa_tvectorz00(obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
extern obj_t BGl_vrefzf2Cinfozf2zzcfa_info3z00;
static obj_t BGl_declarezd2tvectorszd2zzcfa_tvectorz00(obj_t);
static obj_t BGl_patchz12zd2letzd2fun4753z12zzcfa_tvectorz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_typez00_bglt BGl_getzd2vectorzd2itemzd2typezd2zzcfa_tvectorz00(BgL_nodez00_bglt);
extern obj_t BGl_kwotez00zzast_nodez00;
extern obj_t BGl_za2_za2z00zztype_cachez00;
static obj_t BGl_patchz12zd2app4767zc0zzcfa_tvectorz00(obj_t, obj_t);
static obj_t BGl_patchz12zd2vsetz12zf2Cinfo4777z20zzcfa_tvectorz00(obj_t, obj_t);
extern obj_t BGl_globalz00zzast_varz00;
static obj_t BGl_patchza2z12zb0zzcfa_tvectorz00(obj_t);
BGL_IMPORT obj_t BGl_za2classesza2z00zz__objectz00;
extern obj_t BGl_typez00zztype_typez00;
extern obj_t BGl_inlinezd2setupz12zc0zzinline_walkz00(obj_t);
extern obj_t BGl_za2libzd2modeza2zd2zzengine_paramz00;
static obj_t BGl__getzd2vectorzd2itemzd2typezd2default4716z00zzcfa_tvectorz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_vectorzd2ze3tvectorz12z23zzcfa_tvectorz00(obj_t);
extern obj_t BGl_castz00zzast_nodez00;
static bool_t BGl_showzd2tvectorzd2zzcfa_tvectorz00(obj_t);
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_cnstzd2initzd2zzcfa_tvectorz00();
extern obj_t BGl_atomz00zzast_nodez00;
extern obj_t BGl_failz00zzast_nodez00;
static obj_t BGl_patchz12zd2makezd2vectorzd2app4771zc0zzcfa_tvectorz00(obj_t, obj_t);
extern obj_t BGl_funcallz00zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_unpatchzd2vectorzd2setz12z12zzcfa_tvectorz00();
static obj_t BGl__unpatchzd2vectorzd2setz12z12zzcfa_tvectorz00(obj_t);
extern obj_t BGl_pragmazd2finaliza7erz75zzmodule_pragmaz00();
static obj_t BGl_patchz12z12zzcfa_tvectorz00(BgL_nodez00_bglt);
static obj_t BGl_patchz12zd2conditional4747zc0zzcfa_tvectorz00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzcfa_tvectorz00();
static obj_t BGl_patchz12zd2jumpzd2exzd2it4759zc0zzcfa_tvectorz00(obj_t, obj_t);
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
static obj_t BGl_patchzd2vectorzf3z12z33zzcfa_tvectorz00(BgL_appz00_bglt);
static obj_t BGl_patchz12zd2setq4745zc0zzcfa_tvectorz00(obj_t, obj_t);
static obj_t BGl_patchz12zd2vrefzf2Cinfo4775z32zzcfa_tvectorz00(obj_t, obj_t);
static obj_t BGl__addzd2makezd2vectorz126835z12zzcfa_tvectorz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl_getzd2vectorzd2itemzd2typezd2default4716z00zzcfa_tvectorz00(BgL_nodez00_bglt);
extern BgL_approxz00_bglt BGl_cfaz12z12zzcfa_cfaz00(BgL_nodez00_bglt);
static obj_t BGl_patchz12zd2appzd2ly4737z12zzcfa_tvectorz00(obj_t, obj_t);
static obj_t BGl__patchz12zd2default4722zc0zzcfa_tvectorz00(obj_t, obj_t);
static obj_t BGl__patchzd2vectorzd2setz12z12zzcfa_tvectorz00(obj_t);
static obj_t BGl_patchzd2vectorzd2ze3listz12zf1zzcfa_tvectorz00(BgL_appz00_bglt);
extern obj_t BGl_selectz00zzast_nodez00;
extern obj_t BGl_globaliza7ezd2walkz12z67zzglobaliza7e_walkza7(obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zzcfa_tvectorz00();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzcfa_tvectorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_pragmaz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_envz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztvector_tvectorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_speekz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_buildz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_sexpz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_envz00(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_cfaz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_approxz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_setz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_walkza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzinline_inlinez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzinline_walkz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *);
static obj_t BGl_patchzd2funz12zc0zzcfa_tvectorz00(obj_t);
static obj_t BGl_patchz12zd2extern4741zc0zzcfa_tvectorz00(obj_t, obj_t);
extern obj_t BGl_verbosez00zztools_speekz00(obj_t, obj_t);
extern obj_t BGl_findzd2globalzd2zzast_envz00(obj_t, obj_t);
extern BgL_kwotez00_bglt BGl_makezd2kwotezd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t);
extern obj_t BGl_vsetz12zf2Cinfoze0zzcfa_info3z00;
BGL_EXPORTED_DECL obj_t BGl_tvectorzd2optimiza7ationzf3z86zzcfa_tvectorz00();
static obj_t BGl_patchz12zd2atom4725zc0zzcfa_tvectorz00(obj_t, obj_t);
static obj_t BGl_patchz12zd2kwotezf2node4729z32zzcfa_tvectorz00(obj_t, obj_t);
static obj_t BGl_getzd2tvectorszd2zzcfa_tvectorz00();
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
extern obj_t BGl_za2vectorza2z00zztype_cachez00;
extern obj_t BGl_shapez00zztools_shapez00(obj_t);
extern obj_t BGl_za2boolza2z00zztype_cachez00;
static obj_t BGl_patchz12zd2valloczf2Cinfozb2optim4773z80zzcfa_tvectorz00(obj_t, obj_t);
extern obj_t BGl_setzd2defaultzd2typez12z12zztype_cachez00(BgL_typez00_bglt);
extern BgL_typez00_bglt BGl_getzd2defaultzd2typez00zztype_cachez00();
static obj_t BGl_getzd2vectorzd2itemzd2typezd2makezd2vectorzd2app4719z00zzcfa_tvectorz00(obj_t, obj_t);
static obj_t BGl_patchz12zd2default4722zc0zzcfa_tvectorz00(BgL_nodez00_bglt);
extern obj_t BGl_typezd2parserzd2zzmodule_typez00(obj_t, obj_t);
static obj_t BGl_patchz12zd2boxzd2ref4765z12zzcfa_tvectorz00(obj_t, obj_t);
static obj_t BGl_patchz12zd2boxzd2setz124763z00zzcfa_tvectorz00(obj_t, obj_t);
extern obj_t BGl_cfunz00zzast_varz00;
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
extern obj_t BGl_za2optimza2z00zzengine_paramz00;
static obj_t BGl_patchz12zd2var4731zc0zzcfa_tvectorz00(obj_t, obj_t);
extern obj_t BGl_externz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
extern obj_t BGl_sequencez00zzast_nodez00;
static obj_t BGl__vectorzd2ze3tvectorz12z23zzcfa_tvectorz00(obj_t, obj_t);
extern obj_t BGl_makezd2vectorzd2appz00zzcfa_info2z00;
extern obj_t BGl_internalzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_patchzd2vectorzd2setz12z12zzcfa_tvectorz00();
BGL_IMPORT obj_t create_struct(obj_t, int);
extern obj_t BGl_appz00zzast_nodez00;
extern obj_t BGl_kwotezf2nodezf2zzcfa_infoz00;
static obj_t BGl_getzd2vectorzd2itemzd2typezd2valloczf2Cinfozb2optim4721z40zzcfa_tvectorz00(obj_t, obj_t);
extern obj_t BGl_valloczf2Cinfozb2optimz40zzcfa_info3z00;
static obj_t BGl_patchz12zd2sequence4735zc0zzcfa_tvectorz00(obj_t, obj_t);
extern obj_t BGl_getzd2approxzd2typez00zzcfa_typez00(BgL_approxz00_bglt);
BGL_IMPORT obj_t BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(obj_t);
extern obj_t BGl_closurez00zzast_nodez00;
extern bool_t BGl_subzd2typezf3z21zztype_envz00(BgL_typez00_bglt, BgL_typez00_bglt);
extern obj_t BGl_vlengthz00zzast_nodez00;
static obj_t BGl__patchz126839z12zzcfa_tvectorz00(obj_t, obj_t);
static obj_t BGl_patchz12zd2fail4749zc0zzcfa_tvectorz00(obj_t, obj_t);
static obj_t BGl__tvectorzd2optimiza7ationzf3z86zzcfa_tvectorz00(obj_t);
extern obj_t BGl_za2objza2z00zztype_cachez00;
static obj_t BGl_patchz12zd2makezd2box4761z12zzcfa_tvectorz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_addzd2makezd2vectorz12z12zzcfa_tvectorz00(BgL_nodez00_bglt);
static obj_t BGl_patchz12zd2closure4733zc0zzcfa_tvectorz00(obj_t, obj_t);
static obj_t BGl_patchz12zd2funcall4739zc0zzcfa_tvectorz00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzcfa_tvectorz00 = BUNSPEC;
extern obj_t BGl_tvecz00zztvector_tvectorz00;
static obj_t BGl__getzd2vectorzd2itemzd2type6837zd2zzcfa_tvectorz00(obj_t, obj_t);
extern BgL_nodez00_bglt BGl_inlinezd2nodezd2zzinline_inlinez00(BgL_nodez00_bglt, long, obj_t);
static obj_t BGl_patchz12zd2kwote4727zc0zzcfa_tvectorz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_classzd2superzd2zz__objectz00(obj_t);
BGL_IMPORT bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzcfa_tvectorz00();
static bool_t BGl_patchzd2treez12zc0zzcfa_tvectorz00(obj_t);
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t __cnst[ 21 ] ;


DEFINE_EXPORT_GENERIC( BGl_getzd2vectorzd2itemzd2typezd2envz00zzcfa_tvectorz00, BgL_bgl__getza7d2vectorza7d2itemza7d2type6837za7d2za7za7cfa_tvectorza7007580za7, BGl__getzd2vectorzd2itemzd2type6837zd2zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_getzd2vectorzd2itemzd2typezd2default4716zd2envzd2zzcfa_tvectorz00, BgL_bgl__getza7d2vectorza7d2itemza7d2typeza7d2default4716za700za7za7cfa_tvectorza7007581z00, BGl__getzd2vectorzd2itemzd2typezd2default4716z00zzcfa_tvectorz00, 0L, 1 );
DEFINE_STRING( BGl_string7548z00zzcfa_tvectorz00, BgL_bgl_string7548za700za7za7cfa_tvectorza7007582z00, "patch!-default4722 get-vector-item-type-default4716 a-tvector __r4_vectors_6_8 vector->list -length make- allocate- -ref -set! value ->list done no-remove unit tvector tv-of- all vector? c-vector? (vector-set! c-vector-set! vector-set-ur!) ", 240 );
DEFINE_STRING( BGl_string7547z00zzcfa_tvectorz00, BgL_bgl_string7547za700za7za7cfa_tvectorza7007583z00, "No method for this object", 25 );
DEFINE_STRING( BGl_string7546z00zzcfa_tvectorz00, BgL_bgl_string7546za700za7za7cfa_tvectorza7007584z00, "Unexpected closure", 18 );
DEFINE_STRING( BGl_string7545z00zzcfa_tvectorz00, BgL_bgl_string7545za700za7za7cfa_tvectorza7007585z00, "patch!", 6 );
DEFINE_STRING( BGl_string7515z00zzcfa_tvectorz00, BgL_bgl_string7515za700za7za7cfa_tvectorza7007586z00, "        vector of ", 18 );
DEFINE_STRING( BGl_string7514z00zzcfa_tvectorz00, BgL_bgl_string7514za700za7za7cfa_tvectorza7007587z00, " -> vector of ", 14 );
DEFINE_STRING( BGl_string7513z00zzcfa_tvectorz00, BgL_bgl_string7513za700za7za7cfa_tvectorza7007588z00, "   . Vector -> Tvector", 22 );
DEFINE_EXPORT_PROCEDURE( BGl_patchzd2vectorzd2setz12zd2envzc0zzcfa_tvectorz00, BgL_bgl__patchza7d2vectorza7d2setza712za712za7za7cfa_tvectorza7007589za7, BGl__patchzd2vectorzd2setz12z12zzcfa_tvectorz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_tvectorzd2optimiza7ationzf3zd2envz54zzcfa_tvectorz00, BgL_bgl__tvectorza7d2optimiza7a7ationza7f3za786za7za7cfa_tvectorza7007590za7, BGl__tvectorzd2optimiza7ationzf3z86zzcfa_tvectorz00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_proc7516z00zzcfa_tvectorz00, BgL_bgl_getza7d2vectorza7d2itemza7d2typeza7d2makeza7d2vectorza7d2app4719za700za7za7cfa_tvectorza7007591z00, BGl_getzd2vectorzd2itemzd2typezd2makezd2vectorzd2app4719z00zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7517z00zzcfa_tvectorz00, BgL_bgl_getza7d2vectorza7d2itemza7d2typeza7d2vallocza7f2cinfoza7b2optim4721za740za7za7cfa_tvectorza7007592z00, BGl_getzd2vectorzd2itemzd2typezd2valloczf2Cinfozb2optim4721z40zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7518z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2atom4725za7c0za7za7cfa_tvectorza7007593z00, BGl_patchz12zd2atom4725zc0zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7520z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2kwoteza7f2node4729za732za7za7cfa_tvectorza7007594za7, BGl_patchz12zd2kwotezf2node4729z32zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7519z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2kwote4727za7c0za7za7cfa_tvectorza7007595z00, BGl_patchz12zd2kwote4727zc0zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7521z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2var4731za7c0za7za7cfa_tvectorza7007596z00, BGl_patchz12zd2var4731zc0zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7522z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2closure4733za7c0za7za7cfa_tvectorza7007597z00, BGl_patchz12zd2closure4733zc0zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7523z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2sequence4735za7c0za7za7cfa_tvectorza7007598z00, BGl_patchz12zd2sequence4735zc0zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7524z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2appza7d2ly4737za712za7za7cfa_tvectorza7007599za7, BGl_patchz12zd2appzd2ly4737z12zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7525z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2funcall4739za7c0za7za7cfa_tvectorza7007600z00, BGl_patchz12zd2funcall4739zc0zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7526z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2extern4741za7c0za7za7cfa_tvectorza7007601z00, BGl_patchz12zd2extern4741zc0zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7527z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2cast4743za7c0za7za7cfa_tvectorza7007602z00, BGl_patchz12zd2cast4743zc0zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7528z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2setq4745za7c0za7za7cfa_tvectorza7007603z00, BGl_patchz12zd2setq4745zc0zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7530z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2fail4749za7c0za7za7cfa_tvectorza7007604z00, BGl_patchz12zd2fail4749zc0zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7529z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2conditional4747za7c0za7za7cfa_tvectorza7007605z00, BGl_patchz12zd2conditional4747zc0zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7531z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2select4751za7c0za7za7cfa_tvectorza7007606z00, BGl_patchz12zd2select4751zc0zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7532z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2letza7d2fun4753za712za7za7cfa_tvectorza7007607za7, BGl_patchz12zd2letzd2fun4753z12zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7533z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2letza7d2var4755za712za7za7cfa_tvectorza7007608za7, BGl_patchz12zd2letzd2var4755z12zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7534z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2setza7d2exza7d2it4757za7c0za7za7cfa_tvectorza7007609z00, BGl_patchz12zd2setzd2exzd2it4757zc0zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7535z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2jumpza7d2exza7d2it4759za7c0za7za7cfa_tvectorza7007610z00, BGl_patchz12zd2jumpzd2exzd2it4759zc0zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7536z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2makeza7d2box4761za712za7za7cfa_tvectorza7007611za7, BGl_patchz12zd2makezd2box4761z12zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7537z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2boxza7d2setza7124763za700za7za7cfa_tvectorza7007612z00, BGl_patchz12zd2boxzd2setz124763z00zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7538z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2boxza7d2ref4765za712za7za7cfa_tvectorza7007613za7, BGl_patchz12zd2boxzd2ref4765z12zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7540z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2vlength4769za7c0za7za7cfa_tvectorza7007614z00, BGl_patchz12zd2vlength4769zc0zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7539z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2app4767za7c0za7za7cfa_tvectorza7007615z00, BGl_patchz12zd2app4767zc0zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7541z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2makeza7d2vectorza7d2app4771za7c0za7za7cfa_tvectorza7007616z00, BGl_patchz12zd2makezd2vectorzd2app4771zc0zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7542z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2vallocza7f2cinfoza7b2optim4773za780za7za7cfa_tvectorza7007617z00, BGl_patchz12zd2valloczf2Cinfozb2optim4773z80zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7543z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2vrefza7f2cinfo4775za732za7za7cfa_tvectorza7007618za7, BGl_patchz12zd2vrefzf2Cinfo4775z32zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7544z00zzcfa_tvectorz00, BgL_bgl_patchza712za7d2vsetza712za7f2cinfo4777za720za7za7cfa_tvectorza7007619z00, BGl_patchz12zd2vsetz12zf2Cinfo4777z20zzcfa_tvectorz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_vectorzd2ze3tvectorz12zd2envzf1zzcfa_tvectorz00, BgL_bgl__vectorza7d2za7e3tvectorza712za723za7za7cfa_tvectorza7007620za7, BGl__vectorzd2ze3tvectorz12z23zzcfa_tvectorz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_addzd2makezd2vectorz12zd2envzc0zzcfa_tvectorz00, BgL_bgl__addza7d2makeza7d2vectorza7126835za712za7za7cfa_tvectorza7007621za7, BGl__addzd2makezd2vectorz126835z12zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_patchz12zd2default4722zd2envz12zzcfa_tvectorz00, BgL_bgl__patchza712za7d2default4722za7c0za7za7cfa_tvectorza7007622z00, BGl__patchz12zd2default4722zc0zzcfa_tvectorz00, 0L, 1 );
DEFINE_STATIC_GENERIC( BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_bgl__patchza7126839za712za7za7cfa_tvectorza7007623za7, BGl__patchz126839z12zzcfa_tvectorz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_unpatchzd2vectorzd2setz12zd2envzc0zzcfa_tvectorz00, BgL_bgl__unpatchza7d2vectorza7d2setza712za712za7za7cfa_tvectorza7007624za7, BGl__unpatchzd2vectorzd2setz12z12zzcfa_tvectorz00, 0L, 0 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzcfa_tvectorz00(long BgL_checksumz00_3557, char * BgL_fromz00_3558)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzcfa_tvectorz00))
{ 
BGl_requirezd2initializa7ationz75zzcfa_tvectorz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzcfa_tvectorz00(); 
BGl_cnstzd2initzd2zzcfa_tvectorz00(); 
BGl_importedzd2moduleszd2initz00zzcfa_tvectorz00(); 
BGl_methodzd2initzd2zzcfa_tvectorz00(); 
BGl_toplevelzd2initzd2zzcfa_tvectorz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzcfa_tvectorz00()
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 15 */
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)0), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long)0), "cfa_tvector"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzcfa_tvectorz00()
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 15 */
{ /* ./Cfa/tvector.scm 15 */
obj_t BgL_cportz00_3544;
BgL_cportz00_3544 = 
open_input_string(BGl_string7548z00zzcfa_tvectorz00); 
{ 
long BgL_iz00_3545;
BgL_iz00_3545 = ((long)20); 
BgL_loopz00_3546:
{ /* ./Cfa/tvector.scm 15 */
bool_t BgL_test7550z00_3547;
BgL_test7550z00_3547 = 
(BgL_iz00_3545==((long)-1)); 
if(BgL_test7550z00_3547)
{ /* ./Cfa/tvector.scm 15 */
return BUNSPEC;}  else 
{ /* ./Cfa/tvector.scm 15 */
{ /* ./Cfa/tvector.scm 15 */
obj_t BgL_arg7552z00_3548;
{ /* ./Cfa/tvector.scm 15 */
obj_t BgL_list7555z00_3549;
BgL_list7555z00_3549 = 
MAKE_PAIR(BgL_cportz00_3544, BNIL); 
BgL_arg7552z00_3548 = 
BGl_readz00zz__readerz00(BgL_list7555z00_3549); } 
{ /* ./Cfa/tvector.scm 15 */
int BgL_auxz00_3577;
BgL_auxz00_3577 = 
(int)(BgL_iz00_3545); 
CNST_TABLE_SET(BgL_auxz00_3577, BgL_arg7552z00_3548); } } 
{ /* ./Cfa/tvector.scm 15 */
int BgL_auxz00_3550;
{ /* ./Cfa/tvector.scm 15 */
long BgL_auxz00_3580;
BgL_auxz00_3580 = 
(BgL_iz00_3545-((long)1)); 
BgL_auxz00_3550 = 
(int)(BgL_auxz00_3580); } 
{ 
long BgL_iz00_3583;
BgL_iz00_3583 = 
(long)(BgL_auxz00_3550); 
BgL_iz00_3545 = BgL_iz00_3583; 
goto BgL_loopz00_3546;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzcfa_tvectorz00()
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 15 */
BGl_za2makezd2vectorzd2listza2z00zzcfa_tvectorz00 = BNIL; 
return BUNSPEC;} 
}



/* tvector-optimization? */
BGL_EXPORTED_DEF obj_t BGl_tvectorzd2optimiza7ationzf3z86zzcfa_tvectorz00()
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 59 */
{ /* ./Cfa/tvector.scm 60 */
bool_t BgL__andtest_4638z00_1105;
{ /* ./Cfa/tvector.scm 60 */
long BgL_n1z00_2259;
BgL_n1z00_2259 = 
(long)CINT(BGl_za2optimza2z00zzengine_paramz00); 
BgL__andtest_4638z00_1105 = 
(BgL_n1z00_2259>=((long)3)); } 
if(BgL__andtest_4638z00_1105)
{ /* ./Cfa/tvector.scm 60 */
if(
CBOOL(BGl_za2libzd2modeza2zd2zzengine_paramz00))
{ /* ./Cfa/tvector.scm 60 */
return BFALSE;}  else 
{ /* ./Cfa/tvector.scm 60 */
return BTRUE;} }  else 
{ /* ./Cfa/tvector.scm 60 */
return BFALSE;} } } 
}



/* _tvector-optimization? */
obj_t BGl__tvectorzd2optimiza7ationzf3z86zzcfa_tvectorz00(obj_t BgL_envz00_3440)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 59 */
return 
BGl_tvectorzd2optimiza7ationzf3z86zzcfa_tvectorz00();} 
}



/* patch-vector-set! */
BGL_EXPORTED_DEF obj_t BGl_patchzd2vectorzd2setz12z12zzcfa_tvectorz00()
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 68 */
{ /* ./Cfa/tvector.scm 69 */
bool_t BgL_test4845z00_1106;
{ /* ./Cfa/tvector.scm 69 */
obj_t BgL_auxz00_3591;
BgL_auxz00_3591 = 
BGl_tvectorzd2optimiza7ationzf3z86zzcfa_tvectorz00(); 
BgL_test4845z00_1106 = 
CBOOL(BgL_auxz00_3591); } 
if(BgL_test4845z00_1106)
{ /* ./Cfa/tvector.scm 69 */
{ 
obj_t BgL_l4639z00_1107;
BgL_l4639z00_1107 = 
CNST_TABLE_REF(((long)0)); 
BgL_forzd2each4640zd2_1108:
{ /* ./Cfa/tvector.scm 71 */
bool_t BgL_test4847z00_1109;
BgL_test4847z00_1109 = 
PAIRP(BgL_l4639z00_1107); 
if(BgL_test4847z00_1109)
{ /* ./Cfa/tvector.scm 71 */
{ /* ./Cfa/tvector.scm 72 */
obj_t BgL_setz00_1110;
BgL_setz00_1110 = 
CAR(BgL_l4639z00_1107); 
{ /* ./Cfa/tvector.scm 72 */
obj_t BgL_gz00_1111;
BgL_gz00_1111 = 
BGl_findzd2globalzd2zzast_envz00(BgL_setz00_1110, BNIL); 
{ /* ./Cfa/tvector.scm 73 */
bool_t BgL_test4848z00_1112;
BgL_test4848z00_1112 = 
BGl_iszd2azf3z21zz__objectz00(BgL_gz00_1111, BGl_globalz00zzast_varz00); 
if(BgL_test4848z00_1112)
{ /* ./Cfa/tvector.scm 74 */
BgL_valuez00_bglt BgL_funz00_1113;
{ /* ./Cfa/tvector.scm 74 */
BgL_variablez00_bglt BgL_obj1162z00_2264;
BgL_obj1162z00_2264 = 
(BgL_variablez00_bglt)(BgL_gz00_1111); 
BgL_funz00_1113 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1162z00_2264))->BgL_valuez00); } 
{ /* ./Cfa/tvector.scm 76 */
bool_t BgL_test4849z00_1114;
{ /* ./Cfa/tvector.scm 76 */
obj_t BgL_obj1551z00_2265;
BgL_obj1551z00_2265 = 
(obj_t)(BgL_funz00_1113); 
BgL_test4849z00_1114 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1551z00_2265, BGl_cfunz00zzast_varz00); } 
if(BgL_test4849z00_1114)
{ /* ./Cfa/tvector.scm 76 */
{ /* ./Cfa/tvector.scm 77 */
obj_t BgL_arg4851z00_1115;BgL_typez00_bglt BgL_arg4852z00_1116;
{ /* ./Cfa/tvector.scm 77 */
obj_t BgL_auxz00_3606;
{ /* ./Cfa/tvector.scm 77 */
obj_t BgL_auxz00_3607;
{ /* ./Cfa/tvector.scm 77 */
BgL_cfunz00_bglt BgL_obj1507z00_2266;
BgL_obj1507z00_2266 = 
(BgL_cfunz00_bglt)(BgL_funz00_1113); 
BgL_auxz00_3607 = 
(((BgL_cfunz00_bglt)CREF(BgL_obj1507z00_2266))->BgL_argszd2typezd2); } 
BgL_auxz00_3606 = 
CDR(BgL_auxz00_3607); } 
BgL_arg4851z00_1115 = 
CDR(BgL_auxz00_3606); } 
BgL_arg4852z00_1116 = 
BGl_getzd2defaultzd2typez00zztype_cachez00(); 
{ /* ./Cfa/tvector.scm 77 */
obj_t BgL_objz00_2272;
BgL_objz00_2272 = 
(obj_t)(BgL_arg4852z00_1116); 
SET_CAR(BgL_arg4851z00_1115, BgL_objz00_2272); } } }  else 
{ /* ./Cfa/tvector.scm 79 */
bool_t BgL_test4859z00_1118;
{ /* ./Cfa/tvector.scm 79 */
obj_t BgL_obj1487z00_2273;
BgL_obj1487z00_2273 = 
(obj_t)(BgL_funz00_1113); 
BgL_test4859z00_1118 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1487z00_2273, BGl_sfunz00zzast_varz00); } 
if(BgL_test4859z00_1118)
{ /* ./Cfa/tvector.scm 79 */
{ /* ./Cfa/tvector.scm 80 */
obj_t BgL_arg4861z00_1119;BgL_typez00_bglt BgL_arg4862z00_1120;
{ /* ./Cfa/tvector.scm 80 */
obj_t BgL_auxz00_3618;
{ /* ./Cfa/tvector.scm 80 */
obj_t BgL_auxz00_3619;
{ /* ./Cfa/tvector.scm 80 */
obj_t BgL_auxz00_3620;
{ /* ./Cfa/tvector.scm 80 */
BgL_sfunz00_bglt BgL_obj1430z00_2274;
BgL_obj1430z00_2274 = 
(BgL_sfunz00_bglt)(BgL_funz00_1113); 
BgL_auxz00_3620 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1430z00_2274))->BgL_argsz00); } 
BgL_auxz00_3619 = 
CDR(BgL_auxz00_3620); } 
BgL_auxz00_3618 = 
CDR(BgL_auxz00_3619); } 
BgL_arg4861z00_1119 = 
CAR(BgL_auxz00_3618); } 
BgL_arg4862z00_1120 = 
BGl_getzd2defaultzd2typez00zztype_cachez00(); 
{ /* ./Cfa/tvector.scm 80 */
BgL_variablez00_bglt BgL_obj1161z00_2281;BgL_typez00_bglt BgL_val1160z00_2282;
BgL_obj1161z00_2281 = 
(BgL_variablez00_bglt)(BgL_arg4861z00_1119); 
BgL_val1160z00_2282 = BgL_arg4862z00_1120; 
((((BgL_variablez00_bglt)CREF(BgL_obj1161z00_2281))->BgL_typez00) = ((BgL_typez00_bglt)BgL_val1160z00_2282), BUNSPEC); } } }  else 
{ /* ./Cfa/tvector.scm 79 */BFALSE; } } } }  else 
{ /* ./Cfa/tvector.scm 73 */BFALSE; } } } } 
{ /* ./Cfa/tvector.scm 71 */
obj_t BgL_arg4877z00_1123;
BgL_arg4877z00_1123 = 
CDR(BgL_l4639z00_1107); 
{ 
obj_t BgL_l4639z00_3630;
BgL_l4639z00_3630 = BgL_arg4877z00_1123; 
BgL_l4639z00_1107 = BgL_l4639z00_3630; 
goto BgL_forzd2each4640zd2_1108;} } }  else 
{ /* ./Cfa/tvector.scm 71 */((bool_t)1); } } } 
{ /* ./Cfa/tvector.scm 83 */
obj_t BgL_gz00_1124;
BgL_gz00_1124 = 
BGl_findzd2globalzd2zzast_envz00(
CNST_TABLE_REF(((long)1)), BNIL); 
{ /* ./Cfa/tvector.scm 84 */
bool_t BgL_test4881z00_1125;
BgL_test4881z00_1125 = 
BGl_iszd2azf3z21zz__objectz00(BgL_gz00_1124, BGl_globalz00zzast_varz00); 
if(BgL_test4881z00_1125)
{ /* ./Cfa/tvector.scm 85 */
BgL_valuez00_bglt BgL_fz00_1126;
{ /* ./Cfa/tvector.scm 85 */
BgL_variablez00_bglt BgL_obj1162z00_2285;
BgL_obj1162z00_2285 = 
(BgL_variablez00_bglt)(BgL_gz00_1124); 
BgL_fz00_1126 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1162z00_2285))->BgL_valuez00); } 
{ /* ./Cfa/tvector.scm 86 */
obj_t BgL_arg4883z00_1127;BgL_typez00_bglt BgL_arg4884z00_1128;
{ /* ./Cfa/tvector.scm 86 */
BgL_cfunz00_bglt BgL_obj1507z00_2286;
BgL_obj1507z00_2286 = 
(BgL_cfunz00_bglt)(BgL_fz00_1126); 
BgL_arg4883z00_1127 = 
(((BgL_cfunz00_bglt)CREF(BgL_obj1507z00_2286))->BgL_argszd2typezd2); } 
BgL_arg4884z00_1128 = 
BGl_getzd2defaultzd2typez00zztype_cachez00(); 
{ /* ./Cfa/tvector.scm 86 */
obj_t BgL_objz00_2288;
BgL_objz00_2288 = 
(obj_t)(BgL_arg4884z00_1128); 
SET_CAR(BgL_arg4883z00_1127, BgL_objz00_2288); } } }  else 
{ /* ./Cfa/tvector.scm 84 */BFALSE; } } } 
{ /* ./Cfa/tvector.scm 87 */
obj_t BgL_gz00_1130;
BgL_gz00_1130 = 
BGl_findzd2globalzd2zzast_envz00(
CNST_TABLE_REF(((long)2)), BNIL); 
{ /* ./Cfa/tvector.scm 88 */
bool_t BgL_test4892z00_1131;
BgL_test4892z00_1131 = 
BGl_iszd2azf3z21zz__objectz00(BgL_gz00_1130, BGl_globalz00zzast_varz00); 
if(BgL_test4892z00_1131)
{ /* ./Cfa/tvector.scm 89 */
BgL_valuez00_bglt BgL_fz00_1132;
{ /* ./Cfa/tvector.scm 89 */
BgL_variablez00_bglt BgL_obj1162z00_2290;
BgL_obj1162z00_2290 = 
(BgL_variablez00_bglt)(BgL_gz00_1130); 
BgL_fz00_1132 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1162z00_2290))->BgL_valuez00); } 
{ /* ./Cfa/tvector.scm 90 */
obj_t BgL_arg4894z00_1133;BgL_typez00_bglt BgL_arg4895z00_1134;
{ /* ./Cfa/tvector.scm 90 */
obj_t BgL_auxz00_3649;
{ /* ./Cfa/tvector.scm 90 */
BgL_sfunz00_bglt BgL_obj1430z00_2291;
BgL_obj1430z00_2291 = 
(BgL_sfunz00_bglt)(BgL_fz00_1132); 
BgL_auxz00_3649 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1430z00_2291))->BgL_argsz00); } 
BgL_arg4894z00_1133 = 
CAR(BgL_auxz00_3649); } 
BgL_arg4895z00_1134 = 
BGl_getzd2defaultzd2typez00zztype_cachez00(); 
{ /* ./Cfa/tvector.scm 90 */
BgL_variablez00_bglt BgL_obj1161z00_2293;BgL_typez00_bglt BgL_val1160z00_2294;
BgL_obj1161z00_2293 = 
(BgL_variablez00_bglt)(BgL_arg4894z00_1133); 
BgL_val1160z00_2294 = BgL_arg4895z00_1134; 
return 
((((BgL_variablez00_bglt)CREF(BgL_obj1161z00_2293))->BgL_typez00) = ((BgL_typez00_bglt)BgL_val1160z00_2294), BUNSPEC);} } }  else 
{ /* ./Cfa/tvector.scm 88 */
return BFALSE;} } } }  else 
{ /* ./Cfa/tvector.scm 69 */
return BFALSE;} } } 
}



/* _patch-vector-set! */
obj_t BGl__patchzd2vectorzd2setz12z12zzcfa_tvectorz00(obj_t BgL_envz00_3441)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 68 */
return 
BGl_patchzd2vectorzd2setz12z12zzcfa_tvectorz00();} 
}



/* unpatch-vector-set! */
BGL_EXPORTED_DEF obj_t BGl_unpatchzd2vectorzd2setz12z12zzcfa_tvectorz00()
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 99 */
{ /* ./Cfa/tvector.scm 100 */
bool_t BgL_test4907z00_1137;
{ /* ./Cfa/tvector.scm 100 */
obj_t BgL_auxz00_3657;
BgL_auxz00_3657 = 
BGl_tvectorzd2optimiza7ationzf3z86zzcfa_tvectorz00(); 
BgL_test4907z00_1137 = 
CBOOL(BgL_auxz00_3657); } 
if(BgL_test4907z00_1137)
{ /* ./Cfa/tvector.scm 100 */
{ 
obj_t BgL_l4641z00_1138;
BgL_l4641z00_1138 = 
CNST_TABLE_REF(((long)0)); 
BgL_forzd2each4642zd2_1139:
{ /* ./Cfa/tvector.scm 102 */
bool_t BgL_test4909z00_1140;
BgL_test4909z00_1140 = 
PAIRP(BgL_l4641z00_1138); 
if(BgL_test4909z00_1140)
{ /* ./Cfa/tvector.scm 102 */
{ /* ./Cfa/tvector.scm 103 */
obj_t BgL_setz00_1141;
BgL_setz00_1141 = 
CAR(BgL_l4641z00_1138); 
{ /* ./Cfa/tvector.scm 103 */
obj_t BgL_gz00_1142;
BgL_gz00_1142 = 
BGl_findzd2globalzd2zzast_envz00(BgL_setz00_1141, BNIL); 
{ /* ./Cfa/tvector.scm 104 */
bool_t BgL_test4910z00_1143;
BgL_test4910z00_1143 = 
BGl_iszd2azf3z21zz__objectz00(BgL_gz00_1142, BGl_globalz00zzast_varz00); 
if(BgL_test4910z00_1143)
{ /* ./Cfa/tvector.scm 105 */
BgL_valuez00_bglt BgL_funz00_1144;
{ /* ./Cfa/tvector.scm 105 */
BgL_variablez00_bglt BgL_obj1162z00_2298;
BgL_obj1162z00_2298 = 
(BgL_variablez00_bglt)(BgL_gz00_1142); 
BgL_funz00_1144 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1162z00_2298))->BgL_valuez00); } 
{ /* ./Cfa/tvector.scm 107 */
bool_t BgL_test4911z00_1145;
{ /* ./Cfa/tvector.scm 107 */
obj_t BgL_obj1551z00_2299;
BgL_obj1551z00_2299 = 
(obj_t)(BgL_funz00_1144); 
BgL_test4911z00_1145 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1551z00_2299, BGl_cfunz00zzast_varz00); } 
if(BgL_test4911z00_1145)
{ /* ./Cfa/tvector.scm 107 */
{ /* ./Cfa/tvector.scm 108 */
obj_t BgL_arg4913z00_1146;
{ /* ./Cfa/tvector.scm 108 */
obj_t BgL_auxz00_3672;
{ /* ./Cfa/tvector.scm 108 */
obj_t BgL_auxz00_3673;
{ /* ./Cfa/tvector.scm 108 */
BgL_cfunz00_bglt BgL_obj1507z00_2300;
BgL_obj1507z00_2300 = 
(BgL_cfunz00_bglt)(BgL_funz00_1144); 
BgL_auxz00_3673 = 
(((BgL_cfunz00_bglt)CREF(BgL_obj1507z00_2300))->BgL_argszd2typezd2); } 
BgL_auxz00_3672 = 
CDR(BgL_auxz00_3673); } 
BgL_arg4913z00_1146 = 
CDR(BgL_auxz00_3672); } 
{ /* ./Cfa/tvector.scm 108 */
obj_t BgL_objz00_2306;
BgL_objz00_2306 = BGl_za2objza2z00zztype_cachez00; 
SET_CAR(BgL_arg4913z00_1146, BgL_objz00_2306); } } }  else 
{ /* ./Cfa/tvector.scm 110 */
bool_t BgL_test4919z00_1148;
{ /* ./Cfa/tvector.scm 110 */
obj_t BgL_obj1487z00_2307;
BgL_obj1487z00_2307 = 
(obj_t)(BgL_funz00_1144); 
BgL_test4919z00_1148 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1487z00_2307, BGl_sfunz00zzast_varz00); } 
if(BgL_test4919z00_1148)
{ /* ./Cfa/tvector.scm 110 */
{ /* ./Cfa/tvector.scm 111 */
obj_t BgL_arg4921z00_1149;
{ /* ./Cfa/tvector.scm 111 */
obj_t BgL_auxz00_3682;
{ /* ./Cfa/tvector.scm 111 */
obj_t BgL_auxz00_3683;
{ /* ./Cfa/tvector.scm 111 */
obj_t BgL_auxz00_3684;
{ /* ./Cfa/tvector.scm 111 */
BgL_sfunz00_bglt BgL_obj1430z00_2308;
BgL_obj1430z00_2308 = 
(BgL_sfunz00_bglt)(BgL_funz00_1144); 
BgL_auxz00_3684 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1430z00_2308))->BgL_argsz00); } 
BgL_auxz00_3683 = 
CDR(BgL_auxz00_3684); } 
BgL_auxz00_3682 = 
CDR(BgL_auxz00_3683); } 
BgL_arg4921z00_1149 = 
CAR(BgL_auxz00_3682); } 
{ /* ./Cfa/tvector.scm 111 */
BgL_variablez00_bglt BgL_obj1161z00_2315;BgL_typez00_bglt BgL_val1160z00_2316;
BgL_obj1161z00_2315 = 
(BgL_variablez00_bglt)(BgL_arg4921z00_1149); 
BgL_val1160z00_2316 = 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00); 
((((BgL_variablez00_bglt)CREF(BgL_obj1161z00_2315))->BgL_typez00) = ((BgL_typez00_bglt)BgL_val1160z00_2316), BUNSPEC); } } }  else 
{ /* ./Cfa/tvector.scm 110 */BFALSE; } } } }  else 
{ /* ./Cfa/tvector.scm 104 */BFALSE; } } } } 
{ /* ./Cfa/tvector.scm 102 */
obj_t BgL_arg4935z00_1152;
BgL_arg4935z00_1152 = 
CDR(BgL_l4641z00_1138); 
{ 
obj_t BgL_l4641z00_3694;
BgL_l4641z00_3694 = BgL_arg4935z00_1152; 
BgL_l4641z00_1138 = BgL_l4641z00_3694; 
goto BgL_forzd2each4642zd2_1139;} } }  else 
{ /* ./Cfa/tvector.scm 102 */((bool_t)1); } } } 
{ /* ./Cfa/tvector.scm 114 */
obj_t BgL_gz00_1153;
BgL_gz00_1153 = 
BGl_findzd2globalzd2zzast_envz00(
CNST_TABLE_REF(((long)1)), BNIL); 
{ /* ./Cfa/tvector.scm 115 */
bool_t BgL_test4939z00_1154;
BgL_test4939z00_1154 = 
BGl_iszd2azf3z21zz__objectz00(BgL_gz00_1153, BGl_globalz00zzast_varz00); 
if(BgL_test4939z00_1154)
{ /* ./Cfa/tvector.scm 116 */
BgL_valuez00_bglt BgL_fz00_1155;
{ /* ./Cfa/tvector.scm 116 */
BgL_variablez00_bglt BgL_obj1162z00_2319;
BgL_obj1162z00_2319 = 
(BgL_variablez00_bglt)(BgL_gz00_1153); 
BgL_fz00_1155 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1162z00_2319))->BgL_valuez00); } 
{ /* ./Cfa/tvector.scm 117 */
obj_t BgL_arg4941z00_1156;
{ /* ./Cfa/tvector.scm 117 */
BgL_cfunz00_bglt BgL_obj1507z00_2320;
BgL_obj1507z00_2320 = 
(BgL_cfunz00_bglt)(BgL_fz00_1155); 
BgL_arg4941z00_1156 = 
(((BgL_cfunz00_bglt)CREF(BgL_obj1507z00_2320))->BgL_argszd2typezd2); } 
{ /* ./Cfa/tvector.scm 117 */
obj_t BgL_objz00_2322;
BgL_objz00_2322 = BGl_za2objza2z00zztype_cachez00; 
SET_CAR(BgL_arg4941z00_1156, BgL_objz00_2322); } } }  else 
{ /* ./Cfa/tvector.scm 115 */BFALSE; } } } 
{ /* ./Cfa/tvector.scm 118 */
obj_t BgL_gz00_1158;
BgL_gz00_1158 = 
BGl_findzd2globalzd2zzast_envz00(
CNST_TABLE_REF(((long)2)), BNIL); 
{ /* ./Cfa/tvector.scm 119 */
bool_t BgL_test4948z00_1159;
BgL_test4948z00_1159 = 
BGl_iszd2azf3z21zz__objectz00(BgL_gz00_1158, BGl_globalz00zzast_varz00); 
if(BgL_test4948z00_1159)
{ /* ./Cfa/tvector.scm 120 */
BgL_valuez00_bglt BgL_fz00_1160;
{ /* ./Cfa/tvector.scm 120 */
BgL_variablez00_bglt BgL_obj1162z00_2324;
BgL_obj1162z00_2324 = 
(BgL_variablez00_bglt)(BgL_gz00_1158); 
BgL_fz00_1160 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1162z00_2324))->BgL_valuez00); } 
{ /* ./Cfa/tvector.scm 121 */
obj_t BgL_arg4950z00_1161;
{ /* ./Cfa/tvector.scm 121 */
obj_t BgL_auxz00_3711;
{ /* ./Cfa/tvector.scm 121 */
BgL_sfunz00_bglt BgL_obj1430z00_2325;
BgL_obj1430z00_2325 = 
(BgL_sfunz00_bglt)(BgL_fz00_1160); 
BgL_auxz00_3711 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1430z00_2325))->BgL_argsz00); } 
BgL_arg4950z00_1161 = 
CAR(BgL_auxz00_3711); } 
{ /* ./Cfa/tvector.scm 121 */
BgL_variablez00_bglt BgL_obj1161z00_2327;BgL_typez00_bglt BgL_val1160z00_2328;
BgL_obj1161z00_2327 = 
(BgL_variablez00_bglt)(BgL_arg4950z00_1161); 
BgL_val1160z00_2328 = 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00); 
return 
((((BgL_variablez00_bglt)CREF(BgL_obj1161z00_2327))->BgL_typez00) = ((BgL_typez00_bglt)BgL_val1160z00_2328), BUNSPEC);} } }  else 
{ /* ./Cfa/tvector.scm 119 */
return BFALSE;} } } }  else 
{ /* ./Cfa/tvector.scm 100 */
return BUNSPEC;} } } 
}



/* _unpatch-vector-set! */
obj_t BGl__unpatchzd2vectorzd2setz12z12zzcfa_tvectorz00(obj_t BgL_envz00_3442)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 99 */
return 
BGl_unpatchzd2vectorzd2setz12z12zzcfa_tvectorz00();} 
}



/* vector->tvector! */
BGL_EXPORTED_DEF obj_t BGl_vectorzd2ze3tvectorz12z23zzcfa_tvectorz00(obj_t BgL_globalsz00_29)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 127 */
{ /* ./Cfa/tvector.scm 128 */
bool_t BgL_test4961z00_1164;
{ /* ./Cfa/tvector.scm 128 */
obj_t BgL_auxz00_3719;
BgL_auxz00_3719 = 
BGl_tvectorzd2optimiza7ationzf3z86zzcfa_tvectorz00(); 
BgL_test4961z00_1164 = 
CBOOL(BgL_auxz00_3719); } 
if(BgL_test4961z00_1164)
{ /* ./Cfa/tvector.scm 128 */
BGl_inlinezd2setupz12zc0zzinline_walkz00(
CNST_TABLE_REF(((long)3))); 
{ /* ./Cfa/tvector.scm 137 */
obj_t BgL_tvectorsz00_1165;
BgL_tvectorsz00_1165 = 
BGl_getzd2tvectorszd2zzcfa_tvectorz00(); 
BGl_showzd2tvectorzd2zzcfa_tvectorz00(BgL_tvectorsz00_1165); 
{ /* ./Cfa/tvector.scm 140 */
bool_t BgL_test4964z00_1166;
BgL_test4964z00_1166 = 
PAIRP(BgL_tvectorsz00_1165); 
if(BgL_test4964z00_1166)
{ /* ./Cfa/tvector.scm 141 */
obj_t BgL_addzd2treezd2_1167;
BgL_addzd2treezd2_1167 = 
BGl_declarezd2tvectorszd2zzcfa_tvectorz00(BgL_tvectorsz00_1165); 
BGl_patchzd2treez12zc0zzcfa_tvectorz00(BgL_globalsz00_29); 
return BgL_addzd2treezd2_1167;}  else 
{ /* ./Cfa/tvector.scm 140 */
BGl_patchzd2treez12zc0zzcfa_tvectorz00(BgL_globalsz00_29); 
return BNIL;} } } }  else 
{ /* ./Cfa/tvector.scm 128 */
return BNIL;} } } 
}



/* _vector->tvector! */
obj_t BGl__vectorzd2ze3tvectorz12z23zzcfa_tvectorz00(obj_t BgL_envz00_3443, obj_t BgL_globalsz00_3444)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 127 */
return 
BGl_vectorzd2ze3tvectorz12z23zzcfa_tvectorz00(BgL_globalsz00_3444);} 
}



/* add-make-vector! */
BGL_EXPORTED_DEF obj_t BGl_addzd2makezd2vectorz12z12zzcfa_tvectorz00(BgL_nodez00_bglt BgL_nodez00_30)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 159 */
{ /* ./Cfa/tvector.scm 160 */
bool_t BgL_test4971z00_1168;
{ /* ./Cfa/tvector.scm 160 */
obj_t BgL_auxz00_3733;
BgL_auxz00_3733 = 
BGl_tvectorzd2optimiza7ationzf3z86zzcfa_tvectorz00(); 
BgL_test4971z00_1168 = 
CBOOL(BgL_auxz00_3733); } 
if(BgL_test4971z00_1168)
{ /* ./Cfa/tvector.scm 161 */
obj_t BgL_auxz00_3737;
BgL_auxz00_3737 = 
(obj_t)(BgL_nodez00_30); 
return ( 
BGl_za2makezd2vectorzd2listza2z00zzcfa_tvectorz00 = 
MAKE_PAIR(BgL_auxz00_3737, BGl_za2makezd2vectorzd2listza2z00zzcfa_tvectorz00), BUNSPEC) ;}  else 
{ /* ./Cfa/tvector.scm 160 */
return BFALSE;} } } 
}



/* _add-make-vector!6835 */
obj_t BGl__addzd2makezd2vectorz126835z12zzcfa_tvectorz00(obj_t BgL_envz00_3445, obj_t BgL_nodez00_3446)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 159 */
return 
BGl_addzd2makezd2vectorz12z12zzcfa_tvectorz00(
(BgL_nodez00_bglt)(BgL_nodez00_3446));} 
}



/* get-tvectors */
obj_t BGl_getzd2tvectorszd2zzcfa_tvectorz00()
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 169 */
{ 
obj_t BgL_appsz00_1169;obj_t BgL_tvectorsz00_1170;
BgL_appsz00_1169 = BGl_za2makezd2vectorzd2listza2z00zzcfa_tvectorz00; 
BgL_tvectorsz00_1170 = BNIL; 
BgL_loopz00_1171:
{ /* ./Cfa/tvector.scm 172 */
bool_t BgL_test4975z00_1172;
BgL_test4975z00_1172 = 
NULLP(BgL_appsz00_1169); 
if(BgL_test4975z00_1172)
{ /* ./Cfa/tvector.scm 172 */
return BgL_tvectorsz00_1170;}  else 
{ /* ./Cfa/tvector.scm 174 */
obj_t BgL_appz00_1173;
BgL_appz00_1173 = 
CAR(BgL_appsz00_1169); 
{ /* ./Cfa/tvector.scm 174 */
BgL_typez00_bglt BgL_typez00_1174;
{ /* ./Cfa/tvector.scm 175 */
BgL_typez00_bglt BgL_res6762z00_2358;
{ /* ./Cfa/tvector.scm 175 */
BgL_nodez00_bglt BgL_nodez00_2332;
BgL_nodez00_2332 = 
(BgL_nodez00_bglt)(BgL_appz00_1173); 
{ /* ./Cfa/tvector.scm 175 */
obj_t BgL_method4717z00_2333;
{ /* ./Cfa/tvector.scm 175 */
BgL_objectz00_bglt BgL_objz00_2334;
BgL_objz00_2334 = 
(BgL_objectz00_bglt)(BgL_nodez00_2332); 
{ /* ./Cfa/tvector.scm 175 */
long BgL_objzd2classzd2numz00_2335;
BgL_objzd2classzd2numz00_2335 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2334); 
{ /* ./Cfa/tvector.scm 175 */
obj_t BgL_arg2017z00_2336;
{ /* ./Cfa/tvector.scm 175 */
int BgL_auxz00_3748;
BgL_auxz00_3748 = 
(int)(((long)1)); 
BgL_arg2017z00_2336 = 
PROCEDURE_REF(BGl_getzd2vectorzd2itemzd2typezd2envz00zzcfa_tvectorz00, BgL_auxz00_3748); } 
{ /* ./Cfa/tvector.scm 175 */
int BgL_offsetz00_2339;
BgL_offsetz00_2339 = 
(int)(BgL_objzd2classzd2numz00_2335); 
{ /* ./Cfa/tvector.scm 175 */
long BgL_offsetz00_2340;
{ /* ./Cfa/tvector.scm 175 */
long BgL_auxz00_3752;
BgL_auxz00_3752 = 
(long)(BgL_offsetz00_2339); 
BgL_offsetz00_2340 = 
(BgL_auxz00_3752-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 175 */
long BgL_modz00_2341;
{ /* ./Cfa/tvector.scm 175 */
int BgL_arg2028z00_2342;
BgL_arg2028z00_2342 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 175 */
long BgL_n2z00_2350;
BgL_n2z00_2350 = 
(long)(BgL_arg2028z00_2342); 
BgL_modz00_2341 = 
(BgL_offsetz00_2340/BgL_n2z00_2350); } } 
{ /* ./Cfa/tvector.scm 175 */
long BgL_restz00_2343;
{ /* ./Cfa/tvector.scm 175 */
int BgL_arg2024z00_2344;
BgL_arg2024z00_2344 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 175 */
long BgL_n2z00_2353;
BgL_n2z00_2353 = 
(long)(BgL_arg2024z00_2344); 
BgL_restz00_2343 = 
(BgL_offsetz00_2340%BgL_n2z00_2353); } } 
{ /* ./Cfa/tvector.scm 175 */

{ /* ./Cfa/tvector.scm 175 */
obj_t BgL_bucketz00_2345;
{ /* ./Cfa/tvector.scm 175 */
int BgL_kz00_2355;
BgL_kz00_2355 = 
(int)(BgL_modz00_2341); 
BgL_bucketz00_2345 = 
VECTOR_REF(BgL_arg2017z00_2336,BgL_kz00_2355); } 
{ /* ./Cfa/tvector.scm 175 */
int BgL_kz00_2357;
BgL_kz00_2357 = 
(int)(BgL_restz00_2343); 
BgL_method4717z00_2333 = 
VECTOR_REF(BgL_bucketz00_2345,BgL_kz00_2357); } } } } } } } } } } 
{ /* ./Cfa/tvector.scm 175 */
obj_t BgL_auxz00_3765;
BgL_auxz00_3765 = 
PROCEDURE_ENTRY(BgL_method4717z00_2333)(BgL_method4717z00_2333, 
(obj_t)(BgL_nodez00_2332), BEOA); 
BgL_res6762z00_2358 = 
(BgL_typez00_bglt)(BgL_auxz00_3765); } } } 
BgL_typez00_1174 = BgL_res6762z00_2358; } 
{ /* ./Cfa/tvector.scm 175 */

{ /* ./Cfa/tvector.scm 179 */
bool_t BgL_test4976z00_1175;
{ /* ./Cfa/tvector.scm 179 */
bool_t BgL_test4987z00_1179;
{ /* ./Cfa/tvector.scm 179 */
obj_t BgL_auxz00_3770;
BgL_auxz00_3770 = 
(obj_t)(BgL_typez00_1174); 
BgL_test4987z00_1179 = 
(BgL_auxz00_3770==BGl_za2_za2z00zztype_cachez00); } 
if(BgL_test4987z00_1179)
{ /* ./Cfa/tvector.scm 179 */
BgL_test4976z00_1175 = ((bool_t)0); }  else 
{ /* ./Cfa/tvector.scm 180 */
bool_t BgL_test4988z00_1180;
BgL_test4988z00_1180 = 
BGl_subzd2typezf3z21zztype_envz00(BgL_typez00_1174, 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00)); 
if(BgL_test4988z00_1180)
{ /* ./Cfa/tvector.scm 180 */
BgL_test4976z00_1175 = ((bool_t)0); }  else 
{ /* ./Cfa/tvector.scm 180 */
BgL_test4976z00_1175 = ((bool_t)1); } } } 
if(BgL_test4976z00_1175)
{ /* ./Cfa/tvector.scm 181 */
obj_t BgL_arg4978z00_1176;obj_t BgL_arg4979z00_1177;
BgL_arg4978z00_1176 = 
CDR(BgL_appsz00_1169); 
BgL_arg4979z00_1177 = 
MAKE_PAIR(BgL_appz00_1173, BgL_tvectorsz00_1170); 
{ 
obj_t BgL_tvectorsz00_3781;obj_t BgL_appsz00_3780;
BgL_appsz00_3780 = BgL_arg4978z00_1176; 
BgL_tvectorsz00_3781 = BgL_arg4979z00_1177; 
BgL_tvectorsz00_1170 = BgL_tvectorsz00_3781; 
BgL_appsz00_1169 = BgL_appsz00_3780; 
goto BgL_loopz00_1171;} }  else 
{ /* ./Cfa/tvector.scm 182 */
obj_t BgL_arg4984z00_1178;
BgL_arg4984z00_1178 = 
CDR(BgL_appsz00_1169); 
{ 
obj_t BgL_appsz00_3783;
BgL_appsz00_3783 = BgL_arg4984z00_1178; 
BgL_appsz00_1169 = BgL_appsz00_3783; 
goto BgL_loopz00_1171;} } } } } } } } } 
}



/* show-tvector */
bool_t BGl_showzd2tvectorzd2zzcfa_tvectorz00(obj_t BgL_tvectorz00_35)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 210 */
{ /* ./Cfa/tvector.scm 211 */
obj_t BgL_list4995z00_1181;
{ /* ./Cfa/tvector.scm 211 */
obj_t BgL_arg4998z00_1183;
{ /* ./Cfa/tvector.scm 211 */
obj_t BgL_auxz00_3784;
BgL_auxz00_3784 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg4998z00_1183 = 
MAKE_PAIR(BgL_auxz00_3784, BNIL); } 
BgL_list4995z00_1181 = 
MAKE_PAIR(BGl_string7513z00zzcfa_tvectorz00, BgL_arg4998z00_1183); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)1)), BgL_list4995z00_1181); } 
{ 
obj_t BgL_l4647z00_1184;
BgL_l4647z00_1184 = BgL_tvectorz00_35; 
BgL_forzd2each4648zd2_1185:
{ /* ./Cfa/tvector.scm 212 */
bool_t BgL_test5002z00_1186;
BgL_test5002z00_1186 = 
PAIRP(BgL_l4647z00_1184); 
if(BgL_test5002z00_1186)
{ /* ./Cfa/tvector.scm 212 */
{ /* ./Cfa/tvector.scm 213 */
obj_t BgL_appz00_1187;
BgL_appz00_1187 = 
CAR(BgL_l4647z00_1184); 
{ /* ./Cfa/tvector.scm 213 */
obj_t BgL_arg5006z00_1190;obj_t BgL_arg5008z00_1192;
BgL_arg5006z00_1190 = 
BGl_shapez00zztools_shapez00(BGl_za2objza2z00zztype_cachez00); 
{ /* ./Cfa/tvector.scm 216 */
BgL_typez00_bglt BgL_arg5026z00_1198;
{ /* ./Cfa/tvector.scm 216 */
BgL_typez00_bglt BgL_res6765z00_2389;
{ /* ./Cfa/tvector.scm 216 */
BgL_nodez00_bglt BgL_nodez00_2363;
BgL_nodez00_2363 = 
(BgL_nodez00_bglt)(BgL_appz00_1187); 
{ /* ./Cfa/tvector.scm 216 */
obj_t BgL_method4717z00_2364;
{ /* ./Cfa/tvector.scm 216 */
BgL_objectz00_bglt BgL_objz00_2365;
BgL_objz00_2365 = 
(BgL_objectz00_bglt)(BgL_nodez00_2363); 
{ /* ./Cfa/tvector.scm 216 */
long BgL_objzd2classzd2numz00_2366;
BgL_objzd2classzd2numz00_2366 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2365); 
{ /* ./Cfa/tvector.scm 216 */
obj_t BgL_arg2017z00_2367;
{ /* ./Cfa/tvector.scm 216 */
int BgL_auxz00_3797;
BgL_auxz00_3797 = 
(int)(((long)1)); 
BgL_arg2017z00_2367 = 
PROCEDURE_REF(BGl_getzd2vectorzd2itemzd2typezd2envz00zzcfa_tvectorz00, BgL_auxz00_3797); } 
{ /* ./Cfa/tvector.scm 216 */
int BgL_offsetz00_2370;
BgL_offsetz00_2370 = 
(int)(BgL_objzd2classzd2numz00_2366); 
{ /* ./Cfa/tvector.scm 216 */
long BgL_offsetz00_2371;
{ /* ./Cfa/tvector.scm 216 */
long BgL_auxz00_3801;
BgL_auxz00_3801 = 
(long)(BgL_offsetz00_2370); 
BgL_offsetz00_2371 = 
(BgL_auxz00_3801-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 216 */
long BgL_modz00_2372;
{ /* ./Cfa/tvector.scm 216 */
int BgL_arg2028z00_2373;
BgL_arg2028z00_2373 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 216 */
long BgL_n2z00_2381;
BgL_n2z00_2381 = 
(long)(BgL_arg2028z00_2373); 
BgL_modz00_2372 = 
(BgL_offsetz00_2371/BgL_n2z00_2381); } } 
{ /* ./Cfa/tvector.scm 216 */
long BgL_restz00_2374;
{ /* ./Cfa/tvector.scm 216 */
int BgL_arg2024z00_2375;
BgL_arg2024z00_2375 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 216 */
long BgL_n2z00_2384;
BgL_n2z00_2384 = 
(long)(BgL_arg2024z00_2375); 
BgL_restz00_2374 = 
(BgL_offsetz00_2371%BgL_n2z00_2384); } } 
{ /* ./Cfa/tvector.scm 216 */

{ /* ./Cfa/tvector.scm 216 */
obj_t BgL_bucketz00_2376;
{ /* ./Cfa/tvector.scm 216 */
int BgL_kz00_2386;
BgL_kz00_2386 = 
(int)(BgL_modz00_2372); 
BgL_bucketz00_2376 = 
VECTOR_REF(BgL_arg2017z00_2367,BgL_kz00_2386); } 
{ /* ./Cfa/tvector.scm 216 */
int BgL_kz00_2388;
BgL_kz00_2388 = 
(int)(BgL_restz00_2374); 
BgL_method4717z00_2364 = 
VECTOR_REF(BgL_bucketz00_2376,BgL_kz00_2388); } } } } } } } } } } 
{ /* ./Cfa/tvector.scm 216 */
obj_t BgL_auxz00_3814;
BgL_auxz00_3814 = 
PROCEDURE_ENTRY(BgL_method4717z00_2364)(BgL_method4717z00_2364, 
(obj_t)(BgL_nodez00_2363), BEOA); 
BgL_res6765z00_2389 = 
(BgL_typez00_bglt)(BgL_auxz00_3814); } } } 
BgL_arg5026z00_1198 = BgL_res6765z00_2389; } 
BgL_arg5008z00_1192 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_arg5026z00_1198)); } 
{ /* ./Cfa/tvector.scm 213 */
obj_t BgL_list5010z00_1193;
{ /* ./Cfa/tvector.scm 213 */
obj_t BgL_arg5012z00_1194;
{ /* ./Cfa/tvector.scm 213 */
obj_t BgL_arg5015z00_1195;
{ /* ./Cfa/tvector.scm 213 */
obj_t BgL_arg5018z00_1196;
{ /* ./Cfa/tvector.scm 213 */
obj_t BgL_arg5021z00_1197;
{ /* ./Cfa/tvector.scm 213 */
obj_t BgL_auxz00_3821;
BgL_auxz00_3821 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg5021z00_1197 = 
MAKE_PAIR(BgL_auxz00_3821, BNIL); } 
BgL_arg5018z00_1196 = 
MAKE_PAIR(BgL_arg5008z00_1192, BgL_arg5021z00_1197); } 
BgL_arg5015z00_1195 = 
MAKE_PAIR(BGl_string7514z00zzcfa_tvectorz00, BgL_arg5018z00_1196); } 
BgL_arg5012z00_1194 = 
MAKE_PAIR(BgL_arg5006z00_1190, BgL_arg5015z00_1195); } 
BgL_list5010z00_1193 = 
MAKE_PAIR(BGl_string7515z00zzcfa_tvectorz00, BgL_arg5012z00_1194); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)2)), BgL_list5010z00_1193); } } } 
{ /* ./Cfa/tvector.scm 212 */
obj_t BgL_arg5031z00_1199;
BgL_arg5031z00_1199 = 
CDR(BgL_l4647z00_1184); 
{ 
obj_t BgL_l4647z00_3831;
BgL_l4647z00_3831 = BgL_arg5031z00_1199; 
BgL_l4647z00_1184 = BgL_l4647z00_3831; 
goto BgL_forzd2each4648zd2_1185;} } }  else 
{ /* ./Cfa/tvector.scm 212 */
return ((bool_t)1);} } } } 
}



/* declare-tvectors */
obj_t BGl_declarezd2tvectorszd2zzcfa_tvectorz00(obj_t BgL_tvectorz00_36)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 223 */
{ 
obj_t BgL_l4649z00_1200;
BgL_l4649z00_1200 = BgL_tvectorz00_36; 
BgL_forzd2each4650zd2_1201:
{ /* ./Cfa/tvector.scm 225 */
bool_t BgL_test5036z00_1202;
BgL_test5036z00_1202 = 
PAIRP(BgL_l4649z00_1200); 
if(BgL_test5036z00_1202)
{ /* ./Cfa/tvector.scm 225 */
{ /* ./Cfa/tvector.scm 226 */
obj_t BgL_appz00_1203;
BgL_appz00_1203 = 
CAR(BgL_l4649z00_1200); 
{ /* ./Cfa/tvector.scm 226 */
BgL_typez00_bglt BgL_typez00_1204;
{ /* ./Cfa/tvector.scm 226 */
BgL_typez00_bglt BgL_res6768z00_2419;
{ /* ./Cfa/tvector.scm 226 */
BgL_nodez00_bglt BgL_nodez00_2393;
BgL_nodez00_2393 = 
(BgL_nodez00_bglt)(BgL_appz00_1203); 
{ /* ./Cfa/tvector.scm 226 */
obj_t BgL_method4717z00_2394;
{ /* ./Cfa/tvector.scm 226 */
BgL_objectz00_bglt BgL_objz00_2395;
BgL_objz00_2395 = 
(BgL_objectz00_bglt)(BgL_nodez00_2393); 
{ /* ./Cfa/tvector.scm 226 */
long BgL_objzd2classzd2numz00_2396;
BgL_objzd2classzd2numz00_2396 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2395); 
{ /* ./Cfa/tvector.scm 226 */
obj_t BgL_arg2017z00_2397;
{ /* ./Cfa/tvector.scm 226 */
int BgL_auxz00_3838;
BgL_auxz00_3838 = 
(int)(((long)1)); 
BgL_arg2017z00_2397 = 
PROCEDURE_REF(BGl_getzd2vectorzd2itemzd2typezd2envz00zzcfa_tvectorz00, BgL_auxz00_3838); } 
{ /* ./Cfa/tvector.scm 226 */
int BgL_offsetz00_2400;
BgL_offsetz00_2400 = 
(int)(BgL_objzd2classzd2numz00_2396); 
{ /* ./Cfa/tvector.scm 226 */
long BgL_offsetz00_2401;
{ /* ./Cfa/tvector.scm 226 */
long BgL_auxz00_3842;
BgL_auxz00_3842 = 
(long)(BgL_offsetz00_2400); 
BgL_offsetz00_2401 = 
(BgL_auxz00_3842-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 226 */
long BgL_modz00_2402;
{ /* ./Cfa/tvector.scm 226 */
int BgL_arg2028z00_2403;
BgL_arg2028z00_2403 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 226 */
long BgL_n2z00_2411;
BgL_n2z00_2411 = 
(long)(BgL_arg2028z00_2403); 
BgL_modz00_2402 = 
(BgL_offsetz00_2401/BgL_n2z00_2411); } } 
{ /* ./Cfa/tvector.scm 226 */
long BgL_restz00_2404;
{ /* ./Cfa/tvector.scm 226 */
int BgL_arg2024z00_2405;
BgL_arg2024z00_2405 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 226 */
long BgL_n2z00_2414;
BgL_n2z00_2414 = 
(long)(BgL_arg2024z00_2405); 
BgL_restz00_2404 = 
(BgL_offsetz00_2401%BgL_n2z00_2414); } } 
{ /* ./Cfa/tvector.scm 226 */

{ /* ./Cfa/tvector.scm 226 */
obj_t BgL_bucketz00_2406;
{ /* ./Cfa/tvector.scm 226 */
int BgL_kz00_2416;
BgL_kz00_2416 = 
(int)(BgL_modz00_2402); 
BgL_bucketz00_2406 = 
VECTOR_REF(BgL_arg2017z00_2397,BgL_kz00_2416); } 
{ /* ./Cfa/tvector.scm 226 */
int BgL_kz00_2418;
BgL_kz00_2418 = 
(int)(BgL_restz00_2404); 
BgL_method4717z00_2394 = 
VECTOR_REF(BgL_bucketz00_2406,BgL_kz00_2418); } } } } } } } } } } 
{ /* ./Cfa/tvector.scm 226 */
obj_t BgL_auxz00_3855;
BgL_auxz00_3855 = 
PROCEDURE_ENTRY(BgL_method4717z00_2394)(BgL_method4717z00_2394, 
(obj_t)(BgL_nodez00_2393), BEOA); 
BgL_res6768z00_2419 = 
(BgL_typez00_bglt)(BgL_auxz00_3855); } } } 
BgL_typez00_1204 = BgL_res6768z00_2419; } 
{ /* ./Cfa/tvector.scm 228 */
bool_t BgL_test5037z00_1206;
{ /* ./Cfa/tvector.scm 228 */
obj_t BgL_arg5072z00_1222;
BgL_arg5072z00_1222 = 
(((BgL_typez00_bglt)CREF(BgL_typez00_1204))->BgL_tvectorz00); 
BgL_test5037z00_1206 = 
BGl_iszd2azf3z21zz__objectz00(BgL_arg5072z00_1222, BGl_typez00zztype_typez00); } 
if(BgL_test5037z00_1206)
{ /* ./Cfa/tvector.scm 228 */BFALSE; }  else 
{ /* ./Cfa/tvector.scm 229 */
obj_t BgL_tvzd2idzd2_1207;
{ /* ./Cfa/tvector.scm 229 */
obj_t BgL_arg5062z00_1218;obj_t BgL_arg5063z00_1219;
BgL_arg5062z00_1218 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg5063z00_1219 = 
(((BgL_typez00_bglt)CREF(BgL_typez00_1204))->BgL_idz00); 
{ /* ./Cfa/tvector.scm 229 */
obj_t BgL_list5065z00_1220;
{ /* ./Cfa/tvector.scm 229 */
obj_t BgL_arg5067z00_1221;
BgL_arg5067z00_1221 = 
MAKE_PAIR(BgL_arg5063z00_1219, BNIL); 
BgL_list5065z00_1220 = 
MAKE_PAIR(BgL_arg5062z00_1218, BgL_arg5067z00_1221); } 
BgL_tvzd2idzd2_1207 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list5065z00_1220); } } 
{ /* ./Cfa/tvector.scm 231 */
obj_t BgL_arg5039z00_1208;
{ /* ./Cfa/tvector.scm 231 */
obj_t BgL_arg5042z00_1209;
{ /* ./Cfa/tvector.scm 231 */
obj_t BgL_arg5046z00_1211;obj_t BgL_arg5047z00_1212;
BgL_arg5046z00_1211 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./Cfa/tvector.scm 231 */
obj_t BgL_arg5050z00_1213;
{ /* ./Cfa/tvector.scm 231 */
obj_t BgL_arg5053z00_1214;
{ /* ./Cfa/tvector.scm 231 */
obj_t BgL_arg5057z00_1216;
BgL_arg5057z00_1216 = 
(((BgL_typez00_bglt)CREF(BgL_typez00_1204))->BgL_idz00); 
BgL_arg5053z00_1214 = 
MAKE_PAIR(BgL_arg5057z00_1216, BNIL); } 
BgL_arg5050z00_1213 = 
MAKE_PAIR(BgL_arg5053z00_1214, BNIL); } 
BgL_arg5047z00_1212 = 
MAKE_PAIR(BgL_tvzd2idzd2_1207, BgL_arg5050z00_1213); } 
BgL_arg5042z00_1209 = 
MAKE_PAIR(BgL_arg5046z00_1211, BgL_arg5047z00_1212); } 
BgL_arg5039z00_1208 = 
BGl_typezd2parserzd2zzmodule_typez00(BgL_arg5042z00_1209, BNIL); } 
{ /* ./Cfa/tvector.scm 230 */
BgL_typez00_bglt BgL_obj1036z00_2424;obj_t BgL_val1035z00_2425;
BgL_obj1036z00_2424 = BgL_typez00_1204; 
BgL_val1035z00_2425 = BgL_arg5039z00_1208; 
((((BgL_typez00_bglt)CREF(BgL_obj1036z00_2424))->BgL_tvectorz00) = ((obj_t)BgL_val1035z00_2425), BUNSPEC); } } } } } } 
{ /* ./Cfa/tvector.scm 225 */
obj_t BgL_arg5078z00_1223;
BgL_arg5078z00_1223 = 
CDR(BgL_l4649z00_1200); 
{ 
obj_t BgL_l4649z00_3877;
BgL_l4649z00_3877 = BgL_arg5078z00_1223; 
BgL_l4649z00_1200 = BgL_l4649z00_3877; 
goto BgL_forzd2each4650zd2_1201;} } }  else 
{ /* ./Cfa/tvector.scm 225 */((bool_t)1); } } } 
{ /* ./Cfa/tvector.scm 235 */
BgL_typez00_bglt BgL_oldzd2defaultzd2typez00_1224;
BgL_oldzd2defaultzd2typez00_1224 = 
BGl_getzd2defaultzd2typez00zztype_cachez00(); 
BGl_setzd2defaultzd2typez12z12zztype_cachez00(
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00)); 
{ /* ./Cfa/tvector.scm 237 */
obj_t BgL_tvectorzd2unitzd2_1225;
BgL_tvectorzd2unitzd2_1225 = 
BGl_tvectorzd2finaliza7erz75zzmodule_typez00(); 
BGl_pragmazd2finaliza7erz75zzmodule_pragmaz00(); 
{ /* ./Cfa/tvector.scm 239 */
obj_t BgL_resz00_1226;
{ /* ./Cfa/tvector.scm 239 */
bool_t BgL_test5085z00_1227;
if(
STRUCTP(BgL_tvectorzd2unitzd2_1225))
{ /* ./Cfa/tvector.scm 239 */
obj_t BgL_auxz00_3887;obj_t BgL_auxz00_3885;
BgL_auxz00_3887 = 
CNST_TABLE_REF(((long)6)); 
BgL_auxz00_3885 = 
STRUCT_KEY(BgL_tvectorzd2unitzd2_1225); 
BgL_test5085z00_1227 = 
(BgL_auxz00_3885==BgL_auxz00_3887); }  else 
{ /* ./Cfa/tvector.scm 239 */
BgL_test5085z00_1227 = ((bool_t)0); } 
if(BgL_test5085z00_1227)
{ /* ./Cfa/tvector.scm 241 */
obj_t BgL_arg5087z00_1228;obj_t BgL_arg5088z00_1229;
{ /* ./Cfa/tvector.scm 241 */
obj_t BgL_arg5091z00_1230;
{ /* ./Cfa/tvector.scm 241 */
obj_t BgL_list5094z00_1231;
BgL_list5094z00_1231 = 
MAKE_PAIR(BgL_tvectorzd2unitzd2_1225, BNIL); 
BgL_arg5091z00_1230 = BgL_list5094z00_1231; } 
BgL_arg5087z00_1228 = 
BGl_buildzd2astzd2sanszd2removezd2zzast_buildz00(BgL_arg5091z00_1230); } 
BgL_arg5088z00_1229 = 
CNST_TABLE_REF(((long)7)); 
BgL_resz00_1226 = 
BGl_globaliza7ezd2walkz12z67zzglobaliza7e_walkza7(BgL_arg5087z00_1228, BgL_arg5088z00_1229); }  else 
{ /* ./Cfa/tvector.scm 239 */
BgL_resz00_1226 = BNIL; } } 
BGl_setzd2defaultzd2typez12z12zztype_cachez00(BgL_oldzd2defaultzd2typez00_1224); 
return BgL_resz00_1226;} } } } 
}



/* patch-tree! */
bool_t BGl_patchzd2treez12zc0zzcfa_tvectorz00(obj_t BgL_globalsz00_37)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 254 */
{ 
obj_t BgL_l4653z00_1232;
BgL_l4653z00_1232 = BgL_globalsz00_37; 
BgL_forzd2each4654zd2_1233:
{ /* ./Cfa/tvector.scm 255 */
bool_t BgL_test5100z00_1234;
BgL_test5100z00_1234 = 
PAIRP(BgL_l4653z00_1232); 
if(BgL_test5100z00_1234)
{ /* ./Cfa/tvector.scm 255 */
{ /* ./Cfa/tvector.scm 255 */
obj_t BgL_arg5102z00_1235;
BgL_arg5102z00_1235 = 
CAR(BgL_l4653z00_1232); 
BGl_patchzd2funz12zc0zzcfa_tvectorz00(BgL_arg5102z00_1235); } 
{ /* ./Cfa/tvector.scm 255 */
obj_t BgL_arg5106z00_1236;
BgL_arg5106z00_1236 = 
CDR(BgL_l4653z00_1232); 
{ 
obj_t BgL_l4653z00_3901;
BgL_l4653z00_3901 = BgL_arg5106z00_1236; 
BgL_l4653z00_1232 = BgL_l4653z00_3901; 
goto BgL_forzd2each4654zd2_1233;} } }  else 
{ /* ./Cfa/tvector.scm 255 */
return ((bool_t)1);} } } } 
}



/* patch-fun! */
obj_t BGl_patchzd2funz12zc0zzcfa_tvectorz00(obj_t BgL_variablez00_38)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 260 */
{ /* ./Cfa/tvector.scm 261 */
BgL_valuez00_bglt BgL_funz00_1237;
{ /* ./Cfa/tvector.scm 261 */
BgL_variablez00_bglt BgL_obj1162z00_2439;
BgL_obj1162z00_2439 = 
(BgL_variablez00_bglt)(BgL_variablez00_38); 
BgL_funz00_1237 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1162z00_2439))->BgL_valuez00); } 
{ /* ./Cfa/tvector.scm 264 */
obj_t BgL_arg5111z00_1238;
{ /* ./Cfa/tvector.scm 264 */
obj_t BgL_arg5114z00_1239;
{ /* ./Cfa/tvector.scm 264 */
BgL_sfunz00_bglt BgL_obj1433z00_2440;
BgL_obj1433z00_2440 = 
(BgL_sfunz00_bglt)(BgL_funz00_1237); 
BgL_arg5114z00_1239 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1433z00_2440))->BgL_bodyz00); } 
{ /* ./Cfa/tvector.scm 264 */
BgL_nodez00_bglt BgL_nodez00_2441;
BgL_nodez00_2441 = 
(BgL_nodez00_bglt)(BgL_arg5114z00_1239); 
{ /* ./Cfa/tvector.scm 264 */
obj_t BgL_method4723z00_2442;
{ /* ./Cfa/tvector.scm 264 */
BgL_objectz00_bglt BgL_objz00_2443;
BgL_objz00_2443 = 
(BgL_objectz00_bglt)(BgL_nodez00_2441); 
{ /* ./Cfa/tvector.scm 264 */
long BgL_objzd2classzd2numz00_2444;
BgL_objzd2classzd2numz00_2444 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2443); 
{ /* ./Cfa/tvector.scm 264 */
obj_t BgL_arg2017z00_2445;
{ /* ./Cfa/tvector.scm 264 */
int BgL_auxz00_3909;
BgL_auxz00_3909 = 
(int)(((long)1)); 
BgL_arg2017z00_2445 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_3909); } 
{ /* ./Cfa/tvector.scm 264 */
int BgL_offsetz00_2448;
BgL_offsetz00_2448 = 
(int)(BgL_objzd2classzd2numz00_2444); 
{ /* ./Cfa/tvector.scm 264 */
long BgL_offsetz00_2449;
{ /* ./Cfa/tvector.scm 264 */
long BgL_auxz00_3913;
BgL_auxz00_3913 = 
(long)(BgL_offsetz00_2448); 
BgL_offsetz00_2449 = 
(BgL_auxz00_3913-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 264 */
long BgL_modz00_2450;
{ /* ./Cfa/tvector.scm 264 */
int BgL_arg2028z00_2451;
BgL_arg2028z00_2451 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 264 */
long BgL_n2z00_2459;
BgL_n2z00_2459 = 
(long)(BgL_arg2028z00_2451); 
BgL_modz00_2450 = 
(BgL_offsetz00_2449/BgL_n2z00_2459); } } 
{ /* ./Cfa/tvector.scm 264 */
long BgL_restz00_2452;
{ /* ./Cfa/tvector.scm 264 */
int BgL_arg2024z00_2453;
BgL_arg2024z00_2453 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 264 */
long BgL_n2z00_2462;
BgL_n2z00_2462 = 
(long)(BgL_arg2024z00_2453); 
BgL_restz00_2452 = 
(BgL_offsetz00_2449%BgL_n2z00_2462); } } 
{ /* ./Cfa/tvector.scm 264 */

{ /* ./Cfa/tvector.scm 264 */
obj_t BgL_bucketz00_2454;
{ /* ./Cfa/tvector.scm 264 */
int BgL_kz00_2464;
BgL_kz00_2464 = 
(int)(BgL_modz00_2450); 
BgL_bucketz00_2454 = 
VECTOR_REF(BgL_arg2017z00_2445,BgL_kz00_2464); } 
{ /* ./Cfa/tvector.scm 264 */
int BgL_kz00_2466;
BgL_kz00_2466 = 
(int)(BgL_restz00_2452); 
BgL_method4723z00_2442 = 
VECTOR_REF(BgL_bucketz00_2454,BgL_kz00_2466); } } } } } } } } } } 
BgL_arg5111z00_1238 = 
PROCEDURE_ENTRY(BgL_method4723z00_2442)(BgL_method4723z00_2442, 
(obj_t)(BgL_nodez00_2441), BEOA); } } } 
{ /* ./Cfa/tvector.scm 264 */
BgL_sfunz00_bglt BgL_obj1435z00_2467;obj_t BgL_val1434z00_2468;
BgL_obj1435z00_2467 = 
(BgL_sfunz00_bglt)(BgL_funz00_1237); 
BgL_val1434z00_2468 = BgL_arg5111z00_1238; 
return 
((((BgL_sfunz00_bglt)CREF(BgL_obj1435z00_2467))->BgL_bodyz00) = ((obj_t)BgL_val1434z00_2468), BUNSPEC);} } } } 
}



/* patch*! */
obj_t BGl_patchza2z12zb0zzcfa_tvectorz00(obj_t BgL_nodeza2za2_62)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 456 */
{ 
obj_t BgL_nodeza2za2_1240;
BgL_nodeza2za2_1240 = BgL_nodeza2za2_62; 
BgL_loopz00_1241:
{ /* ./Cfa/tvector.scm 458 */
bool_t BgL_test5119z00_1242;
BgL_test5119z00_1242 = 
NULLP(BgL_nodeza2za2_1240); 
if(BgL_test5119z00_1242)
{ /* ./Cfa/tvector.scm 458 */
return 
CNST_TABLE_REF(((long)8));}  else 
{ /* ./Cfa/tvector.scm 458 */
{ /* ./Cfa/tvector.scm 461 */
obj_t BgL_arg5121z00_1243;
{ /* ./Cfa/tvector.scm 461 */
obj_t BgL_arg5124z00_1244;
BgL_arg5124z00_1244 = 
CAR(BgL_nodeza2za2_1240); 
{ /* ./Cfa/tvector.scm 461 */
BgL_nodez00_bglt BgL_nodez00_2471;
BgL_nodez00_2471 = 
(BgL_nodez00_bglt)(BgL_arg5124z00_1244); 
{ /* ./Cfa/tvector.scm 461 */
obj_t BgL_method4723z00_2472;
{ /* ./Cfa/tvector.scm 461 */
BgL_objectz00_bglt BgL_objz00_2473;
BgL_objz00_2473 = 
(BgL_objectz00_bglt)(BgL_nodez00_2471); 
{ /* ./Cfa/tvector.scm 461 */
long BgL_objzd2classzd2numz00_2474;
BgL_objzd2classzd2numz00_2474 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2473); 
{ /* ./Cfa/tvector.scm 461 */
obj_t BgL_arg2017z00_2475;
{ /* ./Cfa/tvector.scm 461 */
int BgL_auxz00_3938;
BgL_auxz00_3938 = 
(int)(((long)1)); 
BgL_arg2017z00_2475 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_3938); } 
{ /* ./Cfa/tvector.scm 461 */
int BgL_offsetz00_2478;
BgL_offsetz00_2478 = 
(int)(BgL_objzd2classzd2numz00_2474); 
{ /* ./Cfa/tvector.scm 461 */
long BgL_offsetz00_2479;
{ /* ./Cfa/tvector.scm 461 */
long BgL_auxz00_3942;
BgL_auxz00_3942 = 
(long)(BgL_offsetz00_2478); 
BgL_offsetz00_2479 = 
(BgL_auxz00_3942-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 461 */
long BgL_modz00_2480;
{ /* ./Cfa/tvector.scm 461 */
int BgL_arg2028z00_2481;
BgL_arg2028z00_2481 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 461 */
long BgL_n2z00_2489;
BgL_n2z00_2489 = 
(long)(BgL_arg2028z00_2481); 
BgL_modz00_2480 = 
(BgL_offsetz00_2479/BgL_n2z00_2489); } } 
{ /* ./Cfa/tvector.scm 461 */
long BgL_restz00_2482;
{ /* ./Cfa/tvector.scm 461 */
int BgL_arg2024z00_2483;
BgL_arg2024z00_2483 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 461 */
long BgL_n2z00_2492;
BgL_n2z00_2492 = 
(long)(BgL_arg2024z00_2483); 
BgL_restz00_2482 = 
(BgL_offsetz00_2479%BgL_n2z00_2492); } } 
{ /* ./Cfa/tvector.scm 461 */

{ /* ./Cfa/tvector.scm 461 */
obj_t BgL_bucketz00_2484;
{ /* ./Cfa/tvector.scm 461 */
int BgL_kz00_2494;
BgL_kz00_2494 = 
(int)(BgL_modz00_2480); 
BgL_bucketz00_2484 = 
VECTOR_REF(BgL_arg2017z00_2475,BgL_kz00_2494); } 
{ /* ./Cfa/tvector.scm 461 */
int BgL_kz00_2496;
BgL_kz00_2496 = 
(int)(BgL_restz00_2482); 
BgL_method4723z00_2472 = 
VECTOR_REF(BgL_bucketz00_2484,BgL_kz00_2496); } } } } } } } } } } 
BgL_arg5121z00_1243 = 
PROCEDURE_ENTRY(BgL_method4723z00_2472)(BgL_method4723z00_2472, 
(obj_t)(BgL_nodez00_2471), BEOA); } } } 
SET_CAR(BgL_nodeza2za2_1240, BgL_arg5121z00_1243); } 
{ /* ./Cfa/tvector.scm 462 */
obj_t BgL_arg5128z00_1245;
BgL_arg5128z00_1245 = 
CDR(BgL_nodeza2za2_1240); 
{ 
obj_t BgL_nodeza2za2_3960;
BgL_nodeza2za2_3960 = BgL_arg5128z00_1245; 
BgL_nodeza2za2_1240 = BgL_nodeza2za2_3960; 
goto BgL_loopz00_1241;} } } } } } 
}



/* patch-vector?! */
obj_t BGl_patchzd2vectorzf3z12z33zzcfa_tvectorz00(BgL_appz00_bglt BgL_nodez00_65)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 506 */
{ /* ./Cfa/tvector.scm 508 */
obj_t BgL_arg5133z00_1247;
BgL_arg5133z00_1247 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_65))->BgL_argsz00); 
BGl_patchza2z12zb0zzcfa_tvectorz00(BgL_arg5133z00_1247); } 
{ /* ./Cfa/tvector.scm 509 */
BgL_approxz00_bglt BgL_approxz00_1248;
{ /* ./Cfa/tvector.scm 509 */
obj_t BgL_arg5146z00_1254;
{ /* ./Cfa/tvector.scm 509 */
obj_t BgL_auxz00_3963;
BgL_auxz00_3963 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_65))->BgL_argsz00); 
BgL_arg5146z00_1254 = 
CAR(BgL_auxz00_3963); } 
BgL_approxz00_1248 = 
BGl_cfaz12z12zzcfa_cfaz00(
(BgL_nodez00_bglt)(BgL_arg5146z00_1254)); } 
{ /* ./Cfa/tvector.scm 509 */
BgL_typez00_bglt BgL_typez00_1249;
BgL_typez00_1249 = 
(((BgL_approxz00_bglt)CREF(BgL_approxz00_1248))->BgL_typez00); 
{ /* ./Cfa/tvector.scm 510 */

{ /* ./Cfa/tvector.scm 511 */
bool_t BgL_test5136z00_1250;
{ /* ./Cfa/tvector.scm 511 */
obj_t BgL_auxz00_3969;
BgL_auxz00_3969 = 
(obj_t)(BgL_typez00_1249); 
BgL_test5136z00_1250 = 
(BgL_auxz00_3969==BGl_za2vectorza2z00zztype_cachez00); } 
if(BgL_test5136z00_1250)
{ /* ./Cfa/tvector.scm 513 */
obj_t BgL_arg5138z00_1251;obj_t BgL_arg5139z00_1252;bool_t BgL_arg5140z00_1253;
{ /* ./Cfa/tvector.scm 513 */
BgL_nodez00_bglt BgL_obj1622z00_2504;
BgL_obj1622z00_2504 = 
(BgL_nodez00_bglt)(BgL_nodez00_65); 
BgL_arg5138z00_1251 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1622z00_2504))->BgL_locz00); } 
BgL_arg5139z00_1252 = BGl_za2boolza2z00zztype_cachez00; 
BgL_arg5140z00_1253 = ((bool_t)1); 
{ /* ./Cfa/tvector.scm 512 */
BgL_atomz00_bglt BgL_auxz00_3975;
BgL_auxz00_3975 = 
BGl_makezd2atomzd2zzast_nodez00(BgL_arg5138z00_1251, 
(BgL_typez00_bglt)(BgL_arg5139z00_1252), 
BBOOL(BgL_arg5140z00_1253)); 
return 
(obj_t)(BgL_auxz00_3975);} }  else 
{ /* ./Cfa/tvector.scm 511 */
return 
(obj_t)(BgL_nodez00_65);} } } } } } 
}



/* patch-vector->list! */
obj_t BGl_patchzd2vectorzd2ze3listz12zf1zzcfa_tvectorz00(BgL_appz00_bglt BgL_nodez00_66)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 521 */
{ /* ./Cfa/tvector.scm 523 */
obj_t BgL_arg5153z00_1257;
BgL_arg5153z00_1257 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_66))->BgL_argsz00); 
BGl_patchza2z12zb0zzcfa_tvectorz00(BgL_arg5153z00_1257); } 
{ /* ./Cfa/tvector.scm 524 */
BgL_approxz00_bglt BgL_approxz00_1258;
{ /* ./Cfa/tvector.scm 524 */
obj_t BgL_arg5189z00_1275;
{ /* ./Cfa/tvector.scm 524 */
obj_t BgL_auxz00_3983;
BgL_auxz00_3983 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_66))->BgL_argsz00); 
BgL_arg5189z00_1275 = 
CAR(BgL_auxz00_3983); } 
BgL_approxz00_1258 = 
BGl_cfaz12z12zzcfa_cfaz00(
(BgL_nodez00_bglt)(BgL_arg5189z00_1275)); } 
{ /* ./Cfa/tvector.scm 524 */
obj_t BgL_tvz00_1259;
BgL_tvz00_1259 = 
BGl_getzd2approxzd2typez00zzcfa_typez00(BgL_approxz00_1258); 
{ /* ./Cfa/tvector.scm 525 */

{ /* ./Cfa/tvector.scm 526 */
bool_t BgL_test5156z00_1260;
BgL_test5156z00_1260 = 
BGl_iszd2azf3z21zz__objectz00(BgL_tvz00_1259, BGl_tvecz00zztvector_tvectorz00); 
if(BgL_test5156z00_1260)
{ /* ./Cfa/tvector.scm 527 */
obj_t BgL_tvzd2ze3listz31_1261;
{ /* ./Cfa/tvector.scm 527 */
obj_t BgL_arg5177z00_1271;obj_t BgL_arg5178z00_1272;
{ /* ./Cfa/tvector.scm 527 */
BgL_typez00_bglt BgL_obj1003z00_2509;
BgL_obj1003z00_2509 = 
(BgL_typez00_bglt)(BgL_tvz00_1259); 
BgL_arg5177z00_1271 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_2509))->BgL_idz00); } 
BgL_arg5178z00_1272 = 
CNST_TABLE_REF(((long)9)); 
{ /* ./Cfa/tvector.scm 527 */
obj_t BgL_list5180z00_1273;
{ /* ./Cfa/tvector.scm 527 */
obj_t BgL_arg5182z00_1274;
BgL_arg5182z00_1274 = 
MAKE_PAIR(BgL_arg5178z00_1272, BNIL); 
BgL_list5180z00_1273 = 
MAKE_PAIR(BgL_arg5177z00_1271, BgL_arg5182z00_1274); } 
BgL_tvzd2ze3listz31_1261 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list5180z00_1273); } } 
{ /* ./Cfa/tvector.scm 527 */
BgL_nodez00_bglt BgL_newzd2nodezd2_1262;
{ /* ./Cfa/tvector.scm 528 */
obj_t BgL_arg5162z00_1264;obj_t BgL_arg5164z00_1266;obj_t BgL_arg5165z00_1267;
{ /* ./Cfa/tvector.scm 528 */
obj_t BgL_arg5168z00_1268;
BgL_arg5168z00_1268 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(
(((BgL_appz00_bglt)CREF(BgL_nodez00_66))->BgL_argsz00), BNIL); 
BgL_arg5162z00_1264 = 
MAKE_PAIR(BgL_tvzd2ze3listz31_1261, BgL_arg5168z00_1268); } 
{ /* ./Cfa/tvector.scm 528 */
BgL_nodez00_bglt BgL_obj1622z00_2511;
BgL_obj1622z00_2511 = 
(BgL_nodez00_bglt)(BgL_nodez00_66); 
BgL_arg5164z00_1266 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1622z00_2511))->BgL_locz00); } 
BgL_arg5165z00_1267 = 
CNST_TABLE_REF(((long)10)); 
BgL_newzd2nodezd2_1262 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_arg5162z00_1264, BNIL, BgL_arg5164z00_1266, BgL_arg5165z00_1267); } 
{ /* ./Cfa/tvector.scm 528 */

{ /* ./Cfa/tvector.scm 532 */
BgL_typez00_bglt BgL_arg5158z00_1263;
{ /* ./Cfa/tvector.scm 532 */
BgL_nodez00_bglt BgL_obj1623z00_2512;
BgL_obj1623z00_2512 = 
(BgL_nodez00_bglt)(BgL_nodez00_66); 
BgL_arg5158z00_1263 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1623z00_2512))->BgL_typez00); } 
{ /* ./Cfa/tvector.scm 532 */
BgL_nodez00_bglt BgL_obj1625z00_2513;BgL_typez00_bglt BgL_val1624z00_2514;
BgL_obj1625z00_2513 = BgL_newzd2nodezd2_1262; 
BgL_val1624z00_2514 = BgL_arg5158z00_1263; 
((((BgL_nodez00_bglt)CREF(BgL_obj1625z00_2513))->BgL_typez00) = ((BgL_typez00_bglt)BgL_val1624z00_2514), BUNSPEC); } } 
return 
(obj_t)(BgL_newzd2nodezd2_1262);} } }  else 
{ /* ./Cfa/tvector.scm 526 */
return 
(obj_t)(BgL_nodez00_66);} } } } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzcfa_tvectorz00()
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 15 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_getzd2vectorzd2itemzd2typezd2envz00zzcfa_tvectorz00, BGl_getzd2vectorzd2itemzd2typezd2default4716zd2envzd2zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2vectorzd2itemzd2typezd2envz00zzcfa_tvectorz00, BGl_makezd2vectorzd2appz00zzcfa_info2z00, BGl_proc7516z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_getzd2vectorzd2itemzd2typezd2envz00zzcfa_tvectorz00, BGl_valloczf2Cinfozb2optimz40zzcfa_info3z00, BGl_proc7517z00zzcfa_tvectorz00); 
BGl_addzd2genericz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_patchz12zd2default4722zd2envz12zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_atomz00zzast_nodez00, BGl_proc7518z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_kwotez00zzast_nodez00, BGl_proc7519z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_kwotezf2nodezf2zzcfa_infoz00, BGl_proc7520z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_varz00zzast_nodez00, BGl_proc7521z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_closurez00zzast_nodez00, BGl_proc7522z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_sequencez00zzast_nodez00, BGl_proc7523z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_appzd2lyzd2zzast_nodez00, BGl_proc7524z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_funcallz00zzast_nodez00, BGl_proc7525z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_externz00zzast_nodez00, BGl_proc7526z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_castz00zzast_nodez00, BGl_proc7527z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_setqz00zzast_nodez00, BGl_proc7528z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_conditionalz00zzast_nodez00, BGl_proc7529z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_failz00zzast_nodez00, BGl_proc7530z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_selectz00zzast_nodez00, BGl_proc7531z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_letzd2funzd2zzast_nodez00, BGl_proc7532z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_letzd2varzd2zzast_nodez00, BGl_proc7533z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc7534z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc7535z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_makezd2boxzd2zzast_nodez00, BGl_proc7536z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc7537z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_boxzd2refzd2zzast_nodez00, BGl_proc7538z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_appz00zzast_nodez00, BGl_proc7539z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_vlengthz00zzast_nodez00, BGl_proc7540z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_makezd2vectorzd2appz00zzcfa_info2z00, BGl_proc7541z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_valloczf2Cinfozb2optimz40zzcfa_info3z00, BGl_proc7542z00zzcfa_tvectorz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_vrefzf2Cinfozf2zzcfa_info3z00, BGl_proc7543z00zzcfa_tvectorz00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BGl_vsetz12zf2Cinfoze0zzcfa_info3z00, BGl_proc7544z00zzcfa_tvectorz00);} 
}



/* patch!-vset!/Cinfo4777 */
obj_t BGl_patchz12zd2vsetz12zf2Cinfo4777z20zzcfa_tvectorz00(obj_t BgL_envz00_3480, obj_t BgL_nodez00_3481)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 592 */
{ 
BgL_vsetz12zf2cinfoze0_bglt BgL_nodez00_2193;
BgL_nodez00_2193 = 
(BgL_vsetz12zf2cinfoze0_bglt)(BgL_nodez00_3481); 
{ /* ./Cfa/tvector.scm 594 */
obj_t BgL_arg6676z00_2197;
{ /* ./Cfa/tvector.scm 594 */
BgL_externz00_bglt BgL_obj1876z00_3376;
BgL_obj1876z00_3376 = 
(BgL_externz00_bglt)(BgL_nodez00_2193); 
BgL_arg6676z00_2197 = 
(((BgL_externz00_bglt)CREF(BgL_obj1876z00_3376))->BgL_exprza2za2); } 
BGl_patchza2z12zb0zzcfa_tvectorz00(BgL_arg6676z00_2197); } 
{ /* ./Cfa/tvector.scm 595 */
BgL_approxz00_bglt BgL_veczd2approxzd2_2198;
{ /* ./Cfa/tvector.scm 595 */
obj_t BgL_arg6712z00_2216;
{ /* ./Cfa/tvector.scm 595 */
obj_t BgL_auxz00_4043;
{ /* ./Cfa/tvector.scm 595 */
BgL_externz00_bglt BgL_obj1876z00_3377;
BgL_obj1876z00_3377 = 
(BgL_externz00_bglt)(BgL_nodez00_2193); 
BgL_auxz00_4043 = 
(((BgL_externz00_bglt)CREF(BgL_obj1876z00_3377))->BgL_exprza2za2); } 
BgL_arg6712z00_2216 = 
CAR(BgL_auxz00_4043); } 
BgL_veczd2approxzd2_2198 = 
BGl_cfaz12z12zzcfa_cfaz00(
(BgL_nodez00_bglt)(BgL_arg6712z00_2216)); } 
{ /* ./Cfa/tvector.scm 595 */
obj_t BgL_tvz00_2199;
BgL_tvz00_2199 = 
BGl_getzd2approxzd2typez00zzcfa_typez00(BgL_veczd2approxzd2_2198); 
{ /* ./Cfa/tvector.scm 596 */

{ /* ./Cfa/tvector.scm 597 */
bool_t BgL_test6679z00_2200;
{ /* ./Cfa/tvector.scm 597 */
bool_t BgL_test6706z00_2214;
{ 
obj_t BgL_auxz00_4050;
{ /* ./Cfa/tvector.scm 597 */
BgL_objectz00_bglt BgL_auxz00_4051;
BgL_auxz00_4051 = 
(BgL_objectz00_bglt)(BgL_nodez00_2193); 
BgL_auxz00_4050 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4051); } 
BgL_test6706z00_2214 = 
(((BgL_vsetz12zf2cinfoze0_bglt)CREF(BgL_auxz00_4050))->BgL_tvectorzf3zf3); } 
if(BgL_test6706z00_2214)
{ /* ./Cfa/tvector.scm 597 */
BgL_test6679z00_2200 = ((bool_t)1); }  else 
{ /* ./Cfa/tvector.scm 597 */
bool_t BgL_test6707z00_2215;
BgL_test6707z00_2215 = 
BGl_iszd2azf3z21zz__objectz00(BgL_tvz00_2199, BGl_tvecz00zztvector_tvectorz00); 
if(BgL_test6707z00_2215)
{ /* ./Cfa/tvector.scm 597 */
BgL_test6679z00_2200 = ((bool_t)0); }  else 
{ /* ./Cfa/tvector.scm 597 */
BgL_test6679z00_2200 = ((bool_t)1); } } } 
if(BgL_test6679z00_2200)
{ /* ./Cfa/tvector.scm 597 */
return 
(obj_t)(BgL_nodez00_2193);}  else 
{ /* ./Cfa/tvector.scm 599 */
obj_t BgL_tvzd2setz12zc0_2201;
{ /* ./Cfa/tvector.scm 599 */
obj_t BgL_arg6697z00_2210;obj_t BgL_arg6698z00_2211;
{ /* ./Cfa/tvector.scm 599 */
BgL_typez00_bglt BgL_obj1003z00_3381;
BgL_obj1003z00_3381 = 
(BgL_typez00_bglt)(BgL_tvz00_2199); 
BgL_arg6697z00_2210 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_3381))->BgL_idz00); } 
BgL_arg6698z00_2211 = 
CNST_TABLE_REF(((long)11)); 
{ /* ./Cfa/tvector.scm 599 */
obj_t BgL_list6700z00_2212;
{ /* ./Cfa/tvector.scm 599 */
obj_t BgL_arg6702z00_2213;
BgL_arg6702z00_2213 = 
MAKE_PAIR(BgL_arg6698z00_2211, BNIL); 
BgL_list6700z00_2212 = 
MAKE_PAIR(BgL_arg6697z00_2210, BgL_arg6702z00_2213); } 
BgL_tvzd2setz12zc0_2201 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list6700z00_2212); } } 
{ /* ./Cfa/tvector.scm 599 */
BgL_nodez00_bglt BgL_newzd2nodezd2_2202;
{ /* ./Cfa/tvector.scm 600 */
obj_t BgL_arg6682z00_2203;obj_t BgL_arg6684z00_2205;obj_t BgL_arg6685z00_2206;
{ /* ./Cfa/tvector.scm 600 */
obj_t BgL_arg6688z00_2207;
{ /* ./Cfa/tvector.scm 600 */
obj_t BgL_auxz00_4066;
{ /* ./Cfa/tvector.scm 600 */
BgL_externz00_bglt BgL_obj1876z00_3382;
BgL_obj1876z00_3382 = 
(BgL_externz00_bglt)(BgL_nodez00_2193); 
BgL_auxz00_4066 = 
(((BgL_externz00_bglt)CREF(BgL_obj1876z00_3382))->BgL_exprza2za2); } 
BgL_arg6688z00_2207 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4066, BNIL); } 
BgL_arg6682z00_2203 = 
MAKE_PAIR(BgL_tvzd2setz12zc0_2201, BgL_arg6688z00_2207); } 
{ /* ./Cfa/tvector.scm 600 */
BgL_nodez00_bglt BgL_obj1622z00_3383;
BgL_obj1622z00_3383 = 
(BgL_nodez00_bglt)(BgL_nodez00_2193); 
BgL_arg6684z00_2205 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1622z00_3383))->BgL_locz00); } 
BgL_arg6685z00_2206 = 
CNST_TABLE_REF(((long)10)); 
BgL_newzd2nodezd2_2202 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_arg6682z00_2203, BNIL, BgL_arg6684z00_2205, BgL_arg6685z00_2206); } 
{ /* ./Cfa/tvector.scm 600 */

{ /* ./Cfa/tvector.scm 604 */
BgL_nodez00_bglt BgL_auxz00_4075;
BgL_auxz00_4075 = 
BGl_inlinezd2nodezd2zzinline_inlinez00(BgL_newzd2nodezd2_2202, ((long)1), BNIL); 
return 
(obj_t)(BgL_auxz00_4075);} } } } } } } } } } 
}



/* patch!-vref/Cinfo4775 */
obj_t BGl_patchz12zd2vrefzf2Cinfo4775z32zzcfa_tvectorz00(obj_t BgL_envz00_3482, obj_t BgL_nodez00_3483)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 575 */
{ 
BgL_vrefzf2cinfozf2_bglt BgL_nodez00_2166;
BgL_nodez00_2166 = 
(BgL_vrefzf2cinfozf2_bglt)(BgL_nodez00_3483); 
{ /* ./Cfa/tvector.scm 577 */
obj_t BgL_arg6627z00_2170;
{ /* ./Cfa/tvector.scm 577 */
BgL_externz00_bglt BgL_obj1876z00_3368;
BgL_obj1876z00_3368 = 
(BgL_externz00_bglt)(BgL_nodez00_2166); 
BgL_arg6627z00_2170 = 
(((BgL_externz00_bglt)CREF(BgL_obj1876z00_3368))->BgL_exprza2za2); } 
BGl_patchza2z12zb0zzcfa_tvectorz00(BgL_arg6627z00_2170); } 
{ /* ./Cfa/tvector.scm 578 */
BgL_approxz00_bglt BgL_veczd2approxzd2_2171;
{ /* ./Cfa/tvector.scm 578 */
obj_t BgL_arg6663z00_2189;
{ /* ./Cfa/tvector.scm 578 */
obj_t BgL_auxz00_4082;
{ /* ./Cfa/tvector.scm 578 */
BgL_externz00_bglt BgL_obj1876z00_3369;
BgL_obj1876z00_3369 = 
(BgL_externz00_bglt)(BgL_nodez00_2166); 
BgL_auxz00_4082 = 
(((BgL_externz00_bglt)CREF(BgL_obj1876z00_3369))->BgL_exprza2za2); } 
BgL_arg6663z00_2189 = 
CAR(BgL_auxz00_4082); } 
BgL_veczd2approxzd2_2171 = 
BGl_cfaz12z12zzcfa_cfaz00(
(BgL_nodez00_bglt)(BgL_arg6663z00_2189)); } 
{ /* ./Cfa/tvector.scm 578 */
obj_t BgL_tvz00_2172;
BgL_tvz00_2172 = 
BGl_getzd2approxzd2typez00zzcfa_typez00(BgL_veczd2approxzd2_2171); 
{ /* ./Cfa/tvector.scm 579 */

{ /* ./Cfa/tvector.scm 580 */
bool_t BgL_test6630z00_2173;
{ /* ./Cfa/tvector.scm 580 */
bool_t BgL_test6657z00_2187;
{ 
obj_t BgL_auxz00_4089;
{ /* ./Cfa/tvector.scm 580 */
BgL_objectz00_bglt BgL_auxz00_4090;
BgL_auxz00_4090 = 
(BgL_objectz00_bglt)(BgL_nodez00_2166); 
BgL_auxz00_4089 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4090); } 
BgL_test6657z00_2187 = 
(((BgL_vrefzf2cinfozf2_bglt)CREF(BgL_auxz00_4089))->BgL_tvectorzf3zf3); } 
if(BgL_test6657z00_2187)
{ /* ./Cfa/tvector.scm 580 */
BgL_test6630z00_2173 = ((bool_t)1); }  else 
{ /* ./Cfa/tvector.scm 580 */
bool_t BgL_test6658z00_2188;
BgL_test6658z00_2188 = 
BGl_iszd2azf3z21zz__objectz00(BgL_tvz00_2172, BGl_tvecz00zztvector_tvectorz00); 
if(BgL_test6658z00_2188)
{ /* ./Cfa/tvector.scm 580 */
BgL_test6630z00_2173 = ((bool_t)0); }  else 
{ /* ./Cfa/tvector.scm 580 */
BgL_test6630z00_2173 = ((bool_t)1); } } } 
if(BgL_test6630z00_2173)
{ /* ./Cfa/tvector.scm 580 */
return 
(obj_t)(BgL_nodez00_2166);}  else 
{ /* ./Cfa/tvector.scm 582 */
obj_t BgL_tvzd2refzd2_2174;
{ /* ./Cfa/tvector.scm 582 */
obj_t BgL_arg6648z00_2183;obj_t BgL_arg6649z00_2184;
{ /* ./Cfa/tvector.scm 582 */
BgL_typez00_bglt BgL_obj1003z00_3373;
BgL_obj1003z00_3373 = 
(BgL_typez00_bglt)(BgL_tvz00_2172); 
BgL_arg6648z00_2183 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_3373))->BgL_idz00); } 
BgL_arg6649z00_2184 = 
CNST_TABLE_REF(((long)12)); 
{ /* ./Cfa/tvector.scm 582 */
obj_t BgL_list6651z00_2185;
{ /* ./Cfa/tvector.scm 582 */
obj_t BgL_arg6653z00_2186;
BgL_arg6653z00_2186 = 
MAKE_PAIR(BgL_arg6649z00_2184, BNIL); 
BgL_list6651z00_2185 = 
MAKE_PAIR(BgL_arg6648z00_2183, BgL_arg6653z00_2186); } 
BgL_tvzd2refzd2_2174 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list6651z00_2185); } } 
{ /* ./Cfa/tvector.scm 582 */
BgL_nodez00_bglt BgL_newzd2nodezd2_2175;
{ /* ./Cfa/tvector.scm 583 */
obj_t BgL_arg6633z00_2176;obj_t BgL_arg6635z00_2178;obj_t BgL_arg6636z00_2179;
{ /* ./Cfa/tvector.scm 583 */
obj_t BgL_arg6639z00_2180;
{ /* ./Cfa/tvector.scm 583 */
obj_t BgL_auxz00_4105;
{ /* ./Cfa/tvector.scm 583 */
BgL_externz00_bglt BgL_obj1876z00_3374;
BgL_obj1876z00_3374 = 
(BgL_externz00_bglt)(BgL_nodez00_2166); 
BgL_auxz00_4105 = 
(((BgL_externz00_bglt)CREF(BgL_obj1876z00_3374))->BgL_exprza2za2); } 
BgL_arg6639z00_2180 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4105, BNIL); } 
BgL_arg6633z00_2176 = 
MAKE_PAIR(BgL_tvzd2refzd2_2174, BgL_arg6639z00_2180); } 
{ /* ./Cfa/tvector.scm 583 */
BgL_nodez00_bglt BgL_obj1622z00_3375;
BgL_obj1622z00_3375 = 
(BgL_nodez00_bglt)(BgL_nodez00_2166); 
BgL_arg6635z00_2178 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1622z00_3375))->BgL_locz00); } 
BgL_arg6636z00_2179 = 
CNST_TABLE_REF(((long)10)); 
BgL_newzd2nodezd2_2175 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_arg6633z00_2176, BNIL, BgL_arg6635z00_2178, BgL_arg6636z00_2179); } 
{ /* ./Cfa/tvector.scm 583 */

{ /* ./Cfa/tvector.scm 587 */
BgL_nodez00_bglt BgL_auxz00_4114;
BgL_auxz00_4114 = 
BGl_inlinezd2nodezd2zzinline_inlinez00(BgL_newzd2nodezd2_2175, ((long)1), BNIL); 
return 
(obj_t)(BgL_auxz00_4114);} } } } } } } } } } 
}



/* patch!-valloc/Cinfo+optim4773 */
obj_t BGl_patchz12zd2valloczf2Cinfozb2optim4773z80zzcfa_tvectorz00(obj_t BgL_envz00_3484, obj_t BgL_nodez00_3485)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 557 */
{ 
BgL_valloczf2cinfozb2optimz40_bglt BgL_nodez00_2142;
BgL_nodez00_2142 = 
(BgL_valloczf2cinfozb2optimz40_bglt)(BgL_nodez00_3485); 
{ /* ./Cfa/tvector.scm 559 */
obj_t BgL_arg6583z00_2146;
{ /* ./Cfa/tvector.scm 559 */
BgL_externz00_bglt BgL_obj1876z00_3358;
BgL_obj1876z00_3358 = 
(BgL_externz00_bglt)(BgL_nodez00_2142); 
BgL_arg6583z00_2146 = 
(((BgL_externz00_bglt)CREF(BgL_obj1876z00_3358))->BgL_exprza2za2); } 
BGl_patchza2z12zb0zzcfa_tvectorz00(BgL_arg6583z00_2146); } 
{ /* ./Cfa/tvector.scm 560 */
BgL_typez00_bglt BgL_typez00_2147;
{ /* ./Cfa/tvector.scm 560 */
BgL_approxz00_bglt BgL_arg6617z00_2163;
{ 
obj_t BgL_auxz00_4121;
{ /* ./Cfa/tvector.scm 560 */
BgL_objectz00_bglt BgL_auxz00_4122;
BgL_auxz00_4122 = 
(BgL_objectz00_bglt)(BgL_nodez00_2142); 
BgL_auxz00_4121 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4122); } 
BgL_arg6617z00_2163 = 
(((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_auxz00_4121))->BgL_valuezd2approxzd2); } 
BgL_typez00_2147 = 
(((BgL_approxz00_bglt)CREF(BgL_arg6617z00_2163))->BgL_typez00); } 
{ /* ./Cfa/tvector.scm 560 */
obj_t BgL_tvz00_2148;
BgL_tvz00_2148 = 
(((BgL_typez00_bglt)CREF(BgL_typez00_2147))->BgL_tvectorz00); 
{ /* ./Cfa/tvector.scm 561 */

{ /* ./Cfa/tvector.scm 562 */
bool_t BgL_test6586z00_2149;
BgL_test6586z00_2149 = 
BGl_iszd2azf3z21zz__objectz00(BgL_tvz00_2148, BGl_typez00zztype_typez00); 
if(BgL_test6586z00_2149)
{ /* ./Cfa/tvector.scm 563 */
obj_t BgL_createzd2tvzd2_2150;
{ /* ./Cfa/tvector.scm 563 */
obj_t BgL_arg6605z00_2159;obj_t BgL_arg6606z00_2160;
BgL_arg6605z00_2159 = 
CNST_TABLE_REF(((long)13)); 
{ /* ./Cfa/tvector.scm 563 */
BgL_typez00_bglt BgL_obj1003z00_3363;
BgL_obj1003z00_3363 = 
(BgL_typez00_bglt)(BgL_tvz00_2148); 
BgL_arg6606z00_2160 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_3363))->BgL_idz00); } 
{ /* ./Cfa/tvector.scm 563 */
obj_t BgL_list6608z00_2161;
{ /* ./Cfa/tvector.scm 563 */
obj_t BgL_arg6610z00_2162;
BgL_arg6610z00_2162 = 
MAKE_PAIR(BgL_arg6606z00_2160, BNIL); 
BgL_list6608z00_2161 = 
MAKE_PAIR(BgL_arg6605z00_2159, BgL_arg6610z00_2162); } 
BgL_createzd2tvzd2_2150 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list6608z00_2161); } } 
{ /* ./Cfa/tvector.scm 563 */
BgL_nodez00_bglt BgL_newzd2nodezd2_2151;
{ /* ./Cfa/tvector.scm 564 */
obj_t BgL_arg6590z00_2152;obj_t BgL_arg6592z00_2154;obj_t BgL_arg6593z00_2155;
{ /* ./Cfa/tvector.scm 564 */
obj_t BgL_arg6596z00_2156;
{ /* ./Cfa/tvector.scm 564 */
obj_t BgL_auxz00_4136;
{ /* ./Cfa/tvector.scm 564 */
BgL_externz00_bglt BgL_obj1876z00_3364;
BgL_obj1876z00_3364 = 
(BgL_externz00_bglt)(BgL_nodez00_2142); 
BgL_auxz00_4136 = 
(((BgL_externz00_bglt)CREF(BgL_obj1876z00_3364))->BgL_exprza2za2); } 
BgL_arg6596z00_2156 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4136, BNIL); } 
BgL_arg6590z00_2152 = 
MAKE_PAIR(BgL_createzd2tvzd2_2150, BgL_arg6596z00_2156); } 
{ /* ./Cfa/tvector.scm 564 */
BgL_nodez00_bglt BgL_obj1622z00_3365;
BgL_obj1622z00_3365 = 
(BgL_nodez00_bglt)(BgL_nodez00_2142); 
BgL_arg6592z00_2154 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1622z00_3365))->BgL_locz00); } 
BgL_arg6593z00_2155 = 
CNST_TABLE_REF(((long)10)); 
BgL_newzd2nodezd2_2151 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_arg6590z00_2152, BNIL, BgL_arg6592z00_2154, BgL_arg6593z00_2155); } 
{ /* ./Cfa/tvector.scm 564 */

{ /* ./Cfa/tvector.scm 568 */
BgL_nodez00_bglt BgL_obj1625z00_3366;BgL_typez00_bglt BgL_val1624z00_3367;
BgL_obj1625z00_3366 = BgL_newzd2nodezd2_2151; 
BgL_val1624z00_3367 = 
(BgL_typez00_bglt)(BgL_tvz00_2148); 
((((BgL_nodez00_bglt)CREF(BgL_obj1625z00_3366))->BgL_typez00) = ((BgL_typez00_bglt)BgL_val1624z00_3367), BUNSPEC); } 
{ /* ./Cfa/tvector.scm 569 */
BgL_nodez00_bglt BgL_auxz00_4147;
BgL_auxz00_4147 = 
BGl_inlinezd2nodezd2zzinline_inlinez00(BgL_newzd2nodezd2_2151, ((long)1), BNIL); 
return 
(obj_t)(BgL_auxz00_4147);} } } }  else 
{ /* ./Cfa/tvector.scm 562 */
return 
(obj_t)(BgL_nodez00_2142);} } } } } } } 
}



/* patch!-make-vector-app4771 */
obj_t BGl_patchz12zd2makezd2vectorzd2app4771zc0zzcfa_tvectorz00(obj_t BgL_envz00_3486, obj_t BgL_nodez00_3487)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 539 */
{ 
BgL_makezd2vectorzd2appz00_bglt BgL_nodez00_2118;
BgL_nodez00_2118 = 
(BgL_makezd2vectorzd2appz00_bglt)(BgL_nodez00_3487); 
{ /* ./Cfa/tvector.scm 541 */
obj_t BgL_arg6539z00_2122;
{ /* ./Cfa/tvector.scm 541 */
BgL_appz00_bglt BgL_obj1783z00_3348;
BgL_obj1783z00_3348 = 
(BgL_appz00_bglt)(BgL_nodez00_2118); 
BgL_arg6539z00_2122 = 
(((BgL_appz00_bglt)CREF(BgL_obj1783z00_3348))->BgL_argsz00); } 
BGl_patchza2z12zb0zzcfa_tvectorz00(BgL_arg6539z00_2122); } 
{ /* ./Cfa/tvector.scm 542 */
BgL_typez00_bglt BgL_typez00_2123;
{ /* ./Cfa/tvector.scm 542 */
BgL_approxz00_bglt BgL_arg6573z00_2139;
{ 
obj_t BgL_auxz00_4155;
{ /* ./Cfa/tvector.scm 542 */
BgL_objectz00_bglt BgL_auxz00_4156;
BgL_auxz00_4156 = 
(BgL_objectz00_bglt)(BgL_nodez00_2118); 
BgL_auxz00_4155 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4156); } 
BgL_arg6573z00_2139 = 
(((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_auxz00_4155))->BgL_valuezd2approxzd2); } 
BgL_typez00_2123 = 
(((BgL_approxz00_bglt)CREF(BgL_arg6573z00_2139))->BgL_typez00); } 
{ /* ./Cfa/tvector.scm 542 */
obj_t BgL_tvz00_2124;
BgL_tvz00_2124 = 
(((BgL_typez00_bglt)CREF(BgL_typez00_2123))->BgL_tvectorz00); 
{ /* ./Cfa/tvector.scm 543 */

{ /* ./Cfa/tvector.scm 544 */
bool_t BgL_test6542z00_2125;
BgL_test6542z00_2125 = 
BGl_iszd2azf3z21zz__objectz00(BgL_tvz00_2124, BGl_typez00zztype_typez00); 
if(BgL_test6542z00_2125)
{ /* ./Cfa/tvector.scm 545 */
obj_t BgL_makezd2tvzd2_2126;
{ /* ./Cfa/tvector.scm 545 */
obj_t BgL_arg6561z00_2135;obj_t BgL_arg6562z00_2136;
BgL_arg6561z00_2135 = 
CNST_TABLE_REF(((long)14)); 
{ /* ./Cfa/tvector.scm 545 */
BgL_typez00_bglt BgL_obj1003z00_3353;
BgL_obj1003z00_3353 = 
(BgL_typez00_bglt)(BgL_tvz00_2124); 
BgL_arg6562z00_2136 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_3353))->BgL_idz00); } 
{ /* ./Cfa/tvector.scm 545 */
obj_t BgL_list6564z00_2137;
{ /* ./Cfa/tvector.scm 545 */
obj_t BgL_arg6566z00_2138;
BgL_arg6566z00_2138 = 
MAKE_PAIR(BgL_arg6562z00_2136, BNIL); 
BgL_list6564z00_2137 = 
MAKE_PAIR(BgL_arg6561z00_2135, BgL_arg6566z00_2138); } 
BgL_makezd2tvzd2_2126 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list6564z00_2137); } } 
{ /* ./Cfa/tvector.scm 545 */
BgL_nodez00_bglt BgL_newzd2nodezd2_2127;
{ /* ./Cfa/tvector.scm 546 */
obj_t BgL_arg6546z00_2128;obj_t BgL_arg6548z00_2130;obj_t BgL_arg6549z00_2131;
{ /* ./Cfa/tvector.scm 546 */
obj_t BgL_arg6552z00_2132;
{ /* ./Cfa/tvector.scm 546 */
obj_t BgL_auxz00_4170;
{ /* ./Cfa/tvector.scm 546 */
BgL_appz00_bglt BgL_obj1783z00_3354;
BgL_obj1783z00_3354 = 
(BgL_appz00_bglt)(BgL_nodez00_2118); 
BgL_auxz00_4170 = 
(((BgL_appz00_bglt)CREF(BgL_obj1783z00_3354))->BgL_argsz00); } 
BgL_arg6552z00_2132 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4170, BNIL); } 
BgL_arg6546z00_2128 = 
MAKE_PAIR(BgL_makezd2tvzd2_2126, BgL_arg6552z00_2132); } 
{ /* ./Cfa/tvector.scm 546 */
BgL_nodez00_bglt BgL_obj1622z00_3355;
BgL_obj1622z00_3355 = 
(BgL_nodez00_bglt)(BgL_nodez00_2118); 
BgL_arg6548z00_2130 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1622z00_3355))->BgL_locz00); } 
BgL_arg6549z00_2131 = 
CNST_TABLE_REF(((long)10)); 
BgL_newzd2nodezd2_2127 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_arg6546z00_2128, BNIL, BgL_arg6548z00_2130, BgL_arg6549z00_2131); } 
{ /* ./Cfa/tvector.scm 546 */

{ /* ./Cfa/tvector.scm 550 */
BgL_nodez00_bglt BgL_obj1625z00_3356;BgL_typez00_bglt BgL_val1624z00_3357;
BgL_obj1625z00_3356 = BgL_newzd2nodezd2_2127; 
BgL_val1624z00_3357 = 
(BgL_typez00_bglt)(BgL_tvz00_2124); 
((((BgL_nodez00_bglt)CREF(BgL_obj1625z00_3356))->BgL_typez00) = ((BgL_typez00_bglt)BgL_val1624z00_3357), BUNSPEC); } 
{ /* ./Cfa/tvector.scm 551 */
BgL_nodez00_bglt BgL_auxz00_4181;
BgL_auxz00_4181 = 
BGl_inlinezd2nodezd2zzinline_inlinez00(BgL_newzd2nodezd2_2127, ((long)1), BNIL); 
return 
(obj_t)(BgL_auxz00_4181);} } } }  else 
{ /* ./Cfa/tvector.scm 544 */
return 
(obj_t)(BgL_nodez00_2118);} } } } } } } 
}



/* patch!-vlength4769 */
obj_t BGl_patchz12zd2vlength4769zc0zzcfa_tvectorz00(obj_t BgL_envz00_3488, obj_t BgL_nodez00_3489)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 488 */
{ 
BgL_vlengthz00_bglt BgL_nodez00_2090;
BgL_nodez00_2090 = 
(BgL_vlengthz00_bglt)(BgL_nodez00_3489); 
{ /* ./Cfa/tvector.scm 490 */
obj_t BgL_arg6487z00_2094;
{ /* ./Cfa/tvector.scm 490 */
BgL_externz00_bglt BgL_obj1876z00_3339;
BgL_obj1876z00_3339 = 
(BgL_externz00_bglt)(BgL_nodez00_2090); 
BgL_arg6487z00_2094 = 
(((BgL_externz00_bglt)CREF(BgL_obj1876z00_3339))->BgL_exprza2za2); } 
BGl_patchza2z12zb0zzcfa_tvectorz00(BgL_arg6487z00_2094); } 
{ /* ./Cfa/tvector.scm 491 */
BgL_approxz00_bglt BgL_approxz00_2095;
{ /* ./Cfa/tvector.scm 491 */
obj_t BgL_arg6526z00_2114;
{ /* ./Cfa/tvector.scm 491 */
obj_t BgL_auxz00_4189;
{ /* ./Cfa/tvector.scm 491 */
BgL_externz00_bglt BgL_obj1876z00_3340;
BgL_obj1876z00_3340 = 
(BgL_externz00_bglt)(BgL_nodez00_2090); 
BgL_auxz00_4189 = 
(((BgL_externz00_bglt)CREF(BgL_obj1876z00_3340))->BgL_exprza2za2); } 
BgL_arg6526z00_2114 = 
CAR(BgL_auxz00_4189); } 
BgL_approxz00_2095 = 
BGl_cfaz12z12zzcfa_cfaz00(
(BgL_nodez00_bglt)(BgL_arg6526z00_2114)); } 
{ /* ./Cfa/tvector.scm 491 */
obj_t BgL_tvz00_2096;
BgL_tvz00_2096 = 
BGl_getzd2approxzd2typez00zzcfa_typez00(BgL_approxz00_2095); 
{ /* ./Cfa/tvector.scm 492 */

{ /* ./Cfa/tvector.scm 493 */
bool_t BgL_test6490z00_2097;
{ /* ./Cfa/tvector.scm 493 */
bool_t BgL_test6520z00_2112;
BgL_test6520z00_2112 = 
BGl_iszd2azf3z21zz__objectz00(BgL_tvz00_2096, BGl_tvecz00zztvector_tvectorz00); 
if(BgL_test6520z00_2112)
{ /* ./Cfa/tvector.scm 493 */
bool_t BgL_testz00_4198;
{ /* ./Cfa/tvector.scm 493 */
BgL_vlengthzf2cinfozf2_bglt BgL_obj4411z00_3343;
BgL_obj4411z00_3343 = 
(BgL_vlengthzf2cinfozf2_bglt)(BgL_nodez00_2090); 
{ 
obj_t BgL_auxz00_4200;
{ /* ./Cfa/tvector.scm 493 */
BgL_objectz00_bglt BgL_auxz00_4201;
BgL_auxz00_4201 = 
(BgL_objectz00_bglt)(BgL_obj4411z00_3343); 
BgL_auxz00_4200 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4201); } 
BgL_testz00_4198 = 
(((BgL_vlengthzf2cinfozf2_bglt)CREF(BgL_auxz00_4200))->BgL_tvectorzf3zf3); } } 
if(BgL_testz00_4198)
{ /* ./Cfa/tvector.scm 493 */
BgL_test6490z00_2097 = ((bool_t)0); }  else 
{ /* ./Cfa/tvector.scm 493 */
BgL_test6490z00_2097 = ((bool_t)1); } }  else 
{ /* ./Cfa/tvector.scm 493 */
BgL_test6490z00_2097 = ((bool_t)0); } } 
if(BgL_test6490z00_2097)
{ /* ./Cfa/tvector.scm 494 */
obj_t BgL_lengthzd2tvzd2_2098;
{ /* ./Cfa/tvector.scm 494 */
obj_t BgL_arg6511z00_2108;obj_t BgL_arg6512z00_2109;
{ /* ./Cfa/tvector.scm 494 */
BgL_typez00_bglt BgL_obj1003z00_3344;
BgL_obj1003z00_3344 = 
(BgL_typez00_bglt)(BgL_tvz00_2096); 
BgL_arg6511z00_2108 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_3344))->BgL_idz00); } 
BgL_arg6512z00_2109 = 
CNST_TABLE_REF(((long)15)); 
{ /* ./Cfa/tvector.scm 494 */
obj_t BgL_list6514z00_2110;
{ /* ./Cfa/tvector.scm 494 */
obj_t BgL_arg6516z00_2111;
BgL_arg6516z00_2111 = 
MAKE_PAIR(BgL_arg6512z00_2109, BNIL); 
BgL_list6514z00_2110 = 
MAKE_PAIR(BgL_arg6511z00_2108, BgL_arg6516z00_2111); } 
BgL_lengthzd2tvzd2_2098 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list6514z00_2110); } } 
{ /* ./Cfa/tvector.scm 494 */
BgL_nodez00_bglt BgL_newzd2nodezd2_2099;
{ /* ./Cfa/tvector.scm 495 */
obj_t BgL_arg6493z00_2100;obj_t BgL_arg6495z00_2102;obj_t BgL_arg6496z00_2103;
{ /* ./Cfa/tvector.scm 495 */
obj_t BgL_arg6499z00_2104;
{ /* ./Cfa/tvector.scm 495 */
obj_t BgL_arg6502z00_2105;
{ /* ./Cfa/tvector.scm 495 */
obj_t BgL_auxz00_4212;
{ /* ./Cfa/tvector.scm 495 */
BgL_externz00_bglt BgL_obj1876z00_3345;
BgL_obj1876z00_3345 = 
(BgL_externz00_bglt)(BgL_nodez00_2090); 
BgL_auxz00_4212 = 
(((BgL_externz00_bglt)CREF(BgL_obj1876z00_3345))->BgL_exprza2za2); } 
BgL_arg6502z00_2105 = 
CAR(BgL_auxz00_4212); } 
BgL_arg6499z00_2104 = 
MAKE_PAIR(BgL_arg6502z00_2105, BNIL); } 
BgL_arg6493z00_2100 = 
MAKE_PAIR(BgL_lengthzd2tvzd2_2098, BgL_arg6499z00_2104); } 
{ /* ./Cfa/tvector.scm 495 */
BgL_nodez00_bglt BgL_obj1622z00_3347;
BgL_obj1622z00_3347 = 
(BgL_nodez00_bglt)(BgL_nodez00_2090); 
BgL_arg6495z00_2102 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1622z00_3347))->BgL_locz00); } 
BgL_arg6496z00_2103 = 
CNST_TABLE_REF(((long)10)); 
BgL_newzd2nodezd2_2099 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_arg6493z00_2100, BNIL, BgL_arg6495z00_2102, BgL_arg6496z00_2103); } 
{ /* ./Cfa/tvector.scm 495 */

{ /* ./Cfa/tvector.scm 500 */
BgL_nodez00_bglt BgL_auxz00_4222;
BgL_auxz00_4222 = 
BGl_inlinezd2nodezd2zzinline_inlinez00(BgL_newzd2nodezd2_2099, ((long)1), BNIL); 
return 
(obj_t)(BgL_auxz00_4222);} } } }  else 
{ /* ./Cfa/tvector.scm 493 */
return 
(obj_t)(BgL_nodez00_2090);} } } } } } } 
}



/* patch!-app4767 */
obj_t BGl_patchz12zd2app4767zc0zzcfa_tvectorz00(obj_t BgL_envz00_3490, obj_t BgL_nodez00_3491)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 467 */
{ 
BgL_appz00_bglt BgL_nodez00_2068;
BgL_nodez00_2068 = 
(BgL_appz00_bglt)(BgL_nodez00_3491); 
{ /* ./Cfa/tvector.scm 469 */
obj_t BgL_arg6442z00_2072;
BgL_arg6442z00_2072 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_2068))->BgL_argsz00); 
BGl_patchza2z12zb0zzcfa_tvectorz00(BgL_arg6442z00_2072); } 
{ /* ./Cfa/tvector.scm 470 */
obj_t BgL_arg6446z00_2073;
{ /* ./Cfa/tvector.scm 470 */
BgL_varz00_bglt BgL_arg6449z00_2074;
BgL_arg6449z00_2074 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_2068))->BgL_funz00); 
{ /* ./Cfa/tvector.scm 470 */
BgL_nodez00_bglt BgL_nodez00_3303;
BgL_nodez00_3303 = 
(BgL_nodez00_bglt)(BgL_arg6449z00_2074); 
{ /* ./Cfa/tvector.scm 470 */
obj_t BgL_method4723z00_3304;
{ /* ./Cfa/tvector.scm 470 */
BgL_objectz00_bglt BgL_objz00_3305;
BgL_objz00_3305 = 
(BgL_objectz00_bglt)(BgL_nodez00_3303); 
{ /* ./Cfa/tvector.scm 470 */
long BgL_objzd2classzd2numz00_3306;
BgL_objzd2classzd2numz00_3306 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3305); 
{ /* ./Cfa/tvector.scm 470 */
obj_t BgL_arg2017z00_3307;
{ /* ./Cfa/tvector.scm 470 */
int BgL_auxz00_4233;
BgL_auxz00_4233 = 
(int)(((long)1)); 
BgL_arg2017z00_3307 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4233); } 
{ /* ./Cfa/tvector.scm 470 */
int BgL_offsetz00_3310;
BgL_offsetz00_3310 = 
(int)(BgL_objzd2classzd2numz00_3306); 
{ /* ./Cfa/tvector.scm 470 */
long BgL_offsetz00_3311;
{ /* ./Cfa/tvector.scm 470 */
long BgL_auxz00_4237;
BgL_auxz00_4237 = 
(long)(BgL_offsetz00_3310); 
BgL_offsetz00_3311 = 
(BgL_auxz00_4237-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 470 */
long BgL_modz00_3312;
{ /* ./Cfa/tvector.scm 470 */
int BgL_arg2028z00_3313;
BgL_arg2028z00_3313 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 470 */
long BgL_n2z00_3321;
BgL_n2z00_3321 = 
(long)(BgL_arg2028z00_3313); 
BgL_modz00_3312 = 
(BgL_offsetz00_3311/BgL_n2z00_3321); } } 
{ /* ./Cfa/tvector.scm 470 */
long BgL_restz00_3314;
{ /* ./Cfa/tvector.scm 470 */
int BgL_arg2024z00_3315;
BgL_arg2024z00_3315 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 470 */
long BgL_n2z00_3324;
BgL_n2z00_3324 = 
(long)(BgL_arg2024z00_3315); 
BgL_restz00_3314 = 
(BgL_offsetz00_3311%BgL_n2z00_3324); } } 
{ /* ./Cfa/tvector.scm 470 */

{ /* ./Cfa/tvector.scm 470 */
obj_t BgL_bucketz00_3316;
{ /* ./Cfa/tvector.scm 470 */
int BgL_kz00_3326;
BgL_kz00_3326 = 
(int)(BgL_modz00_3312); 
BgL_bucketz00_3316 = 
VECTOR_REF(BgL_arg2017z00_3307,BgL_kz00_3326); } 
{ /* ./Cfa/tvector.scm 470 */
int BgL_kz00_3328;
BgL_kz00_3328 = 
(int)(BgL_restz00_3314); 
BgL_method4723z00_3304 = 
VECTOR_REF(BgL_bucketz00_3316,BgL_kz00_3328); } } } } } } } } } } 
BgL_arg6446z00_2073 = 
PROCEDURE_ENTRY(BgL_method4723z00_3304)(BgL_method4723z00_3304, 
(obj_t)(BgL_nodez00_3303), BEOA); } } } 
{ /* ./Cfa/tvector.scm 470 */
BgL_appz00_bglt BgL_obj1782z00_3329;BgL_varz00_bglt BgL_val1781z00_3330;
BgL_obj1782z00_3329 = BgL_nodez00_2068; 
BgL_val1781z00_3330 = 
(BgL_varz00_bglt)(BgL_arg6446z00_2073); 
((((BgL_appz00_bglt)CREF(BgL_obj1782z00_3329))->BgL_funz00) = ((BgL_varz00_bglt)BgL_val1781z00_3330), BUNSPEC); } } 
{ /* ./Cfa/tvector.scm 471 */
BgL_variablez00_bglt BgL_vz00_2075;
{ /* ./Cfa/tvector.scm 471 */
BgL_varz00_bglt BgL_arg6477z00_2087;
BgL_arg6477z00_2087 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_2068))->BgL_funz00); 
BgL_vz00_2075 = 
(((BgL_varz00_bglt)CREF(BgL_arg6477z00_2087))->BgL_variablez00); } 
{ /* ./Cfa/tvector.scm 472 */
bool_t BgL_test6452z00_2076;
{ /* ./Cfa/tvector.scm 472 */
obj_t BgL_obj1302z00_3333;
BgL_obj1302z00_3333 = 
(obj_t)(BgL_vz00_2075); 
BgL_test6452z00_2076 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1302z00_3333, BGl_globalz00zzast_varz00); } 
if(BgL_test6452z00_2076)
{ /* ./Cfa/tvector.scm 473 */
bool_t BgL_test6453z00_2077;
{ /* ./Cfa/tvector.scm 473 */
BgL_valuez00_bglt BgL_arg6472z00_2086;
BgL_arg6472z00_2086 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_2075))->BgL_valuez00); 
{ /* ./Cfa/tvector.scm 473 */
obj_t BgL_obj1551z00_3335;
BgL_obj1551z00_3335 = 
(obj_t)(BgL_arg6472z00_2086); 
BgL_test6453z00_2077 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1551z00_3335, BGl_cfunz00zzast_varz00); } } 
if(BgL_test6453z00_2077)
{ /* ./Cfa/tvector.scm 474 */
obj_t BgL_casezd2valuezd2_2078;
BgL_casezd2valuezd2_2078 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_2075))->BgL_idz00); 
{ /* ./Cfa/tvector.scm 475 */
bool_t BgL_test6454z00_2079;
BgL_test6454z00_2079 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_2078, 
CNST_TABLE_REF(((long)1))); 
if(BgL_test6454z00_2079)
{ /* ./Cfa/tvector.scm 475 */
return 
BGl_patchzd2vectorzf3z12z33zzcfa_tvectorz00(BgL_nodez00_2068);}  else 
{ /* ./Cfa/tvector.scm 475 */
return 
(obj_t)(BgL_nodez00_2068);} } }  else 
{ /* ./Cfa/tvector.scm 479 */
bool_t BgL_test6458z00_2080;
{ /* ./Cfa/tvector.scm 479 */
bool_t BgL_testz00_4270;
{ /* ./Cfa/tvector.scm 479 */
obj_t BgL_auxz00_4273;obj_t BgL_auxz00_4271;
BgL_auxz00_4273 = 
CNST_TABLE_REF(((long)16)); 
BgL_auxz00_4271 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_2075))->BgL_idz00); 
BgL_testz00_4270 = 
(BgL_auxz00_4271==BgL_auxz00_4273); } 
if(BgL_testz00_4270)
{ /* ./Cfa/tvector.scm 480 */
obj_t BgL_auxz00_4279;obj_t BgL_auxz00_4276;
BgL_auxz00_4279 = 
CNST_TABLE_REF(((long)17)); 
{ /* ./Cfa/tvector.scm 480 */
BgL_globalz00_bglt BgL_obj1227z00_3338;
BgL_obj1227z00_3338 = 
(BgL_globalz00_bglt)(BgL_vz00_2075); 
BgL_auxz00_4276 = 
(((BgL_globalz00_bglt)CREF(BgL_obj1227z00_3338))->BgL_modulez00); } 
BgL_test6458z00_2080 = 
(BgL_auxz00_4276==BgL_auxz00_4279); }  else 
{ /* ./Cfa/tvector.scm 479 */
BgL_test6458z00_2080 = ((bool_t)0); } } 
if(BgL_test6458z00_2080)
{ /* ./Cfa/tvector.scm 479 */
return 
BGl_patchzd2vectorzd2ze3listz12zf1zzcfa_tvectorz00(BgL_nodez00_2068);}  else 
{ /* ./Cfa/tvector.scm 479 */
return 
(obj_t)(BgL_nodez00_2068);} } }  else 
{ /* ./Cfa/tvector.scm 472 */
return 
(obj_t)(BgL_nodez00_2068);} } } } } 
}



/* patch!-box-ref4765 */
obj_t BGl_patchz12zd2boxzd2ref4765z12zzcfa_tvectorz00(obj_t BgL_envz00_3492, obj_t BgL_nodez00_3493)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 448 */
{ 
BgL_boxzd2refzd2_bglt BgL_nodez00_2060;
{ /* ./Cfa/tvector.scm 449 */
BgL_boxzd2refzd2_bglt BgL_auxz00_4287;
BgL_nodez00_2060 = 
(BgL_boxzd2refzd2_bglt)(BgL_nodez00_3493); 
{ /* ./Cfa/tvector.scm 450 */
obj_t BgL_arg6429z00_2064;
{ /* ./Cfa/tvector.scm 450 */
BgL_varz00_bglt BgL_arg6432z00_2065;
BgL_arg6432z00_2065 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_nodez00_2060))->BgL_varz00); 
{ /* ./Cfa/tvector.scm 450 */
BgL_nodez00_bglt BgL_nodez00_3273;
BgL_nodez00_3273 = 
(BgL_nodez00_bglt)(BgL_arg6432z00_2065); 
{ /* ./Cfa/tvector.scm 450 */
obj_t BgL_method4723z00_3274;
{ /* ./Cfa/tvector.scm 450 */
BgL_objectz00_bglt BgL_objz00_3275;
BgL_objz00_3275 = 
(BgL_objectz00_bglt)(BgL_nodez00_3273); 
{ /* ./Cfa/tvector.scm 450 */
long BgL_objzd2classzd2numz00_3276;
BgL_objzd2classzd2numz00_3276 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3275); 
{ /* ./Cfa/tvector.scm 450 */
obj_t BgL_arg2017z00_3277;
{ /* ./Cfa/tvector.scm 450 */
int BgL_auxz00_4292;
BgL_auxz00_4292 = 
(int)(((long)1)); 
BgL_arg2017z00_3277 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4292); } 
{ /* ./Cfa/tvector.scm 450 */
int BgL_offsetz00_3280;
BgL_offsetz00_3280 = 
(int)(BgL_objzd2classzd2numz00_3276); 
{ /* ./Cfa/tvector.scm 450 */
long BgL_offsetz00_3281;
{ /* ./Cfa/tvector.scm 450 */
long BgL_auxz00_4296;
BgL_auxz00_4296 = 
(long)(BgL_offsetz00_3280); 
BgL_offsetz00_3281 = 
(BgL_auxz00_4296-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 450 */
long BgL_modz00_3282;
{ /* ./Cfa/tvector.scm 450 */
int BgL_arg2028z00_3283;
BgL_arg2028z00_3283 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 450 */
long BgL_n2z00_3291;
BgL_n2z00_3291 = 
(long)(BgL_arg2028z00_3283); 
BgL_modz00_3282 = 
(BgL_offsetz00_3281/BgL_n2z00_3291); } } 
{ /* ./Cfa/tvector.scm 450 */
long BgL_restz00_3284;
{ /* ./Cfa/tvector.scm 450 */
int BgL_arg2024z00_3285;
BgL_arg2024z00_3285 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 450 */
long BgL_n2z00_3294;
BgL_n2z00_3294 = 
(long)(BgL_arg2024z00_3285); 
BgL_restz00_3284 = 
(BgL_offsetz00_3281%BgL_n2z00_3294); } } 
{ /* ./Cfa/tvector.scm 450 */

{ /* ./Cfa/tvector.scm 450 */
obj_t BgL_bucketz00_3286;
{ /* ./Cfa/tvector.scm 450 */
int BgL_kz00_3296;
BgL_kz00_3296 = 
(int)(BgL_modz00_3282); 
BgL_bucketz00_3286 = 
VECTOR_REF(BgL_arg2017z00_3277,BgL_kz00_3296); } 
{ /* ./Cfa/tvector.scm 450 */
int BgL_kz00_3298;
BgL_kz00_3298 = 
(int)(BgL_restz00_3284); 
BgL_method4723z00_3274 = 
VECTOR_REF(BgL_bucketz00_3286,BgL_kz00_3298); } } } } } } } } } } 
BgL_arg6429z00_2064 = 
PROCEDURE_ENTRY(BgL_method4723z00_3274)(BgL_method4723z00_3274, 
(obj_t)(BgL_nodez00_3273), BEOA); } } } 
{ /* ./Cfa/tvector.scm 450 */
BgL_boxzd2refzd2_bglt BgL_obj2674z00_3299;BgL_varz00_bglt BgL_val2673z00_3300;
BgL_obj2674z00_3299 = BgL_nodez00_2060; 
BgL_val2673z00_3300 = 
(BgL_varz00_bglt)(BgL_arg6429z00_2064); 
((((BgL_boxzd2refzd2_bglt)CREF(BgL_obj2674z00_3299))->BgL_varz00) = ((BgL_varz00_bglt)BgL_val2673z00_3300), BUNSPEC); } } 
BgL_auxz00_4287 = BgL_nodez00_2060; 
return 
(obj_t)(BgL_auxz00_4287);} } } 
}



/* patch!-box-set!4763 */
obj_t BGl_patchz12zd2boxzd2setz124763z00zzcfa_tvectorz00(obj_t BgL_envz00_3494, obj_t BgL_nodez00_3495)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 439 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_2050;
{ /* ./Cfa/tvector.scm 440 */
BgL_boxzd2setz12zc0_bglt BgL_auxz00_4316;
BgL_nodez00_2050 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_3495); 
{ /* ./Cfa/tvector.scm 441 */
obj_t BgL_arg6409z00_2054;
{ /* ./Cfa/tvector.scm 441 */
BgL_varz00_bglt BgL_arg6412z00_2055;
BgL_arg6412z00_2055 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_2050))->BgL_varz00); 
{ /* ./Cfa/tvector.scm 441 */
BgL_nodez00_bglt BgL_nodez00_3215;
BgL_nodez00_3215 = 
(BgL_nodez00_bglt)(BgL_arg6412z00_2055); 
{ /* ./Cfa/tvector.scm 441 */
obj_t BgL_method4723z00_3216;
{ /* ./Cfa/tvector.scm 441 */
BgL_objectz00_bglt BgL_objz00_3217;
BgL_objz00_3217 = 
(BgL_objectz00_bglt)(BgL_nodez00_3215); 
{ /* ./Cfa/tvector.scm 441 */
long BgL_objzd2classzd2numz00_3218;
BgL_objzd2classzd2numz00_3218 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3217); 
{ /* ./Cfa/tvector.scm 441 */
obj_t BgL_arg2017z00_3219;
{ /* ./Cfa/tvector.scm 441 */
int BgL_auxz00_4321;
BgL_auxz00_4321 = 
(int)(((long)1)); 
BgL_arg2017z00_3219 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4321); } 
{ /* ./Cfa/tvector.scm 441 */
int BgL_offsetz00_3222;
BgL_offsetz00_3222 = 
(int)(BgL_objzd2classzd2numz00_3218); 
{ /* ./Cfa/tvector.scm 441 */
long BgL_offsetz00_3223;
{ /* ./Cfa/tvector.scm 441 */
long BgL_auxz00_4325;
BgL_auxz00_4325 = 
(long)(BgL_offsetz00_3222); 
BgL_offsetz00_3223 = 
(BgL_auxz00_4325-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 441 */
long BgL_modz00_3224;
{ /* ./Cfa/tvector.scm 441 */
int BgL_arg2028z00_3225;
BgL_arg2028z00_3225 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 441 */
long BgL_n2z00_3233;
BgL_n2z00_3233 = 
(long)(BgL_arg2028z00_3225); 
BgL_modz00_3224 = 
(BgL_offsetz00_3223/BgL_n2z00_3233); } } 
{ /* ./Cfa/tvector.scm 441 */
long BgL_restz00_3226;
{ /* ./Cfa/tvector.scm 441 */
int BgL_arg2024z00_3227;
BgL_arg2024z00_3227 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 441 */
long BgL_n2z00_3236;
BgL_n2z00_3236 = 
(long)(BgL_arg2024z00_3227); 
BgL_restz00_3226 = 
(BgL_offsetz00_3223%BgL_n2z00_3236); } } 
{ /* ./Cfa/tvector.scm 441 */

{ /* ./Cfa/tvector.scm 441 */
obj_t BgL_bucketz00_3228;
{ /* ./Cfa/tvector.scm 441 */
int BgL_kz00_3238;
BgL_kz00_3238 = 
(int)(BgL_modz00_3224); 
BgL_bucketz00_3228 = 
VECTOR_REF(BgL_arg2017z00_3219,BgL_kz00_3238); } 
{ /* ./Cfa/tvector.scm 441 */
int BgL_kz00_3240;
BgL_kz00_3240 = 
(int)(BgL_restz00_3226); 
BgL_method4723z00_3216 = 
VECTOR_REF(BgL_bucketz00_3228,BgL_kz00_3240); } } } } } } } } } } 
BgL_arg6409z00_2054 = 
PROCEDURE_ENTRY(BgL_method4723z00_3216)(BgL_method4723z00_3216, 
(obj_t)(BgL_nodez00_3215), BEOA); } } } 
{ /* ./Cfa/tvector.scm 441 */
BgL_boxzd2setz12zc0_bglt BgL_obj2700z00_3241;BgL_varz00_bglt BgL_val2699z00_3242;
BgL_obj2700z00_3241 = BgL_nodez00_2050; 
BgL_val2699z00_3242 = 
(BgL_varz00_bglt)(BgL_arg6409z00_2054); 
((((BgL_boxzd2setz12zc0_bglt)CREF(BgL_obj2700z00_3241))->BgL_varz00) = ((BgL_varz00_bglt)BgL_val2699z00_3242), BUNSPEC); } } 
{ /* ./Cfa/tvector.scm 442 */
obj_t BgL_arg6416z00_2056;
{ /* ./Cfa/tvector.scm 442 */
BgL_nodez00_bglt BgL_arg6419z00_2057;
BgL_arg6419z00_2057 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_2050))->BgL_valuez00); 
{ /* ./Cfa/tvector.scm 442 */
obj_t BgL_method4723z00_3245;
{ /* ./Cfa/tvector.scm 442 */
BgL_objectz00_bglt BgL_objz00_3246;
BgL_objz00_3246 = 
(BgL_objectz00_bglt)(BgL_arg6419z00_2057); 
{ /* ./Cfa/tvector.scm 442 */
long BgL_objzd2classzd2numz00_3247;
BgL_objzd2classzd2numz00_3247 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3246); 
{ /* ./Cfa/tvector.scm 442 */
obj_t BgL_arg2017z00_3248;
{ /* ./Cfa/tvector.scm 442 */
int BgL_auxz00_4346;
BgL_auxz00_4346 = 
(int)(((long)1)); 
BgL_arg2017z00_3248 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4346); } 
{ /* ./Cfa/tvector.scm 442 */
int BgL_offsetz00_3251;
BgL_offsetz00_3251 = 
(int)(BgL_objzd2classzd2numz00_3247); 
{ /* ./Cfa/tvector.scm 442 */
long BgL_offsetz00_3252;
{ /* ./Cfa/tvector.scm 442 */
long BgL_auxz00_4350;
BgL_auxz00_4350 = 
(long)(BgL_offsetz00_3251); 
BgL_offsetz00_3252 = 
(BgL_auxz00_4350-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 442 */
long BgL_modz00_3253;
{ /* ./Cfa/tvector.scm 442 */
int BgL_arg2028z00_3254;
BgL_arg2028z00_3254 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 442 */
long BgL_n2z00_3262;
BgL_n2z00_3262 = 
(long)(BgL_arg2028z00_3254); 
BgL_modz00_3253 = 
(BgL_offsetz00_3252/BgL_n2z00_3262); } } 
{ /* ./Cfa/tvector.scm 442 */
long BgL_restz00_3255;
{ /* ./Cfa/tvector.scm 442 */
int BgL_arg2024z00_3256;
BgL_arg2024z00_3256 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 442 */
long BgL_n2z00_3265;
BgL_n2z00_3265 = 
(long)(BgL_arg2024z00_3256); 
BgL_restz00_3255 = 
(BgL_offsetz00_3252%BgL_n2z00_3265); } } 
{ /* ./Cfa/tvector.scm 442 */

{ /* ./Cfa/tvector.scm 442 */
obj_t BgL_bucketz00_3257;
{ /* ./Cfa/tvector.scm 442 */
int BgL_kz00_3267;
BgL_kz00_3267 = 
(int)(BgL_modz00_3253); 
BgL_bucketz00_3257 = 
VECTOR_REF(BgL_arg2017z00_3248,BgL_kz00_3267); } 
{ /* ./Cfa/tvector.scm 442 */
int BgL_kz00_3269;
BgL_kz00_3269 = 
(int)(BgL_restz00_3255); 
BgL_method4723z00_3245 = 
VECTOR_REF(BgL_bucketz00_3257,BgL_kz00_3269); } } } } } } } } } } 
BgL_arg6416z00_2056 = 
PROCEDURE_ENTRY(BgL_method4723z00_3245)(BgL_method4723z00_3245, 
(obj_t)(BgL_arg6419z00_2057), BEOA); } } 
{ /* ./Cfa/tvector.scm 442 */
BgL_boxzd2setz12zc0_bglt BgL_obj2703z00_3270;BgL_nodez00_bglt BgL_val2702z00_3271;
BgL_obj2703z00_3270 = BgL_nodez00_2050; 
BgL_val2702z00_3271 = 
(BgL_nodez00_bglt)(BgL_arg6416z00_2056); 
((((BgL_boxzd2setz12zc0_bglt)CREF(BgL_obj2703z00_3270))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2702z00_3271), BUNSPEC); } } 
BgL_auxz00_4316 = BgL_nodez00_2050; 
return 
(obj_t)(BgL_auxz00_4316);} } } 
}



/* patch!-make-box4761 */
obj_t BGl_patchz12zd2makezd2box4761z12zzcfa_tvectorz00(obj_t BgL_envz00_3496, obj_t BgL_nodez00_3497)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 431 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_2042;
{ /* ./Cfa/tvector.scm 432 */
BgL_makezd2boxzd2_bglt BgL_auxz00_4370;
BgL_nodez00_2042 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_3497); 
{ /* ./Cfa/tvector.scm 433 */
obj_t BgL_arg6396z00_2046;
{ /* ./Cfa/tvector.scm 433 */
BgL_nodez00_bglt BgL_arg6399z00_2047;
BgL_arg6399z00_2047 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_2042))->BgL_valuez00); 
{ /* ./Cfa/tvector.scm 433 */
obj_t BgL_method4723z00_3187;
{ /* ./Cfa/tvector.scm 433 */
BgL_objectz00_bglt BgL_objz00_3188;
BgL_objz00_3188 = 
(BgL_objectz00_bglt)(BgL_arg6399z00_2047); 
{ /* ./Cfa/tvector.scm 433 */
long BgL_objzd2classzd2numz00_3189;
BgL_objzd2classzd2numz00_3189 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3188); 
{ /* ./Cfa/tvector.scm 433 */
obj_t BgL_arg2017z00_3190;
{ /* ./Cfa/tvector.scm 433 */
int BgL_auxz00_4374;
BgL_auxz00_4374 = 
(int)(((long)1)); 
BgL_arg2017z00_3190 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4374); } 
{ /* ./Cfa/tvector.scm 433 */
int BgL_offsetz00_3193;
BgL_offsetz00_3193 = 
(int)(BgL_objzd2classzd2numz00_3189); 
{ /* ./Cfa/tvector.scm 433 */
long BgL_offsetz00_3194;
{ /* ./Cfa/tvector.scm 433 */
long BgL_auxz00_4378;
BgL_auxz00_4378 = 
(long)(BgL_offsetz00_3193); 
BgL_offsetz00_3194 = 
(BgL_auxz00_4378-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 433 */
long BgL_modz00_3195;
{ /* ./Cfa/tvector.scm 433 */
int BgL_arg2028z00_3196;
BgL_arg2028z00_3196 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 433 */
long BgL_n2z00_3204;
BgL_n2z00_3204 = 
(long)(BgL_arg2028z00_3196); 
BgL_modz00_3195 = 
(BgL_offsetz00_3194/BgL_n2z00_3204); } } 
{ /* ./Cfa/tvector.scm 433 */
long BgL_restz00_3197;
{ /* ./Cfa/tvector.scm 433 */
int BgL_arg2024z00_3198;
BgL_arg2024z00_3198 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 433 */
long BgL_n2z00_3207;
BgL_n2z00_3207 = 
(long)(BgL_arg2024z00_3198); 
BgL_restz00_3197 = 
(BgL_offsetz00_3194%BgL_n2z00_3207); } } 
{ /* ./Cfa/tvector.scm 433 */

{ /* ./Cfa/tvector.scm 433 */
obj_t BgL_bucketz00_3199;
{ /* ./Cfa/tvector.scm 433 */
int BgL_kz00_3209;
BgL_kz00_3209 = 
(int)(BgL_modz00_3195); 
BgL_bucketz00_3199 = 
VECTOR_REF(BgL_arg2017z00_3190,BgL_kz00_3209); } 
{ /* ./Cfa/tvector.scm 433 */
int BgL_kz00_3211;
BgL_kz00_3211 = 
(int)(BgL_restz00_3197); 
BgL_method4723z00_3187 = 
VECTOR_REF(BgL_bucketz00_3199,BgL_kz00_3211); } } } } } } } } } } 
BgL_arg6396z00_2046 = 
PROCEDURE_ENTRY(BgL_method4723z00_3187)(BgL_method4723z00_3187, 
(obj_t)(BgL_arg6399z00_2047), BEOA); } } 
{ /* ./Cfa/tvector.scm 433 */
BgL_makezd2boxzd2_bglt BgL_obj2642z00_3212;BgL_nodez00_bglt BgL_val2641z00_3213;
BgL_obj2642z00_3212 = BgL_nodez00_2042; 
BgL_val2641z00_3213 = 
(BgL_nodez00_bglt)(BgL_arg6396z00_2046); 
((((BgL_makezd2boxzd2_bglt)CREF(BgL_obj2642z00_3212))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2641z00_3213), BUNSPEC); } } 
BgL_auxz00_4370 = BgL_nodez00_2042; 
return 
(obj_t)(BgL_auxz00_4370);} } } 
}



/* patch!-jump-ex-it4759 */
obj_t BGl_patchz12zd2jumpzd2exzd2it4759zc0zzcfa_tvectorz00(obj_t BgL_envz00_3498, obj_t BgL_nodez00_3499)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 422 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_2032;
{ /* ./Cfa/tvector.scm 423 */
BgL_jumpzd2exzd2itz00_bglt BgL_auxz00_4398;
BgL_nodez00_2032 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_3499); 
{ /* ./Cfa/tvector.scm 424 */
obj_t BgL_arg6376z00_2036;
{ /* ./Cfa/tvector.scm 424 */
BgL_nodez00_bglt BgL_arg6379z00_2037;
BgL_arg6379z00_2037 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_2032))->BgL_exitz00); 
{ /* ./Cfa/tvector.scm 424 */
obj_t BgL_method4723z00_3129;
{ /* ./Cfa/tvector.scm 424 */
BgL_objectz00_bglt BgL_objz00_3130;
BgL_objz00_3130 = 
(BgL_objectz00_bglt)(BgL_arg6379z00_2037); 
{ /* ./Cfa/tvector.scm 424 */
long BgL_objzd2classzd2numz00_3131;
BgL_objzd2classzd2numz00_3131 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3130); 
{ /* ./Cfa/tvector.scm 424 */
obj_t BgL_arg2017z00_3132;
{ /* ./Cfa/tvector.scm 424 */
int BgL_auxz00_4402;
BgL_auxz00_4402 = 
(int)(((long)1)); 
BgL_arg2017z00_3132 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4402); } 
{ /* ./Cfa/tvector.scm 424 */
int BgL_offsetz00_3135;
BgL_offsetz00_3135 = 
(int)(BgL_objzd2classzd2numz00_3131); 
{ /* ./Cfa/tvector.scm 424 */
long BgL_offsetz00_3136;
{ /* ./Cfa/tvector.scm 424 */
long BgL_auxz00_4406;
BgL_auxz00_4406 = 
(long)(BgL_offsetz00_3135); 
BgL_offsetz00_3136 = 
(BgL_auxz00_4406-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 424 */
long BgL_modz00_3137;
{ /* ./Cfa/tvector.scm 424 */
int BgL_arg2028z00_3138;
BgL_arg2028z00_3138 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 424 */
long BgL_n2z00_3146;
BgL_n2z00_3146 = 
(long)(BgL_arg2028z00_3138); 
BgL_modz00_3137 = 
(BgL_offsetz00_3136/BgL_n2z00_3146); } } 
{ /* ./Cfa/tvector.scm 424 */
long BgL_restz00_3139;
{ /* ./Cfa/tvector.scm 424 */
int BgL_arg2024z00_3140;
BgL_arg2024z00_3140 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 424 */
long BgL_n2z00_3149;
BgL_n2z00_3149 = 
(long)(BgL_arg2024z00_3140); 
BgL_restz00_3139 = 
(BgL_offsetz00_3136%BgL_n2z00_3149); } } 
{ /* ./Cfa/tvector.scm 424 */

{ /* ./Cfa/tvector.scm 424 */
obj_t BgL_bucketz00_3141;
{ /* ./Cfa/tvector.scm 424 */
int BgL_kz00_3151;
BgL_kz00_3151 = 
(int)(BgL_modz00_3137); 
BgL_bucketz00_3141 = 
VECTOR_REF(BgL_arg2017z00_3132,BgL_kz00_3151); } 
{ /* ./Cfa/tvector.scm 424 */
int BgL_kz00_3153;
BgL_kz00_3153 = 
(int)(BgL_restz00_3139); 
BgL_method4723z00_3129 = 
VECTOR_REF(BgL_bucketz00_3141,BgL_kz00_3153); } } } } } } } } } } 
BgL_arg6376z00_2036 = 
PROCEDURE_ENTRY(BgL_method4723z00_3129)(BgL_method4723z00_3129, 
(obj_t)(BgL_arg6379z00_2037), BEOA); } } 
{ /* ./Cfa/tvector.scm 424 */
BgL_jumpzd2exzd2itz00_bglt BgL_obj2610z00_3154;BgL_nodez00_bglt BgL_val2609z00_3155;
BgL_obj2610z00_3154 = BgL_nodez00_2032; 
BgL_val2609z00_3155 = 
(BgL_nodez00_bglt)(BgL_arg6376z00_2036); 
((((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_obj2610z00_3154))->BgL_exitz00) = ((BgL_nodez00_bglt)BgL_val2609z00_3155), BUNSPEC); } } 
{ /* ./Cfa/tvector.scm 425 */
obj_t BgL_arg6383z00_2038;
{ /* ./Cfa/tvector.scm 425 */
BgL_nodez00_bglt BgL_arg6386z00_2039;
BgL_arg6386z00_2039 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_2032))->BgL_valuez00); 
{ /* ./Cfa/tvector.scm 425 */
obj_t BgL_method4723z00_3158;
{ /* ./Cfa/tvector.scm 425 */
BgL_objectz00_bglt BgL_objz00_3159;
BgL_objz00_3159 = 
(BgL_objectz00_bglt)(BgL_arg6386z00_2039); 
{ /* ./Cfa/tvector.scm 425 */
long BgL_objzd2classzd2numz00_3160;
BgL_objzd2classzd2numz00_3160 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3159); 
{ /* ./Cfa/tvector.scm 425 */
obj_t BgL_arg2017z00_3161;
{ /* ./Cfa/tvector.scm 425 */
int BgL_auxz00_4427;
BgL_auxz00_4427 = 
(int)(((long)1)); 
BgL_arg2017z00_3161 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4427); } 
{ /* ./Cfa/tvector.scm 425 */
int BgL_offsetz00_3164;
BgL_offsetz00_3164 = 
(int)(BgL_objzd2classzd2numz00_3160); 
{ /* ./Cfa/tvector.scm 425 */
long BgL_offsetz00_3165;
{ /* ./Cfa/tvector.scm 425 */
long BgL_auxz00_4431;
BgL_auxz00_4431 = 
(long)(BgL_offsetz00_3164); 
BgL_offsetz00_3165 = 
(BgL_auxz00_4431-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 425 */
long BgL_modz00_3166;
{ /* ./Cfa/tvector.scm 425 */
int BgL_arg2028z00_3167;
BgL_arg2028z00_3167 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 425 */
long BgL_n2z00_3175;
BgL_n2z00_3175 = 
(long)(BgL_arg2028z00_3167); 
BgL_modz00_3166 = 
(BgL_offsetz00_3165/BgL_n2z00_3175); } } 
{ /* ./Cfa/tvector.scm 425 */
long BgL_restz00_3168;
{ /* ./Cfa/tvector.scm 425 */
int BgL_arg2024z00_3169;
BgL_arg2024z00_3169 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 425 */
long BgL_n2z00_3178;
BgL_n2z00_3178 = 
(long)(BgL_arg2024z00_3169); 
BgL_restz00_3168 = 
(BgL_offsetz00_3165%BgL_n2z00_3178); } } 
{ /* ./Cfa/tvector.scm 425 */

{ /* ./Cfa/tvector.scm 425 */
obj_t BgL_bucketz00_3170;
{ /* ./Cfa/tvector.scm 425 */
int BgL_kz00_3180;
BgL_kz00_3180 = 
(int)(BgL_modz00_3166); 
BgL_bucketz00_3170 = 
VECTOR_REF(BgL_arg2017z00_3161,BgL_kz00_3180); } 
{ /* ./Cfa/tvector.scm 425 */
int BgL_kz00_3182;
BgL_kz00_3182 = 
(int)(BgL_restz00_3168); 
BgL_method4723z00_3158 = 
VECTOR_REF(BgL_bucketz00_3170,BgL_kz00_3182); } } } } } } } } } } 
BgL_arg6383z00_2038 = 
PROCEDURE_ENTRY(BgL_method4723z00_3158)(BgL_method4723z00_3158, 
(obj_t)(BgL_arg6386z00_2039), BEOA); } } 
{ /* ./Cfa/tvector.scm 425 */
BgL_jumpzd2exzd2itz00_bglt BgL_obj2613z00_3183;BgL_nodez00_bglt BgL_val2612z00_3184;
BgL_obj2613z00_3183 = BgL_nodez00_2032; 
BgL_val2612z00_3184 = 
(BgL_nodez00_bglt)(BgL_arg6383z00_2038); 
((((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_obj2613z00_3183))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2612z00_3184), BUNSPEC); } } 
BgL_auxz00_4398 = BgL_nodez00_2032; 
return 
(obj_t)(BgL_auxz00_4398);} } } 
}



/* patch!-set-ex-it4757 */
obj_t BGl_patchz12zd2setzd2exzd2it4757zc0zzcfa_tvectorz00(obj_t BgL_envz00_3500, obj_t BgL_nodez00_3501)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 413 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_2023;
{ /* ./Cfa/tvector.scm 414 */
BgL_setzd2exzd2itz00_bglt BgL_auxz00_4451;
BgL_nodez00_2023 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_3501); 
{ /* ./Cfa/tvector.scm 415 */
obj_t BgL_arg6359z00_2027;
{ /* ./Cfa/tvector.scm 415 */
BgL_nodez00_bglt BgL_arg6362z00_2028;
BgL_arg6362z00_2028 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_2023))->BgL_bodyz00); 
{ /* ./Cfa/tvector.scm 415 */
obj_t BgL_method4723z00_3073;
{ /* ./Cfa/tvector.scm 415 */
BgL_objectz00_bglt BgL_objz00_3074;
BgL_objz00_3074 = 
(BgL_objectz00_bglt)(BgL_arg6362z00_2028); 
{ /* ./Cfa/tvector.scm 415 */
long BgL_objzd2classzd2numz00_3075;
BgL_objzd2classzd2numz00_3075 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3074); 
{ /* ./Cfa/tvector.scm 415 */
obj_t BgL_arg2017z00_3076;
{ /* ./Cfa/tvector.scm 415 */
int BgL_auxz00_4455;
BgL_auxz00_4455 = 
(int)(((long)1)); 
BgL_arg2017z00_3076 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4455); } 
{ /* ./Cfa/tvector.scm 415 */
int BgL_offsetz00_3079;
BgL_offsetz00_3079 = 
(int)(BgL_objzd2classzd2numz00_3075); 
{ /* ./Cfa/tvector.scm 415 */
long BgL_offsetz00_3080;
{ /* ./Cfa/tvector.scm 415 */
long BgL_auxz00_4459;
BgL_auxz00_4459 = 
(long)(BgL_offsetz00_3079); 
BgL_offsetz00_3080 = 
(BgL_auxz00_4459-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 415 */
long BgL_modz00_3081;
{ /* ./Cfa/tvector.scm 415 */
int BgL_arg2028z00_3082;
BgL_arg2028z00_3082 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 415 */
long BgL_n2z00_3090;
BgL_n2z00_3090 = 
(long)(BgL_arg2028z00_3082); 
BgL_modz00_3081 = 
(BgL_offsetz00_3080/BgL_n2z00_3090); } } 
{ /* ./Cfa/tvector.scm 415 */
long BgL_restz00_3083;
{ /* ./Cfa/tvector.scm 415 */
int BgL_arg2024z00_3084;
BgL_arg2024z00_3084 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 415 */
long BgL_n2z00_3093;
BgL_n2z00_3093 = 
(long)(BgL_arg2024z00_3084); 
BgL_restz00_3083 = 
(BgL_offsetz00_3080%BgL_n2z00_3093); } } 
{ /* ./Cfa/tvector.scm 415 */

{ /* ./Cfa/tvector.scm 415 */
obj_t BgL_bucketz00_3085;
{ /* ./Cfa/tvector.scm 415 */
int BgL_kz00_3095;
BgL_kz00_3095 = 
(int)(BgL_modz00_3081); 
BgL_bucketz00_3085 = 
VECTOR_REF(BgL_arg2017z00_3076,BgL_kz00_3095); } 
{ /* ./Cfa/tvector.scm 415 */
int BgL_kz00_3097;
BgL_kz00_3097 = 
(int)(BgL_restz00_3083); 
BgL_method4723z00_3073 = 
VECTOR_REF(BgL_bucketz00_3085,BgL_kz00_3097); } } } } } } } } } } 
BgL_arg6359z00_2027 = 
PROCEDURE_ENTRY(BgL_method4723z00_3073)(BgL_method4723z00_3073, 
(obj_t)(BgL_arg6362z00_2028), BEOA); } } 
{ /* ./Cfa/tvector.scm 415 */
BgL_setzd2exzd2itz00_bglt BgL_obj2587z00_3098;BgL_nodez00_bglt BgL_val2586z00_3099;
BgL_obj2587z00_3098 = BgL_nodez00_2023; 
BgL_val2586z00_3099 = 
(BgL_nodez00_bglt)(BgL_arg6359z00_2027); 
((((BgL_setzd2exzd2itz00_bglt)CREF(BgL_obj2587z00_3098))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2586z00_3099), BUNSPEC); } } 
{ /* ./Cfa/tvector.scm 416 */
BgL_varz00_bglt BgL_arg6366z00_2029;
BgL_arg6366z00_2029 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_2023))->BgL_varz00); 
{ /* ./Cfa/tvector.scm 416 */
BgL_nodez00_bglt BgL_nodez00_3101;
BgL_nodez00_3101 = 
(BgL_nodez00_bglt)(BgL_arg6366z00_2029); 
{ /* ./Cfa/tvector.scm 416 */
obj_t BgL_method4723z00_3102;
{ /* ./Cfa/tvector.scm 416 */
BgL_objectz00_bglt BgL_objz00_3103;
BgL_objz00_3103 = 
(BgL_objectz00_bglt)(BgL_nodez00_3101); 
{ /* ./Cfa/tvector.scm 416 */
long BgL_objzd2classzd2numz00_3104;
BgL_objzd2classzd2numz00_3104 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3103); 
{ /* ./Cfa/tvector.scm 416 */
obj_t BgL_arg2017z00_3105;
{ /* ./Cfa/tvector.scm 416 */
int BgL_auxz00_4481;
BgL_auxz00_4481 = 
(int)(((long)1)); 
BgL_arg2017z00_3105 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4481); } 
{ /* ./Cfa/tvector.scm 416 */
int BgL_offsetz00_3108;
BgL_offsetz00_3108 = 
(int)(BgL_objzd2classzd2numz00_3104); 
{ /* ./Cfa/tvector.scm 416 */
long BgL_offsetz00_3109;
{ /* ./Cfa/tvector.scm 416 */
long BgL_auxz00_4485;
BgL_auxz00_4485 = 
(long)(BgL_offsetz00_3108); 
BgL_offsetz00_3109 = 
(BgL_auxz00_4485-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 416 */
long BgL_modz00_3110;
{ /* ./Cfa/tvector.scm 416 */
int BgL_arg2028z00_3111;
BgL_arg2028z00_3111 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 416 */
long BgL_n2z00_3119;
BgL_n2z00_3119 = 
(long)(BgL_arg2028z00_3111); 
BgL_modz00_3110 = 
(BgL_offsetz00_3109/BgL_n2z00_3119); } } 
{ /* ./Cfa/tvector.scm 416 */
long BgL_restz00_3112;
{ /* ./Cfa/tvector.scm 416 */
int BgL_arg2024z00_3113;
BgL_arg2024z00_3113 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 416 */
long BgL_n2z00_3122;
BgL_n2z00_3122 = 
(long)(BgL_arg2024z00_3113); 
BgL_restz00_3112 = 
(BgL_offsetz00_3109%BgL_n2z00_3122); } } 
{ /* ./Cfa/tvector.scm 416 */

{ /* ./Cfa/tvector.scm 416 */
obj_t BgL_bucketz00_3114;
{ /* ./Cfa/tvector.scm 416 */
int BgL_kz00_3124;
BgL_kz00_3124 = 
(int)(BgL_modz00_3110); 
BgL_bucketz00_3114 = 
VECTOR_REF(BgL_arg2017z00_3105,BgL_kz00_3124); } 
{ /* ./Cfa/tvector.scm 416 */
int BgL_kz00_3126;
BgL_kz00_3126 = 
(int)(BgL_restz00_3112); 
BgL_method4723z00_3102 = 
VECTOR_REF(BgL_bucketz00_3114,BgL_kz00_3126); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4723z00_3102)(BgL_method4723z00_3102, 
(obj_t)(BgL_nodez00_3101), BEOA); } } } 
BgL_auxz00_4451 = BgL_nodez00_2023; 
return 
(obj_t)(BgL_auxz00_4451);} } } 
}



/* patch!-let-var4755 */
obj_t BGl_patchz12zd2letzd2var4755z12zzcfa_tvectorz00(obj_t BgL_envz00_3502, obj_t BgL_nodez00_3503)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 401 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_2007;
{ /* ./Cfa/tvector.scm 402 */
BgL_letzd2varzd2_bglt BgL_auxz00_4503;
BgL_nodez00_2007 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_3503); 
{ 
obj_t BgL_l4687z00_2011;
{ /* ./Cfa/tvector.scm 403 */
obj_t BgL_arg6330z00_2013;
BgL_arg6330z00_2013 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_2007))->BgL_bindingsz00); 
BgL_l4687z00_2011 = BgL_arg6330z00_2013; 
BgL_forzd2each4688zd2_2012:
{ /* ./Cfa/tvector.scm 403 */
bool_t BgL_test6333z00_2014;
BgL_test6333z00_2014 = 
PAIRP(BgL_l4687z00_2011); 
if(BgL_test6333z00_2014)
{ /* ./Cfa/tvector.scm 403 */
{ /* ./Cfa/tvector.scm 404 */
obj_t BgL_bindingz00_2015;
BgL_bindingz00_2015 = 
CAR(BgL_l4687z00_2011); 
{ /* ./Cfa/tvector.scm 404 */
obj_t BgL_valz00_2016;
BgL_valz00_2016 = 
CDR(BgL_bindingz00_2015); 
{ /* ./Cfa/tvector.scm 405 */
obj_t BgL_arg6335z00_2017;
{ /* ./Cfa/tvector.scm 405 */
BgL_nodez00_bglt BgL_nodez00_3013;
BgL_nodez00_3013 = 
(BgL_nodez00_bglt)(BgL_valz00_2016); 
{ /* ./Cfa/tvector.scm 405 */
obj_t BgL_method4723z00_3014;
{ /* ./Cfa/tvector.scm 405 */
BgL_objectz00_bglt BgL_objz00_3015;
BgL_objz00_3015 = 
(BgL_objectz00_bglt)(BgL_nodez00_3013); 
{ /* ./Cfa/tvector.scm 405 */
long BgL_objzd2classzd2numz00_3016;
BgL_objzd2classzd2numz00_3016 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3015); 
{ /* ./Cfa/tvector.scm 405 */
obj_t BgL_arg2017z00_3017;
{ /* ./Cfa/tvector.scm 405 */
int BgL_auxz00_4512;
BgL_auxz00_4512 = 
(int)(((long)1)); 
BgL_arg2017z00_3017 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4512); } 
{ /* ./Cfa/tvector.scm 405 */
int BgL_offsetz00_3020;
BgL_offsetz00_3020 = 
(int)(BgL_objzd2classzd2numz00_3016); 
{ /* ./Cfa/tvector.scm 405 */
long BgL_offsetz00_3021;
{ /* ./Cfa/tvector.scm 405 */
long BgL_auxz00_4516;
BgL_auxz00_4516 = 
(long)(BgL_offsetz00_3020); 
BgL_offsetz00_3021 = 
(BgL_auxz00_4516-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 405 */
long BgL_modz00_3022;
{ /* ./Cfa/tvector.scm 405 */
int BgL_arg2028z00_3023;
BgL_arg2028z00_3023 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 405 */
long BgL_n2z00_3031;
BgL_n2z00_3031 = 
(long)(BgL_arg2028z00_3023); 
BgL_modz00_3022 = 
(BgL_offsetz00_3021/BgL_n2z00_3031); } } 
{ /* ./Cfa/tvector.scm 405 */
long BgL_restz00_3024;
{ /* ./Cfa/tvector.scm 405 */
int BgL_arg2024z00_3025;
BgL_arg2024z00_3025 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 405 */
long BgL_n2z00_3034;
BgL_n2z00_3034 = 
(long)(BgL_arg2024z00_3025); 
BgL_restz00_3024 = 
(BgL_offsetz00_3021%BgL_n2z00_3034); } } 
{ /* ./Cfa/tvector.scm 405 */

{ /* ./Cfa/tvector.scm 405 */
obj_t BgL_bucketz00_3026;
{ /* ./Cfa/tvector.scm 405 */
int BgL_kz00_3036;
BgL_kz00_3036 = 
(int)(BgL_modz00_3022); 
BgL_bucketz00_3026 = 
VECTOR_REF(BgL_arg2017z00_3017,BgL_kz00_3036); } 
{ /* ./Cfa/tvector.scm 405 */
int BgL_kz00_3038;
BgL_kz00_3038 = 
(int)(BgL_restz00_3024); 
BgL_method4723z00_3014 = 
VECTOR_REF(BgL_bucketz00_3026,BgL_kz00_3038); } } } } } } } } } } 
BgL_arg6335z00_2017 = 
PROCEDURE_ENTRY(BgL_method4723z00_3014)(BgL_method4723z00_3014, 
(obj_t)(BgL_nodez00_3013), BEOA); } } 
SET_CDR(BgL_bindingz00_2015, BgL_arg6335z00_2017); } } } 
{ /* ./Cfa/tvector.scm 403 */
obj_t BgL_arg6341z00_2018;
BgL_arg6341z00_2018 = 
CDR(BgL_l4687z00_2011); 
{ 
obj_t BgL_l4687z00_4534;
BgL_l4687z00_4534 = BgL_arg6341z00_2018; 
BgL_l4687z00_2011 = BgL_l4687z00_4534; 
goto BgL_forzd2each4688zd2_2012;} } }  else 
{ /* ./Cfa/tvector.scm 403 */((bool_t)1); } } } } 
{ /* ./Cfa/tvector.scm 407 */
obj_t BgL_arg6346z00_2019;
{ /* ./Cfa/tvector.scm 407 */
BgL_nodez00_bglt BgL_arg6349z00_2020;
BgL_arg6349z00_2020 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_2007))->BgL_bodyz00); 
{ /* ./Cfa/tvector.scm 407 */
obj_t BgL_method4723z00_3044;
{ /* ./Cfa/tvector.scm 407 */
BgL_objectz00_bglt BgL_objz00_3045;
BgL_objz00_3045 = 
(BgL_objectz00_bglt)(BgL_arg6349z00_2020); 
{ /* ./Cfa/tvector.scm 407 */
long BgL_objzd2classzd2numz00_3046;
BgL_objzd2classzd2numz00_3046 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3045); 
{ /* ./Cfa/tvector.scm 407 */
obj_t BgL_arg2017z00_3047;
{ /* ./Cfa/tvector.scm 407 */
int BgL_auxz00_4538;
BgL_auxz00_4538 = 
(int)(((long)1)); 
BgL_arg2017z00_3047 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4538); } 
{ /* ./Cfa/tvector.scm 407 */
int BgL_offsetz00_3050;
BgL_offsetz00_3050 = 
(int)(BgL_objzd2classzd2numz00_3046); 
{ /* ./Cfa/tvector.scm 407 */
long BgL_offsetz00_3051;
{ /* ./Cfa/tvector.scm 407 */
long BgL_auxz00_4542;
BgL_auxz00_4542 = 
(long)(BgL_offsetz00_3050); 
BgL_offsetz00_3051 = 
(BgL_auxz00_4542-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 407 */
long BgL_modz00_3052;
{ /* ./Cfa/tvector.scm 407 */
int BgL_arg2028z00_3053;
BgL_arg2028z00_3053 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 407 */
long BgL_n2z00_3061;
BgL_n2z00_3061 = 
(long)(BgL_arg2028z00_3053); 
BgL_modz00_3052 = 
(BgL_offsetz00_3051/BgL_n2z00_3061); } } 
{ /* ./Cfa/tvector.scm 407 */
long BgL_restz00_3054;
{ /* ./Cfa/tvector.scm 407 */
int BgL_arg2024z00_3055;
BgL_arg2024z00_3055 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 407 */
long BgL_n2z00_3064;
BgL_n2z00_3064 = 
(long)(BgL_arg2024z00_3055); 
BgL_restz00_3054 = 
(BgL_offsetz00_3051%BgL_n2z00_3064); } } 
{ /* ./Cfa/tvector.scm 407 */

{ /* ./Cfa/tvector.scm 407 */
obj_t BgL_bucketz00_3056;
{ /* ./Cfa/tvector.scm 407 */
int BgL_kz00_3066;
BgL_kz00_3066 = 
(int)(BgL_modz00_3052); 
BgL_bucketz00_3056 = 
VECTOR_REF(BgL_arg2017z00_3047,BgL_kz00_3066); } 
{ /* ./Cfa/tvector.scm 407 */
int BgL_kz00_3068;
BgL_kz00_3068 = 
(int)(BgL_restz00_3054); 
BgL_method4723z00_3044 = 
VECTOR_REF(BgL_bucketz00_3056,BgL_kz00_3068); } } } } } } } } } } 
BgL_arg6346z00_2019 = 
PROCEDURE_ENTRY(BgL_method4723z00_3044)(BgL_method4723z00_3044, 
(obj_t)(BgL_arg6349z00_2020), BEOA); } } 
{ /* ./Cfa/tvector.scm 407 */
BgL_letzd2varzd2_bglt BgL_obj2549z00_3069;BgL_nodez00_bglt BgL_val2548z00_3070;
BgL_obj2549z00_3069 = BgL_nodez00_2007; 
BgL_val2548z00_3070 = 
(BgL_nodez00_bglt)(BgL_arg6346z00_2019); 
((((BgL_letzd2varzd2_bglt)CREF(BgL_obj2549z00_3069))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2548z00_3070), BUNSPEC); } } 
BgL_auxz00_4503 = BgL_nodez00_2007; 
return 
(obj_t)(BgL_auxz00_4503);} } } 
}



/* patch!-let-fun4753 */
obj_t BGl_patchz12zd2letzd2fun4753z12zzcfa_tvectorz00(obj_t BgL_envz00_3504, obj_t BgL_nodez00_3505)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 392 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1993;
{ /* ./Cfa/tvector.scm 393 */
BgL_letzd2funzd2_bglt BgL_auxz00_4562;
BgL_nodez00_1993 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_3505); 
{ 
obj_t BgL_l4683z00_1997;
{ /* ./Cfa/tvector.scm 394 */
obj_t BgL_arg6303z00_1999;
BgL_arg6303z00_1999 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1993))->BgL_localsz00); 
BgL_l4683z00_1997 = BgL_arg6303z00_1999; 
BgL_forzd2each4684zd2_1998:
{ /* ./Cfa/tvector.scm 394 */
bool_t BgL_test6306z00_2000;
BgL_test6306z00_2000 = 
PAIRP(BgL_l4683z00_1997); 
if(BgL_test6306z00_2000)
{ /* ./Cfa/tvector.scm 394 */
{ /* ./Cfa/tvector.scm 394 */
obj_t BgL_arg6308z00_2001;
BgL_arg6308z00_2001 = 
CAR(BgL_l4683z00_1997); 
BGl_patchzd2funz12zc0zzcfa_tvectorz00(BgL_arg6308z00_2001); } 
{ /* ./Cfa/tvector.scm 394 */
obj_t BgL_arg6312z00_2002;
BgL_arg6312z00_2002 = 
CDR(BgL_l4683z00_1997); 
{ 
obj_t BgL_l4683z00_4569;
BgL_l4683z00_4569 = BgL_arg6312z00_2002; 
BgL_l4683z00_1997 = BgL_l4683z00_4569; 
goto BgL_forzd2each4684zd2_1998;} } }  else 
{ /* ./Cfa/tvector.scm 394 */((bool_t)1); } } } } 
{ /* ./Cfa/tvector.scm 395 */
obj_t BgL_arg6317z00_2003;
{ /* ./Cfa/tvector.scm 395 */
BgL_nodez00_bglt BgL_arg6320z00_2004;
BgL_arg6320z00_2004 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1993))->BgL_bodyz00); 
{ /* ./Cfa/tvector.scm 395 */
obj_t BgL_method4723z00_2982;
{ /* ./Cfa/tvector.scm 395 */
BgL_objectz00_bglt BgL_objz00_2983;
BgL_objz00_2983 = 
(BgL_objectz00_bglt)(BgL_arg6320z00_2004); 
{ /* ./Cfa/tvector.scm 395 */
long BgL_objzd2classzd2numz00_2984;
BgL_objzd2classzd2numz00_2984 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2983); 
{ /* ./Cfa/tvector.scm 395 */
obj_t BgL_arg2017z00_2985;
{ /* ./Cfa/tvector.scm 395 */
int BgL_auxz00_4573;
BgL_auxz00_4573 = 
(int)(((long)1)); 
BgL_arg2017z00_2985 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4573); } 
{ /* ./Cfa/tvector.scm 395 */
int BgL_offsetz00_2988;
BgL_offsetz00_2988 = 
(int)(BgL_objzd2classzd2numz00_2984); 
{ /* ./Cfa/tvector.scm 395 */
long BgL_offsetz00_2989;
{ /* ./Cfa/tvector.scm 395 */
long BgL_auxz00_4577;
BgL_auxz00_4577 = 
(long)(BgL_offsetz00_2988); 
BgL_offsetz00_2989 = 
(BgL_auxz00_4577-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 395 */
long BgL_modz00_2990;
{ /* ./Cfa/tvector.scm 395 */
int BgL_arg2028z00_2991;
BgL_arg2028z00_2991 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 395 */
long BgL_n2z00_2999;
BgL_n2z00_2999 = 
(long)(BgL_arg2028z00_2991); 
BgL_modz00_2990 = 
(BgL_offsetz00_2989/BgL_n2z00_2999); } } 
{ /* ./Cfa/tvector.scm 395 */
long BgL_restz00_2992;
{ /* ./Cfa/tvector.scm 395 */
int BgL_arg2024z00_2993;
BgL_arg2024z00_2993 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 395 */
long BgL_n2z00_3002;
BgL_n2z00_3002 = 
(long)(BgL_arg2024z00_2993); 
BgL_restz00_2992 = 
(BgL_offsetz00_2989%BgL_n2z00_3002); } } 
{ /* ./Cfa/tvector.scm 395 */

{ /* ./Cfa/tvector.scm 395 */
obj_t BgL_bucketz00_2994;
{ /* ./Cfa/tvector.scm 395 */
int BgL_kz00_3004;
BgL_kz00_3004 = 
(int)(BgL_modz00_2990); 
BgL_bucketz00_2994 = 
VECTOR_REF(BgL_arg2017z00_2985,BgL_kz00_3004); } 
{ /* ./Cfa/tvector.scm 395 */
int BgL_kz00_3006;
BgL_kz00_3006 = 
(int)(BgL_restz00_2992); 
BgL_method4723z00_2982 = 
VECTOR_REF(BgL_bucketz00_2994,BgL_kz00_3006); } } } } } } } } } } 
BgL_arg6317z00_2003 = 
PROCEDURE_ENTRY(BgL_method4723z00_2982)(BgL_method4723z00_2982, 
(obj_t)(BgL_arg6320z00_2004), BEOA); } } 
{ /* ./Cfa/tvector.scm 395 */
BgL_letzd2funzd2_bglt BgL_obj2511z00_3007;BgL_nodez00_bglt BgL_val2510z00_3008;
BgL_obj2511z00_3007 = BgL_nodez00_1993; 
BgL_val2510z00_3008 = 
(BgL_nodez00_bglt)(BgL_arg6317z00_2003); 
((((BgL_letzd2funzd2_bglt)CREF(BgL_obj2511z00_3007))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2510z00_3008), BUNSPEC); } } 
BgL_auxz00_4562 = BgL_nodez00_1993; 
return 
(obj_t)(BgL_auxz00_4562);} } } 
}



/* patch!-select4751 */
obj_t BGl_patchz12zd2select4751zc0zzcfa_tvectorz00(obj_t BgL_envz00_3506, obj_t BgL_nodez00_3507)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 381 */
{ 
BgL_selectz00_bglt BgL_nodez00_1977;
{ /* ./Cfa/tvector.scm 382 */
BgL_selectz00_bglt BgL_auxz00_4597;
BgL_nodez00_1977 = 
(BgL_selectz00_bglt)(BgL_nodez00_3507); 
{ /* ./Cfa/tvector.scm 383 */
obj_t BgL_arg6272z00_1981;
{ /* ./Cfa/tvector.scm 383 */
BgL_nodez00_bglt BgL_arg6275z00_1982;
BgL_arg6275z00_1982 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1977))->BgL_testz00); 
{ /* ./Cfa/tvector.scm 383 */
obj_t BgL_method4723z00_2916;
{ /* ./Cfa/tvector.scm 383 */
BgL_objectz00_bglt BgL_objz00_2917;
BgL_objz00_2917 = 
(BgL_objectz00_bglt)(BgL_arg6275z00_1982); 
{ /* ./Cfa/tvector.scm 383 */
long BgL_objzd2classzd2numz00_2918;
BgL_objzd2classzd2numz00_2918 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2917); 
{ /* ./Cfa/tvector.scm 383 */
obj_t BgL_arg2017z00_2919;
{ /* ./Cfa/tvector.scm 383 */
int BgL_auxz00_4601;
BgL_auxz00_4601 = 
(int)(((long)1)); 
BgL_arg2017z00_2919 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4601); } 
{ /* ./Cfa/tvector.scm 383 */
int BgL_offsetz00_2922;
BgL_offsetz00_2922 = 
(int)(BgL_objzd2classzd2numz00_2918); 
{ /* ./Cfa/tvector.scm 383 */
long BgL_offsetz00_2923;
{ /* ./Cfa/tvector.scm 383 */
long BgL_auxz00_4605;
BgL_auxz00_4605 = 
(long)(BgL_offsetz00_2922); 
BgL_offsetz00_2923 = 
(BgL_auxz00_4605-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 383 */
long BgL_modz00_2924;
{ /* ./Cfa/tvector.scm 383 */
int BgL_arg2028z00_2925;
BgL_arg2028z00_2925 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 383 */
long BgL_n2z00_2933;
BgL_n2z00_2933 = 
(long)(BgL_arg2028z00_2925); 
BgL_modz00_2924 = 
(BgL_offsetz00_2923/BgL_n2z00_2933); } } 
{ /* ./Cfa/tvector.scm 383 */
long BgL_restz00_2926;
{ /* ./Cfa/tvector.scm 383 */
int BgL_arg2024z00_2927;
BgL_arg2024z00_2927 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 383 */
long BgL_n2z00_2936;
BgL_n2z00_2936 = 
(long)(BgL_arg2024z00_2927); 
BgL_restz00_2926 = 
(BgL_offsetz00_2923%BgL_n2z00_2936); } } 
{ /* ./Cfa/tvector.scm 383 */

{ /* ./Cfa/tvector.scm 383 */
obj_t BgL_bucketz00_2928;
{ /* ./Cfa/tvector.scm 383 */
int BgL_kz00_2938;
BgL_kz00_2938 = 
(int)(BgL_modz00_2924); 
BgL_bucketz00_2928 = 
VECTOR_REF(BgL_arg2017z00_2919,BgL_kz00_2938); } 
{ /* ./Cfa/tvector.scm 383 */
int BgL_kz00_2940;
BgL_kz00_2940 = 
(int)(BgL_restz00_2926); 
BgL_method4723z00_2916 = 
VECTOR_REF(BgL_bucketz00_2928,BgL_kz00_2940); } } } } } } } } } } 
BgL_arg6272z00_1981 = 
PROCEDURE_ENTRY(BgL_method4723z00_2916)(BgL_method4723z00_2916, 
(obj_t)(BgL_arg6275z00_1982), BEOA); } } 
{ /* ./Cfa/tvector.scm 383 */
BgL_selectz00_bglt BgL_obj2468z00_2941;BgL_nodez00_bglt BgL_val2467z00_2942;
BgL_obj2468z00_2941 = BgL_nodez00_1977; 
BgL_val2467z00_2942 = 
(BgL_nodez00_bglt)(BgL_arg6272z00_1981); 
((((BgL_selectz00_bglt)CREF(BgL_obj2468z00_2941))->BgL_testz00) = ((BgL_nodez00_bglt)BgL_val2467z00_2942), BUNSPEC); } } 
{ 
obj_t BgL_l4679z00_1983;
{ /* ./Cfa/tvector.scm 384 */
obj_t BgL_arg6279z00_1985;
BgL_arg6279z00_1985 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1977))->BgL_clausesz00); 
BgL_l4679z00_1983 = BgL_arg6279z00_1985; 
BgL_forzd2each4680zd2_1984:
{ /* ./Cfa/tvector.scm 384 */
bool_t BgL_test6282z00_1986;
BgL_test6282z00_1986 = 
PAIRP(BgL_l4679z00_1983); 
if(BgL_test6282z00_1986)
{ /* ./Cfa/tvector.scm 384 */
{ /* ./Cfa/tvector.scm 385 */
obj_t BgL_clausez00_1987;
BgL_clausez00_1987 = 
CAR(BgL_l4679z00_1983); 
{ /* ./Cfa/tvector.scm 385 */
obj_t BgL_arg6284z00_1988;
{ /* ./Cfa/tvector.scm 385 */
obj_t BgL_arg6287z00_1989;
BgL_arg6287z00_1989 = 
CDR(BgL_clausez00_1987); 
{ /* ./Cfa/tvector.scm 385 */
BgL_nodez00_bglt BgL_nodez00_2947;
BgL_nodez00_2947 = 
(BgL_nodez00_bglt)(BgL_arg6287z00_1989); 
{ /* ./Cfa/tvector.scm 385 */
obj_t BgL_method4723z00_2948;
{ /* ./Cfa/tvector.scm 385 */
BgL_objectz00_bglt BgL_objz00_2949;
BgL_objz00_2949 = 
(BgL_objectz00_bglt)(BgL_nodez00_2947); 
{ /* ./Cfa/tvector.scm 385 */
long BgL_objzd2classzd2numz00_2950;
BgL_objzd2classzd2numz00_2950 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2949); 
{ /* ./Cfa/tvector.scm 385 */
obj_t BgL_arg2017z00_2951;
{ /* ./Cfa/tvector.scm 385 */
int BgL_auxz00_4631;
BgL_auxz00_4631 = 
(int)(((long)1)); 
BgL_arg2017z00_2951 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4631); } 
{ /* ./Cfa/tvector.scm 385 */
int BgL_offsetz00_2954;
BgL_offsetz00_2954 = 
(int)(BgL_objzd2classzd2numz00_2950); 
{ /* ./Cfa/tvector.scm 385 */
long BgL_offsetz00_2955;
{ /* ./Cfa/tvector.scm 385 */
long BgL_auxz00_4635;
BgL_auxz00_4635 = 
(long)(BgL_offsetz00_2954); 
BgL_offsetz00_2955 = 
(BgL_auxz00_4635-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 385 */
long BgL_modz00_2956;
{ /* ./Cfa/tvector.scm 385 */
int BgL_arg2028z00_2957;
BgL_arg2028z00_2957 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 385 */
long BgL_n2z00_2965;
BgL_n2z00_2965 = 
(long)(BgL_arg2028z00_2957); 
BgL_modz00_2956 = 
(BgL_offsetz00_2955/BgL_n2z00_2965); } } 
{ /* ./Cfa/tvector.scm 385 */
long BgL_restz00_2958;
{ /* ./Cfa/tvector.scm 385 */
int BgL_arg2024z00_2959;
BgL_arg2024z00_2959 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 385 */
long BgL_n2z00_2968;
BgL_n2z00_2968 = 
(long)(BgL_arg2024z00_2959); 
BgL_restz00_2958 = 
(BgL_offsetz00_2955%BgL_n2z00_2968); } } 
{ /* ./Cfa/tvector.scm 385 */

{ /* ./Cfa/tvector.scm 385 */
obj_t BgL_bucketz00_2960;
{ /* ./Cfa/tvector.scm 385 */
int BgL_kz00_2970;
BgL_kz00_2970 = 
(int)(BgL_modz00_2956); 
BgL_bucketz00_2960 = 
VECTOR_REF(BgL_arg2017z00_2951,BgL_kz00_2970); } 
{ /* ./Cfa/tvector.scm 385 */
int BgL_kz00_2972;
BgL_kz00_2972 = 
(int)(BgL_restz00_2958); 
BgL_method4723z00_2948 = 
VECTOR_REF(BgL_bucketz00_2960,BgL_kz00_2972); } } } } } } } } } } 
BgL_arg6284z00_1988 = 
PROCEDURE_ENTRY(BgL_method4723z00_2948)(BgL_method4723z00_2948, 
(obj_t)(BgL_nodez00_2947), BEOA); } } } 
SET_CDR(BgL_clausez00_1987, BgL_arg6284z00_1988); } } 
{ /* ./Cfa/tvector.scm 384 */
obj_t BgL_arg6292z00_1990;
BgL_arg6292z00_1990 = 
CDR(BgL_l4679z00_1983); 
{ 
obj_t BgL_l4679z00_4653;
BgL_l4679z00_4653 = BgL_arg6292z00_1990; 
BgL_l4679z00_1983 = BgL_l4679z00_4653; 
goto BgL_forzd2each4680zd2_1984;} } }  else 
{ /* ./Cfa/tvector.scm 384 */((bool_t)1); } } } } 
BgL_auxz00_4597 = BgL_nodez00_1977; 
return 
(obj_t)(BgL_auxz00_4597);} } } 
}



/* patch!-fail4749 */
obj_t BGl_patchz12zd2fail4749zc0zzcfa_tvectorz00(obj_t BgL_envz00_3508, obj_t BgL_nodez00_3509)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 371 */
{ 
BgL_failz00_bglt BgL_nodez00_1965;
{ /* ./Cfa/tvector.scm 372 */
BgL_failz00_bglt BgL_auxz00_4656;
BgL_nodez00_1965 = 
(BgL_failz00_bglt)(BgL_nodez00_3509); 
{ /* ./Cfa/tvector.scm 373 */
obj_t BgL_arg6245z00_1969;
{ /* ./Cfa/tvector.scm 373 */
BgL_nodez00_bglt BgL_arg6248z00_1970;
BgL_arg6248z00_1970 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1965))->BgL_procz00); 
{ /* ./Cfa/tvector.scm 373 */
obj_t BgL_method4723z00_2829;
{ /* ./Cfa/tvector.scm 373 */
BgL_objectz00_bglt BgL_objz00_2830;
BgL_objz00_2830 = 
(BgL_objectz00_bglt)(BgL_arg6248z00_1970); 
{ /* ./Cfa/tvector.scm 373 */
long BgL_objzd2classzd2numz00_2831;
BgL_objzd2classzd2numz00_2831 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2830); 
{ /* ./Cfa/tvector.scm 373 */
obj_t BgL_arg2017z00_2832;
{ /* ./Cfa/tvector.scm 373 */
int BgL_auxz00_4660;
BgL_auxz00_4660 = 
(int)(((long)1)); 
BgL_arg2017z00_2832 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4660); } 
{ /* ./Cfa/tvector.scm 373 */
int BgL_offsetz00_2835;
BgL_offsetz00_2835 = 
(int)(BgL_objzd2classzd2numz00_2831); 
{ /* ./Cfa/tvector.scm 373 */
long BgL_offsetz00_2836;
{ /* ./Cfa/tvector.scm 373 */
long BgL_auxz00_4664;
BgL_auxz00_4664 = 
(long)(BgL_offsetz00_2835); 
BgL_offsetz00_2836 = 
(BgL_auxz00_4664-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 373 */
long BgL_modz00_2837;
{ /* ./Cfa/tvector.scm 373 */
int BgL_arg2028z00_2838;
BgL_arg2028z00_2838 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 373 */
long BgL_n2z00_2846;
BgL_n2z00_2846 = 
(long)(BgL_arg2028z00_2838); 
BgL_modz00_2837 = 
(BgL_offsetz00_2836/BgL_n2z00_2846); } } 
{ /* ./Cfa/tvector.scm 373 */
long BgL_restz00_2839;
{ /* ./Cfa/tvector.scm 373 */
int BgL_arg2024z00_2840;
BgL_arg2024z00_2840 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 373 */
long BgL_n2z00_2849;
BgL_n2z00_2849 = 
(long)(BgL_arg2024z00_2840); 
BgL_restz00_2839 = 
(BgL_offsetz00_2836%BgL_n2z00_2849); } } 
{ /* ./Cfa/tvector.scm 373 */

{ /* ./Cfa/tvector.scm 373 */
obj_t BgL_bucketz00_2841;
{ /* ./Cfa/tvector.scm 373 */
int BgL_kz00_2851;
BgL_kz00_2851 = 
(int)(BgL_modz00_2837); 
BgL_bucketz00_2841 = 
VECTOR_REF(BgL_arg2017z00_2832,BgL_kz00_2851); } 
{ /* ./Cfa/tvector.scm 373 */
int BgL_kz00_2853;
BgL_kz00_2853 = 
(int)(BgL_restz00_2839); 
BgL_method4723z00_2829 = 
VECTOR_REF(BgL_bucketz00_2841,BgL_kz00_2853); } } } } } } } } } } 
BgL_arg6245z00_1969 = 
PROCEDURE_ENTRY(BgL_method4723z00_2829)(BgL_method4723z00_2829, 
(obj_t)(BgL_arg6248z00_1970), BEOA); } } 
{ /* ./Cfa/tvector.scm 373 */
BgL_failz00_bglt BgL_obj2430z00_2854;BgL_nodez00_bglt BgL_val2429z00_2855;
BgL_obj2430z00_2854 = BgL_nodez00_1965; 
BgL_val2429z00_2855 = 
(BgL_nodez00_bglt)(BgL_arg6245z00_1969); 
((((BgL_failz00_bglt)CREF(BgL_obj2430z00_2854))->BgL_procz00) = ((BgL_nodez00_bglt)BgL_val2429z00_2855), BUNSPEC); } } 
{ /* ./Cfa/tvector.scm 374 */
obj_t BgL_arg6252z00_1971;
{ /* ./Cfa/tvector.scm 374 */
BgL_nodez00_bglt BgL_arg6255z00_1972;
BgL_arg6255z00_1972 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1965))->BgL_msgz00); 
{ /* ./Cfa/tvector.scm 374 */
obj_t BgL_method4723z00_2858;
{ /* ./Cfa/tvector.scm 374 */
BgL_objectz00_bglt BgL_objz00_2859;
BgL_objz00_2859 = 
(BgL_objectz00_bglt)(BgL_arg6255z00_1972); 
{ /* ./Cfa/tvector.scm 374 */
long BgL_objzd2classzd2numz00_2860;
BgL_objzd2classzd2numz00_2860 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2859); 
{ /* ./Cfa/tvector.scm 374 */
obj_t BgL_arg2017z00_2861;
{ /* ./Cfa/tvector.scm 374 */
int BgL_auxz00_4685;
BgL_auxz00_4685 = 
(int)(((long)1)); 
BgL_arg2017z00_2861 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4685); } 
{ /* ./Cfa/tvector.scm 374 */
int BgL_offsetz00_2864;
BgL_offsetz00_2864 = 
(int)(BgL_objzd2classzd2numz00_2860); 
{ /* ./Cfa/tvector.scm 374 */
long BgL_offsetz00_2865;
{ /* ./Cfa/tvector.scm 374 */
long BgL_auxz00_4689;
BgL_auxz00_4689 = 
(long)(BgL_offsetz00_2864); 
BgL_offsetz00_2865 = 
(BgL_auxz00_4689-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 374 */
long BgL_modz00_2866;
{ /* ./Cfa/tvector.scm 374 */
int BgL_arg2028z00_2867;
BgL_arg2028z00_2867 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 374 */
long BgL_n2z00_2875;
BgL_n2z00_2875 = 
(long)(BgL_arg2028z00_2867); 
BgL_modz00_2866 = 
(BgL_offsetz00_2865/BgL_n2z00_2875); } } 
{ /* ./Cfa/tvector.scm 374 */
long BgL_restz00_2868;
{ /* ./Cfa/tvector.scm 374 */
int BgL_arg2024z00_2869;
BgL_arg2024z00_2869 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 374 */
long BgL_n2z00_2878;
BgL_n2z00_2878 = 
(long)(BgL_arg2024z00_2869); 
BgL_restz00_2868 = 
(BgL_offsetz00_2865%BgL_n2z00_2878); } } 
{ /* ./Cfa/tvector.scm 374 */

{ /* ./Cfa/tvector.scm 374 */
obj_t BgL_bucketz00_2870;
{ /* ./Cfa/tvector.scm 374 */
int BgL_kz00_2880;
BgL_kz00_2880 = 
(int)(BgL_modz00_2866); 
BgL_bucketz00_2870 = 
VECTOR_REF(BgL_arg2017z00_2861,BgL_kz00_2880); } 
{ /* ./Cfa/tvector.scm 374 */
int BgL_kz00_2882;
BgL_kz00_2882 = 
(int)(BgL_restz00_2868); 
BgL_method4723z00_2858 = 
VECTOR_REF(BgL_bucketz00_2870,BgL_kz00_2882); } } } } } } } } } } 
BgL_arg6252z00_1971 = 
PROCEDURE_ENTRY(BgL_method4723z00_2858)(BgL_method4723z00_2858, 
(obj_t)(BgL_arg6255z00_1972), BEOA); } } 
{ /* ./Cfa/tvector.scm 374 */
BgL_failz00_bglt BgL_obj2433z00_2883;BgL_nodez00_bglt BgL_val2432z00_2884;
BgL_obj2433z00_2883 = BgL_nodez00_1965; 
BgL_val2432z00_2884 = 
(BgL_nodez00_bglt)(BgL_arg6252z00_1971); 
((((BgL_failz00_bglt)CREF(BgL_obj2433z00_2883))->BgL_msgz00) = ((BgL_nodez00_bglt)BgL_val2432z00_2884), BUNSPEC); } } 
{ /* ./Cfa/tvector.scm 375 */
obj_t BgL_arg6259z00_1973;
{ /* ./Cfa/tvector.scm 375 */
BgL_nodez00_bglt BgL_arg6262z00_1974;
BgL_arg6262z00_1974 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1965))->BgL_objz00); 
{ /* ./Cfa/tvector.scm 375 */
obj_t BgL_method4723z00_2887;
{ /* ./Cfa/tvector.scm 375 */
BgL_objectz00_bglt BgL_objz00_2888;
BgL_objz00_2888 = 
(BgL_objectz00_bglt)(BgL_arg6262z00_1974); 
{ /* ./Cfa/tvector.scm 375 */
long BgL_objzd2classzd2numz00_2889;
BgL_objzd2classzd2numz00_2889 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2888); 
{ /* ./Cfa/tvector.scm 375 */
obj_t BgL_arg2017z00_2890;
{ /* ./Cfa/tvector.scm 375 */
int BgL_auxz00_4710;
BgL_auxz00_4710 = 
(int)(((long)1)); 
BgL_arg2017z00_2890 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4710); } 
{ /* ./Cfa/tvector.scm 375 */
int BgL_offsetz00_2893;
BgL_offsetz00_2893 = 
(int)(BgL_objzd2classzd2numz00_2889); 
{ /* ./Cfa/tvector.scm 375 */
long BgL_offsetz00_2894;
{ /* ./Cfa/tvector.scm 375 */
long BgL_auxz00_4714;
BgL_auxz00_4714 = 
(long)(BgL_offsetz00_2893); 
BgL_offsetz00_2894 = 
(BgL_auxz00_4714-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 375 */
long BgL_modz00_2895;
{ /* ./Cfa/tvector.scm 375 */
int BgL_arg2028z00_2896;
BgL_arg2028z00_2896 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 375 */
long BgL_n2z00_2904;
BgL_n2z00_2904 = 
(long)(BgL_arg2028z00_2896); 
BgL_modz00_2895 = 
(BgL_offsetz00_2894/BgL_n2z00_2904); } } 
{ /* ./Cfa/tvector.scm 375 */
long BgL_restz00_2897;
{ /* ./Cfa/tvector.scm 375 */
int BgL_arg2024z00_2898;
BgL_arg2024z00_2898 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 375 */
long BgL_n2z00_2907;
BgL_n2z00_2907 = 
(long)(BgL_arg2024z00_2898); 
BgL_restz00_2897 = 
(BgL_offsetz00_2894%BgL_n2z00_2907); } } 
{ /* ./Cfa/tvector.scm 375 */

{ /* ./Cfa/tvector.scm 375 */
obj_t BgL_bucketz00_2899;
{ /* ./Cfa/tvector.scm 375 */
int BgL_kz00_2909;
BgL_kz00_2909 = 
(int)(BgL_modz00_2895); 
BgL_bucketz00_2899 = 
VECTOR_REF(BgL_arg2017z00_2890,BgL_kz00_2909); } 
{ /* ./Cfa/tvector.scm 375 */
int BgL_kz00_2911;
BgL_kz00_2911 = 
(int)(BgL_restz00_2897); 
BgL_method4723z00_2887 = 
VECTOR_REF(BgL_bucketz00_2899,BgL_kz00_2911); } } } } } } } } } } 
BgL_arg6259z00_1973 = 
PROCEDURE_ENTRY(BgL_method4723z00_2887)(BgL_method4723z00_2887, 
(obj_t)(BgL_arg6262z00_1974), BEOA); } } 
{ /* ./Cfa/tvector.scm 375 */
BgL_failz00_bglt BgL_obj2436z00_2912;BgL_nodez00_bglt BgL_val2435z00_2913;
BgL_obj2436z00_2912 = BgL_nodez00_1965; 
BgL_val2435z00_2913 = 
(BgL_nodez00_bglt)(BgL_arg6259z00_1973); 
((((BgL_failz00_bglt)CREF(BgL_obj2436z00_2912))->BgL_objz00) = ((BgL_nodez00_bglt)BgL_val2435z00_2913), BUNSPEC); } } 
BgL_auxz00_4656 = BgL_nodez00_1965; 
return 
(obj_t)(BgL_auxz00_4656);} } } 
}



/* patch!-conditional4747 */
obj_t BGl_patchz12zd2conditional4747zc0zzcfa_tvectorz00(obj_t BgL_envz00_3510, obj_t BgL_nodez00_3511)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 361 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1953;
{ /* ./Cfa/tvector.scm 362 */
BgL_conditionalz00_bglt BgL_auxz00_4734;
BgL_nodez00_1953 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_3511); 
{ /* ./Cfa/tvector.scm 363 */
obj_t BgL_arg6218z00_1957;
{ /* ./Cfa/tvector.scm 363 */
BgL_nodez00_bglt BgL_arg6221z00_1958;
BgL_arg6221z00_1958 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1953))->BgL_testz00); 
{ /* ./Cfa/tvector.scm 363 */
obj_t BgL_method4723z00_2742;
{ /* ./Cfa/tvector.scm 363 */
BgL_objectz00_bglt BgL_objz00_2743;
BgL_objz00_2743 = 
(BgL_objectz00_bglt)(BgL_arg6221z00_1958); 
{ /* ./Cfa/tvector.scm 363 */
long BgL_objzd2classzd2numz00_2744;
BgL_objzd2classzd2numz00_2744 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2743); 
{ /* ./Cfa/tvector.scm 363 */
obj_t BgL_arg2017z00_2745;
{ /* ./Cfa/tvector.scm 363 */
int BgL_auxz00_4738;
BgL_auxz00_4738 = 
(int)(((long)1)); 
BgL_arg2017z00_2745 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4738); } 
{ /* ./Cfa/tvector.scm 363 */
int BgL_offsetz00_2748;
BgL_offsetz00_2748 = 
(int)(BgL_objzd2classzd2numz00_2744); 
{ /* ./Cfa/tvector.scm 363 */
long BgL_offsetz00_2749;
{ /* ./Cfa/tvector.scm 363 */
long BgL_auxz00_4742;
BgL_auxz00_4742 = 
(long)(BgL_offsetz00_2748); 
BgL_offsetz00_2749 = 
(BgL_auxz00_4742-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 363 */
long BgL_modz00_2750;
{ /* ./Cfa/tvector.scm 363 */
int BgL_arg2028z00_2751;
BgL_arg2028z00_2751 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 363 */
long BgL_n2z00_2759;
BgL_n2z00_2759 = 
(long)(BgL_arg2028z00_2751); 
BgL_modz00_2750 = 
(BgL_offsetz00_2749/BgL_n2z00_2759); } } 
{ /* ./Cfa/tvector.scm 363 */
long BgL_restz00_2752;
{ /* ./Cfa/tvector.scm 363 */
int BgL_arg2024z00_2753;
BgL_arg2024z00_2753 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 363 */
long BgL_n2z00_2762;
BgL_n2z00_2762 = 
(long)(BgL_arg2024z00_2753); 
BgL_restz00_2752 = 
(BgL_offsetz00_2749%BgL_n2z00_2762); } } 
{ /* ./Cfa/tvector.scm 363 */

{ /* ./Cfa/tvector.scm 363 */
obj_t BgL_bucketz00_2754;
{ /* ./Cfa/tvector.scm 363 */
int BgL_kz00_2764;
BgL_kz00_2764 = 
(int)(BgL_modz00_2750); 
BgL_bucketz00_2754 = 
VECTOR_REF(BgL_arg2017z00_2745,BgL_kz00_2764); } 
{ /* ./Cfa/tvector.scm 363 */
int BgL_kz00_2766;
BgL_kz00_2766 = 
(int)(BgL_restz00_2752); 
BgL_method4723z00_2742 = 
VECTOR_REF(BgL_bucketz00_2754,BgL_kz00_2766); } } } } } } } } } } 
BgL_arg6218z00_1957 = 
PROCEDURE_ENTRY(BgL_method4723z00_2742)(BgL_method4723z00_2742, 
(obj_t)(BgL_arg6221z00_1958), BEOA); } } 
{ /* ./Cfa/tvector.scm 363 */
BgL_conditionalz00_bglt BgL_obj2392z00_2767;BgL_nodez00_bglt BgL_val2391z00_2768;
BgL_obj2392z00_2767 = BgL_nodez00_1953; 
BgL_val2391z00_2768 = 
(BgL_nodez00_bglt)(BgL_arg6218z00_1957); 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2392z00_2767))->BgL_testz00) = ((BgL_nodez00_bglt)BgL_val2391z00_2768), BUNSPEC); } } 
{ /* ./Cfa/tvector.scm 364 */
obj_t BgL_arg6225z00_1959;
{ /* ./Cfa/tvector.scm 364 */
BgL_nodez00_bglt BgL_arg6228z00_1960;
BgL_arg6228z00_1960 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1953))->BgL_truez00); 
{ /* ./Cfa/tvector.scm 364 */
obj_t BgL_method4723z00_2771;
{ /* ./Cfa/tvector.scm 364 */
BgL_objectz00_bglt BgL_objz00_2772;
BgL_objz00_2772 = 
(BgL_objectz00_bglt)(BgL_arg6228z00_1960); 
{ /* ./Cfa/tvector.scm 364 */
long BgL_objzd2classzd2numz00_2773;
BgL_objzd2classzd2numz00_2773 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2772); 
{ /* ./Cfa/tvector.scm 364 */
obj_t BgL_arg2017z00_2774;
{ /* ./Cfa/tvector.scm 364 */
int BgL_auxz00_4763;
BgL_auxz00_4763 = 
(int)(((long)1)); 
BgL_arg2017z00_2774 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4763); } 
{ /* ./Cfa/tvector.scm 364 */
int BgL_offsetz00_2777;
BgL_offsetz00_2777 = 
(int)(BgL_objzd2classzd2numz00_2773); 
{ /* ./Cfa/tvector.scm 364 */
long BgL_offsetz00_2778;
{ /* ./Cfa/tvector.scm 364 */
long BgL_auxz00_4767;
BgL_auxz00_4767 = 
(long)(BgL_offsetz00_2777); 
BgL_offsetz00_2778 = 
(BgL_auxz00_4767-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 364 */
long BgL_modz00_2779;
{ /* ./Cfa/tvector.scm 364 */
int BgL_arg2028z00_2780;
BgL_arg2028z00_2780 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 364 */
long BgL_n2z00_2788;
BgL_n2z00_2788 = 
(long)(BgL_arg2028z00_2780); 
BgL_modz00_2779 = 
(BgL_offsetz00_2778/BgL_n2z00_2788); } } 
{ /* ./Cfa/tvector.scm 364 */
long BgL_restz00_2781;
{ /* ./Cfa/tvector.scm 364 */
int BgL_arg2024z00_2782;
BgL_arg2024z00_2782 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 364 */
long BgL_n2z00_2791;
BgL_n2z00_2791 = 
(long)(BgL_arg2024z00_2782); 
BgL_restz00_2781 = 
(BgL_offsetz00_2778%BgL_n2z00_2791); } } 
{ /* ./Cfa/tvector.scm 364 */

{ /* ./Cfa/tvector.scm 364 */
obj_t BgL_bucketz00_2783;
{ /* ./Cfa/tvector.scm 364 */
int BgL_kz00_2793;
BgL_kz00_2793 = 
(int)(BgL_modz00_2779); 
BgL_bucketz00_2783 = 
VECTOR_REF(BgL_arg2017z00_2774,BgL_kz00_2793); } 
{ /* ./Cfa/tvector.scm 364 */
int BgL_kz00_2795;
BgL_kz00_2795 = 
(int)(BgL_restz00_2781); 
BgL_method4723z00_2771 = 
VECTOR_REF(BgL_bucketz00_2783,BgL_kz00_2795); } } } } } } } } } } 
BgL_arg6225z00_1959 = 
PROCEDURE_ENTRY(BgL_method4723z00_2771)(BgL_method4723z00_2771, 
(obj_t)(BgL_arg6228z00_1960), BEOA); } } 
{ /* ./Cfa/tvector.scm 364 */
BgL_conditionalz00_bglt BgL_obj2395z00_2796;BgL_nodez00_bglt BgL_val2394z00_2797;
BgL_obj2395z00_2796 = BgL_nodez00_1953; 
BgL_val2394z00_2797 = 
(BgL_nodez00_bglt)(BgL_arg6225z00_1959); 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2395z00_2796))->BgL_truez00) = ((BgL_nodez00_bglt)BgL_val2394z00_2797), BUNSPEC); } } 
{ /* ./Cfa/tvector.scm 365 */
obj_t BgL_arg6232z00_1961;
{ /* ./Cfa/tvector.scm 365 */
BgL_nodez00_bglt BgL_arg6235z00_1962;
BgL_arg6235z00_1962 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1953))->BgL_falsez00); 
{ /* ./Cfa/tvector.scm 365 */
obj_t BgL_method4723z00_2800;
{ /* ./Cfa/tvector.scm 365 */
BgL_objectz00_bglt BgL_objz00_2801;
BgL_objz00_2801 = 
(BgL_objectz00_bglt)(BgL_arg6235z00_1962); 
{ /* ./Cfa/tvector.scm 365 */
long BgL_objzd2classzd2numz00_2802;
BgL_objzd2classzd2numz00_2802 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2801); 
{ /* ./Cfa/tvector.scm 365 */
obj_t BgL_arg2017z00_2803;
{ /* ./Cfa/tvector.scm 365 */
int BgL_auxz00_4788;
BgL_auxz00_4788 = 
(int)(((long)1)); 
BgL_arg2017z00_2803 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4788); } 
{ /* ./Cfa/tvector.scm 365 */
int BgL_offsetz00_2806;
BgL_offsetz00_2806 = 
(int)(BgL_objzd2classzd2numz00_2802); 
{ /* ./Cfa/tvector.scm 365 */
long BgL_offsetz00_2807;
{ /* ./Cfa/tvector.scm 365 */
long BgL_auxz00_4792;
BgL_auxz00_4792 = 
(long)(BgL_offsetz00_2806); 
BgL_offsetz00_2807 = 
(BgL_auxz00_4792-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 365 */
long BgL_modz00_2808;
{ /* ./Cfa/tvector.scm 365 */
int BgL_arg2028z00_2809;
BgL_arg2028z00_2809 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 365 */
long BgL_n2z00_2817;
BgL_n2z00_2817 = 
(long)(BgL_arg2028z00_2809); 
BgL_modz00_2808 = 
(BgL_offsetz00_2807/BgL_n2z00_2817); } } 
{ /* ./Cfa/tvector.scm 365 */
long BgL_restz00_2810;
{ /* ./Cfa/tvector.scm 365 */
int BgL_arg2024z00_2811;
BgL_arg2024z00_2811 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 365 */
long BgL_n2z00_2820;
BgL_n2z00_2820 = 
(long)(BgL_arg2024z00_2811); 
BgL_restz00_2810 = 
(BgL_offsetz00_2807%BgL_n2z00_2820); } } 
{ /* ./Cfa/tvector.scm 365 */

{ /* ./Cfa/tvector.scm 365 */
obj_t BgL_bucketz00_2812;
{ /* ./Cfa/tvector.scm 365 */
int BgL_kz00_2822;
BgL_kz00_2822 = 
(int)(BgL_modz00_2808); 
BgL_bucketz00_2812 = 
VECTOR_REF(BgL_arg2017z00_2803,BgL_kz00_2822); } 
{ /* ./Cfa/tvector.scm 365 */
int BgL_kz00_2824;
BgL_kz00_2824 = 
(int)(BgL_restz00_2810); 
BgL_method4723z00_2800 = 
VECTOR_REF(BgL_bucketz00_2812,BgL_kz00_2824); } } } } } } } } } } 
BgL_arg6232z00_1961 = 
PROCEDURE_ENTRY(BgL_method4723z00_2800)(BgL_method4723z00_2800, 
(obj_t)(BgL_arg6235z00_1962), BEOA); } } 
{ /* ./Cfa/tvector.scm 365 */
BgL_conditionalz00_bglt BgL_obj2398z00_2825;BgL_nodez00_bglt BgL_val2397z00_2826;
BgL_obj2398z00_2825 = BgL_nodez00_1953; 
BgL_val2397z00_2826 = 
(BgL_nodez00_bglt)(BgL_arg6232z00_1961); 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2398z00_2825))->BgL_falsez00) = ((BgL_nodez00_bglt)BgL_val2397z00_2826), BUNSPEC); } } 
BgL_auxz00_4734 = BgL_nodez00_1953; 
return 
(obj_t)(BgL_auxz00_4734);} } } 
}



/* patch!-setq4745 */
obj_t BGl_patchz12zd2setq4745zc0zzcfa_tvectorz00(obj_t BgL_envz00_3512, obj_t BgL_nodez00_3513)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 352 */
{ 
BgL_setqz00_bglt BgL_nodez00_1943;
{ /* ./Cfa/tvector.scm 353 */
BgL_setqz00_bglt BgL_auxz00_4812;
BgL_nodez00_1943 = 
(BgL_setqz00_bglt)(BgL_nodez00_3513); 
{ /* ./Cfa/tvector.scm 354 */
obj_t BgL_arg6198z00_1947;
{ /* ./Cfa/tvector.scm 354 */
BgL_nodez00_bglt BgL_arg6201z00_1948;
BgL_arg6201z00_1948 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1943))->BgL_valuez00); 
{ /* ./Cfa/tvector.scm 354 */
obj_t BgL_method4723z00_2684;
{ /* ./Cfa/tvector.scm 354 */
BgL_objectz00_bglt BgL_objz00_2685;
BgL_objz00_2685 = 
(BgL_objectz00_bglt)(BgL_arg6201z00_1948); 
{ /* ./Cfa/tvector.scm 354 */
long BgL_objzd2classzd2numz00_2686;
BgL_objzd2classzd2numz00_2686 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2685); 
{ /* ./Cfa/tvector.scm 354 */
obj_t BgL_arg2017z00_2687;
{ /* ./Cfa/tvector.scm 354 */
int BgL_auxz00_4816;
BgL_auxz00_4816 = 
(int)(((long)1)); 
BgL_arg2017z00_2687 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4816); } 
{ /* ./Cfa/tvector.scm 354 */
int BgL_offsetz00_2690;
BgL_offsetz00_2690 = 
(int)(BgL_objzd2classzd2numz00_2686); 
{ /* ./Cfa/tvector.scm 354 */
long BgL_offsetz00_2691;
{ /* ./Cfa/tvector.scm 354 */
long BgL_auxz00_4820;
BgL_auxz00_4820 = 
(long)(BgL_offsetz00_2690); 
BgL_offsetz00_2691 = 
(BgL_auxz00_4820-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 354 */
long BgL_modz00_2692;
{ /* ./Cfa/tvector.scm 354 */
int BgL_arg2028z00_2693;
BgL_arg2028z00_2693 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 354 */
long BgL_n2z00_2701;
BgL_n2z00_2701 = 
(long)(BgL_arg2028z00_2693); 
BgL_modz00_2692 = 
(BgL_offsetz00_2691/BgL_n2z00_2701); } } 
{ /* ./Cfa/tvector.scm 354 */
long BgL_restz00_2694;
{ /* ./Cfa/tvector.scm 354 */
int BgL_arg2024z00_2695;
BgL_arg2024z00_2695 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 354 */
long BgL_n2z00_2704;
BgL_n2z00_2704 = 
(long)(BgL_arg2024z00_2695); 
BgL_restz00_2694 = 
(BgL_offsetz00_2691%BgL_n2z00_2704); } } 
{ /* ./Cfa/tvector.scm 354 */

{ /* ./Cfa/tvector.scm 354 */
obj_t BgL_bucketz00_2696;
{ /* ./Cfa/tvector.scm 354 */
int BgL_kz00_2706;
BgL_kz00_2706 = 
(int)(BgL_modz00_2692); 
BgL_bucketz00_2696 = 
VECTOR_REF(BgL_arg2017z00_2687,BgL_kz00_2706); } 
{ /* ./Cfa/tvector.scm 354 */
int BgL_kz00_2708;
BgL_kz00_2708 = 
(int)(BgL_restz00_2694); 
BgL_method4723z00_2684 = 
VECTOR_REF(BgL_bucketz00_2696,BgL_kz00_2708); } } } } } } } } } } 
BgL_arg6198z00_1947 = 
PROCEDURE_ENTRY(BgL_method4723z00_2684)(BgL_method4723z00_2684, 
(obj_t)(BgL_arg6201z00_1948), BEOA); } } 
{ /* ./Cfa/tvector.scm 354 */
BgL_setqz00_bglt BgL_obj2363z00_2709;BgL_nodez00_bglt BgL_val2362z00_2710;
BgL_obj2363z00_2709 = BgL_nodez00_1943; 
BgL_val2362z00_2710 = 
(BgL_nodez00_bglt)(BgL_arg6198z00_1947); 
((((BgL_setqz00_bglt)CREF(BgL_obj2363z00_2709))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2362z00_2710), BUNSPEC); } } 
{ /* ./Cfa/tvector.scm 355 */
obj_t BgL_arg6205z00_1949;
{ /* ./Cfa/tvector.scm 355 */
BgL_varz00_bglt BgL_arg6208z00_1950;
BgL_arg6208z00_1950 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1943))->BgL_varz00); 
{ /* ./Cfa/tvector.scm 355 */
BgL_nodez00_bglt BgL_nodez00_2712;
BgL_nodez00_2712 = 
(BgL_nodez00_bglt)(BgL_arg6208z00_1950); 
{ /* ./Cfa/tvector.scm 355 */
obj_t BgL_method4723z00_2713;
{ /* ./Cfa/tvector.scm 355 */
BgL_objectz00_bglt BgL_objz00_2714;
BgL_objz00_2714 = 
(BgL_objectz00_bglt)(BgL_nodez00_2712); 
{ /* ./Cfa/tvector.scm 355 */
long BgL_objzd2classzd2numz00_2715;
BgL_objzd2classzd2numz00_2715 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2714); 
{ /* ./Cfa/tvector.scm 355 */
obj_t BgL_arg2017z00_2716;
{ /* ./Cfa/tvector.scm 355 */
int BgL_auxz00_4842;
BgL_auxz00_4842 = 
(int)(((long)1)); 
BgL_arg2017z00_2716 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4842); } 
{ /* ./Cfa/tvector.scm 355 */
int BgL_offsetz00_2719;
BgL_offsetz00_2719 = 
(int)(BgL_objzd2classzd2numz00_2715); 
{ /* ./Cfa/tvector.scm 355 */
long BgL_offsetz00_2720;
{ /* ./Cfa/tvector.scm 355 */
long BgL_auxz00_4846;
BgL_auxz00_4846 = 
(long)(BgL_offsetz00_2719); 
BgL_offsetz00_2720 = 
(BgL_auxz00_4846-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 355 */
long BgL_modz00_2721;
{ /* ./Cfa/tvector.scm 355 */
int BgL_arg2028z00_2722;
BgL_arg2028z00_2722 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 355 */
long BgL_n2z00_2730;
BgL_n2z00_2730 = 
(long)(BgL_arg2028z00_2722); 
BgL_modz00_2721 = 
(BgL_offsetz00_2720/BgL_n2z00_2730); } } 
{ /* ./Cfa/tvector.scm 355 */
long BgL_restz00_2723;
{ /* ./Cfa/tvector.scm 355 */
int BgL_arg2024z00_2724;
BgL_arg2024z00_2724 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 355 */
long BgL_n2z00_2733;
BgL_n2z00_2733 = 
(long)(BgL_arg2024z00_2724); 
BgL_restz00_2723 = 
(BgL_offsetz00_2720%BgL_n2z00_2733); } } 
{ /* ./Cfa/tvector.scm 355 */

{ /* ./Cfa/tvector.scm 355 */
obj_t BgL_bucketz00_2725;
{ /* ./Cfa/tvector.scm 355 */
int BgL_kz00_2735;
BgL_kz00_2735 = 
(int)(BgL_modz00_2721); 
BgL_bucketz00_2725 = 
VECTOR_REF(BgL_arg2017z00_2716,BgL_kz00_2735); } 
{ /* ./Cfa/tvector.scm 355 */
int BgL_kz00_2737;
BgL_kz00_2737 = 
(int)(BgL_restz00_2723); 
BgL_method4723z00_2713 = 
VECTOR_REF(BgL_bucketz00_2725,BgL_kz00_2737); } } } } } } } } } } 
BgL_arg6205z00_1949 = 
PROCEDURE_ENTRY(BgL_method4723z00_2713)(BgL_method4723z00_2713, 
(obj_t)(BgL_nodez00_2712), BEOA); } } } 
{ /* ./Cfa/tvector.scm 355 */
BgL_setqz00_bglt BgL_obj2360z00_2738;BgL_varz00_bglt BgL_val2359z00_2739;
BgL_obj2360z00_2738 = BgL_nodez00_1943; 
BgL_val2359z00_2739 = 
(BgL_varz00_bglt)(BgL_arg6205z00_1949); 
((((BgL_setqz00_bglt)CREF(BgL_obj2360z00_2738))->BgL_varz00) = ((BgL_varz00_bglt)BgL_val2359z00_2739), BUNSPEC); } } 
BgL_auxz00_4812 = BgL_nodez00_1943; 
return 
(obj_t)(BgL_auxz00_4812);} } } 
}



/* patch!-cast4743 */
obj_t BGl_patchz12zd2cast4743zc0zzcfa_tvectorz00(obj_t BgL_envz00_3514, obj_t BgL_nodez00_3515)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 344 */
{ 
BgL_castz00_bglt BgL_nodez00_1936;
{ /* ./Cfa/tvector.scm 345 */
BgL_castz00_bglt BgL_auxz00_4866;
BgL_nodez00_1936 = 
(BgL_castz00_bglt)(BgL_nodez00_3515); 
{ /* ./Cfa/tvector.scm 345 */
BgL_nodez00_bglt BgL_arg6188z00_2654;
BgL_arg6188z00_2654 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1936))->BgL_argz00); 
{ /* ./Cfa/tvector.scm 345 */
obj_t BgL_method4723z00_2657;
{ /* ./Cfa/tvector.scm 345 */
BgL_objectz00_bglt BgL_objz00_2658;
BgL_objz00_2658 = 
(BgL_objectz00_bglt)(BgL_arg6188z00_2654); 
{ /* ./Cfa/tvector.scm 345 */
long BgL_objzd2classzd2numz00_2659;
BgL_objzd2classzd2numz00_2659 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2658); 
{ /* ./Cfa/tvector.scm 345 */
obj_t BgL_arg2017z00_2660;
{ /* ./Cfa/tvector.scm 345 */
int BgL_auxz00_4870;
BgL_auxz00_4870 = 
(int)(((long)1)); 
BgL_arg2017z00_2660 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4870); } 
{ /* ./Cfa/tvector.scm 345 */
int BgL_offsetz00_2663;
BgL_offsetz00_2663 = 
(int)(BgL_objzd2classzd2numz00_2659); 
{ /* ./Cfa/tvector.scm 345 */
long BgL_offsetz00_2664;
{ /* ./Cfa/tvector.scm 345 */
long BgL_auxz00_4874;
BgL_auxz00_4874 = 
(long)(BgL_offsetz00_2663); 
BgL_offsetz00_2664 = 
(BgL_auxz00_4874-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 345 */
long BgL_modz00_2665;
{ /* ./Cfa/tvector.scm 345 */
int BgL_arg2028z00_2666;
BgL_arg2028z00_2666 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 345 */
long BgL_n2z00_2674;
BgL_n2z00_2674 = 
(long)(BgL_arg2028z00_2666); 
BgL_modz00_2665 = 
(BgL_offsetz00_2664/BgL_n2z00_2674); } } 
{ /* ./Cfa/tvector.scm 345 */
long BgL_restz00_2667;
{ /* ./Cfa/tvector.scm 345 */
int BgL_arg2024z00_2668;
BgL_arg2024z00_2668 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 345 */
long BgL_n2z00_2677;
BgL_n2z00_2677 = 
(long)(BgL_arg2024z00_2668); 
BgL_restz00_2667 = 
(BgL_offsetz00_2664%BgL_n2z00_2677); } } 
{ /* ./Cfa/tvector.scm 345 */

{ /* ./Cfa/tvector.scm 345 */
obj_t BgL_bucketz00_2669;
{ /* ./Cfa/tvector.scm 345 */
int BgL_kz00_2679;
BgL_kz00_2679 = 
(int)(BgL_modz00_2665); 
BgL_bucketz00_2669 = 
VECTOR_REF(BgL_arg2017z00_2660,BgL_kz00_2679); } 
{ /* ./Cfa/tvector.scm 345 */
int BgL_kz00_2681;
BgL_kz00_2681 = 
(int)(BgL_restz00_2667); 
BgL_method4723z00_2657 = 
VECTOR_REF(BgL_bucketz00_2669,BgL_kz00_2681); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4723z00_2657)(BgL_method4723z00_2657, 
(obj_t)(BgL_arg6188z00_2654), BEOA); } } 
BgL_auxz00_4866 = BgL_nodez00_1936; 
return 
(obj_t)(BgL_auxz00_4866);} } } 
}



/* patch!-extern4741 */
obj_t BGl_patchz12zd2extern4741zc0zzcfa_tvectorz00(obj_t BgL_envz00_3516, obj_t BgL_nodez00_3517)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 336 */
{ 
BgL_externz00_bglt BgL_nodez00_1929;
{ /* ./Cfa/tvector.scm 337 */
BgL_externz00_bglt BgL_auxz00_4892;
BgL_nodez00_1929 = 
(BgL_externz00_bglt)(BgL_nodez00_3517); 
{ /* ./Cfa/tvector.scm 337 */
obj_t BgL_arg6178z00_2651;
BgL_arg6178z00_2651 = 
(((BgL_externz00_bglt)CREF(BgL_nodez00_1929))->BgL_exprza2za2); 
BGl_patchza2z12zb0zzcfa_tvectorz00(BgL_arg6178z00_2651); } 
BgL_auxz00_4892 = BgL_nodez00_1929; 
return 
(obj_t)(BgL_auxz00_4892);} } } 
}



/* patch!-funcall4739 */
obj_t BGl_patchz12zd2funcall4739zc0zzcfa_tvectorz00(obj_t BgL_envz00_3518, obj_t BgL_nodez00_3519)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 327 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1920;
{ /* ./Cfa/tvector.scm 328 */
BgL_funcallz00_bglt BgL_auxz00_4897;
BgL_nodez00_1920 = 
(BgL_funcallz00_bglt)(BgL_nodez00_3519); 
{ /* ./Cfa/tvector.scm 329 */
obj_t BgL_arg6161z00_1924;
{ /* ./Cfa/tvector.scm 329 */
BgL_nodez00_bglt BgL_arg6164z00_1925;
BgL_arg6164z00_1925 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1920))->BgL_funz00); 
{ /* ./Cfa/tvector.scm 329 */
obj_t BgL_method4723z00_2622;
{ /* ./Cfa/tvector.scm 329 */
BgL_objectz00_bglt BgL_objz00_2623;
BgL_objz00_2623 = 
(BgL_objectz00_bglt)(BgL_arg6164z00_1925); 
{ /* ./Cfa/tvector.scm 329 */
long BgL_objzd2classzd2numz00_2624;
BgL_objzd2classzd2numz00_2624 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2623); 
{ /* ./Cfa/tvector.scm 329 */
obj_t BgL_arg2017z00_2625;
{ /* ./Cfa/tvector.scm 329 */
int BgL_auxz00_4901;
BgL_auxz00_4901 = 
(int)(((long)1)); 
BgL_arg2017z00_2625 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4901); } 
{ /* ./Cfa/tvector.scm 329 */
int BgL_offsetz00_2628;
BgL_offsetz00_2628 = 
(int)(BgL_objzd2classzd2numz00_2624); 
{ /* ./Cfa/tvector.scm 329 */
long BgL_offsetz00_2629;
{ /* ./Cfa/tvector.scm 329 */
long BgL_auxz00_4905;
BgL_auxz00_4905 = 
(long)(BgL_offsetz00_2628); 
BgL_offsetz00_2629 = 
(BgL_auxz00_4905-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 329 */
long BgL_modz00_2630;
{ /* ./Cfa/tvector.scm 329 */
int BgL_arg2028z00_2631;
BgL_arg2028z00_2631 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 329 */
long BgL_n2z00_2639;
BgL_n2z00_2639 = 
(long)(BgL_arg2028z00_2631); 
BgL_modz00_2630 = 
(BgL_offsetz00_2629/BgL_n2z00_2639); } } 
{ /* ./Cfa/tvector.scm 329 */
long BgL_restz00_2632;
{ /* ./Cfa/tvector.scm 329 */
int BgL_arg2024z00_2633;
BgL_arg2024z00_2633 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 329 */
long BgL_n2z00_2642;
BgL_n2z00_2642 = 
(long)(BgL_arg2024z00_2633); 
BgL_restz00_2632 = 
(BgL_offsetz00_2629%BgL_n2z00_2642); } } 
{ /* ./Cfa/tvector.scm 329 */

{ /* ./Cfa/tvector.scm 329 */
obj_t BgL_bucketz00_2634;
{ /* ./Cfa/tvector.scm 329 */
int BgL_kz00_2644;
BgL_kz00_2644 = 
(int)(BgL_modz00_2630); 
BgL_bucketz00_2634 = 
VECTOR_REF(BgL_arg2017z00_2625,BgL_kz00_2644); } 
{ /* ./Cfa/tvector.scm 329 */
int BgL_kz00_2646;
BgL_kz00_2646 = 
(int)(BgL_restz00_2632); 
BgL_method4723z00_2622 = 
VECTOR_REF(BgL_bucketz00_2634,BgL_kz00_2646); } } } } } } } } } } 
BgL_arg6161z00_1924 = 
PROCEDURE_ENTRY(BgL_method4723z00_2622)(BgL_method4723z00_2622, 
(obj_t)(BgL_arg6164z00_1925), BEOA); } } 
{ /* ./Cfa/tvector.scm 329 */
BgL_funcallz00_bglt BgL_obj1840z00_2647;BgL_nodez00_bglt BgL_val1839z00_2648;
BgL_obj1840z00_2647 = BgL_nodez00_1920; 
BgL_val1839z00_2648 = 
(BgL_nodez00_bglt)(BgL_arg6161z00_1924); 
((((BgL_funcallz00_bglt)CREF(BgL_obj1840z00_2647))->BgL_funz00) = ((BgL_nodez00_bglt)BgL_val1839z00_2648), BUNSPEC); } } 
{ /* ./Cfa/tvector.scm 330 */
obj_t BgL_arg6168z00_1926;
BgL_arg6168z00_1926 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1920))->BgL_argsz00); 
BGl_patchza2z12zb0zzcfa_tvectorz00(BgL_arg6168z00_1926); } 
BgL_auxz00_4897 = BgL_nodez00_1920; 
return 
(obj_t)(BgL_auxz00_4897);} } } 
}



/* patch!-app-ly4737 */
obj_t BGl_patchz12zd2appzd2ly4737z12zzcfa_tvectorz00(obj_t BgL_envz00_3520, obj_t BgL_nodez00_3521)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 318 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1910;
{ /* ./Cfa/tvector.scm 319 */
BgL_appzd2lyzd2_bglt BgL_auxz00_4927;
BgL_nodez00_1910 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_3521); 
{ /* ./Cfa/tvector.scm 320 */
obj_t BgL_arg6141z00_1914;
{ /* ./Cfa/tvector.scm 320 */
BgL_nodez00_bglt BgL_arg6144z00_1915;
BgL_arg6144z00_1915 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1910))->BgL_funz00); 
{ /* ./Cfa/tvector.scm 320 */
obj_t BgL_method4723z00_2564;
{ /* ./Cfa/tvector.scm 320 */
BgL_objectz00_bglt BgL_objz00_2565;
BgL_objz00_2565 = 
(BgL_objectz00_bglt)(BgL_arg6144z00_1915); 
{ /* ./Cfa/tvector.scm 320 */
long BgL_objzd2classzd2numz00_2566;
BgL_objzd2classzd2numz00_2566 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2565); 
{ /* ./Cfa/tvector.scm 320 */
obj_t BgL_arg2017z00_2567;
{ /* ./Cfa/tvector.scm 320 */
int BgL_auxz00_4931;
BgL_auxz00_4931 = 
(int)(((long)1)); 
BgL_arg2017z00_2567 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4931); } 
{ /* ./Cfa/tvector.scm 320 */
int BgL_offsetz00_2570;
BgL_offsetz00_2570 = 
(int)(BgL_objzd2classzd2numz00_2566); 
{ /* ./Cfa/tvector.scm 320 */
long BgL_offsetz00_2571;
{ /* ./Cfa/tvector.scm 320 */
long BgL_auxz00_4935;
BgL_auxz00_4935 = 
(long)(BgL_offsetz00_2570); 
BgL_offsetz00_2571 = 
(BgL_auxz00_4935-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 320 */
long BgL_modz00_2572;
{ /* ./Cfa/tvector.scm 320 */
int BgL_arg2028z00_2573;
BgL_arg2028z00_2573 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 320 */
long BgL_n2z00_2581;
BgL_n2z00_2581 = 
(long)(BgL_arg2028z00_2573); 
BgL_modz00_2572 = 
(BgL_offsetz00_2571/BgL_n2z00_2581); } } 
{ /* ./Cfa/tvector.scm 320 */
long BgL_restz00_2574;
{ /* ./Cfa/tvector.scm 320 */
int BgL_arg2024z00_2575;
BgL_arg2024z00_2575 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 320 */
long BgL_n2z00_2584;
BgL_n2z00_2584 = 
(long)(BgL_arg2024z00_2575); 
BgL_restz00_2574 = 
(BgL_offsetz00_2571%BgL_n2z00_2584); } } 
{ /* ./Cfa/tvector.scm 320 */

{ /* ./Cfa/tvector.scm 320 */
obj_t BgL_bucketz00_2576;
{ /* ./Cfa/tvector.scm 320 */
int BgL_kz00_2586;
BgL_kz00_2586 = 
(int)(BgL_modz00_2572); 
BgL_bucketz00_2576 = 
VECTOR_REF(BgL_arg2017z00_2567,BgL_kz00_2586); } 
{ /* ./Cfa/tvector.scm 320 */
int BgL_kz00_2588;
BgL_kz00_2588 = 
(int)(BgL_restz00_2574); 
BgL_method4723z00_2564 = 
VECTOR_REF(BgL_bucketz00_2576,BgL_kz00_2588); } } } } } } } } } } 
BgL_arg6141z00_1914 = 
PROCEDURE_ENTRY(BgL_method4723z00_2564)(BgL_method4723z00_2564, 
(obj_t)(BgL_arg6144z00_1915), BEOA); } } 
{ /* ./Cfa/tvector.scm 320 */
BgL_appzd2lyzd2_bglt BgL_obj1814z00_2589;BgL_nodez00_bglt BgL_val1813z00_2590;
BgL_obj1814z00_2589 = BgL_nodez00_1910; 
BgL_val1813z00_2590 = 
(BgL_nodez00_bglt)(BgL_arg6141z00_1914); 
((((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1814z00_2589))->BgL_funz00) = ((BgL_nodez00_bglt)BgL_val1813z00_2590), BUNSPEC); } } 
{ /* ./Cfa/tvector.scm 321 */
obj_t BgL_arg6148z00_1916;
{ /* ./Cfa/tvector.scm 321 */
BgL_nodez00_bglt BgL_arg6151z00_1917;
BgL_arg6151z00_1917 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1910))->BgL_argz00); 
{ /* ./Cfa/tvector.scm 321 */
obj_t BgL_method4723z00_2593;
{ /* ./Cfa/tvector.scm 321 */
BgL_objectz00_bglt BgL_objz00_2594;
BgL_objz00_2594 = 
(BgL_objectz00_bglt)(BgL_arg6151z00_1917); 
{ /* ./Cfa/tvector.scm 321 */
long BgL_objzd2classzd2numz00_2595;
BgL_objzd2classzd2numz00_2595 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2594); 
{ /* ./Cfa/tvector.scm 321 */
obj_t BgL_arg2017z00_2596;
{ /* ./Cfa/tvector.scm 321 */
int BgL_auxz00_4956;
BgL_auxz00_4956 = 
(int)(((long)1)); 
BgL_arg2017z00_2596 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_4956); } 
{ /* ./Cfa/tvector.scm 321 */
int BgL_offsetz00_2599;
BgL_offsetz00_2599 = 
(int)(BgL_objzd2classzd2numz00_2595); 
{ /* ./Cfa/tvector.scm 321 */
long BgL_offsetz00_2600;
{ /* ./Cfa/tvector.scm 321 */
long BgL_auxz00_4960;
BgL_auxz00_4960 = 
(long)(BgL_offsetz00_2599); 
BgL_offsetz00_2600 = 
(BgL_auxz00_4960-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 321 */
long BgL_modz00_2601;
{ /* ./Cfa/tvector.scm 321 */
int BgL_arg2028z00_2602;
BgL_arg2028z00_2602 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 321 */
long BgL_n2z00_2610;
BgL_n2z00_2610 = 
(long)(BgL_arg2028z00_2602); 
BgL_modz00_2601 = 
(BgL_offsetz00_2600/BgL_n2z00_2610); } } 
{ /* ./Cfa/tvector.scm 321 */
long BgL_restz00_2603;
{ /* ./Cfa/tvector.scm 321 */
int BgL_arg2024z00_2604;
BgL_arg2024z00_2604 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 321 */
long BgL_n2z00_2613;
BgL_n2z00_2613 = 
(long)(BgL_arg2024z00_2604); 
BgL_restz00_2603 = 
(BgL_offsetz00_2600%BgL_n2z00_2613); } } 
{ /* ./Cfa/tvector.scm 321 */

{ /* ./Cfa/tvector.scm 321 */
obj_t BgL_bucketz00_2605;
{ /* ./Cfa/tvector.scm 321 */
int BgL_kz00_2615;
BgL_kz00_2615 = 
(int)(BgL_modz00_2601); 
BgL_bucketz00_2605 = 
VECTOR_REF(BgL_arg2017z00_2596,BgL_kz00_2615); } 
{ /* ./Cfa/tvector.scm 321 */
int BgL_kz00_2617;
BgL_kz00_2617 = 
(int)(BgL_restz00_2603); 
BgL_method4723z00_2593 = 
VECTOR_REF(BgL_bucketz00_2605,BgL_kz00_2617); } } } } } } } } } } 
BgL_arg6148z00_1916 = 
PROCEDURE_ENTRY(BgL_method4723z00_2593)(BgL_method4723z00_2593, 
(obj_t)(BgL_arg6151z00_1917), BEOA); } } 
{ /* ./Cfa/tvector.scm 321 */
BgL_appzd2lyzd2_bglt BgL_obj1817z00_2618;BgL_nodez00_bglt BgL_val1816z00_2619;
BgL_obj1817z00_2618 = BgL_nodez00_1910; 
BgL_val1816z00_2619 = 
(BgL_nodez00_bglt)(BgL_arg6148z00_1916); 
((((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1817z00_2618))->BgL_argz00) = ((BgL_nodez00_bglt)BgL_val1816z00_2619), BUNSPEC); } } 
BgL_auxz00_4927 = BgL_nodez00_1910; 
return 
(obj_t)(BgL_auxz00_4927);} } } 
}



/* patch!-sequence4735 */
obj_t BGl_patchz12zd2sequence4735zc0zzcfa_tvectorz00(obj_t BgL_envz00_3522, obj_t BgL_nodez00_3523)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 310 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1903;
{ /* ./Cfa/tvector.scm 311 */
BgL_sequencez00_bglt BgL_auxz00_4980;
BgL_nodez00_1903 = 
(BgL_sequencez00_bglt)(BgL_nodez00_3523); 
{ /* ./Cfa/tvector.scm 311 */
obj_t BgL_arg6131z00_2560;
BgL_arg6131z00_2560 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1903))->BgL_nodesz00); 
BGl_patchza2z12zb0zzcfa_tvectorz00(BgL_arg6131z00_2560); } 
BgL_auxz00_4980 = BgL_nodez00_1903; 
return 
(obj_t)(BgL_auxz00_4980);} } } 
}



/* patch!-closure4733 */
obj_t BGl_patchz12zd2closure4733zc0zzcfa_tvectorz00(obj_t BgL_envz00_3524, obj_t BgL_nodez00_3525)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 304 */
{ 
BgL_closurez00_bglt BgL_nodez00_1895;
BgL_nodez00_1895 = 
(BgL_closurez00_bglt)(BgL_nodez00_3525); 
{ /* ./Cfa/tvector.scm 305 */
obj_t BgL_arg6121z00_1900;
BgL_arg6121z00_1900 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_nodez00_1895)); 
return 
BGl_internalzd2errorzd2zztools_errorz00(BGl_string7545z00zzcfa_tvectorz00, BGl_string7546z00zzcfa_tvectorz00, BgL_arg6121z00_1900);} } } 
}



/* patch!-var4731 */
obj_t BGl_patchz12zd2var4731zc0zzcfa_tvectorz00(obj_t BgL_envz00_3526, obj_t BgL_nodez00_3527)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 298 */
{ /* ./Cfa/tvector.scm 299 */
BgL_varz00_bglt BgL_auxz00_4989;
BgL_auxz00_4989 = 
(BgL_varz00_bglt)(BgL_nodez00_3527); 
return 
(obj_t)(BgL_auxz00_4989);} } 
}



/* patch!-kwote/node4729 */
obj_t BGl_patchz12zd2kwotezf2node4729z32zzcfa_tvectorz00(obj_t BgL_envz00_3528, obj_t BgL_knodez00_3529)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 286 */
{ 
BgL_kwotezf2nodezf2_bglt BgL_knodez00_1865;
BgL_knodez00_1865 = 
(BgL_kwotezf2nodezf2_bglt)(BgL_knodez00_3529); 
{ /* ./Cfa/tvector.scm 288 */
BgL_approxz00_bglt BgL_approxz00_1869;
{ /* ./Cfa/tvector.scm 288 */
BgL_nodez00_bglt BgL_arg6103z00_1887;
{ 
obj_t BgL_auxz00_4992;
{ /* ./Cfa/tvector.scm 288 */
BgL_objectz00_bglt BgL_auxz00_4993;
BgL_auxz00_4993 = 
(BgL_objectz00_bglt)(BgL_knodez00_1865); 
BgL_auxz00_4992 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4993); } 
BgL_arg6103z00_1887 = 
(((BgL_kwotezf2nodezf2_bglt)CREF(BgL_auxz00_4992))->BgL_nodez00); } 
BgL_approxz00_1869 = 
BGl_cfaz12z12zzcfa_cfaz00(BgL_arg6103z00_1887); } 
{ /* ./Cfa/tvector.scm 288 */
obj_t BgL_tvz00_1870;
BgL_tvz00_1870 = 
BGl_getzd2approxzd2typez00zzcfa_typez00(BgL_approxz00_1869); 
{ /* ./Cfa/tvector.scm 289 */

{ /* ./Cfa/tvector.scm 290 */
bool_t BgL_test6066z00_1871;
BgL_test6066z00_1871 = 
BGl_iszd2azf3z21zz__objectz00(BgL_tvz00_1870, BGl_tvecz00zztvector_tvectorz00); 
if(BgL_test6066z00_1871)
{ /* ./Cfa/tvector.scm 291 */
BgL_kwotezf2nodezf2_bglt BgL_knodez00_1872;
{ /* ./Cfa/tvector.scm 291 */
long BgL_arg6079z00_1880;
{ /* ./Cfa/tvector.scm 291 */
obj_t BgL_arg6082z00_1881;
{ /* ./Cfa/tvector.scm 291 */
obj_t BgL_arg6085z00_1882;
{ /* ./Cfa/tvector.scm 291 */
BgL_objectz00_bglt BgL_objectz00_2523;
BgL_objectz00_2523 = 
(BgL_objectz00_bglt)(BgL_knodez00_1865); 
{ /* ./Cfa/tvector.scm 291 */
long BgL_arg2036z00_2524;
{ /* ./Cfa/tvector.scm 291 */
long BgL_arg2039z00_2525;
BgL_arg2039z00_2525 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_2523); 
BgL_arg2036z00_2524 = 
(BgL_arg2039z00_2525-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 291 */
obj_t BgL_vectorz00_2529;int BgL_kz00_2530;
BgL_vectorz00_2529 = BGl_za2classesza2z00zz__objectz00; 
BgL_kz00_2530 = 
(int)(BgL_arg2036z00_2524); 
BgL_arg6085z00_1882 = 
VECTOR_REF(BgL_vectorz00_2529,BgL_kz00_2530); } } } 
BgL_arg6082z00_1881 = 
BGl_classzd2superzd2zz__objectz00(BgL_arg6085z00_1882); } 
BgL_arg6079z00_1880 = 
BGl_classzd2numzd2zz__objectz00(BgL_arg6082z00_1881); } 
{ /* ./Cfa/tvector.scm 291 */
BgL_objectz00_bglt BgL_objz00_2531;
BgL_objz00_2531 = 
(BgL_objectz00_bglt)(BgL_knodez00_1865); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2531, BgL_arg6079z00_1880); } } 
{ /* ./Cfa/tvector.scm 291 */
BgL_objectz00_bglt BgL_auxz00_5010;
BgL_auxz00_5010 = 
(BgL_objectz00_bglt)(BgL_knodez00_1865); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5010, BFALSE); } 
BgL_knodez00_1872 = BgL_knodez00_1865; 
{ /* ./Cfa/tvector.scm 292 */
BgL_kwotez00_bglt BgL_duplicated4658z00_1873;
BgL_duplicated4658z00_1873 = 
(BgL_kwotez00_bglt)(BgL_knodez00_1872); 
{ /* ./Cfa/tvector.scm 292 */
BgL_kwotez00_bglt BgL_new4659z00_1874;
{ /* ./Cfa/tvector.scm 292 */
obj_t BgL_arg6068z00_1875;BgL_typez00_bglt BgL_arg6069z00_1876;obj_t BgL_arg6070z00_1877;
{ /* ./Cfa/tvector.scm 292 */
BgL_nodez00_bglt BgL_obj1622z00_2533;
BgL_obj1622z00_2533 = 
(BgL_nodez00_bglt)(BgL_duplicated4658z00_1873); 
BgL_arg6068z00_1875 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1622z00_2533))->BgL_locz00); } 
{ /* ./Cfa/tvector.scm 292 */
BgL_nodez00_bglt BgL_obj1623z00_2534;
BgL_obj1623z00_2534 = 
(BgL_nodez00_bglt)(BgL_duplicated4658z00_1873); 
BgL_arg6069z00_1876 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1623z00_2534))->BgL_typez00); } 
{ /* ./Cfa/tvector.scm 292 */
obj_t BgL_arg6075z00_1878;
{ /* ./Cfa/tvector.scm 292 */
BgL_kwotez00_bglt BgL_obj1726z00_2535;
BgL_obj1726z00_2535 = 
(BgL_kwotez00_bglt)(BgL_knodez00_1865); 
BgL_arg6075z00_1878 = 
(((BgL_kwotez00_bglt)CREF(BgL_obj1726z00_2535))->BgL_valuez00); } 
{ /* ./Cfa/tvector.scm 292 */
obj_t BgL_newz00_2538;
{ /* ./Cfa/tvector.scm 292 */
int BgL_auxz00_5022;obj_t BgL_auxz00_5020;
BgL_auxz00_5022 = 
(int)(((long)2)); 
BgL_auxz00_5020 = 
CNST_TABLE_REF(((long)18)); 
BgL_newz00_2538 = 
create_struct(BgL_auxz00_5020, BgL_auxz00_5022); } 
{ /* ./Cfa/tvector.scm 292 */
int BgL_kz00_2542;
BgL_kz00_2542 = 
(int)(((long)1)); 
STRUCT_SET(BgL_newz00_2538, BgL_kz00_2542, BgL_arg6075z00_1878); } 
{ /* ./Cfa/tvector.scm 292 */
int BgL_kz00_2547;
BgL_kz00_2547 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_2538, BgL_kz00_2547, BgL_tvz00_1870); } 
BgL_arg6070z00_1877 = BgL_newz00_2538; } } 
BgL_new4659z00_1874 = 
BGl_makezd2kwotezd2zzast_nodez00(BgL_arg6068z00_1875, BgL_arg6069z00_1876, BgL_arg6070z00_1877); } 
{ /* ./Cfa/tvector.scm 292 */

return 
(obj_t)(BgL_new4659z00_1874);} } } }  else 
{ /* ./Cfa/tvector.scm 290 */
{ /* ./Cfa/tvector.scm 293 */
long BgL_arg6090z00_1884;
{ /* ./Cfa/tvector.scm 293 */
obj_t BgL_arg6093z00_1885;
{ /* ./Cfa/tvector.scm 293 */
obj_t BgL_arg6096z00_1886;
{ /* ./Cfa/tvector.scm 293 */
BgL_objectz00_bglt BgL_objectz00_2549;
BgL_objectz00_2549 = 
(BgL_objectz00_bglt)(BgL_knodez00_1865); 
{ /* ./Cfa/tvector.scm 293 */
long BgL_arg2036z00_2550;
{ /* ./Cfa/tvector.scm 293 */
long BgL_arg2039z00_2551;
BgL_arg2039z00_2551 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_2549); 
BgL_arg2036z00_2550 = 
(BgL_arg2039z00_2551-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 293 */
obj_t BgL_vectorz00_2555;int BgL_kz00_2556;
BgL_vectorz00_2555 = BGl_za2classesza2z00zz__objectz00; 
BgL_kz00_2556 = 
(int)(BgL_arg2036z00_2550); 
BgL_arg6096z00_1886 = 
VECTOR_REF(BgL_vectorz00_2555,BgL_kz00_2556); } } } 
BgL_arg6093z00_1885 = 
BGl_classzd2superzd2zz__objectz00(BgL_arg6096z00_1886); } 
BgL_arg6090z00_1884 = 
BGl_classzd2numzd2zz__objectz00(BgL_arg6093z00_1885); } 
{ /* ./Cfa/tvector.scm 293 */
BgL_objectz00_bglt BgL_objz00_2557;
BgL_objz00_2557 = 
(BgL_objectz00_bglt)(BgL_knodez00_1865); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2557, BgL_arg6090z00_1884); } } 
{ /* ./Cfa/tvector.scm 293 */
BgL_objectz00_bglt BgL_auxz00_5040;
BgL_auxz00_5040 = 
(BgL_objectz00_bglt)(BgL_knodez00_1865); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5040, BFALSE); } 
return 
(obj_t)(BgL_knodez00_1865);} } } } } } } 
}



/* patch!-kwote4727 */
obj_t BGl_patchz12zd2kwote4727zc0zzcfa_tvectorz00(obj_t BgL_envz00_3530, obj_t BgL_nodez00_3531)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 280 */
{ /* ./Cfa/tvector.scm 281 */
BgL_kwotez00_bglt BgL_auxz00_5045;
BgL_auxz00_5045 = 
(BgL_kwotez00_bglt)(BgL_nodez00_3531); 
return 
(obj_t)(BgL_auxz00_5045);} } 
}



/* patch!-atom4725 */
obj_t BGl_patchz12zd2atom4725zc0zzcfa_tvectorz00(obj_t BgL_envz00_3532, obj_t BgL_nodez00_3533)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 274 */
{ /* ./Cfa/tvector.scm 275 */
BgL_atomz00_bglt BgL_auxz00_5048;
BgL_auxz00_5048 = 
(BgL_atomz00_bglt)(BgL_nodez00_3533); 
return 
(obj_t)(BgL_auxz00_5048);} } 
}



/* get-vector-item-type-valloc/Cinfo+optim4721 */
obj_t BGl_getzd2vectorzd2itemzd2typezd2valloczf2Cinfozb2optim4721z40zzcfa_tvectorz00(obj_t BgL_envz00_3534, obj_t BgL_nodez00_3535)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 201 */
{ 
BgL_valloczf2cinfozb2optimz40_bglt BgL_nodez00_1847;
BgL_nodez00_1847 = 
(BgL_valloczf2cinfozb2optimz40_bglt)(BgL_nodez00_3535); 
{ /* ./Cfa/tvector.scm 203 */
bool_t BgL_test6041z00_1851;
{ 
obj_t BgL_auxz00_5051;
{ /* ./Cfa/tvector.scm 203 */
BgL_objectz00_bglt BgL_auxz00_5052;
BgL_auxz00_5052 = 
(BgL_objectz00_bglt)(BgL_nodez00_1847); 
BgL_auxz00_5051 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5052); } 
BgL_test6041z00_1851 = 
(((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_auxz00_5051))->BgL_seenzf3zf3); } 
if(BgL_test6041z00_1851)
{ /* ./Cfa/tvector.scm 205 */
BgL_approxz00_bglt BgL_arg6043z00_1852;
{ 
obj_t BgL_auxz00_5057;
{ /* ./Cfa/tvector.scm 205 */
BgL_objectz00_bglt BgL_auxz00_5058;
BgL_auxz00_5058 = 
(BgL_objectz00_bglt)(BgL_nodez00_1847); 
BgL_auxz00_5057 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5058); } 
BgL_arg6043z00_1852 = 
(((BgL_valloczf2cinfozb2optimz40_bglt)CREF(BgL_auxz00_5057))->BgL_valuezd2approxzd2); } 
{ /* ./Cfa/tvector.scm 205 */
BgL_typez00_bglt BgL_auxz00_5062;
BgL_auxz00_5062 = 
(((BgL_approxz00_bglt)CREF(BgL_arg6043z00_1852))->BgL_typez00); 
return 
(obj_t)(BgL_auxz00_5062);} }  else 
{ /* ./Cfa/tvector.scm 203 */
return BGl_za2vectorza2z00zztype_cachez00;} } } } 
}



/* get-vector-item-type-make-vector-app4719 */
obj_t BGl_getzd2vectorzd2itemzd2typezd2makezd2vectorzd2app4719z00zzcfa_tvectorz00(obj_t BgL_envz00_3536, obj_t BgL_appz00_3537)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 192 */
{ 
BgL_makezd2vectorzd2appz00_bglt BgL_appz00_1839;
BgL_appz00_1839 = 
(BgL_makezd2vectorzd2appz00_bglt)(BgL_appz00_3537); 
{ /* ./Cfa/tvector.scm 194 */
bool_t BgL_test6029z00_1843;
{ 
obj_t BgL_auxz00_5066;
{ /* ./Cfa/tvector.scm 194 */
BgL_objectz00_bglt BgL_auxz00_5067;
BgL_auxz00_5067 = 
(BgL_objectz00_bglt)(BgL_appz00_1839); 
BgL_auxz00_5066 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5067); } 
BgL_test6029z00_1843 = 
(((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_auxz00_5066))->BgL_seenzf3zf3); } 
if(BgL_test6029z00_1843)
{ /* ./Cfa/tvector.scm 196 */
BgL_approxz00_bglt BgL_arg6031z00_1844;
{ 
obj_t BgL_auxz00_5072;
{ /* ./Cfa/tvector.scm 196 */
BgL_objectz00_bglt BgL_auxz00_5073;
BgL_auxz00_5073 = 
(BgL_objectz00_bglt)(BgL_appz00_1839); 
BgL_auxz00_5072 = 
BGL_OBJECT_WIDENING(BgL_auxz00_5073); } 
BgL_arg6031z00_1844 = 
(((BgL_makezd2vectorzd2appz00_bglt)CREF(BgL_auxz00_5072))->BgL_valuezd2approxzd2); } 
{ /* ./Cfa/tvector.scm 196 */
BgL_typez00_bglt BgL_auxz00_5077;
BgL_auxz00_5077 = 
(((BgL_approxz00_bglt)CREF(BgL_arg6031z00_1844))->BgL_typez00); 
return 
(obj_t)(BgL_auxz00_5077);} }  else 
{ /* ./Cfa/tvector.scm 194 */
return BGl_za2vectorza2z00zztype_cachez00;} } } } 
}



/* get-vector-item-type */
BGL_EXPORTED_DEF BgL_typez00_bglt BGl_getzd2vectorzd2itemzd2typezd2zzcfa_tvectorz00(BgL_nodez00_bglt BgL_nodez00_31)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 187 */
{ /* ./Cfa/tvector.scm 187 */
obj_t BgL_method4717z00_3384;
{ /* ./Cfa/tvector.scm 187 */
BgL_objectz00_bglt BgL_objz00_3385;
BgL_objz00_3385 = 
(BgL_objectz00_bglt)(BgL_nodez00_31); 
{ /* ./Cfa/tvector.scm 187 */
long BgL_objzd2classzd2numz00_3386;
BgL_objzd2classzd2numz00_3386 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3385); 
{ /* ./Cfa/tvector.scm 187 */
obj_t BgL_arg2017z00_3387;
{ /* ./Cfa/tvector.scm 187 */
int BgL_auxz00_5083;
BgL_auxz00_5083 = 
(int)(((long)1)); 
BgL_arg2017z00_3387 = 
PROCEDURE_REF(BGl_getzd2vectorzd2itemzd2typezd2envz00zzcfa_tvectorz00, BgL_auxz00_5083); } 
{ /* ./Cfa/tvector.scm 187 */
int BgL_offsetz00_3390;
BgL_offsetz00_3390 = 
(int)(BgL_objzd2classzd2numz00_3386); 
{ /* ./Cfa/tvector.scm 187 */
long BgL_offsetz00_3391;
{ /* ./Cfa/tvector.scm 187 */
long BgL_auxz00_5087;
BgL_auxz00_5087 = 
(long)(BgL_offsetz00_3390); 
BgL_offsetz00_3391 = 
(BgL_auxz00_5087-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 187 */
long BgL_modz00_3392;
{ /* ./Cfa/tvector.scm 187 */
int BgL_arg2028z00_3393;
BgL_arg2028z00_3393 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 187 */
long BgL_n2z00_3401;
BgL_n2z00_3401 = 
(long)(BgL_arg2028z00_3393); 
BgL_modz00_3392 = 
(BgL_offsetz00_3391/BgL_n2z00_3401); } } 
{ /* ./Cfa/tvector.scm 187 */
long BgL_restz00_3394;
{ /* ./Cfa/tvector.scm 187 */
int BgL_arg2024z00_3395;
BgL_arg2024z00_3395 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 187 */
long BgL_n2z00_3404;
BgL_n2z00_3404 = 
(long)(BgL_arg2024z00_3395); 
BgL_restz00_3394 = 
(BgL_offsetz00_3391%BgL_n2z00_3404); } } 
{ /* ./Cfa/tvector.scm 187 */

{ /* ./Cfa/tvector.scm 187 */
obj_t BgL_bucketz00_3396;
{ /* ./Cfa/tvector.scm 187 */
int BgL_kz00_3406;
BgL_kz00_3406 = 
(int)(BgL_modz00_3392); 
BgL_bucketz00_3396 = 
VECTOR_REF(BgL_arg2017z00_3387,BgL_kz00_3406); } 
{ /* ./Cfa/tvector.scm 187 */
int BgL_kz00_3408;
BgL_kz00_3408 = 
(int)(BgL_restz00_3394); 
BgL_method4717z00_3384 = 
VECTOR_REF(BgL_bucketz00_3396,BgL_kz00_3408); } } } } } } } } } } 
{ /* ./Cfa/tvector.scm 187 */
obj_t BgL_auxz00_5100;
BgL_auxz00_5100 = 
PROCEDURE_ENTRY(BgL_method4717z00_3384)(BgL_method4717z00_3384, 
(obj_t)(BgL_nodez00_31), BEOA); 
return 
(BgL_typez00_bglt)(BgL_auxz00_5100);} } } 
}



/* _get-vector-item-type6837 */
obj_t BGl__getzd2vectorzd2itemzd2type6837zd2zzcfa_tvectorz00(obj_t BgL_envz00_3447, obj_t BgL_nodez00_3448)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 187 */
{ /* ./Cfa/tvector.scm 187 */
BgL_typez00_bglt BgL_auxz00_5105;
BgL_auxz00_5105 = 
BGl_getzd2vectorzd2itemzd2typezd2zzcfa_tvectorz00(
(BgL_nodez00_bglt)(BgL_nodez00_3448)); 
return 
(obj_t)(BgL_auxz00_5105);} } 
}



/* get-vector-item-type-default4716 */
obj_t BGl_getzd2vectorzd2itemzd2typezd2default4716z00zzcfa_tvectorz00(BgL_nodez00_bglt BgL_nodez00_32)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 15 */
{ /* ./Cfa/tvector.scm 15 */
obj_t BgL_procz00_3409;obj_t BgL_objectz00_3411;
BgL_procz00_3409 = 
CNST_TABLE_REF(((long)19)); 
BgL_objectz00_3411 = 
(obj_t)(BgL_nodez00_32); 
FAILURE(BgL_procz00_3409,BGl_string7547z00zzcfa_tvectorz00,BgL_objectz00_3411);} } 
}



/* _get-vector-item-type-default4716 */
obj_t BGl__getzd2vectorzd2itemzd2typezd2default4716z00zzcfa_tvectorz00(obj_t BgL_envz00_3538, obj_t BgL_nodez00_3539)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 15 */
return 
BGl_getzd2vectorzd2itemzd2typezd2default4716z00zzcfa_tvectorz00(
(BgL_nodez00_bglt)(BgL_nodez00_3539));} 
}



/* patch! */
obj_t BGl_patchz12z12zzcfa_tvectorz00(BgL_nodez00_bglt BgL_nodez00_39)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 269 */
{ /* ./Cfa/tvector.scm 269 */
obj_t BgL_method4723z00_3412;
{ /* ./Cfa/tvector.scm 269 */
BgL_objectz00_bglt BgL_objz00_3413;
BgL_objz00_3413 = 
(BgL_objectz00_bglt)(BgL_nodez00_39); 
{ /* ./Cfa/tvector.scm 269 */
long BgL_objzd2classzd2numz00_3414;
BgL_objzd2classzd2numz00_3414 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3413); 
{ /* ./Cfa/tvector.scm 269 */
obj_t BgL_arg2017z00_3415;
{ /* ./Cfa/tvector.scm 269 */
int BgL_auxz00_5116;
BgL_auxz00_5116 = 
(int)(((long)1)); 
BgL_arg2017z00_3415 = 
PROCEDURE_REF(BGl_patchz12zd2envzc0zzcfa_tvectorz00, BgL_auxz00_5116); } 
{ /* ./Cfa/tvector.scm 269 */
int BgL_offsetz00_3418;
BgL_offsetz00_3418 = 
(int)(BgL_objzd2classzd2numz00_3414); 
{ /* ./Cfa/tvector.scm 269 */
long BgL_offsetz00_3419;
{ /* ./Cfa/tvector.scm 269 */
long BgL_auxz00_5120;
BgL_auxz00_5120 = 
(long)(BgL_offsetz00_3418); 
BgL_offsetz00_3419 = 
(BgL_auxz00_5120-OBJECT_TYPE); } 
{ /* ./Cfa/tvector.scm 269 */
long BgL_modz00_3420;
{ /* ./Cfa/tvector.scm 269 */
int BgL_arg2028z00_3421;
BgL_arg2028z00_3421 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 269 */
long BgL_n2z00_3429;
BgL_n2z00_3429 = 
(long)(BgL_arg2028z00_3421); 
BgL_modz00_3420 = 
(BgL_offsetz00_3419/BgL_n2z00_3429); } } 
{ /* ./Cfa/tvector.scm 269 */
long BgL_restz00_3422;
{ /* ./Cfa/tvector.scm 269 */
int BgL_arg2024z00_3423;
BgL_arg2024z00_3423 = 
(int)(((long)8)); 
{ /* ./Cfa/tvector.scm 269 */
long BgL_n2z00_3432;
BgL_n2z00_3432 = 
(long)(BgL_arg2024z00_3423); 
BgL_restz00_3422 = 
(BgL_offsetz00_3419%BgL_n2z00_3432); } } 
{ /* ./Cfa/tvector.scm 269 */

{ /* ./Cfa/tvector.scm 269 */
obj_t BgL_bucketz00_3424;
{ /* ./Cfa/tvector.scm 269 */
int BgL_kz00_3434;
BgL_kz00_3434 = 
(int)(BgL_modz00_3420); 
BgL_bucketz00_3424 = 
VECTOR_REF(BgL_arg2017z00_3415,BgL_kz00_3434); } 
{ /* ./Cfa/tvector.scm 269 */
int BgL_kz00_3436;
BgL_kz00_3436 = 
(int)(BgL_restz00_3422); 
BgL_method4723z00_3412 = 
VECTOR_REF(BgL_bucketz00_3424,BgL_kz00_3436); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4723z00_3412)(BgL_method4723z00_3412, 
(obj_t)(BgL_nodez00_39), BEOA);} } 
}



/* _patch!6839 */
obj_t BGl__patchz126839z12zzcfa_tvectorz00(obj_t BgL_envz00_3449, obj_t BgL_nodez00_3450)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 269 */
return 
BGl_patchz12z12zzcfa_tvectorz00(
(BgL_nodez00_bglt)(BgL_nodez00_3450));} 
}



/* patch!-default4722 */
obj_t BGl_patchz12zd2default4722zc0zzcfa_tvectorz00(BgL_nodez00_bglt BgL_nodez00_40)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 15 */
{ /* ./Cfa/tvector.scm 15 */
obj_t BgL_procz00_3437;obj_t BgL_objectz00_3439;
BgL_procz00_3437 = 
CNST_TABLE_REF(((long)20)); 
BgL_objectz00_3439 = 
(obj_t)(BgL_nodez00_40); 
FAILURE(BgL_procz00_3437,BGl_string7547z00zzcfa_tvectorz00,BgL_objectz00_3439);} } 
}



/* _patch!-default4722 */
obj_t BGl__patchz12zd2default4722zc0zzcfa_tvectorz00(obj_t BgL_envz00_3540, obj_t BgL_nodez00_3541)
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 15 */
return 
BGl_patchz12zd2default4722zc0zzcfa_tvectorz00(
(BgL_nodez00_bglt)(BgL_nodez00_3541));} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzcfa_tvectorz00()
{ AN_OBJECT;
{ /* ./Cfa/tvector.scm 15 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zzmodule_typez00(((long)45778), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zzmodule_pragmaz00(((long)28507), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zztype_envz00(((long)25186), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zztvector_tvectorz00(((long)32501), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zztools_speekz00(((long)23537), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zzast_buildz00(((long)17453), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zzast_sexpz00(((long)15705), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zzast_envz00(((long)62031), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zzcfa_infoz00(((long)2565), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zzcfa_info2z00(((long)0), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zzcfa_info3z00(((long)0), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zzcfa_cfaz00(((long)65191), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zzcfa_approxz00(((long)43477), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zzcfa_setz00(((long)21480), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zzcfa_typez00(((long)31186), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zzglobaliza7e_walkza7(((long)59349), "cfa_tvector"); 
BGl_modulezd2initializa7ationz75zzinline_inlinez00(((long)63036), "cfa_tvector"); 
return 
BGl_modulezd2initializa7ationz75zzinline_walkz00(((long)10614), "cfa_tvector");} 
}

