/*===========================================================================*/
/*   (Llib/mmap.scm)                                                         */
/*   Bigloo (4.5b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Fri Dec 22 05:17:06 PM CET 2023     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/bigloo/bin/bigloo -ldopt -L/home/serrano/prgm/project/bigloo/bigloo/libbacktrace/home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b  -srfi enable-gmp -srfi bigloo-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -rm -copt -w -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -O3 -mklib -cc gcc -fsharing -q -unsafev -eval (set! *indent* 4) -stdc -c Llib/mmap.scm -indent -o objs/obj_s/Llib/mmap.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___MMAP_TYPE_DEFINITIONS
#define BGL___MMAP_TYPE_DEFINITIONS
#endif // BGL___MMAP_TYPE_DEFINITIONS
#endif // BGL_MODULE_TYPE_DEFINITIONS

BGL_EXPORTED_DECL obj_t BGl_mmapzd2putzd2charz12z12zz__mmapz00(obj_t, unsigned char);
extern obj_t BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_z62closezd2mmapzb0zz__mmapz00(obj_t, obj_t);
static obj_t BGl_z62mmapzd2readzd2positionz62zz__mmapz00(obj_t, obj_t);
static obj_t BGl_symbol1846z00zz__mmapz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_mmapzd2ze3bstringz31zz__mmapz00(obj_t);
static obj_t BGl_z62mmapzf3z91zz__mmapz00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__mmapz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_mmapzd2putzd2stringz12z12zz__mmapz00(obj_t, obj_t);
static obj_t BGl_symbol1853z00zz__mmapz00 = BUNSPEC;
static obj_t BGl_z62mmapzd2getzd2charz62zz__mmapz00(obj_t, obj_t);
static obj_t BGl__openzd2mmapzd2zz__mmapz00(obj_t, obj_t);
static obj_t BGl_z62mmapzd2substringzd2setz12z70zz__mmapz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__mmapz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
static obj_t BGl_z62mmapzd2namezb0zz__mmapz00(obj_t, obj_t);
static obj_t BGl_z62mmapzd2lengthzb0zz__mmapz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_mmapzd2setz12zc0zz__mmapz00(obj_t, long, unsigned char);
static obj_t BGl_search1104ze70ze7zz__mmapz00(long, obj_t, obj_t, long);
BGL_EXPORTED_DECL obj_t BGl_openzd2mmapzd2zz__mmapz00(obj_t, obj_t, obj_t);
extern obj_t string_to_bstring_len(char *, int);
BGL_EXPORTED_DECL obj_t BGl_stringzd2ze3mmapz31zz__mmapz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol1873z00zz__mmapz00 = BUNSPEC;
static obj_t BGl_list1841z00zz__mmapz00 = BUNSPEC;
static obj_t BGl_search1113ze70ze7zz__mmapz00(long, obj_t, obj_t, long);
static obj_t BGl_symbol1876z00zz__mmapz00 = BUNSPEC;
static obj_t BGl_symbol1879z00zz__mmapz00 = BUNSPEC;
static obj_t BGl_z62mmapzd2refzd2urz62zz__mmapz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_mmapzd2getzd2stringz00zz__mmapz00(obj_t, long);
static obj_t BGl_z62mmapzd2getzd2stringz62zz__mmapz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol1888z00zz__mmapz00 = BUNSPEC;
static obj_t BGl_z62mmapzd2ze3stringz53zz__mmapz00(obj_t, obj_t);
static obj_t BGl_z62mmapzd2ze3bstringz53zz__mmapz00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__mmapz00(void);
static obj_t BGl_genericzd2initzd2zz__mmapz00(void);
static obj_t BGl_symbol1891z00zz__mmapz00 = BUNSPEC;
static obj_t BGl_z62mmapzd2writezd2positionz62zz__mmapz00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__mmapz00(void);
static obj_t BGl_gczd2rootszd2initz00zz__mmapz00(void);
BGL_EXPORTED_DECL unsigned char BGl_mmapzd2refzd2zz__mmapz00(obj_t, long);
static obj_t BGl_objectzd2initzd2zz__mmapz00(void);
BGL_EXPORTED_DECL obj_t BGl_mmapzd2namezd2zz__mmapz00(obj_t);
extern obj_t BGl_2zb2zb2zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_z62mmapzd2substringzb0zz__mmapz00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_2zd2zd2zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL char * BGl_mmapzd2ze3stringz31zz__mmapz00(obj_t);
extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62mmapzd2putzd2stringz12z70zz__mmapz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62mmapzd2setzd2urz12z70zz__mmapz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_mmapzd2writezd2positionzd2setz12zc0zz__mmapz00(obj_t, long);
extern obj_t string_append_3(obj_t, obj_t, obj_t);
extern obj_t bstring_to_symbol(obj_t);
BGL_EXPORTED_DECL obj_t BGl_mmapzd2setzd2urz12z12zz__mmapz00(obj_t, long, unsigned char);
static obj_t BGl_z62mmapzd2putzd2charz12z70zz__mmapz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_mmapzd2substringzd2setz12z12zz__mmapz00(obj_t, long, obj_t);
BGL_EXPORTED_DECL long BGl_mmapzd2lengthzd2zz__mmapz00(obj_t);
static obj_t BGl_methodzd2initzd2zz__mmapz00(void);
extern obj_t BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(obj_t, obj_t, obj_t, obj_t, int, int);
BGL_EXPORTED_DECL unsigned char BGl_mmapzd2refzd2urz00zz__mmapz00(obj_t, long);
static obj_t BGl_keyword1842z00zz__mmapz00 = BUNSPEC;
static obj_t BGl_keyword1844z00zz__mmapz00 = BUNSPEC;
extern obj_t bstring_to_keyword(obj_t);
BGL_EXPORTED_DECL obj_t BGl_mmapzd2substringzd2zz__mmapz00(obj_t, long, long);
static obj_t BGl_z62mmapzd2refzb0zz__mmapz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_mmapzf3zf3zz__mmapz00(obj_t);
BGL_EXPORTED_DECL long BGl_mmapzd2readzd2positionzd2setz12zc0zz__mmapz00(obj_t, long);
static obj_t BGl_z62mmapzd2readzd2positionzd2setz12za2zz__mmapz00(obj_t, obj_t, obj_t);
extern obj_t string_append(obj_t, obj_t);
BGL_EXPORTED_DECL unsigned char BGl_mmapzd2getzd2charz00zz__mmapz00(obj_t);
static obj_t BGl_z62mmapzd2writezd2positionzd2setz12za2zz__mmapz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_mmapzd2writezd2positionz00zz__mmapz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_closezd2mmapzd2zz__mmapz00(obj_t);
extern obj_t make_string_sans_fill(long);
BGL_EXPORTED_DECL long BGl_mmapzd2readzd2positionz00zz__mmapz00(obj_t);
extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62mmapzd2setz12za2zz__mmapz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2ze3mmapz31zz__mmapz00(obj_t, obj_t);
static obj_t *__cnst;


DEFINE_STRING( BGl_string1870z00zz__mmapz00, BgL_bgl_string1870za700za7za7_1899za7, "bchar", 5 );
DEFINE_STRING( BGl_string1871z00zz__mmapz00, BgL_bgl_string1871za700za7za7_1900za7, "index out of range [0..", 23 );
DEFINE_STRING( BGl_string1872z00zz__mmapz00, BgL_bgl_string1872za700za7za7_1901za7, "]", 1 );
DEFINE_STRING( BGl_string1874z00zz__mmapz00, BgL_bgl_string1874za700za7za7_1902za7, "mmap-ref", 8 );
DEFINE_STRING( BGl_string1875z00zz__mmapz00, BgL_bgl_string1875za700za7za7_1903za7, "&mmap-ref", 9 );
DEFINE_STRING( BGl_string1877z00zz__mmapz00, BgL_bgl_string1877za700za7za7_1904za7, "mmap-set!", 9 );
DEFINE_STRING( BGl_string1878z00zz__mmapz00, BgL_bgl_string1878za700za7za7_1905za7, "&mmap-set!", 10 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mmapzd2writezd2positionzd2envzd2zz__mmapz00, BgL_bgl_za762mmapza7d2writeza71906za7, BGl_z62mmapzd2writezd2positionz62zz__mmapz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string1880z00zz__mmapz00, BgL_bgl_string1880za700za7za7_1907za7, "mmap-substring", 14 );
DEFINE_STRING( BGl_string1881z00zz__mmapz00, BgL_bgl_string1881za700za7za7_1908za7, "length too small", 16 );
DEFINE_STRING( BGl_string1882z00zz__mmapz00, BgL_bgl_string1882za700za7za7_1909za7, "string-set!", 11 );
DEFINE_STRING( BGl_string1883z00zz__mmapz00, BgL_bgl_string1883za700za7za7_1910za7, "Illegal index", 13 );
DEFINE_STRING( BGl_string1884z00zz__mmapz00, BgL_bgl_string1884za700za7za7_1911za7, "start+length bigger than ", 25 );
DEFINE_STRING( BGl_string1885z00zz__mmapz00, BgL_bgl_string1885za700za7za7_1912za7, "&mmap-substring", 15 );
DEFINE_STRING( BGl_string1886z00zz__mmapz00, BgL_bgl_string1886za700za7za7_1913za7, "mmap-substring-set!", 19 );
DEFINE_STRING( BGl_string1887z00zz__mmapz00, BgL_bgl_string1887za700za7za7_1914za7, "string-ref", 10 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mmapzd2lengthzd2envz00zz__mmapz00, BgL_bgl_za762mmapza7d2length1915z00, BGl_z62mmapzd2lengthzb0zz__mmapz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string1889z00zz__mmapz00, BgL_bgl_string1889za700za7za7_1916za7, "mmap-sbustring-set!", 19 );
DEFINE_STRING( BGl_string1890z00zz__mmapz00, BgL_bgl_string1890za700za7za7_1917za7, "[", 1 );
DEFINE_STRING( BGl_string1892z00zz__mmapz00, BgL_bgl_string1892za700za7za7_1918za7, "&mmap-substring-set!", 20 );
DEFINE_STRING( BGl_string1893z00zz__mmapz00, BgL_bgl_string1893za700za7za7_1919za7, "mmap-get-char", 13 );
DEFINE_STRING( BGl_string1894z00zz__mmapz00, BgL_bgl_string1894za700za7za7_1920za7, "&mmap-get-char", 14 );
DEFINE_STRING( BGl_string1895z00zz__mmapz00, BgL_bgl_string1895za700za7za7_1921za7, "&mmap-put-char!", 15 );
DEFINE_STRING( BGl_string1896z00zz__mmapz00, BgL_bgl_string1896za700za7za7_1922za7, "&mmap-get-string", 16 );
DEFINE_STRING( BGl_string1897z00zz__mmapz00, BgL_bgl_string1897za700za7za7_1923za7, "&mmap-put-string!", 17 );
DEFINE_STRING( BGl_string1898z00zz__mmapz00, BgL_bgl_string1898za700za7za7_1924za7, "__mmap", 6 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mmapzd2putzd2charz12zd2envzc0zz__mmapz00, BgL_bgl_za762mmapza7d2putza7d21925za7, BGl_z62mmapzd2putzd2charz12z70zz__mmapz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mmapzd2writezd2positionzd2setz12zd2envz12zz__mmapz00, BgL_bgl_za762mmapza7d2writeza71926za7, BGl_z62mmapzd2writezd2positionzd2setz12za2zz__mmapz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mmapzd2getzd2stringzd2envzd2zz__mmapz00, BgL_bgl_za762mmapza7d2getza7d21927za7, BGl_z62mmapzd2getzd2stringz62zz__mmapz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mmapzf3zd2envz21zz__mmapz00, BgL_bgl_za762mmapza7f3za791za7za7_1928za7, BGl_z62mmapzf3z91zz__mmapz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_closezd2mmapzd2envz00zz__mmapz00, BgL_bgl_za762closeza7d2mmapza71929za7, BGl_z62closezd2mmapzb0zz__mmapz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mmapzd2substringzd2setz12zd2envzc0zz__mmapz00, BgL_bgl_za762mmapza7d2substr1930z00, BGl_z62mmapzd2substringzd2setz12z70zz__mmapz00, 0L, BUNSPEC, 3 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mmapzd2readzd2positionzd2envzd2zz__mmapz00, BgL_bgl_za762mmapza7d2readza7d1931za7, BGl_z62mmapzd2readzd2positionz62zz__mmapz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mmapzd2setz12zd2envz12zz__mmapz00, BgL_bgl_za762mmapza7d2setza7121932za7, BGl_z62mmapzd2setz12za2zz__mmapz00, 0L, BUNSPEC, 3 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2ze3mmapzd2envze3zz__mmapz00, BgL_bgl__stringza7d2za7e3mma1933z00, opt_generic_entry, BGl__stringzd2ze3mmapz31zz__mmapz00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mmapzd2putzd2stringz12zd2envzc0zz__mmapz00, BgL_bgl_za762mmapza7d2putza7d21934za7, BGl_z62mmapzd2putzd2stringz12z70zz__mmapz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mmapzd2getzd2charzd2envzd2zz__mmapz00, BgL_bgl_za762mmapza7d2getza7d21935za7, BGl_z62mmapzd2getzd2charz62zz__mmapz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mmapzd2refzd2envz00zz__mmapz00, BgL_bgl_za762mmapza7d2refza7b01936za7, BGl_z62mmapzd2refzb0zz__mmapz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mmapzd2namezd2envz00zz__mmapz00, BgL_bgl_za762mmapza7d2nameza7b1937za7, BGl_z62mmapzd2namezb0zz__mmapz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_openzd2mmapzd2envz00zz__mmapz00, BgL_bgl__openza7d2mmapza7d2za71938za7, opt_generic_entry, BGl__openzd2mmapzd2zz__mmapz00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mmapzd2ze3stringzd2envze3zz__mmapz00, BgL_bgl_za762mmapza7d2za7e3str1939za7, BGl_z62mmapzd2ze3stringz53zz__mmapz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mmapzd2ze3bstringzd2envze3zz__mmapz00, BgL_bgl_za762mmapza7d2za7e3bst1940za7, BGl_z62mmapzd2ze3bstringz53zz__mmapz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mmapzd2readzd2positionzd2setz12zd2envz12zz__mmapz00, BgL_bgl_za762mmapza7d2readza7d1941za7, BGl_z62mmapzd2readzd2positionzd2setz12za2zz__mmapz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string1839z00zz__mmapz00, BgL_bgl_string1839za700za7za7_1942za7, "/tmp/bigloo/runtime/Llib/mmap.scm", 33 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mmapzd2setzd2urz12zd2envzc0zz__mmapz00, BgL_bgl_za762mmapza7d2setza7d21943za7, BGl_z62mmapzd2setzd2urz12z70zz__mmapz00, 0L, BUNSPEC, 3 );
DEFINE_STRING( BGl_string1840z00zz__mmapz00, BgL_bgl_string1840za700za7za7_1944za7, "vector-ref", 10 );
DEFINE_STRING( BGl_string1843z00zz__mmapz00, BgL_bgl_string1843za700za7za7_1945za7, "read", 4 );
DEFINE_STRING( BGl_string1845z00zz__mmapz00, BgL_bgl_string1845za700za7za7_1946za7, "write", 5 );
DEFINE_STRING( BGl_string1847z00zz__mmapz00, BgL_bgl_string1847za700za7za7_1947za7, "open-mmap", 9 );
DEFINE_STRING( BGl_string1848z00zz__mmapz00, BgL_bgl_string1848za700za7za7_1948za7, "Illegal keyword argument", 24 );
DEFINE_STRING( BGl_string1849z00zz__mmapz00, BgL_bgl_string1849za700za7za7_1949za7, "_open-mmap", 10 );
DEFINE_STRING( BGl_string1850z00zz__mmapz00, BgL_bgl_string1850za700za7za7_1950za7, "bint", 4 );
DEFINE_STRING( BGl_string1851z00zz__mmapz00, BgL_bgl_string1851za700za7za7_1951za7, "bstring", 7 );
DEFINE_STRING( BGl_string1852z00zz__mmapz00, BgL_bgl_string1852za700za7za7_1952za7, "wrong number of arguments: [1..3] expected, provided", 52 );
DEFINE_STRING( BGl_string1854z00zz__mmapz00, BgL_bgl_string1854za700za7za7_1953za7, "string->mmap", 12 );
DEFINE_STRING( BGl_string1855z00zz__mmapz00, BgL_bgl_string1855za700za7za7_1954za7, "_string->mmap", 13 );
DEFINE_STRING( BGl_string1856z00zz__mmapz00, BgL_bgl_string1856za700za7za7_1955za7, "mmap-name", 9 );
DEFINE_STRING( BGl_string1857z00zz__mmapz00, BgL_bgl_string1857za700za7za7_1956za7, "&mmap-name", 10 );
DEFINE_STRING( BGl_string1858z00zz__mmapz00, BgL_bgl_string1858za700za7za7_1957za7, "mmap", 4 );
DEFINE_STRING( BGl_string1859z00zz__mmapz00, BgL_bgl_string1859za700za7za7_1958za7, "&mmap->string", 13 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mmapzd2refzd2urzd2envzd2zz__mmapz00, BgL_bgl_za762mmapza7d2refza7d21959za7, BGl_z62mmapzd2refzd2urz62zz__mmapz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string1860z00zz__mmapz00, BgL_bgl_string1860za700za7za7_1960za7, "&mmap->bstring", 14 );
DEFINE_STRING( BGl_string1861z00zz__mmapz00, BgL_bgl_string1861za700za7za7_1961za7, "&close-mmap", 11 );
DEFINE_STRING( BGl_string1862z00zz__mmapz00, BgL_bgl_string1862za700za7za7_1962za7, "&mmap-length", 12 );
DEFINE_STRING( BGl_string1863z00zz__mmapz00, BgL_bgl_string1863za700za7za7_1963za7, "&mmap-read-position", 19 );
DEFINE_STRING( BGl_string1864z00zz__mmapz00, BgL_bgl_string1864za700za7za7_1964za7, "&mmap-read-position-set!", 24 );
DEFINE_STRING( BGl_string1865z00zz__mmapz00, BgL_bgl_string1865za700za7za7_1965za7, "belong", 6 );
DEFINE_STRING( BGl_string1866z00zz__mmapz00, BgL_bgl_string1866za700za7za7_1966za7, "&mmap-write-position", 20 );
DEFINE_STRING( BGl_string1867z00zz__mmapz00, BgL_bgl_string1867za700za7za7_1967za7, "&mmap-write-position-set!", 25 );
DEFINE_STRING( BGl_string1868z00zz__mmapz00, BgL_bgl_string1868za700za7za7_1968za7, "&mmap-ref-ur", 12 );
DEFINE_STRING( BGl_string1869z00zz__mmapz00, BgL_bgl_string1869za700za7za7_1969za7, "&mmap-set-ur!", 13 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mmapzd2substringzd2envz00zz__mmapz00, BgL_bgl_za762mmapza7d2substr1970z00, BGl_z62mmapzd2substringzb0zz__mmapz00, 0L, BUNSPEC, 3 );

/* 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_symbol1846z00zz__mmapz00) );
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__mmapz00) );
ADD_ROOT( (void *)(&BGl_symbol1853z00zz__mmapz00) );
ADD_ROOT( (void *)(&BGl_symbol1873z00zz__mmapz00) );
ADD_ROOT( (void *)(&BGl_list1841z00zz__mmapz00) );
ADD_ROOT( (void *)(&BGl_symbol1876z00zz__mmapz00) );
ADD_ROOT( (void *)(&BGl_symbol1879z00zz__mmapz00) );
ADD_ROOT( (void *)(&BGl_symbol1888z00zz__mmapz00) );
ADD_ROOT( (void *)(&BGl_symbol1891z00zz__mmapz00) );
ADD_ROOT( (void *)(&BGl_keyword1842z00zz__mmapz00) );
ADD_ROOT( (void *)(&BGl_keyword1844z00zz__mmapz00) );
#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__mmapz00(long BgL_checksumz00_2328, char * BgL_fromz00_2329)
{
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__mmapz00))
{ 
BGl_requirezd2initializa7ationz75zz__mmapz00 = 
BBOOL(((bool_t)0)); 
BGl_gczd2rootszd2initz00zz__mmapz00(); 
BGl_cnstzd2initzd2zz__mmapz00(); 
BGl_importedzd2moduleszd2initz00zz__mmapz00(); 
return 
BGl_methodzd2initzd2zz__mmapz00();}  else 
{ 
return BUNSPEC;} } 

}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__mmapz00(void)
{
{ /* Llib/mmap.scm 19 */
BGl_keyword1842z00zz__mmapz00 = 
bstring_to_keyword(BGl_string1843z00zz__mmapz00); 
BGl_keyword1844z00zz__mmapz00 = 
bstring_to_keyword(BGl_string1845z00zz__mmapz00); 
BGl_list1841z00zz__mmapz00 = 
MAKE_YOUNG_PAIR(BGl_keyword1842z00zz__mmapz00, 
MAKE_YOUNG_PAIR(BGl_keyword1844z00zz__mmapz00, BNIL)); 
BGl_symbol1846z00zz__mmapz00 = 
bstring_to_symbol(BGl_string1847z00zz__mmapz00); 
BGl_symbol1853z00zz__mmapz00 = 
bstring_to_symbol(BGl_string1854z00zz__mmapz00); 
BGl_symbol1873z00zz__mmapz00 = 
bstring_to_symbol(BGl_string1874z00zz__mmapz00); 
BGl_symbol1876z00zz__mmapz00 = 
bstring_to_symbol(BGl_string1877z00zz__mmapz00); 
BGl_symbol1879z00zz__mmapz00 = 
bstring_to_symbol(BGl_string1880z00zz__mmapz00); 
BGl_symbol1888z00zz__mmapz00 = 
bstring_to_symbol(BGl_string1889z00zz__mmapz00); 
return ( 
BGl_symbol1891z00zz__mmapz00 = 
bstring_to_symbol(BGl_string1886z00zz__mmapz00), BUNSPEC) ;} 

}



