/*===========================================================================*/
/*   (Tvector/access.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 Tvector/access.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_ccompz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_producerz00;
   obj_t BgL_consumerz00;
   obj_t BgL_finaliza7erza7;
} *BgL_ccompz00_bglt;


BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zztvector_accessz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_miscz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_envz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztvector_tvectorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_modulez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_identz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_privatez00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__biglooz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(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 *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long, char *);
static obj_t BGl_methodzd2initzd2zztvector_accessz00();
extern obj_t BGl_userzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2tvectorzd2accessesz00zztvector_accessz00(BgL_tvecz00_bglt, obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
extern obj_t BGl_producezd2modulezd2clausez12z12zzmodule_modulez00(obj_t);
extern BgL_typez00_bglt BGl_findzd2typezd2zztype_envz00(obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT obj_t string_append(obj_t, obj_t);
BGL_IMPORT obj_t bigloo_mangle(obj_t);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_IMPORT obj_t string_to_bstring(char *);
static char * BGl_allocatezd2tvectorzd2zztvector_accessz00(obj_t);
extern obj_t BGl_za2targetzd2languageza2zd2zzengine_paramz00;
BGL_IMPORT obj_t BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(obj_t);
static obj_t BGl_cnstzd2initzd2zztvector_accessz00();
BGL_IMPORT bool_t bigloo_strcmp(obj_t, obj_t);
extern obj_t BGl_za2unsafezd2rangeza2zd2zzengine_paramz00;
BGL_IMPORT obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zztvector_accessz00();
extern obj_t BGl_makezd2privatezd2sexpz00zzast_privatez00(obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zztvector_accessz00 = BUNSPEC;
static obj_t BGl__makezd2tvectorzd2accessesz00zztvector_accessz00(obj_t, obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zztvector_accessz00();
extern obj_t BGl_makezd2typedzd2identz00zzast_identz00(obj_t, obj_t);
extern obj_t BGl_makezd2typedzd2formalz00zzast_identz00(obj_t);
BGL_IMPORT obj_t string_append_3(obj_t, obj_t, obj_t);
static obj_t __cnst[ 64 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_makezd2tvectorzd2accesseszd2envzd2zztvector_accessz00, BgL_bgl__makeza7d2tvectorza7d2accessesza700za7za7tvector_accessza7002809z00, BGl__makezd2tvectorzd2accessesz00zztvector_accessz00, 0L, 2 );
DEFINE_STRING( BGl_string2781z00zztvector_accessz00, BgL_bgl_string2781za700za7za7tvector_accessza7002810z00, "predicate-of pragma inline static vlength ::int vector->tvector v::vector -fx acc cons acc::obj loop::pair quote tvector->vector ::vector tvector-descr-set! valloc ni +fx ni::int i =fx i::int loop labels len let len::int vset! v error tvector-length vector-bound-check? o::int vref tv int (jvm .net) isa tvector-descr eq? o tvector? if o::obj ::bool define-inline __tvector declare-tvector! @ ::obj define -length ->list vector-> ->vector ? -set! -ref allocate- make- -descriptor obj ", 484 );
DEFINE_STRING( BGl_string2780z00zztvector_accessz00, BgL_bgl_string2780za700za7za7tvector_accessza7002811z00, "float", 5 );
DEFINE_STRING( BGl_string2779z00zztvector_accessz00, BgL_bgl_string2779za700za7za7tvector_accessza7002812z00, "double", 6 );
DEFINE_STRING( BGl_string2778z00zztvector_accessz00, BgL_bgl_string2778za700za7za7tvector_accessza7002813z00, "tvector", 7 );
DEFINE_STRING( BGl_string2777z00zztvector_accessz00, BgL_bgl_string2777za700za7za7tvector_accessza7002814z00, "'", 1 );
DEFINE_STRING( BGl_string2776z00zztvector_accessz00, BgL_bgl_string2776za700za7za7tvector_accessza7002815z00, "Undefined type `", 16 );
DEFINE_STRING( BGl_string2775z00zztvector_accessz00, BgL_bgl_string2775za700za7za7tvector_accessza7002816z00, "TVECTOR_LENGTH( $1 )", 20 );
DEFINE_STRING( BGl_string2774z00zztvector_accessz00, BgL_bgl_string2774za700za7za7tvector_accessza7002817z00, "ALLOCATE_S_TVECTOR( ", 20 );
DEFINE_STRING( BGl_string2773z00zztvector_accessz00, BgL_bgl_string2773za700za7za7tvector_accessza7002818z00, ", ", 2 );
DEFINE_STRING( BGl_string2772z00zztvector_accessz00, BgL_bgl_string2772za700za7za7tvector_accessza7002819z00, ", $1, $2 )", 10 );
DEFINE_STRING( BGl_string2771z00zztvector_accessz00, BgL_bgl_string2771za700za7za7tvector_accessza7002820z00, "-set!", 5 );
DEFINE_STRING( BGl_string2770z00zztvector_accessz00, BgL_bgl_string2770za700za7za7tvector_accessza7002821z00, ",$1,$2,$3 )", 11 );
DEFINE_STRING( BGl_string2769z00zztvector_accessz00, BgL_bgl_string2769za700za7za7tvector_accessza7002822z00, "TVECTOR_SET( ", 13 );
DEFINE_STRING( BGl_string2768z00zztvector_accessz00, BgL_bgl_string2768za700za7za7tvector_accessza7002823z00, "Index out of bounds", 19 );
DEFINE_STRING( BGl_string2767z00zztvector_accessz00, BgL_bgl_string2767za700za7za7tvector_accessza7002824z00, ",$1,$2 )", 8 );
DEFINE_STRING( BGl_string2766z00zztvector_accessz00, BgL_bgl_string2766za700za7za7tvector_accessza7002825z00, "TVECTOR_REF( ", 13 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zztvector_accessz00(long BgL_checksumz00_789, char * BgL_fromz00_790)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zztvector_accessz00))
{ 
BGl_requirezd2initializa7ationz75zztvector_accessz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zztvector_accessz00(); 
BGl_cnstzd2initzd2zztvector_accessz00(); 
BGl_importedzd2moduleszd2initz00zztvector_accessz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zztvector_accessz00()
{ AN_OBJECT;
{ /* ./Tvector/access.scm 15 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "tvector_access"); 
BGl_modulezd2initializa7ationz75zz__biglooz00(((long)0), "tvector_access"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "tvector_access"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)0), "tvector_access"); 
BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(((long)0), "tvector_access"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zztvector_accessz00()
{ AN_OBJECT;
{ /* ./Tvector/access.scm 15 */
{ /* ./Tvector/access.scm 15 */
obj_t BgL_cportz00_782;
BgL_cportz00_782 = 
open_input_string(BGl_string2781z00zztvector_accessz00); 
{ 
long BgL_iz00_783;
BgL_iz00_783 = ((long)63); 
BgL_loopz00_784:
{ /* ./Tvector/access.scm 15 */
bool_t BgL_test2783z00_785;
BgL_test2783z00_785 = 
(BgL_iz00_783==((long)-1)); 
if(BgL_test2783z00_785)
{ /* ./Tvector/access.scm 15 */
return BUNSPEC;}  else 
{ /* ./Tvector/access.scm 15 */
{ /* ./Tvector/access.scm 15 */
obj_t BgL_arg2785z00_786;
{ /* ./Tvector/access.scm 15 */
obj_t BgL_list2788z00_787;
BgL_list2788z00_787 = 
MAKE_PAIR(BgL_cportz00_782, BNIL); 
BgL_arg2785z00_786 = 
BGl_readz00zz__readerz00(BgL_list2788z00_787); } 
{ /* ./Tvector/access.scm 15 */
int BgL_auxz00_807;
BgL_auxz00_807 = 
(int)(BgL_iz00_783); 
CNST_TABLE_SET(BgL_auxz00_807, BgL_arg2785z00_786); } } 
{ /* ./Tvector/access.scm 15 */
int BgL_auxz00_788;
{ /* ./Tvector/access.scm 15 */
long BgL_auxz00_810;
BgL_auxz00_810 = 
(BgL_iz00_783-((long)1)); 
BgL_auxz00_788 = 
(int)(BgL_auxz00_810); } 
{ 
long BgL_iz00_813;
BgL_iz00_813 = 
(long)(BgL_auxz00_788); 
BgL_iz00_783 = BgL_iz00_813; 
goto BgL_loopz00_784;} } } } } } } 
}



