/*===========================================================================*/
/*   (Llib/tvector.scm)                                                      */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -O3 -mklib -cc gcc -fsharing -q -unsafev -eval (set! *indent* 4) -stdc -c Llib/tvector.scm -indent -o objs/obj_s/Llib/tvector.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* traces mode */
#define BIGLOO_TRACE 0

/* standard Bigloo include */
#include <bigloo.h>

#ifdef __cplusplus
extern "C" {
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL___TVECTOR_TYPE_DEFINITIONS
#define BGL___TVECTOR_TYPE_DEFINITIONS
#endif // BGL___TVECTOR_TYPE_DEFINITIONS
#endif // BGL_MODULE_TYPE_DEFINITIONS

extern bool_t BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol1830z00zz__tvectorz00 = BUNSPEC;
static obj_t BGl_symbol1832z00zz__tvectorz00 = BUNSPEC;
static obj_t BGl_symbol1834z00zz__tvectorz00 = BUNSPEC;
static obj_t BGl_symbol1836z00zz__tvectorz00 = BUNSPEC;
BGL_EXPORTED_DECL long BGl_tvectorzd2lengthzd2zz__tvectorz00(obj_t);
static obj_t BGl_z62tvectorzd2refzb0zz__tvectorz00(obj_t, obj_t);
static obj_t BGl_symbol1846z00zz__tvectorz00 = BUNSPEC;
static obj_t BGl_z62tvectorzf3z91zz__tvectorz00(obj_t, obj_t);
static obj_t BGl_list1819z00zz__tvectorz00 = BUNSPEC;
static obj_t BGl_requirezd2initializa7ationz75zz__tvectorz00 = BUNSPEC;
static obj_t BGl_symbol1852z00zz__tvectorz00 = BUNSPEC;
static obj_t BGl_symbol1854z00zz__tvectorz00 = BUNSPEC;
static obj_t BGl_list1829z00zz__tvectorz00 = BUNSPEC;
extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__tvectorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__threadz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__bignumz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__hashz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
BGL_EXPORTED_DECL obj_t BGl_vectorzd2ze3tvectorz31zz__tvectorz00(obj_t, obj_t);
static obj_t BGl_z62vectorzd2ze3tvectorz53zz__tvectorz00(obj_t, obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zz__tvectorz00(void);
static obj_t BGl_list1845z00zz__tvectorz00 = BUNSPEC;
static obj_t BGl_z62getzd2tvectorzd2descriptorz62zz__tvectorz00(obj_t, obj_t);
extern obj_t create_struct(obj_t, int);
static obj_t BGl_list1851z00zz__tvectorz00 = BUNSPEC;
extern obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__tvectorz00(void);
static obj_t BGl_genericzd2initzd2zz__tvectorz00(void);
extern long bgl_list_length(obj_t);
BGL_EXPORTED_DECL obj_t BGl_tvectorzd2ze3vectorz31zz__tvectorz00(obj_t);
static obj_t BGl_z62tvectorzd2ze3vectorz53zz__tvectorz00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__tvectorz00(void);
static obj_t BGl_gczd2rootszd2initz00zz__tvectorz00(void);
static obj_t BGl_objectzd2initzd2zz__tvectorz00(void);
BGL_EXPORTED_DECL obj_t BGl_declarezd2tvectorz12zc0zz__tvectorz00(char *, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_tvectorzd2refzd2zz__tvectorz00(obj_t);
extern obj_t bstring_to_symbol(obj_t);
static obj_t BGl_z62tvectorzd2lengthzb0zz__tvectorz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t get_tvector_descriptor(obj_t);
static obj_t BGl_methodzd2initzd2zz__tvectorz00(void);
BGL_EXPORTED_DECL bool_t BGl_tvectorzf3zf3zz__tvectorz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_listzd2ze3tvectorz31zz__tvectorz00(obj_t, obj_t);
extern obj_t BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(obj_t, obj_t, obj_t, obj_t, int, int);
BGL_EXPORTED_DECL obj_t BGl_tvectorzd2idzd2zz__tvectorz00(obj_t);
static obj_t BGl_symbol1801z00zz__tvectorz00 = BUNSPEC;
static obj_t BGl_symbol1806z00zz__tvectorz00 = BUNSPEC;
static obj_t BGl_symbol1808z00zz__tvectorz00 = BUNSPEC;
static obj_t BGl_z62declarezd2tvectorz12za2zz__tvectorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_bigloozd2casezd2sensitivityz00zz__readerz00(void);
extern obj_t BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_z62tvectorzd2idzb0zz__tvectorz00(obj_t, obj_t);
extern obj_t BGl_stringzd2downcasezd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_symbol1820z00zz__tvectorz00 = BUNSPEC;
static obj_t BGl_symbol1822z00zz__tvectorz00 = BUNSPEC;
static obj_t BGl_symbol1824z00zz__tvectorz00 = BUNSPEC;
extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_za2tvectorzd2tableza2zd2zz__tvectorz00 = BUNSPEC;
static obj_t BGl_z62listzd2ze3tvectorz53zz__tvectorz00(obj_t, obj_t, obj_t);
static obj_t *__cnst;


BGL_DEFINE_STRING(BGl_string1795z00zz__tvectorz00, BgL_bgl_string1795za700za7za7_1859za7, "/tmp/bigloo/runtime/Llib/tvector.scm", 36 );
BGL_DEFINE_STRING(BGl_string1796z00zz__tvectorz00, BgL_bgl_string1796za700za7za7_1860za7, "&tvector-length", 15 );
BGL_DEFINE_STRING(BGl_string1797z00zz__tvectorz00, BgL_bgl_string1797za700za7za7_1861za7, "tvector", 7 );
BGL_DEFINE_STRING(BGl_string1798z00zz__tvectorz00, BgL_bgl_string1798za700za7za7_1862za7, "tvector-id", 10 );
BGL_DEFINE_STRING(BGl_string1799z00zz__tvectorz00, BgL_bgl_string1799za700za7za7_1863za7, "struct", 6 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_tvectorzf3zd2envz21zz__tvectorz00, BgL_bgl_za762tvectorza7f3za7911864za7, BGl_z62tvectorzf3z91zz__tvectorz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2ze3tvectorzd2envze3zz__tvectorz00, BgL_bgl_za762listza7d2za7e3tve1865za7, BGl_z62listzd2ze3tvectorz53zz__tvectorz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_vectorzd2ze3tvectorzd2envze3zz__tvectorz00, BgL_bgl_za762vectorza7d2za7e3t1866za7, BGl_z62vectorzd2ze3tvectorz53zz__tvectorz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_tvectorzd2lengthzd2envz00zz__tvectorz00, BgL_bgl_za762tvectorza7d2len1867z00, BGl_z62tvectorzd2lengthzb0zz__tvectorz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_tvectorzd2ze3vectorzd2envze3zz__tvectorz00, BgL_bgl_za762tvectorza7d2za7e31868za7, BGl_z62tvectorzd2ze3vectorz53zz__tvectorz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1800z00zz__tvectorz00, BgL_bgl_string1800za700za7za7_1869za7, "symbol", 6 );
BGL_DEFINE_STRING(BGl_string1802z00zz__tvectorz00, BgL_bgl_string1802za700za7za7_1870za7, "tvect-descr", 11 );
BGL_DEFINE_STRING(BGl_string1803z00zz__tvectorz00, BgL_bgl_string1803za700za7za7_1871za7, "struct-ref:not an instance of", 29 );
BGL_DEFINE_STRING(BGl_string1804z00zz__tvectorz00, BgL_bgl_string1804za700za7za7_1872za7, "&tvector-id", 11 );
BGL_DEFINE_STRING(BGl_string1805z00zz__tvectorz00, BgL_bgl_string1805za700za7za7_1873za7, "&get-tvector-descriptor", 23 );
BGL_DEFINE_STRING(BGl_string1807z00zz__tvectorz00, BgL_bgl_string1807za700za7za7_1874za7, "upcase", 6 );
BGL_DEFINE_STRING(BGl_string1809z00zz__tvectorz00, BgL_bgl_string1809za700za7za7_1875za7, "downcase", 8 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_getzd2tvectorzd2descriptorzd2envzd2zz__tvectorz00, BgL_bgl_za762getza7d2tvector1876z00, BGl_z62getzd2tvectorzd2descriptorz62zz__tvectorz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_declarezd2tvectorz12zd2envz12zz__tvectorz00, BgL_bgl_za762declareza7d2tve1877z00, BGl_z62declarezd2tvectorz12za2zz__tvectorz00, 0L, BUNSPEC, 4);
BGL_DEFINE_STRING(BGl_string1810z00zz__tvectorz00, BgL_bgl_string1810za700za7za7_1878za7, "declare-tvector!", 16 );
BGL_DEFINE_STRING(BGl_string1811z00zz__tvectorz00, BgL_bgl_string1811za700za7za7_1879za7, "struct-set!:not an instance of", 30 );
BGL_DEFINE_STRING(BGl_string1812z00zz__tvectorz00, BgL_bgl_string1812za700za7za7_1880za7, "&declare-tvector!", 17 );
BGL_DEFINE_STRING(BGl_string1813z00zz__tvectorz00, BgL_bgl_string1813za700za7za7_1881za7, "bstring", 7 );
BGL_DEFINE_STRING(BGl_string1814z00zz__tvectorz00, BgL_bgl_string1814za700za7za7_1882za7, "procedure", 9 );
BGL_DEFINE_STRING(BGl_string1815z00zz__tvectorz00, BgL_bgl_string1815za700za7za7_1883za7, "tvector-ref", 11 );
BGL_DEFINE_STRING(BGl_string1816z00zz__tvectorz00, BgL_bgl_string1816za700za7za7_1884za7, "&tvector-ref", 12 );
BGL_DEFINE_STRING(BGl_string1817z00zz__tvectorz00, BgL_bgl_string1817za700za7za7_1885za7, "list->tvector", 13 );
BGL_DEFINE_STRING(BGl_string1818z00zz__tvectorz00, BgL_bgl_string1818za700za7za7_1886za7, "list->tvector:Wrong number of arguments", 39 );
BGL_DEFINE_STRING(BGl_string1821z00zz__tvectorz00, BgL_bgl_string1821za700za7za7_1887za7, "funcall", 7 );
BGL_DEFINE_STRING(BGl_string1823z00zz__tvectorz00, BgL_bgl_string1823za700za7za7_1888za7, "allocate", 8 );
BGL_DEFINE_STRING(BGl_string1825z00zz__tvectorz00, BgL_bgl_string1825za700za7za7_1889za7, "len", 3 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_tvectorzd2refzd2envz00zz__tvectorz00, BgL_bgl_za762tvectorza7d2ref1890z00, BGl_z62tvectorzd2refzb0zz__tvectorz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1826z00zz__tvectorz00, BgL_bgl_string1826za700za7za7_1891za7, "loop", 4 );
BGL_DEFINE_STRING(BGl_string1827z00zz__tvectorz00, BgL_bgl_string1827za700za7za7_1892za7, "pair", 4 );
BGL_DEFINE_STRING(BGl_string1828z00zz__tvectorz00, BgL_bgl_string1828za700za7za7_1893za7, "loop:Wrong number of arguments", 30 );
BGL_DEFINE_STRING(BGl_string1831z00zz__tvectorz00, BgL_bgl_string1831za700za7za7_1894za7, "set", 3 );
BGL_DEFINE_STRING(BGl_string1833z00zz__tvectorz00, BgL_bgl_string1833za700za7za7_1895za7, "tvec", 4 );
BGL_DEFINE_STRING(BGl_string1835z00zz__tvectorz00, BgL_bgl_string1835za700za7za7_1896za7, "i", 1 );
BGL_DEFINE_STRING(BGl_string1837z00zz__tvectorz00, BgL_bgl_string1837za700za7za7_1897za7, "arg1248", 7 );
BGL_DEFINE_STRING(BGl_string1838z00zz__tvectorz00, BgL_bgl_string1838za700za7za7_1898za7, "Unable to convert to such tvector", 33 );
BGL_DEFINE_STRING(BGl_string1839z00zz__tvectorz00, BgL_bgl_string1839za700za7za7_1899za7, "Undeclared tvector", 18 );
BGL_DEFINE_STRING(BGl_string1840z00zz__tvectorz00, BgL_bgl_string1840za700za7za7_1900za7, "&list->tvector", 14 );
BGL_DEFINE_STRING(BGl_string1841z00zz__tvectorz00, BgL_bgl_string1841za700za7za7_1901za7, "pair-nil", 8 );
BGL_DEFINE_STRING(BGl_string1842z00zz__tvectorz00, BgL_bgl_string1842za700za7za7_1902za7, "vector->tvector", 15 );
BGL_DEFINE_STRING(BGl_string1843z00zz__tvectorz00, BgL_bgl_string1843za700za7za7_1903za7, "vector->tvector:Wrong number of arguments", 41 );
BGL_DEFINE_STRING(BGl_string1844z00zz__tvectorz00, BgL_bgl_string1844za700za7za7_1904za7, "vector-ref", 10 );
BGL_DEFINE_STRING(BGl_string1847z00zz__tvectorz00, BgL_bgl_string1847za700za7za7_1905za7, "arg1258", 7 );
BGL_DEFINE_STRING(BGl_string1848z00zz__tvectorz00, BgL_bgl_string1848za700za7za7_1906za7, "&vector->tvector", 16 );
BGL_DEFINE_STRING(BGl_string1849z00zz__tvectorz00, BgL_bgl_string1849za700za7za7_1907za7, "vector", 6 );
BGL_DEFINE_STRING(BGl_string1850z00zz__tvectorz00, BgL_bgl_string1850za700za7za7_1908za7, "tvector->vector", 15 );
BGL_DEFINE_STRING(BGl_string1853z00zz__tvectorz00, BgL_bgl_string1853za700za7za7_1909za7, "ref", 3 );
BGL_DEFINE_STRING(BGl_string1855z00zz__tvectorz00, BgL_bgl_string1855za700za7za7_1910za7, "tv", 2 );
BGL_DEFINE_STRING(BGl_string1856z00zz__tvectorz00, BgL_bgl_string1856za700za7za7_1911za7, "vector-set!", 11 );
BGL_DEFINE_STRING(BGl_string1857z00zz__tvectorz00, BgL_bgl_string1857za700za7za7_1912za7, "&tvector->vector", 16 );
BGL_DEFINE_STRING(BGl_string1858z00zz__tvectorz00, BgL_bgl_string1858za700za7za7_1913za7, "__tvector", 9 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_tvectorzd2idzd2envz00zz__tvectorz00, BgL_bgl_za762tvectorza7d2idza71914za7, BGl_z62tvectorzd2idzb0zz__tvectorz00, 0L, BUNSPEC, 1);

/* contant bindings */
static void bgl_constant_bindings() {
BGL_BIND_PROCEDURE(BGl_tvectorzd2idzd2envz00zz__tvectorz00, BgL_bgl_za762tvectorza7d2idza71914za7);
BGL_BIND_STRING(BGl_string1858z00zz__tvectorz00, BgL_bgl_string1858za700za7za7_1913za7);
BGL_BIND_STRING(BGl_string1857z00zz__tvectorz00, BgL_bgl_string1857za700za7za7_1912za7);
BGL_BIND_STRING(BGl_string1856z00zz__tvectorz00, BgL_bgl_string1856za700za7za7_1911za7);
BGL_BIND_STRING(BGl_string1855z00zz__tvectorz00, BgL_bgl_string1855za700za7za7_1910za7);
BGL_BIND_STRING(BGl_string1853z00zz__tvectorz00, BgL_bgl_string1853za700za7za7_1909za7);
BGL_BIND_STRING(BGl_string1850z00zz__tvectorz00, BgL_bgl_string1850za700za7za7_1908za7);
BGL_BIND_STRING(BGl_string1849z00zz__tvectorz00, BgL_bgl_string1849za700za7za7_1907za7);
BGL_BIND_STRING(BGl_string1848z00zz__tvectorz00, BgL_bgl_string1848za700za7za7_1906za7);
BGL_BIND_STRING(BGl_string1847z00zz__tvectorz00, BgL_bgl_string1847za700za7za7_1905za7);
BGL_BIND_STRING(BGl_string1844z00zz__tvectorz00, BgL_bgl_string1844za700za7za7_1904za7);
BGL_BIND_STRING(BGl_string1843z00zz__tvectorz00, BgL_bgl_string1843za700za7za7_1903za7);
BGL_BIND_STRING(BGl_string1842z00zz__tvectorz00, BgL_bgl_string1842za700za7za7_1902za7);
BGL_BIND_STRING(BGl_string1841z00zz__tvectorz00, BgL_bgl_string1841za700za7za7_1901za7);
BGL_BIND_STRING(BGl_string1840z00zz__tvectorz00, BgL_bgl_string1840za700za7za7_1900za7);
BGL_BIND_STRING(BGl_string1839z00zz__tvectorz00, BgL_bgl_string1839za700za7za7_1899za7);
BGL_BIND_STRING(BGl_string1838z00zz__tvectorz00, BgL_bgl_string1838za700za7za7_1898za7);
BGL_BIND_STRING(BGl_string1837z00zz__tvectorz00, BgL_bgl_string1837za700za7za7_1897za7);
BGL_BIND_STRING(BGl_string1835z00zz__tvectorz00, BgL_bgl_string1835za700za7za7_1896za7);
BGL_BIND_STRING(BGl_string1833z00zz__tvectorz00, BgL_bgl_string1833za700za7za7_1895za7);
BGL_BIND_STRING(BGl_string1831z00zz__tvectorz00, BgL_bgl_string1831za700za7za7_1894za7);
BGL_BIND_STRING(BGl_string1828z00zz__tvectorz00, BgL_bgl_string1828za700za7za7_1893za7);
BGL_BIND_STRING(BGl_string1827z00zz__tvectorz00, BgL_bgl_string1827za700za7za7_1892za7);
BGL_BIND_STRING(BGl_string1826z00zz__tvectorz00, BgL_bgl_string1826za700za7za7_1891za7);
BGL_BIND_PROCEDURE(BGl_tvectorzd2refzd2envz00zz__tvectorz00, BgL_bgl_za762tvectorza7d2ref1890z00);
BGL_BIND_STRING(BGl_string1825z00zz__tvectorz00, BgL_bgl_string1825za700za7za7_1889za7);
BGL_BIND_STRING(BGl_string1823z00zz__tvectorz00, BgL_bgl_string1823za700za7za7_1888za7);
BGL_BIND_STRING(BGl_string1821z00zz__tvectorz00, BgL_bgl_string1821za700za7za7_1887za7);
BGL_BIND_STRING(BGl_string1818z00zz__tvectorz00, BgL_bgl_string1818za700za7za7_1886za7);
BGL_BIND_STRING(BGl_string1817z00zz__tvectorz00, BgL_bgl_string1817za700za7za7_1885za7);
BGL_BIND_STRING(BGl_string1816z00zz__tvectorz00, BgL_bgl_string1816za700za7za7_1884za7);
BGL_BIND_STRING(BGl_string1815z00zz__tvectorz00, BgL_bgl_string1815za700za7za7_1883za7);
BGL_BIND_STRING(BGl_string1814z00zz__tvectorz00, BgL_bgl_string1814za700za7za7_1882za7);
BGL_BIND_STRING(BGl_string1813z00zz__tvectorz00, BgL_bgl_string1813za700za7za7_1881za7);
BGL_BIND_STRING(BGl_string1812z00zz__tvectorz00, BgL_bgl_string1812za700za7za7_1880za7);
BGL_BIND_STRING(BGl_string1811z00zz__tvectorz00, BgL_bgl_string1811za700za7za7_1879za7);
BGL_BIND_STRING(BGl_string1810z00zz__tvectorz00, BgL_bgl_string1810za700za7za7_1878za7);
BGL_BIND_PROCEDURE(BGl_declarezd2tvectorz12zd2envz12zz__tvectorz00, BgL_bgl_za762declareza7d2tve1877z00);
BGL_BIND_PROCEDURE(BGl_getzd2tvectorzd2descriptorzd2envzd2zz__tvectorz00, BgL_bgl_za762getza7d2tvector1876z00);
BGL_BIND_STRING(BGl_string1809z00zz__tvectorz00, BgL_bgl_string1809za700za7za7_1875za7);
BGL_BIND_STRING(BGl_string1807z00zz__tvectorz00, BgL_bgl_string1807za700za7za7_1874za7);
BGL_BIND_STRING(BGl_string1805z00zz__tvectorz00, BgL_bgl_string1805za700za7za7_1873za7);
BGL_BIND_STRING(BGl_string1804z00zz__tvectorz00, BgL_bgl_string1804za700za7za7_1872za7);
BGL_BIND_STRING(BGl_string1803z00zz__tvectorz00, BgL_bgl_string1803za700za7za7_1871za7);
BGL_BIND_STRING(BGl_string1802z00zz__tvectorz00, BgL_bgl_string1802za700za7za7_1870za7);
BGL_BIND_STRING(BGl_string1800z00zz__tvectorz00, BgL_bgl_string1800za700za7za7_1869za7);
BGL_BIND_PROCEDURE(BGl_tvectorzd2ze3vectorzd2envze3zz__tvectorz00, BgL_bgl_za762tvectorza7d2za7e31868za7);
BGL_BIND_PROCEDURE(BGl_tvectorzd2lengthzd2envz00zz__tvectorz00, BgL_bgl_za762tvectorza7d2len1867z00);
BGL_BIND_PROCEDURE(BGl_vectorzd2ze3tvectorzd2envze3zz__tvectorz00, BgL_bgl_za762vectorza7d2za7e3t1866za7);
BGL_BIND_PROCEDURE(BGl_listzd2ze3tvectorzd2envze3zz__tvectorz00, BgL_bgl_za762listza7d2za7e3tve1865za7);
BGL_BIND_PROCEDURE(BGl_tvectorzf3zd2envz21zz__tvectorz00, BgL_bgl_za762tvectorza7f3za7911864za7);
BGL_BIND_STRING(BGl_string1799z00zz__tvectorz00, BgL_bgl_string1799za700za7za7_1863za7);
BGL_BIND_STRING(BGl_string1798z00zz__tvectorz00, BgL_bgl_string1798za700za7za7_1862za7);
BGL_BIND_STRING(BGl_string1797z00zz__tvectorz00, BgL_bgl_string1797za700za7za7_1861za7);
BGL_BIND_STRING(BGl_string1796z00zz__tvectorz00, BgL_bgl_string1796za700za7za7_1860za7);
BGL_BIND_STRING(BGl_string1795z00zz__tvectorz00, BgL_bgl_string1795za700za7za7_1859za7);
}

/* GC roots registration */
static obj_t bgl_gc_roots_register() {
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
void *roots_min = (void*)ULONG_MAX, *roots_max = 0;
ADD_ROOT( (void *)(&BGl_symbol1830z00zz__tvectorz00) );
ADD_ROOT( (void *)(&BGl_symbol1832z00zz__tvectorz00) );
ADD_ROOT( (void *)(&BGl_symbol1834z00zz__tvectorz00) );
ADD_ROOT( (void *)(&BGl_symbol1836z00zz__tvectorz00) );
ADD_ROOT( (void *)(&BGl_symbol1846z00zz__tvectorz00) );
ADD_ROOT( (void *)(&BGl_list1819z00zz__tvectorz00) );
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__tvectorz00) );
ADD_ROOT( (void *)(&BGl_symbol1852z00zz__tvectorz00) );
ADD_ROOT( (void *)(&BGl_symbol1854z00zz__tvectorz00) );
ADD_ROOT( (void *)(&BGl_list1829z00zz__tvectorz00) );
ADD_ROOT( (void *)(&BGl_list1845z00zz__tvectorz00) );
ADD_ROOT( (void *)(&BGl_list1851z00zz__tvectorz00) );
ADD_ROOT( (void *)(&BGl_symbol1801z00zz__tvectorz00) );
ADD_ROOT( (void *)(&BGl_symbol1806z00zz__tvectorz00) );
ADD_ROOT( (void *)(&BGl_symbol1808z00zz__tvectorz00) );
ADD_ROOT( (void *)(&BGl_symbol1820z00zz__tvectorz00) );
ADD_ROOT( (void *)(&BGl_symbol1822z00zz__tvectorz00) );
ADD_ROOT( (void *)(&BGl_symbol1824z00zz__tvectorz00) );
ADD_ROOT( (void *)(&BGl_za2tvectorzd2tableza2zd2zz__tvectorz00) );
#undef ADD_ROOT
if( roots_max > 0 ) GC_add_roots( roots_min, ((void **)roots_max) + 1 );
#endif
return BUNSPEC;
}



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__tvectorz00(long BgL_checksumz00_2119, char * BgL_fromz00_2120)
{
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__tvectorz00))
{ 
BGl_requirezd2initializa7ationz75zz__tvectorz00 = 
BBOOL(((bool_t)0)); 
bgl_constant_bindings(); 
BGl_gczd2rootszd2initz00zz__tvectorz00(); 
BGl_cnstzd2initzd2zz__tvectorz00(); 
BGl_importedzd2moduleszd2initz00zz__tvectorz00(); 
return 
BGl_toplevelzd2initzd2zz__tvectorz00();}  else 
{ 
return BUNSPEC;} } 

}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__tvectorz00(void)
{
{ /* Llib/tvector.scm 14 */
BGl_symbol1801z00zz__tvectorz00 = 
bstring_to_symbol(BGl_string1802z00zz__tvectorz00); 
BGl_symbol1806z00zz__tvectorz00 = 
bstring_to_symbol(BGl_string1807z00zz__tvectorz00); 
BGl_symbol1808z00zz__tvectorz00 = 
bstring_to_symbol(BGl_string1809z00zz__tvectorz00); 
BGl_symbol1820z00zz__tvectorz00 = 
bstring_to_symbol(BGl_string1821z00zz__tvectorz00); 
BGl_symbol1822z00zz__tvectorz00 = 
bstring_to_symbol(BGl_string1823z00zz__tvectorz00); 
BGl_symbol1824z00zz__tvectorz00 = 
bstring_to_symbol(BGl_string1825z00zz__tvectorz00); 
BGl_list1819z00zz__tvectorz00 = 
MAKE_YOUNG_PAIR(BGl_symbol1820z00zz__tvectorz00, 
MAKE_YOUNG_PAIR(BGl_symbol1822z00zz__tvectorz00, 
MAKE_YOUNG_PAIR(BGl_symbol1822z00zz__tvectorz00, 
MAKE_YOUNG_PAIR(BGl_symbol1824z00zz__tvectorz00, BNIL)))); 
BGl_symbol1830z00zz__tvectorz00 = 
bstring_to_symbol(BGl_string1831z00zz__tvectorz00); 
BGl_symbol1832z00zz__tvectorz00 = 
bstring_to_symbol(BGl_string1833z00zz__tvectorz00); 
BGl_symbol1834z00zz__tvectorz00 = 
bstring_to_symbol(BGl_string1835z00zz__tvectorz00); 
BGl_symbol1836z00zz__tvectorz00 = 
bstring_to_symbol(BGl_string1837z00zz__tvectorz00); 
BGl_list1829z00zz__tvectorz00 = 
MAKE_YOUNG_PAIR(BGl_symbol1820z00zz__tvectorz00, 
MAKE_YOUNG_PAIR(BGl_symbol1830z00zz__tvectorz00, 
MAKE_YOUNG_PAIR(BGl_symbol1830z00zz__tvectorz00, 
MAKE_YOUNG_PAIR(BGl_symbol1832z00zz__tvectorz00, 
MAKE_YOUNG_PAIR(BGl_symbol1834z00zz__tvectorz00, 
MAKE_YOUNG_PAIR(BGl_symbol1836z00zz__tvectorz00, BNIL)))))); 
BGl_symbol1846z00zz__tvectorz00 = 
bstring_to_symbol(BGl_string1847z00zz__tvectorz00); 
BGl_list1845z00zz__tvectorz00 = 
MAKE_YOUNG_PAIR(BGl_symbol1820z00zz__tvectorz00, 
MAKE_YOUNG_PAIR(BGl_symbol1830z00zz__tvectorz00, 
MAKE_YOUNG_PAIR(BGl_symbol1830z00zz__tvectorz00, 
MAKE_YOUNG_PAIR(BGl_symbol1832z00zz__tvectorz00, 
MAKE_YOUNG_PAIR(BGl_symbol1834z00zz__tvectorz00, 
MAKE_YOUNG_PAIR(BGl_symbol1846z00zz__tvectorz00, BNIL)))))); 
BGl_symbol1852z00zz__tvectorz00 = 
bstring_to_symbol(BGl_string1853z00zz__tvectorz00); 
BGl_symbol1854z00zz__tvectorz00 = 
bstring_to_symbol(BGl_string1855z00zz__tvectorz00); 
return ( 
BGl_list1851z00zz__tvectorz00 = 
MAKE_YOUNG_PAIR(BGl_symbol1820z00zz__tvectorz00, 
MAKE_YOUNG_PAIR(BGl_symbol1852z00zz__tvectorz00, 
MAKE_YOUNG_PAIR(BGl_symbol1852z00zz__tvectorz00, 
MAKE_YOUNG_PAIR(BGl_symbol1854z00zz__tvectorz00, 
MAKE_YOUNG_PAIR(BGl_symbol1834z00zz__tvectorz00, BNIL))))), BUNSPEC) ;} 

}