/* gc-roots-init */
obj_t BGl_gczd2rootszd2initz00zz__mmapz00(void)
{
{ /* Llib/mmap.scm 19 */
return 
bgl_gc_roots_register();} 

}



/* mmap? */
BGL_EXPORTED_DEF bool_t BGl_mmapzf3zf3zz__mmapz00(obj_t BgL_objz00_3)
{
{ /* Llib/mmap.scm 117 */
return 
BGL_MMAPP(BgL_objz00_3);} 

}



/* &mmap? */
obj_t BGl_z62mmapzf3z91zz__mmapz00(obj_t BgL_envz00_2109, obj_t BgL_objz00_2110)
{
{ /* Llib/mmap.scm 117 */
return 
BBOOL(
BGl_mmapzf3zf3zz__mmapz00(BgL_objz00_2110));} 

}



/* _open-mmap */
obj_t BGl__openzd2mmapzd2zz__mmapz00(obj_t BgL_env1102z00_8, obj_t BgL_opt1101z00_7)
{
{ /* Llib/mmap.scm 123 */
{ /* Llib/mmap.scm 123 */
 obj_t BgL_g1109z00_1141;
BgL_g1109z00_1141 = 
VECTOR_REF(BgL_opt1101z00_7,0L); 
{ /* Llib/mmap.scm 123 */
 obj_t BgL_readz00_1142;
BgL_readz00_1142 = BTRUE; 
{ /* Llib/mmap.scm 123 */
 obj_t BgL_writez00_1143;
BgL_writez00_1143 = BTRUE; 
{ /* Llib/mmap.scm 123 */

{ 
 long BgL_iz00_1144;
BgL_iz00_1144 = 1L; 
BgL_check1105z00_1145:
if(
(BgL_iz00_1144==
VECTOR_LENGTH(BgL_opt1101z00_7)))
{ /* Llib/mmap.scm 123 */BNIL; }  else 
{ /* Llib/mmap.scm 123 */
 bool_t BgL_test1973z00_2356;
{ /* Llib/mmap.scm 123 */
 obj_t BgL_arg1201z00_1151;
{ /* Llib/mmap.scm 123 */
 bool_t BgL_test1974z00_2357;
{ /* Llib/mmap.scm 123 */
 long BgL_tmpz00_2358;
BgL_tmpz00_2358 = 
VECTOR_LENGTH(BgL_opt1101z00_7); 
BgL_test1974z00_2357 = 
BOUND_CHECK(BgL_iz00_1144, BgL_tmpz00_2358); } 
if(BgL_test1974z00_2357)
{ /* Llib/mmap.scm 123 */
BgL_arg1201z00_1151 = 
VECTOR_REF(BgL_opt1101z00_7,BgL_iz00_1144); }  else 
{ 
 obj_t BgL_auxz00_2362;
BgL_auxz00_2362 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(5352L), BGl_string1840z00zz__mmapz00, BgL_opt1101z00_7, 
(int)(
VECTOR_LENGTH(BgL_opt1101z00_7)), 
(int)(BgL_iz00_1144)); 
FAILURE(BgL_auxz00_2362,BFALSE,BFALSE);} } 
BgL_test1973z00_2356 = 
CBOOL(
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_arg1201z00_1151, BGl_list1841z00zz__mmapz00)); } 
if(BgL_test1973z00_2356)
{ 
 long BgL_iz00_2371;
BgL_iz00_2371 = 
(BgL_iz00_1144+2L); 
BgL_iz00_1144 = BgL_iz00_2371; 
goto BgL_check1105z00_1145;}  else 
{ /* Llib/mmap.scm 123 */
 obj_t BgL_arg1199z00_1150;
{ /* Llib/mmap.scm 123 */
 bool_t BgL_test1975z00_2373;
{ /* Llib/mmap.scm 123 */
 long BgL_tmpz00_2374;
BgL_tmpz00_2374 = 
VECTOR_LENGTH(BgL_opt1101z00_7); 
BgL_test1975z00_2373 = 
BOUND_CHECK(BgL_iz00_1144, BgL_tmpz00_2374); } 
if(BgL_test1975z00_2373)
{ /* Llib/mmap.scm 123 */
BgL_arg1199z00_1150 = 
VECTOR_REF(BgL_opt1101z00_7,BgL_iz00_1144); }  else 
{ 
 obj_t BgL_auxz00_2378;
BgL_auxz00_2378 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(5352L), BGl_string1840z00zz__mmapz00, BgL_opt1101z00_7, 
(int)(
VECTOR_LENGTH(BgL_opt1101z00_7)), 
(int)(BgL_iz00_1144)); 
FAILURE(BgL_auxz00_2378,BFALSE,BFALSE);} } 
BGl_errorz00zz__errorz00(BGl_symbol1846z00zz__mmapz00, BGl_string1848z00zz__mmapz00, BgL_arg1199z00_1150); } } } 
{ /* Llib/mmap.scm 123 */
 obj_t BgL_index1107z00_1152;
BgL_index1107z00_1152 = 
BGl_search1104ze70ze7zz__mmapz00(
VECTOR_LENGTH(BgL_opt1101z00_7), BgL_opt1101z00_7, BGl_keyword1842z00zz__mmapz00, 1L); 
{ /* Llib/mmap.scm 123 */
 bool_t BgL_test1976z00_2388;
{ /* Llib/mmap.scm 123 */
 long BgL_n1z00_1716;
{ /* Llib/mmap.scm 123 */
 obj_t BgL_tmpz00_2389;
if(
INTEGERP(BgL_index1107z00_1152))
{ /* Llib/mmap.scm 123 */
BgL_tmpz00_2389 = BgL_index1107z00_1152
; }  else 
{ 
 obj_t BgL_auxz00_2392;
BgL_auxz00_2392 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(5352L), BGl_string1849z00zz__mmapz00, BGl_string1850z00zz__mmapz00, BgL_index1107z00_1152); 
FAILURE(BgL_auxz00_2392,BFALSE,BFALSE);} 
BgL_n1z00_1716 = 
(long)CINT(BgL_tmpz00_2389); } 
BgL_test1976z00_2388 = 
(BgL_n1z00_1716>=0L); } 
if(BgL_test1976z00_2388)
{ 
 long BgL_auxz00_2398;
{ /* Llib/mmap.scm 123 */
 obj_t BgL_tmpz00_2399;
if(
INTEGERP(BgL_index1107z00_1152))
{ /* Llib/mmap.scm 123 */
BgL_tmpz00_2399 = BgL_index1107z00_1152
; }  else 
{ 
 obj_t BgL_auxz00_2402;
BgL_auxz00_2402 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(5352L), BGl_string1849z00zz__mmapz00, BGl_string1850z00zz__mmapz00, BgL_index1107z00_1152); 
FAILURE(BgL_auxz00_2402,BFALSE,BFALSE);} 
BgL_auxz00_2398 = 
(long)CINT(BgL_tmpz00_2399); } 
BgL_readz00_1142 = 
VECTOR_REF(BgL_opt1101z00_7,BgL_auxz00_2398); }  else 
{ /* Llib/mmap.scm 123 */BFALSE; } } } 
{ /* Llib/mmap.scm 123 */
 obj_t BgL_index1108z00_1154;
BgL_index1108z00_1154 = 
BGl_search1104ze70ze7zz__mmapz00(
VECTOR_LENGTH(BgL_opt1101z00_7), BgL_opt1101z00_7, BGl_keyword1844z00zz__mmapz00, 1L); 
{ /* Llib/mmap.scm 123 */
 bool_t BgL_test1979z00_2410;
{ /* Llib/mmap.scm 123 */
 long BgL_n1z00_1717;
{ /* Llib/mmap.scm 123 */
 obj_t BgL_tmpz00_2411;
if(
INTEGERP(BgL_index1108z00_1154))
{ /* Llib/mmap.scm 123 */
BgL_tmpz00_2411 = BgL_index1108z00_1154
; }  else 
{ 
 obj_t BgL_auxz00_2414;
BgL_auxz00_2414 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(5352L), BGl_string1849z00zz__mmapz00, BGl_string1850z00zz__mmapz00, BgL_index1108z00_1154); 
FAILURE(BgL_auxz00_2414,BFALSE,BFALSE);} 
BgL_n1z00_1717 = 
(long)CINT(BgL_tmpz00_2411); } 
BgL_test1979z00_2410 = 
(BgL_n1z00_1717>=0L); } 
if(BgL_test1979z00_2410)
{ 
 long BgL_auxz00_2420;
{ /* Llib/mmap.scm 123 */
 obj_t BgL_tmpz00_2421;
if(
INTEGERP(BgL_index1108z00_1154))
{ /* Llib/mmap.scm 123 */
BgL_tmpz00_2421 = BgL_index1108z00_1154
; }  else 
{ 
 obj_t BgL_auxz00_2424;
BgL_auxz00_2424 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(5352L), BGl_string1849z00zz__mmapz00, BGl_string1850z00zz__mmapz00, BgL_index1108z00_1154); 
FAILURE(BgL_auxz00_2424,BFALSE,BFALSE);} 
BgL_auxz00_2420 = 
(long)CINT(BgL_tmpz00_2421); } 
BgL_writez00_1143 = 
VECTOR_REF(BgL_opt1101z00_7,BgL_auxz00_2420); }  else 
{ /* Llib/mmap.scm 123 */BFALSE; } } } 
{ /* Llib/mmap.scm 123 */
 obj_t BgL_arg1204z00_1156;
BgL_arg1204z00_1156 = 
VECTOR_REF(BgL_opt1101z00_7,0L); 
{ /* Llib/mmap.scm 123 */
 obj_t BgL_readz00_1157;
BgL_readz00_1157 = BgL_readz00_1142; 
{ /* Llib/mmap.scm 123 */
 obj_t BgL_writez00_1158;
BgL_writez00_1158 = BgL_writez00_1143; 
{ /* Llib/mmap.scm 123 */
 obj_t BgL_namez00_1718;
if(
STRINGP(BgL_arg1204z00_1156))
{ /* Llib/mmap.scm 123 */
BgL_namez00_1718 = BgL_arg1204z00_1156; }  else 
{ 
 obj_t BgL_auxz00_2433;
BgL_auxz00_2433 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(5352L), BGl_string1849z00zz__mmapz00, BGl_string1851z00zz__mmapz00, BgL_arg1204z00_1156); 
FAILURE(BgL_auxz00_2433,BFALSE,BFALSE);} 
{ /* Llib/mmap.scm 124 */
 bool_t BgL_auxz00_2439; bool_t BgL_tmpz00_2437;
BgL_auxz00_2439 = 
CBOOL(BgL_writez00_1158); 
BgL_tmpz00_2437 = 
CBOOL(BgL_readz00_1157); 
return 
bgl_open_mmap(BgL_namez00_1718, BgL_tmpz00_2437, BgL_auxz00_2439);} } } } } } } } } } 

}