/* make-tvector-accesses */
BGL_EXPORTED_DEF obj_t BGl_makezd2tvectorzd2accessesz00zztvector_accessz00(BgL_tvecz00_bglt BgL_tvz00_1, obj_t BgL_srcz00_2)
{ AN_OBJECT;
{ /* ./Tvector/access.scm 30 */
{ /* ./Tvector/access.scm 31 */
obj_t BgL_tvzd2idzd2_73;
{ /* ./Tvector/access.scm 31 */
BgL_typez00_bglt BgL_obj1003z00_762;
BgL_obj1003z00_762 = 
(BgL_typez00_bglt)(BgL_tvz00_1); 
BgL_tvzd2idzd2_73 = 
(((BgL_typez00_bglt)CREF(BgL_obj1003z00_762))->BgL_idz00); } 
{ /* ./Tvector/access.scm 32 */
BgL_typez00_bglt BgL_objz00_75;
BgL_objz00_75 = 
BGl_findzd2typezd2zztype_envz00(
CNST_TABLE_REF(((long)0))); 
{ /* ./Tvector/access.scm 33 */
BgL_typez00_bglt BgL_itemzd2typezd2_76;
{ 
obj_t BgL_auxz00_819;
{ /* ./Tvector/access.scm 34 */
BgL_objectz00_bglt BgL_auxz00_820;
BgL_auxz00_820 = 
(BgL_objectz00_bglt)(BgL_tvz00_1); 
BgL_auxz00_819 = 
BGL_OBJECT_WIDENING(BgL_auxz00_820); } 
BgL_itemzd2typezd2_76 = 
(((BgL_tvecz00_bglt)CREF(BgL_auxz00_819))->BgL_itemzd2typezd2); } 
{ /* ./Tvector/access.scm 34 */
obj_t BgL_itemzd2idzd2_77;
BgL_itemzd2idzd2_77 = 
(((BgL_typez00_bglt)CREF(BgL_itemzd2typezd2_76))->BgL_idz00); 
{ /* ./Tvector/access.scm 35 */
obj_t BgL_itemzd2namezd2_78;
BgL_itemzd2namezd2_78 = 
(((BgL_typez00_bglt)CREF(BgL_itemzd2typezd2_76))->BgL_namez00); 
{ /* ./Tvector/access.scm 36 */
obj_t BgL_mitemzd2namezd2_79;
{ /* ./Tvector/access.scm 37 */
obj_t BgL_arg2682z00_736;
BgL_arg2682z00_736 = 
(((BgL_typez00_bglt)CREF(BgL_itemzd2typezd2_76))->BgL_namez00); 
BgL_mitemzd2namezd2_79 = 
bigloo_mangle(BgL_arg2682z00_736); } 
{ /* ./Tvector/access.scm 37 */
obj_t BgL_descrzd2idzd2_80;
{ /* ./Tvector/access.scm 38 */
obj_t BgL_list2676z00_734;
{ /* ./Tvector/access.scm 38 */
obj_t BgL_arg2678z00_735;
{ /* ./Tvector/access.scm 38 */
obj_t BgL_auxz00_828;
BgL_auxz00_828 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg2678z00_735 = 
MAKE_PAIR(BgL_auxz00_828, BNIL); } 
BgL_list2676z00_734 = 
MAKE_PAIR(BgL_tvzd2idzd2_73, BgL_arg2678z00_735); } 
BgL_descrzd2idzd2_80 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2676z00_734); } 
{ /* ./Tvector/access.scm 38 */
obj_t BgL_tvzd2makezd2idz00_81;
{ /* ./Tvector/access.scm 39 */
obj_t BgL_list2669z00_731;
{ /* ./Tvector/access.scm 39 */
obj_t BgL_arg2671z00_732;obj_t BgL_arg2672z00_733;
BgL_arg2671z00_732 = 
CNST_TABLE_REF(((long)2)); 
BgL_arg2672z00_733 = 
MAKE_PAIR(BgL_tvzd2idzd2_73, BNIL); 
BgL_list2669z00_731 = 
MAKE_PAIR(BgL_arg2671z00_732, BgL_arg2672z00_733); } 
BgL_tvzd2makezd2idz00_81 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2669z00_731); } 
{ /* ./Tvector/access.scm 39 */
obj_t BgL_tvzd2alloczd2idz00_82;
{ /* ./Tvector/access.scm 40 */
obj_t BgL_list2662z00_728;
{ /* ./Tvector/access.scm 40 */
obj_t BgL_arg2664z00_729;obj_t BgL_arg2665z00_730;
BgL_arg2664z00_729 = 
CNST_TABLE_REF(((long)3)); 
BgL_arg2665z00_730 = 
MAKE_PAIR(BgL_tvzd2idzd2_73, BNIL); 
BgL_list2662z00_728 = 
MAKE_PAIR(BgL_arg2664z00_729, BgL_arg2665z00_730); } 
BgL_tvzd2alloczd2idz00_82 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2662z00_728); } 
{ /* ./Tvector/access.scm 40 */
obj_t BgL_tvzd2refzd2idz00_83;
{ /* ./Tvector/access.scm 41 */
obj_t BgL_list2656z00_726;
{ /* ./Tvector/access.scm 41 */
obj_t BgL_arg2658z00_727;
{ /* ./Tvector/access.scm 41 */
obj_t BgL_auxz00_841;
BgL_auxz00_841 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg2658z00_727 = 
MAKE_PAIR(BgL_auxz00_841, BNIL); } 
BgL_list2656z00_726 = 
MAKE_PAIR(BgL_tvzd2idzd2_73, BgL_arg2658z00_727); } 
BgL_tvzd2refzd2idz00_83 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2656z00_726); } 
{ /* ./Tvector/access.scm 41 */
obj_t BgL_tvzd2setz12zd2idz12_84;
{ /* ./Tvector/access.scm 42 */
obj_t BgL_list2650z00_724;
{ /* ./Tvector/access.scm 42 */
obj_t BgL_arg2652z00_725;
{ /* ./Tvector/access.scm 42 */
obj_t BgL_auxz00_846;
BgL_auxz00_846 = 
CNST_TABLE_REF(((long)5)); 
BgL_arg2652z00_725 = 
MAKE_PAIR(BgL_auxz00_846, BNIL); } 
BgL_list2650z00_724 = 
MAKE_PAIR(BgL_tvzd2idzd2_73, BgL_arg2652z00_725); } 
BgL_tvzd2setz12zd2idz12_84 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2650z00_724); } 
{ /* ./Tvector/access.scm 42 */
obj_t BgL_tvzf3zd2idz21_85;
{ /* ./Tvector/access.scm 43 */
obj_t BgL_list2643z00_722;
{ /* ./Tvector/access.scm 43 */
obj_t BgL_arg2646z00_723;
{ /* ./Tvector/access.scm 43 */
obj_t BgL_auxz00_851;
BgL_auxz00_851 = 
CNST_TABLE_REF(((long)6)); 
BgL_arg2646z00_723 = 
MAKE_PAIR(BgL_auxz00_851, BNIL); } 
BgL_list2643z00_722 = 
MAKE_PAIR(BgL_tvzd2idzd2_73, BgL_arg2646z00_723); } 
BgL_tvzf3zd2idz21_85 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2643z00_722); } 
{ /* ./Tvector/access.scm 43 */
obj_t BgL_tvzd2ze3vectorzd2idze3_86;
{ /* ./Tvector/access.scm 44 */
obj_t BgL_list2637z00_720;
{ /* ./Tvector/access.scm 44 */
obj_t BgL_arg2639z00_721;
{ /* ./Tvector/access.scm 44 */
obj_t BgL_auxz00_856;
BgL_auxz00_856 = 
CNST_TABLE_REF(((long)7)); 
BgL_arg2639z00_721 = 
MAKE_PAIR(BgL_auxz00_856, BNIL); } 
BgL_list2637z00_720 = 
MAKE_PAIR(BgL_tvzd2idzd2_73, BgL_arg2639z00_721); } 
BgL_tvzd2ze3vectorzd2idze3_86 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2637z00_720); } 
{ /* ./Tvector/access.scm 44 */
obj_t BgL_vectorzd2ze3tvzd2idze3_87;
{ /* ./Tvector/access.scm 45 */
obj_t BgL_list2630z00_717;
{ /* ./Tvector/access.scm 45 */
obj_t BgL_arg2632z00_718;obj_t BgL_arg2633z00_719;
BgL_arg2632z00_718 = 
CNST_TABLE_REF(((long)8)); 
BgL_arg2633z00_719 = 
MAKE_PAIR(BgL_tvzd2idzd2_73, BNIL); 
BgL_list2630z00_717 = 
MAKE_PAIR(BgL_arg2632z00_718, BgL_arg2633z00_719); } 
BgL_vectorzd2ze3tvzd2idze3_87 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2630z00_717); } 
{ /* ./Tvector/access.scm 45 */
obj_t BgL_tvzd2ze3listz31_88;
{ /* ./Tvector/access.scm 46 */
obj_t BgL_list2624z00_715;
{ /* ./Tvector/access.scm 46 */
obj_t BgL_arg2626z00_716;
{ /* ./Tvector/access.scm 46 */
obj_t BgL_auxz00_865;
BgL_auxz00_865 = 
CNST_TABLE_REF(((long)9)); 
BgL_arg2626z00_716 = 
MAKE_PAIR(BgL_auxz00_865, BNIL); } 
BgL_list2624z00_715 = 
MAKE_PAIR(BgL_tvzd2idzd2_73, BgL_arg2626z00_716); } 
BgL_tvzd2ze3listz31_88 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2624z00_715); } 
{ /* ./Tvector/access.scm 46 */
obj_t BgL_tvzd2lengthzd2idz00_89;
{ /* ./Tvector/access.scm 47 */
obj_t BgL_list2618z00_713;
{ /* ./Tvector/access.scm 47 */
obj_t BgL_arg2620z00_714;
{ /* ./Tvector/access.scm 47 */
obj_t BgL_auxz00_870;
BgL_auxz00_870 = 
CNST_TABLE_REF(((long)10)); 
BgL_arg2620z00_714 = 
MAKE_PAIR(BgL_auxz00_870, BNIL); } 
BgL_list2618z00_713 = 
MAKE_PAIR(BgL_tvzd2idzd2_73, BgL_arg2620z00_714); } 
BgL_tvzd2lengthzd2idz00_89 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2618z00_713); } 
{ /* ./Tvector/access.scm 47 */

{ 

{ /* ./Tvector/access.scm 183 */
obj_t BgL_arg1172z00_105;
{ /* ./Tvector/access.scm 183 */
obj_t BgL_arg1177z00_106;obj_t BgL_arg1178z00_107;
BgL_arg1177z00_106 = 
CNST_TABLE_REF(((long)60)); 
{ /* ./Tvector/access.scm 184 */
obj_t BgL_arg1182z00_108;obj_t BgL_arg1183z00_109;
{ /* ./Tvector/access.scm 184 */
obj_t BgL_arg1187z00_110;obj_t BgL_arg1188z00_111;
BgL_arg1187z00_110 = 
CNST_TABLE_REF(((long)61)); 
{ /* ./Tvector/access.scm 184 */
obj_t BgL_arg1191z00_112;obj_t BgL_arg1192z00_113;
{ /* ./Tvector/access.scm 184 */
obj_t BgL_list1195z00_114;
{ /* ./Tvector/access.scm 184 */
obj_t BgL_arg1197z00_115;
{ /* ./Tvector/access.scm 184 */
obj_t BgL_auxz00_877;
BgL_auxz00_877 = 
CNST_TABLE_REF(((long)17)); 
BgL_arg1197z00_115 = 
MAKE_PAIR(BgL_auxz00_877, BNIL); } 
BgL_list1195z00_114 = 
MAKE_PAIR(BgL_tvzf3zd2idz21_85, BgL_arg1197z00_115); } 
BgL_arg1191z00_112 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list1195z00_114); } 
{ /* ./Tvector/access.scm 184 */
obj_t BgL_auxz00_882;
BgL_auxz00_882 = 
CNST_TABLE_REF(((long)12)); 
BgL_arg1192z00_113 = 
MAKE_PAIR(BgL_auxz00_882, BNIL); } 
BgL_arg1188z00_111 = 
MAKE_PAIR(BgL_arg1191z00_112, BgL_arg1192z00_113); } 
BgL_arg1182z00_108 = 
MAKE_PAIR(BgL_arg1187z00_110, BgL_arg1188z00_111); } 
{ /* ./Tvector/access.scm 187 */
obj_t BgL_arg1202z00_116;obj_t BgL_arg1203z00_117;
{ /* ./Tvector/access.scm 187 */
obj_t BgL_arg1206z00_118;obj_t BgL_arg1207z00_119;
BgL_arg1206z00_118 = 
CNST_TABLE_REF(((long)61)); 
{ /* ./Tvector/access.scm 187 */
obj_t BgL_arg1210z00_120;obj_t BgL_arg1211z00_121;
BgL_arg1210z00_120 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_tvzd2refzd2idz00_83, BgL_itemzd2idzd2_77); 
{ /* ./Tvector/access.scm 188 */
obj_t BgL_arg1215z00_122;obj_t BgL_arg1216z00_123;
BgL_arg1215z00_122 = 
BGl_makezd2typedzd2identz00zzast_identz00(
CNST_TABLE_REF(((long)27)), BgL_tvzd2idzd2_73); 
{ /* ./Tvector/access.scm 187 */
obj_t BgL_auxz00_891;
BgL_auxz00_891 = 
CNST_TABLE_REF(((long)58)); 
BgL_arg1216z00_123 = 
MAKE_PAIR(BgL_auxz00_891, BNIL); } 
BgL_arg1211z00_121 = 
MAKE_PAIR(BgL_arg1215z00_122, BgL_arg1216z00_123); } 
BgL_arg1207z00_119 = 
MAKE_PAIR(BgL_arg1210z00_120, BgL_arg1211z00_121); } 
BgL_arg1202z00_116 = 
MAKE_PAIR(BgL_arg1206z00_118, BgL_arg1207z00_119); } 
{ /* ./Tvector/access.scm 191 */
obj_t BgL_arg1222z00_124;obj_t BgL_arg1223z00_125;
{ /* ./Tvector/access.scm 191 */
obj_t BgL_arg1227z00_126;obj_t BgL_arg1229z00_127;
BgL_arg1227z00_126 = 
CNST_TABLE_REF(((long)61)); 
{ /* ./Tvector/access.scm 191 */
obj_t BgL_arg1233z00_128;obj_t BgL_arg1234z00_129;
{ /* ./Tvector/access.scm 191 */
obj_t BgL_list1237z00_130;
{ /* ./Tvector/access.scm 191 */
obj_t BgL_arg1240z00_131;
{ /* ./Tvector/access.scm 191 */
obj_t BgL_auxz00_898;
BgL_auxz00_898 = 
CNST_TABLE_REF(((long)12)); 
BgL_arg1240z00_131 = 
MAKE_PAIR(BgL_auxz00_898, BNIL); } 
BgL_list1237z00_130 = 
MAKE_PAIR(BgL_tvzd2setz12zd2idz12_84, BgL_arg1240z00_131); } 
BgL_arg1233z00_128 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list1237z00_130); } 
{ /* ./Tvector/access.scm 192 */
obj_t BgL_arg1244z00_132;obj_t BgL_arg1245z00_133;
BgL_arg1244z00_132 = 
BGl_makezd2typedzd2identz00zzast_identz00(
CNST_TABLE_REF(((long)27)), BgL_tvzd2idzd2_73); 
{ /* ./Tvector/access.scm 191 */
obj_t BgL_arg1249z00_134;obj_t BgL_arg1250z00_135;
BgL_arg1249z00_134 = 
CNST_TABLE_REF(((long)58)); 
{ /* ./Tvector/access.scm 194 */
obj_t BgL_arg1256z00_136;
BgL_arg1256z00_136 = 
BGl_makezd2typedzd2identz00zzast_identz00(
CNST_TABLE_REF(((long)33)), BgL_itemzd2idzd2_77); 
BgL_arg1250z00_135 = 
MAKE_PAIR(BgL_arg1256z00_136, BNIL); } 
BgL_arg1245z00_133 = 
MAKE_PAIR(BgL_arg1249z00_134, BgL_arg1250z00_135); } 
BgL_arg1234z00_129 = 
MAKE_PAIR(BgL_arg1244z00_132, BgL_arg1245z00_133); } 
BgL_arg1229z00_127 = 
MAKE_PAIR(BgL_arg1233z00_128, BgL_arg1234z00_129); } 
BgL_arg1222z00_124 = 
MAKE_PAIR(BgL_arg1227z00_126, BgL_arg1229z00_127); } 
{ /* ./Tvector/access.scm 196 */
obj_t BgL_arg1265z00_138;obj_t BgL_arg1266z00_139;
{ /* ./Tvector/access.scm 196 */
obj_t BgL_arg1270z00_140;obj_t BgL_arg1273z00_141;
BgL_arg1270z00_140 = 
CNST_TABLE_REF(((long)61)); 
{ /* ./Tvector/access.scm 196 */
obj_t BgL_arg1276z00_142;obj_t BgL_arg1277z00_143;
BgL_arg1276z00_142 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_tvzd2makezd2idz00_81, BgL_tvzd2idzd2_73); 
{ /* ./Tvector/access.scm 196 */
obj_t BgL_arg1282z00_144;obj_t BgL_arg1283z00_145;
BgL_arg1282z00_144 = 
CNST_TABLE_REF(((long)58)); 
{ /* ./Tvector/access.scm 198 */
obj_t BgL_arg1286z00_146;
BgL_arg1286z00_146 = 
BGl_makezd2typedzd2formalz00zzast_identz00(BgL_itemzd2idzd2_77); 
BgL_arg1283z00_145 = 
MAKE_PAIR(BgL_arg1286z00_146, BNIL); } 
BgL_arg1277z00_143 = 
MAKE_PAIR(BgL_arg1282z00_144, BgL_arg1283z00_145); } 
BgL_arg1273z00_141 = 
MAKE_PAIR(BgL_arg1276z00_142, BgL_arg1277z00_143); } 
BgL_arg1265z00_138 = 
MAKE_PAIR(BgL_arg1270z00_140, BgL_arg1273z00_141); } 
{ /* ./Tvector/access.scm 200 */
obj_t BgL_arg1291z00_148;obj_t BgL_arg1292z00_149;
{ /* ./Tvector/access.scm 200 */
obj_t BgL_arg1295z00_150;obj_t BgL_arg1296z00_151;
BgL_arg1295z00_150 = 
CNST_TABLE_REF(((long)61)); 
{ /* ./Tvector/access.scm 200 */
obj_t BgL_arg1299z00_152;obj_t BgL_arg1300z00_153;
BgL_arg1299z00_152 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_tvzd2alloczd2idz00_82, BgL_tvzd2idzd2_73); 
{ /* ./Tvector/access.scm 200 */
obj_t BgL_auxz00_923;
BgL_auxz00_923 = 
CNST_TABLE_REF(((long)58)); 
BgL_arg1300z00_153 = 
MAKE_PAIR(BgL_auxz00_923, BNIL); } 
BgL_arg1296z00_151 = 
MAKE_PAIR(BgL_arg1299z00_152, BgL_arg1300z00_153); } 
BgL_arg1291z00_148 = 
MAKE_PAIR(BgL_arg1295z00_150, BgL_arg1296z00_151); } 
{ /* ./Tvector/access.scm 203 */
obj_t BgL_arg1305z00_154;obj_t BgL_arg1306z00_155;
{ /* ./Tvector/access.scm 203 */
obj_t BgL_arg1309z00_156;obj_t BgL_arg1310z00_157;
BgL_arg1309z00_156 = 
CNST_TABLE_REF(((long)61)); 
{ /* ./Tvector/access.scm 203 */
obj_t BgL_arg1313z00_158;obj_t BgL_arg1314z00_159;
{ /* ./Tvector/access.scm 203 */
obj_t BgL_list1317z00_160;
{ /* ./Tvector/access.scm 203 */
obj_t BgL_arg1319z00_161;
{ /* ./Tvector/access.scm 203 */
obj_t BgL_auxz00_929;
BgL_auxz00_929 = 
CNST_TABLE_REF(((long)48)); 
BgL_arg1319z00_161 = 
MAKE_PAIR(BgL_auxz00_929, BNIL); } 
BgL_list1317z00_160 = 
MAKE_PAIR(BgL_tvzd2ze3vectorzd2idze3_86, BgL_arg1319z00_161); } 
BgL_arg1313z00_158 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list1317z00_160); } 
{ /* ./Tvector/access.scm 204 */
obj_t BgL_arg1323z00_162;
BgL_arg1323z00_162 = 
BGl_makezd2typedzd2identz00zzast_identz00(
CNST_TABLE_REF(((long)27)), BgL_tvzd2idzd2_73); 
BgL_arg1314z00_159 = 
MAKE_PAIR(BgL_arg1323z00_162, BNIL); } 
BgL_arg1310z00_157 = 
MAKE_PAIR(BgL_arg1313z00_158, BgL_arg1314z00_159); } 
BgL_arg1305z00_154 = 
MAKE_PAIR(BgL_arg1309z00_156, BgL_arg1310z00_157); } 
{ /* ./Tvector/access.scm 206 */
obj_t BgL_arg1328z00_164;obj_t BgL_arg1329z00_165;
{ /* ./Tvector/access.scm 206 */
obj_t BgL_arg1332z00_166;obj_t BgL_arg1333z00_167;
BgL_arg1332z00_166 = 
CNST_TABLE_REF(((long)61)); 
{ /* ./Tvector/access.scm 206 */
obj_t BgL_arg1336z00_168;obj_t BgL_arg1337z00_169;
BgL_arg1336z00_168 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_vectorzd2ze3tvzd2idze3_87, BgL_tvzd2idzd2_73); 
{ /* ./Tvector/access.scm 206 */
obj_t BgL_auxz00_941;
BgL_auxz00_941 = 
CNST_TABLE_REF(((long)48)); 
BgL_arg1337z00_169 = 
MAKE_PAIR(BgL_auxz00_941, BNIL); } 
BgL_arg1333z00_167 = 
MAKE_PAIR(BgL_arg1336z00_168, BgL_arg1337z00_169); } 
BgL_arg1328z00_164 = 
MAKE_PAIR(BgL_arg1332z00_166, BgL_arg1333z00_167); } 
{ /* ./Tvector/access.scm 209 */
obj_t BgL_arg1342z00_170;obj_t BgL_arg1343z00_171;
{ /* ./Tvector/access.scm 209 */
obj_t BgL_arg1346z00_172;obj_t BgL_arg1347z00_173;
BgL_arg1346z00_172 = 
CNST_TABLE_REF(((long)61)); 
{ /* ./Tvector/access.scm 209 */
obj_t BgL_arg1352z00_174;obj_t BgL_arg1354z00_175;
{ /* ./Tvector/access.scm 209 */
obj_t BgL_list1357z00_176;
{ /* ./Tvector/access.scm 209 */
obj_t BgL_arg1359z00_177;
{ /* ./Tvector/access.scm 209 */
obj_t BgL_auxz00_947;
BgL_auxz00_947 = 
CNST_TABLE_REF(((long)58)); 
BgL_arg1359z00_177 = 
MAKE_PAIR(BgL_auxz00_947, BNIL); } 
BgL_list1357z00_176 = 
MAKE_PAIR(BgL_tvzd2lengthzd2idz00_89, BgL_arg1359z00_177); } 
BgL_arg1352z00_174 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list1357z00_176); } 
{ /* ./Tvector/access.scm 210 */
obj_t BgL_arg1363z00_178;
BgL_arg1363z00_178 = 
BGl_makezd2typedzd2identz00zzast_identz00(
CNST_TABLE_REF(((long)21)), BgL_tvzd2idzd2_73); 
BgL_arg1354z00_175 = 
MAKE_PAIR(BgL_arg1363z00_178, BNIL); } 
BgL_arg1347z00_173 = 
MAKE_PAIR(BgL_arg1352z00_174, BgL_arg1354z00_175); } 
BgL_arg1342z00_170 = 
MAKE_PAIR(BgL_arg1346z00_172, BgL_arg1347z00_173); } 
{ /* ./Tvector/access.scm 212 */
obj_t BgL_arg1368z00_180;
{ /* ./Tvector/access.scm 212 */
obj_t BgL_arg1374z00_182;obj_t BgL_arg1375z00_183;
{ /* ./Tvector/access.scm 212 */
obj_t BgL_list1378z00_184;
{ /* ./Tvector/access.scm 212 */
obj_t BgL_arg1382z00_185;
{ /* ./Tvector/access.scm 212 */
obj_t BgL_auxz00_957;
BgL_auxz00_957 = 
CNST_TABLE_REF(((long)12)); 
BgL_arg1382z00_185 = 
MAKE_PAIR(BgL_auxz00_957, BNIL); } 
BgL_list1378z00_184 = 
MAKE_PAIR(BgL_tvzd2ze3listz31_88, BgL_arg1382z00_185); } 
BgL_arg1374z00_182 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list1378z00_184); } 
{ /* ./Tvector/access.scm 213 */
obj_t BgL_arg1388z00_186;
BgL_arg1388z00_186 = 
BGl_makezd2typedzd2identz00zzast_identz00(
CNST_TABLE_REF(((long)27)), BgL_tvzd2idzd2_73); 
BgL_arg1375z00_183 = 
MAKE_PAIR(BgL_arg1388z00_186, BNIL); } 
BgL_arg1368z00_180 = 
MAKE_PAIR(BgL_arg1374z00_182, BgL_arg1375z00_183); } 
BgL_arg1343z00_171 = 
MAKE_PAIR(BgL_arg1368z00_180, BNIL); } 
BgL_arg1329z00_165 = 
MAKE_PAIR(BgL_arg1342z00_170, BgL_arg1343z00_171); } 
BgL_arg1306z00_155 = 
MAKE_PAIR(BgL_arg1328z00_164, BgL_arg1329z00_165); } 
BgL_arg1292z00_149 = 
MAKE_PAIR(BgL_arg1305z00_154, BgL_arg1306z00_155); } 
BgL_arg1266z00_139 = 
MAKE_PAIR(BgL_arg1291z00_148, BgL_arg1292z00_149); } 
BgL_arg1223z00_125 = 
MAKE_PAIR(BgL_arg1265z00_138, BgL_arg1266z00_139); } 
BgL_arg1203z00_117 = 
MAKE_PAIR(BgL_arg1222z00_124, BgL_arg1223z00_125); } 
BgL_arg1183z00_109 = 
MAKE_PAIR(BgL_arg1202z00_116, BgL_arg1203z00_117); } 
BgL_arg1178z00_107 = 
MAKE_PAIR(BgL_arg1182z00_108, BgL_arg1183z00_109); } 
BgL_arg1172z00_105 = 
MAKE_PAIR(BgL_arg1177z00_106, BgL_arg1178z00_107); } 
BGl_producezd2modulezd2clausez12z12zzmodule_modulez00(BgL_arg1172z00_105); } 
{ /* ./Tvector/access.scm 216 */
obj_t BgL_arg1394z00_188;
{ /* ./Tvector/access.scm 216 */
obj_t BgL_arg1397z00_189;obj_t BgL_arg1398z00_190;
BgL_arg1397z00_189 = 
CNST_TABLE_REF(((long)62)); 
{ /* ./Tvector/access.scm 216 */
obj_t BgL_arg1401z00_191;
{ /* ./Tvector/access.scm 216 */
obj_t BgL_arg1406z00_193;
{ /* ./Tvector/access.scm 216 */
obj_t BgL_arg1409z00_194;
{ /* ./Tvector/access.scm 216 */
obj_t BgL_arg1413z00_196;obj_t BgL_arg1414z00_197;
BgL_arg1413z00_196 = 
CNST_TABLE_REF(((long)63)); 
BgL_arg1414z00_197 = 
MAKE_PAIR(BgL_tvzd2idzd2_73, BNIL); 
BgL_arg1409z00_194 = 
MAKE_PAIR(BgL_arg1413z00_196, BgL_arg1414z00_197); } 
BgL_arg1406z00_193 = 
MAKE_PAIR(BgL_arg1409z00_194, BNIL); } 
BgL_arg1401z00_191 = 
MAKE_PAIR(BgL_tvzf3zd2idz21_85, BgL_arg1406z00_193); } 
BgL_arg1398z00_190 = 
MAKE_PAIR(BgL_arg1401z00_191, BNIL); } 
BgL_arg1394z00_188 = 
MAKE_PAIR(BgL_arg1397z00_189, BgL_arg1398z00_190); } 
BGl_producezd2modulezd2clausez12z12zzmodule_modulez00(BgL_arg1394z00_188); } 
{ /* ./Tvector/access.scm 219 */
bool_t BgL_test1417z00_198;
BgL_test1417z00_198 = 
STRINGP(BgL_itemzd2namezd2_78); 
if(BgL_test1417z00_198)
{ /* ./Tvector/access.scm 219 */BFALSE; }  else 
{ /* ./Tvector/access.scm 220 */
obj_t BgL_arg1420z00_200;
{ /* ./Tvector/access.scm 221 */
obj_t BgL_arg1425z00_203;
BgL_arg1425z00_203 = 
SYMBOL_TO_STRING(BgL_itemzd2idzd2_77); 
BgL_arg1420z00_200 = 
string_append_3(BGl_string2776z00zztvector_accessz00, BgL_arg1425z00_203, BGl_string2777z00zztvector_accessz00); } 
BGl_userzd2errorzd2zztools_errorz00(BGl_string2778z00zztvector_accessz00, BgL_arg1420z00_200, BgL_srcz00_2, BNIL); } } 
{ /* ./Tvector/access.scm 227 */
obj_t BgL_arg1431z00_205;obj_t BgL_arg1432z00_206;obj_t BgL_arg1433z00_207;obj_t BgL_arg1434z00_208;obj_t BgL_arg1435z00_209;obj_t BgL_arg1436z00_210;obj_t BgL_arg1437z00_211;obj_t BgL_arg1438z00_212;obj_t BgL_arg1440z00_213;obj_t BgL_arg1441z00_214;
{ /* ./Tvector/access.scm 50 */
obj_t BgL_arg2575z00_680;obj_t BgL_arg2576z00_681;
BgL_arg2575z00_680 = 
CNST_TABLE_REF(((long)11)); 
{ /* ./Tvector/access.scm 50 */
obj_t BgL_arg2579z00_682;obj_t BgL_arg2580z00_683;
{ /* ./Tvector/access.scm 50 */
obj_t BgL_list2583z00_684;
{ /* ./Tvector/access.scm 50 */
obj_t BgL_arg2585z00_685;
{ /* ./Tvector/access.scm 50 */
obj_t BgL_auxz00_992;
BgL_auxz00_992 = 
CNST_TABLE_REF(((long)12)); 
BgL_arg2585z00_685 = 
MAKE_PAIR(BgL_auxz00_992, BNIL); } 
BgL_list2583z00_684 = 
MAKE_PAIR(BgL_descrzd2idzd2_80, BgL_arg2585z00_685); } 
BgL_arg2579z00_682 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2583z00_684); } 
{ /* ./Tvector/access.scm 51 */
obj_t BgL_arg2589z00_686;
{ /* ./Tvector/access.scm 51 */
obj_t BgL_arg2593z00_688;obj_t BgL_arg2594z00_689;
{ /* ./Tvector/access.scm 51 */
obj_t BgL_arg2597z00_690;obj_t BgL_arg2598z00_691;
BgL_arg2597z00_690 = 
CNST_TABLE_REF(((long)13)); 
{ /* ./Tvector/access.scm 51 */
obj_t BgL_arg2601z00_692;obj_t BgL_arg2602z00_693;
BgL_arg2601z00_692 = 
CNST_TABLE_REF(((long)14)); 
{ /* ./Tvector/access.scm 51 */
obj_t BgL_auxz00_999;
BgL_auxz00_999 = 
CNST_TABLE_REF(((long)15)); 
BgL_arg2602z00_693 = 
MAKE_PAIR(BgL_auxz00_999, BNIL); } 
BgL_arg2598z00_691 = 
MAKE_PAIR(BgL_arg2601z00_692, BgL_arg2602z00_693); } 
BgL_arg2593z00_688 = 
MAKE_PAIR(BgL_arg2597z00_690, BgL_arg2598z00_691); } 
{ /* ./Tvector/access.scm 52 */
obj_t BgL_arg2606z00_694;obj_t BgL_arg2607z00_695;
BgL_arg2606z00_694 = 
SYMBOL_TO_STRING(BgL_tvzd2idzd2_73); 
{ /* ./Tvector/access.scm 51 */
obj_t BgL_arg2611z00_696;
{ /* ./Tvector/access.scm 51 */
obj_t BgL_arg2614z00_697;
BgL_arg2614z00_697 = 
MAKE_PAIR(BgL_tvzd2setz12zd2idz12_84, BNIL); 
BgL_arg2611z00_696 = 
MAKE_PAIR(BgL_tvzd2refzd2idz00_83, BgL_arg2614z00_697); } 
BgL_arg2607z00_695 = 
MAKE_PAIR(BgL_tvzd2alloczd2idz00_82, BgL_arg2611z00_696); } 
BgL_arg2594z00_689 = 
MAKE_PAIR(BgL_arg2606z00_694, BgL_arg2607z00_695); } 
BgL_arg2589z00_686 = 
MAKE_PAIR(BgL_arg2593z00_688, BgL_arg2594z00_689); } 
BgL_arg2580z00_683 = 
MAKE_PAIR(BgL_arg2589z00_686, BNIL); } 
BgL_arg2576z00_681 = 
MAKE_PAIR(BgL_arg2579z00_682, BgL_arg2580z00_683); } 
BgL_arg1431z00_205 = 
MAKE_PAIR(BgL_arg2575z00_680, BgL_arg2576z00_681); } 
{ /* ./Tvector/access.scm 68 */
bool_t BgL_test2485z00_641;
{ /* ./Tvector/access.scm 68 */
obj_t BgL_auxz00_1013;
BgL_auxz00_1013 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BGl_za2targetzd2languageza2zd2zzengine_paramz00, 
CNST_TABLE_REF(((long)25))); 
BgL_test2485z00_641 = 
CBOOL(BgL_auxz00_1013); } 
if(BgL_test2485z00_641)
{ /* ./Tvector/access.scm 68 */
{ /* ./Tvector/access.scm 64 */
obj_t BgL_arg2491z00_643;obj_t BgL_arg2492z00_644;
BgL_arg2491z00_643 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Tvector/access.scm 64 */
obj_t BgL_arg2495z00_645;obj_t BgL_arg2496z00_646;
{ /* ./Tvector/access.scm 64 */
obj_t BgL_arg2499z00_647;obj_t BgL_arg2500z00_648;
{ /* ./Tvector/access.scm 64 */
obj_t BgL_list2503z00_649;
{ /* ./Tvector/access.scm 64 */
obj_t BgL_arg2505z00_650;
{ /* ./Tvector/access.scm 64 */
obj_t BgL_auxz00_1019;
BgL_auxz00_1019 = 
CNST_TABLE_REF(((long)17)); 
BgL_arg2505z00_650 = 
MAKE_PAIR(BgL_auxz00_1019, BNIL); } 
BgL_list2503z00_649 = 
MAKE_PAIR(BgL_tvzf3zd2idz21_85, BgL_arg2505z00_650); } 
BgL_arg2499z00_647 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2503z00_649); } 
{ /* ./Tvector/access.scm 64 */
obj_t BgL_auxz00_1024;
BgL_auxz00_1024 = 
CNST_TABLE_REF(((long)18)); 
BgL_arg2500z00_648 = 
MAKE_PAIR(BgL_auxz00_1024, BNIL); } 
BgL_arg2495z00_645 = 
MAKE_PAIR(BgL_arg2499z00_647, BgL_arg2500z00_648); } 
{ /* ./Tvector/access.scm 65 */
obj_t BgL_arg2510z00_651;
{ /* ./Tvector/access.scm 65 */
obj_t BgL_list2514z00_653;
{ /* ./Tvector/access.scm 65 */
obj_t BgL_auxz00_1028;
BgL_auxz00_1028 = 
CNST_TABLE_REF(((long)21)); 
BgL_list2514z00_653 = 
MAKE_PAIR(BgL_auxz00_1028, BNIL); } 
BgL_arg2510z00_651 = 
BGl_makezd2privatezd2sexpz00zzast_privatez00(
CNST_TABLE_REF(((long)24)), BgL_tvzd2idzd2_73, BgL_list2514z00_653); } 
BgL_arg2496z00_646 = 
MAKE_PAIR(BgL_arg2510z00_651, BNIL); } 
BgL_arg2492z00_644 = 
MAKE_PAIR(BgL_arg2495z00_645, BgL_arg2496z00_646); } 
BgL_arg1432z00_206 = 
MAKE_PAIR(BgL_arg2491z00_643, BgL_arg2492z00_644); } }  else 
{ /* ./Tvector/access.scm 68 */
{ /* ./Tvector/access.scm 58 */
obj_t BgL_arg2518z00_655;obj_t BgL_arg2519z00_656;
BgL_arg2518z00_655 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Tvector/access.scm 58 */
obj_t BgL_arg2522z00_657;obj_t BgL_arg2523z00_658;
{ /* ./Tvector/access.scm 58 */
obj_t BgL_arg2526z00_659;obj_t BgL_arg2527z00_660;
{ /* ./Tvector/access.scm 58 */
obj_t BgL_list2530z00_661;
{ /* ./Tvector/access.scm 58 */
obj_t BgL_arg2532z00_662;
{ /* ./Tvector/access.scm 58 */
obj_t BgL_auxz00_1037;
BgL_auxz00_1037 = 
CNST_TABLE_REF(((long)17)); 
BgL_arg2532z00_662 = 
MAKE_PAIR(BgL_auxz00_1037, BNIL); } 
BgL_list2530z00_661 = 
MAKE_PAIR(BgL_tvzf3zd2idz21_85, BgL_arg2532z00_662); } 
BgL_arg2526z00_659 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2530z00_661); } 
{ /* ./Tvector/access.scm 58 */
obj_t BgL_auxz00_1042;
BgL_auxz00_1042 = 
CNST_TABLE_REF(((long)18)); 
BgL_arg2527z00_660 = 
MAKE_PAIR(BgL_auxz00_1042, BNIL); } 
BgL_arg2522z00_657 = 
MAKE_PAIR(BgL_arg2526z00_659, BgL_arg2527z00_660); } 
{ /* ./Tvector/access.scm 59 */
obj_t BgL_arg2537z00_663;
{ /* ./Tvector/access.scm 59 */
obj_t BgL_arg2541z00_665;obj_t BgL_arg2542z00_666;
BgL_arg2541z00_665 = 
CNST_TABLE_REF(((long)19)); 
{ /* ./Tvector/access.scm 59 */
obj_t BgL_arg2545z00_667;obj_t BgL_arg2546z00_668;
{ /* ./Tvector/access.scm 59 */
obj_t BgL_arg2549z00_669;obj_t BgL_arg2550z00_670;
BgL_arg2549z00_669 = 
CNST_TABLE_REF(((long)20)); 
{ /* ./Tvector/access.scm 59 */
obj_t BgL_auxz00_1048;
BgL_auxz00_1048 = 
CNST_TABLE_REF(((long)21)); 
BgL_arg2550z00_670 = 
MAKE_PAIR(BgL_auxz00_1048, BNIL); } 
BgL_arg2545z00_667 = 
MAKE_PAIR(BgL_arg2549z00_669, BgL_arg2550z00_670); } 
{ /* ./Tvector/access.scm 60 */
obj_t BgL_arg2554z00_671;obj_t BgL_arg2555z00_672;
{ /* ./Tvector/access.scm 60 */
obj_t BgL_arg2558z00_673;obj_t BgL_arg2559z00_674;
BgL_arg2558z00_673 = 
CNST_TABLE_REF(((long)22)); 
{ /* ./Tvector/access.scm 60 */
obj_t BgL_arg2563z00_675;obj_t BgL_arg2564z00_676;
{ /* ./Tvector/access.scm 60 */
obj_t BgL_arg2567z00_677;obj_t BgL_arg2568z00_678;
BgL_arg2567z00_677 = 
CNST_TABLE_REF(((long)23)); 
{ /* ./Tvector/access.scm 60 */
obj_t BgL_auxz00_1054;
BgL_auxz00_1054 = 
CNST_TABLE_REF(((long)21)); 
BgL_arg2568z00_678 = 
MAKE_PAIR(BgL_auxz00_1054, BNIL); } 
BgL_arg2563z00_675 = 
MAKE_PAIR(BgL_arg2567z00_677, BgL_arg2568z00_678); } 
BgL_arg2564z00_676 = 
MAKE_PAIR(BgL_descrzd2idzd2_80, BNIL); 
BgL_arg2559z00_674 = 
MAKE_PAIR(BgL_arg2563z00_675, BgL_arg2564z00_676); } 
BgL_arg2554z00_671 = 
MAKE_PAIR(BgL_arg2558z00_673, BgL_arg2559z00_674); } 
BgL_arg2555z00_672 = 
MAKE_PAIR(BFALSE, BNIL); 
BgL_arg2546z00_668 = 
MAKE_PAIR(BgL_arg2554z00_671, BgL_arg2555z00_672); } 
BgL_arg2542z00_666 = 
MAKE_PAIR(BgL_arg2545z00_667, BgL_arg2546z00_668); } 
BgL_arg2537z00_663 = 
MAKE_PAIR(BgL_arg2541z00_665, BgL_arg2542z00_666); } 
BgL_arg2523z00_658 = 
MAKE_PAIR(BgL_arg2537z00_663, BNIL); } 
BgL_arg2519z00_656 = 
MAKE_PAIR(BgL_arg2522z00_657, BgL_arg2523z00_658); } 
BgL_arg1432z00_206 = 
MAKE_PAIR(BgL_arg2518z00_655, BgL_arg2519z00_656); } } } 
{ /* ./Tvector/access.scm 73 */
obj_t BgL_pfmtz00_601;
BgL_pfmtz00_601 = 
string_append_3(BGl_string2766z00zztvector_accessz00, BgL_mitemzd2namezd2_79, BGl_string2767z00zztvector_accessz00); 
{ /* ./Tvector/access.scm 73 */
obj_t BgL_expz00_602;
{ /* ./Tvector/access.scm 74 */
obj_t BgL_list2467z00_633;
{ /* ./Tvector/access.scm 74 */
obj_t BgL_arg2469z00_634;
{ /* ./Tvector/access.scm 74 */
obj_t BgL_arg2472z00_635;obj_t BgL_arg2473z00_636;
BgL_arg2472z00_635 = 
CNST_TABLE_REF(((long)26)); 
{ /* ./Tvector/access.scm 75 */
obj_t BgL_arg2476z00_637;
{ /* ./Tvector/access.scm 75 */
obj_t BgL_arg2479z00_638;obj_t BgL_arg2480z00_639;
BgL_arg2479z00_638 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Tvector/access.scm 74 */
obj_t BgL_auxz00_1071;
BgL_auxz00_1071 = 
CNST_TABLE_REF(((long)21)); 
BgL_arg2480z00_639 = 
MAKE_PAIR(BgL_auxz00_1071, BNIL); } 
BgL_arg2476z00_637 = 
MAKE_PAIR(BgL_arg2479z00_638, BgL_arg2480z00_639); } 
BgL_arg2473z00_636 = 
MAKE_PAIR(BgL_pfmtz00_601, BgL_arg2476z00_637); } 
BgL_arg2469z00_634 = 
MAKE_PAIR(BgL_arg2472z00_635, BgL_arg2473z00_636); } 
BgL_list2467z00_633 = 
MAKE_PAIR(BgL_itemzd2idzd2_77, BgL_arg2469z00_634); } 
BgL_expz00_602 = 
BGl_makezd2privatezd2sexpz00zzast_privatez00(
CNST_TABLE_REF(((long)28)), BgL_tvzd2idzd2_73, BgL_list2467z00_633); } 
{ /* ./Tvector/access.scm 74 */

{ /* ./Tvector/access.scm 76 */
obj_t BgL_arg2399z00_603;obj_t BgL_arg2400z00_604;
BgL_arg2399z00_603 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Tvector/access.scm 76 */
obj_t BgL_arg2403z00_605;obj_t BgL_arg2404z00_606;
{ /* ./Tvector/access.scm 76 */
obj_t BgL_arg2407z00_607;obj_t BgL_arg2408z00_608;
BgL_arg2407z00_607 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_tvzd2refzd2idz00_83, BgL_itemzd2idzd2_77); 
{ /* ./Tvector/access.scm 77 */
obj_t BgL_arg2412z00_609;obj_t BgL_arg2413z00_610;
BgL_arg2412z00_609 = 
BGl_makezd2typedzd2identz00zzast_identz00(
CNST_TABLE_REF(((long)27)), BgL_tvzd2idzd2_73); 
{ /* ./Tvector/access.scm 76 */
obj_t BgL_auxz00_1084;
BgL_auxz00_1084 = 
CNST_TABLE_REF(((long)29)); 
BgL_arg2413z00_610 = 
MAKE_PAIR(BgL_auxz00_1084, BNIL); } 
BgL_arg2408z00_608 = 
MAKE_PAIR(BgL_arg2412z00_609, BgL_arg2413z00_610); } 
BgL_arg2403z00_605 = 
MAKE_PAIR(BgL_arg2407z00_607, BgL_arg2408z00_608); } 
{ /* ./Tvector/access.scm 79 */
obj_t BgL_arg2418z00_611;
if(
CBOOL(BGl_za2unsafezd2rangeza2zd2zzengine_paramz00))
{ /* ./Tvector/access.scm 79 */
BgL_arg2418z00_611 = BgL_expz00_602; }  else 
{ /* ./Tvector/access.scm 83 */
obj_t BgL_arg2422z00_613;obj_t BgL_arg2423z00_614;
BgL_arg2422z00_613 = 
CNST_TABLE_REF(((long)19)); 
{ /* ./Tvector/access.scm 81 */
obj_t BgL_arg2427z00_615;obj_t BgL_arg2428z00_616;
{ /* ./Tvector/access.scm 81 */
obj_t BgL_arg2431z00_617;obj_t BgL_arg2432z00_618;
BgL_arg2431z00_617 = 
CNST_TABLE_REF(((long)30)); 
{ /* ./Tvector/access.scm 81 */
obj_t BgL_arg2435z00_619;obj_t BgL_arg2436z00_620;
BgL_arg2435z00_619 = 
CNST_TABLE_REF(((long)21)); 
{ /* ./Tvector/access.scm 81 */
obj_t BgL_arg2439z00_621;
{ /* ./Tvector/access.scm 81 */
obj_t BgL_arg2443z00_623;obj_t BgL_arg2444z00_624;
BgL_arg2443z00_623 = 
CNST_TABLE_REF(((long)31)); 
{ /* ./Tvector/access.scm 81 */
obj_t BgL_auxz00_1095;
BgL_auxz00_1095 = 
CNST_TABLE_REF(((long)27)); 
BgL_arg2444z00_624 = 
MAKE_PAIR(BgL_auxz00_1095, BNIL); } 
BgL_arg2439z00_621 = 
MAKE_PAIR(BgL_arg2443z00_623, BgL_arg2444z00_624); } 
BgL_arg2436z00_620 = 
MAKE_PAIR(BgL_arg2439z00_621, BNIL); } 
BgL_arg2432z00_618 = 
MAKE_PAIR(BgL_arg2435z00_619, BgL_arg2436z00_620); } 
BgL_arg2427z00_615 = 
MAKE_PAIR(BgL_arg2431z00_617, BgL_arg2432z00_618); } 
{ /* ./Tvector/access.scm 83 */
obj_t BgL_arg2448z00_625;
{ /* ./Tvector/access.scm 83 */
obj_t BgL_arg2451z00_626;
{ /* ./Tvector/access.scm 83 */
obj_t BgL_arg2455z00_628;obj_t BgL_arg2456z00_629;
BgL_arg2455z00_628 = 
CNST_TABLE_REF(((long)32)); 
{ /* ./Tvector/access.scm 83 */
obj_t BgL_arg2459z00_630;
{ /* ./Tvector/access.scm 83 */
obj_t BgL_arg2463z00_632;
{ /* ./Tvector/access.scm 83 */
obj_t BgL_auxz00_1103;
BgL_auxz00_1103 = 
CNST_TABLE_REF(((long)21)); 
BgL_arg2463z00_632 = 
MAKE_PAIR(BgL_auxz00_1103, BNIL); } 
BgL_arg2459z00_630 = 
MAKE_PAIR(BGl_string2768z00zztvector_accessz00, BgL_arg2463z00_632); } 
BgL_arg2456z00_629 = 
MAKE_PAIR(BgL_tvzd2refzd2idz00_83, BgL_arg2459z00_630); } 
BgL_arg2451z00_626 = 
MAKE_PAIR(BgL_arg2455z00_628, BgL_arg2456z00_629); } 
BgL_arg2448z00_625 = 
MAKE_PAIR(BgL_arg2451z00_626, BNIL); } 
BgL_arg2428z00_616 = 
MAKE_PAIR(BgL_expz00_602, BgL_arg2448z00_625); } 
BgL_arg2423z00_614 = 
MAKE_PAIR(BgL_arg2427z00_615, BgL_arg2428z00_616); } 
BgL_arg2418z00_611 = 
MAKE_PAIR(BgL_arg2422z00_613, BgL_arg2423z00_614); } 
BgL_arg2404z00_606 = 
MAKE_PAIR(BgL_arg2418z00_611, BNIL); } 
BgL_arg2400z00_604 = 
MAKE_PAIR(BgL_arg2403z00_605, BgL_arg2404z00_606); } 
BgL_arg1433z00_207 = 
MAKE_PAIR(BgL_arg2399z00_603, BgL_arg2400z00_604); } } } } 
{ /* ./Tvector/access.scm 86 */
obj_t BgL_pfmtz00_550;
BgL_pfmtz00_550 = 
string_append_3(BGl_string2769z00zztvector_accessz00, BgL_mitemzd2namezd2_79, BGl_string2770z00zztvector_accessz00); 
{ /* ./Tvector/access.scm 86 */
obj_t BgL_expz00_551;
{ /* ./Tvector/access.scm 87 */
obj_t BgL_list2375z00_591;
{ /* ./Tvector/access.scm 87 */
obj_t BgL_arg2377z00_592;
{ /* ./Tvector/access.scm 87 */
obj_t BgL_arg2381z00_593;obj_t BgL_arg2382z00_594;
BgL_arg2381z00_593 = 
CNST_TABLE_REF(((long)26)); 
{ /* ./Tvector/access.scm 88 */
obj_t BgL_arg2385z00_595;
{ /* ./Tvector/access.scm 88 */
obj_t BgL_arg2388z00_596;obj_t BgL_arg2389z00_597;
BgL_arg2388z00_596 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Tvector/access.scm 88 */
obj_t BgL_arg2392z00_598;obj_t BgL_arg2393z00_599;
BgL_arg2392z00_598 = 
CNST_TABLE_REF(((long)21)); 
{ /* ./Tvector/access.scm 87 */
obj_t BgL_auxz00_1120;
BgL_auxz00_1120 = 
CNST_TABLE_REF(((long)33)); 
BgL_arg2393z00_599 = 
MAKE_PAIR(BgL_auxz00_1120, BNIL); } 
BgL_arg2389z00_597 = 
MAKE_PAIR(BgL_arg2392z00_598, BgL_arg2393z00_599); } 
BgL_arg2385z00_595 = 
MAKE_PAIR(BgL_arg2388z00_596, BgL_arg2389z00_597); } 
BgL_arg2382z00_594 = 
MAKE_PAIR(BgL_pfmtz00_550, BgL_arg2385z00_595); } 
BgL_arg2377z00_592 = 
MAKE_PAIR(BgL_arg2381z00_593, BgL_arg2382z00_594); } 
BgL_list2375z00_591 = 
MAKE_PAIR(BgL_itemzd2idzd2_77, BgL_arg2377z00_592); } 
BgL_expz00_551 = 
BGl_makezd2privatezd2sexpz00zzast_privatez00(
CNST_TABLE_REF(((long)34)), BgL_tvzd2idzd2_73, BgL_list2375z00_591); } 
{ /* ./Tvector/access.scm 87 */

{ /* ./Tvector/access.scm 89 */
obj_t BgL_arg2285z00_552;obj_t BgL_arg2286z00_553;
BgL_arg2285z00_552 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Tvector/access.scm 89 */
obj_t BgL_arg2289z00_554;obj_t BgL_arg2290z00_555;
{ /* ./Tvector/access.scm 89 */
obj_t BgL_arg2293z00_556;obj_t BgL_arg2294z00_557;
{ /* ./Tvector/access.scm 89 */
obj_t BgL_list2297z00_558;
{ /* ./Tvector/access.scm 89 */
obj_t BgL_arg2299z00_559;
{ /* ./Tvector/access.scm 89 */
obj_t BgL_auxz00_1131;
BgL_auxz00_1131 = 
CNST_TABLE_REF(((long)12)); 
BgL_arg2299z00_559 = 
MAKE_PAIR(BgL_auxz00_1131, BNIL); } 
BgL_list2297z00_558 = 
MAKE_PAIR(BgL_tvzd2setz12zd2idz12_84, BgL_arg2299z00_559); } 
BgL_arg2293z00_556 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list2297z00_558); } 
{ /* ./Tvector/access.scm 90 */
obj_t BgL_arg2303z00_560;obj_t BgL_arg2304z00_561;
BgL_arg2303z00_560 = 
BGl_makezd2typedzd2identz00zzast_identz00(
CNST_TABLE_REF(((long)27)), BgL_tvzd2idzd2_73); 
{ /* ./Tvector/access.scm 89 */
obj_t BgL_arg2308z00_562;obj_t BgL_arg2309z00_563;
BgL_arg2308z00_562 = 
CNST_TABLE_REF(((long)29)); 
{ /* ./Tvector/access.scm 92 */
obj_t BgL_arg2312z00_564;
BgL_arg2312z00_564 = 
BGl_makezd2typedzd2identz00zzast_identz00(
CNST_TABLE_REF(((long)33)), BgL_itemzd2idzd2_77); 
BgL_arg2309z00_563 = 
MAKE_PAIR(BgL_arg2312z00_564, BNIL); } 
BgL_arg2304z00_561 = 
MAKE_PAIR(BgL_arg2308z00_562, BgL_arg2309z00_563); } 
BgL_arg2294z00_557 = 
MAKE_PAIR(BgL_arg2303z00_560, BgL_arg2304z00_561); } 
BgL_arg2289z00_554 = 
MAKE_PAIR(BgL_arg2293z00_556, BgL_arg2294z00_557); } 
{ /* ./Tvector/access.scm 93 */
obj_t BgL_arg2317z00_566;
if(
CBOOL(BGl_za2unsafezd2rangeza2zd2zzengine_paramz00))
{ /* ./Tvector/access.scm 93 */
BgL_arg2317z00_566 = BgL_expz00_551; }  else 
{ /* ./Tvector/access.scm 100 */
obj_t BgL_arg2321z00_568;obj_t BgL_arg2322z00_569;
BgL_arg2321z00_568 = 
CNST_TABLE_REF(((long)19)); 
{ /* ./Tvector/access.scm 95 */
obj_t BgL_arg2325z00_570;obj_t BgL_arg2326z00_571;
{ /* ./Tvector/access.scm 95 */
obj_t BgL_arg2329z00_572;obj_t BgL_arg2330z00_573;
BgL_arg2329z00_572 = 
CNST_TABLE_REF(((long)30)); 
{ /* ./Tvector/access.scm 95 */
obj_t BgL_arg2333z00_574;obj_t BgL_arg2334z00_575;
BgL_arg2333z00_574 = 
CNST_TABLE_REF(((long)21)); 
{ /* ./Tvector/access.scm 95 */
obj_t BgL_arg2337z00_576;
{ /* ./Tvector/access.scm 95 */
obj_t BgL_arg2342z00_578;obj_t BgL_arg2343z00_579;
BgL_arg2342z00_578 = 
CNST_TABLE_REF(((long)31)); 
{ /* ./Tvector/access.scm 95 */
obj_t BgL_auxz00_1151;
BgL_auxz00_1151 = 
CNST_TABLE_REF(((long)27)); 
BgL_arg2343z00_579 = 
MAKE_PAIR(BgL_auxz00_1151, BNIL); } 
BgL_arg2337z00_576 = 
MAKE_PAIR(BgL_arg2342z00_578, BgL_arg2343z00_579); } 
BgL_arg2334z00_575 = 
MAKE_PAIR(BgL_arg2337z00_576, BNIL); } 
BgL_arg2330z00_573 = 
MAKE_PAIR(BgL_arg2333z00_574, BgL_arg2334z00_575); } 
BgL_arg2325z00_570 = 
MAKE_PAIR(BgL_arg2329z00_572, BgL_arg2330z00_573); } 
{ /* ./Tvector/access.scm 97 */
obj_t BgL_arg2348z00_580;
{ /* ./Tvector/access.scm 97 */
obj_t BgL_arg2351z00_581;
{ /* ./Tvector/access.scm 97 */
obj_t BgL_arg2356z00_583;obj_t BgL_arg2357z00_584;
BgL_arg2356z00_583 = 
CNST_TABLE_REF(((long)32)); 
{ /* ./Tvector/access.scm 97 */
obj_t BgL_arg2360z00_585;obj_t BgL_arg2361z00_586;
{ /* ./Tvector/access.scm 97 */
obj_t BgL_arg2364z00_587;
BgL_arg2364z00_587 = 
SYMBOL_TO_STRING(BgL_tvzd2idzd2_73); 
BgL_arg2360z00_585 = 
string_append(BgL_arg2364z00_587, BGl_string2771z00zztvector_accessz00); } 
{ /* ./Tvector/access.scm 97 */
obj_t BgL_arg2371z00_590;
{ /* ./Tvector/access.scm 97 */
obj_t BgL_auxz00_1161;
BgL_auxz00_1161 = 
CNST_TABLE_REF(((long)21)); 
BgL_arg2371z00_590 = 
MAKE_PAIR(BgL_auxz00_1161, BNIL); } 
BgL_arg2361z00_586 = 
MAKE_PAIR(BGl_string2768z00zztvector_accessz00, BgL_arg2371z00_590); } 
BgL_arg2357z00_584 = 
MAKE_PAIR(BgL_arg2360z00_585, BgL_arg2361z00_586); } 
BgL_arg2351z00_581 = 
MAKE_PAIR(BgL_arg2356z00_583, BgL_arg2357z00_584); } 
BgL_arg2348z00_580 = 
MAKE_PAIR(BgL_arg2351z00_581, BNIL); } 
BgL_arg2326z00_571 = 
MAKE_PAIR(BgL_expz00_551, BgL_arg2348z00_580); } 
BgL_arg2322z00_569 = 
MAKE_PAIR(BgL_arg2325z00_570, BgL_arg2326z00_571); } 
BgL_arg2317z00_566 = 
MAKE_PAIR(BgL_arg2321z00_568, BgL_arg2322z00_569); } 
BgL_arg2290z00_555 = 
MAKE_PAIR(BgL_arg2317z00_566, BNIL); } 
BgL_arg2286z00_553 = 
MAKE_PAIR(BgL_arg2289z00_554, BgL_arg2290z00_555); } 
BgL_arg1434z00_208 = 
MAKE_PAIR(BgL_arg2285z00_552, BgL_arg2286z00_553); } } } } 
{ /* ./Tvector/access.scm 103 */
obj_t BgL_arg2111z00_471;obj_t BgL_arg2112z00_472;
BgL_arg2111z00_471 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Tvector/access.scm 103 */
obj_t BgL_arg2115z00_473;obj_t BgL_arg2116z00_474;
{ /* ./Tvector/access.scm 103 */
obj_t BgL_arg2119z00_475;obj_t BgL_arg2120z00_476;
BgL_arg2119z00_475 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_tvzd2makezd2idz00_81, BgL_tvzd2idzd2_73); 
{ /* ./Tvector/access.scm 103 */
obj_t BgL_arg2124z00_477;obj_t BgL_arg2125z00_478;
BgL_arg2124z00_477 = 
CNST_TABLE_REF(((long)35)); 
{ /* ./Tvector/access.scm 105 */
obj_t BgL_arg2128z00_479;
BgL_arg2128z00_479 = 
BGl_makezd2typedzd2identz00zzast_identz00(
CNST_TABLE_REF(((long)33)), BgL_itemzd2idzd2_77); 
BgL_arg2125z00_478 = 
MAKE_PAIR(BgL_arg2128z00_479, BNIL); } 
BgL_arg2120z00_476 = 
MAKE_PAIR(BgL_arg2124z00_477, BgL_arg2125z00_478); } 
BgL_arg2115z00_473 = 
MAKE_PAIR(BgL_arg2119z00_475, BgL_arg2120z00_476); } 
{ /* ./Tvector/access.scm 106 */
obj_t BgL_arg2133z00_481;
{ /* ./Tvector/access.scm 106 */
obj_t BgL_arg2138z00_483;obj_t BgL_arg2139z00_484;
BgL_arg2138z00_483 = 
CNST_TABLE_REF(((long)36)); 
{ /* ./Tvector/access.scm 106 */
obj_t BgL_arg2142z00_485;obj_t BgL_arg2143z00_486;
{ /* ./Tvector/access.scm 106 */
obj_t BgL_arg2146z00_487;
{ /* ./Tvector/access.scm 106 */
obj_t BgL_arg2150z00_489;obj_t BgL_arg2151z00_490;
BgL_arg2150z00_489 = 
BGl_makezd2typedzd2identz00zzast_identz00(
CNST_TABLE_REF(((long)27)), BgL_tvzd2idzd2_73); 
{ /* ./Tvector/access.scm 106 */
obj_t BgL_arg2155z00_491;
{ /* ./Tvector/access.scm 106 */
obj_t BgL_arg2159z00_493;
{ /* ./Tvector/access.scm 106 */
obj_t BgL_auxz00_1185;
BgL_auxz00_1185 = 
CNST_TABLE_REF(((long)37)); 
BgL_arg2159z00_493 = 
MAKE_PAIR(BgL_auxz00_1185, BNIL); } 
BgL_arg2155z00_491 = 
MAKE_PAIR(BgL_tvzd2alloczd2idz00_82, BgL_arg2159z00_493); } 
BgL_arg2151z00_490 = 
MAKE_PAIR(BgL_arg2155z00_491, BNIL); } 
BgL_arg2146z00_487 = 
MAKE_PAIR(BgL_arg2150z00_489, BgL_arg2151z00_490); } 
BgL_arg2142z00_485 = 
MAKE_PAIR(BgL_arg2146z00_487, BNIL); } 
{ /* ./Tvector/access.scm 107 */
obj_t BgL_arg2163z00_494;
{ /* ./Tvector/access.scm 107 */
obj_t BgL_arg2168z00_496;obj_t BgL_arg2169z00_497;
BgL_arg2168z00_496 = 
CNST_TABLE_REF(((long)38)); 
{ /* ./Tvector/access.scm 107 */
obj_t BgL_arg2172z00_498;obj_t BgL_arg2173z00_499;
{ /* ./Tvector/access.scm 107 */
obj_t BgL_arg2176z00_500;
{ /* ./Tvector/access.scm 107 */
obj_t BgL_arg2180z00_502;obj_t BgL_arg2181z00_503;
BgL_arg2180z00_502 = 
BGl_makezd2typedzd2identz00zzast_identz00(
CNST_TABLE_REF(((long)39)), BgL_tvzd2idzd2_73); 
{ /* ./Tvector/access.scm 107 */
obj_t BgL_arg2185z00_504;obj_t BgL_arg2187z00_505;
{ /* ./Tvector/access.scm 107 */
obj_t BgL_auxz00_1195;
BgL_auxz00_1195 = 
CNST_TABLE_REF(((long)40)); 
BgL_arg2185z00_504 = 
MAKE_PAIR(BgL_auxz00_1195, BNIL); } 
{ /* ./Tvector/access.scm 108 */
obj_t BgL_arg2191z00_506;
{ /* ./Tvector/access.scm 108 */
obj_t BgL_arg2195z00_508;obj_t BgL_arg2196z00_509;
BgL_arg2195z00_508 = 
CNST_TABLE_REF(((long)19)); 
{ /* ./Tvector/access.scm 108 */
obj_t BgL_arg2199z00_510;obj_t BgL_arg2200z00_511;
{ /* ./Tvector/access.scm 108 */
obj_t BgL_arg2203z00_512;obj_t BgL_arg2204z00_513;
BgL_arg2203z00_512 = 
CNST_TABLE_REF(((long)41)); 
{ /* ./Tvector/access.scm 108 */
obj_t BgL_arg2207z00_514;obj_t BgL_arg2209z00_515;
BgL_arg2207z00_514 = 
CNST_TABLE_REF(((long)42)); 
{ /* ./Tvector/access.scm 108 */
obj_t BgL_auxz00_1201;
BgL_auxz00_1201 = 
CNST_TABLE_REF(((long)37)); 
BgL_arg2209z00_515 = 
MAKE_PAIR(BgL_auxz00_1201, BNIL); } 
BgL_arg2204z00_513 = 
MAKE_PAIR(BgL_arg2207z00_514, BgL_arg2209z00_515); } 
BgL_arg2199z00_510 = 
MAKE_PAIR(BgL_arg2203z00_512, BgL_arg2204z00_513); } 
{ /* ./Tvector/access.scm 108 */
obj_t BgL_arg2213z00_516;obj_t BgL_arg2214z00_517;
BgL_arg2213z00_516 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Tvector/access.scm 110 */
obj_t BgL_arg2217z00_518;
{ /* ./Tvector/access.scm 110 */
obj_t BgL_arg2221z00_520;obj_t BgL_arg2222z00_521;
BgL_arg2221z00_520 = 
CNST_TABLE_REF(((long)36)); 
{ /* ./Tvector/access.scm 110 */
obj_t BgL_arg2225z00_522;obj_t BgL_arg2226z00_523;
{ /* ./Tvector/access.scm 110 */
obj_t BgL_arg2229z00_524;
{ /* ./Tvector/access.scm 110 */
obj_t BgL_arg2233z00_526;obj_t BgL_arg2234z00_527;
BgL_arg2233z00_526 = 
CNST_TABLE_REF(((long)43)); 
{ /* ./Tvector/access.scm 110 */
obj_t BgL_arg2237z00_528;
{ /* ./Tvector/access.scm 110 */
obj_t BgL_arg2241z00_530;obj_t BgL_arg2242z00_531;
BgL_arg2241z00_530 = 
CNST_TABLE_REF(((long)44)); 
{ /* ./Tvector/access.scm 110 */
obj_t BgL_arg2245z00_532;obj_t BgL_arg2246z00_533;
BgL_arg2245z00_532 = 
CNST_TABLE_REF(((long)42)); 
{ /* ./Tvector/access.scm 110 */
obj_t BgL_auxz00_1211;
BgL_auxz00_1211 = 
BINT(((long)1)); 
BgL_arg2246z00_533 = 
MAKE_PAIR(BgL_auxz00_1211, BNIL); } 
BgL_arg2242z00_531 = 
MAKE_PAIR(BgL_arg2245z00_532, BgL_arg2246z00_533); } 
BgL_arg2237z00_528 = 
MAKE_PAIR(BgL_arg2241z00_530, BgL_arg2242z00_531); } 
BgL_arg2234z00_527 = 
MAKE_PAIR(BgL_arg2237z00_528, BNIL); } 
BgL_arg2229z00_524 = 
MAKE_PAIR(BgL_arg2233z00_526, BgL_arg2234z00_527); } 
BgL_arg2225z00_522 = 
MAKE_PAIR(BgL_arg2229z00_524, BNIL); } 
{ /* ./Tvector/access.scm 111 */
obj_t BgL_arg2250z00_534;obj_t BgL_arg2251z00_535;
{ /* ./Tvector/access.scm 111 */
obj_t BgL_arg2254z00_536;
{ /* ./Tvector/access.scm 111 */
obj_t BgL_arg2257z00_537;obj_t BgL_arg2258z00_538;
BgL_arg2257z00_537 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Tvector/access.scm 111 */
obj_t BgL_arg2261z00_539;obj_t BgL_arg2262z00_540;
BgL_arg2261z00_539 = 
CNST_TABLE_REF(((long)42)); 
{ /* ./Tvector/access.scm 111 */
obj_t BgL_auxz00_1221;
BgL_auxz00_1221 = 
CNST_TABLE_REF(((long)33)); 
BgL_arg2262z00_540 = 
MAKE_PAIR(BgL_auxz00_1221, BNIL); } 
BgL_arg2258z00_538 = 
MAKE_PAIR(BgL_arg2261z00_539, BgL_arg2262z00_540); } 
BgL_arg2254z00_536 = 
MAKE_PAIR(BgL_arg2257z00_537, BgL_arg2258z00_538); } 
BgL_arg2250z00_534 = 
MAKE_PAIR(BgL_tvzd2setz12zd2idz12_84, BgL_arg2254z00_536); } 
{ /* ./Tvector/access.scm 112 */
obj_t BgL_arg2266z00_541;
{ /* ./Tvector/access.scm 112 */
obj_t BgL_arg2270z00_543;obj_t BgL_arg2271z00_544;
BgL_arg2270z00_543 = 
CNST_TABLE_REF(((long)39)); 
{ /* ./Tvector/access.scm 112 */
obj_t BgL_auxz00_1228;
BgL_auxz00_1228 = 
CNST_TABLE_REF(((long)45)); 
BgL_arg2271z00_544 = 
MAKE_PAIR(BgL_auxz00_1228, BNIL); } 
BgL_arg2266z00_541 = 
MAKE_PAIR(BgL_arg2270z00_543, BgL_arg2271z00_544); } 
BgL_arg2251z00_535 = 
MAKE_PAIR(BgL_arg2266z00_541, BNIL); } 
BgL_arg2226z00_523 = 
MAKE_PAIR(BgL_arg2250z00_534, BgL_arg2251z00_535); } 
BgL_arg2222z00_521 = 
MAKE_PAIR(BgL_arg2225z00_522, BgL_arg2226z00_523); } 
BgL_arg2217z00_518 = 
MAKE_PAIR(BgL_arg2221z00_520, BgL_arg2222z00_521); } 
BgL_arg2214z00_517 = 
MAKE_PAIR(BgL_arg2217z00_518, BNIL); } 
BgL_arg2200z00_511 = 
MAKE_PAIR(BgL_arg2213z00_516, BgL_arg2214z00_517); } 
BgL_arg2196z00_509 = 
MAKE_PAIR(BgL_arg2199z00_510, BgL_arg2200z00_511); } 
BgL_arg2191z00_506 = 
MAKE_PAIR(BgL_arg2195z00_508, BgL_arg2196z00_509); } 
BgL_arg2187z00_505 = 
MAKE_PAIR(BgL_arg2191z00_506, BNIL); } 
BgL_arg2181z00_503 = 
MAKE_PAIR(BgL_arg2185z00_504, BgL_arg2187z00_505); } 
BgL_arg2176z00_500 = 
MAKE_PAIR(BgL_arg2180z00_502, BgL_arg2181z00_503); } 
BgL_arg2172z00_498 = 
MAKE_PAIR(BgL_arg2176z00_500, BNIL); } 
{ /* ./Tvector/access.scm 113 */
obj_t BgL_arg2275z00_545;
{ /* ./Tvector/access.scm 113 */
obj_t BgL_arg2279z00_547;obj_t BgL_arg2280z00_548;
BgL_arg2279z00_547 = 
CNST_TABLE_REF(((long)39)); 
{ /* ./Tvector/access.scm 113 */
obj_t BgL_auxz00_1245;
BgL_auxz00_1245 = 
BINT(((long)0)); 
BgL_arg2280z00_548 = 
MAKE_PAIR(BgL_auxz00_1245, BNIL); } 
BgL_arg2275z00_545 = 
MAKE_PAIR(BgL_arg2279z00_547, BgL_arg2280z00_548); } 
BgL_arg2173z00_499 = 
MAKE_PAIR(BgL_arg2275z00_545, BNIL); } 
BgL_arg2169z00_497 = 
MAKE_PAIR(BgL_arg2172z00_498, BgL_arg2173z00_499); } 
BgL_arg2163z00_494 = 
MAKE_PAIR(BgL_arg2168z00_496, BgL_arg2169z00_497); } 
BgL_arg2143z00_486 = 
MAKE_PAIR(BgL_arg2163z00_494, BNIL); } 
BgL_arg2139z00_484 = 
MAKE_PAIR(BgL_arg2142z00_485, BgL_arg2143z00_486); } 
BgL_arg2133z00_481 = 
MAKE_PAIR(BgL_arg2138z00_483, BgL_arg2139z00_484); } 
BgL_arg2116z00_474 = 
MAKE_PAIR(BgL_arg2133z00_481, BNIL); } 
BgL_arg2112z00_472 = 
MAKE_PAIR(BgL_arg2115z00_473, BgL_arg2116z00_474); } 
BgL_arg1435z00_209 = 
MAKE_PAIR(BgL_arg2111z00_471, BgL_arg2112z00_472); } 
{ /* ./Tvector/access.scm 149 */
bool_t BgL_test1878z00_379;
{ /* ./Tvector/access.scm 149 */
obj_t BgL_auxz00_1258;
BgL_auxz00_1258 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BGl_za2targetzd2languageza2zd2zzengine_paramz00, 
CNST_TABLE_REF(((long)25))); 
BgL_test1878z00_379 = 
CBOOL(BgL_auxz00_1258); } 
if(BgL_test1878z00_379)
{ /* ./Tvector/access.scm 149 */
{ /* ./Tvector/access.scm 133 */
obj_t BgL_arg1884z00_381;obj_t BgL_arg1885z00_382;
BgL_arg1884z00_381 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Tvector/access.scm 133 */
obj_t BgL_arg1888z00_383;obj_t BgL_arg1889z00_384;
{ /* ./Tvector/access.scm 133 */
obj_t BgL_arg1892z00_385;obj_t BgL_arg1893z00_386;
BgL_arg1892z00_385 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_tvzd2alloczd2idz00_82, BgL_tvzd2idzd2_73); 
{ /* ./Tvector/access.scm 133 */
obj_t BgL_auxz00_1265;
BgL_auxz00_1265 = 
CNST_TABLE_REF(((long)35)); 
BgL_arg1893z00_386 = 
MAKE_PAIR(BgL_auxz00_1265, BNIL); } 
BgL_arg1888z00_383 = 
MAKE_PAIR(BgL_arg1892z00_385, BgL_arg1893z00_386); } 
{ /* ./Tvector/access.scm 134 */
obj_t BgL_arg1898z00_387;
{ /* ./Tvector/access.scm 134 */
obj_t BgL_arg1905z00_389;obj_t BgL_arg1906z00_390;
BgL_arg1905z00_389 = 
CNST_TABLE_REF(((long)36)); 
{ /* ./Tvector/access.scm 134 */
obj_t BgL_arg1911z00_391;obj_t BgL_arg1915z00_392;
{ /* ./Tvector/access.scm 134 */
obj_t BgL_arg1919z00_393;
{ /* ./Tvector/access.scm 134 */
obj_t BgL_arg1924z00_395;obj_t BgL_arg1925z00_396;
BgL_arg1924z00_395 = 
CNST_TABLE_REF(((long)21)); 
{ /* ./Tvector/access.scm 134 */
obj_t BgL_arg1928z00_397;
{ /* ./Tvector/access.scm 134 */
obj_t BgL_arg1933z00_399;obj_t BgL_arg1934z00_400;obj_t BgL_arg1935z00_401;obj_t BgL_arg1936z00_402;obj_t BgL_arg1938z00_403;
BgL_arg1933z00_399 = 
CNST_TABLE_REF(((long)46)); 
BgL_arg1934z00_400 = 
CNST_TABLE_REF(((long)26)); 
{ /* ./Tvector/access.scm 135 */
char * BgL_arg1962z00_410;
BgL_arg1962z00_410 = 
BGl_allocatezd2tvectorzd2zztvector_accessz00(BgL_itemzd2namezd2_78); 
{ /* ./Tvector/access.scm 135 */
obj_t BgL_list1966z00_413;
{ /* ./Tvector/access.scm 135 */
obj_t BgL_arg1968z00_414;
{ /* ./Tvector/access.scm 135 */
obj_t BgL_arg1971z00_415;
{ /* ./Tvector/access.scm 135 */
obj_t BgL_arg1974z00_416;
{ /* ./Tvector/access.scm 135 */
obj_t BgL_arg1977z00_417;
BgL_arg1977z00_417 = 
MAKE_PAIR(BGl_string2772z00zztvector_accessz00, BNIL); 
BgL_arg1974z00_416 = 
MAKE_PAIR(BgL_itemzd2namezd2_78, BgL_arg1977z00_417); } 
BgL_arg1971z00_415 = 
MAKE_PAIR(BGl_string2773z00zztvector_accessz00, BgL_arg1974z00_416); } 
BgL_arg1968z00_414 = 
MAKE_PAIR(BgL_mitemzd2namezd2_79, BgL_arg1971z00_415); } 
{ /* ./Tvector/access.scm 135 */
obj_t BgL_auxz00_1278;
BgL_auxz00_1278 = 
string_to_bstring(BgL_arg1962z00_410); 
BgL_list1966z00_413 = 
MAKE_PAIR(BgL_auxz00_1278, BgL_arg1968z00_414); } } 
BgL_arg1935z00_401 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1966z00_413); } } 
{ /* ./Tvector/access.scm 139 */
obj_t BgL_list1982z00_418;
{ /* ./Tvector/access.scm 139 */
obj_t BgL_arg1987z00_420;
{ /* ./Tvector/access.scm 139 */
obj_t BgL_arg1990z00_421;
{ /* ./Tvector/access.scm 139 */
obj_t BgL_arg1994z00_423;
{ /* ./Tvector/access.scm 139 */
obj_t BgL_arg2000z00_424;
BgL_arg2000z00_424 = 
MAKE_PAIR(BGl_string2772z00zztvector_accessz00, BNIL); 
BgL_arg1994z00_423 = 
MAKE_PAIR(BgL_itemzd2namezd2_78, BgL_arg2000z00_424); } 
BgL_arg1990z00_421 = 
MAKE_PAIR(BGl_string2773z00zztvector_accessz00, BgL_arg1994z00_423); } 
BgL_arg1987z00_420 = 
MAKE_PAIR(BgL_mitemzd2namezd2_79, BgL_arg1990z00_421); } 
BgL_list1982z00_418 = 
MAKE_PAIR(BGl_string2774z00zztvector_accessz00, BgL_arg1987z00_420); } 
BgL_arg1936z00_402 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1982z00_418); } 
BgL_arg1938z00_403 = 
CNST_TABLE_REF(((long)37)); 
{ /* ./Tvector/access.scm 134 */
obj_t BgL_list1940z00_404;
{ /* ./Tvector/access.scm 134 */
obj_t BgL_arg1945z00_405;
{ /* ./Tvector/access.scm 134 */
obj_t BgL_arg1948z00_406;
{ /* ./Tvector/access.scm 134 */
obj_t BgL_arg1951z00_407;
{ /* ./Tvector/access.scm 134 */
obj_t BgL_arg1954z00_408;
{ /* ./Tvector/access.scm 134 */
obj_t BgL_arg1958z00_409;
BgL_arg1958z00_409 = 
MAKE_PAIR(BgL_arg1938z00_403, BNIL); 
BgL_arg1954z00_408 = 
MAKE_PAIR(BFALSE, BgL_arg1958z00_409); } 
BgL_arg1951z00_407 = 
MAKE_PAIR(BgL_arg1936z00_402, BgL_arg1954z00_408); } 
BgL_arg1948z00_406 = 
MAKE_PAIR(BgL_arg1935z00_401, BgL_arg1951z00_407); } 
BgL_arg1945z00_405 = 
MAKE_PAIR(BgL_arg1934z00_400, BgL_arg1948z00_406); } 
BgL_list1940z00_404 = 
MAKE_PAIR(BgL_itemzd2idzd2_77, BgL_arg1945z00_405); } 
BgL_arg1928z00_397 = 
BGl_makezd2privatezd2sexpz00zzast_privatez00(BgL_arg1933z00_399, BgL_tvzd2idzd2_73, BgL_list1940z00_404); } } 
BgL_arg1925z00_396 = 
MAKE_PAIR(BgL_arg1928z00_397, BNIL); } 
BgL_arg1919z00_393 = 
MAKE_PAIR(BgL_arg1924z00_395, BgL_arg1925z00_396); } 
BgL_arg1911z00_391 = 
MAKE_PAIR(BgL_arg1919z00_393, BNIL); } 
{ /* ./Tvector/access.scm 145 */
obj_t BgL_arg2005z00_425;obj_t BgL_arg2006z00_426;
{ /* ./Tvector/access.scm 145 */
obj_t BgL_arg2010z00_427;obj_t BgL_arg2011z00_428;
BgL_arg2010z00_427 = 
CNST_TABLE_REF(((long)47)); 
{ /* ./Tvector/access.scm 145 */
obj_t BgL_arg2014z00_429;obj_t BgL_arg2015z00_430;
BgL_arg2014z00_429 = 
CNST_TABLE_REF(((long)21)); 
BgL_arg2015z00_430 = 
MAKE_PAIR(BgL_descrzd2idzd2_80, BNIL); 
BgL_arg2011z00_428 = 
MAKE_PAIR(BgL_arg2014z00_429, BgL_arg2015z00_430); } 
BgL_arg2005z00_425 = 
MAKE_PAIR(BgL_arg2010z00_427, BgL_arg2011z00_428); } 
{ /* ./Tvector/access.scm 134 */
obj_t BgL_auxz00_1304;
BgL_auxz00_1304 = 
CNST_TABLE_REF(((long)21)); 
BgL_arg2006z00_426 = 
MAKE_PAIR(BgL_auxz00_1304, BNIL); } 
BgL_arg1915z00_392 = 
MAKE_PAIR(BgL_arg2005z00_425, BgL_arg2006z00_426); } 
BgL_arg1906z00_390 = 
MAKE_PAIR(BgL_arg1911z00_391, BgL_arg1915z00_392); } 
BgL_arg1898z00_387 = 
MAKE_PAIR(BgL_arg1905z00_389, BgL_arg1906z00_390); } 
BgL_arg1889z00_384 = 
MAKE_PAIR(BgL_arg1898z00_387, BNIL); } 
BgL_arg1885z00_382 = 
MAKE_PAIR(BgL_arg1888z00_383, BgL_arg1889z00_384); } 
BgL_arg1436z00_210 = 
MAKE_PAIR(BgL_arg1884z00_381, BgL_arg1885z00_382); } }  else 
{ /* ./Tvector/access.scm 149 */
{ /* ./Tvector/access.scm 121 */
obj_t BgL_arg2021z00_432;obj_t BgL_arg2022z00_433;
BgL_arg2021z00_432 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Tvector/access.scm 121 */
obj_t BgL_arg2025z00_434;obj_t BgL_arg2026z00_435;
{ /* ./Tvector/access.scm 121 */
obj_t BgL_arg2029z00_436;obj_t BgL_arg2030z00_437;
BgL_arg2029z00_436 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_tvzd2alloczd2idz00_82, BgL_tvzd2idzd2_73); 
{ /* ./Tvector/access.scm 121 */
obj_t BgL_auxz00_1315;
BgL_auxz00_1315 = 
CNST_TABLE_REF(((long)35)); 
BgL_arg2030z00_437 = 
MAKE_PAIR(BgL_auxz00_1315, BNIL); } 
BgL_arg2025z00_434 = 
MAKE_PAIR(BgL_arg2029z00_436, BgL_arg2030z00_437); } 
{ /* ./Tvector/access.scm 122 */
obj_t BgL_arg2035z00_438;
{ /* ./Tvector/access.scm 122 */
obj_t BgL_arg2040z00_440;obj_t BgL_arg2041z00_441;obj_t BgL_arg2042z00_442;obj_t BgL_arg2043z00_443;obj_t BgL_arg2044z00_444;
BgL_arg2040z00_440 = 
CNST_TABLE_REF(((long)46)); 
BgL_arg2041z00_441 = 
CNST_TABLE_REF(((long)26)); 
{ /* ./Tvector/access.scm 123 */
char * BgL_arg2068z00_452;
BgL_arg2068z00_452 = 
BGl_allocatezd2tvectorzd2zztvector_accessz00(BgL_itemzd2namezd2_78); 
{ /* ./Tvector/access.scm 123 */
obj_t BgL_list2072z00_455;
{ /* ./Tvector/access.scm 123 */
obj_t BgL_arg2074z00_456;
{ /* ./Tvector/access.scm 123 */
obj_t BgL_arg2077z00_457;
{ /* ./Tvector/access.scm 123 */
obj_t BgL_arg2080z00_458;
{ /* ./Tvector/access.scm 123 */
obj_t BgL_arg2083z00_459;
BgL_arg2083z00_459 = 
MAKE_PAIR(BGl_string2772z00zztvector_accessz00, BNIL); 
BgL_arg2080z00_458 = 
MAKE_PAIR(BgL_itemzd2namezd2_78, BgL_arg2083z00_459); } 
BgL_arg2077z00_457 = 
MAKE_PAIR(BGl_string2773z00zztvector_accessz00, BgL_arg2080z00_458); } 
BgL_arg2074z00_456 = 
MAKE_PAIR(BgL_mitemzd2namezd2_79, BgL_arg2077z00_457); } 
{ /* ./Tvector/access.scm 123 */
obj_t BgL_auxz00_1326;
BgL_auxz00_1326 = 
string_to_bstring(BgL_arg2068z00_452); 
BgL_list2072z00_455 = 
MAKE_PAIR(BgL_auxz00_1326, BgL_arg2074z00_456); } } 
BgL_arg2042z00_442 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list2072z00_455); } } 
{ /* ./Tvector/access.scm 126 */
obj_t BgL_list2088z00_460;
{ /* ./Tvector/access.scm 126 */
obj_t BgL_arg2091z00_462;
{ /* ./Tvector/access.scm 126 */
obj_t BgL_arg2094z00_463;
{ /* ./Tvector/access.scm 126 */
obj_t BgL_arg2098z00_465;
{ /* ./Tvector/access.scm 126 */
obj_t BgL_arg2101z00_466;
BgL_arg2101z00_466 = 
MAKE_PAIR(BGl_string2772z00zztvector_accessz00, BNIL); 
BgL_arg2098z00_465 = 
MAKE_PAIR(BgL_itemzd2namezd2_78, BgL_arg2101z00_466); } 
BgL_arg2094z00_463 = 
MAKE_PAIR(BGl_string2773z00zztvector_accessz00, BgL_arg2098z00_465); } 
BgL_arg2091z00_462 = 
MAKE_PAIR(BgL_mitemzd2namezd2_79, BgL_arg2094z00_463); } 
BgL_list2088z00_460 = 
MAKE_PAIR(BGl_string2774z00zztvector_accessz00, BgL_arg2091z00_462); } 
BgL_arg2043z00_443 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list2088z00_460); } 
BgL_arg2044z00_444 = 
CNST_TABLE_REF(((long)37)); 
{ /* ./Tvector/access.scm 122 */
obj_t BgL_list2046z00_445;
{ /* ./Tvector/access.scm 122 */
obj_t BgL_arg2048z00_446;
{ /* ./Tvector/access.scm 122 */
obj_t BgL_arg2051z00_447;
{ /* ./Tvector/access.scm 122 */
obj_t BgL_arg2054z00_448;
{ /* ./Tvector/access.scm 122 */
obj_t BgL_arg2057z00_449;
{ /* ./Tvector/access.scm 122 */
obj_t BgL_arg2061z00_450;
{ /* ./Tvector/access.scm 122 */
obj_t BgL_arg2064z00_451;
BgL_arg2064z00_451 = 
MAKE_PAIR(BgL_descrzd2idzd2_80, BNIL); 
BgL_arg2061z00_450 = 
MAKE_PAIR(BgL_arg2044z00_444, BgL_arg2064z00_451); } 
BgL_arg2057z00_449 = 
MAKE_PAIR(BFALSE, BgL_arg2061z00_450); } 
BgL_arg2054z00_448 = 
MAKE_PAIR(BgL_arg2043z00_443, BgL_arg2057z00_449); } 
BgL_arg2051z00_447 = 
MAKE_PAIR(BgL_arg2042z00_442, BgL_arg2054z00_448); } 
BgL_arg2048z00_446 = 
MAKE_PAIR(BgL_arg2041z00_441, BgL_arg2051z00_447); } 
BgL_list2046z00_445 = 
MAKE_PAIR(BgL_itemzd2idzd2_77, BgL_arg2048z00_446); } 
BgL_arg2035z00_438 = 
BGl_makezd2privatezd2sexpz00zzast_privatez00(BgL_arg2040z00_440, BgL_tvzd2idzd2_73, BgL_list2046z00_445); } } 
BgL_arg2026z00_435 = 
MAKE_PAIR(BgL_arg2035z00_438, BNIL); } 
BgL_arg2022z00_433 = 
MAKE_PAIR(BgL_arg2025z00_434, BgL_arg2026z00_435); } 
BgL_arg1436z00_210 = 
MAKE_PAIR(BgL_arg2021z00_432, BgL_arg2022z00_433); } } } 
{ /* ./Tvector/access.scm 154 */
obj_t BgL_arg1842z00_364;obj_t BgL_arg1843z00_365;
BgL_arg1842z00_364 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Tvector/access.scm 154 */
obj_t BgL_arg1846z00_366;obj_t BgL_arg1848z00_367;
{ /* ./Tvector/access.scm 154 */
obj_t BgL_arg1851z00_368;obj_t BgL_arg1853z00_369;
{ /* ./Tvector/access.scm 154 */
obj_t BgL_list1856z00_370;
{ /* ./Tvector/access.scm 154 */
obj_t BgL_arg1859z00_371;
{ /* ./Tvector/access.scm 154 */
obj_t BgL_auxz00_1349;
BgL_auxz00_1349 = 
CNST_TABLE_REF(((long)48)); 
BgL_arg1859z00_371 = 
MAKE_PAIR(BgL_auxz00_1349, BNIL); } 
BgL_list1856z00_370 = 
MAKE_PAIR(BgL_tvzd2ze3vectorzd2idze3_86, BgL_arg1859z00_371); } 
BgL_arg1851z00_368 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list1856z00_370); } 
{ /* ./Tvector/access.scm 155 */
obj_t BgL_arg1864z00_372;
BgL_arg1864z00_372 = 
BGl_makezd2typedzd2identz00zzast_identz00(
CNST_TABLE_REF(((long)27)), BgL_tvzd2idzd2_73); 
BgL_arg1853z00_369 = 
MAKE_PAIR(BgL_arg1864z00_372, BNIL); } 
BgL_arg1846z00_366 = 
MAKE_PAIR(BgL_arg1851z00_368, BgL_arg1853z00_369); } 
{ /* ./Tvector/access.scm 156 */
obj_t BgL_arg1869z00_374;
{ /* ./Tvector/access.scm 156 */
obj_t BgL_arg1873z00_376;obj_t BgL_arg1874z00_377;
BgL_arg1873z00_376 = 
CNST_TABLE_REF(((long)49)); 
{ /* ./Tvector/access.scm 156 */
obj_t BgL_auxz00_1359;
BgL_auxz00_1359 = 
CNST_TABLE_REF(((long)27)); 
BgL_arg1874z00_377 = 
MAKE_PAIR(BgL_auxz00_1359, BNIL); } 
BgL_arg1869z00_374 = 
MAKE_PAIR(BgL_arg1873z00_376, BgL_arg1874z00_377); } 
BgL_arg1848z00_367 = 
MAKE_PAIR(BgL_arg1869z00_374, BNIL); } 
BgL_arg1843z00_365 = 
MAKE_PAIR(BgL_arg1846z00_366, BgL_arg1848z00_367); } 
BgL_arg1437z00_211 = 
MAKE_PAIR(BgL_arg1842z00_364, BgL_arg1843z00_365); } 
{ /* ./Tvector/access.scm 172 */
obj_t BgL_arg1543z00_245;obj_t BgL_arg1545z00_246;
BgL_arg1543z00_245 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Tvector/access.scm 172 */
obj_t BgL_arg1548z00_247;obj_t BgL_arg1549z00_248;
{ /* ./Tvector/access.scm 172 */
obj_t BgL_arg1552z00_249;obj_t BgL_arg1554z00_250;
BgL_arg1552z00_249 = 
BGl_makezd2typedzd2identz00zzast_identz00(BgL_vectorzd2ze3tvzd2idze3_87, BgL_tvzd2idzd2_73); 
{ /* ./Tvector/access.scm 172 */
obj_t BgL_auxz00_1368;
BgL_auxz00_1368 = 
CNST_TABLE_REF(((long)56)); 
BgL_arg1554z00_250 = 
MAKE_PAIR(BgL_auxz00_1368, BNIL); } 
BgL_arg1548z00_247 = 
MAKE_PAIR(BgL_arg1552z00_249, BgL_arg1554z00_250); } 
{ /* ./Tvector/access.scm 173 */
obj_t BgL_arg1559z00_251;
{ /* ./Tvector/access.scm 173 */
obj_t BgL_arg1565z00_253;obj_t BgL_arg1566z00_254;
BgL_arg1565z00_253 = 
CNST_TABLE_REF(((long)57)); 
{ /* ./Tvector/access.scm 173 */
obj_t BgL_arg1569z00_255;obj_t BgL_arg1570z00_256;
{ /* ./Tvector/access.scm 173 */
obj_t BgL_arg1573z00_257;obj_t BgL_arg1575z00_258;
BgL_arg1573z00_257 = 
CNST_TABLE_REF(((long)50)); 
BgL_arg1575z00_258 = 
MAKE_PAIR(BgL_tvzd2idzd2_73, BNIL); 
BgL_arg1569z00_255 = 
MAKE_PAIR(BgL_arg1573z00_257, BgL_arg1575z00_258); } 
{ /* ./Tvector/access.scm 173 */
obj_t BgL_auxz00_1376;
BgL_auxz00_1376 = 
CNST_TABLE_REF(((long)33)); 
BgL_arg1570z00_256 = 
MAKE_PAIR(BgL_auxz00_1376, BNIL); } 
BgL_arg1566z00_254 = 
MAKE_PAIR(BgL_arg1569z00_255, BgL_arg1570z00_256); } 
BgL_arg1559z00_251 = 
MAKE_PAIR(BgL_arg1565z00_253, BgL_arg1566z00_254); } 
BgL_arg1549z00_248 = 
MAKE_PAIR(BgL_arg1559z00_251, BNIL); } 
BgL_arg1545z00_246 = 
MAKE_PAIR(BgL_arg1548z00_247, BgL_arg1549z00_248); } 
BgL_arg1438z00_212 = 
MAKE_PAIR(BgL_arg1543z00_245, BgL_arg1545z00_246); } 
{ /* ./Tvector/access.scm 176 */
obj_t BgL_arg1490z00_226;obj_t BgL_arg1491z00_227;
BgL_arg1490z00_226 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Tvector/access.scm 176 */
obj_t BgL_arg1494z00_228;obj_t BgL_arg1496z00_229;
{ /* ./Tvector/access.scm 176 */
obj_t BgL_arg1500z00_230;obj_t BgL_arg1501z00_231;
{ /* ./Tvector/access.scm 176 */
obj_t BgL_list1504z00_232;
{ /* ./Tvector/access.scm 176 */
obj_t BgL_arg1506z00_233;
{ /* ./Tvector/access.scm 176 */
obj_t BgL_auxz00_1385;
BgL_auxz00_1385 = 
CNST_TABLE_REF(((long)58)); 
BgL_arg1506z00_233 = 
MAKE_PAIR(BgL_auxz00_1385, BNIL); } 
BgL_list1504z00_232 = 
MAKE_PAIR(BgL_tvzd2lengthzd2idz00_89, BgL_arg1506z00_233); } 
BgL_arg1500z00_230 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list1504z00_232); } 
{ /* ./Tvector/access.scm 177 */
obj_t BgL_arg1511z00_234;
BgL_arg1511z00_234 = 
BGl_makezd2typedzd2identz00zzast_identz00(
CNST_TABLE_REF(((long)21)), BgL_tvzd2idzd2_73); 
BgL_arg1501z00_231 = 
MAKE_PAIR(BgL_arg1511z00_234, BNIL); } 
BgL_arg1494z00_228 = 
MAKE_PAIR(BgL_arg1500z00_230, BgL_arg1501z00_231); } 
{ /* ./Tvector/access.scm 178 */
obj_t BgL_arg1518z00_236;
{ /* ./Tvector/access.scm 178 */
obj_t BgL_list1523z00_238;
{ /* ./Tvector/access.scm 178 */
obj_t BgL_arg1526z00_239;
{ /* ./Tvector/access.scm 178 */
obj_t BgL_arg1530z00_240;obj_t BgL_arg1531z00_241;
BgL_arg1530z00_240 = 
CNST_TABLE_REF(((long)26)); 
{ /* ./Tvector/access.scm 178 */
obj_t BgL_arg1537z00_243;
{ /* ./Tvector/access.scm 178 */
obj_t BgL_auxz00_1395;
BgL_auxz00_1395 = 
CNST_TABLE_REF(((long)21)); 
BgL_arg1537z00_243 = 
MAKE_PAIR(BgL_auxz00_1395, BNIL); } 
BgL_arg1531z00_241 = 
MAKE_PAIR(BGl_string2775z00zztvector_accessz00, BgL_arg1537z00_243); } 
BgL_arg1526z00_239 = 
MAKE_PAIR(BgL_arg1530z00_240, BgL_arg1531z00_241); } 
BgL_list1523z00_238 = 
MAKE_PAIR(BgL_itemzd2idzd2_77, BgL_arg1526z00_239); } 
BgL_arg1518z00_236 = 
BGl_makezd2privatezd2sexpz00zzast_privatez00(
CNST_TABLE_REF(((long)59)), BgL_tvzd2idzd2_73, BgL_list1523z00_238); } 
BgL_arg1496z00_229 = 
MAKE_PAIR(BgL_arg1518z00_236, BNIL); } 
BgL_arg1491z00_227 = 
MAKE_PAIR(BgL_arg1494z00_228, BgL_arg1496z00_229); } 
BgL_arg1440z00_213 = 
MAKE_PAIR(BgL_arg1490z00_226, BgL_arg1491z00_227); } 
{ /* ./Tvector/access.scm 159 */
obj_t BgL_arg1581z00_260;obj_t BgL_arg1586z00_261;
BgL_arg1581z00_260 = 
CNST_TABLE_REF(((long)11)); 
{ /* ./Tvector/access.scm 159 */
obj_t BgL_arg1589z00_262;obj_t BgL_arg1590z00_263;
{ /* ./Tvector/access.scm 159 */
obj_t BgL_arg1593z00_264;obj_t BgL_arg1594z00_265;
{ /* ./Tvector/access.scm 159 */
obj_t BgL_list1597z00_266;
{ /* ./Tvector/access.scm 159 */
obj_t BgL_arg1599z00_267;
{ /* ./Tvector/access.scm 159 */
obj_t BgL_auxz00_1407;
BgL_auxz00_1407 = 
CNST_TABLE_REF(((long)12)); 
BgL_arg1599z00_267 = 
MAKE_PAIR(BgL_auxz00_1407, BNIL); } 
BgL_list1597z00_266 = 
MAKE_PAIR(BgL_tvzd2ze3listz31_88, BgL_arg1599z00_267); } 
BgL_arg1593z00_264 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list1597z00_266); } 
{ /* ./Tvector/access.scm 160 */
obj_t BgL_arg1603z00_268;
BgL_arg1603z00_268 = 
BGl_makezd2typedzd2identz00zzast_identz00(
CNST_TABLE_REF(((long)27)), BgL_tvzd2idzd2_73); 
BgL_arg1594z00_265 = 
MAKE_PAIR(BgL_arg1603z00_268, BNIL); } 
BgL_arg1589z00_262 = 
MAKE_PAIR(BgL_arg1593z00_264, BgL_arg1594z00_265); } 
{ /* ./Tvector/access.scm 161 */
obj_t BgL_arg1608z00_270;
{ /* ./Tvector/access.scm 161 */
obj_t BgL_arg1613z00_272;obj_t BgL_arg1614z00_273;
BgL_arg1613z00_272 = 
CNST_TABLE_REF(((long)36)); 
{ /* ./Tvector/access.scm 161 */
obj_t BgL_arg1617z00_274;obj_t BgL_arg1618z00_275;
{ /* ./Tvector/access.scm 161 */
obj_t BgL_arg1621z00_276;
{ /* ./Tvector/access.scm 161 */
obj_t BgL_arg1625z00_278;obj_t BgL_arg1627z00_279;
BgL_arg1625z00_278 = 
CNST_TABLE_REF(((long)35)); 
{ /* ./Tvector/access.scm 161 */
obj_t BgL_arg1631z00_280;
{ /* ./Tvector/access.scm 161 */
obj_t BgL_arg1635z00_282;
{ /* ./Tvector/access.scm 161 */
obj_t BgL_auxz00_1418;
BgL_auxz00_1418 = 
CNST_TABLE_REF(((long)27)); 
BgL_arg1635z00_282 = 
MAKE_PAIR(BgL_auxz00_1418, BNIL); } 
BgL_arg1631z00_280 = 
MAKE_PAIR(BgL_tvzd2lengthzd2idz00_89, BgL_arg1635z00_282); } 
BgL_arg1627z00_279 = 
MAKE_PAIR(BgL_arg1631z00_280, BNIL); } 
BgL_arg1621z00_276 = 
MAKE_PAIR(BgL_arg1625z00_278, BgL_arg1627z00_279); } 
BgL_arg1617z00_274 = 
MAKE_PAIR(BgL_arg1621z00_276, BNIL); } 
{ /* ./Tvector/access.scm 162 */
obj_t BgL_arg1641z00_283;
{ /* ./Tvector/access.scm 162 */
obj_t BgL_arg1648z00_285;obj_t BgL_arg1650z00_286;
BgL_arg1648z00_285 = 
CNST_TABLE_REF(((long)19)); 
{ /* ./Tvector/access.scm 162 */
obj_t BgL_arg1654z00_287;obj_t BgL_arg1655z00_288;
{ /* ./Tvector/access.scm 162 */
obj_t BgL_arg1658z00_289;obj_t BgL_arg1659z00_290;
BgL_arg1658z00_289 = 
CNST_TABLE_REF(((long)41)); 
{ /* ./Tvector/access.scm 162 */
obj_t BgL_arg1662z00_291;obj_t BgL_arg1663z00_292;
BgL_arg1662z00_291 = 
CNST_TABLE_REF(((long)37)); 
{ /* ./Tvector/access.scm 162 */
obj_t BgL_auxz00_1428;
BgL_auxz00_1428 = 
BINT(((long)0)); 
BgL_arg1663z00_292 = 
MAKE_PAIR(BgL_auxz00_1428, BNIL); } 
BgL_arg1659z00_290 = 
MAKE_PAIR(BgL_arg1662z00_291, BgL_arg1663z00_292); } 
BgL_arg1654z00_287 = 
MAKE_PAIR(BgL_arg1658z00_289, BgL_arg1659z00_290); } 
{ /* ./Tvector/access.scm 163 */
obj_t BgL_arg1667z00_293;obj_t BgL_arg1669z00_294;
{ /* ./Tvector/access.scm 163 */
obj_t BgL_arg1673z00_295;obj_t BgL_arg1674z00_296;
BgL_arg1673z00_295 = 
CNST_TABLE_REF(((long)50)); 
BgL_arg1674z00_296 = 
MAKE_PAIR(BNIL, BNIL); 
BgL_arg1667z00_293 = 
MAKE_PAIR(BgL_arg1673z00_295, BgL_arg1674z00_296); } 
{ /* ./Tvector/access.scm 164 */
obj_t BgL_arg1678z00_297;
{ /* ./Tvector/access.scm 164 */
obj_t BgL_arg1682z00_299;obj_t BgL_arg1683z00_300;
BgL_arg1682z00_299 = 
CNST_TABLE_REF(((long)38)); 
{ /* ./Tvector/access.scm 164 */
obj_t BgL_arg1686z00_301;obj_t BgL_arg1687z00_302;
{ /* ./Tvector/access.scm 164 */
obj_t BgL_arg1690z00_303;
{ /* ./Tvector/access.scm 164 */
obj_t BgL_arg1695z00_305;obj_t BgL_arg1696z00_306;
BgL_arg1695z00_305 = 
CNST_TABLE_REF(((long)51)); 
{ /* ./Tvector/access.scm 164 */
obj_t BgL_arg1699z00_307;obj_t BgL_arg1700z00_308;
{ /* ./Tvector/access.scm 164 */
obj_t BgL_arg1703z00_309;obj_t BgL_arg1704z00_310;
BgL_arg1703z00_309 = 
CNST_TABLE_REF(((long)40)); 
{ /* ./Tvector/access.scm 164 */
obj_t BgL_auxz00_1439;
BgL_auxz00_1439 = 
CNST_TABLE_REF(((long)52)); 
BgL_arg1704z00_310 = 
MAKE_PAIR(BgL_auxz00_1439, BNIL); } 
BgL_arg1699z00_307 = 
MAKE_PAIR(BgL_arg1703z00_309, BgL_arg1704z00_310); } 
{ /* ./Tvector/access.scm 165 */
obj_t BgL_arg1709z00_311;
{ /* ./Tvector/access.scm 165 */
obj_t BgL_arg1713z00_313;obj_t BgL_arg1714z00_314;
BgL_arg1713z00_313 = 
CNST_TABLE_REF(((long)19)); 
{ /* ./Tvector/access.scm 165 */
obj_t BgL_arg1717z00_315;obj_t BgL_arg1718z00_316;
{ /* ./Tvector/access.scm 165 */
obj_t BgL_arg1721z00_317;obj_t BgL_arg1722z00_318;
BgL_arg1721z00_317 = 
CNST_TABLE_REF(((long)41)); 
{ /* ./Tvector/access.scm 165 */
obj_t BgL_arg1725z00_319;obj_t BgL_arg1726z00_320;
BgL_arg1725z00_319 = 
CNST_TABLE_REF(((long)42)); 
{ /* ./Tvector/access.scm 165 */
obj_t BgL_auxz00_1446;
BgL_auxz00_1446 = 
BINT(((long)0)); 
BgL_arg1726z00_320 = 
MAKE_PAIR(BgL_auxz00_1446, BNIL); } 
BgL_arg1722z00_318 = 
MAKE_PAIR(BgL_arg1725z00_319, BgL_arg1726z00_320); } 
BgL_arg1717z00_315 = 
MAKE_PAIR(BgL_arg1721z00_317, BgL_arg1722z00_318); } 
{ /* ./Tvector/access.scm 166 */
obj_t BgL_arg1731z00_321;obj_t BgL_arg1732z00_322;
{ /* ./Tvector/access.scm 166 */
obj_t BgL_arg1735z00_323;obj_t BgL_arg1736z00_324;
BgL_arg1735z00_323 = 
CNST_TABLE_REF(((long)53)); 
{ /* ./Tvector/access.scm 166 */
obj_t BgL_arg1741z00_325;obj_t BgL_arg1743z00_326;
{ /* ./Tvector/access.scm 166 */
obj_t BgL_arg1748z00_327;
{ /* ./Tvector/access.scm 166 */
obj_t BgL_arg1752z00_328;obj_t BgL_arg1755z00_329;
BgL_arg1752z00_328 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Tvector/access.scm 166 */
obj_t BgL_auxz00_1453;
BgL_auxz00_1453 = 
CNST_TABLE_REF(((long)42)); 
BgL_arg1755z00_329 = 
MAKE_PAIR(BgL_auxz00_1453, BNIL); } 
BgL_arg1748z00_327 = 
MAKE_PAIR(BgL_arg1752z00_328, BgL_arg1755z00_329); } 
BgL_arg1741z00_325 = 
MAKE_PAIR(BgL_tvzd2refzd2idz00_83, BgL_arg1748z00_327); } 
{ /* ./Tvector/access.scm 166 */
obj_t BgL_auxz00_1458;
BgL_auxz00_1458 = 
CNST_TABLE_REF(((long)54)); 
BgL_arg1743z00_326 = 
MAKE_PAIR(BgL_auxz00_1458, BNIL); } 
BgL_arg1736z00_324 = 
MAKE_PAIR(BgL_arg1741z00_325, BgL_arg1743z00_326); } 
BgL_arg1731z00_321 = 
MAKE_PAIR(BgL_arg1735z00_323, BgL_arg1736z00_324); } 
{ /* ./Tvector/access.scm 167 */
obj_t BgL_arg1760z00_330;
{ /* ./Tvector/access.scm 167 */
obj_t BgL_arg1766z00_332;obj_t BgL_arg1767z00_333;
BgL_arg1766z00_332 = 
CNST_TABLE_REF(((long)39)); 
{ /* ./Tvector/access.scm 167 */
obj_t BgL_arg1771z00_334;obj_t BgL_arg1772z00_335;
{ /* ./Tvector/access.scm 167 */
obj_t BgL_arg1775z00_336;obj_t BgL_arg1776z00_337;
BgL_arg1775z00_336 = 
CNST_TABLE_REF(((long)55)); 
{ /* ./Tvector/access.scm 167 */
obj_t BgL_arg1779z00_338;obj_t BgL_arg1780z00_339;
BgL_arg1779z00_338 = 
CNST_TABLE_REF(((long)42)); 
{ /* ./Tvector/access.scm 167 */
obj_t BgL_auxz00_1466;
BgL_auxz00_1466 = 
BINT(((long)1)); 
BgL_arg1780z00_339 = 
MAKE_PAIR(BgL_auxz00_1466, BNIL); } 
BgL_arg1776z00_337 = 
MAKE_PAIR(BgL_arg1779z00_338, BgL_arg1780z00_339); } 
BgL_arg1771z00_334 = 
MAKE_PAIR(BgL_arg1775z00_336, BgL_arg1776z00_337); } 
{ /* ./Tvector/access.scm 168 */
obj_t BgL_arg1784z00_340;
{ /* ./Tvector/access.scm 168 */
obj_t BgL_arg1788z00_342;obj_t BgL_arg1789z00_343;
BgL_arg1788z00_342 = 
CNST_TABLE_REF(((long)53)); 
{ /* ./Tvector/access.scm 168 */
obj_t BgL_arg1792z00_344;obj_t BgL_arg1793z00_345;
{ /* ./Tvector/access.scm 168 */
obj_t BgL_arg1798z00_346;
{ /* ./Tvector/access.scm 168 */
obj_t BgL_arg1801z00_347;obj_t BgL_arg1802z00_348;
BgL_arg1801z00_347 = 
CNST_TABLE_REF(((long)27)); 
{ /* ./Tvector/access.scm 168 */
obj_t BgL_auxz00_1473;
BgL_auxz00_1473 = 
CNST_TABLE_REF(((long)42)); 
BgL_arg1802z00_348 = 
MAKE_PAIR(BgL_auxz00_1473, BNIL); } 
BgL_arg1798z00_346 = 
MAKE_PAIR(BgL_arg1801z00_347, BgL_arg1802z00_348); } 
BgL_arg1792z00_344 = 
MAKE_PAIR(BgL_tvzd2refzd2idz00_83, BgL_arg1798z00_346); } 
{ /* ./Tvector/access.scm 168 */
obj_t BgL_auxz00_1478;
BgL_auxz00_1478 = 
CNST_TABLE_REF(((long)54)); 
BgL_arg1793z00_345 = 
MAKE_PAIR(BgL_auxz00_1478, BNIL); } 
BgL_arg1789z00_343 = 
MAKE_PAIR(BgL_arg1792z00_344, BgL_arg1793z00_345); } 
BgL_arg1784z00_340 = 
MAKE_PAIR(BgL_arg1788z00_342, BgL_arg1789z00_343); } 
BgL_arg1772z00_335 = 
MAKE_PAIR(BgL_arg1784z00_340, BNIL); } 
BgL_arg1767z00_333 = 
MAKE_PAIR(BgL_arg1771z00_334, BgL_arg1772z00_335); } 
BgL_arg1760z00_330 = 
MAKE_PAIR(BgL_arg1766z00_332, BgL_arg1767z00_333); } 
BgL_arg1732z00_322 = 
MAKE_PAIR(BgL_arg1760z00_330, BNIL); } 
BgL_arg1718z00_316 = 
MAKE_PAIR(BgL_arg1731z00_321, BgL_arg1732z00_322); } 
BgL_arg1714z00_314 = 
MAKE_PAIR(BgL_arg1717z00_315, BgL_arg1718z00_316); } 
BgL_arg1709z00_311 = 
MAKE_PAIR(BgL_arg1713z00_313, BgL_arg1714z00_314); } 
BgL_arg1700z00_308 = 
MAKE_PAIR(BgL_arg1709z00_311, BNIL); } 
BgL_arg1696z00_306 = 
MAKE_PAIR(BgL_arg1699z00_307, BgL_arg1700z00_308); } 
BgL_arg1690z00_303 = 
MAKE_PAIR(BgL_arg1695z00_305, BgL_arg1696z00_306); } 
BgL_arg1686z00_301 = 
MAKE_PAIR(BgL_arg1690z00_303, BNIL); } 
{ /* ./Tvector/access.scm 169 */
obj_t BgL_arg1807z00_349;
{ /* ./Tvector/access.scm 169 */
obj_t BgL_arg1812z00_351;obj_t BgL_arg1813z00_352;
BgL_arg1812z00_351 = 
CNST_TABLE_REF(((long)39)); 
{ /* ./Tvector/access.scm 169 */
obj_t BgL_arg1816z00_353;obj_t BgL_arg1817z00_354;
{ /* ./Tvector/access.scm 169 */
obj_t BgL_arg1821z00_355;obj_t BgL_arg1822z00_356;
BgL_arg1821z00_355 = 
CNST_TABLE_REF(((long)55)); 
{ /* ./Tvector/access.scm 169 */
obj_t BgL_arg1825z00_357;obj_t BgL_arg1826z00_358;
BgL_arg1825z00_357 = 
CNST_TABLE_REF(((long)37)); 
{ /* ./Tvector/access.scm 169 */
obj_t BgL_auxz00_1497;
BgL_auxz00_1497 = 
BINT(((long)1)); 
BgL_arg1826z00_358 = 
MAKE_PAIR(BgL_auxz00_1497, BNIL); } 
BgL_arg1822z00_356 = 
MAKE_PAIR(BgL_arg1825z00_357, BgL_arg1826z00_358); } 
BgL_arg1816z00_353 = 
MAKE_PAIR(BgL_arg1821z00_355, BgL_arg1822z00_356); } 
{ /* ./Tvector/access.scm 169 */
obj_t BgL_arg1830z00_359;
{ /* ./Tvector/access.scm 169 */
obj_t BgL_arg1836z00_361;obj_t BgL_arg1837z00_362;
BgL_arg1836z00_361 = 
CNST_TABLE_REF(((long)50)); 
BgL_arg1837z00_362 = 
MAKE_PAIR(BNIL, BNIL); 
BgL_arg1830z00_359 = 
MAKE_PAIR(BgL_arg1836z00_361, BgL_arg1837z00_362); } 
BgL_arg1817z00_354 = 
MAKE_PAIR(BgL_arg1830z00_359, BNIL); } 
BgL_arg1813z00_352 = 
MAKE_PAIR(BgL_arg1816z00_353, BgL_arg1817z00_354); } 
BgL_arg1807z00_349 = 
MAKE_PAIR(BgL_arg1812z00_351, BgL_arg1813z00_352); } 
BgL_arg1687z00_302 = 
MAKE_PAIR(BgL_arg1807z00_349, BNIL); } 
BgL_arg1683z00_300 = 
MAKE_PAIR(BgL_arg1686z00_301, BgL_arg1687z00_302); } 
BgL_arg1678z00_297 = 
MAKE_PAIR(BgL_arg1682z00_299, BgL_arg1683z00_300); } 
BgL_arg1669z00_294 = 
MAKE_PAIR(BgL_arg1678z00_297, BNIL); } 
BgL_arg1655z00_288 = 
MAKE_PAIR(BgL_arg1667z00_293, BgL_arg1669z00_294); } 
BgL_arg1650z00_286 = 
MAKE_PAIR(BgL_arg1654z00_287, BgL_arg1655z00_288); } 
BgL_arg1641z00_283 = 
MAKE_PAIR(BgL_arg1648z00_285, BgL_arg1650z00_286); } 
BgL_arg1618z00_275 = 
MAKE_PAIR(BgL_arg1641z00_283, BNIL); } 
BgL_arg1614z00_273 = 
MAKE_PAIR(BgL_arg1617z00_274, BgL_arg1618z00_275); } 
BgL_arg1608z00_270 = 
MAKE_PAIR(BgL_arg1613z00_272, BgL_arg1614z00_273); } 
BgL_arg1590z00_263 = 
MAKE_PAIR(BgL_arg1608z00_270, BNIL); } 
BgL_arg1586z00_261 = 
MAKE_PAIR(BgL_arg1589z00_262, BgL_arg1590z00_263); } 
BgL_arg1441z00_214 = 
MAKE_PAIR(BgL_arg1581z00_260, BgL_arg1586z00_261); } 
{ /* ./Tvector/access.scm 227 */
obj_t BgL_list1443z00_215;
{ /* ./Tvector/access.scm 227 */
obj_t BgL_arg1446z00_216;
{ /* ./Tvector/access.scm 227 */
obj_t BgL_arg1450z00_217;
{ /* ./Tvector/access.scm 227 */
obj_t BgL_arg1453z00_218;
{ /* ./Tvector/access.scm 227 */
obj_t BgL_arg1456z00_219;
{ /* ./Tvector/access.scm 227 */
obj_t BgL_arg1461z00_220;
{ /* ./Tvector/access.scm 227 */
obj_t BgL_arg1464z00_221;
{ /* ./Tvector/access.scm 227 */
obj_t BgL_arg1468z00_222;
{ /* ./Tvector/access.scm 227 */
obj_t BgL_arg1471z00_223;
{ /* ./Tvector/access.scm 227 */
obj_t BgL_arg1474z00_224;
BgL_arg1474z00_224 = 
MAKE_PAIR(BgL_arg1441z00_214, BNIL); 
BgL_arg1471z00_223 = 
MAKE_PAIR(BgL_arg1440z00_213, BgL_arg1474z00_224); } 
BgL_arg1468z00_222 = 
MAKE_PAIR(BgL_arg1438z00_212, BgL_arg1471z00_223); } 
BgL_arg1464z00_221 = 
MAKE_PAIR(BgL_arg1437z00_211, BgL_arg1468z00_222); } 
BgL_arg1461z00_220 = 
MAKE_PAIR(BgL_arg1436z00_210, BgL_arg1464z00_221); } 
BgL_arg1456z00_219 = 
MAKE_PAIR(BgL_arg1435z00_209, BgL_arg1461z00_220); } 
BgL_arg1453z00_218 = 
MAKE_PAIR(BgL_arg1434z00_208, BgL_arg1456z00_219); } 
BgL_arg1450z00_217 = 
MAKE_PAIR(BgL_arg1433z00_207, BgL_arg1453z00_218); } 
BgL_arg1446z00_216 = 
MAKE_PAIR(BgL_arg1432z00_206, BgL_arg1450z00_217); } 
BgL_list1443z00_215 = 
MAKE_PAIR(BgL_arg1431z00_205, BgL_arg1446z00_216); } 
return BgL_list1443z00_215;} } } } } } } } } } } } } } } } } } } } } 
}