/* gc-roots-init */
obj_t BGl_gczd2rootszd2initz00zz__tvectorz00(void)
{
{ /* Llib/tvector.scm 14 */
return 
bgl_gc_roots_register();} 

}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__tvectorz00(void)
{
{ /* Llib/tvector.scm 14 */
return ( 
BGl_za2tvectorzd2tableza2zd2zz__tvectorz00 = BNIL, BUNSPEC) ;} 

}



/* tvector? */
BGL_EXPORTED_DEF bool_t BGl_tvectorzf3zf3zz__tvectorz00(obj_t BgL_objz00_3)
{
{ /* Llib/tvector.scm 92 */
return 
TVECTORP(BgL_objz00_3);} 

}



/* &tvector? */
obj_t BGl_z62tvectorzf3z91zz__tvectorz00(obj_t BgL_envz00_1982, obj_t BgL_objz00_1983)
{
{ /* Llib/tvector.scm 92 */
return 
BBOOL(
BGl_tvectorzf3zf3zz__tvectorz00(BgL_objz00_1983));} 

}



/* tvector-length */
BGL_EXPORTED_DEF long BGl_tvectorzd2lengthzd2zz__tvectorz00(obj_t BgL_objz00_4)
{
{ /* Llib/tvector.scm 98 */
return 
TVECTOR_LENGTH(BgL_objz00_4);} 

}