/* search1104~0 */
obj_t BGl_search1104ze70ze7zz__mmapz00(long BgL_l1103z00_2167, obj_t BgL_opt1101z00_2166, obj_t BgL_k1z00_1138, long BgL_iz00_1139)
{
{ /* Llib/mmap.scm 123 */
BGl_search1104ze70ze7zz__mmapz00:
if(
(BgL_iz00_1139==BgL_l1103z00_2167))
{ /* Llib/mmap.scm 123 */
return 
BINT(-1L);}  else 
{ /* Llib/mmap.scm 123 */
if(
(BgL_iz00_1139==
(BgL_l1103z00_2167-1L)))
{ /* Llib/mmap.scm 123 */
return 
BGl_errorz00zz__errorz00(BGl_symbol1846z00zz__mmapz00, BGl_string1852z00zz__mmapz00, 
BINT(
VECTOR_LENGTH(BgL_opt1101z00_2166)));}  else 
{ /* Llib/mmap.scm 123 */
 obj_t BgL_vz00_1163;
BgL_vz00_1163 = 
VECTOR_REF(BgL_opt1101z00_2166,BgL_iz00_1139); 
if(
(BgL_vz00_1163==BgL_k1z00_1138))
{ /* Llib/mmap.scm 123 */
return 
BINT(
(BgL_iz00_1139+1L));}  else 
{ 
 long BgL_iz00_2456;
BgL_iz00_2456 = 
(BgL_iz00_1139+2L); 
BgL_iz00_1139 = BgL_iz00_2456; 
goto BGl_search1104ze70ze7zz__mmapz00;} } } } 

}



/* open-mmap */
BGL_EXPORTED_DEF obj_t BGl_openzd2mmapzd2zz__mmapz00(obj_t BgL_namez00_4, obj_t BgL_readz00_5, obj_t BgL_writez00_6)
{
{ /* Llib/mmap.scm 123 */
{ /* Llib/mmap.scm 124 */
 bool_t BgL_auxz00_2460; bool_t BgL_tmpz00_2458;
BgL_auxz00_2460 = 
CBOOL(BgL_writez00_6); 
BgL_tmpz00_2458 = 
CBOOL(BgL_readz00_5); 
return 
bgl_open_mmap(BgL_namez00_4, BgL_tmpz00_2458, BgL_auxz00_2460);} } 

}



/* _string->mmap */
obj_t BGl__stringzd2ze3mmapz31zz__mmapz00(obj_t BgL_env1111z00_13, obj_t BgL_opt1110z00_12)
{
{ /* Llib/mmap.scm 129 */
{ /* Llib/mmap.scm 129 */
 obj_t BgL_g1118z00_1170;
BgL_g1118z00_1170 = 
VECTOR_REF(BgL_opt1110z00_12,0L); 
{ /* Llib/mmap.scm 129 */
 obj_t BgL_readz00_1171;
BgL_readz00_1171 = BTRUE; 
{ /* Llib/mmap.scm 129 */
 obj_t BgL_writez00_1172;
BgL_writez00_1172 = BTRUE; 
{ /* Llib/mmap.scm 129 */

{ 
 long BgL_iz00_1173;
BgL_iz00_1173 = 1L; 
BgL_check1114z00_1174:
if(
(BgL_iz00_1173==
VECTOR_LENGTH(BgL_opt1110z00_12)))
{ /* Llib/mmap.scm 129 */BNIL; }  else 
{ /* Llib/mmap.scm 129 */
 bool_t BgL_test1987z00_2467;
{ /* Llib/mmap.scm 129 */
 obj_t BgL_arg1219z00_1180;
{ /* Llib/mmap.scm 129 */
 bool_t BgL_test1988z00_2468;
{ /* Llib/mmap.scm 129 */
 long BgL_tmpz00_2469;
BgL_tmpz00_2469 = 
VECTOR_LENGTH(BgL_opt1110z00_12); 
BgL_test1988z00_2468 = 
BOUND_CHECK(BgL_iz00_1173, BgL_tmpz00_2469); } 
if(BgL_test1988z00_2468)
{ /* Llib/mmap.scm 129 */
BgL_arg1219z00_1180 = 
VECTOR_REF(BgL_opt1110z00_12,BgL_iz00_1173); }  else 
{ 
 obj_t BgL_auxz00_2473;
BgL_auxz00_2473 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(5669L), BGl_string1840z00zz__mmapz00, BgL_opt1110z00_12, 
(int)(
VECTOR_LENGTH(BgL_opt1110z00_12)), 
(int)(BgL_iz00_1173)); 
FAILURE(BgL_auxz00_2473,BFALSE,BFALSE);} } 
BgL_test1987z00_2467 = 
CBOOL(
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_arg1219z00_1180, BGl_list1841z00zz__mmapz00)); } 
if(BgL_test1987z00_2467)
{ 
 long BgL_iz00_2482;
BgL_iz00_2482 = 
(BgL_iz00_1173+2L); 
BgL_iz00_1173 = BgL_iz00_2482; 
goto BgL_check1114z00_1174;}  else 
{ /* Llib/mmap.scm 129 */
 obj_t BgL_arg1218z00_1179;
{ /* Llib/mmap.scm 129 */
 bool_t BgL_test1989z00_2484;
{ /* Llib/mmap.scm 129 */
 long BgL_tmpz00_2485;
BgL_tmpz00_2485 = 
VECTOR_LENGTH(BgL_opt1110z00_12); 
BgL_test1989z00_2484 = 
BOUND_CHECK(BgL_iz00_1173, BgL_tmpz00_2485); } 
if(BgL_test1989z00_2484)
{ /* Llib/mmap.scm 129 */
BgL_arg1218z00_1179 = 
VECTOR_REF(BgL_opt1110z00_12,BgL_iz00_1173); }  else 
{ 
 obj_t BgL_auxz00_2489;
BgL_auxz00_2489 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(5669L), BGl_string1840z00zz__mmapz00, BgL_opt1110z00_12, 
(int)(
VECTOR_LENGTH(BgL_opt1110z00_12)), 
(int)(BgL_iz00_1173)); 
FAILURE(BgL_auxz00_2489,BFALSE,BFALSE);} } 
BGl_errorz00zz__errorz00(BGl_symbol1853z00zz__mmapz00, BGl_string1848z00zz__mmapz00, BgL_arg1218z00_1179); } } } 
{ /* Llib/mmap.scm 129 */
 obj_t BgL_index1116z00_1181;
BgL_index1116z00_1181 = 
BGl_search1113ze70ze7zz__mmapz00(
VECTOR_LENGTH(BgL_opt1110z00_12), BgL_opt1110z00_12, BGl_keyword1842z00zz__mmapz00, 1L); 
{ /* Llib/mmap.scm 129 */
 bool_t BgL_test1990z00_2499;
{ /* Llib/mmap.scm 129 */
 long BgL_n1z00_1734;
{ /* Llib/mmap.scm 129 */
 obj_t BgL_tmpz00_2500;
if(
INTEGERP(BgL_index1116z00_1181))
{ /* Llib/mmap.scm 129 */
BgL_tmpz00_2500 = BgL_index1116z00_1181
; }  else 
{ 
 obj_t BgL_auxz00_2503;
BgL_auxz00_2503 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(5669L), BGl_string1855z00zz__mmapz00, BGl_string1850z00zz__mmapz00, BgL_index1116z00_1181); 
FAILURE(BgL_auxz00_2503,BFALSE,BFALSE);} 
BgL_n1z00_1734 = 
(long)CINT(BgL_tmpz00_2500); } 
BgL_test1990z00_2499 = 
(BgL_n1z00_1734>=0L); } 
if(BgL_test1990z00_2499)
{ 
 long BgL_auxz00_2509;
{ /* Llib/mmap.scm 129 */
 obj_t BgL_tmpz00_2510;
if(
INTEGERP(BgL_index1116z00_1181))
{ /* Llib/mmap.scm 129 */
BgL_tmpz00_2510 = BgL_index1116z00_1181
; }  else 
{ 
 obj_t BgL_auxz00_2513;
BgL_auxz00_2513 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(5669L), BGl_string1855z00zz__mmapz00, BGl_string1850z00zz__mmapz00, BgL_index1116z00_1181); 
FAILURE(BgL_auxz00_2513,BFALSE,BFALSE);} 
BgL_auxz00_2509 = 
(long)CINT(BgL_tmpz00_2510); } 
BgL_readz00_1171 = 
VECTOR_REF(BgL_opt1110z00_12,BgL_auxz00_2509); }  else 
{ /* Llib/mmap.scm 129 */BFALSE; } } } 
{ /* Llib/mmap.scm 129 */
 obj_t BgL_index1117z00_1183;
BgL_index1117z00_1183 = 
BGl_search1113ze70ze7zz__mmapz00(
VECTOR_LENGTH(BgL_opt1110z00_12), BgL_opt1110z00_12, BGl_keyword1844z00zz__mmapz00, 1L); 
{ /* Llib/mmap.scm 129 */
 bool_t BgL_test1993z00_2521;
{ /* Llib/mmap.scm 129 */
 long BgL_n1z00_1735;
{ /* Llib/mmap.scm 129 */
 obj_t BgL_tmpz00_2522;
if(
INTEGERP(BgL_index1117z00_1183))
{ /* Llib/mmap.scm 129 */
BgL_tmpz00_2522 = BgL_index1117z00_1183
; }  else 
{ 
 obj_t BgL_auxz00_2525;
BgL_auxz00_2525 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(5669L), BGl_string1855z00zz__mmapz00, BGl_string1850z00zz__mmapz00, BgL_index1117z00_1183); 
FAILURE(BgL_auxz00_2525,BFALSE,BFALSE);} 
BgL_n1z00_1735 = 
(long)CINT(BgL_tmpz00_2522); } 
BgL_test1993z00_2521 = 
(BgL_n1z00_1735>=0L); } 
if(BgL_test1993z00_2521)
{ 
 long BgL_auxz00_2531;
{ /* Llib/mmap.scm 129 */
 obj_t BgL_tmpz00_2532;
if(
INTEGERP(BgL_index1117z00_1183))
{ /* Llib/mmap.scm 129 */
BgL_tmpz00_2532 = BgL_index1117z00_1183
; }  else 
{ 
 obj_t BgL_auxz00_2535;
BgL_auxz00_2535 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(5669L), BGl_string1855z00zz__mmapz00, BGl_string1850z00zz__mmapz00, BgL_index1117z00_1183); 
FAILURE(BgL_auxz00_2535,BFALSE,BFALSE);} 
BgL_auxz00_2531 = 
(long)CINT(BgL_tmpz00_2532); } 
BgL_writez00_1172 = 
VECTOR_REF(BgL_opt1110z00_12,BgL_auxz00_2531); }  else 
{ /* Llib/mmap.scm 129 */BFALSE; } } } 
{ /* Llib/mmap.scm 129 */
 obj_t BgL_arg1222z00_1185;
BgL_arg1222z00_1185 = 
VECTOR_REF(BgL_opt1110z00_12,0L); 
{ /* Llib/mmap.scm 129 */
 obj_t BgL_readz00_1186;
BgL_readz00_1186 = BgL_readz00_1171; 
{ /* Llib/mmap.scm 129 */
 obj_t BgL_writez00_1187;
BgL_writez00_1187 = BgL_writez00_1172; 
{ /* Llib/mmap.scm 129 */
 obj_t BgL_sz00_1736;
if(
STRINGP(BgL_arg1222z00_1185))
{ /* Llib/mmap.scm 129 */
BgL_sz00_1736 = BgL_arg1222z00_1185; }  else 
{ 
 obj_t BgL_auxz00_2544;
BgL_auxz00_2544 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(5669L), BGl_string1855z00zz__mmapz00, BGl_string1851z00zz__mmapz00, BgL_arg1222z00_1185); 
FAILURE(BgL_auxz00_2544,BFALSE,BFALSE);} 
{ /* Llib/mmap.scm 130 */
 bool_t BgL_auxz00_2550; bool_t BgL_tmpz00_2548;
BgL_auxz00_2550 = 
CBOOL(BgL_writez00_1187); 
BgL_tmpz00_2548 = 
CBOOL(BgL_readz00_1186); 
return 
bgl_string_to_mmap(BgL_sz00_1736, BgL_tmpz00_2548, BgL_auxz00_2550);} } } } } } } } } } 

}