/* allocate-tvector */
char * BGl_allocatezd2tvectorzd2zztvector_accessz00(obj_t BgL_itemzd2namezd2_781)
{ AN_OBJECT;
{ /* ./Tvector/access.scm 118 */
{ /* ./Tvector/access.scm 116 */
bool_t BgL_test2105z00_468;
{ /* ./Tvector/access.scm 116 */
bool_t BgL_test2106z00_469;
BgL_test2106z00_469 = 
bigloo_strcmp(BgL_itemzd2namezd2_781, BGl_string2779z00zztvector_accessz00); 
if(BgL_test2106z00_469)
{ /* ./Tvector/access.scm 116 */
BgL_test2105z00_468 = ((bool_t)1); }  else 
{ /* ./Tvector/access.scm 116 */
BgL_test2105z00_468 = 
bigloo_strcmp(BgL_itemzd2namezd2_781, BGl_string2780z00zztvector_accessz00); } } 
if(BgL_test2105z00_468)
{ /* ./Tvector/access.scm 116 */
return "ALLOCATE_ATOMIC_TVECTOR( ";}  else 
{ /* ./Tvector/access.scm 116 */
return "ALLOCATE_TVECTOR( ";} } } 
}



/* _make-tvector-accesses */
obj_t BGl__makezd2tvectorzd2accessesz00zztvector_accessz00(obj_t BgL_envz00_778, obj_t BgL_tvz00_779, obj_t BgL_srcz00_780)
{ AN_OBJECT;
{ /* ./Tvector/access.scm 30 */
return 
BGl_makezd2tvectorzd2accessesz00zztvector_accessz00(
(BgL_tvecz00_bglt)(BgL_tvz00_779), BgL_srcz00_780);} 
}



/* method-init */
obj_t BGl_methodzd2initzd2zztvector_accessz00()
{ AN_OBJECT;
{ /* ./Tvector/access.scm 15 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zztvector_accessz00()
{ AN_OBJECT;
{ /* ./Tvector/access.scm 15 */
BGl_modulezd2initializa7ationz75zztools_miscz00(((long)64117), "tvector_access"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "tvector_access"); 
BGl_modulezd2initializa7ationz75zztype_envz00(((long)25186), "tvector_access"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "tvector_access"); 
BGl_modulezd2initializa7ationz75zztvector_tvectorz00(((long)32501), "tvector_access"); 
BGl_modulezd2initializa7ationz75zzmodule_modulez00(((long)8699), "tvector_access"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "tvector_access"); 
BGl_modulezd2initializa7ationz75zzast_identz00(((long)51504), "tvector_access"); 
return 
BGl_modulezd2initializa7ationz75zzast_privatez00(((long)8704), "tvector_access");} 
}