/* &tvector-length */
obj_t BGl_z62tvectorzd2lengthzb0zz__tvectorz00(obj_t BgL_envz00_1984, obj_t BgL_objz00_1985)
{
{ /* Llib/tvector.scm 98 */
{ /* Llib/tvector.scm 99 */
 long BgL_tmpz00_2168;
{ /* Llib/tvector.scm 99 */
 obj_t BgL_auxz00_2169;
if(
TVECTORP(BgL_objz00_1985))
{ /* Llib/tvector.scm 99 */
BgL_auxz00_2169 = BgL_objz00_1985
; }  else 
{ 
 obj_t BgL_auxz00_2172;
BgL_auxz00_2172 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(3560L), BGl_string1796z00zz__tvectorz00, BGl_string1797z00zz__tvectorz00, BgL_objz00_1985); 
FAILURE(BgL_auxz00_2172,BFALSE,BFALSE);} 
BgL_tmpz00_2168 = 
BGl_tvectorzd2lengthzd2zz__tvectorz00(BgL_auxz00_2169); } 
return 
BINT(BgL_tmpz00_2168);} } 

}



/* tvector-id */
BGL_EXPORTED_DEF obj_t BGl_tvectorzd2idzd2zz__tvectorz00(obj_t BgL_tvectz00_5)
{
{ /* Llib/tvector.scm 104 */
{ /* Llib/tvector.scm 105 */
 obj_t BgL_arg1156z00_1651;
BgL_arg1156z00_1651 = 
TVECTOR_DESCR(BgL_tvectz00_5); 
{ /* Llib/tvector.scm 113 */
 bool_t BgL_test1917z00_2179;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_tmpz00_2180;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_res1673z00_1655;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_sz00_1654;
if(
STRUCTP(BgL_arg1156z00_1651))
{ /* Llib/tvector.scm 113 */
BgL_sz00_1654 = BgL_arg1156z00_1651; }  else 
{ 
 obj_t BgL_auxz00_2183;
BgL_auxz00_2183 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(4322L), BGl_string1798z00zz__tvectorz00, BGl_string1799z00zz__tvectorz00, BgL_arg1156z00_1651); 
FAILURE(BgL_auxz00_2183,BFALSE,BFALSE);} 
{ /* Llib/tvector.scm 113 */
 obj_t BgL_aux1712z00_2018;
BgL_aux1712z00_2018 = 
STRUCT_KEY(BgL_sz00_1654); 
if(
SYMBOLP(BgL_aux1712z00_2018))
{ /* Llib/tvector.scm 113 */
BgL_res1673z00_1655 = BgL_aux1712z00_2018; }  else 
{ 
 obj_t BgL_auxz00_2190;
BgL_auxz00_2190 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(4322L), BGl_string1798z00zz__tvectorz00, BGl_string1800z00zz__tvectorz00, BgL_aux1712z00_2018); 
FAILURE(BgL_auxz00_2190,BFALSE,BFALSE);} } } 
BgL_tmpz00_2180 = BgL_res1673z00_1655; } 
BgL_test1917z00_2179 = 
(BgL_tmpz00_2180==BGl_symbol1801z00zz__tvectorz00); } 
if(BgL_test1917z00_2179)
{ /* Llib/tvector.scm 113 */
 int BgL_tmpz00_2195;
BgL_tmpz00_2195 = 
(int)(0L); 
return 
UNSAFE_STRUCT_REF(BgL_arg1156z00_1651, BgL_tmpz00_2195);}  else 
{ /* Llib/tvector.scm 113 */
return 
BGl_errorz00zz__errorz00(BGl_string1803z00zz__tvectorz00, BGl_string1802z00zz__tvectorz00, BgL_arg1156z00_1651);} } } } 

}