/* search1113~0 */
obj_t BGl_search1113ze70ze7zz__mmapz00(long BgL_l1112z00_2165, obj_t BgL_opt1110z00_2164, obj_t BgL_k1z00_1167, long BgL_iz00_1168)
{
{ /* Llib/mmap.scm 129 */
BGl_search1113ze70ze7zz__mmapz00:
if(
(BgL_iz00_1168==BgL_l1112z00_2165))
{ /* Llib/mmap.scm 129 */
return 
BINT(-1L);}  else 
{ /* Llib/mmap.scm 129 */
if(
(BgL_iz00_1168==
(BgL_l1112z00_2165-1L)))
{ /* Llib/mmap.scm 129 */
return 
BGl_errorz00zz__errorz00(BGl_symbol1853z00zz__mmapz00, BGl_string1852z00zz__mmapz00, 
BINT(
VECTOR_LENGTH(BgL_opt1110z00_2164)));}  else 
{ /* Llib/mmap.scm 129 */
 obj_t BgL_vz00_1192;
BgL_vz00_1192 = 
VECTOR_REF(BgL_opt1110z00_2164,BgL_iz00_1168); 
if(
(BgL_vz00_1192==BgL_k1z00_1167))
{ /* Llib/mmap.scm 129 */
return 
BINT(
(BgL_iz00_1168+1L));}  else 
{ 
 long BgL_iz00_2567;
BgL_iz00_2567 = 
(BgL_iz00_1168+2L); 
BgL_iz00_1168 = BgL_iz00_2567; 
goto BGl_search1113ze70ze7zz__mmapz00;} } } } 

}



/* string->mmap */
BGL_EXPORTED_DEF obj_t BGl_stringzd2ze3mmapz31zz__mmapz00(obj_t BgL_sz00_9, obj_t BgL_readz00_10, obj_t BgL_writez00_11)
{
{ /* Llib/mmap.scm 129 */
{ /* Llib/mmap.scm 130 */
 bool_t BgL_auxz00_2571; bool_t BgL_tmpz00_2569;
BgL_auxz00_2571 = 
CBOOL(BgL_writez00_11); 
BgL_tmpz00_2569 = 
CBOOL(BgL_readz00_10); 
return 
bgl_string_to_mmap(BgL_sz00_9, BgL_tmpz00_2569, BgL_auxz00_2571);} } 

}



/* mmap-name */
BGL_EXPORTED_DEF obj_t BGl_mmapzd2namezd2zz__mmapz00(obj_t BgL_mmapz00_14)
{
{ /* Llib/mmap.scm 135 */
{ /* Llib/mmap.scm 136 */
 obj_t BgL_aux1759z00_2284;
BgL_aux1759z00_2284 = 
BGL_MMAP_NAME(BgL_mmapz00_14); 
if(
STRINGP(BgL_aux1759z00_2284))
{ /* Llib/mmap.scm 136 */
return BgL_aux1759z00_2284;}  else 
{ 
 obj_t BgL_auxz00_2577;
BgL_auxz00_2577 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(6027L), BGl_string1856z00zz__mmapz00, BGl_string1851z00zz__mmapz00, BgL_aux1759z00_2284); 
FAILURE(BgL_auxz00_2577,BFALSE,BFALSE);} } } 

}



/* &mmap-name */
obj_t BGl_z62mmapzd2namezb0zz__mmapz00(obj_t BgL_envz00_2111, obj_t BgL_mmapz00_2112)
{
{ /* Llib/mmap.scm 135 */
{ /* Llib/mmap.scm 136 */
 obj_t BgL_auxz00_2581;
if(
BGL_MMAPP(BgL_mmapz00_2112))
{ /* Llib/mmap.scm 136 */
BgL_auxz00_2581 = BgL_mmapz00_2112
; }  else 
{ 
 obj_t BgL_auxz00_2584;
BgL_auxz00_2584 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(6027L), BGl_string1857z00zz__mmapz00, BGl_string1858z00zz__mmapz00, BgL_mmapz00_2112); 
FAILURE(BgL_auxz00_2584,BFALSE,BFALSE);} 
return 
BGl_mmapzd2namezd2zz__mmapz00(BgL_auxz00_2581);} } 

}



/* mmap->string */
BGL_EXPORTED_DEF char * BGl_mmapzd2ze3stringz31zz__mmapz00(obj_t BgL_mmapz00_15)
{
{ /* Llib/mmap.scm 141 */
return 
BGL_MMAP_TO_STRING(BgL_mmapz00_15);} 

}



/* &mmap->string */
obj_t BGl_z62mmapzd2ze3stringz53zz__mmapz00(obj_t BgL_envz00_2113, obj_t BgL_mmapz00_2114)
{
{ /* Llib/mmap.scm 141 */
{ /* Llib/mmap.scm 142 */
 char * BgL_tmpz00_2590;
{ /* Llib/mmap.scm 142 */
 obj_t BgL_auxz00_2591;
if(
BGL_MMAPP(BgL_mmapz00_2114))
{ /* Llib/mmap.scm 142 */
BgL_auxz00_2591 = BgL_mmapz00_2114
; }  else 
{ 
 obj_t BgL_auxz00_2594;
BgL_auxz00_2594 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(6321L), BGl_string1859z00zz__mmapz00, BGl_string1858z00zz__mmapz00, BgL_mmapz00_2114); 
FAILURE(BgL_auxz00_2594,BFALSE,BFALSE);} 
BgL_tmpz00_2590 = 
BGl_mmapzd2ze3stringz31zz__mmapz00(BgL_auxz00_2591); } 
return 
string_to_bstring(BgL_tmpz00_2590);} } 

}



/* mmap->bstring */
BGL_EXPORTED_DEF obj_t BGl_mmapzd2ze3bstringz31zz__mmapz00(obj_t BgL_mmapz00_16)
{
{ /* Llib/mmap.scm 147 */
{ /* Llib/mmap.scm 148 */
 int BgL_lenz00_2285;
{ /* Llib/mmap.scm 148 */
 long BgL_arg1234z00_2286;
BgL_arg1234z00_2286 = 
BGL_MMAP_LENGTH(BgL_mmapz00_16); 
BgL_lenz00_2285 = 
(int)(
(long)(BgL_arg1234z00_2286)); } 
{ /* Llib/mmap.scm 149 */
 char * BgL_arg1233z00_2287;
BgL_arg1233z00_2287 = 
BGL_MMAP_TO_STRING(BgL_mmapz00_16); 
return 
string_to_bstring_len(BgL_arg1233z00_2287, BgL_lenz00_2285);} } } 

}



/* &mmap->bstring */
obj_t BGl_z62mmapzd2ze3bstringz53zz__mmapz00(obj_t BgL_envz00_2115, obj_t BgL_mmapz00_2116)
{
{ /* Llib/mmap.scm 147 */
{ /* Llib/mmap.scm 148 */
 obj_t BgL_auxz00_2605;
if(
BGL_MMAPP(BgL_mmapz00_2116))
{ /* Llib/mmap.scm 148 */
BgL_auxz00_2605 = BgL_mmapz00_2116
; }  else 
{ 
 obj_t BgL_auxz00_2608;
BgL_auxz00_2608 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(6620L), BGl_string1860z00zz__mmapz00, BGl_string1858z00zz__mmapz00, BgL_mmapz00_2116); 
FAILURE(BgL_auxz00_2608,BFALSE,BFALSE);} 
return 
BGl_mmapzd2ze3bstringz31zz__mmapz00(BgL_auxz00_2605);} } 

}



/* close-mmap */
BGL_EXPORTED_DEF obj_t BGl_closezd2mmapzd2zz__mmapz00(obj_t BgL_mmapz00_17)
{
{ /* Llib/mmap.scm 154 */
return 
bgl_close_mmap(BgL_mmapz00_17);} 

}



/* &close-mmap */
obj_t BGl_z62closezd2mmapzb0zz__mmapz00(obj_t BgL_envz00_2117, obj_t BgL_mmapz00_2118)
{
{ /* Llib/mmap.scm 154 */
{ /* Llib/mmap.scm 155 */
 obj_t BgL_auxz00_2614;
if(
BGL_MMAPP(BgL_mmapz00_2118))
{ /* Llib/mmap.scm 155 */
BgL_auxz00_2614 = BgL_mmapz00_2118
; }  else 
{ 
 obj_t BgL_auxz00_2617;
BgL_auxz00_2617 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(6996L), BGl_string1861z00zz__mmapz00, BGl_string1858z00zz__mmapz00, BgL_mmapz00_2118); 
FAILURE(BgL_auxz00_2617,BFALSE,BFALSE);} 
return 
BGl_closezd2mmapzd2zz__mmapz00(BgL_auxz00_2614);} } 

}



/* mmap-length */
BGL_EXPORTED_DEF long BGl_mmapzd2lengthzd2zz__mmapz00(obj_t BgL_objz00_18)
{
{ /* Llib/mmap.scm 160 */
return 
BGL_MMAP_LENGTH(BgL_objz00_18);} 

}



/* &mmap-length */
obj_t BGl_z62mmapzd2lengthzb0zz__mmapz00(obj_t BgL_envz00_2119, obj_t BgL_objz00_2120)
{
{ /* Llib/mmap.scm 160 */
{ /* Llib/mmap.scm 161 */
 long BgL_tmpz00_2623;
{ /* Llib/mmap.scm 161 */
 obj_t BgL_auxz00_2624;
if(
BGL_MMAPP(BgL_objz00_2120))
{ /* Llib/mmap.scm 161 */
BgL_auxz00_2624 = BgL_objz00_2120
; }  else 
{ 
 obj_t BgL_auxz00_2627;
BgL_auxz00_2627 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(7281L), BGl_string1862z00zz__mmapz00, BGl_string1858z00zz__mmapz00, BgL_objz00_2120); 
FAILURE(BgL_auxz00_2627,BFALSE,BFALSE);} 
BgL_tmpz00_2623 = 
BGl_mmapzd2lengthzd2zz__mmapz00(BgL_auxz00_2624); } 
return 
make_belong(BgL_tmpz00_2623);} } 

}



/* mmap-read-position */
BGL_EXPORTED_DEF long BGl_mmapzd2readzd2positionz00zz__mmapz00(obj_t BgL_mmz00_19)
{
{ /* Llib/mmap.scm 166 */
return 
BGL_MMAP_RP_GET(BgL_mmz00_19);} 

}



/* &mmap-read-position */
obj_t BGl_z62mmapzd2readzd2positionz62zz__mmapz00(obj_t BgL_envz00_2121, obj_t BgL_mmz00_2122)
{
{ /* Llib/mmap.scm 166 */
{ /* Llib/mmap.scm 167 */
 long BgL_tmpz00_2634;
{ /* Llib/mmap.scm 167 */
 obj_t BgL_auxz00_2635;
if(
BGL_MMAPP(BgL_mmz00_2122))
{ /* Llib/mmap.scm 167 */
BgL_auxz00_2635 = BgL_mmz00_2122
; }  else 
{ 
 obj_t BgL_auxz00_2638;
BgL_auxz00_2638 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(7572L), BGl_string1863z00zz__mmapz00, BGl_string1858z00zz__mmapz00, BgL_mmz00_2122); 
FAILURE(BgL_auxz00_2638,BFALSE,BFALSE);} 
BgL_tmpz00_2634 = 
BGl_mmapzd2readzd2positionz00zz__mmapz00(BgL_auxz00_2635); } 
return 
make_belong(BgL_tmpz00_2634);} } 

}



/* mmap-read-position-set! */
BGL_EXPORTED_DEF long BGl_mmapzd2readzd2positionzd2setz12zc0zz__mmapz00(obj_t BgL_mmz00_20, long BgL_pz00_21)
{
{ /* Llib/mmap.scm 172 */
BGL_MMAP_RP_SET(BgL_mmz00_20, BgL_pz00_21); BUNSPEC; 
return BgL_pz00_21;} 

}



/* &mmap-read-position-set! */
obj_t BGl_z62mmapzd2readzd2positionzd2setz12za2zz__mmapz00(obj_t BgL_envz00_2123, obj_t BgL_mmz00_2124, obj_t BgL_pz00_2125)
{
{ /* Llib/mmap.scm 172 */
{ /* Llib/mmap.scm 173 */
 long BgL_tmpz00_2645;
{ /* Llib/mmap.scm 173 */
 long BgL_auxz00_2653; obj_t BgL_auxz00_2646;
{ /* Llib/mmap.scm 173 */
 obj_t BgL_tmpz00_2654;
if(
ELONGP(BgL_pz00_2125))
{ /* Llib/mmap.scm 173 */
BgL_tmpz00_2654 = BgL_pz00_2125
; }  else 
{ 
 obj_t BgL_auxz00_2657;
BgL_auxz00_2657 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(7884L), BGl_string1864z00zz__mmapz00, BGl_string1865z00zz__mmapz00, BgL_pz00_2125); 
FAILURE(BgL_auxz00_2657,BFALSE,BFALSE);} 
BgL_auxz00_2653 = 
BELONG_TO_LONG(BgL_tmpz00_2654); } 
if(
BGL_MMAPP(BgL_mmz00_2124))
{ /* Llib/mmap.scm 173 */
BgL_auxz00_2646 = BgL_mmz00_2124
; }  else 
{ 
 obj_t BgL_auxz00_2649;
BgL_auxz00_2649 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(7884L), BGl_string1864z00zz__mmapz00, BGl_string1858z00zz__mmapz00, BgL_mmz00_2124); 
FAILURE(BgL_auxz00_2649,BFALSE,BFALSE);} 
BgL_tmpz00_2645 = 
BGl_mmapzd2readzd2positionzd2setz12zc0zz__mmapz00(BgL_auxz00_2646, BgL_auxz00_2653); } 
return 
make_belong(BgL_tmpz00_2645);} } 

}



/* mmap-write-position */
BGL_EXPORTED_DEF long BGl_mmapzd2writezd2positionz00zz__mmapz00(obj_t BgL_mmz00_22)
{
{ /* Llib/mmap.scm 179 */
return 
BGL_MMAP_WP_GET(BgL_mmz00_22);} 

}



/* &mmap-write-position */
obj_t BGl_z62mmapzd2writezd2positionz62zz__mmapz00(obj_t BgL_envz00_2126, obj_t BgL_mmz00_2127)
{
{ /* Llib/mmap.scm 179 */
{ /* Llib/mmap.scm 180 */
 long BgL_tmpz00_2665;
{ /* Llib/mmap.scm 180 */
 obj_t BgL_auxz00_2666;
if(
BGL_MMAPP(BgL_mmz00_2127))
{ /* Llib/mmap.scm 180 */
BgL_auxz00_2666 = BgL_mmz00_2127
; }  else 
{ 
 obj_t BgL_auxz00_2669;
BgL_auxz00_2669 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(8164L), BGl_string1866z00zz__mmapz00, BGl_string1858z00zz__mmapz00, BgL_mmz00_2127); 
FAILURE(BgL_auxz00_2669,BFALSE,BFALSE);} 
BgL_tmpz00_2665 = 
BGl_mmapzd2writezd2positionz00zz__mmapz00(BgL_auxz00_2666); } 
return 
make_belong(BgL_tmpz00_2665);} } 

}



/* mmap-write-position-set! */
BGL_EXPORTED_DEF long BGl_mmapzd2writezd2positionzd2setz12zc0zz__mmapz00(obj_t BgL_mmz00_23, long BgL_pz00_24)
{
{ /* Llib/mmap.scm 185 */
BGL_MMAP_WP_SET(BgL_mmz00_23, BgL_pz00_24); BUNSPEC; 
return BgL_pz00_24;} 

}



/* &mmap-write-position-set! */
obj_t BGl_z62mmapzd2writezd2positionzd2setz12za2zz__mmapz00(obj_t BgL_envz00_2128, obj_t BgL_mmz00_2129, obj_t BgL_pz00_2130)
{
{ /* Llib/mmap.scm 185 */
{ /* Llib/mmap.scm 186 */
 long BgL_tmpz00_2676;
{ /* Llib/mmap.scm 186 */
 long BgL_auxz00_2684; obj_t BgL_auxz00_2677;
{ /* Llib/mmap.scm 186 */
 obj_t BgL_tmpz00_2685;
if(
ELONGP(BgL_pz00_2130))
{ /* Llib/mmap.scm 186 */
BgL_tmpz00_2685 = BgL_pz00_2130
; }  else 
{ 
 obj_t BgL_auxz00_2688;
BgL_auxz00_2688 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(8477L), BGl_string1867z00zz__mmapz00, BGl_string1865z00zz__mmapz00, BgL_pz00_2130); 
FAILURE(BgL_auxz00_2688,BFALSE,BFALSE);} 
BgL_auxz00_2684 = 
BELONG_TO_LONG(BgL_tmpz00_2685); } 
if(
BGL_MMAPP(BgL_mmz00_2129))
{ /* Llib/mmap.scm 186 */
BgL_auxz00_2677 = BgL_mmz00_2129
; }  else 
{ 
 obj_t BgL_auxz00_2680;
BgL_auxz00_2680 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(8477L), BGl_string1867z00zz__mmapz00, BGl_string1858z00zz__mmapz00, BgL_mmz00_2129); 
FAILURE(BgL_auxz00_2680,BFALSE,BFALSE);} 
BgL_tmpz00_2676 = 
BGl_mmapzd2writezd2positionzd2setz12zc0zz__mmapz00(BgL_auxz00_2677, BgL_auxz00_2684); } 
return 
make_belong(BgL_tmpz00_2676);} } 

}



/* mmap-ref-ur */
BGL_EXPORTED_DEF unsigned char BGl_mmapzd2refzd2urz00zz__mmapz00(obj_t BgL_mmz00_25, long BgL_iz00_26)
{
{ /* Llib/mmap.scm 192 */
{ /* Llib/mmap.scm 193 */
 unsigned char BgL_cz00_2288;
BgL_cz00_2288 = 
BGL_MMAP_REF(BgL_mmz00_25, BgL_iz00_26); 
{ /* Llib/mmap.scm 194 */
 long BgL_arg1237z00_2289;
BgL_arg1237z00_2289 = 
(BgL_iz00_26+((long)1)); 
BGL_MMAP_RP_SET(BgL_mmz00_25, BgL_arg1237z00_2289); BUNSPEC; BgL_arg1237z00_2289; } 
return BgL_cz00_2288;} } 

}



/* &mmap-ref-ur */
obj_t BGl_z62mmapzd2refzd2urz62zz__mmapz00(obj_t BgL_envz00_2131, obj_t BgL_mmz00_2132, obj_t BgL_iz00_2133)
{
{ /* Llib/mmap.scm 192 */
{ /* Llib/mmap.scm 193 */
 unsigned char BgL_tmpz00_2698;
{ /* Llib/mmap.scm 193 */
 long BgL_auxz00_2706; obj_t BgL_auxz00_2699;
{ /* Llib/mmap.scm 193 */
 obj_t BgL_tmpz00_2707;
if(
ELONGP(BgL_iz00_2133))
{ /* Llib/mmap.scm 193 */
BgL_tmpz00_2707 = BgL_iz00_2133
; }  else 
{ 
 obj_t BgL_auxz00_2710;
BgL_auxz00_2710 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(8765L), BGl_string1868z00zz__mmapz00, BGl_string1865z00zz__mmapz00, BgL_iz00_2133); 
FAILURE(BgL_auxz00_2710,BFALSE,BFALSE);} 
BgL_auxz00_2706 = 
BELONG_TO_LONG(BgL_tmpz00_2707); } 
if(
BGL_MMAPP(BgL_mmz00_2132))
{ /* Llib/mmap.scm 193 */
BgL_auxz00_2699 = BgL_mmz00_2132
; }  else 
{ 
 obj_t BgL_auxz00_2702;
BgL_auxz00_2702 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(8765L), BGl_string1868z00zz__mmapz00, BGl_string1858z00zz__mmapz00, BgL_mmz00_2132); 
FAILURE(BgL_auxz00_2702,BFALSE,BFALSE);} 
BgL_tmpz00_2698 = 
BGl_mmapzd2refzd2urz00zz__mmapz00(BgL_auxz00_2699, BgL_auxz00_2706); } 
return 
BCHAR(BgL_tmpz00_2698);} } 

}



/* mmap-set-ur! */
BGL_EXPORTED_DEF obj_t BGl_mmapzd2setzd2urz12z12zz__mmapz00(obj_t BgL_mmz00_27, long BgL_iz00_28, unsigned char BgL_cz00_29)
{
{ /* Llib/mmap.scm 200 */
BGL_MMAP_SET(BgL_mmz00_27, BgL_iz00_28, BgL_cz00_29); 
{ /* Llib/mmap.scm 202 */
 long BgL_arg1240z00_2290;
BgL_arg1240z00_2290 = 
(BgL_iz00_28+((long)1)); 
BGL_MMAP_WP_SET(BgL_mmz00_27, BgL_arg1240z00_2290); BUNSPEC; 
return 
make_belong(BgL_arg1240z00_2290);} } 

}



/* &mmap-set-ur! */
obj_t BGl_z62mmapzd2setzd2urz12z70zz__mmapz00(obj_t BgL_envz00_2134, obj_t BgL_mmz00_2135, obj_t BgL_iz00_2136, obj_t BgL_cz00_2137)
{
{ /* Llib/mmap.scm 200 */
{ /* Llib/mmap.scm 201 */
 unsigned char BgL_auxz00_2737; long BgL_auxz00_2728; obj_t BgL_auxz00_2721;
{ /* Llib/mmap.scm 201 */
 obj_t BgL_tmpz00_2738;
if(
CHARP(BgL_cz00_2137))
{ /* Llib/mmap.scm 201 */
BgL_tmpz00_2738 = BgL_cz00_2137
; }  else 
{ 
 obj_t BgL_auxz00_2741;
BgL_auxz00_2741 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(9159L), BGl_string1869z00zz__mmapz00, BGl_string1870z00zz__mmapz00, BgL_cz00_2137); 
FAILURE(BgL_auxz00_2741,BFALSE,BFALSE);} 
BgL_auxz00_2737 = 
CCHAR(BgL_tmpz00_2738); } 
{ /* Llib/mmap.scm 201 */
 obj_t BgL_tmpz00_2729;
if(
ELONGP(BgL_iz00_2136))
{ /* Llib/mmap.scm 201 */
BgL_tmpz00_2729 = BgL_iz00_2136
; }  else 
{ 
 obj_t BgL_auxz00_2732;
BgL_auxz00_2732 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(9159L), BGl_string1869z00zz__mmapz00, BGl_string1865z00zz__mmapz00, BgL_iz00_2136); 
FAILURE(BgL_auxz00_2732,BFALSE,BFALSE);} 
BgL_auxz00_2728 = 
BELONG_TO_LONG(BgL_tmpz00_2729); } 
if(
BGL_MMAPP(BgL_mmz00_2135))
{ /* Llib/mmap.scm 201 */
BgL_auxz00_2721 = BgL_mmz00_2135
; }  else 
{ 
 obj_t BgL_auxz00_2724;
BgL_auxz00_2724 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(9159L), BGl_string1869z00zz__mmapz00, BGl_string1858z00zz__mmapz00, BgL_mmz00_2135); 
FAILURE(BgL_auxz00_2724,BFALSE,BFALSE);} 
return 
BGl_mmapzd2setzd2urz12z12zz__mmapz00(BgL_auxz00_2721, BgL_auxz00_2728, BgL_auxz00_2737);} } 

}



/* mmap-ref */
BGL_EXPORTED_DEF unsigned char BGl_mmapzd2refzd2zz__mmapz00(obj_t BgL_mmz00_30, long BgL_iz00_31)
{
{ /* Llib/mmap.scm 207 */
{ /* Llib/mmap.scm 208 */
 bool_t BgL_test2017z00_2747;
{ /* Llib/mmap.scm 208 */
 long BgL_arg1249z00_2291;
BgL_arg1249z00_2291 = 
BGL_MMAP_LENGTH(BgL_mmz00_30); 
BgL_test2017z00_2747 = 
BOUND_CHECK(BgL_iz00_31, BgL_arg1249z00_2291); } 
if(BgL_test2017z00_2747)
{ /* Llib/mmap.scm 209 */
 unsigned char BgL_res1717z00_2292;
{ /* Llib/mmap.scm 193 */
 unsigned char BgL_cz00_2293;
BgL_cz00_2293 = 
BGL_MMAP_REF(BgL_mmz00_30, BgL_iz00_31); 
{ /* Llib/mmap.scm 194 */
 long BgL_arg1237z00_2294;
BgL_arg1237z00_2294 = 
(BgL_iz00_31+((long)1)); 
BGL_MMAP_RP_SET(BgL_mmz00_30, BgL_arg1237z00_2294); BUNSPEC; BgL_arg1237z00_2294; } 
BgL_res1717z00_2292 = BgL_cz00_2293; } 
return BgL_res1717z00_2292;}  else 
{ /* Llib/mmap.scm 212 */
 obj_t BgL_arg1244z00_2295;
{ /* Llib/mmap.scm 212 */
 obj_t BgL_arg1246z00_2296;
{ /* Llib/mmap.scm 212 */
 obj_t BgL_arg1247z00_2297;
{ /* Llib/mmap.scm 212 */
 long BgL_a1084z00_2298;
BgL_a1084z00_2298 = 
BGL_MMAP_LENGTH(BgL_mmz00_30); 
{ /* Llib/mmap.scm 212 */

BgL_arg1247z00_2297 = 
BGl_2zd2zd2zz__r4_numbers_6_5z00(
make_belong(BgL_a1084z00_2298), 
BINT(1L)); } } 
{ /* Llib/mmap.scm 212 */

BgL_arg1246z00_2296 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_arg1247z00_2297, 
BINT(10L)); } } 
BgL_arg1244z00_2295 = 
string_append_3(BGl_string1871z00zz__mmapz00, BgL_arg1246z00_2296, BGl_string1872z00zz__mmapz00); } 
{ /* Llib/mmap.scm 210 */
 obj_t BgL_tmpz00_2760;
{ /* Llib/mmap.scm 210 */
 obj_t BgL_aux1793z00_2299;
BgL_aux1793z00_2299 = 
BGl_errorz00zz__errorz00(BGl_symbol1873z00zz__mmapz00, BgL_arg1244z00_2295, 
make_belong(BgL_iz00_31)); 
if(
CHARP(BgL_aux1793z00_2299))
{ /* Llib/mmap.scm 210 */
BgL_tmpz00_2760 = BgL_aux1793z00_2299
; }  else 
{ 
 obj_t BgL_auxz00_2765;
BgL_auxz00_2765 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(9564L), BGl_string1874z00zz__mmapz00, BGl_string1870z00zz__mmapz00, BgL_aux1793z00_2299); 
FAILURE(BgL_auxz00_2765,BFALSE,BFALSE);} } 
return 
CCHAR(BgL_tmpz00_2760);} } } } 

}