/* &tvector-id */
obj_t BGl_z62tvectorzd2idzb0zz__tvectorz00(obj_t BgL_envz00_1986, obj_t BgL_tvectz00_1987)
{
{ /* Llib/tvector.scm 104 */
{ /* Llib/tvector.scm 105 */
 obj_t BgL_auxz00_2199;
if(
TVECTORP(BgL_tvectz00_1987))
{ /* Llib/tvector.scm 105 */
BgL_auxz00_2199 = BgL_tvectz00_1987
; }  else 
{ 
 obj_t BgL_auxz00_2202;
BgL_auxz00_2202 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(3852L), BGl_string1804z00zz__tvectorz00, BGl_string1797z00zz__tvectorz00, BgL_tvectz00_1987); 
FAILURE(BgL_auxz00_2202,BFALSE,BFALSE);} 
return 
BGl_tvectorzd2idzd2zz__tvectorz00(BgL_auxz00_2199);} } 

}



/* get-tvector-descriptor */
BGL_EXPORTED_DEF obj_t get_tvector_descriptor(obj_t BgL_idz00_24)
{
{ /* Llib/tvector.scm 127 */
if(
NULLP(BGl_za2tvectorzd2tableza2zd2zz__tvectorz00))
{ /* Llib/tvector.scm 128 */
return BFALSE;}  else 
{ /* Llib/tvector.scm 129 */
 obj_t BgL_cellz00_1173;
BgL_cellz00_1173 = 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_idz00_24, BGl_za2tvectorzd2tableza2zd2zz__tvectorz00); 
if(
PAIRP(BgL_cellz00_1173))
{ /* Llib/tvector.scm 130 */
return 
CDR(BgL_cellz00_1173);}  else 
{ /* Llib/tvector.scm 130 */
return BFALSE;} } } 

}



/* &get-tvector-descriptor */
obj_t BGl_z62getzd2tvectorzd2descriptorz62zz__tvectorz00(obj_t BgL_envz00_1988, obj_t BgL_idz00_1989)
{
{ /* Llib/tvector.scm 127 */
{ /* Llib/tvector.scm 128 */
 obj_t BgL_auxz00_2213;
if(
SYMBOLP(BgL_idz00_1989))
{ /* Llib/tvector.scm 128 */
BgL_auxz00_2213 = BgL_idz00_1989
; }  else 
{ 
 obj_t BgL_auxz00_2216;
BgL_auxz00_2216 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(5103L), BGl_string1805z00zz__tvectorz00, BGl_string1800z00zz__tvectorz00, BgL_idz00_1989); 
FAILURE(BgL_auxz00_2216,BFALSE,BFALSE);} 
return 
get_tvector_descriptor(BgL_auxz00_2213);} } 

}



/* declare-tvector! */
BGL_EXPORTED_DEF obj_t BGl_declarezd2tvectorz12zc0zz__tvectorz00(char * BgL_idz00_25, obj_t BgL_allocatez00_26, obj_t BgL_refz00_27, obj_t BgL_setz00_28)
{
{ /* Llib/tvector.scm 141 */
{ /* Llib/tvector.scm 142 */
 obj_t BgL_idz00_1175;
{ /* Llib/tvector.scm 142 */
 obj_t BgL_arg1236z00_1180;
{ /* Llib/tvector.scm 142 */
 obj_t BgL_casezd2valuezd2_1181;
BgL_casezd2valuezd2_1181 = 
BGl_bigloozd2casezd2sensitivityz00zz__readerz00(); 
if(
(BgL_casezd2valuezd2_1181==BGl_symbol1806z00zz__tvectorz00))
{ /* Llib/tvector.scm 142 */
BgL_arg1236z00_1180 = 
BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(
string_to_bstring(BgL_idz00_25)); }  else 
{ /* Llib/tvector.scm 142 */
if(
(BgL_casezd2valuezd2_1181==BGl_symbol1808z00zz__tvectorz00))
{ /* Llib/tvector.scm 142 */
BgL_arg1236z00_1180 = 
BGl_stringzd2downcasezd2zz__r4_strings_6_7z00(
string_to_bstring(BgL_idz00_25)); }  else 
{ /* Llib/tvector.scm 142 */
BgL_arg1236z00_1180 = 
string_to_bstring(BgL_idz00_25); } } } 
BgL_idz00_1175 = 
bstring_to_symbol(BgL_arg1236z00_1180); } 
{ /* Llib/tvector.scm 142 */
 obj_t BgL_oldz00_1176;
BgL_oldz00_1176 = 
get_tvector_descriptor(BgL_idz00_1175); 
{ /* Llib/tvector.scm 149 */

{ /* Llib/tvector.scm 150 */
 bool_t BgL_test1926z00_2233;
if(
STRUCTP(BgL_oldz00_1176))
{ /* Llib/tvector.scm 113 */
 obj_t BgL_tmpz00_2236;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_res1687z00_1717;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_aux1718z00_2024;
BgL_aux1718z00_2024 = 
STRUCT_KEY(BgL_oldz00_1176); 
if(
SYMBOLP(BgL_aux1718z00_2024))
{ /* Llib/tvector.scm 113 */
BgL_res1687z00_1717 = BgL_aux1718z00_2024; }  else 
{ 
 obj_t BgL_auxz00_2240;
BgL_auxz00_2240 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(4322L), BGl_string1810z00zz__tvectorz00, BGl_string1800z00zz__tvectorz00, BgL_aux1718z00_2024); 
FAILURE(BgL_auxz00_2240,BFALSE,BFALSE);} } 
BgL_tmpz00_2236 = BgL_res1687z00_1717; } 
BgL_test1926z00_2233 = 
(BgL_tmpz00_2236==BGl_symbol1801z00zz__tvectorz00); }  else 
{ /* Llib/tvector.scm 113 */
BgL_test1926z00_2233 = ((bool_t)0)
; } 
if(BgL_test1926z00_2233)
{ /* Llib/tvector.scm 150 */
return BgL_oldz00_1176;}  else 
{ /* Llib/tvector.scm 151 */
 obj_t BgL_newz00_1178;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_newz00_1718;
BgL_newz00_1718 = 
create_struct(BGl_symbol1801z00zz__tvectorz00, 
(int)(4L)); 
{ /* Llib/tvector.scm 113 */
 bool_t BgL_test1929z00_2247;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_tmpz00_2248;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_res1688z00_1722;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_aux1720z00_2026;
BgL_aux1720z00_2026 = 
STRUCT_KEY(BgL_newz00_1718); 
if(
SYMBOLP(BgL_aux1720z00_2026))
{ /* Llib/tvector.scm 113 */
BgL_res1688z00_1722 = BgL_aux1720z00_2026; }  else 
{ 
 obj_t BgL_auxz00_2252;
BgL_auxz00_2252 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(4322L), BGl_string1810z00zz__tvectorz00, BGl_string1800z00zz__tvectorz00, BgL_aux1720z00_2026); 
FAILURE(BgL_auxz00_2252,BFALSE,BFALSE);} } 
BgL_tmpz00_2248 = BgL_res1688z00_1722; } 
BgL_test1929z00_2247 = 
(BgL_tmpz00_2248==BGl_symbol1801z00zz__tvectorz00); } 
if(BgL_test1929z00_2247)
{ /* Llib/tvector.scm 113 */
 int BgL_tmpz00_2257;
BgL_tmpz00_2257 = 
(int)(3L); 
UNSAFE_STRUCT_SET(BgL_newz00_1718, BgL_tmpz00_2257, BgL_setz00_28); }  else 
{ /* Llib/tvector.scm 113 */
BGl_errorz00zz__errorz00(BGl_string1811z00zz__tvectorz00, BGl_string1802z00zz__tvectorz00, BgL_newz00_1718); } } 
{ /* Llib/tvector.scm 113 */
 bool_t BgL_test1931z00_2261;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_tmpz00_2262;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_res1689z00_1726;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_aux1722z00_2028;
BgL_aux1722z00_2028 = 
STRUCT_KEY(BgL_newz00_1718); 
if(
SYMBOLP(BgL_aux1722z00_2028))
{ /* Llib/tvector.scm 113 */
BgL_res1689z00_1726 = BgL_aux1722z00_2028; }  else 
{ 
 obj_t BgL_auxz00_2266;
BgL_auxz00_2266 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(4322L), BGl_string1810z00zz__tvectorz00, BGl_string1800z00zz__tvectorz00, BgL_aux1722z00_2028); 
FAILURE(BgL_auxz00_2266,BFALSE,BFALSE);} } 
BgL_tmpz00_2262 = BgL_res1689z00_1726; } 
BgL_test1931z00_2261 = 
(BgL_tmpz00_2262==BGl_symbol1801z00zz__tvectorz00); } 
if(BgL_test1931z00_2261)
{ /* Llib/tvector.scm 113 */
 int BgL_tmpz00_2271;
BgL_tmpz00_2271 = 
(int)(2L); 
UNSAFE_STRUCT_SET(BgL_newz00_1718, BgL_tmpz00_2271, BgL_refz00_27); }  else 
{ /* Llib/tvector.scm 113 */
BGl_errorz00zz__errorz00(BGl_string1811z00zz__tvectorz00, BGl_string1802z00zz__tvectorz00, BgL_newz00_1718); } } 
{ /* Llib/tvector.scm 113 */
 bool_t BgL_test1933z00_2275;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_tmpz00_2276;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_res1690z00_1730;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_aux1724z00_2030;
BgL_aux1724z00_2030 = 
STRUCT_KEY(BgL_newz00_1718); 
if(
SYMBOLP(BgL_aux1724z00_2030))
{ /* Llib/tvector.scm 113 */
BgL_res1690z00_1730 = BgL_aux1724z00_2030; }  else 
{ 
 obj_t BgL_auxz00_2280;
BgL_auxz00_2280 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(4322L), BGl_string1810z00zz__tvectorz00, BGl_string1800z00zz__tvectorz00, BgL_aux1724z00_2030); 
FAILURE(BgL_auxz00_2280,BFALSE,BFALSE);} } 
BgL_tmpz00_2276 = BgL_res1690z00_1730; } 
BgL_test1933z00_2275 = 
(BgL_tmpz00_2276==BGl_symbol1801z00zz__tvectorz00); } 
if(BgL_test1933z00_2275)
{ /* Llib/tvector.scm 113 */
 int BgL_tmpz00_2285;
BgL_tmpz00_2285 = 
(int)(1L); 
UNSAFE_STRUCT_SET(BgL_newz00_1718, BgL_tmpz00_2285, BgL_allocatez00_26); }  else 
{ /* Llib/tvector.scm 113 */
BGl_errorz00zz__errorz00(BGl_string1811z00zz__tvectorz00, BGl_string1802z00zz__tvectorz00, BgL_newz00_1718); } } 
{ /* Llib/tvector.scm 113 */
 bool_t BgL_test1935z00_2289;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_tmpz00_2290;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_res1691z00_1734;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_aux1726z00_2032;
BgL_aux1726z00_2032 = 
STRUCT_KEY(BgL_newz00_1718); 
if(
SYMBOLP(BgL_aux1726z00_2032))
{ /* Llib/tvector.scm 113 */
BgL_res1691z00_1734 = BgL_aux1726z00_2032; }  else 
{ 
 obj_t BgL_auxz00_2294;
BgL_auxz00_2294 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(4322L), BGl_string1810z00zz__tvectorz00, BGl_string1800z00zz__tvectorz00, BgL_aux1726z00_2032); 
FAILURE(BgL_auxz00_2294,BFALSE,BFALSE);} } 
BgL_tmpz00_2290 = BgL_res1691z00_1734; } 
BgL_test1935z00_2289 = 
(BgL_tmpz00_2290==BGl_symbol1801z00zz__tvectorz00); } 
if(BgL_test1935z00_2289)
{ /* Llib/tvector.scm 113 */
 int BgL_tmpz00_2299;
BgL_tmpz00_2299 = 
(int)(0L); 
UNSAFE_STRUCT_SET(BgL_newz00_1718, BgL_tmpz00_2299, BgL_idz00_1175); }  else 
{ /* Llib/tvector.scm 113 */
BGl_errorz00zz__errorz00(BGl_string1811z00zz__tvectorz00, BGl_string1802z00zz__tvectorz00, BgL_newz00_1718); } } 
BgL_newz00_1178 = BgL_newz00_1718; } 
{ /* Llib/tvector.scm 152 */
 obj_t BgL_arg1235z00_1179;
BgL_arg1235z00_1179 = 
MAKE_YOUNG_PAIR(BgL_idz00_1175, BgL_newz00_1178); 
BGl_za2tvectorzd2tableza2zd2zz__tvectorz00 = 
MAKE_YOUNG_PAIR(BgL_arg1235z00_1179, BGl_za2tvectorzd2tableza2zd2zz__tvectorz00); } 
return BgL_newz00_1178;} } } } } } 

}