/* &mmap-ref */
obj_t BGl_z62mmapzd2refzb0zz__mmapz00(obj_t BgL_envz00_2138, obj_t BgL_mmz00_2139, obj_t BgL_iz00_2140)
{
{ /* Llib/mmap.scm 207 */
{ /* Llib/mmap.scm 208 */
 unsigned char BgL_tmpz00_2770;
{ /* Llib/mmap.scm 208 */
 long BgL_auxz00_2778; obj_t BgL_auxz00_2771;
{ /* Llib/mmap.scm 208 */
 obj_t BgL_tmpz00_2779;
if(
ELONGP(BgL_iz00_2140))
{ /* Llib/mmap.scm 208 */
BgL_tmpz00_2779 = BgL_iz00_2140
; }  else 
{ 
 obj_t BgL_auxz00_2782;
BgL_auxz00_2782 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(9487L), BGl_string1875z00zz__mmapz00, BGl_string1865z00zz__mmapz00, BgL_iz00_2140); 
FAILURE(BgL_auxz00_2782,BFALSE,BFALSE);} 
BgL_auxz00_2778 = 
BELONG_TO_LONG(BgL_tmpz00_2779); } 
if(
BGL_MMAPP(BgL_mmz00_2139))
{ /* Llib/mmap.scm 208 */
BgL_auxz00_2771 = BgL_mmz00_2139
; }  else 
{ 
 obj_t BgL_auxz00_2774;
BgL_auxz00_2774 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(9487L), BGl_string1875z00zz__mmapz00, BGl_string1858z00zz__mmapz00, BgL_mmz00_2139); 
FAILURE(BgL_auxz00_2774,BFALSE,BFALSE);} 
BgL_tmpz00_2770 = 
BGl_mmapzd2refzd2zz__mmapz00(BgL_auxz00_2771, BgL_auxz00_2778); } 
return 
BCHAR(BgL_tmpz00_2770);} } 

}



/* mmap-set! */
BGL_EXPORTED_DEF obj_t BGl_mmapzd2setz12zc0zz__mmapz00(obj_t BgL_mmz00_32, long BgL_iz00_33, unsigned char BgL_cz00_34)
{
{ /* Llib/mmap.scm 219 */
{ /* Llib/mmap.scm 220 */
 bool_t BgL_test2021z00_2789;
{ /* Llib/mmap.scm 220 */
 long BgL_arg1256z00_2300;
BgL_arg1256z00_2300 = 
BGL_MMAP_LENGTH(BgL_mmz00_32); 
BgL_test2021z00_2789 = 
BOUND_CHECK(BgL_iz00_33, BgL_arg1256z00_2300); } 
if(BgL_test2021z00_2789)
{ /* Llib/mmap.scm 220 */
BGL_MMAP_SET(BgL_mmz00_32, BgL_iz00_33, BgL_cz00_34); 
{ /* Llib/mmap.scm 202 */
 long BgL_arg1240z00_2301;
BgL_arg1240z00_2301 = 
(BgL_iz00_33+((long)1)); 
BGL_MMAP_WP_SET(BgL_mmz00_32, BgL_arg1240z00_2301); BUNSPEC; 
return 
make_belong(BgL_arg1240z00_2301);} }  else 
{ /* Llib/mmap.scm 224 */
 obj_t BgL_arg1252z00_2302;
{ /* Llib/mmap.scm 224 */
 obj_t BgL_arg1253z00_2303;
{ /* Llib/mmap.scm 224 */
 obj_t BgL_arg1254z00_2304;
{ /* Llib/mmap.scm 224 */
 long BgL_a1086z00_2305;
BgL_a1086z00_2305 = 
BGL_MMAP_LENGTH(BgL_mmz00_32); 
{ /* Llib/mmap.scm 224 */

BgL_arg1254z00_2304 = 
BGl_2zd2zd2zz__r4_numbers_6_5z00(
make_belong(BgL_a1086z00_2305), 
BINT(1L)); } } 
{ /* Llib/mmap.scm 224 */

BgL_arg1253z00_2303 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_arg1254z00_2304, 
BINT(10L)); } } 
BgL_arg1252z00_2302 = 
string_append_3(BGl_string1871z00zz__mmapz00, BgL_arg1253z00_2303, BGl_string1872z00zz__mmapz00); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol1876z00zz__mmapz00, BgL_arg1252z00_2302, 
make_belong(BgL_iz00_33));} } } 

}



/* &mmap-set! */
obj_t BGl_z62mmapzd2setz12za2zz__mmapz00(obj_t BgL_envz00_2141, obj_t BgL_mmz00_2142, obj_t BgL_iz00_2143, obj_t BgL_cz00_2144)
{
{ /* Llib/mmap.scm 219 */
{ /* Llib/mmap.scm 220 */
 unsigned char BgL_auxz00_2821; long BgL_auxz00_2812; obj_t BgL_auxz00_2805;
{ /* Llib/mmap.scm 220 */
 obj_t BgL_tmpz00_2822;
if(
CHARP(BgL_cz00_2144))
{ /* Llib/mmap.scm 220 */
BgL_tmpz00_2822 = BgL_cz00_2144
; }  else 
{ 
 obj_t BgL_auxz00_2825;
BgL_auxz00_2825 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(9987L), BGl_string1878z00zz__mmapz00, BGl_string1870z00zz__mmapz00, BgL_cz00_2144); 
FAILURE(BgL_auxz00_2825,BFALSE,BFALSE);} 
BgL_auxz00_2821 = 
CCHAR(BgL_tmpz00_2822); } 
{ /* Llib/mmap.scm 220 */
 obj_t BgL_tmpz00_2813;
if(
ELONGP(BgL_iz00_2143))
{ /* Llib/mmap.scm 220 */
BgL_tmpz00_2813 = BgL_iz00_2143
; }  else 
{ 
 obj_t BgL_auxz00_2816;
BgL_auxz00_2816 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(9987L), BGl_string1878z00zz__mmapz00, BGl_string1865z00zz__mmapz00, BgL_iz00_2143); 
FAILURE(BgL_auxz00_2816,BFALSE,BFALSE);} 
BgL_auxz00_2812 = 
BELONG_TO_LONG(BgL_tmpz00_2813); } 
if(
BGL_MMAPP(BgL_mmz00_2142))
{ /* Llib/mmap.scm 220 */
BgL_auxz00_2805 = BgL_mmz00_2142
; }  else 
{ 
 obj_t BgL_auxz00_2808;
BgL_auxz00_2808 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(9987L), BGl_string1878z00zz__mmapz00, BGl_string1858z00zz__mmapz00, BgL_mmz00_2142); 
FAILURE(BgL_auxz00_2808,BFALSE,BFALSE);} 
return 
BGl_mmapzd2setz12zc0zz__mmapz00(BgL_auxz00_2805, BgL_auxz00_2812, BgL_auxz00_2821);} } 

}



/* mmap-substring */
BGL_EXPORTED_DEF obj_t BGl_mmapzd2substringzd2zz__mmapz00(obj_t BgL_mmz00_35, long BgL_startz00_36, long BgL_endz00_37)
{
{ /* Llib/mmap.scm 231 */
if(
(BgL_endz00_37<BgL_startz00_36))
{ /* Llib/mmap.scm 234 */
 long BgL_arg1259z00_1224;
{ /* Llib/mmap.scm 234 */
 long BgL_res1718z00_1801;
{ /* Llib/mmap.scm 234 */
 long BgL_tmpz00_2833;
BgL_tmpz00_2833 = 
(BgL_endz00_37-BgL_startz00_36); 
BgL_res1718z00_1801 = 
(long)(BgL_tmpz00_2833); } 
BgL_arg1259z00_1224 = BgL_res1718z00_1801; } 
{ /* Llib/mmap.scm 234 */
 obj_t BgL_aux1805z00_2250;
BgL_aux1805z00_2250 = 
BGl_errorz00zz__errorz00(BGl_symbol1879z00zz__mmapz00, BGl_string1881z00zz__mmapz00, 
make_belong(BgL_arg1259z00_1224)); 
if(
STRINGP(BgL_aux1805z00_2250))
{ /* Llib/mmap.scm 234 */
return BgL_aux1805z00_2250;}  else 
{ 
 obj_t BgL_auxz00_2840;
BgL_auxz00_2840 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(10524L), BGl_string1880z00zz__mmapz00, BGl_string1851z00zz__mmapz00, BgL_aux1805z00_2250); 
FAILURE(BgL_auxz00_2840,BFALSE,BFALSE);} } }  else 
{ /* Llib/mmap.scm 235 */
 bool_t BgL_test2027z00_2844;
{ /* Llib/mmap.scm 235 */
 long BgL_arg1292z00_1248;
{ /* Llib/mmap.scm 235 */
 long BgL_arg1294z00_1249;
BgL_arg1294z00_1249 = 
BGL_MMAP_LENGTH(BgL_mmz00_35); 
BgL_arg1292z00_1248 = 
(((long)1)+BgL_arg1294z00_1249); } 
BgL_test2027z00_2844 = 
BOUND_CHECK(BgL_endz00_37, BgL_arg1292z00_1248); } 
if(BgL_test2027z00_2844)
{ /* Llib/mmap.scm 240 */
 bool_t BgL_test2028z00_2848;
{ /* Llib/mmap.scm 240 */
 long BgL_arg1285z00_1242;
BgL_arg1285z00_1242 = 
BGL_MMAP_LENGTH(BgL_mmz00_35); 
BgL_test2028z00_2848 = 
BOUND_CHECK(BgL_startz00_36, BgL_arg1285z00_1242); } 
if(BgL_test2028z00_2848)
{ /* Llib/mmap.scm 243 */
 obj_t BgL_rz00_1230;
{ /* Llib/mmap.scm 243 */
 long BgL_arg1283z00_1240;
{ /* Llib/mmap.scm 243 */
 long BgL_arg1284z00_1241;
{ /* Llib/mmap.scm 243 */
 long BgL_res1719z00_1808;
{ /* Llib/mmap.scm 243 */
 long BgL_tmpz00_2851;
BgL_tmpz00_2851 = 
(BgL_endz00_37-BgL_startz00_36); 
BgL_res1719z00_1808 = 
(long)(BgL_tmpz00_2851); } 
BgL_arg1284z00_1241 = BgL_res1719z00_1808; } 
BgL_arg1283z00_1240 = 
(long)(BgL_arg1284z00_1241); } 
BgL_rz00_1230 = 
make_string_sans_fill(BgL_arg1283z00_1240); } 
{ 
 long BgL_iz00_1232; long BgL_jz00_1233;
BgL_iz00_1232 = BgL_startz00_36; 
BgL_jz00_1233 = 0L; 
BgL_zc3z04anonymousza31277ze3z87_1234:
if(
(BgL_iz00_1232==BgL_endz00_37))
{ /* Llib/mmap.scm 246 */
BGL_MMAP_RP_SET(BgL_mmz00_35, BgL_iz00_1232); BUNSPEC; BgL_iz00_1232; 
return BgL_rz00_1230;}  else 
{ /* Llib/mmap.scm 246 */
{ /* Llib/mmap.scm 251 */
 unsigned char BgL_arg1279z00_1236;
{ /* Llib/mmap.scm 251 */
 unsigned char BgL_res1720z00_1822;
{ /* Llib/mmap.scm 193 */
 unsigned char BgL_cz00_1816;
BgL_cz00_1816 = 
BGL_MMAP_REF(BgL_mmz00_35, BgL_iz00_1232); 
{ /* Llib/mmap.scm 194 */
 long BgL_arg1237z00_1817;
BgL_arg1237z00_1817 = 
(BgL_iz00_1232+((long)1)); 
BGL_MMAP_RP_SET(BgL_mmz00_35, BgL_arg1237z00_1817); BUNSPEC; BgL_arg1237z00_1817; } 
BgL_res1720z00_1822 = BgL_cz00_1816; } 
BgL_arg1279z00_1236 = BgL_res1720z00_1822; } 
{ /* Llib/mmap.scm 251 */
 long BgL_l1741z00_2186;
BgL_l1741z00_2186 = 
STRING_LENGTH(BgL_rz00_1230); 
if(
BOUND_CHECK(BgL_jz00_1233, BgL_l1741z00_2186))
{ /* Llib/mmap.scm 251 */
STRING_SET(BgL_rz00_1230, BgL_jz00_1233, BgL_arg1279z00_1236); }  else 
{ 
 obj_t BgL_auxz00_2866;
BgL_auxz00_2866 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(11125L), BGl_string1882z00zz__mmapz00, BgL_rz00_1230, 
(int)(BgL_l1741z00_2186), 
(int)(BgL_jz00_1233)); 
FAILURE(BgL_auxz00_2866,BFALSE,BFALSE);} } } 
{ /* Llib/mmap.scm 252 */
 long BgL_arg1281z00_1237; long BgL_arg1282z00_1238;
BgL_arg1281z00_1237 = 
(BgL_iz00_1232+
(long)(1L)); 
BgL_arg1282z00_1238 = 
(BgL_jz00_1233+1L); 
{ 
 long BgL_jz00_2876; long BgL_iz00_2875;
BgL_iz00_2875 = BgL_arg1281z00_1237; 
BgL_jz00_2876 = BgL_arg1282z00_1238; 
BgL_jz00_1233 = BgL_jz00_2876; 
BgL_iz00_1232 = BgL_iz00_2875; 
goto BgL_zc3z04anonymousza31277ze3z87_1234;} } } } }  else 
{ /* Llib/mmap.scm 241 */
 obj_t BgL_aux1807z00_2252;
BgL_aux1807z00_2252 = 
BGl_errorz00zz__errorz00(BGl_symbol1879z00zz__mmapz00, BGl_string1883z00zz__mmapz00, 
make_belong(BgL_startz00_36)); 
if(
STRINGP(BgL_aux1807z00_2252))
{ /* Llib/mmap.scm 241 */
return BgL_aux1807z00_2252;}  else 
{ 
 obj_t BgL_auxz00_2881;
BgL_auxz00_2881 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(10855L), BGl_string1880z00zz__mmapz00, BGl_string1851z00zz__mmapz00, BgL_aux1807z00_2252); 
FAILURE(BgL_auxz00_2881,BFALSE,BFALSE);} } }  else 
{ /* Llib/mmap.scm 238 */
 obj_t BgL_arg1287z00_1243;
{ /* Llib/mmap.scm 238 */
 obj_t BgL_arg1289z00_1244;
{ /* Llib/mmap.scm 238 */
 long BgL_arg1291z00_1245;
BgL_arg1291z00_1245 = 
BGL_MMAP_LENGTH(BgL_mmz00_35); 
{ /* Ieee/number.scm 174 */

BgL_arg1289z00_1244 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(
make_belong(BgL_arg1291z00_1245), 
BINT(10L)); } } 
BgL_arg1287z00_1243 = 
string_append(BGl_string1884z00zz__mmapz00, BgL_arg1289z00_1244); } 
{ /* Llib/mmap.scm 236 */
 obj_t BgL_aux1809z00_2254;
BgL_aux1809z00_2254 = 
BGl_errorz00zz__errorz00(BGl_symbol1879z00zz__mmapz00, BgL_arg1287z00_1243, 
make_belong(BgL_endz00_37)); 
if(
STRINGP(BgL_aux1809z00_2254))
{ /* Llib/mmap.scm 236 */
return BgL_aux1809z00_2254;}  else 
{ 
 obj_t BgL_auxz00_2894;
BgL_auxz00_2894 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(10662L), BGl_string1880z00zz__mmapz00, BGl_string1851z00zz__mmapz00, BgL_aux1809z00_2254); 
FAILURE(BgL_auxz00_2894,BFALSE,BFALSE);} } } } } 

}



/* &mmap-substring */
obj_t BGl_z62mmapzd2substringzb0zz__mmapz00(obj_t BgL_envz00_2145, obj_t BgL_mmz00_2146, obj_t BgL_startz00_2147, obj_t BgL_endz00_2148)
{
{ /* Llib/mmap.scm 231 */
{ /* Llib/mmap.scm 233 */
 long BgL_auxz00_2914; long BgL_auxz00_2905; obj_t BgL_auxz00_2898;
{ /* Llib/mmap.scm 233 */
 obj_t BgL_tmpz00_2915;
if(
ELONGP(BgL_endz00_2148))
{ /* Llib/mmap.scm 233 */
BgL_tmpz00_2915 = BgL_endz00_2148
; }  else 
{ 
 obj_t BgL_auxz00_2918;
BgL_auxz00_2918 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(10497L), BGl_string1885z00zz__mmapz00, BGl_string1865z00zz__mmapz00, BgL_endz00_2148); 
FAILURE(BgL_auxz00_2918,BFALSE,BFALSE);} 
BgL_auxz00_2914 = 
BELONG_TO_LONG(BgL_tmpz00_2915); } 
{ /* Llib/mmap.scm 233 */
 obj_t BgL_tmpz00_2906;
if(
ELONGP(BgL_startz00_2147))
{ /* Llib/mmap.scm 233 */
BgL_tmpz00_2906 = BgL_startz00_2147
; }  else 
{ 
 obj_t BgL_auxz00_2909;
BgL_auxz00_2909 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(10497L), BGl_string1885z00zz__mmapz00, BGl_string1865z00zz__mmapz00, BgL_startz00_2147); 
FAILURE(BgL_auxz00_2909,BFALSE,BFALSE);} 
BgL_auxz00_2905 = 
BELONG_TO_LONG(BgL_tmpz00_2906); } 
if(
BGL_MMAPP(BgL_mmz00_2146))
{ /* Llib/mmap.scm 233 */
BgL_auxz00_2898 = BgL_mmz00_2146
; }  else 
{ 
 obj_t BgL_auxz00_2901;
BgL_auxz00_2901 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(10497L), BGl_string1885z00zz__mmapz00, BGl_string1858z00zz__mmapz00, BgL_mmz00_2146); 
FAILURE(BgL_auxz00_2901,BFALSE,BFALSE);} 
return 
BGl_mmapzd2substringzd2zz__mmapz00(BgL_auxz00_2898, BgL_auxz00_2905, BgL_auxz00_2914);} } 

}



/* mmap-substring-set! */
BGL_EXPORTED_DEF obj_t BGl_mmapzd2substringzd2setz12z12zz__mmapz00(obj_t BgL_mmz00_38, long BgL_oz00_39, obj_t BgL_sz00_40)
{
{ /* Llib/mmap.scm 257 */
{ /* Llib/mmap.scm 258 */
 long BgL_lenz00_1250;
BgL_lenz00_1250 = 
STRING_LENGTH(BgL_sz00_40); 
if(
(BgL_oz00_39<((long)0)))
{ /* Llib/mmap.scm 260 */
return 
BGl_errorz00zz__errorz00(BGl_string1886z00zz__mmapz00, BGl_string1883z00zz__mmapz00, 
make_belong(BgL_oz00_39));}  else 
{ /* Llib/mmap.scm 262 */
 bool_t BgL_test2037z00_2929;
{ /* Llib/mmap.scm 262 */
 long BgL_arg1353z00_1283;
{ /* Llib/mmap.scm 262 */
 long BgL_arg1354z00_1284;
BgL_arg1354z00_1284 = 
BGL_MMAP_LENGTH(BgL_mmz00_38); 
BgL_arg1353z00_1283 = 
(BgL_arg1354z00_1284+((long)1)); } 
BgL_test2037z00_2929 = 
BOUND_CHECK(BgL_oz00_39, BgL_arg1353z00_1283); } 
if(BgL_test2037z00_2929)
{ /* Llib/mmap.scm 268 */
 bool_t BgL_test2038z00_2933;
{ /* Llib/mmap.scm 268 */
 long BgL_arg1344z00_1274; long BgL_arg1345z00_1275;
{ /* Llib/mmap.scm 268 */
 long BgL_arg1346z00_1276;
BgL_arg1346z00_1276 = 
(long)(BgL_lenz00_1250); 
BgL_arg1344z00_1274 = 
(BgL_oz00_39+BgL_arg1346z00_1276); } 
{ /* Llib/mmap.scm 269 */
 long BgL_arg1347z00_1277;
BgL_arg1347z00_1277 = 
BGL_MMAP_LENGTH(BgL_mmz00_38); 
BgL_arg1345z00_1275 = 
(BgL_arg1347z00_1277+((long)1)); } 
BgL_test2038z00_2933 = 
BOUND_CHECK(BgL_arg1344z00_1274, BgL_arg1345z00_1275); } 
if(BgL_test2038z00_2933)
{ 
 long BgL_iz00_1261; long BgL_jz00_1262;
BgL_iz00_1261 = 0L; 
BgL_jz00_1262 = BgL_oz00_39; 
BgL_zc3z04anonymousza31333ze3z87_1263:
if(
(BgL_iz00_1261==BgL_lenz00_1250))
{ /* Llib/mmap.scm 278 */
BGL_MMAP_WP_SET(BgL_mmz00_38, BgL_jz00_1262); BUNSPEC; BgL_jz00_1262; 
return BgL_mmz00_38;}  else 
{ /* Llib/mmap.scm 278 */
{ /* Llib/mmap.scm 283 */
 unsigned char BgL_arg1335z00_1265;
{ /* Llib/mmap.scm 283 */
 long BgL_l1745z00_2190;
BgL_l1745z00_2190 = 
STRING_LENGTH(BgL_sz00_40); 
if(
BOUND_CHECK(BgL_iz00_1261, BgL_l1745z00_2190))
{ /* Llib/mmap.scm 283 */
BgL_arg1335z00_1265 = 
STRING_REF(BgL_sz00_40, BgL_iz00_1261); }  else 
{ 
 obj_t BgL_auxz00_2946;
BgL_auxz00_2946 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(12191L), BGl_string1887z00zz__mmapz00, BgL_sz00_40, 
(int)(BgL_l1745z00_2190), 
(int)(BgL_iz00_1261)); 
FAILURE(BgL_auxz00_2946,BFALSE,BFALSE);} } 
BGL_MMAP_SET(BgL_mmz00_38, BgL_jz00_1262, BgL_arg1335z00_1265); 
{ /* Llib/mmap.scm 202 */
 long BgL_arg1240z00_1851;
BgL_arg1240z00_1851 = 
(BgL_jz00_1262+((long)1)); 
BGL_MMAP_WP_SET(BgL_mmz00_38, BgL_arg1240z00_1851); BUNSPEC; BgL_arg1240z00_1851; } } 
{ /* Llib/mmap.scm 284 */
 long BgL_arg1336z00_1266; long BgL_arg1337z00_1267;
BgL_arg1336z00_1266 = 
(BgL_iz00_1261+1L); 
BgL_arg1337z00_1267 = 
(BgL_jz00_1262+
(long)(1L)); 
{ 
 long BgL_jz00_2959; long BgL_iz00_2958;
BgL_iz00_2958 = BgL_arg1336z00_1266; 
BgL_jz00_2959 = BgL_arg1337z00_1267; 
BgL_jz00_1262 = BgL_jz00_2959; 
BgL_iz00_1261 = BgL_iz00_2958; 
goto BgL_zc3z04anonymousza31333ze3z87_1263;} } } }  else 
{ /* Llib/mmap.scm 272 */
 obj_t BgL_arg1338z00_1269; obj_t BgL_arg1339z00_1270;
{ /* Llib/mmap.scm 272 */
 obj_t BgL_arg1341z00_1271;
{ /* Llib/mmap.scm 272 */
 long BgL_arg1342z00_1272;
BgL_arg1342z00_1272 = 
BGL_MMAP_LENGTH(BgL_mmz00_38); 
BgL_arg1341z00_1271 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(
make_belong(BgL_arg1342z00_1272), 
BINT(1L)); } 
BgL_arg1338z00_1269 = 
string_append_3(BGl_string1871z00zz__mmapz00, BgL_arg1341z00_1271, BGl_string1872z00zz__mmapz00); } 
BgL_arg1339z00_1270 = 
BGl_2zb2zb2zz__r4_numbers_6_5z00(
make_belong(BgL_oz00_39), 
BINT(BgL_lenz00_1250)); 
return 
BGl_errorz00zz__errorz00(BGl_symbol1888z00zz__mmapz00, BgL_arg1338z00_1269, BgL_arg1339z00_1270);} }  else 
{ /* Llib/mmap.scm 265 */
 obj_t BgL_arg1348z00_1278;
{ /* Llib/mmap.scm 265 */
 obj_t BgL_arg1349z00_1279;
{ /* Llib/mmap.scm 265 */
 long BgL_arg1352z00_1280;
BgL_arg1352z00_1280 = 
BGL_MMAP_LENGTH(BgL_mmz00_38); 
{ /* Ieee/number.scm 174 */

BgL_arg1349z00_1279 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(
make_belong(BgL_arg1352z00_1280), 
BINT(10L)); } } 
BgL_arg1348z00_1278 = 
string_append_3(BGl_string1871z00zz__mmapz00, BgL_arg1349z00_1279, BGl_string1890z00zz__mmapz00); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol1891z00zz__mmapz00, BgL_arg1348z00_1278, 
make_belong(BgL_oz00_39));} } } } 

}



/* &mmap-substring-set! */
obj_t BGl_z62mmapzd2substringzd2setz12z70zz__mmapz00(obj_t BgL_envz00_2149, obj_t BgL_mmz00_2150, obj_t BgL_oz00_2151, obj_t BgL_sz00_2152)
{
{ /* Llib/mmap.scm 257 */
{ /* Llib/mmap.scm 258 */
 obj_t BgL_auxz00_2992; long BgL_auxz00_2983; obj_t BgL_auxz00_2976;
if(
STRINGP(BgL_sz00_2152))
{ /* Llib/mmap.scm 258 */
BgL_auxz00_2992 = BgL_sz00_2152
; }  else 
{ 
 obj_t BgL_auxz00_2995;
BgL_auxz00_2995 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(11493L), BGl_string1892z00zz__mmapz00, BGl_string1851z00zz__mmapz00, BgL_sz00_2152); 
FAILURE(BgL_auxz00_2995,BFALSE,BFALSE);} 
{ /* Llib/mmap.scm 258 */
 obj_t BgL_tmpz00_2984;
if(
ELONGP(BgL_oz00_2151))
{ /* Llib/mmap.scm 258 */
BgL_tmpz00_2984 = BgL_oz00_2151
; }  else 
{ 
 obj_t BgL_auxz00_2987;
BgL_auxz00_2987 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(11493L), BGl_string1892z00zz__mmapz00, BGl_string1865z00zz__mmapz00, BgL_oz00_2151); 
FAILURE(BgL_auxz00_2987,BFALSE,BFALSE);} 
BgL_auxz00_2983 = 
BELONG_TO_LONG(BgL_tmpz00_2984); } 
if(
BGL_MMAPP(BgL_mmz00_2150))
{ /* Llib/mmap.scm 258 */
BgL_auxz00_2976 = BgL_mmz00_2150
; }  else 
{ 
 obj_t BgL_auxz00_2979;
BgL_auxz00_2979 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(11493L), BGl_string1892z00zz__mmapz00, BGl_string1858z00zz__mmapz00, BgL_mmz00_2150); 
FAILURE(BgL_auxz00_2979,BFALSE,BFALSE);} 
return 
BGl_mmapzd2substringzd2setz12z12zz__mmapz00(BgL_auxz00_2976, BgL_auxz00_2983, BgL_auxz00_2992);} } 

}