/* &declare-tvector! */
obj_t BGl_z62declarezd2tvectorz12za2zz__tvectorz00(obj_t BgL_envz00_1990, obj_t BgL_idz00_1991, obj_t BgL_allocatez00_1992, obj_t BgL_refz00_1993, obj_t BgL_setz00_1994)
{
{ /* Llib/tvector.scm 141 */
{ /* Llib/tvector.scm 142 */
 obj_t BgL_auxz00_2314; char * BgL_auxz00_2305;
if(
PROCEDUREP(BgL_allocatez00_1992))
{ /* Llib/tvector.scm 142 */
BgL_auxz00_2314 = BgL_allocatez00_1992
; }  else 
{ 
 obj_t BgL_auxz00_2317;
BgL_auxz00_2317 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(5792L), BGl_string1812z00zz__tvectorz00, BGl_string1814z00zz__tvectorz00, BgL_allocatez00_1992); 
FAILURE(BgL_auxz00_2317,BFALSE,BFALSE);} 
{ /* Llib/tvector.scm 142 */
 obj_t BgL_tmpz00_2306;
if(
STRINGP(BgL_idz00_1991))
{ /* Llib/tvector.scm 142 */
BgL_tmpz00_2306 = BgL_idz00_1991
; }  else 
{ 
 obj_t BgL_auxz00_2309;
BgL_auxz00_2309 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(5792L), BGl_string1812z00zz__tvectorz00, BGl_string1813z00zz__tvectorz00, BgL_idz00_1991); 
FAILURE(BgL_auxz00_2309,BFALSE,BFALSE);} 
BgL_auxz00_2305 = 
BSTRING_TO_STRING(BgL_tmpz00_2306); } 
return 
BGl_declarezd2tvectorz12zc0zz__tvectorz00(BgL_auxz00_2305, BgL_auxz00_2314, BgL_refz00_1993, BgL_setz00_1994);} } 

}



/* tvector-ref */
BGL_EXPORTED_DEF obj_t BGl_tvectorzd2refzd2zz__tvectorz00(obj_t BgL_tvectorz00_29)
{
{ /* Llib/tvector.scm 159 */
{ /* Llib/tvector.scm 160 */
 obj_t BgL_arg1242z00_1735;
BgL_arg1242z00_1735 = 
TVECTOR_DESCR(BgL_tvectorz00_29); 
{ /* Llib/tvector.scm 113 */
 bool_t BgL_test1939z00_2323;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_tmpz00_2324;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_res1692z00_1739;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_sz00_1738;
if(
STRUCTP(BgL_arg1242z00_1735))
{ /* Llib/tvector.scm 113 */
BgL_sz00_1738 = BgL_arg1242z00_1735; }  else 
{ 
 obj_t BgL_auxz00_2327;
BgL_auxz00_2327 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(4322L), BGl_string1815z00zz__tvectorz00, BGl_string1799z00zz__tvectorz00, BgL_arg1242z00_1735); 
FAILURE(BgL_auxz00_2327,BFALSE,BFALSE);} 
{ /* Llib/tvector.scm 113 */
 obj_t BgL_aux1734z00_2040;
BgL_aux1734z00_2040 = 
STRUCT_KEY(BgL_sz00_1738); 
if(
SYMBOLP(BgL_aux1734z00_2040))
{ /* Llib/tvector.scm 113 */
BgL_res1692z00_1739 = BgL_aux1734z00_2040; }  else 
{ 
 obj_t BgL_auxz00_2334;
BgL_auxz00_2334 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(4322L), BGl_string1815z00zz__tvectorz00, BGl_string1800z00zz__tvectorz00, BgL_aux1734z00_2040); 
FAILURE(BgL_auxz00_2334,BFALSE,BFALSE);} } } 
BgL_tmpz00_2324 = BgL_res1692z00_1739; } 
BgL_test1939z00_2323 = 
(BgL_tmpz00_2324==BGl_symbol1801z00zz__tvectorz00); } 
if(BgL_test1939z00_2323)
{ /* Llib/tvector.scm 113 */
 int BgL_tmpz00_2339;
BgL_tmpz00_2339 = 
(int)(2L); 
return 
UNSAFE_STRUCT_REF(BgL_arg1242z00_1735, BgL_tmpz00_2339);}  else 
{ /* Llib/tvector.scm 113 */
return 
BGl_errorz00zz__errorz00(BGl_string1803z00zz__tvectorz00, BGl_string1802z00zz__tvectorz00, BgL_arg1242z00_1735);} } } } 

}



/* &tvector-ref */
obj_t BGl_z62tvectorzd2refzb0zz__tvectorz00(obj_t BgL_envz00_1995, obj_t BgL_tvectorz00_1996)
{
{ /* Llib/tvector.scm 159 */
{ /* Llib/tvector.scm 160 */
 obj_t BgL_auxz00_2343;
if(
TVECTORP(BgL_tvectorz00_1996))
{ /* Llib/tvector.scm 160 */
BgL_auxz00_2343 = BgL_tvectorz00_1996
; }  else 
{ 
 obj_t BgL_auxz00_2346;
BgL_auxz00_2346 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(6513L), BGl_string1816z00zz__tvectorz00, BGl_string1797z00zz__tvectorz00, BgL_tvectorz00_1996); 
FAILURE(BgL_auxz00_2346,BFALSE,BFALSE);} 
return 
BGl_tvectorzd2refzd2zz__tvectorz00(BgL_auxz00_2343);} } 

}



/* list->tvector */
BGL_EXPORTED_DEF obj_t BGl_listzd2ze3tvectorz31zz__tvectorz00(obj_t BgL_idz00_30, obj_t BgL_lz00_31)
{
{ /* Llib/tvector.scm 165 */
{ /* Llib/tvector.scm 166 */
 obj_t BgL_descrz00_1187;
BgL_descrz00_1187 = 
get_tvector_descriptor(BgL_idz00_30); 
if(
CBOOL(BgL_descrz00_1187))
{ /* Llib/tvector.scm 169 */
 obj_t BgL_allocatez00_1188; obj_t BgL_setz00_1189;
{ /* Llib/tvector.scm 113 */
 bool_t BgL_test1944z00_2354;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_tmpz00_2355;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_res1693z00_1743;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_sz00_1742;
if(
STRUCTP(BgL_descrz00_1187))
{ /* Llib/tvector.scm 113 */
BgL_sz00_1742 = BgL_descrz00_1187; }  else 
{ 
 obj_t BgL_auxz00_2358;
BgL_auxz00_2358 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(4322L), BGl_string1817z00zz__tvectorz00, BGl_string1799z00zz__tvectorz00, BgL_descrz00_1187); 
FAILURE(BgL_auxz00_2358,BFALSE,BFALSE);} 
{ /* Llib/tvector.scm 113 */
 obj_t BgL_aux1740z00_2046;
BgL_aux1740z00_2046 = 
STRUCT_KEY(BgL_sz00_1742); 
if(
SYMBOLP(BgL_aux1740z00_2046))
{ /* Llib/tvector.scm 113 */
BgL_res1693z00_1743 = BgL_aux1740z00_2046; }  else 
{ 
 obj_t BgL_auxz00_2365;
BgL_auxz00_2365 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(4322L), BGl_string1817z00zz__tvectorz00, BGl_string1800z00zz__tvectorz00, BgL_aux1740z00_2046); 
FAILURE(BgL_auxz00_2365,BFALSE,BFALSE);} } } 
BgL_tmpz00_2355 = BgL_res1693z00_1743; } 
BgL_test1944z00_2354 = 
(BgL_tmpz00_2355==BGl_symbol1801z00zz__tvectorz00); } 
if(BgL_test1944z00_2354)
{ /* Llib/tvector.scm 113 */
 int BgL_tmpz00_2370;
BgL_tmpz00_2370 = 
(int)(1L); 
BgL_allocatez00_1188 = 
UNSAFE_STRUCT_REF(BgL_descrz00_1187, BgL_tmpz00_2370); }  else 
{ /* Llib/tvector.scm 113 */
BgL_allocatez00_1188 = 
BGl_errorz00zz__errorz00(BGl_string1803z00zz__tvectorz00, BGl_string1802z00zz__tvectorz00, BgL_descrz00_1187); } } 
{ /* Llib/tvector.scm 113 */
 bool_t BgL_test1947z00_2374;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_tmpz00_2375;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_res1694z00_1747;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_sz00_1746;
if(
STRUCTP(BgL_descrz00_1187))
{ /* Llib/tvector.scm 113 */
BgL_sz00_1746 = BgL_descrz00_1187; }  else 
{ 
 obj_t BgL_auxz00_2378;
BgL_auxz00_2378 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(4322L), BGl_string1817z00zz__tvectorz00, BGl_string1799z00zz__tvectorz00, BgL_descrz00_1187); 
FAILURE(BgL_auxz00_2378,BFALSE,BFALSE);} 
{ /* Llib/tvector.scm 113 */
 obj_t BgL_aux1744z00_2050;
BgL_aux1744z00_2050 = 
STRUCT_KEY(BgL_sz00_1746); 
if(
SYMBOLP(BgL_aux1744z00_2050))
{ /* Llib/tvector.scm 113 */
BgL_res1694z00_1747 = BgL_aux1744z00_2050; }  else 
{ 
 obj_t BgL_auxz00_2385;
BgL_auxz00_2385 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(4322L), BGl_string1817z00zz__tvectorz00, BGl_string1800z00zz__tvectorz00, BgL_aux1744z00_2050); 
FAILURE(BgL_auxz00_2385,BFALSE,BFALSE);} } } 
BgL_tmpz00_2375 = BgL_res1694z00_1747; } 
BgL_test1947z00_2374 = 
(BgL_tmpz00_2375==BGl_symbol1801z00zz__tvectorz00); } 
if(BgL_test1947z00_2374)
{ /* Llib/tvector.scm 113 */
 int BgL_tmpz00_2390;
BgL_tmpz00_2390 = 
(int)(3L); 
BgL_setz00_1189 = 
UNSAFE_STRUCT_REF(BgL_descrz00_1187, BgL_tmpz00_2390); }  else 
{ /* Llib/tvector.scm 113 */
BgL_setz00_1189 = 
BGl_errorz00zz__errorz00(BGl_string1803z00zz__tvectorz00, BGl_string1802z00zz__tvectorz00, BgL_descrz00_1187); } } 
if(
PROCEDUREP(BgL_setz00_1189))
{ /* Llib/tvector.scm 175 */
 long BgL_lenz00_1191;
BgL_lenz00_1191 = 
bgl_list_length(BgL_lz00_31); 
{ /* Llib/tvector.scm 175 */
 obj_t BgL_tvecz00_1192;
{ /* Llib/tvector.scm 176 */
 obj_t BgL_funz00_2054;
if(
PROCEDUREP(BgL_allocatez00_1188))
{ /* Llib/tvector.scm 176 */
BgL_funz00_2054 = BgL_allocatez00_1188; }  else 
{ 
 obj_t BgL_auxz00_2399;
BgL_auxz00_2399 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(7159L), BGl_string1817z00zz__tvectorz00, BGl_string1814z00zz__tvectorz00, BgL_allocatez00_1188); 
FAILURE(BgL_auxz00_2399,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_2054, 1))
{ /* Llib/tvector.scm 176 */
BgL_tvecz00_1192 = 
(VA_PROCEDUREP( BgL_funz00_2054 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_2054))(BgL_allocatez00_1188, 
BINT(BgL_lenz00_1191), BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_2054))(BgL_allocatez00_1188, 
BINT(BgL_lenz00_1191)) ); }  else 
{ /* Llib/tvector.scm 176 */
FAILURE(BGl_string1818z00zz__tvectorz00,BGl_list1819z00zz__tvectorz00,BgL_funz00_2054);} } 
{ /* Llib/tvector.scm 176 */

{ 
 obj_t BgL_lz00_1752; long BgL_iz00_1753;
BgL_lz00_1752 = BgL_lz00_31; 
BgL_iz00_1753 = 0L; 
BgL_loopz00_1751:
if(
NULLP(BgL_lz00_1752))
{ /* Llib/tvector.scm 179 */
return BgL_tvecz00_1192;}  else 
{ /* Llib/tvector.scm 179 */
{ /* Llib/tvector.scm 182 */
 obj_t BgL_arg1248z00_1755;
{ /* Llib/tvector.scm 182 */
 obj_t BgL_pairz00_1756;
if(
PAIRP(BgL_lz00_1752))
{ /* Llib/tvector.scm 182 */
BgL_pairz00_1756 = BgL_lz00_1752; }  else 
{ 
 obj_t BgL_auxz00_2415;
BgL_auxz00_2415 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(7289L), BGl_string1826z00zz__tvectorz00, BGl_string1827z00zz__tvectorz00, BgL_lz00_1752); 
FAILURE(BgL_auxz00_2415,BFALSE,BFALSE);} 
BgL_arg1248z00_1755 = 
CAR(BgL_pairz00_1756); } 
if(
PROCEDURE_CORRECT_ARITYP(
((obj_t)BgL_setz00_1189), 3))
{ /* Llib/tvector.scm 182 */
 obj_t BgL_tmpfunz00_2429;
BgL_tmpfunz00_2429 = 
((obj_t)BgL_setz00_1189); 
(VA_PROCEDUREP( BgL_tmpfunz00_2429 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_tmpfunz00_2429))(BgL_setz00_1189, BgL_tvecz00_1192, 
BINT(BgL_iz00_1753), BgL_arg1248z00_1755, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_tmpfunz00_2429))(BgL_setz00_1189, BgL_tvecz00_1192, 
BINT(BgL_iz00_1753), BgL_arg1248z00_1755) ); }  else 
{ 
 obj_t BgL_auxz00_2431;
BgL_auxz00_2431 = 
((obj_t)BgL_setz00_1189); 
FAILURE(BGl_string1828z00zz__tvectorz00,BGl_list1829z00zz__tvectorz00,BgL_auxz00_2431);} } 
{ /* Llib/tvector.scm 183 */
 obj_t BgL_arg1249z00_1757; long BgL_arg1252z00_1758;
{ /* Llib/tvector.scm 183 */
 obj_t BgL_pairz00_1759;
if(
PAIRP(BgL_lz00_1752))
{ /* Llib/tvector.scm 183 */
BgL_pairz00_1759 = BgL_lz00_1752; }  else 
{ 
 obj_t BgL_auxz00_2436;
BgL_auxz00_2436 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(7313L), BGl_string1826z00zz__tvectorz00, BGl_string1827z00zz__tvectorz00, BgL_lz00_1752); 
FAILURE(BgL_auxz00_2436,BFALSE,BFALSE);} 
BgL_arg1249z00_1757 = 
CDR(BgL_pairz00_1759); } 
BgL_arg1252z00_1758 = 
(BgL_iz00_1753+1L); 
{ 
 long BgL_iz00_2443; obj_t BgL_lz00_2442;
BgL_lz00_2442 = BgL_arg1249z00_1757; 
BgL_iz00_2443 = BgL_arg1252z00_1758; 
BgL_iz00_1753 = BgL_iz00_2443; 
BgL_lz00_1752 = BgL_lz00_2442; 
goto BgL_loopz00_1751;} } } } } } }  else 
{ /* Llib/tvector.scm 171 */
return 
BGl_errorz00zz__errorz00(BGl_string1817z00zz__tvectorz00, BGl_string1838z00zz__tvectorz00, BgL_idz00_30);} }  else 
{ /* Llib/tvector.scm 167 */
return 
BGl_errorz00zz__errorz00(BGl_string1817z00zz__tvectorz00, BGl_string1839z00zz__tvectorz00, BgL_idz00_30);} } } 

}



/* &list->tvector */
obj_t BGl_z62listzd2ze3tvectorz53zz__tvectorz00(obj_t BgL_envz00_1997, obj_t BgL_idz00_1998, obj_t BgL_lz00_1999)
{
{ /* Llib/tvector.scm 165 */
{ /* Llib/tvector.scm 166 */
 obj_t BgL_auxz00_2453; obj_t BgL_auxz00_2446;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_lz00_1999))
{ /* Llib/tvector.scm 166 */
BgL_auxz00_2453 = BgL_lz00_1999
; }  else 
{ 
 obj_t BgL_auxz00_2456;
BgL_auxz00_2456 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(6814L), BGl_string1840z00zz__tvectorz00, BGl_string1841z00zz__tvectorz00, BgL_lz00_1999); 
FAILURE(BgL_auxz00_2456,BFALSE,BFALSE);} 
if(
SYMBOLP(BgL_idz00_1998))
{ /* Llib/tvector.scm 166 */
BgL_auxz00_2446 = BgL_idz00_1998
; }  else 
{ 
 obj_t BgL_auxz00_2449;
BgL_auxz00_2449 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(6814L), BGl_string1840z00zz__tvectorz00, BGl_string1800z00zz__tvectorz00, BgL_idz00_1998); 
FAILURE(BgL_auxz00_2449,BFALSE,BFALSE);} 
return 
BGl_listzd2ze3tvectorz31zz__tvectorz00(BgL_auxz00_2446, BgL_auxz00_2453);} } 

}