/* mmap-get-char */
BGL_EXPORTED_DEF unsigned char BGl_mmapzd2getzd2charz00zz__mmapz00(obj_t BgL_mmz00_41)
{
{ /* Llib/mmap.scm 289 */
{ /* Llib/mmap.scm 290 */
 long BgL_arg1355z00_2306;
BgL_arg1355z00_2306 = 
BGL_MMAP_RP_GET(BgL_mmz00_41); 
{ /* Llib/mmap.scm 290 */
 unsigned char BgL_res1722z00_2307;
{ /* Llib/mmap.scm 208 */
 bool_t BgL_test2044z00_3001;
{ /* Llib/mmap.scm 208 */
 long BgL_arg1249z00_2308;
BgL_arg1249z00_2308 = 
BGL_MMAP_LENGTH(BgL_mmz00_41); 
BgL_test2044z00_3001 = 
BOUND_CHECK(BgL_arg1355z00_2306, BgL_arg1249z00_2308); } 
if(BgL_test2044z00_3001)
{ /* Llib/mmap.scm 209 */
 unsigned char BgL_res1721z00_2309;
{ /* Llib/mmap.scm 193 */
 unsigned char BgL_cz00_2310;
BgL_cz00_2310 = 
BGL_MMAP_REF(BgL_mmz00_41, BgL_arg1355z00_2306); 
{ /* Llib/mmap.scm 194 */
 long BgL_arg1237z00_2311;
BgL_arg1237z00_2311 = 
(BgL_arg1355z00_2306+((long)1)); 
BGL_MMAP_RP_SET(BgL_mmz00_41, BgL_arg1237z00_2311); BUNSPEC; BgL_arg1237z00_2311; } 
BgL_res1721z00_2309 = BgL_cz00_2310; } 
BgL_res1722z00_2307 = BgL_res1721z00_2309; }  else 
{ /* Llib/mmap.scm 212 */
 obj_t BgL_arg1244z00_2312;
{ /* Llib/mmap.scm 212 */
 obj_t BgL_arg1246z00_2313;
{ /* Llib/mmap.scm 212 */
 obj_t BgL_arg1247z00_2314;
{ /* Llib/mmap.scm 212 */
 long BgL_a1084z00_2315;
BgL_a1084z00_2315 = 
BGL_MMAP_LENGTH(BgL_mmz00_41); 
{ /* Llib/mmap.scm 212 */

BgL_arg1247z00_2314 = 
BGl_2zd2zd2zz__r4_numbers_6_5z00(
make_belong(BgL_a1084z00_2315), 
BINT(1L)); } } 
{ /* Llib/mmap.scm 212 */

BgL_arg1246z00_2313 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_arg1247z00_2314, 
BINT(10L)); } } 
BgL_arg1244z00_2312 = 
string_append_3(BGl_string1871z00zz__mmapz00, BgL_arg1246z00_2313, BGl_string1872z00zz__mmapz00); } 
{ /* Llib/mmap.scm 210 */
 obj_t BgL_tmpz00_3014;
{ /* Llib/mmap.scm 210 */
 obj_t BgL_aux1823z00_2316;
BgL_aux1823z00_2316 = 
BGl_errorz00zz__errorz00(BGl_symbol1873z00zz__mmapz00, BgL_arg1244z00_2312, 
make_belong(BgL_arg1355z00_2306)); 
if(
CHARP(BgL_aux1823z00_2316))
{ /* Llib/mmap.scm 210 */
BgL_tmpz00_3014 = BgL_aux1823z00_2316
; }  else 
{ 
 obj_t BgL_auxz00_3019;
BgL_auxz00_3019 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(9564L), BGl_string1893z00zz__mmapz00, BGl_string1870z00zz__mmapz00, BgL_aux1823z00_2316); 
FAILURE(BgL_auxz00_3019,BFALSE,BFALSE);} } 
BgL_res1722z00_2307 = 
CCHAR(BgL_tmpz00_3014); } } } 
return BgL_res1722z00_2307;} } } 

}



/* &mmap-get-char */
obj_t BGl_z62mmapzd2getzd2charz62zz__mmapz00(obj_t BgL_envz00_2153, obj_t BgL_mmz00_2154)
{
{ /* Llib/mmap.scm 289 */
{ /* Llib/mmap.scm 290 */
 unsigned char BgL_tmpz00_3024;
{ /* Llib/mmap.scm 290 */
 obj_t BgL_auxz00_3025;
if(
BGL_MMAPP(BgL_mmz00_2154))
{ /* Llib/mmap.scm 290 */
BgL_auxz00_3025 = BgL_mmz00_2154
; }  else 
{ 
 obj_t BgL_auxz00_3028;
BgL_auxz00_3028 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(12534L), BGl_string1894z00zz__mmapz00, BGl_string1858z00zz__mmapz00, BgL_mmz00_2154); 
FAILURE(BgL_auxz00_3028,BFALSE,BFALSE);} 
BgL_tmpz00_3024 = 
BGl_mmapzd2getzd2charz00zz__mmapz00(BgL_auxz00_3025); } 
return 
BCHAR(BgL_tmpz00_3024);} } 

}



/* mmap-put-char! */
BGL_EXPORTED_DEF obj_t BGl_mmapzd2putzd2charz12z12zz__mmapz00(obj_t BgL_mmz00_42, unsigned char BgL_cz00_43)
{
{ /* Llib/mmap.scm 295 */
{ /* Llib/mmap.scm 296 */
 long BgL_arg1356z00_2317;
BgL_arg1356z00_2317 = 
BGL_MMAP_WP_GET(BgL_mmz00_42); 
{ /* Llib/mmap.scm 220 */
 bool_t BgL_test2047z00_3035;
{ /* Llib/mmap.scm 220 */
 long BgL_arg1256z00_2318;
BgL_arg1256z00_2318 = 
BGL_MMAP_LENGTH(BgL_mmz00_42); 
BgL_test2047z00_3035 = 
BOUND_CHECK(BgL_arg1356z00_2317, BgL_arg1256z00_2318); } 
if(BgL_test2047z00_3035)
{ /* Llib/mmap.scm 220 */
BGL_MMAP_SET(BgL_mmz00_42, BgL_arg1356z00_2317, BgL_cz00_43); 
{ /* Llib/mmap.scm 202 */
 long BgL_arg1240z00_2319;
BgL_arg1240z00_2319 = 
(BgL_arg1356z00_2317+((long)1)); 
BGL_MMAP_WP_SET(BgL_mmz00_42, BgL_arg1240z00_2319); BUNSPEC; 
return 
make_belong(BgL_arg1240z00_2319);} }  else 
{ /* Llib/mmap.scm 224 */
 obj_t BgL_arg1252z00_2320;
{ /* Llib/mmap.scm 224 */
 obj_t BgL_arg1253z00_2321;
{ /* Llib/mmap.scm 224 */
 obj_t BgL_arg1254z00_2322;
{ /* Llib/mmap.scm 224 */
 long BgL_a1086z00_2323;
BgL_a1086z00_2323 = 
BGL_MMAP_LENGTH(BgL_mmz00_42); 
{ /* Llib/mmap.scm 224 */

BgL_arg1254z00_2322 = 
BGl_2zd2zd2zz__r4_numbers_6_5z00(
make_belong(BgL_a1086z00_2323), 
BINT(1L)); } } 
{ /* Llib/mmap.scm 224 */

BgL_arg1253z00_2321 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_arg1254z00_2322, 
BINT(10L)); } } 
BgL_arg1252z00_2320 = 
string_append_3(BGl_string1871z00zz__mmapz00, BgL_arg1253z00_2321, BGl_string1872z00zz__mmapz00); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol1876z00zz__mmapz00, BgL_arg1252z00_2320, 
make_belong(BgL_arg1356z00_2317));} } } } 

}



/* &mmap-put-char! */
obj_t BGl_z62mmapzd2putzd2charz12z70zz__mmapz00(obj_t BgL_envz00_2155, obj_t BgL_mmz00_2156, obj_t BgL_cz00_2157)
{
{ /* Llib/mmap.scm 295 */
{ /* Llib/mmap.scm 296 */
 unsigned char BgL_auxz00_3058; obj_t BgL_auxz00_3051;
{ /* Llib/mmap.scm 296 */
 obj_t BgL_tmpz00_3059;
if(
CHARP(BgL_cz00_2157))
{ /* Llib/mmap.scm 296 */
BgL_tmpz00_3059 = BgL_cz00_2157
; }  else 
{ 
 obj_t BgL_auxz00_3062;
BgL_auxz00_3062 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(12833L), BGl_string1895z00zz__mmapz00, BGl_string1870z00zz__mmapz00, BgL_cz00_2157); 
FAILURE(BgL_auxz00_3062,BFALSE,BFALSE);} 
BgL_auxz00_3058 = 
CCHAR(BgL_tmpz00_3059); } 
if(
BGL_MMAPP(BgL_mmz00_2156))
{ /* Llib/mmap.scm 296 */
BgL_auxz00_3051 = BgL_mmz00_2156
; }  else 
{ 
 obj_t BgL_auxz00_3054;
BgL_auxz00_3054 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(12833L), BGl_string1895z00zz__mmapz00, BGl_string1858z00zz__mmapz00, BgL_mmz00_2156); 
FAILURE(BgL_auxz00_3054,BFALSE,BFALSE);} 
return 
BGl_mmapzd2putzd2charz12z12zz__mmapz00(BgL_auxz00_3051, BgL_auxz00_3058);} } 

}



/* mmap-get-string */
BGL_EXPORTED_DEF obj_t BGl_mmapzd2getzd2stringz00zz__mmapz00(obj_t BgL_mmz00_44, long BgL_lenz00_45)
{
{ /* Llib/mmap.scm 301 */
{ /* Llib/mmap.scm 302 */
 long BgL_arg1357z00_2324; long BgL_arg1358z00_2325;
BgL_arg1357z00_2324 = 
BGL_MMAP_RP_GET(BgL_mmz00_44); 
{ /* Llib/mmap.scm 302 */
 long BgL_arg1359z00_2326;
BgL_arg1359z00_2326 = 
BGL_MMAP_RP_GET(BgL_mmz00_44); 
BgL_arg1358z00_2325 = 
(BgL_arg1359z00_2326+BgL_lenz00_45); } 
return 
BGl_mmapzd2substringzd2zz__mmapz00(BgL_mmz00_44, BgL_arg1357z00_2324, BgL_arg1358z00_2325);} } 

}



/* &mmap-get-string */
obj_t BGl_z62mmapzd2getzd2stringz62zz__mmapz00(obj_t BgL_envz00_2158, obj_t BgL_mmz00_2159, obj_t BgL_lenz00_2160)
{
{ /* Llib/mmap.scm 301 */
{ /* Llib/mmap.scm 302 */
 long BgL_auxz00_3079; obj_t BgL_auxz00_3072;
{ /* Llib/mmap.scm 302 */
 obj_t BgL_tmpz00_3080;
if(
ELONGP(BgL_lenz00_2160))
{ /* Llib/mmap.scm 302 */
BgL_tmpz00_3080 = BgL_lenz00_2160
; }  else 
{ 
 obj_t BgL_auxz00_3083;
BgL_auxz00_3083 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(13142L), BGl_string1896z00zz__mmapz00, BGl_string1865z00zz__mmapz00, BgL_lenz00_2160); 
FAILURE(BgL_auxz00_3083,BFALSE,BFALSE);} 
BgL_auxz00_3079 = 
BELONG_TO_LONG(BgL_tmpz00_3080); } 
if(
BGL_MMAPP(BgL_mmz00_2159))
{ /* Llib/mmap.scm 302 */
BgL_auxz00_3072 = BgL_mmz00_2159
; }  else 
{ 
 obj_t BgL_auxz00_3075;
BgL_auxz00_3075 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(13142L), BGl_string1896z00zz__mmapz00, BGl_string1858z00zz__mmapz00, BgL_mmz00_2159); 
FAILURE(BgL_auxz00_3075,BFALSE,BFALSE);} 
return 
BGl_mmapzd2getzd2stringz00zz__mmapz00(BgL_auxz00_3072, BgL_auxz00_3079);} } 

}



/* mmap-put-string! */
BGL_EXPORTED_DEF obj_t BGl_mmapzd2putzd2stringz12z12zz__mmapz00(obj_t BgL_mmz00_46, obj_t BgL_sz00_47)
{
{ /* Llib/mmap.scm 307 */
{ /* Llib/mmap.scm 308 */
 long BgL_arg1360z00_2327;
BgL_arg1360z00_2327 = 
BGL_MMAP_WP_GET(BgL_mmz00_46); 
return 
BGl_mmapzd2substringzd2setz12z12zz__mmapz00(BgL_mmz00_46, BgL_arg1360z00_2327, BgL_sz00_47);} } 

}



/* &mmap-put-string! */
obj_t BGl_z62mmapzd2putzd2stringz12z70zz__mmapz00(obj_t BgL_envz00_2161, obj_t BgL_mmz00_2162, obj_t BgL_sz00_2163)
{
{ /* Llib/mmap.scm 307 */
{ /* Llib/mmap.scm 308 */
 obj_t BgL_auxz00_3098; obj_t BgL_auxz00_3091;
if(
STRINGP(BgL_sz00_2163))
{ /* Llib/mmap.scm 308 */
BgL_auxz00_3098 = BgL_sz00_2163
; }  else 
{ 
 obj_t BgL_auxz00_3101;
BgL_auxz00_3101 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(13480L), BGl_string1897z00zz__mmapz00, BGl_string1851z00zz__mmapz00, BgL_sz00_2163); 
FAILURE(BgL_auxz00_3101,BFALSE,BFALSE);} 
if(
BGL_MMAPP(BgL_mmz00_2162))
{ /* Llib/mmap.scm 308 */
BgL_auxz00_3091 = BgL_mmz00_2162
; }  else 
{ 
 obj_t BgL_auxz00_3094;
BgL_auxz00_3094 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1839z00zz__mmapz00, 
BINT(13480L), BGl_string1897z00zz__mmapz00, BGl_string1858z00zz__mmapz00, BgL_mmz00_2162); 
FAILURE(BgL_auxz00_3094,BFALSE,BFALSE);} 
return 
BGl_mmapzd2putzd2stringz12z12zz__mmapz00(BgL_auxz00_3091, BgL_auxz00_3098);} } 

}



/* object-init */
obj_t BGl_objectzd2initzd2zz__mmapz00(void)
{
{ /* Llib/mmap.scm 19 */
return BUNSPEC;} 

}



/* generic-init */
obj_t BGl_genericzd2initzd2zz__mmapz00(void)
{
{ /* Llib/mmap.scm 19 */
return BUNSPEC;} 

}



/* method-init */
obj_t BGl_methodzd2initzd2zz__mmapz00(void)
{
{ /* Llib/mmap.scm 19 */
return BUNSPEC;} 

}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__mmapz00(void)
{
{ /* Llib/mmap.scm 19 */
return 
BGl_modulezd2initializa7ationz75zz__errorz00(88804785L, 
BSTRING_TO_STRING(BGl_string1898z00zz__mmapz00));} 

}

#ifdef __cplusplus
}
#endif