/* vector->tvector */
BGL_EXPORTED_DEF obj_t BGl_vectorzd2ze3tvectorz31zz__tvectorz00(obj_t BgL_idz00_32, obj_t BgL_vz00_33)
{
{ /* Llib/tvector.scm 188 */
{ /* Llib/tvector.scm 189 */
 obj_t BgL_descrz00_1202;
BgL_descrz00_1202 = 
get_tvector_descriptor(BgL_idz00_32); 
if(
CBOOL(BgL_descrz00_1202))
{ /* Llib/tvector.scm 192 */
 obj_t BgL_allocatez00_1203; obj_t BgL_setz00_1204;
{ /* Llib/tvector.scm 113 */
 bool_t BgL_test1960z00_2464;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_tmpz00_2465;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_res1695z00_1764;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_sz00_1763;
if(
STRUCTP(BgL_descrz00_1202))
{ /* Llib/tvector.scm 113 */
BgL_sz00_1763 = BgL_descrz00_1202; }  else 
{ 
 obj_t BgL_auxz00_2468;
BgL_auxz00_2468 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(4322L), BGl_string1842z00zz__tvectorz00, BGl_string1799z00zz__tvectorz00, BgL_descrz00_1202); 
FAILURE(BgL_auxz00_2468,BFALSE,BFALSE);} 
{ /* Llib/tvector.scm 113 */
 obj_t BgL_aux1762z00_2070;
BgL_aux1762z00_2070 = 
STRUCT_KEY(BgL_sz00_1763); 
if(
SYMBOLP(BgL_aux1762z00_2070))
{ /* Llib/tvector.scm 113 */
BgL_res1695z00_1764 = BgL_aux1762z00_2070; }  else 
{ 
 obj_t BgL_auxz00_2475;
BgL_auxz00_2475 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(4322L), BGl_string1842z00zz__tvectorz00, BGl_string1800z00zz__tvectorz00, BgL_aux1762z00_2070); 
FAILURE(BgL_auxz00_2475,BFALSE,BFALSE);} } } 
BgL_tmpz00_2465 = BgL_res1695z00_1764; } 
BgL_test1960z00_2464 = 
(BgL_tmpz00_2465==BGl_symbol1801z00zz__tvectorz00); } 
if(BgL_test1960z00_2464)
{ /* Llib/tvector.scm 113 */
 int BgL_tmpz00_2480;
BgL_tmpz00_2480 = 
(int)(1L); 
BgL_allocatez00_1203 = 
UNSAFE_STRUCT_REF(BgL_descrz00_1202, BgL_tmpz00_2480); }  else 
{ /* Llib/tvector.scm 113 */
BgL_allocatez00_1203 = 
BGl_errorz00zz__errorz00(BGl_string1803z00zz__tvectorz00, BGl_string1802z00zz__tvectorz00, BgL_descrz00_1202); } } 
{ /* Llib/tvector.scm 113 */
 bool_t BgL_test1963z00_2484;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_tmpz00_2485;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_res1696z00_1768;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_sz00_1767;
if(
STRUCTP(BgL_descrz00_1202))
{ /* Llib/tvector.scm 113 */
BgL_sz00_1767 = BgL_descrz00_1202; }  else 
{ 
 obj_t BgL_auxz00_2488;
BgL_auxz00_2488 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(4322L), BGl_string1842z00zz__tvectorz00, BGl_string1799z00zz__tvectorz00, BgL_descrz00_1202); 
FAILURE(BgL_auxz00_2488,BFALSE,BFALSE);} 
{ /* Llib/tvector.scm 113 */
 obj_t BgL_aux1766z00_2074;
BgL_aux1766z00_2074 = 
STRUCT_KEY(BgL_sz00_1767); 
if(
SYMBOLP(BgL_aux1766z00_2074))
{ /* Llib/tvector.scm 113 */
BgL_res1696z00_1768 = BgL_aux1766z00_2074; }  else 
{ 
 obj_t BgL_auxz00_2495;
BgL_auxz00_2495 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(4322L), BGl_string1842z00zz__tvectorz00, BGl_string1800z00zz__tvectorz00, BgL_aux1766z00_2074); 
FAILURE(BgL_auxz00_2495,BFALSE,BFALSE);} } } 
BgL_tmpz00_2485 = BgL_res1696z00_1768; } 
BgL_test1963z00_2484 = 
(BgL_tmpz00_2485==BGl_symbol1801z00zz__tvectorz00); } 
if(BgL_test1963z00_2484)
{ /* Llib/tvector.scm 113 */
 int BgL_tmpz00_2500;
BgL_tmpz00_2500 = 
(int)(3L); 
BgL_setz00_1204 = 
UNSAFE_STRUCT_REF(BgL_descrz00_1202, BgL_tmpz00_2500); }  else 
{ /* Llib/tvector.scm 113 */
BgL_setz00_1204 = 
BGl_errorz00zz__errorz00(BGl_string1803z00zz__tvectorz00, BGl_string1802z00zz__tvectorz00, BgL_descrz00_1202); } } 
if(
PROCEDUREP(BgL_setz00_1204))
{ /* Llib/tvector.scm 198 */
 obj_t BgL_tvecz00_1207;
{ /* Llib/tvector.scm 199 */
 obj_t BgL_funz00_2078;
if(
PROCEDUREP(BgL_allocatez00_1203))
{ /* Llib/tvector.scm 199 */
BgL_funz00_2078 = BgL_allocatez00_1203; }  else 
{ 
 obj_t BgL_auxz00_2508;
BgL_auxz00_2508 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(7965L), BGl_string1842z00zz__tvectorz00, BGl_string1814z00zz__tvectorz00, BgL_allocatez00_1203); 
FAILURE(BgL_auxz00_2508,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_2078, 1))
{ /* Llib/tvector.scm 199 */
BgL_tvecz00_1207 = 
(VA_PROCEDUREP( BgL_funz00_2078 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_2078))(BgL_allocatez00_1203, 
BINT(
VECTOR_LENGTH(BgL_vz00_33)), BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_2078))(BgL_allocatez00_1203, 
BINT(
VECTOR_LENGTH(BgL_vz00_33))) ); }  else 
{ /* Llib/tvector.scm 199 */
FAILURE(BGl_string1843z00zz__tvectorz00,BGl_list1819z00zz__tvectorz00,BgL_funz00_2078);} } 
{ /* Llib/tvector.scm 199 */

{ /* Llib/tvector.scm 200 */
 long BgL_g1040z00_1208;
BgL_g1040z00_1208 = 
(
VECTOR_LENGTH(BgL_vz00_33)-1L); 
{ 
 long BgL_iz00_1210;
BgL_iz00_1210 = BgL_g1040z00_1208; 
BgL_zc3z04anonymousza31254ze3z87_1211:
if(
(BgL_iz00_1210==(-1L)))
{ /* Llib/tvector.scm 201 */
return BgL_tvecz00_1207;}  else 
{ /* Llib/tvector.scm 201 */
{ /* Llib/tvector.scm 204 */
 obj_t BgL_arg1258z00_1213;
{ /* Llib/tvector.scm 204 */
 bool_t BgL_test1970z00_2525;
{ /* Llib/tvector.scm 204 */
 long BgL_tmpz00_2526;
BgL_tmpz00_2526 = 
VECTOR_LENGTH(BgL_vz00_33); 
BgL_test1970z00_2525 = 
BOUND_CHECK(BgL_iz00_1210, BgL_tmpz00_2526); } 
if(BgL_test1970z00_2525)
{ /* Llib/tvector.scm 204 */
BgL_arg1258z00_1213 = 
VECTOR_REF(BgL_vz00_33,BgL_iz00_1210); }  else 
{ 
 obj_t BgL_auxz00_2530;
BgL_auxz00_2530 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(8085L), BGl_string1844z00zz__tvectorz00, BgL_vz00_33, 
(int)(
VECTOR_LENGTH(BgL_vz00_33)), 
(int)(BgL_iz00_1210)); 
FAILURE(BgL_auxz00_2530,BFALSE,BFALSE);} } 
if(
PROCEDURE_CORRECT_ARITYP(
((obj_t)BgL_setz00_1204), 3))
{ /* Llib/tvector.scm 204 */
 obj_t BgL_tmpfunz00_2546;
BgL_tmpfunz00_2546 = 
((obj_t)BgL_setz00_1204); 
(VA_PROCEDUREP( BgL_tmpfunz00_2546 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_tmpfunz00_2546))(BgL_setz00_1204, BgL_tvecz00_1207, 
BINT(BgL_iz00_1210), BgL_arg1258z00_1213, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_tmpfunz00_2546))(BgL_setz00_1204, BgL_tvecz00_1207, 
BINT(BgL_iz00_1210), BgL_arg1258z00_1213) ); }  else 
{ 
 obj_t BgL_auxz00_2548;
BgL_auxz00_2548 = 
((obj_t)BgL_setz00_1204); 
FAILURE(BGl_string1828z00zz__tvectorz00,BGl_list1845z00zz__tvectorz00,BgL_auxz00_2548);} } 
{ 
 long BgL_iz00_2551;
BgL_iz00_2551 = 
(BgL_iz00_1210-1L); 
BgL_iz00_1210 = BgL_iz00_2551; 
goto BgL_zc3z04anonymousza31254ze3z87_1211;} } } } } }  else 
{ /* Llib/tvector.scm 194 */
return 
BGl_errorz00zz__errorz00(BGl_string1842z00zz__tvectorz00, BGl_string1838z00zz__tvectorz00, BgL_idz00_32);} }  else 
{ /* Llib/tvector.scm 190 */
return 
BGl_errorz00zz__errorz00(BGl_string1842z00zz__tvectorz00, BGl_string1839z00zz__tvectorz00, BgL_idz00_32);} } } 

}



/* &vector->tvector */
obj_t BGl_z62vectorzd2ze3tvectorz53zz__tvectorz00(obj_t BgL_envz00_2000, obj_t BgL_idz00_2001, obj_t BgL_vz00_2002)
{
{ /* Llib/tvector.scm 188 */
{ /* Llib/tvector.scm 189 */
 obj_t BgL_auxz00_2562; obj_t BgL_auxz00_2555;
if(
VECTORP(BgL_vz00_2002))
{ /* Llib/tvector.scm 189 */
BgL_auxz00_2562 = BgL_vz00_2002
; }  else 
{ 
 obj_t BgL_auxz00_2565;
BgL_auxz00_2565 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(7609L), BGl_string1848z00zz__tvectorz00, BGl_string1849z00zz__tvectorz00, BgL_vz00_2002); 
FAILURE(BgL_auxz00_2565,BFALSE,BFALSE);} 
if(
SYMBOLP(BgL_idz00_2001))
{ /* Llib/tvector.scm 189 */
BgL_auxz00_2555 = BgL_idz00_2001
; }  else 
{ 
 obj_t BgL_auxz00_2558;
BgL_auxz00_2558 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(7609L), BGl_string1848z00zz__tvectorz00, BGl_string1800z00zz__tvectorz00, BgL_idz00_2001); 
FAILURE(BgL_auxz00_2558,BFALSE,BFALSE);} 
return 
BGl_vectorzd2ze3tvectorz31zz__tvectorz00(BgL_auxz00_2555, BgL_auxz00_2562);} } 

}



/* tvector->vector */
BGL_EXPORTED_DEF obj_t BGl_tvectorzd2ze3vectorz31zz__tvectorz00(obj_t BgL_tvz00_34)
{
{ /* Llib/tvector.scm 210 */
{ /* Llib/tvector.scm 211 */
 obj_t BgL_descrz00_1216;
BgL_descrz00_1216 = 
TVECTOR_DESCR(BgL_tvz00_34); 
{ /* Llib/tvector.scm 212 */
 obj_t BgL_allocatez00_1217; obj_t BgL_refz00_1218;
{ /* Llib/tvector.scm 113 */
 bool_t BgL_test1974z00_2571;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_tmpz00_2572;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_res1697z00_1778;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_sz00_1777;
if(
STRUCTP(BgL_descrz00_1216))
{ /* Llib/tvector.scm 113 */
BgL_sz00_1777 = BgL_descrz00_1216; }  else 
{ 
 obj_t BgL_auxz00_2575;
BgL_auxz00_2575 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(4322L), BGl_string1850z00zz__tvectorz00, BGl_string1799z00zz__tvectorz00, BgL_descrz00_1216); 
FAILURE(BgL_auxz00_2575,BFALSE,BFALSE);} 
{ /* Llib/tvector.scm 113 */
 obj_t BgL_aux1780z00_2090;
BgL_aux1780z00_2090 = 
STRUCT_KEY(BgL_sz00_1777); 
if(
SYMBOLP(BgL_aux1780z00_2090))
{ /* Llib/tvector.scm 113 */
BgL_res1697z00_1778 = BgL_aux1780z00_2090; }  else 
{ 
 obj_t BgL_auxz00_2582;
BgL_auxz00_2582 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(4322L), BGl_string1850z00zz__tvectorz00, BGl_string1800z00zz__tvectorz00, BgL_aux1780z00_2090); 
FAILURE(BgL_auxz00_2582,BFALSE,BFALSE);} } } 
BgL_tmpz00_2572 = BgL_res1697z00_1778; } 
BgL_test1974z00_2571 = 
(BgL_tmpz00_2572==BGl_symbol1801z00zz__tvectorz00); } 
if(BgL_test1974z00_2571)
{ /* Llib/tvector.scm 113 */
 int BgL_tmpz00_2587;
BgL_tmpz00_2587 = 
(int)(1L); 
BgL_allocatez00_1217 = 
UNSAFE_STRUCT_REF(BgL_descrz00_1216, BgL_tmpz00_2587); }  else 
{ /* Llib/tvector.scm 113 */
BgL_allocatez00_1217 = 
BGl_errorz00zz__errorz00(BGl_string1803z00zz__tvectorz00, BGl_string1802z00zz__tvectorz00, BgL_descrz00_1216); } } 
{ /* Llib/tvector.scm 113 */
 bool_t BgL_test1977z00_2591;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_tmpz00_2592;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_res1698z00_1782;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_sz00_1781;
if(
STRUCTP(BgL_descrz00_1216))
{ /* Llib/tvector.scm 113 */
BgL_sz00_1781 = BgL_descrz00_1216; }  else 
{ 
 obj_t BgL_auxz00_2595;
BgL_auxz00_2595 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(4322L), BGl_string1850z00zz__tvectorz00, BGl_string1799z00zz__tvectorz00, BgL_descrz00_1216); 
FAILURE(BgL_auxz00_2595,BFALSE,BFALSE);} 
{ /* Llib/tvector.scm 113 */
 obj_t BgL_aux1784z00_2094;
BgL_aux1784z00_2094 = 
STRUCT_KEY(BgL_sz00_1781); 
if(
SYMBOLP(BgL_aux1784z00_2094))
{ /* Llib/tvector.scm 113 */
BgL_res1698z00_1782 = BgL_aux1784z00_2094; }  else 
{ 
 obj_t BgL_auxz00_2602;
BgL_auxz00_2602 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(4322L), BGl_string1850z00zz__tvectorz00, BGl_string1800z00zz__tvectorz00, BgL_aux1784z00_2094); 
FAILURE(BgL_auxz00_2602,BFALSE,BFALSE);} } } 
BgL_tmpz00_2592 = BgL_res1698z00_1782; } 
BgL_test1977z00_2591 = 
(BgL_tmpz00_2592==BGl_symbol1801z00zz__tvectorz00); } 
if(BgL_test1977z00_2591)
{ /* Llib/tvector.scm 113 */
 int BgL_tmpz00_2607;
BgL_tmpz00_2607 = 
(int)(2L); 
BgL_refz00_1218 = 
UNSAFE_STRUCT_REF(BgL_descrz00_1216, BgL_tmpz00_2607); }  else 
{ /* Llib/tvector.scm 113 */
BgL_refz00_1218 = 
BGl_errorz00zz__errorz00(BGl_string1803z00zz__tvectorz00, BGl_string1802z00zz__tvectorz00, BgL_descrz00_1216); } } 
if(
PROCEDUREP(BgL_refz00_1218))
{ /* Llib/tvector.scm 218 */
 long BgL_lenz00_1220;
BgL_lenz00_1220 = 
TVECTOR_LENGTH(BgL_tvz00_34); 
{ /* Llib/tvector.scm 218 */
 obj_t BgL_vecz00_1221;
BgL_vecz00_1221 = 
create_vector(BgL_lenz00_1220); 
{ /* Llib/tvector.scm 219 */

{ /* Llib/tvector.scm 220 */
 long BgL_g1041z00_1222;
BgL_g1041z00_1222 = 
(BgL_lenz00_1220-1L); 
{ 
 long BgL_iz00_1224;
BgL_iz00_1224 = BgL_g1041z00_1222; 
BgL_zc3z04anonymousza31261ze3z87_1225:
if(
(BgL_iz00_1224==(-1L)))
{ /* Llib/tvector.scm 221 */
return BgL_vecz00_1221;}  else 
{ /* Llib/tvector.scm 221 */
{ /* Llib/tvector.scm 224 */
 obj_t BgL_arg1263z00_1227;
if(
PROCEDURE_CORRECT_ARITYP(
((obj_t)BgL_refz00_1218), 2))
{ /* Llib/tvector.scm 224 */
 obj_t BgL_tmpfunz00_2626;
BgL_tmpfunz00_2626 = 
((obj_t)BgL_refz00_1218); 
BgL_arg1263z00_1227 = 
(VA_PROCEDUREP( BgL_tmpfunz00_2626 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_tmpfunz00_2626))(BgL_refz00_1218, BgL_tvz00_34, 
BINT(BgL_iz00_1224), BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_tmpfunz00_2626))(BgL_refz00_1218, BgL_tvz00_34, 
BINT(BgL_iz00_1224)) ); }  else 
{ 
 obj_t BgL_auxz00_2628;
BgL_auxz00_2628 = 
((obj_t)BgL_refz00_1218); 
FAILURE(BGl_string1828z00zz__tvectorz00,BGl_list1851z00zz__tvectorz00,BgL_auxz00_2628);} 
{ /* Llib/tvector.scm 224 */
 bool_t BgL_test1983z00_2631;
{ /* Llib/tvector.scm 224 */
 long BgL_tmpz00_2632;
BgL_tmpz00_2632 = 
VECTOR_LENGTH(BgL_vecz00_1221); 
BgL_test1983z00_2631 = 
BOUND_CHECK(BgL_iz00_1224, BgL_tmpz00_2632); } 
if(BgL_test1983z00_2631)
{ /* Llib/tvector.scm 224 */
VECTOR_SET(BgL_vecz00_1221,BgL_iz00_1224,BgL_arg1263z00_1227); }  else 
{ 
 obj_t BgL_auxz00_2636;
BgL_auxz00_2636 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(8814L), BGl_string1856z00zz__tvectorz00, BgL_vecz00_1221, 
(int)(
VECTOR_LENGTH(BgL_vecz00_1221)), 
(int)(BgL_iz00_1224)); 
FAILURE(BgL_auxz00_2636,BFALSE,BFALSE);} } } 
{ 
 long BgL_iz00_2643;
BgL_iz00_2643 = 
(BgL_iz00_1224-1L); 
BgL_iz00_1224 = BgL_iz00_2643; 
goto BgL_zc3z04anonymousza31261ze3z87_1225;} } } } } } }  else 
{ /* Llib/tvector.scm 217 */
 obj_t BgL_arg1266z00_1230;
{ /* Llib/tvector.scm 105 */
 obj_t BgL_arg1156z00_1790;
BgL_arg1156z00_1790 = 
TVECTOR_DESCR(BgL_tvz00_34); 
{ /* Llib/tvector.scm 113 */
 bool_t BgL_test1984z00_2646;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_tmpz00_2647;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_res1699z00_1794;
{ /* Llib/tvector.scm 113 */
 obj_t BgL_sz00_1793;
if(
STRUCTP(BgL_arg1156z00_1790))
{ /* Llib/tvector.scm 113 */
BgL_sz00_1793 = BgL_arg1156z00_1790; }  else 
{ 
 obj_t BgL_auxz00_2650;
BgL_auxz00_2650 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(4322L), BGl_string1850z00zz__tvectorz00, BGl_string1799z00zz__tvectorz00, BgL_arg1156z00_1790); 
FAILURE(BgL_auxz00_2650,BFALSE,BFALSE);} 
{ /* Llib/tvector.scm 113 */
 obj_t BgL_aux1791z00_2102;
BgL_aux1791z00_2102 = 
STRUCT_KEY(BgL_sz00_1793); 
if(
SYMBOLP(BgL_aux1791z00_2102))
{ /* Llib/tvector.scm 113 */
BgL_res1699z00_1794 = BgL_aux1791z00_2102; }  else 
{ 
 obj_t BgL_auxz00_2657;
BgL_auxz00_2657 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(4322L), BGl_string1850z00zz__tvectorz00, BGl_string1800z00zz__tvectorz00, BgL_aux1791z00_2102); 
FAILURE(BgL_auxz00_2657,BFALSE,BFALSE);} } } 
BgL_tmpz00_2647 = BgL_res1699z00_1794; } 
BgL_test1984z00_2646 = 
(BgL_tmpz00_2647==BGl_symbol1801z00zz__tvectorz00); } 
if(BgL_test1984z00_2646)
{ /* Llib/tvector.scm 113 */
 int BgL_tmpz00_2662;
BgL_tmpz00_2662 = 
(int)(0L); 
BgL_arg1266z00_1230 = 
UNSAFE_STRUCT_REF(BgL_arg1156z00_1790, BgL_tmpz00_2662); }  else 
{ /* Llib/tvector.scm 113 */
BgL_arg1266z00_1230 = 
BGl_errorz00zz__errorz00(BGl_string1803z00zz__tvectorz00, BGl_string1802z00zz__tvectorz00, BgL_arg1156z00_1790); } } } 
return 
BGl_errorz00zz__errorz00(BGl_string1850z00zz__tvectorz00, BGl_string1838z00zz__tvectorz00, BgL_arg1266z00_1230);} } } } 

}



/* &tvector->vector */
obj_t BGl_z62tvectorzd2ze3vectorz53zz__tvectorz00(obj_t BgL_envz00_2003, obj_t BgL_tvz00_2004)
{
{ /* Llib/tvector.scm 210 */
{ /* Llib/tvector.scm 211 */
 obj_t BgL_auxz00_2667;
if(
TVECTORP(BgL_tvz00_2004))
{ /* Llib/tvector.scm 211 */
BgL_auxz00_2667 = BgL_tvz00_2004
; }  else 
{ 
 obj_t BgL_auxz00_2670;
BgL_auxz00_2670 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1795z00zz__tvectorz00, 
BINT(8402L), BGl_string1857z00zz__tvectorz00, BGl_string1797z00zz__tvectorz00, BgL_tvz00_2004); 
FAILURE(BgL_auxz00_2670,BFALSE,BFALSE);} 
return 
BGl_tvectorzd2ze3vectorz31zz__tvectorz00(BgL_auxz00_2667);} } 

}



/* object-init */
obj_t BGl_objectzd2initzd2zz__tvectorz00(void)
{
{ /* Llib/tvector.scm 14 */
return BUNSPEC;} 

}



/* generic-init */
obj_t BGl_genericzd2initzd2zz__tvectorz00(void)
{
{ /* Llib/tvector.scm 14 */
return BUNSPEC;} 

}



/* method-init */
obj_t BGl_methodzd2initzd2zz__tvectorz00(void)
{
{ /* Llib/tvector.scm 14 */
return BUNSPEC;} 

}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__tvectorz00(void)
{
{ /* Llib/tvector.scm 14 */
BGl_modulezd2initializa7ationz75zz__errorz00(88804785L, 
BSTRING_TO_STRING(BGl_string1858z00zz__tvectorz00)); 
BGl_modulezd2initializa7ationz75zz__hashz00(254893342L, 
BSTRING_TO_STRING(BGl_string1858z00zz__tvectorz00)); 
BGl_modulezd2initializa7ationz75zz__readerz00(220648206L, 
BSTRING_TO_STRING(BGl_string1858z00zz__tvectorz00)); 
BGl_modulezd2initializa7ationz75zz__paramz00(453939141L, 
BSTRING_TO_STRING(BGl_string1858z00zz__tvectorz00)); 
BGl_modulezd2initializa7ationz75zz__bexitz00(443005284L, 
BSTRING_TO_STRING(BGl_string1858z00zz__tvectorz00)); 
BGl_modulezd2initializa7ationz75zz__bignumz00(289561787L, 
BSTRING_TO_STRING(BGl_string1858z00zz__tvectorz00)); 
BGl_modulezd2initializa7ationz75zz__objectz00(475449627L, 
BSTRING_TO_STRING(BGl_string1858z00zz__tvectorz00)); 
BGl_modulezd2initializa7ationz75zz__threadz00(149516032L, 
BSTRING_TO_STRING(BGl_string1858z00zz__tvectorz00)); 
return 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(115192690L, 
BSTRING_TO_STRING(BGl_string1858z00zz__tvectorz00));} 

}

#ifdef __cplusplus
}
#endif
