/*===========================================================================*/
/*   (Llib/mmap.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/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);
static obj_t BGl_search1111ze70ze7zz__mmapz00(long, obj_t, obj_t, long);
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_symbol1928z00zz__mmapz00 = BUNSPEC;
extern obj_t bstring_to_keyword(obj_t);
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_keyword1895z00zz__mmapz00 = BUNSPEC;
static obj_t BGl_keyword1897z00zz__mmapz00 = BUNSPEC;
static obj_t BGl_symbol1931z00zz__mmapz00 = BUNSPEC;
static obj_t BGl_symbol1934z00zz__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_symbol1943z00zz__mmapz00 = BUNSPEC;
static obj_t BGl_symbol1946z00zz__mmapz00 = BUNSPEC;
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_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_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_z62mmapzd2writezd2positionz62zz__mmapz00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__mmapz00(void);
static obj_t BGl_gczd2rootszd2initz00zz__mmapz00(void);
static obj_t BGl_symbol1899z00zz__mmapz00 = BUNSPEC;
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);
static obj_t BGl_list1894z00zz__mmapz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_mmapzd2setzd2urz12z12zz__mmapz00(obj_t, long, unsigned char);
extern obj_t bstring_to_symbol(obj_t);
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);
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);
static obj_t BGl_symbol1908z00zz__mmapz00 = BUNSPEC;
static obj_t BGl_search1102ze70ze7zz__mmapz00(long, obj_t, obj_t, long);
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;


BGL_DEFINE_STRING(BGl_string1950z00zz__mmapz00, BgL_bgl_string1950za700za7za7_1954za7, "&mmap-put-char!", 15 );
BGL_DEFINE_STRING(BGl_string1951z00zz__mmapz00, BgL_bgl_string1951za700za7za7_1955za7, "&mmap-get-string", 16 );
BGL_DEFINE_STRING(BGl_string1952z00zz__mmapz00, BgL_bgl_string1952za700za7za7_1956za7, "&mmap-put-string!", 17 );
BGL_DEFINE_STRING(BGl_string1953z00zz__mmapz00, BgL_bgl_string1953za700za7za7_1957za7, "__mmap", 6 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2writezd2positionzd2envzd2zz__mmapz00, BgL_bgl_za762mmapza7d2writeza71958za7, BGl_z62mmapzd2writezd2positionz62zz__mmapz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2lengthzd2envz00zz__mmapz00, BgL_bgl_za762mmapza7d2length1959z00, BGl_z62mmapzd2lengthzb0zz__mmapz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1889z00zz__mmapz00, BgL_bgl_string1889za700za7za7_1960za7, "/tmp/bigloo/runtime/Llib/mmap.scm", 33 );
BGL_DEFINE_STRING(BGl_string1890z00zz__mmapz00, BgL_bgl_string1890za700za7za7_1961za7, "_open-mmap", 10 );
BGL_DEFINE_STRING(BGl_string1891z00zz__mmapz00, BgL_bgl_string1891za700za7za7_1962za7, "vector", 6 );
BGL_DEFINE_STRING(BGl_string1892z00zz__mmapz00, BgL_bgl_string1892za700za7za7_1963za7, "check1103", 9 );
BGL_DEFINE_STRING(BGl_string1893z00zz__mmapz00, BgL_bgl_string1893za700za7za7_1964za7, "vector-ref", 10 );
BGL_DEFINE_STRING(BGl_string1896z00zz__mmapz00, BgL_bgl_string1896za700za7za7_1965za7, "read", 4 );
BGL_DEFINE_STRING(BGl_string1898z00zz__mmapz00, BgL_bgl_string1898za700za7za7_1966za7, "write", 5 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2putzd2charz12zd2envzc0zz__mmapz00, BgL_bgl_za762mmapza7d2putza7d21967za7, BGl_z62mmapzd2putzd2charz12z70zz__mmapz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2writezd2positionzd2setz12zd2envz12zz__mmapz00, BgL_bgl_za762mmapza7d2writeza71968za7, BGl_z62mmapzd2writezd2positionzd2setz12za2zz__mmapz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2getzd2stringzd2envzd2zz__mmapz00, BgL_bgl_za762mmapza7d2getza7d21969za7, BGl_z62mmapzd2getzd2stringz62zz__mmapz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzf3zd2envz21zz__mmapz00, BgL_bgl_za762mmapza7f3za791za7za7_1970za7, BGl_z62mmapzf3z91zz__mmapz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_closezd2mmapzd2envz00zz__mmapz00, BgL_bgl_za762closeza7d2mmapza71971za7, BGl_z62closezd2mmapzb0zz__mmapz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2substringzd2setz12zd2envzc0zz__mmapz00, BgL_bgl_za762mmapza7d2substr1972z00, BGl_z62mmapzd2substringzd2setz12z70zz__mmapz00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2readzd2positionzd2envzd2zz__mmapz00, BgL_bgl_za762mmapza7d2readza7d1973za7, BGl_z62mmapzd2readzd2positionz62zz__mmapz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2setz12zd2envz12zz__mmapz00, BgL_bgl_za762mmapza7d2setza7121974za7, BGl_z62mmapzd2setz12za2zz__mmapz00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2ze3mmapzd2envze3zz__mmapz00, BgL_bgl__stringza7d2za7e3mma1975z00, opt_generic_entry, BGl__stringzd2ze3mmapz31zz__mmapz00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2putzd2stringz12zd2envzc0zz__mmapz00, BgL_bgl_za762mmapza7d2putza7d21976za7, BGl_z62mmapzd2putzd2stringz12z70zz__mmapz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2getzd2charzd2envzd2zz__mmapz00, BgL_bgl_za762mmapza7d2getza7d21977za7, BGl_z62mmapzd2getzd2charz62zz__mmapz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2refzd2envz00zz__mmapz00, BgL_bgl_za762mmapza7d2refza7b01978za7, BGl_z62mmapzd2refzb0zz__mmapz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2namezd2envz00zz__mmapz00, BgL_bgl_za762mmapza7d2nameza7b1979za7, BGl_z62mmapzd2namezb0zz__mmapz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_openzd2mmapzd2envz00zz__mmapz00, BgL_bgl__openza7d2mmapza7d2za71980za7, opt_generic_entry, BGl__openzd2mmapzd2zz__mmapz00, BFALSE, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2ze3stringzd2envze3zz__mmapz00, BgL_bgl_za762mmapza7d2za7e3str1981za7, BGl_z62mmapzd2ze3stringz53zz__mmapz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1900z00zz__mmapz00, BgL_bgl_string1900za700za7za7_1982za7, "open-mmap", 9 );
BGL_DEFINE_STRING(BGl_string1901z00zz__mmapz00, BgL_bgl_string1901za700za7za7_1983za7, "Illegal keyword argument", 24 );
BGL_DEFINE_STRING(BGl_string1902z00zz__mmapz00, BgL_bgl_string1902za700za7za7_1984za7, "bint", 4 );
BGL_DEFINE_STRING(BGl_string1903z00zz__mmapz00, BgL_bgl_string1903za700za7za7_1985za7, "bstring", 7 );
BGL_DEFINE_STRING(BGl_string1904z00zz__mmapz00, BgL_bgl_string1904za700za7za7_1986za7, "search1102~0", 12 );
BGL_DEFINE_STRING(BGl_string1905z00zz__mmapz00, BgL_bgl_string1905za700za7za7_1987za7, "wrong number of arguments: [1..3] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string1906z00zz__mmapz00, BgL_bgl_string1906za700za7za7_1988za7, "_string->mmap", 13 );
BGL_DEFINE_STRING(BGl_string1907z00zz__mmapz00, BgL_bgl_string1907za700za7za7_1989za7, "check1112", 9 );
BGL_DEFINE_STRING(BGl_string1909z00zz__mmapz00, BgL_bgl_string1909za700za7za7_1990za7, "string->mmap", 12 );
BGL_DEFINE_STRING(BGl_string1910z00zz__mmapz00, BgL_bgl_string1910za700za7za7_1991za7, "search1111~0", 12 );
BGL_DEFINE_STRING(BGl_string1911z00zz__mmapz00, BgL_bgl_string1911za700za7za7_1992za7, "mmap-name", 9 );
BGL_DEFINE_STRING(BGl_string1912z00zz__mmapz00, BgL_bgl_string1912za700za7za7_1993za7, "&mmap-name", 10 );
BGL_DEFINE_STRING(BGl_string1913z00zz__mmapz00, BgL_bgl_string1913za700za7za7_1994za7, "mmap", 4 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2ze3bstringzd2envze3zz__mmapz00, BgL_bgl_za762mmapza7d2za7e3bst1995za7, BGl_z62mmapzd2ze3bstringz53zz__mmapz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1914z00zz__mmapz00, BgL_bgl_string1914za700za7za7_1996za7, "&mmap->string", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2readzd2positionzd2setz12zd2envz12zz__mmapz00, BgL_bgl_za762mmapza7d2readza7d1997za7, BGl_z62mmapzd2readzd2positionzd2setz12za2zz__mmapz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1915z00zz__mmapz00, BgL_bgl_string1915za700za7za7_1998za7, "&mmap->bstring", 14 );
BGL_DEFINE_STRING(BGl_string1916z00zz__mmapz00, BgL_bgl_string1916za700za7za7_1999za7, "&close-mmap", 11 );
BGL_DEFINE_STRING(BGl_string1917z00zz__mmapz00, BgL_bgl_string1917za700za7za7_2000za7, "&mmap-length", 12 );
BGL_DEFINE_STRING(BGl_string1918z00zz__mmapz00, BgL_bgl_string1918za700za7za7_2001za7, "&mmap-read-position", 19 );
BGL_DEFINE_STRING(BGl_string1919z00zz__mmapz00, BgL_bgl_string1919za700za7za7_2002za7, "&mmap-read-position-set!", 24 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2setzd2urz12zd2envzc0zz__mmapz00, BgL_bgl_za762mmapza7d2setza7d22003za7, BGl_z62mmapzd2setzd2urz12z70zz__mmapz00, 0L, BUNSPEC, 3);
BGL_DEFINE_STRING(BGl_string1920z00zz__mmapz00, BgL_bgl_string1920za700za7za7_2004za7, "belong", 6 );
BGL_DEFINE_STRING(BGl_string1921z00zz__mmapz00, BgL_bgl_string1921za700za7za7_2005za7, "&mmap-write-position", 20 );
BGL_DEFINE_STRING(BGl_string1922z00zz__mmapz00, BgL_bgl_string1922za700za7za7_2006za7, "&mmap-write-position-set!", 25 );
BGL_DEFINE_STRING(BGl_string1923z00zz__mmapz00, BgL_bgl_string1923za700za7za7_2007za7, "&mmap-ref-ur", 12 );
BGL_DEFINE_STRING(BGl_string1924z00zz__mmapz00, BgL_bgl_string1924za700za7za7_2008za7, "&mmap-set-ur!", 13 );
BGL_DEFINE_STRING(BGl_string1925z00zz__mmapz00, BgL_bgl_string1925za700za7za7_2009za7, "bchar", 5 );
BGL_DEFINE_STRING(BGl_string1926z00zz__mmapz00, BgL_bgl_string1926za700za7za7_2010za7, "index out of range [0..", 23 );
BGL_DEFINE_STRING(BGl_string1927z00zz__mmapz00, BgL_bgl_string1927za700za7za7_2011za7, "]", 1 );
BGL_DEFINE_STRING(BGl_string1929z00zz__mmapz00, BgL_bgl_string1929za700za7za7_2012za7, "mmap-ref", 8 );
BGL_DEFINE_STRING(BGl_string1930z00zz__mmapz00, BgL_bgl_string1930za700za7za7_2013za7, "&mmap-ref", 9 );
BGL_DEFINE_STRING(BGl_string1932z00zz__mmapz00, BgL_bgl_string1932za700za7za7_2014za7, "mmap-set!", 9 );
BGL_DEFINE_STRING(BGl_string1933z00zz__mmapz00, BgL_bgl_string1933za700za7za7_2015za7, "&mmap-set!", 10 );
BGL_DEFINE_STRING(BGl_string1935z00zz__mmapz00, BgL_bgl_string1935za700za7za7_2016za7, "mmap-substring", 14 );
BGL_DEFINE_STRING(BGl_string1936z00zz__mmapz00, BgL_bgl_string1936za700za7za7_2017za7, "length too small", 16 );
BGL_DEFINE_STRING(BGl_string1937z00zz__mmapz00, BgL_bgl_string1937za700za7za7_2018za7, "string-set!", 11 );
BGL_DEFINE_STRING(BGl_string1938z00zz__mmapz00, BgL_bgl_string1938za700za7za7_2019za7, "Illegal index", 13 );
BGL_DEFINE_STRING(BGl_string1939z00zz__mmapz00, BgL_bgl_string1939za700za7za7_2020za7, "start+length bigger than ", 25 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2refzd2urzd2envzd2zz__mmapz00, BgL_bgl_za762mmapza7d2refza7d22021za7, BGl_z62mmapzd2refzd2urz62zz__mmapz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1940z00zz__mmapz00, BgL_bgl_string1940za700za7za7_2022za7, "&mmap-substring", 15 );
BGL_DEFINE_STRING(BGl_string1941z00zz__mmapz00, BgL_bgl_string1941za700za7za7_2023za7, "mmap-substring-set!", 19 );
BGL_DEFINE_STRING(BGl_string1942z00zz__mmapz00, BgL_bgl_string1942za700za7za7_2024za7, "string-ref", 10 );
BGL_DEFINE_STRING(BGl_string1944z00zz__mmapz00, BgL_bgl_string1944za700za7za7_2025za7, "mmap-sbustring-set!", 19 );
BGL_DEFINE_STRING(BGl_string1945z00zz__mmapz00, BgL_bgl_string1945za700za7za7_2026za7, "[", 1 );
BGL_DEFINE_STRING(BGl_string1947z00zz__mmapz00, BgL_bgl_string1947za700za7za7_2027za7, "&mmap-substring-set!", 20 );
BGL_DEFINE_STRING(BGl_string1948z00zz__mmapz00, BgL_bgl_string1948za700za7za7_2028za7, "mmap-get-char", 13 );
BGL_DEFINE_STRING(BGl_string1949z00zz__mmapz00, BgL_bgl_string1949za700za7za7_2029za7, "&mmap-get-char", 14 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2substringzd2envz00zz__mmapz00, BgL_bgl_za762mmapza7d2substr2030z00, BGl_z62mmapzd2substringzb0zz__mmapz00, 0L, BUNSPEC, 3);

/* contant bindings */
static void bgl_constant_bindings() {
BGL_BIND_PROCEDURE(BGl_mmapzd2substringzd2envz00zz__mmapz00, BgL_bgl_za762mmapza7d2substr2030z00);
BGL_BIND_STRING(BGl_string1949z00zz__mmapz00, BgL_bgl_string1949za700za7za7_2029za7);
BGL_BIND_STRING(BGl_string1948z00zz__mmapz00, BgL_bgl_string1948za700za7za7_2028za7);
BGL_BIND_STRING(BGl_string1947z00zz__mmapz00, BgL_bgl_string1947za700za7za7_2027za7);
BGL_BIND_STRING(BGl_string1945z00zz__mmapz00, BgL_bgl_string1945za700za7za7_2026za7);
BGL_BIND_STRING(BGl_string1944z00zz__mmapz00, BgL_bgl_string1944za700za7za7_2025za7);
BGL_BIND_STRING(BGl_string1942z00zz__mmapz00, BgL_bgl_string1942za700za7za7_2024za7);
BGL_BIND_STRING(BGl_string1941z00zz__mmapz00, BgL_bgl_string1941za700za7za7_2023za7);
BGL_BIND_STRING(BGl_string1940z00zz__mmapz00, BgL_bgl_string1940za700za7za7_2022za7);
BGL_BIND_PROCEDURE(BGl_mmapzd2refzd2urzd2envzd2zz__mmapz00, BgL_bgl_za762mmapza7d2refza7d22021za7);
BGL_BIND_STRING(BGl_string1939z00zz__mmapz00, BgL_bgl_string1939za700za7za7_2020za7);
BGL_BIND_STRING(BGl_string1938z00zz__mmapz00, BgL_bgl_string1938za700za7za7_2019za7);
BGL_BIND_STRING(BGl_string1937z00zz__mmapz00, BgL_bgl_string1937za700za7za7_2018za7);
BGL_BIND_STRING(BGl_string1936z00zz__mmapz00, BgL_bgl_string1936za700za7za7_2017za7);
BGL_BIND_STRING(BGl_string1935z00zz__mmapz00, BgL_bgl_string1935za700za7za7_2016za7);
BGL_BIND_STRING(BGl_string1933z00zz__mmapz00, BgL_bgl_string1933za700za7za7_2015za7);
BGL_BIND_STRING(BGl_string1932z00zz__mmapz00, BgL_bgl_string1932za700za7za7_2014za7);
BGL_BIND_STRING(BGl_string1930z00zz__mmapz00, BgL_bgl_string1930za700za7za7_2013za7);
BGL_BIND_STRING(BGl_string1929z00zz__mmapz00, BgL_bgl_string1929za700za7za7_2012za7);
BGL_BIND_STRING(BGl_string1927z00zz__mmapz00, BgL_bgl_string1927za700za7za7_2011za7);
BGL_BIND_STRING(BGl_string1926z00zz__mmapz00, BgL_bgl_string1926za700za7za7_2010za7);
BGL_BIND_STRING(BGl_string1925z00zz__mmapz00, BgL_bgl_string1925za700za7za7_2009za7);
BGL_BIND_STRING(BGl_string1924z00zz__mmapz00, BgL_bgl_string1924za700za7za7_2008za7);
BGL_BIND_STRING(BGl_string1923z00zz__mmapz00, BgL_bgl_string1923za700za7za7_2007za7);
BGL_BIND_STRING(BGl_string1922z00zz__mmapz00, BgL_bgl_string1922za700za7za7_2006za7);
BGL_BIND_STRING(BGl_string1921z00zz__mmapz00, BgL_bgl_string1921za700za7za7_2005za7);
BGL_BIND_STRING(BGl_string1920z00zz__mmapz00, BgL_bgl_string1920za700za7za7_2004za7);
BGL_BIND_PROCEDURE(BGl_mmapzd2setzd2urz12zd2envzc0zz__mmapz00, BgL_bgl_za762mmapza7d2setza7d22003za7);
BGL_BIND_STRING(BGl_string1919z00zz__mmapz00, BgL_bgl_string1919za700za7za7_2002za7);
BGL_BIND_STRING(BGl_string1918z00zz__mmapz00, BgL_bgl_string1918za700za7za7_2001za7);
BGL_BIND_STRING(BGl_string1917z00zz__mmapz00, BgL_bgl_string1917za700za7za7_2000za7);
BGL_BIND_STRING(BGl_string1916z00zz__mmapz00, BgL_bgl_string1916za700za7za7_1999za7);
BGL_BIND_STRING(BGl_string1915z00zz__mmapz00, BgL_bgl_string1915za700za7za7_1998za7);
BGL_BIND_PROCEDURE(BGl_mmapzd2readzd2positionzd2setz12zd2envz12zz__mmapz00, BgL_bgl_za762mmapza7d2readza7d1997za7);
BGL_BIND_STRING(BGl_string1914z00zz__mmapz00, BgL_bgl_string1914za700za7za7_1996za7);
BGL_BIND_PROCEDURE(BGl_mmapzd2ze3bstringzd2envze3zz__mmapz00, BgL_bgl_za762mmapza7d2za7e3bst1995za7);
BGL_BIND_STRING(BGl_string1913z00zz__mmapz00, BgL_bgl_string1913za700za7za7_1994za7);
BGL_BIND_STRING(BGl_string1912z00zz__mmapz00, BgL_bgl_string1912za700za7za7_1993za7);
BGL_BIND_STRING(BGl_string1911z00zz__mmapz00, BgL_bgl_string1911za700za7za7_1992za7);
BGL_BIND_STRING(BGl_string1910z00zz__mmapz00, BgL_bgl_string1910za700za7za7_1991za7);
BGL_BIND_STRING(BGl_string1909z00zz__mmapz00, BgL_bgl_string1909za700za7za7_1990za7);
BGL_BIND_STRING(BGl_string1907z00zz__mmapz00, BgL_bgl_string1907za700za7za7_1989za7);
BGL_BIND_STRING(BGl_string1906z00zz__mmapz00, BgL_bgl_string1906za700za7za7_1988za7);
BGL_BIND_STRING(BGl_string1905z00zz__mmapz00, BgL_bgl_string1905za700za7za7_1987za7);
BGL_BIND_STRING(BGl_string1904z00zz__mmapz00, BgL_bgl_string1904za700za7za7_1986za7);
BGL_BIND_STRING(BGl_string1903z00zz__mmapz00, BgL_bgl_string1903za700za7za7_1985za7);
BGL_BIND_STRING(BGl_string1902z00zz__mmapz00, BgL_bgl_string1902za700za7za7_1984za7);
BGL_BIND_STRING(BGl_string1901z00zz__mmapz00, BgL_bgl_string1901za700za7za7_1983za7);
BGL_BIND_STRING(BGl_string1900z00zz__mmapz00, BgL_bgl_string1900za700za7za7_1982za7);
BGL_BIND_PROCEDURE(BGl_mmapzd2ze3stringzd2envze3zz__mmapz00, BgL_bgl_za762mmapza7d2za7e3str1981za7);
BGL_BIND_PROCEDURE(BGl_openzd2mmapzd2envz00zz__mmapz00, BgL_bgl__openza7d2mmapza7d2za71980za7);
BGL_BIND_PROCEDURE(BGl_mmapzd2namezd2envz00zz__mmapz00, BgL_bgl_za762mmapza7d2nameza7b1979za7);
BGL_BIND_PROCEDURE(BGl_mmapzd2refzd2envz00zz__mmapz00, BgL_bgl_za762mmapza7d2refza7b01978za7);
BGL_BIND_PROCEDURE(BGl_mmapzd2getzd2charzd2envzd2zz__mmapz00, BgL_bgl_za762mmapza7d2getza7d21977za7);
BGL_BIND_PROCEDURE(BGl_mmapzd2putzd2stringz12zd2envzc0zz__mmapz00, BgL_bgl_za762mmapza7d2putza7d21976za7);
BGL_BIND_PROCEDURE(BGl_stringzd2ze3mmapzd2envze3zz__mmapz00, BgL_bgl__stringza7d2za7e3mma1975z00);
BGL_BIND_PROCEDURE(BGl_mmapzd2setz12zd2envz12zz__mmapz00, BgL_bgl_za762mmapza7d2setza7121974za7);
BGL_BIND_PROCEDURE(BGl_mmapzd2readzd2positionzd2envzd2zz__mmapz00, BgL_bgl_za762mmapza7d2readza7d1973za7);
BGL_BIND_PROCEDURE(BGl_mmapzd2substringzd2setz12zd2envzc0zz__mmapz00, BgL_bgl_za762mmapza7d2substr1972z00);
BGL_BIND_PROCEDURE(BGl_closezd2mmapzd2envz00zz__mmapz00, BgL_bgl_za762closeza7d2mmapza71971za7);
BGL_BIND_PROCEDURE(BGl_mmapzf3zd2envz21zz__mmapz00, BgL_bgl_za762mmapza7f3za791za7za7_1970za7);
BGL_BIND_PROCEDURE(BGl_mmapzd2getzd2stringzd2envzd2zz__mmapz00, BgL_bgl_za762mmapza7d2getza7d21969za7);
BGL_BIND_PROCEDURE(BGl_mmapzd2writezd2positionzd2setz12zd2envz12zz__mmapz00, BgL_bgl_za762mmapza7d2writeza71968za7);
BGL_BIND_PROCEDURE(BGl_mmapzd2putzd2charz12zd2envzc0zz__mmapz00, BgL_bgl_za762mmapza7d2putza7d21967za7);
BGL_BIND_STRING(BGl_string1898z00zz__mmapz00, BgL_bgl_string1898za700za7za7_1966za7);
BGL_BIND_STRING(BGl_string1896z00zz__mmapz00, BgL_bgl_string1896za700za7za7_1965za7);
BGL_BIND_STRING(BGl_string1893z00zz__mmapz00, BgL_bgl_string1893za700za7za7_1964za7);
BGL_BIND_STRING(BGl_string1892z00zz__mmapz00, BgL_bgl_string1892za700za7za7_1963za7);
BGL_BIND_STRING(BGl_string1891z00zz__mmapz00, BgL_bgl_string1891za700za7za7_1962za7);
BGL_BIND_STRING(BGl_string1890z00zz__mmapz00, BgL_bgl_string1890za700za7za7_1961za7);
BGL_BIND_STRING(BGl_string1889z00zz__mmapz00, BgL_bgl_string1889za700za7za7_1960za7);
BGL_BIND_PROCEDURE(BGl_mmapzd2lengthzd2envz00zz__mmapz00, BgL_bgl_za762mmapza7d2length1959z00);
BGL_BIND_PROCEDURE(BGl_mmapzd2writezd2positionzd2envzd2zz__mmapz00, BgL_bgl_za762mmapza7d2writeza71958za7);
BGL_BIND_STRING(BGl_string1953z00zz__mmapz00, BgL_bgl_string1953za700za7za7_1957za7);
BGL_BIND_STRING(BGl_string1952z00zz__mmapz00, BgL_bgl_string1952za700za7za7_1956za7);
BGL_BIND_STRING(BGl_string1951z00zz__mmapz00, BgL_bgl_string1951za700za7za7_1955za7);
BGL_BIND_STRING(BGl_string1950z00zz__mmapz00, BgL_bgl_string1950za700za7za7_1954za7);
}

/* 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_symbol1928z00zz__mmapz00) );
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__mmapz00) );
ADD_ROOT( (void *)(&BGl_keyword1895z00zz__mmapz00) );
ADD_ROOT( (void *)(&BGl_keyword1897z00zz__mmapz00) );
ADD_ROOT( (void *)(&BGl_symbol1931z00zz__mmapz00) );
ADD_ROOT( (void *)(&BGl_symbol1934z00zz__mmapz00) );
ADD_ROOT( (void *)(&BGl_symbol1943z00zz__mmapz00) );
ADD_ROOT( (void *)(&BGl_symbol1946z00zz__mmapz00) );
ADD_ROOT( (void *)(&BGl_symbol1899z00zz__mmapz00) );
ADD_ROOT( (void *)(&BGl_list1894z00zz__mmapz00) );
ADD_ROOT( (void *)(&BGl_symbol1908z00zz__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_2429, char * BgL_fromz00_2430)
{
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__mmapz00))
{ 
BGl_requirezd2initializa7ationz75zz__mmapz00 = 
BBOOL(((bool_t)0)); 
bgl_constant_bindings(); 
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_keyword1895z00zz__mmapz00 = 
bstring_to_keyword(BGl_string1896z00zz__mmapz00); 
BGl_keyword1897z00zz__mmapz00 = 
bstring_to_keyword(BGl_string1898z00zz__mmapz00); 
BGl_list1894z00zz__mmapz00 = 
MAKE_YOUNG_PAIR(BGl_keyword1895z00zz__mmapz00, 
MAKE_YOUNG_PAIR(BGl_keyword1897z00zz__mmapz00, BNIL)); 
BGl_symbol1899z00zz__mmapz00 = 
bstring_to_symbol(BGl_string1900z00zz__mmapz00); 
BGl_symbol1908z00zz__mmapz00 = 
bstring_to_symbol(BGl_string1909z00zz__mmapz00); 
BGl_symbol1928z00zz__mmapz00 = 
bstring_to_symbol(BGl_string1929z00zz__mmapz00); 
BGl_symbol1931z00zz__mmapz00 = 
bstring_to_symbol(BGl_string1932z00zz__mmapz00); 
BGl_symbol1934z00zz__mmapz00 = 
bstring_to_symbol(BGl_string1935z00zz__mmapz00); 
BGl_symbol1943z00zz__mmapz00 = 
bstring_to_symbol(BGl_string1944z00zz__mmapz00); 
return ( 
BGl_symbol1946z00zz__mmapz00 = 
bstring_to_symbol(BGl_string1941z00zz__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_2165, obj_t BgL_objz00_2166)
{
{ /* Llib/mmap.scm 117 */
return 
BBOOL(
BGl_mmapzf3zf3zz__mmapz00(BgL_objz00_2166));} 

}



/* _open-mmap */
obj_t BGl__openzd2mmapzd2zz__mmapz00(obj_t BgL_env1100z00_8, obj_t BgL_opt1099z00_7)
{
{ /* Llib/mmap.scm 123 */
{ /* Llib/mmap.scm 123 */
 long BgL_l1101z00_1143;
{ /* Llib/mmap.scm 123 */
 obj_t BgL_vectorz00_1709;
if(
VECTORP(BgL_opt1099z00_7))
{ /* Llib/mmap.scm 123 */
BgL_vectorz00_1709 = BgL_opt1099z00_7; }  else 
{ 
 obj_t BgL_auxz00_2456;
BgL_auxz00_2456 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5352L), BGl_string1890z00zz__mmapz00, BGl_string1891z00zz__mmapz00, BgL_opt1099z00_7); 
FAILURE(BgL_auxz00_2456,BFALSE,BFALSE);} 
BgL_l1101z00_1143 = 
VECTOR_LENGTH(BgL_vectorz00_1709); } 
{ /* Llib/mmap.scm 123 */
 obj_t BgL_g1107z00_1147;
{ 
 obj_t BgL_auxz00_2461;
if(
VECTORP(BgL_opt1099z00_7))
{ /* Llib/mmap.scm 123 */
BgL_auxz00_2461 = BgL_opt1099z00_7
; }  else 
{ 
 obj_t BgL_auxz00_2464;
BgL_auxz00_2464 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5352L), BGl_string1890z00zz__mmapz00, BGl_string1891z00zz__mmapz00, BgL_opt1099z00_7); 
FAILURE(BgL_auxz00_2464,BFALSE,BFALSE);} 
BgL_g1107z00_1147 = 
VECTOR_REF(BgL_auxz00_2461,0L); } 
{ /* Llib/mmap.scm 123 */
 obj_t BgL_readz00_1148;
BgL_readz00_1148 = BTRUE; 
{ /* Llib/mmap.scm 123 */
 obj_t BgL_writez00_1149;
BgL_writez00_1149 = BTRUE; 
{ /* Llib/mmap.scm 123 */

{ 
 long BgL_iz00_1150;
BgL_iz00_1150 = 1L; 
BgL_check1103z00_1151:
if(
(BgL_iz00_1150==BgL_l1101z00_1143))
{ /* Llib/mmap.scm 123 */BNIL; }  else 
{ /* Llib/mmap.scm 123 */
 bool_t BgL_test2035z00_2471;
{ /* Llib/mmap.scm 123 */
 obj_t BgL_arg1196z00_1157;
{ /* Llib/mmap.scm 123 */
 obj_t BgL_vectorz00_1719;
if(
VECTORP(BgL_opt1099z00_7))
{ /* Llib/mmap.scm 123 */
BgL_vectorz00_1719 = BgL_opt1099z00_7; }  else 
{ 
 obj_t BgL_auxz00_2474;
BgL_auxz00_2474 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5352L), BGl_string1892z00zz__mmapz00, BGl_string1891z00zz__mmapz00, BgL_opt1099z00_7); 
FAILURE(BgL_auxz00_2474,BFALSE,BFALSE);} 
{ /* Llib/mmap.scm 123 */
 bool_t BgL_test2037z00_2478;
{ /* Llib/mmap.scm 123 */
 long BgL_tmpz00_2479;
BgL_tmpz00_2479 = 
VECTOR_LENGTH(BgL_vectorz00_1719); 
BgL_test2037z00_2478 = 
BOUND_CHECK(BgL_iz00_1150, BgL_tmpz00_2479); } 
if(BgL_test2037z00_2478)
{ /* Llib/mmap.scm 123 */
BgL_arg1196z00_1157 = 
VECTOR_REF(BgL_vectorz00_1719,BgL_iz00_1150); }  else 
{ 
 obj_t BgL_auxz00_2483;
BgL_auxz00_2483 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5352L), BGl_string1893z00zz__mmapz00, BgL_vectorz00_1719, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_1719)), 
(int)(BgL_iz00_1150)); 
FAILURE(BgL_auxz00_2483,BFALSE,BFALSE);} } } 
BgL_test2035z00_2471 = 
CBOOL(
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_arg1196z00_1157, BGl_list1894z00zz__mmapz00)); } 
if(BgL_test2035z00_2471)
{ 
 long BgL_iz00_2492;
BgL_iz00_2492 = 
(BgL_iz00_1150+2L); 
BgL_iz00_1150 = BgL_iz00_2492; 
goto BgL_check1103z00_1151;}  else 
{ /* Llib/mmap.scm 123 */
 obj_t BgL_arg1195z00_1156;
{ /* Llib/mmap.scm 123 */
 obj_t BgL_vectorz00_1722;
if(
VECTORP(BgL_opt1099z00_7))
{ /* Llib/mmap.scm 123 */
BgL_vectorz00_1722 = BgL_opt1099z00_7; }  else 
{ 
 obj_t BgL_auxz00_2496;
BgL_auxz00_2496 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5352L), BGl_string1892z00zz__mmapz00, BGl_string1891z00zz__mmapz00, BgL_opt1099z00_7); 
FAILURE(BgL_auxz00_2496,BFALSE,BFALSE);} 
{ /* Llib/mmap.scm 123 */
 bool_t BgL_test2039z00_2500;
{ /* Llib/mmap.scm 123 */
 long BgL_tmpz00_2501;
BgL_tmpz00_2501 = 
VECTOR_LENGTH(BgL_vectorz00_1722); 
BgL_test2039z00_2500 = 
BOUND_CHECK(BgL_iz00_1150, BgL_tmpz00_2501); } 
if(BgL_test2039z00_2500)
{ /* Llib/mmap.scm 123 */
BgL_arg1195z00_1156 = 
VECTOR_REF(BgL_vectorz00_1722,BgL_iz00_1150); }  else 
{ 
 obj_t BgL_auxz00_2505;
BgL_auxz00_2505 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5352L), BGl_string1893z00zz__mmapz00, BgL_vectorz00_1722, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_1722)), 
(int)(BgL_iz00_1150)); 
FAILURE(BgL_auxz00_2505,BFALSE,BFALSE);} } } 
BGl_errorz00zz__errorz00(BGl_symbol1899z00zz__mmapz00, BGl_string1901z00zz__mmapz00, BgL_arg1195z00_1156); } } } 
{ /* Llib/mmap.scm 123 */
 obj_t BgL_index1105z00_1158;
BgL_index1105z00_1158 = 
BGl_search1102ze70ze7zz__mmapz00(BgL_l1101z00_1143, BgL_opt1099z00_7, BGl_keyword1895z00zz__mmapz00, 1L); 
{ /* Llib/mmap.scm 123 */
 bool_t BgL_test2040z00_2514;
{ /* Llib/mmap.scm 123 */
 long BgL_n1z00_1724;
{ /* Llib/mmap.scm 123 */
 obj_t BgL_tmpz00_2515;
if(
INTEGERP(BgL_index1105z00_1158))
{ /* Llib/mmap.scm 123 */
BgL_tmpz00_2515 = BgL_index1105z00_1158
; }  else 
{ 
 obj_t BgL_auxz00_2518;
BgL_auxz00_2518 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5352L), BGl_string1890z00zz__mmapz00, BGl_string1902z00zz__mmapz00, BgL_index1105z00_1158); 
FAILURE(BgL_auxz00_2518,BFALSE,BFALSE);} 
BgL_n1z00_1724 = 
(long)CINT(BgL_tmpz00_2515); } 
BgL_test2040z00_2514 = 
(BgL_n1z00_1724>=0L); } 
if(BgL_test2040z00_2514)
{ 
 long BgL_auxz00_2531; obj_t BgL_auxz00_2524;
{ /* Llib/mmap.scm 123 */
 obj_t BgL_tmpz00_2532;
if(
INTEGERP(BgL_index1105z00_1158))
{ /* Llib/mmap.scm 123 */
BgL_tmpz00_2532 = BgL_index1105z00_1158
; }  else 
{ 
 obj_t BgL_auxz00_2535;
BgL_auxz00_2535 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5352L), BGl_string1890z00zz__mmapz00, BGl_string1902z00zz__mmapz00, BgL_index1105z00_1158); 
FAILURE(BgL_auxz00_2535,BFALSE,BFALSE);} 
BgL_auxz00_2531 = 
(long)CINT(BgL_tmpz00_2532); } 
if(
VECTORP(BgL_opt1099z00_7))
{ /* Llib/mmap.scm 123 */
BgL_auxz00_2524 = BgL_opt1099z00_7
; }  else 
{ 
 obj_t BgL_auxz00_2527;
BgL_auxz00_2527 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5352L), BGl_string1890z00zz__mmapz00, BGl_string1891z00zz__mmapz00, BgL_opt1099z00_7); 
FAILURE(BgL_auxz00_2527,BFALSE,BFALSE);} 
BgL_readz00_1148 = 
VECTOR_REF(BgL_auxz00_2524,BgL_auxz00_2531); }  else 
{ /* Llib/mmap.scm 123 */BFALSE; } } } 
{ /* Llib/mmap.scm 123 */
 obj_t BgL_index1106z00_1160;
BgL_index1106z00_1160 = 
BGl_search1102ze70ze7zz__mmapz00(BgL_l1101z00_1143, BgL_opt1099z00_7, BGl_keyword1897z00zz__mmapz00, 1L); 
{ /* Llib/mmap.scm 123 */
 bool_t BgL_test2044z00_2542;
{ /* Llib/mmap.scm 123 */
 long BgL_n1z00_1725;
{ /* Llib/mmap.scm 123 */
 obj_t BgL_tmpz00_2543;
if(
INTEGERP(BgL_index1106z00_1160))
{ /* Llib/mmap.scm 123 */
BgL_tmpz00_2543 = BgL_index1106z00_1160
; }  else 
{ 
 obj_t BgL_auxz00_2546;
BgL_auxz00_2546 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5352L), BGl_string1890z00zz__mmapz00, BGl_string1902z00zz__mmapz00, BgL_index1106z00_1160); 
FAILURE(BgL_auxz00_2546,BFALSE,BFALSE);} 
BgL_n1z00_1725 = 
(long)CINT(BgL_tmpz00_2543); } 
BgL_test2044z00_2542 = 
(BgL_n1z00_1725>=0L); } 
if(BgL_test2044z00_2542)
{ 
 long BgL_auxz00_2559; obj_t BgL_auxz00_2552;
{ /* Llib/mmap.scm 123 */
 obj_t BgL_tmpz00_2560;
if(
INTEGERP(BgL_index1106z00_1160))
{ /* Llib/mmap.scm 123 */
BgL_tmpz00_2560 = BgL_index1106z00_1160
; }  else 
{ 
 obj_t BgL_auxz00_2563;
BgL_auxz00_2563 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5352L), BGl_string1890z00zz__mmapz00, BGl_string1902z00zz__mmapz00, BgL_index1106z00_1160); 
FAILURE(BgL_auxz00_2563,BFALSE,BFALSE);} 
BgL_auxz00_2559 = 
(long)CINT(BgL_tmpz00_2560); } 
if(
VECTORP(BgL_opt1099z00_7))
{ /* Llib/mmap.scm 123 */
BgL_auxz00_2552 = BgL_opt1099z00_7
; }  else 
{ 
 obj_t BgL_auxz00_2555;
BgL_auxz00_2555 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5352L), BGl_string1890z00zz__mmapz00, BGl_string1891z00zz__mmapz00, BgL_opt1099z00_7); 
FAILURE(BgL_auxz00_2555,BFALSE,BFALSE);} 
BgL_writez00_1149 = 
VECTOR_REF(BgL_auxz00_2552,BgL_auxz00_2559); }  else 
{ /* Llib/mmap.scm 123 */BFALSE; } } } 
{ /* Llib/mmap.scm 123 */
 obj_t BgL_arg1201z00_1162;
{ 
 obj_t BgL_auxz00_2569;
if(
VECTORP(BgL_opt1099z00_7))
{ /* Llib/mmap.scm 123 */
BgL_auxz00_2569 = BgL_opt1099z00_7
; }  else 
{ 
 obj_t BgL_auxz00_2572;
BgL_auxz00_2572 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5352L), BGl_string1890z00zz__mmapz00, BGl_string1891z00zz__mmapz00, BgL_opt1099z00_7); 
FAILURE(BgL_auxz00_2572,BFALSE,BFALSE);} 
BgL_arg1201z00_1162 = 
VECTOR_REF(BgL_auxz00_2569,0L); } 
{ /* Llib/mmap.scm 123 */
 obj_t BgL_readz00_1163;
BgL_readz00_1163 = BgL_readz00_1148; 
{ /* Llib/mmap.scm 123 */
 obj_t BgL_writez00_1164;
BgL_writez00_1164 = BgL_writez00_1149; 
{ /* Llib/mmap.scm 123 */
 obj_t BgL_namez00_1726;
if(
STRINGP(BgL_arg1201z00_1162))
{ /* Llib/mmap.scm 123 */
BgL_namez00_1726 = BgL_arg1201z00_1162; }  else 
{ 
 obj_t BgL_auxz00_2579;
BgL_auxz00_2579 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5352L), BGl_string1890z00zz__mmapz00, BGl_string1903z00zz__mmapz00, BgL_arg1201z00_1162); 
FAILURE(BgL_auxz00_2579,BFALSE,BFALSE);} 
{ /* Llib/mmap.scm 124 */
 bool_t BgL_auxz00_2585; bool_t BgL_tmpz00_2583;
BgL_auxz00_2585 = 
CBOOL(BgL_writez00_1164); 
BgL_tmpz00_2583 = 
CBOOL(BgL_readz00_1163); 
return 
bgl_open_mmap(BgL_namez00_1726, BgL_tmpz00_2583, BgL_auxz00_2585);} } } } } } } } } } } 

}



/* search1102~0 */
obj_t BGl_search1102ze70ze7zz__mmapz00(long BgL_l1101z00_2223, obj_t BgL_opt1099z00_2222, obj_t BgL_k1z00_1144, long BgL_iz00_1145)
{
{ /* Llib/mmap.scm 123 */
BGl_search1102ze70ze7zz__mmapz00:
if(
(BgL_iz00_1145==BgL_l1101z00_2223))
{ /* Llib/mmap.scm 123 */
return 
BINT((-1L));}  else 
{ /* Llib/mmap.scm 123 */
if(
(BgL_iz00_1145==
(BgL_l1101z00_2223-1L)))
{ /* Llib/mmap.scm 123 */
 long BgL_arg1206z00_1168;
{ 
 obj_t BgL_auxz00_2594;
if(
VECTORP(BgL_opt1099z00_2222))
{ /* Llib/mmap.scm 123 */
BgL_auxz00_2594 = BgL_opt1099z00_2222
; }  else 
{ 
 obj_t BgL_auxz00_2597;
BgL_auxz00_2597 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5352L), BGl_string1904z00zz__mmapz00, BGl_string1891z00zz__mmapz00, BgL_opt1099z00_2222); 
FAILURE(BgL_auxz00_2597,BFALSE,BFALSE);} 
BgL_arg1206z00_1168 = 
VECTOR_LENGTH(BgL_auxz00_2594); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol1899z00zz__mmapz00, BGl_string1905z00zz__mmapz00, 
BINT(BgL_arg1206z00_1168));}  else 
{ /* Llib/mmap.scm 123 */
 obj_t BgL_vz00_1169;
{ 
 obj_t BgL_auxz00_2604;
if(
VECTORP(BgL_opt1099z00_2222))
{ /* Llib/mmap.scm 123 */
BgL_auxz00_2604 = BgL_opt1099z00_2222
; }  else 
{ 
 obj_t BgL_auxz00_2607;
BgL_auxz00_2607 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5352L), BGl_string1904z00zz__mmapz00, BGl_string1891z00zz__mmapz00, BgL_opt1099z00_2222); 
FAILURE(BgL_auxz00_2607,BFALSE,BFALSE);} 
BgL_vz00_1169 = 
VECTOR_REF(BgL_auxz00_2604,BgL_iz00_1145); } 
if(
(BgL_vz00_1169==BgL_k1z00_1144))
{ /* Llib/mmap.scm 123 */
return 
BINT(
(BgL_iz00_1145+1L));}  else 
{ 
 long BgL_iz00_2616;
BgL_iz00_2616 = 
(BgL_iz00_1145+2L); 
BgL_iz00_1145 = BgL_iz00_2616; 
goto BGl_search1102ze70ze7zz__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_2620; bool_t BgL_tmpz00_2618;
BgL_auxz00_2620 = 
CBOOL(BgL_writez00_6); 
BgL_tmpz00_2618 = 
CBOOL(BgL_readz00_5); 
return 
bgl_open_mmap(BgL_namez00_4, BgL_tmpz00_2618, BgL_auxz00_2620);} } 

}



/* _string->mmap */
obj_t BGl__stringzd2ze3mmapz31zz__mmapz00(obj_t BgL_env1109z00_13, obj_t BgL_opt1108z00_12)
{
{ /* Llib/mmap.scm 129 */
{ /* Llib/mmap.scm 129 */
 long BgL_l1110z00_1172;
{ /* Llib/mmap.scm 129 */
 obj_t BgL_vectorz00_1727;
if(
VECTORP(BgL_opt1108z00_12))
{ /* Llib/mmap.scm 129 */
BgL_vectorz00_1727 = BgL_opt1108z00_12; }  else 
{ 
 obj_t BgL_auxz00_2625;
BgL_auxz00_2625 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5669L), BGl_string1906z00zz__mmapz00, BGl_string1891z00zz__mmapz00, BgL_opt1108z00_12); 
FAILURE(BgL_auxz00_2625,BFALSE,BFALSE);} 
BgL_l1110z00_1172 = 
VECTOR_LENGTH(BgL_vectorz00_1727); } 
{ /* Llib/mmap.scm 129 */
 obj_t BgL_g1116z00_1176;
{ 
 obj_t BgL_auxz00_2630;
if(
VECTORP(BgL_opt1108z00_12))
{ /* Llib/mmap.scm 129 */
BgL_auxz00_2630 = BgL_opt1108z00_12
; }  else 
{ 
 obj_t BgL_auxz00_2633;
BgL_auxz00_2633 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5669L), BGl_string1906z00zz__mmapz00, BGl_string1891z00zz__mmapz00, BgL_opt1108z00_12); 
FAILURE(BgL_auxz00_2633,BFALSE,BFALSE);} 
BgL_g1116z00_1176 = 
VECTOR_REF(BgL_auxz00_2630,0L); } 
{ /* Llib/mmap.scm 129 */
 obj_t BgL_readz00_1177;
BgL_readz00_1177 = BTRUE; 
{ /* Llib/mmap.scm 129 */
 obj_t BgL_writez00_1178;
BgL_writez00_1178 = BTRUE; 
{ /* Llib/mmap.scm 129 */

{ 
 long BgL_iz00_1179;
BgL_iz00_1179 = 1L; 
BgL_check1112z00_1180:
if(
(BgL_iz00_1179==BgL_l1110z00_1172))
{ /* Llib/mmap.scm 129 */BNIL; }  else 
{ /* Llib/mmap.scm 129 */
 bool_t BgL_test2058z00_2640;
{ /* Llib/mmap.scm 129 */
 obj_t BgL_arg1216z00_1186;
{ /* Llib/mmap.scm 129 */
 obj_t BgL_vectorz00_1737;
if(
VECTORP(BgL_opt1108z00_12))
{ /* Llib/mmap.scm 129 */
BgL_vectorz00_1737 = BgL_opt1108z00_12; }  else 
{ 
 obj_t BgL_auxz00_2643;
BgL_auxz00_2643 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5669L), BGl_string1907z00zz__mmapz00, BGl_string1891z00zz__mmapz00, BgL_opt1108z00_12); 
FAILURE(BgL_auxz00_2643,BFALSE,BFALSE);} 
{ /* Llib/mmap.scm 129 */
 bool_t BgL_test2060z00_2647;
{ /* Llib/mmap.scm 129 */
 long BgL_tmpz00_2648;
BgL_tmpz00_2648 = 
VECTOR_LENGTH(BgL_vectorz00_1737); 
BgL_test2060z00_2647 = 
BOUND_CHECK(BgL_iz00_1179, BgL_tmpz00_2648); } 
if(BgL_test2060z00_2647)
{ /* Llib/mmap.scm 129 */
BgL_arg1216z00_1186 = 
VECTOR_REF(BgL_vectorz00_1737,BgL_iz00_1179); }  else 
{ 
 obj_t BgL_auxz00_2652;
BgL_auxz00_2652 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5669L), BGl_string1893z00zz__mmapz00, BgL_vectorz00_1737, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_1737)), 
(int)(BgL_iz00_1179)); 
FAILURE(BgL_auxz00_2652,BFALSE,BFALSE);} } } 
BgL_test2058z00_2640 = 
CBOOL(
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_arg1216z00_1186, BGl_list1894z00zz__mmapz00)); } 
if(BgL_test2058z00_2640)
{ 
 long BgL_iz00_2661;
BgL_iz00_2661 = 
(BgL_iz00_1179+2L); 
BgL_iz00_1179 = BgL_iz00_2661; 
goto BgL_check1112z00_1180;}  else 
{ /* Llib/mmap.scm 129 */
 obj_t BgL_arg1215z00_1185;
{ /* Llib/mmap.scm 129 */
 obj_t BgL_vectorz00_1740;
if(
VECTORP(BgL_opt1108z00_12))
{ /* Llib/mmap.scm 129 */
BgL_vectorz00_1740 = BgL_opt1108z00_12; }  else 
{ 
 obj_t BgL_auxz00_2665;
BgL_auxz00_2665 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5669L), BGl_string1907z00zz__mmapz00, BGl_string1891z00zz__mmapz00, BgL_opt1108z00_12); 
FAILURE(BgL_auxz00_2665,BFALSE,BFALSE);} 
{ /* Llib/mmap.scm 129 */
 bool_t BgL_test2062z00_2669;
{ /* Llib/mmap.scm 129 */
 long BgL_tmpz00_2670;
BgL_tmpz00_2670 = 
VECTOR_LENGTH(BgL_vectorz00_1740); 
BgL_test2062z00_2669 = 
BOUND_CHECK(BgL_iz00_1179, BgL_tmpz00_2670); } 
if(BgL_test2062z00_2669)
{ /* Llib/mmap.scm 129 */
BgL_arg1215z00_1185 = 
VECTOR_REF(BgL_vectorz00_1740,BgL_iz00_1179); }  else 
{ 
 obj_t BgL_auxz00_2674;
BgL_auxz00_2674 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5669L), BGl_string1893z00zz__mmapz00, BgL_vectorz00_1740, 
(int)(
VECTOR_LENGTH(BgL_vectorz00_1740)), 
(int)(BgL_iz00_1179)); 
FAILURE(BgL_auxz00_2674,BFALSE,BFALSE);} } } 
BGl_errorz00zz__errorz00(BGl_symbol1908z00zz__mmapz00, BGl_string1901z00zz__mmapz00, BgL_arg1215z00_1185); } } } 
{ /* Llib/mmap.scm 129 */
 obj_t BgL_index1114z00_1187;
BgL_index1114z00_1187 = 
BGl_search1111ze70ze7zz__mmapz00(BgL_l1110z00_1172, BgL_opt1108z00_12, BGl_keyword1895z00zz__mmapz00, 1L); 
{ /* Llib/mmap.scm 129 */
 bool_t BgL_test2063z00_2683;
{ /* Llib/mmap.scm 129 */
 long BgL_n1z00_1742;
{ /* Llib/mmap.scm 129 */
 obj_t BgL_tmpz00_2684;
if(
INTEGERP(BgL_index1114z00_1187))
{ /* Llib/mmap.scm 129 */
BgL_tmpz00_2684 = BgL_index1114z00_1187
; }  else 
{ 
 obj_t BgL_auxz00_2687;
BgL_auxz00_2687 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5669L), BGl_string1906z00zz__mmapz00, BGl_string1902z00zz__mmapz00, BgL_index1114z00_1187); 
FAILURE(BgL_auxz00_2687,BFALSE,BFALSE);} 
BgL_n1z00_1742 = 
(long)CINT(BgL_tmpz00_2684); } 
BgL_test2063z00_2683 = 
(BgL_n1z00_1742>=0L); } 
if(BgL_test2063z00_2683)
{ 
 long BgL_auxz00_2700; obj_t BgL_auxz00_2693;
{ /* Llib/mmap.scm 129 */
 obj_t BgL_tmpz00_2701;
if(
INTEGERP(BgL_index1114z00_1187))
{ /* Llib/mmap.scm 129 */
BgL_tmpz00_2701 = BgL_index1114z00_1187
; }  else 
{ 
 obj_t BgL_auxz00_2704;
BgL_auxz00_2704 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5669L), BGl_string1906z00zz__mmapz00, BGl_string1902z00zz__mmapz00, BgL_index1114z00_1187); 
FAILURE(BgL_auxz00_2704,BFALSE,BFALSE);} 
BgL_auxz00_2700 = 
(long)CINT(BgL_tmpz00_2701); } 
if(
VECTORP(BgL_opt1108z00_12))
{ /* Llib/mmap.scm 129 */
BgL_auxz00_2693 = BgL_opt1108z00_12
; }  else 
{ 
 obj_t BgL_auxz00_2696;
BgL_auxz00_2696 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5669L), BGl_string1906z00zz__mmapz00, BGl_string1891z00zz__mmapz00, BgL_opt1108z00_12); 
FAILURE(BgL_auxz00_2696,BFALSE,BFALSE);} 
BgL_readz00_1177 = 
VECTOR_REF(BgL_auxz00_2693,BgL_auxz00_2700); }  else 
{ /* Llib/mmap.scm 129 */BFALSE; } } } 
{ /* Llib/mmap.scm 129 */
 obj_t BgL_index1115z00_1189;
BgL_index1115z00_1189 = 
BGl_search1111ze70ze7zz__mmapz00(BgL_l1110z00_1172, BgL_opt1108z00_12, BGl_keyword1897z00zz__mmapz00, 1L); 
{ /* Llib/mmap.scm 129 */
 bool_t BgL_test2067z00_2711;
{ /* Llib/mmap.scm 129 */
 long BgL_n1z00_1743;
{ /* Llib/mmap.scm 129 */
 obj_t BgL_tmpz00_2712;
if(
INTEGERP(BgL_index1115z00_1189))
{ /* Llib/mmap.scm 129 */
BgL_tmpz00_2712 = BgL_index1115z00_1189
; }  else 
{ 
 obj_t BgL_auxz00_2715;
BgL_auxz00_2715 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5669L), BGl_string1906z00zz__mmapz00, BGl_string1902z00zz__mmapz00, BgL_index1115z00_1189); 
FAILURE(BgL_auxz00_2715,BFALSE,BFALSE);} 
BgL_n1z00_1743 = 
(long)CINT(BgL_tmpz00_2712); } 
BgL_test2067z00_2711 = 
(BgL_n1z00_1743>=0L); } 
if(BgL_test2067z00_2711)
{ 
 long BgL_auxz00_2728; obj_t BgL_auxz00_2721;
{ /* Llib/mmap.scm 129 */
 obj_t BgL_tmpz00_2729;
if(
INTEGERP(BgL_index1115z00_1189))
{ /* Llib/mmap.scm 129 */
BgL_tmpz00_2729 = BgL_index1115z00_1189
; }  else 
{ 
 obj_t BgL_auxz00_2732;
BgL_auxz00_2732 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5669L), BGl_string1906z00zz__mmapz00, BGl_string1902z00zz__mmapz00, BgL_index1115z00_1189); 
FAILURE(BgL_auxz00_2732,BFALSE,BFALSE);} 
BgL_auxz00_2728 = 
(long)CINT(BgL_tmpz00_2729); } 
if(
VECTORP(BgL_opt1108z00_12))
{ /* Llib/mmap.scm 129 */
BgL_auxz00_2721 = BgL_opt1108z00_12
; }  else 
{ 
 obj_t BgL_auxz00_2724;
BgL_auxz00_2724 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5669L), BGl_string1906z00zz__mmapz00, BGl_string1891z00zz__mmapz00, BgL_opt1108z00_12); 
FAILURE(BgL_auxz00_2724,BFALSE,BFALSE);} 
BgL_writez00_1178 = 
VECTOR_REF(BgL_auxz00_2721,BgL_auxz00_2728); }  else 
{ /* Llib/mmap.scm 129 */BFALSE; } } } 
{ /* Llib/mmap.scm 129 */
 obj_t BgL_arg1219z00_1191;
{ 
 obj_t BgL_auxz00_2738;
if(
VECTORP(BgL_opt1108z00_12))
{ /* Llib/mmap.scm 129 */
BgL_auxz00_2738 = BgL_opt1108z00_12
; }  else 
{ 
 obj_t BgL_auxz00_2741;
BgL_auxz00_2741 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5669L), BGl_string1906z00zz__mmapz00, BGl_string1891z00zz__mmapz00, BgL_opt1108z00_12); 
FAILURE(BgL_auxz00_2741,BFALSE,BFALSE);} 
BgL_arg1219z00_1191 = 
VECTOR_REF(BgL_auxz00_2738,0L); } 
{ /* Llib/mmap.scm 129 */
 obj_t BgL_readz00_1192;
BgL_readz00_1192 = BgL_readz00_1177; 
{ /* Llib/mmap.scm 129 */
 obj_t BgL_writez00_1193;
BgL_writez00_1193 = BgL_writez00_1178; 
{ /* Llib/mmap.scm 129 */
 obj_t BgL_sz00_1744;
if(
STRINGP(BgL_arg1219z00_1191))
{ /* Llib/mmap.scm 129 */
BgL_sz00_1744 = BgL_arg1219z00_1191; }  else 
{ 
 obj_t BgL_auxz00_2748;
BgL_auxz00_2748 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5669L), BGl_string1906z00zz__mmapz00, BGl_string1903z00zz__mmapz00, BgL_arg1219z00_1191); 
FAILURE(BgL_auxz00_2748,BFALSE,BFALSE);} 
{ /* Llib/mmap.scm 130 */
 bool_t BgL_auxz00_2754; bool_t BgL_tmpz00_2752;
BgL_auxz00_2754 = 
CBOOL(BgL_writez00_1193); 
BgL_tmpz00_2752 = 
CBOOL(BgL_readz00_1192); 
return 
bgl_string_to_mmap(BgL_sz00_1744, BgL_tmpz00_2752, BgL_auxz00_2754);} } } } } } } } } } } 

}



/* search1111~0 */
obj_t BGl_search1111ze70ze7zz__mmapz00(long BgL_l1110z00_2221, obj_t BgL_opt1108z00_2220, obj_t BgL_k1z00_1173, long BgL_iz00_1174)
{
{ /* Llib/mmap.scm 129 */
BGl_search1111ze70ze7zz__mmapz00:
if(
(BgL_iz00_1174==BgL_l1110z00_2221))
{ /* Llib/mmap.scm 129 */
return 
BINT((-1L));}  else 
{ /* Llib/mmap.scm 129 */
if(
(BgL_iz00_1174==
(BgL_l1110z00_2221-1L)))
{ /* Llib/mmap.scm 129 */
 long BgL_arg1226z00_1197;
{ 
 obj_t BgL_auxz00_2763;
if(
VECTORP(BgL_opt1108z00_2220))
{ /* Llib/mmap.scm 129 */
BgL_auxz00_2763 = BgL_opt1108z00_2220
; }  else 
{ 
 obj_t BgL_auxz00_2766;
BgL_auxz00_2766 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5669L), BGl_string1910z00zz__mmapz00, BGl_string1891z00zz__mmapz00, BgL_opt1108z00_2220); 
FAILURE(BgL_auxz00_2766,BFALSE,BFALSE);} 
BgL_arg1226z00_1197 = 
VECTOR_LENGTH(BgL_auxz00_2763); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol1908z00zz__mmapz00, BGl_string1905z00zz__mmapz00, 
BINT(BgL_arg1226z00_1197));}  else 
{ /* Llib/mmap.scm 129 */
 obj_t BgL_vz00_1198;
{ 
 obj_t BgL_auxz00_2773;
if(
VECTORP(BgL_opt1108z00_2220))
{ /* Llib/mmap.scm 129 */
BgL_auxz00_2773 = BgL_opt1108z00_2220
; }  else 
{ 
 obj_t BgL_auxz00_2776;
BgL_auxz00_2776 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(5669L), BGl_string1910z00zz__mmapz00, BGl_string1891z00zz__mmapz00, BgL_opt1108z00_2220); 
FAILURE(BgL_auxz00_2776,BFALSE,BFALSE);} 
BgL_vz00_1198 = 
VECTOR_REF(BgL_auxz00_2773,BgL_iz00_1174); } 
if(
(BgL_vz00_1198==BgL_k1z00_1173))
{ /* Llib/mmap.scm 129 */
return 
BINT(
(BgL_iz00_1174+1L));}  else 
{ 
 long BgL_iz00_2785;
BgL_iz00_2785 = 
(BgL_iz00_1174+2L); 
BgL_iz00_1174 = BgL_iz00_2785; 
goto BGl_search1111ze70ze7zz__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_2789; bool_t BgL_tmpz00_2787;
BgL_auxz00_2789 = 
CBOOL(BgL_writez00_11); 
BgL_tmpz00_2787 = 
CBOOL(BgL_readz00_10); 
return 
bgl_string_to_mmap(BgL_sz00_9, BgL_tmpz00_2787, BgL_auxz00_2789);} } 

}



/* 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_aux1809z00_2385;
BgL_aux1809z00_2385 = 
BGL_MMAP_NAME(BgL_mmapz00_14); 
if(
STRINGP(BgL_aux1809z00_2385))
{ /* Llib/mmap.scm 136 */
return BgL_aux1809z00_2385;}  else 
{ 
 obj_t BgL_auxz00_2795;
BgL_auxz00_2795 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(6027L), BGl_string1911z00zz__mmapz00, BGl_string1903z00zz__mmapz00, BgL_aux1809z00_2385); 
FAILURE(BgL_auxz00_2795,BFALSE,BFALSE);} } } 

}



/* &mmap-name */
obj_t BGl_z62mmapzd2namezb0zz__mmapz00(obj_t BgL_envz00_2167, obj_t BgL_mmapz00_2168)
{
{ /* Llib/mmap.scm 135 */
{ /* Llib/mmap.scm 136 */
 obj_t BgL_auxz00_2799;
if(
BGL_MMAPP(BgL_mmapz00_2168))
{ /* Llib/mmap.scm 136 */
BgL_auxz00_2799 = BgL_mmapz00_2168
; }  else 
{ 
 obj_t BgL_auxz00_2802;
BgL_auxz00_2802 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(6027L), BGl_string1912z00zz__mmapz00, BGl_string1913z00zz__mmapz00, BgL_mmapz00_2168); 
FAILURE(BgL_auxz00_2802,BFALSE,BFALSE);} 
return 
BGl_mmapzd2namezd2zz__mmapz00(BgL_auxz00_2799);} } 

}



/* 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_2169, obj_t BgL_mmapz00_2170)
{
{ /* Llib/mmap.scm 141 */
{ /* Llib/mmap.scm 142 */
 char * BgL_tmpz00_2808;
{ /* Llib/mmap.scm 142 */
 obj_t BgL_auxz00_2809;
if(
BGL_MMAPP(BgL_mmapz00_2170))
{ /* Llib/mmap.scm 142 */
BgL_auxz00_2809 = BgL_mmapz00_2170
; }  else 
{ 
 obj_t BgL_auxz00_2812;
BgL_auxz00_2812 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(6321L), BGl_string1914z00zz__mmapz00, BGl_string1913z00zz__mmapz00, BgL_mmapz00_2170); 
FAILURE(BgL_auxz00_2812,BFALSE,BFALSE);} 
BgL_tmpz00_2808 = 
BGl_mmapzd2ze3stringz31zz__mmapz00(BgL_auxz00_2809); } 
return 
string_to_bstring(BgL_tmpz00_2808);} } 

}



/* 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_2386;
{ /* Llib/mmap.scm 148 */
 long BgL_arg1234z00_2387;
BgL_arg1234z00_2387 = 
BGL_MMAP_LENGTH(BgL_mmapz00_16); 
BgL_lenz00_2386 = 
(int)(
(long)(BgL_arg1234z00_2387)); } 
{ /* Llib/mmap.scm 149 */
 char * BgL_arg1232z00_2388;
BgL_arg1232z00_2388 = 
BGL_MMAP_TO_STRING(BgL_mmapz00_16); 
return 
string_to_bstring_len(BgL_arg1232z00_2388, BgL_lenz00_2386);} } } 

}



/* &mmap->bstring */
obj_t BGl_z62mmapzd2ze3bstringz53zz__mmapz00(obj_t BgL_envz00_2171, obj_t BgL_mmapz00_2172)
{
{ /* Llib/mmap.scm 147 */
{ /* Llib/mmap.scm 148 */
 obj_t BgL_auxz00_2823;
if(
BGL_MMAPP(BgL_mmapz00_2172))
{ /* Llib/mmap.scm 148 */
BgL_auxz00_2823 = BgL_mmapz00_2172
; }  else 
{ 
 obj_t BgL_auxz00_2826;
BgL_auxz00_2826 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(6620L), BGl_string1915z00zz__mmapz00, BGl_string1913z00zz__mmapz00, BgL_mmapz00_2172); 
FAILURE(BgL_auxz00_2826,BFALSE,BFALSE);} 
return 
BGl_mmapzd2ze3bstringz31zz__mmapz00(BgL_auxz00_2823);} } 

}



/* 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_2173, obj_t BgL_mmapz00_2174)
{
{ /* Llib/mmap.scm 154 */
{ /* Llib/mmap.scm 155 */
 obj_t BgL_auxz00_2832;
if(
BGL_MMAPP(BgL_mmapz00_2174))
{ /* Llib/mmap.scm 155 */
BgL_auxz00_2832 = BgL_mmapz00_2174
; }  else 
{ 
 obj_t BgL_auxz00_2835;
BgL_auxz00_2835 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(6996L), BGl_string1916z00zz__mmapz00, BGl_string1913z00zz__mmapz00, BgL_mmapz00_2174); 
FAILURE(BgL_auxz00_2835,BFALSE,BFALSE);} 
return 
BGl_closezd2mmapzd2zz__mmapz00(BgL_auxz00_2832);} } 

}



/* 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_2175, obj_t BgL_objz00_2176)
{
{ /* Llib/mmap.scm 160 */
{ /* Llib/mmap.scm 161 */
 long BgL_tmpz00_2841;
{ /* Llib/mmap.scm 161 */
 obj_t BgL_auxz00_2842;
if(
BGL_MMAPP(BgL_objz00_2176))
{ /* Llib/mmap.scm 161 */
BgL_auxz00_2842 = BgL_objz00_2176
; }  else 
{ 
 obj_t BgL_auxz00_2845;
BgL_auxz00_2845 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(7281L), BGl_string1917z00zz__mmapz00, BGl_string1913z00zz__mmapz00, BgL_objz00_2176); 
FAILURE(BgL_auxz00_2845,BFALSE,BFALSE);} 
BgL_tmpz00_2841 = 
BGl_mmapzd2lengthzd2zz__mmapz00(BgL_auxz00_2842); } 
return 
make_belong(BgL_tmpz00_2841);} } 

}



/* 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_2177, obj_t BgL_mmz00_2178)
{
{ /* Llib/mmap.scm 166 */
{ /* Llib/mmap.scm 167 */
 long BgL_tmpz00_2852;
{ /* Llib/mmap.scm 167 */
 obj_t BgL_auxz00_2853;
if(
BGL_MMAPP(BgL_mmz00_2178))
{ /* Llib/mmap.scm 167 */
BgL_auxz00_2853 = BgL_mmz00_2178
; }  else 
{ 
 obj_t BgL_auxz00_2856;
BgL_auxz00_2856 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(7572L), BGl_string1918z00zz__mmapz00, BGl_string1913z00zz__mmapz00, BgL_mmz00_2178); 
FAILURE(BgL_auxz00_2856,BFALSE,BFALSE);} 
BgL_tmpz00_2852 = 
BGl_mmapzd2readzd2positionz00zz__mmapz00(BgL_auxz00_2853); } 
return 
make_belong(BgL_tmpz00_2852);} } 

}



/* 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_2179, obj_t BgL_mmz00_2180, obj_t BgL_pz00_2181)
{
{ /* Llib/mmap.scm 172 */
{ /* Llib/mmap.scm 173 */
 long BgL_tmpz00_2863;
{ /* Llib/mmap.scm 173 */
 long BgL_auxz00_2871; obj_t BgL_auxz00_2864;
{ /* Llib/mmap.scm 173 */
 obj_t BgL_tmpz00_2872;
if(
ELONGP(BgL_pz00_2181))
{ /* Llib/mmap.scm 173 */
BgL_tmpz00_2872 = BgL_pz00_2181
; }  else 
{ 
 obj_t BgL_auxz00_2875;
BgL_auxz00_2875 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(7884L), BGl_string1919z00zz__mmapz00, BGl_string1920z00zz__mmapz00, BgL_pz00_2181); 
FAILURE(BgL_auxz00_2875,BFALSE,BFALSE);} 
BgL_auxz00_2871 = 
BELONG_TO_LONG(BgL_tmpz00_2872); } 
if(
BGL_MMAPP(BgL_mmz00_2180))
{ /* Llib/mmap.scm 173 */
BgL_auxz00_2864 = BgL_mmz00_2180
; }  else 
{ 
 obj_t BgL_auxz00_2867;
BgL_auxz00_2867 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(7884L), BGl_string1919z00zz__mmapz00, BGl_string1913z00zz__mmapz00, BgL_mmz00_2180); 
FAILURE(BgL_auxz00_2867,BFALSE,BFALSE);} 
BgL_tmpz00_2863 = 
BGl_mmapzd2readzd2positionzd2setz12zc0zz__mmapz00(BgL_auxz00_2864, BgL_auxz00_2871); } 
return 
make_belong(BgL_tmpz00_2863);} } 

}



/* 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_2182, obj_t BgL_mmz00_2183)
{
{ /* Llib/mmap.scm 179 */
{ /* Llib/mmap.scm 180 */
 long BgL_tmpz00_2883;
{ /* Llib/mmap.scm 180 */
 obj_t BgL_auxz00_2884;
if(
BGL_MMAPP(BgL_mmz00_2183))
{ /* Llib/mmap.scm 180 */
BgL_auxz00_2884 = BgL_mmz00_2183
; }  else 
{ 
 obj_t BgL_auxz00_2887;
BgL_auxz00_2887 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(8164L), BGl_string1921z00zz__mmapz00, BGl_string1913z00zz__mmapz00, BgL_mmz00_2183); 
FAILURE(BgL_auxz00_2887,BFALSE,BFALSE);} 
BgL_tmpz00_2883 = 
BGl_mmapzd2writezd2positionz00zz__mmapz00(BgL_auxz00_2884); } 
return 
make_belong(BgL_tmpz00_2883);} } 

}



/* 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_2184, obj_t BgL_mmz00_2185, obj_t BgL_pz00_2186)
{
{ /* Llib/mmap.scm 185 */
{ /* Llib/mmap.scm 186 */
 long BgL_tmpz00_2894;
{ /* Llib/mmap.scm 186 */
 long BgL_auxz00_2902; obj_t BgL_auxz00_2895;
{ /* Llib/mmap.scm 186 */
 obj_t BgL_tmpz00_2903;
if(
ELONGP(BgL_pz00_2186))
{ /* Llib/mmap.scm 186 */
BgL_tmpz00_2903 = BgL_pz00_2186
; }  else 
{ 
 obj_t BgL_auxz00_2906;
BgL_auxz00_2906 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(8477L), BGl_string1922z00zz__mmapz00, BGl_string1920z00zz__mmapz00, BgL_pz00_2186); 
FAILURE(BgL_auxz00_2906,BFALSE,BFALSE);} 
BgL_auxz00_2902 = 
BELONG_TO_LONG(BgL_tmpz00_2903); } 
if(
BGL_MMAPP(BgL_mmz00_2185))
{ /* Llib/mmap.scm 186 */
BgL_auxz00_2895 = BgL_mmz00_2185
; }  else 
{ 
 obj_t BgL_auxz00_2898;
BgL_auxz00_2898 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(8477L), BGl_string1922z00zz__mmapz00, BGl_string1913z00zz__mmapz00, BgL_mmz00_2185); 
FAILURE(BgL_auxz00_2898,BFALSE,BFALSE);} 
BgL_tmpz00_2894 = 
BGl_mmapzd2writezd2positionzd2setz12zc0zz__mmapz00(BgL_auxz00_2895, BgL_auxz00_2902); } 
return 
make_belong(BgL_tmpz00_2894);} } 

}



/* 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_2389;
BgL_cz00_2389 = 
BGL_MMAP_REF(BgL_mmz00_25, BgL_iz00_26); 
{ /* Llib/mmap.scm 194 */
 long BgL_arg1235z00_2390;
BgL_arg1235z00_2390 = 
(BgL_iz00_26+((long)1)); 
BGL_MMAP_RP_SET(BgL_mmz00_25, BgL_arg1235z00_2390); BUNSPEC; BgL_arg1235z00_2390; } 
return BgL_cz00_2389;} } 

}



/* &mmap-ref-ur */
obj_t BGl_z62mmapzd2refzd2urz62zz__mmapz00(obj_t BgL_envz00_2187, obj_t BgL_mmz00_2188, obj_t BgL_iz00_2189)
{
{ /* Llib/mmap.scm 192 */
{ /* Llib/mmap.scm 193 */
 unsigned char BgL_tmpz00_2916;
{ /* Llib/mmap.scm 193 */
 long BgL_auxz00_2924; obj_t BgL_auxz00_2917;
{ /* Llib/mmap.scm 193 */
 obj_t BgL_tmpz00_2925;
if(
ELONGP(BgL_iz00_2189))
{ /* Llib/mmap.scm 193 */
BgL_tmpz00_2925 = BgL_iz00_2189
; }  else 
{ 
 obj_t BgL_auxz00_2928;
BgL_auxz00_2928 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(8765L), BGl_string1923z00zz__mmapz00, BGl_string1920z00zz__mmapz00, BgL_iz00_2189); 
FAILURE(BgL_auxz00_2928,BFALSE,BFALSE);} 
BgL_auxz00_2924 = 
BELONG_TO_LONG(BgL_tmpz00_2925); } 
if(
BGL_MMAPP(BgL_mmz00_2188))
{ /* Llib/mmap.scm 193 */
BgL_auxz00_2917 = BgL_mmz00_2188
; }  else 
{ 
 obj_t BgL_auxz00_2920;
BgL_auxz00_2920 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(8765L), BGl_string1923z00zz__mmapz00, BGl_string1913z00zz__mmapz00, BgL_mmz00_2188); 
FAILURE(BgL_auxz00_2920,BFALSE,BFALSE);} 
BgL_tmpz00_2916 = 
BGl_mmapzd2refzd2urz00zz__mmapz00(BgL_auxz00_2917, BgL_auxz00_2924); } 
return 
BCHAR(BgL_tmpz00_2916);} } 

}



/* 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_arg1236z00_2391;
BgL_arg1236z00_2391 = 
(BgL_iz00_28+((long)1)); 
BGL_MMAP_WP_SET(BgL_mmz00_27, BgL_arg1236z00_2391); BUNSPEC; 
return 
make_belong(BgL_arg1236z00_2391);} } 

}



/* &mmap-set-ur! */
obj_t BGl_z62mmapzd2setzd2urz12z70zz__mmapz00(obj_t BgL_envz00_2190, obj_t BgL_mmz00_2191, obj_t BgL_iz00_2192, obj_t BgL_cz00_2193)
{
{ /* Llib/mmap.scm 200 */
{ /* Llib/mmap.scm 201 */
 unsigned char BgL_auxz00_2955; long BgL_auxz00_2946; obj_t BgL_auxz00_2939;
{ /* Llib/mmap.scm 201 */
 obj_t BgL_tmpz00_2956;
if(
CHARP(BgL_cz00_2193))
{ /* Llib/mmap.scm 201 */
BgL_tmpz00_2956 = BgL_cz00_2193
; }  else 
{ 
 obj_t BgL_auxz00_2959;
BgL_auxz00_2959 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(9159L), BGl_string1924z00zz__mmapz00, BGl_string1925z00zz__mmapz00, BgL_cz00_2193); 
FAILURE(BgL_auxz00_2959,BFALSE,BFALSE);} 
BgL_auxz00_2955 = 
CCHAR(BgL_tmpz00_2956); } 
{ /* Llib/mmap.scm 201 */
 obj_t BgL_tmpz00_2947;
if(
ELONGP(BgL_iz00_2192))
{ /* Llib/mmap.scm 201 */
BgL_tmpz00_2947 = BgL_iz00_2192
; }  else 
{ 
 obj_t BgL_auxz00_2950;
BgL_auxz00_2950 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(9159L), BGl_string1924z00zz__mmapz00, BGl_string1920z00zz__mmapz00, BgL_iz00_2192); 
FAILURE(BgL_auxz00_2950,BFALSE,BFALSE);} 
BgL_auxz00_2946 = 
BELONG_TO_LONG(BgL_tmpz00_2947); } 
if(
BGL_MMAPP(BgL_mmz00_2191))
{ /* Llib/mmap.scm 201 */
BgL_auxz00_2939 = BgL_mmz00_2191
; }  else 
{ 
 obj_t BgL_auxz00_2942;
BgL_auxz00_2942 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(9159L), BGl_string1924z00zz__mmapz00, BGl_string1913z00zz__mmapz00, BgL_mmz00_2191); 
FAILURE(BgL_auxz00_2942,BFALSE,BFALSE);} 
return 
BGl_mmapzd2setzd2urz12z12zz__mmapz00(BgL_auxz00_2939, BgL_auxz00_2946, BgL_auxz00_2955);} } 

}



/* 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_test2095z00_2965;
{ /* Llib/mmap.scm 208 */
 long BgL_arg1249z00_2392;
BgL_arg1249z00_2392 = 
BGL_MMAP_LENGTH(BgL_mmz00_30); 
BgL_test2095z00_2965 = 
BOUND_CHECK(BgL_iz00_31, BgL_arg1249z00_2392); } 
if(BgL_test2095z00_2965)
{ /* Llib/mmap.scm 209 */
 unsigned char BgL_res1731z00_2393;
{ /* Llib/mmap.scm 193 */
 unsigned char BgL_cz00_2394;
BgL_cz00_2394 = 
BGL_MMAP_REF(BgL_mmz00_30, BgL_iz00_31); 
{ /* Llib/mmap.scm 194 */
 long BgL_arg1235z00_2395;
BgL_arg1235z00_2395 = 
(BgL_iz00_31+((long)1)); 
BGL_MMAP_RP_SET(BgL_mmz00_30, BgL_arg1235z00_2395); BUNSPEC; BgL_arg1235z00_2395; } 
BgL_res1731z00_2393 = BgL_cz00_2394; } 
return BgL_res1731z00_2393;}  else 
{ /* Llib/mmap.scm 212 */
 obj_t BgL_arg1241z00_2396;
{ /* Llib/mmap.scm 212 */
 obj_t BgL_arg1242z00_2397;
{ /* Llib/mmap.scm 212 */
 obj_t BgL_arg1248z00_2398;
{ /* Llib/mmap.scm 212 */
 long BgL_a1084z00_2399;
BgL_a1084z00_2399 = 
BGL_MMAP_LENGTH(BgL_mmz00_30); 
BgL_arg1248z00_2398 = 
BGl_2zd2zd2zz__r4_numbers_6_5z00(
make_belong(BgL_a1084z00_2399), 
BINT(1L)); } 
{ /* Llib/mmap.scm 212 */

BgL_arg1242z00_2397 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_arg1248z00_2398, 
BINT(10L)); } } 
BgL_arg1241z00_2396 = 
string_append_3(BGl_string1926z00zz__mmapz00, BgL_arg1242z00_2397, BGl_string1927z00zz__mmapz00); } 
{ /* Llib/mmap.scm 210 */
 obj_t BgL_tmpz00_2978;
{ /* Llib/mmap.scm 210 */
 obj_t BgL_aux1843z00_2400;
BgL_aux1843z00_2400 = 
BGl_errorz00zz__errorz00(BGl_symbol1928z00zz__mmapz00, BgL_arg1241z00_2396, 
make_belong(BgL_iz00_31)); 
if(
CHARP(BgL_aux1843z00_2400))
{ /* Llib/mmap.scm 210 */
BgL_tmpz00_2978 = BgL_aux1843z00_2400
; }  else 
{ 
 obj_t BgL_auxz00_2983;
BgL_auxz00_2983 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(9564L), BGl_string1929z00zz__mmapz00, BGl_string1925z00zz__mmapz00, BgL_aux1843z00_2400); 
FAILURE(BgL_auxz00_2983,BFALSE,BFALSE);} } 
return 
CCHAR(BgL_tmpz00_2978);} } } } 

}



/* &mmap-ref */
obj_t BGl_z62mmapzd2refzb0zz__mmapz00(obj_t BgL_envz00_2194, obj_t BgL_mmz00_2195, obj_t BgL_iz00_2196)
{
{ /* Llib/mmap.scm 207 */
{ /* Llib/mmap.scm 208 */
 unsigned char BgL_tmpz00_2988;
{ /* Llib/mmap.scm 208 */
 long BgL_auxz00_2996; obj_t BgL_auxz00_2989;
{ /* Llib/mmap.scm 208 */
 obj_t BgL_tmpz00_2997;
if(
ELONGP(BgL_iz00_2196))
{ /* Llib/mmap.scm 208 */
BgL_tmpz00_2997 = BgL_iz00_2196
; }  else 
{ 
 obj_t BgL_auxz00_3000;
BgL_auxz00_3000 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(9487L), BGl_string1930z00zz__mmapz00, BGl_string1920z00zz__mmapz00, BgL_iz00_2196); 
FAILURE(BgL_auxz00_3000,BFALSE,BFALSE);} 
BgL_auxz00_2996 = 
BELONG_TO_LONG(BgL_tmpz00_2997); } 
if(
BGL_MMAPP(BgL_mmz00_2195))
{ /* Llib/mmap.scm 208 */
BgL_auxz00_2989 = BgL_mmz00_2195
; }  else 
{ 
 obj_t BgL_auxz00_2992;
BgL_auxz00_2992 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(9487L), BGl_string1930z00zz__mmapz00, BGl_string1913z00zz__mmapz00, BgL_mmz00_2195); 
FAILURE(BgL_auxz00_2992,BFALSE,BFALSE);} 
BgL_tmpz00_2988 = 
BGl_mmapzd2refzd2zz__mmapz00(BgL_auxz00_2989, BgL_auxz00_2996); } 
return 
BCHAR(BgL_tmpz00_2988);} } 

}



/* 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_test2099z00_3007;
{ /* Llib/mmap.scm 220 */
 long BgL_arg1261z00_2401;
BgL_arg1261z00_2401 = 
BGL_MMAP_LENGTH(BgL_mmz00_32); 
BgL_test2099z00_3007 = 
BOUND_CHECK(BgL_iz00_33, BgL_arg1261z00_2401); } 
if(BgL_test2099z00_3007)
{ /* Llib/mmap.scm 220 */
BGL_MMAP_SET(BgL_mmz00_32, BgL_iz00_33, BgL_cz00_34); 
{ /* Llib/mmap.scm 202 */
 long BgL_arg1236z00_2402;
BgL_arg1236z00_2402 = 
(BgL_iz00_33+((long)1)); 
BGL_MMAP_WP_SET(BgL_mmz00_32, BgL_arg1236z00_2402); BUNSPEC; 
return 
make_belong(BgL_arg1236z00_2402);} }  else 
{ /* Llib/mmap.scm 224 */
 obj_t BgL_arg1254z00_2403;
{ /* Llib/mmap.scm 224 */
 obj_t BgL_arg1258z00_2404;
{ /* Llib/mmap.scm 224 */
 obj_t BgL_arg1259z00_2405;
{ /* Llib/mmap.scm 224 */
 long BgL_a1085z00_2406;
BgL_a1085z00_2406 = 
BGL_MMAP_LENGTH(BgL_mmz00_32); 
BgL_arg1259z00_2405 = 
BGl_2zd2zd2zz__r4_numbers_6_5z00(
make_belong(BgL_a1085z00_2406), 
BINT(1L)); } 
{ /* Llib/mmap.scm 224 */

BgL_arg1258z00_2404 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_arg1259z00_2405, 
BINT(10L)); } } 
BgL_arg1254z00_2403 = 
string_append_3(BGl_string1926z00zz__mmapz00, BgL_arg1258z00_2404, BGl_string1927z00zz__mmapz00); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol1931z00zz__mmapz00, BgL_arg1254z00_2403, 
make_belong(BgL_iz00_33));} } } 

}



/* &mmap-set! */
obj_t BGl_z62mmapzd2setz12za2zz__mmapz00(obj_t BgL_envz00_2197, obj_t BgL_mmz00_2198, obj_t BgL_iz00_2199, obj_t BgL_cz00_2200)
{
{ /* Llib/mmap.scm 219 */
{ /* Llib/mmap.scm 220 */
 unsigned char BgL_auxz00_3039; long BgL_auxz00_3030; obj_t BgL_auxz00_3023;
{ /* Llib/mmap.scm 220 */
 obj_t BgL_tmpz00_3040;
if(
CHARP(BgL_cz00_2200))
{ /* Llib/mmap.scm 220 */
BgL_tmpz00_3040 = BgL_cz00_2200
; }  else 
{ 
 obj_t BgL_auxz00_3043;
BgL_auxz00_3043 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(9987L), BGl_string1933z00zz__mmapz00, BGl_string1925z00zz__mmapz00, BgL_cz00_2200); 
FAILURE(BgL_auxz00_3043,BFALSE,BFALSE);} 
BgL_auxz00_3039 = 
CCHAR(BgL_tmpz00_3040); } 
{ /* Llib/mmap.scm 220 */
 obj_t BgL_tmpz00_3031;
if(
ELONGP(BgL_iz00_2199))
{ /* Llib/mmap.scm 220 */
BgL_tmpz00_3031 = BgL_iz00_2199
; }  else 
{ 
 obj_t BgL_auxz00_3034;
BgL_auxz00_3034 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(9987L), BGl_string1933z00zz__mmapz00, BGl_string1920z00zz__mmapz00, BgL_iz00_2199); 
FAILURE(BgL_auxz00_3034,BFALSE,BFALSE);} 
BgL_auxz00_3030 = 
BELONG_TO_LONG(BgL_tmpz00_3031); } 
if(
BGL_MMAPP(BgL_mmz00_2198))
{ /* Llib/mmap.scm 220 */
BgL_auxz00_3023 = BgL_mmz00_2198
; }  else 
{ 
 obj_t BgL_auxz00_3026;
BgL_auxz00_3026 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(9987L), BGl_string1933z00zz__mmapz00, BGl_string1913z00zz__mmapz00, BgL_mmz00_2198); 
FAILURE(BgL_auxz00_3026,BFALSE,BFALSE);} 
return 
BGl_mmapzd2setz12zc0zz__mmapz00(BgL_auxz00_3023, BgL_auxz00_3030, BgL_auxz00_3039);} } 

}



/* 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_arg1263z00_1226;
{ /* Llib/mmap.scm 234 */
 long BgL_res1732z00_1821;
{ /* Llib/mmap.scm 234 */
 long BgL_tmpz00_3051;
BgL_tmpz00_3051 = 
(BgL_endz00_37-BgL_startz00_36); 
BgL_res1732z00_1821 = 
(long)(BgL_tmpz00_3051); } 
BgL_arg1263z00_1226 = BgL_res1732z00_1821; } 
{ /* Llib/mmap.scm 234 */
 obj_t BgL_aux1855z00_2342;
BgL_aux1855z00_2342 = 
BGl_errorz00zz__errorz00(BGl_symbol1934z00zz__mmapz00, BGl_string1936z00zz__mmapz00, 
make_belong(BgL_arg1263z00_1226)); 
if(
STRINGP(BgL_aux1855z00_2342))
{ /* Llib/mmap.scm 234 */
return BgL_aux1855z00_2342;}  else 
{ 
 obj_t BgL_auxz00_3058;
BgL_auxz00_3058 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(10524L), BGl_string1935z00zz__mmapz00, BGl_string1903z00zz__mmapz00, BgL_aux1855z00_2342); 
FAILURE(BgL_auxz00_3058,BFALSE,BFALSE);} } }  else 
{ /* Llib/mmap.scm 235 */
 bool_t BgL_test2105z00_3062;
{ /* Llib/mmap.scm 235 */
 long BgL_arg1287z00_1250;
{ /* Llib/mmap.scm 235 */
 long BgL_arg1291z00_1251;
BgL_arg1291z00_1251 = 
BGL_MMAP_LENGTH(BgL_mmz00_35); 
BgL_arg1287z00_1250 = 
(((long)1)+BgL_arg1291z00_1251); } 
BgL_test2105z00_3062 = 
BOUND_CHECK(BgL_endz00_37, BgL_arg1287z00_1250); } 
if(BgL_test2105z00_3062)
{ /* Llib/mmap.scm 240 */
 bool_t BgL_test2106z00_3066;
{ /* Llib/mmap.scm 240 */
 long BgL_arg1281z00_1244;
BgL_arg1281z00_1244 = 
BGL_MMAP_LENGTH(BgL_mmz00_35); 
BgL_test2106z00_3066 = 
BOUND_CHECK(BgL_startz00_36, BgL_arg1281z00_1244); } 
if(BgL_test2106z00_3066)
{ /* Llib/mmap.scm 243 */
 obj_t BgL_rz00_1232;
{ /* Llib/mmap.scm 243 */
 long BgL_arg1279z00_1242;
{ /* Llib/mmap.scm 243 */
 long BgL_arg1280z00_1243;
{ /* Llib/mmap.scm 243 */
 long BgL_res1733z00_1828;
{ /* Llib/mmap.scm 243 */
 long BgL_tmpz00_3069;
BgL_tmpz00_3069 = 
(BgL_endz00_37-BgL_startz00_36); 
BgL_res1733z00_1828 = 
(long)(BgL_tmpz00_3069); } 
BgL_arg1280z00_1243 = BgL_res1733z00_1828; } 
BgL_arg1279z00_1242 = 
(long)(BgL_arg1280z00_1243); } 
BgL_rz00_1232 = 
make_string_sans_fill(BgL_arg1279z00_1242); } 
{ 
 long BgL_iz00_1234; long BgL_jz00_1235;
BgL_iz00_1234 = BgL_startz00_36; 
BgL_jz00_1235 = 0L; 
BgL_zc3z04anonymousza31271ze3z87_1236:
if(
(BgL_iz00_1234==BgL_endz00_37))
{ /* Llib/mmap.scm 246 */
BGL_MMAP_RP_SET(BgL_mmz00_35, BgL_iz00_1234); BUNSPEC; BgL_iz00_1234; 
return BgL_rz00_1232;}  else 
{ /* Llib/mmap.scm 246 */
{ /* Llib/mmap.scm 251 */
 unsigned char BgL_arg1274z00_1238;
{ /* Llib/mmap.scm 251 */
 unsigned char BgL_res1734z00_1842;
{ /* Llib/mmap.scm 193 */
 unsigned char BgL_cz00_1836;
BgL_cz00_1836 = 
BGL_MMAP_REF(BgL_mmz00_35, BgL_iz00_1234); 
{ /* Llib/mmap.scm 194 */
 long BgL_arg1235z00_1837;
BgL_arg1235z00_1837 = 
(BgL_iz00_1234+((long)1)); 
BGL_MMAP_RP_SET(BgL_mmz00_35, BgL_arg1235z00_1837); BUNSPEC; BgL_arg1235z00_1837; } 
BgL_res1734z00_1842 = BgL_cz00_1836; } 
BgL_arg1274z00_1238 = BgL_res1734z00_1842; } 
{ /* Llib/mmap.scm 251 */
 long BgL_l1755z00_2242;
BgL_l1755z00_2242 = 
STRING_LENGTH(BgL_rz00_1232); 
if(
BOUND_CHECK(BgL_jz00_1235, BgL_l1755z00_2242))
{ /* Llib/mmap.scm 251 */
STRING_SET(BgL_rz00_1232, BgL_jz00_1235, BgL_arg1274z00_1238); }  else 
{ 
 obj_t BgL_auxz00_3084;
BgL_auxz00_3084 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(11125L), BGl_string1937z00zz__mmapz00, BgL_rz00_1232, 
(int)(BgL_l1755z00_2242), 
(int)(BgL_jz00_1235)); 
FAILURE(BgL_auxz00_3084,BFALSE,BFALSE);} } } 
{ /* Llib/mmap.scm 252 */
 long BgL_arg1276z00_1239; long BgL_arg1278z00_1240;
BgL_arg1276z00_1239 = 
(BgL_iz00_1234+
(long)(1L)); 
BgL_arg1278z00_1240 = 
(BgL_jz00_1235+1L); 
{ 
 long BgL_jz00_3094; long BgL_iz00_3093;
BgL_iz00_3093 = BgL_arg1276z00_1239; 
BgL_jz00_3094 = BgL_arg1278z00_1240; 
BgL_jz00_1235 = BgL_jz00_3094; 
BgL_iz00_1234 = BgL_iz00_3093; 
goto BgL_zc3z04anonymousza31271ze3z87_1236;} } } } }  else 
{ /* Llib/mmap.scm 241 */
 obj_t BgL_aux1857z00_2344;
BgL_aux1857z00_2344 = 
BGl_errorz00zz__errorz00(BGl_symbol1934z00zz__mmapz00, BGl_string1938z00zz__mmapz00, 
make_belong(BgL_startz00_36)); 
if(
STRINGP(BgL_aux1857z00_2344))
{ /* Llib/mmap.scm 241 */
return BgL_aux1857z00_2344;}  else 
{ 
 obj_t BgL_auxz00_3099;
BgL_auxz00_3099 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(10855L), BGl_string1935z00zz__mmapz00, BGl_string1903z00zz__mmapz00, BgL_aux1857z00_2344); 
FAILURE(BgL_auxz00_3099,BFALSE,BFALSE);} } }  else 
{ /* Llib/mmap.scm 238 */
 obj_t BgL_arg1282z00_1245;
{ /* Llib/mmap.scm 238 */
 obj_t BgL_arg1283z00_1246;
{ /* Llib/mmap.scm 238 */
 long BgL_arg1285z00_1247;
BgL_arg1285z00_1247 = 
BGL_MMAP_LENGTH(BgL_mmz00_35); 
{ /* Ieee/number.scm 172 */

BgL_arg1283z00_1246 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(
make_belong(BgL_arg1285z00_1247), 
BINT(10L)); } } 
BgL_arg1282z00_1245 = 
string_append(BGl_string1939z00zz__mmapz00, BgL_arg1283z00_1246); } 
{ /* Llib/mmap.scm 236 */
 obj_t BgL_aux1859z00_2346;
BgL_aux1859z00_2346 = 
BGl_errorz00zz__errorz00(BGl_symbol1934z00zz__mmapz00, BgL_arg1282z00_1245, 
make_belong(BgL_endz00_37)); 
if(
STRINGP(BgL_aux1859z00_2346))
{ /* Llib/mmap.scm 236 */
return BgL_aux1859z00_2346;}  else 
{ 
 obj_t BgL_auxz00_3112;
BgL_auxz00_3112 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(10662L), BGl_string1935z00zz__mmapz00, BGl_string1903z00zz__mmapz00, BgL_aux1859z00_2346); 
FAILURE(BgL_auxz00_3112,BFALSE,BFALSE);} } } } } 

}



/* &mmap-substring */
obj_t BGl_z62mmapzd2substringzb0zz__mmapz00(obj_t BgL_envz00_2201, obj_t BgL_mmz00_2202, obj_t BgL_startz00_2203, obj_t BgL_endz00_2204)
{
{ /* Llib/mmap.scm 231 */
{ /* Llib/mmap.scm 233 */
 long BgL_auxz00_3132; long BgL_auxz00_3123; obj_t BgL_auxz00_3116;
{ /* Llib/mmap.scm 233 */
 obj_t BgL_tmpz00_3133;
if(
ELONGP(BgL_endz00_2204))
{ /* Llib/mmap.scm 233 */
BgL_tmpz00_3133 = BgL_endz00_2204
; }  else 
{ 
 obj_t BgL_auxz00_3136;
BgL_auxz00_3136 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(10497L), BGl_string1940z00zz__mmapz00, BGl_string1920z00zz__mmapz00, BgL_endz00_2204); 
FAILURE(BgL_auxz00_3136,BFALSE,BFALSE);} 
BgL_auxz00_3132 = 
BELONG_TO_LONG(BgL_tmpz00_3133); } 
{ /* Llib/mmap.scm 233 */
 obj_t BgL_tmpz00_3124;
if(
ELONGP(BgL_startz00_2203))
{ /* Llib/mmap.scm 233 */
BgL_tmpz00_3124 = BgL_startz00_2203
; }  else 
{ 
 obj_t BgL_auxz00_3127;
BgL_auxz00_3127 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(10497L), BGl_string1940z00zz__mmapz00, BGl_string1920z00zz__mmapz00, BgL_startz00_2203); 
FAILURE(BgL_auxz00_3127,BFALSE,BFALSE);} 
BgL_auxz00_3123 = 
BELONG_TO_LONG(BgL_tmpz00_3124); } 
if(
BGL_MMAPP(BgL_mmz00_2202))
{ /* Llib/mmap.scm 233 */
BgL_auxz00_3116 = BgL_mmz00_2202
; }  else 
{ 
 obj_t BgL_auxz00_3119;
BgL_auxz00_3119 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(10497L), BGl_string1940z00zz__mmapz00, BGl_string1913z00zz__mmapz00, BgL_mmz00_2202); 
FAILURE(BgL_auxz00_3119,BFALSE,BFALSE);} 
return 
BGl_mmapzd2substringzd2zz__mmapz00(BgL_auxz00_3116, BgL_auxz00_3123, BgL_auxz00_3132);} } 

}



/* 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_1252;
BgL_lenz00_1252 = 
STRING_LENGTH(BgL_sz00_40); 
if(
(BgL_oz00_39<((long)0)))
{ /* Llib/mmap.scm 260 */
return 
BGl_errorz00zz__errorz00(BGl_string1941z00zz__mmapz00, BGl_string1938z00zz__mmapz00, 
make_belong(BgL_oz00_39));}  else 
{ /* Llib/mmap.scm 262 */
 bool_t BgL_test2115z00_3147;
{ /* Llib/mmap.scm 262 */
 long BgL_arg1351z00_1285;
{ /* Llib/mmap.scm 262 */
 long BgL_arg1352z00_1286;
BgL_arg1352z00_1286 = 
BGL_MMAP_LENGTH(BgL_mmz00_38); 
BgL_arg1351z00_1285 = 
(BgL_arg1352z00_1286+((long)1)); } 
BgL_test2115z00_3147 = 
BOUND_CHECK(BgL_oz00_39, BgL_arg1351z00_1285); } 
if(BgL_test2115z00_3147)
{ /* Llib/mmap.scm 268 */
 bool_t BgL_test2116z00_3151;
{ /* Llib/mmap.scm 268 */
 long BgL_arg1341z00_1276; long BgL_arg1342z00_1277;
{ /* Llib/mmap.scm 268 */
 long BgL_arg1343z00_1278;
BgL_arg1343z00_1278 = 
(long)(BgL_lenz00_1252); 
BgL_arg1341z00_1276 = 
(BgL_oz00_39+BgL_arg1343z00_1278); } 
{ /* Llib/mmap.scm 269 */
 long BgL_arg1345z00_1279;
BgL_arg1345z00_1279 = 
BGL_MMAP_LENGTH(BgL_mmz00_38); 
BgL_arg1342z00_1277 = 
(BgL_arg1345z00_1279+((long)1)); } 
BgL_test2116z00_3151 = 
BOUND_CHECK(BgL_arg1341z00_1276, BgL_arg1342z00_1277); } 
if(BgL_test2116z00_3151)
{ 
 long BgL_iz00_1263; long BgL_jz00_1264;
BgL_iz00_1263 = 0L; 
BgL_jz00_1264 = BgL_oz00_39; 
BgL_zc3z04anonymousza31331ze3z87_1265:
if(
(BgL_iz00_1263==BgL_lenz00_1252))
{ /* Llib/mmap.scm 278 */
BGL_MMAP_WP_SET(BgL_mmz00_38, BgL_jz00_1264); BUNSPEC; BgL_jz00_1264; 
return BgL_mmz00_38;}  else 
{ /* Llib/mmap.scm 278 */
{ /* Llib/mmap.scm 283 */
 unsigned char BgL_arg1333z00_1267;
{ /* Llib/mmap.scm 283 */
 long BgL_l1759z00_2246;
BgL_l1759z00_2246 = 
STRING_LENGTH(BgL_sz00_40); 
if(
BOUND_CHECK(BgL_iz00_1263, BgL_l1759z00_2246))
{ /* Llib/mmap.scm 283 */
BgL_arg1333z00_1267 = 
STRING_REF(BgL_sz00_40, BgL_iz00_1263); }  else 
{ 
 obj_t BgL_auxz00_3164;
BgL_auxz00_3164 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(12191L), BGl_string1942z00zz__mmapz00, BgL_sz00_40, 
(int)(BgL_l1759z00_2246), 
(int)(BgL_iz00_1263)); 
FAILURE(BgL_auxz00_3164,BFALSE,BFALSE);} } 
BGL_MMAP_SET(BgL_mmz00_38, BgL_jz00_1264, BgL_arg1333z00_1267); 
{ /* Llib/mmap.scm 202 */
 long BgL_arg1236z00_1871;
BgL_arg1236z00_1871 = 
(BgL_jz00_1264+((long)1)); 
BGL_MMAP_WP_SET(BgL_mmz00_38, BgL_arg1236z00_1871); BUNSPEC; BgL_arg1236z00_1871; } } 
{ /* Llib/mmap.scm 284 */
 long BgL_arg1334z00_1268; long BgL_arg1335z00_1269;
BgL_arg1334z00_1268 = 
(BgL_iz00_1263+1L); 
BgL_arg1335z00_1269 = 
(BgL_jz00_1264+
(long)(1L)); 
{ 
 long BgL_jz00_3177; long BgL_iz00_3176;
BgL_iz00_3176 = BgL_arg1334z00_1268; 
BgL_jz00_3177 = BgL_arg1335z00_1269; 
BgL_jz00_1264 = BgL_jz00_3177; 
BgL_iz00_1263 = BgL_iz00_3176; 
goto BgL_zc3z04anonymousza31331ze3z87_1265;} } } }  else 
{ /* Llib/mmap.scm 272 */
 obj_t BgL_arg1336z00_1271; obj_t BgL_arg1337z00_1272;
{ /* Llib/mmap.scm 272 */
 obj_t BgL_arg1338z00_1273;
{ /* Llib/mmap.scm 272 */
 long BgL_arg1339z00_1274;
BgL_arg1339z00_1274 = 
BGL_MMAP_LENGTH(BgL_mmz00_38); 
BgL_arg1338z00_1273 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(
make_belong(BgL_arg1339z00_1274), 
BINT(1L)); } 
BgL_arg1336z00_1271 = 
string_append_3(BGl_string1926z00zz__mmapz00, BgL_arg1338z00_1273, BGl_string1927z00zz__mmapz00); } 
BgL_arg1337z00_1272 = 
BGl_2zb2zb2zz__r4_numbers_6_5z00(
make_belong(BgL_oz00_39), 
BINT(BgL_lenz00_1252)); 
return 
BGl_errorz00zz__errorz00(BGl_symbol1943z00zz__mmapz00, BgL_arg1336z00_1271, BgL_arg1337z00_1272);} }  else 
{ /* Llib/mmap.scm 265 */
 obj_t BgL_arg1346z00_1280;
{ /* Llib/mmap.scm 265 */
 obj_t BgL_arg1347z00_1281;
{ /* Llib/mmap.scm 265 */
 long BgL_arg1349z00_1282;
BgL_arg1349z00_1282 = 
BGL_MMAP_LENGTH(BgL_mmz00_38); 
{ /* Ieee/number.scm 172 */

BgL_arg1347z00_1281 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(
make_belong(BgL_arg1349z00_1282), 
BINT(10L)); } } 
BgL_arg1346z00_1280 = 
string_append_3(BGl_string1926z00zz__mmapz00, BgL_arg1347z00_1281, BGl_string1945z00zz__mmapz00); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol1946z00zz__mmapz00, BgL_arg1346z00_1280, 
make_belong(BgL_oz00_39));} } } } 

}



/* &mmap-substring-set! */
obj_t BGl_z62mmapzd2substringzd2setz12z70zz__mmapz00(obj_t BgL_envz00_2205, obj_t BgL_mmz00_2206, obj_t BgL_oz00_2207, obj_t BgL_sz00_2208)
{
{ /* Llib/mmap.scm 257 */
{ /* Llib/mmap.scm 258 */
 obj_t BgL_auxz00_3210; long BgL_auxz00_3201; obj_t BgL_auxz00_3194;
if(
STRINGP(BgL_sz00_2208))
{ /* Llib/mmap.scm 258 */
BgL_auxz00_3210 = BgL_sz00_2208
; }  else 
{ 
 obj_t BgL_auxz00_3213;
BgL_auxz00_3213 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(11493L), BGl_string1947z00zz__mmapz00, BGl_string1903z00zz__mmapz00, BgL_sz00_2208); 
FAILURE(BgL_auxz00_3213,BFALSE,BFALSE);} 
{ /* Llib/mmap.scm 258 */
 obj_t BgL_tmpz00_3202;
if(
ELONGP(BgL_oz00_2207))
{ /* Llib/mmap.scm 258 */
BgL_tmpz00_3202 = BgL_oz00_2207
; }  else 
{ 
 obj_t BgL_auxz00_3205;
BgL_auxz00_3205 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(11493L), BGl_string1947z00zz__mmapz00, BGl_string1920z00zz__mmapz00, BgL_oz00_2207); 
FAILURE(BgL_auxz00_3205,BFALSE,BFALSE);} 
BgL_auxz00_3201 = 
BELONG_TO_LONG(BgL_tmpz00_3202); } 
if(
BGL_MMAPP(BgL_mmz00_2206))
{ /* Llib/mmap.scm 258 */
BgL_auxz00_3194 = BgL_mmz00_2206
; }  else 
{ 
 obj_t BgL_auxz00_3197;
BgL_auxz00_3197 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(11493L), BGl_string1947z00zz__mmapz00, BGl_string1913z00zz__mmapz00, BgL_mmz00_2206); 
FAILURE(BgL_auxz00_3197,BFALSE,BFALSE);} 
return 
BGl_mmapzd2substringzd2setz12z12zz__mmapz00(BgL_auxz00_3194, BgL_auxz00_3201, BgL_auxz00_3210);} } 

}



/* 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_arg1353z00_2407;
BgL_arg1353z00_2407 = 
BGL_MMAP_RP_GET(BgL_mmz00_41); 
{ /* Llib/mmap.scm 290 */
 unsigned char BgL_res1736z00_2408;
{ /* Llib/mmap.scm 208 */
 bool_t BgL_test2122z00_3219;
{ /* Llib/mmap.scm 208 */
 long BgL_arg1249z00_2409;
BgL_arg1249z00_2409 = 
BGL_MMAP_LENGTH(BgL_mmz00_41); 
BgL_test2122z00_3219 = 
BOUND_CHECK(BgL_arg1353z00_2407, BgL_arg1249z00_2409); } 
if(BgL_test2122z00_3219)
{ /* Llib/mmap.scm 209 */
 unsigned char BgL_res1735z00_2410;
{ /* Llib/mmap.scm 193 */
 unsigned char BgL_cz00_2411;
BgL_cz00_2411 = 
BGL_MMAP_REF(BgL_mmz00_41, BgL_arg1353z00_2407); 
{ /* Llib/mmap.scm 194 */
 long BgL_arg1235z00_2412;
BgL_arg1235z00_2412 = 
(BgL_arg1353z00_2407+((long)1)); 
BGL_MMAP_RP_SET(BgL_mmz00_41, BgL_arg1235z00_2412); BUNSPEC; BgL_arg1235z00_2412; } 
BgL_res1735z00_2410 = BgL_cz00_2411; } 
BgL_res1736z00_2408 = BgL_res1735z00_2410; }  else 
{ /* Llib/mmap.scm 212 */
 obj_t BgL_arg1241z00_2413;
{ /* Llib/mmap.scm 212 */
 obj_t BgL_arg1242z00_2414;
{ /* Llib/mmap.scm 212 */
 obj_t BgL_arg1248z00_2415;
{ /* Llib/mmap.scm 212 */
 long BgL_a1084z00_2416;
BgL_a1084z00_2416 = 
BGL_MMAP_LENGTH(BgL_mmz00_41); 
BgL_arg1248z00_2415 = 
BGl_2zd2zd2zz__r4_numbers_6_5z00(
make_belong(BgL_a1084z00_2416), 
BINT(1L)); } 
{ /* Llib/mmap.scm 212 */

BgL_arg1242z00_2414 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_arg1248z00_2415, 
BINT(10L)); } } 
BgL_arg1241z00_2413 = 
string_append_3(BGl_string1926z00zz__mmapz00, BgL_arg1242z00_2414, BGl_string1927z00zz__mmapz00); } 
{ /* Llib/mmap.scm 210 */
 obj_t BgL_tmpz00_3232;
{ /* Llib/mmap.scm 210 */
 obj_t BgL_aux1873z00_2417;
BgL_aux1873z00_2417 = 
BGl_errorz00zz__errorz00(BGl_symbol1928z00zz__mmapz00, BgL_arg1241z00_2413, 
make_belong(BgL_arg1353z00_2407)); 
if(
CHARP(BgL_aux1873z00_2417))
{ /* Llib/mmap.scm 210 */
BgL_tmpz00_3232 = BgL_aux1873z00_2417
; }  else 
{ 
 obj_t BgL_auxz00_3237;
BgL_auxz00_3237 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(9564L), BGl_string1948z00zz__mmapz00, BGl_string1925z00zz__mmapz00, BgL_aux1873z00_2417); 
FAILURE(BgL_auxz00_3237,BFALSE,BFALSE);} } 
BgL_res1736z00_2408 = 
CCHAR(BgL_tmpz00_3232); } } } 
return BgL_res1736z00_2408;} } } 

}



/* &mmap-get-char */
obj_t BGl_z62mmapzd2getzd2charz62zz__mmapz00(obj_t BgL_envz00_2209, obj_t BgL_mmz00_2210)
{
{ /* Llib/mmap.scm 289 */
{ /* Llib/mmap.scm 290 */
 unsigned char BgL_tmpz00_3242;
{ /* Llib/mmap.scm 290 */
 obj_t BgL_auxz00_3243;
if(
BGL_MMAPP(BgL_mmz00_2210))
{ /* Llib/mmap.scm 290 */
BgL_auxz00_3243 = BgL_mmz00_2210
; }  else 
{ 
 obj_t BgL_auxz00_3246;
BgL_auxz00_3246 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(12534L), BGl_string1949z00zz__mmapz00, BGl_string1913z00zz__mmapz00, BgL_mmz00_2210); 
FAILURE(BgL_auxz00_3246,BFALSE,BFALSE);} 
BgL_tmpz00_3242 = 
BGl_mmapzd2getzd2charz00zz__mmapz00(BgL_auxz00_3243); } 
return 
BCHAR(BgL_tmpz00_3242);} } 

}



/* 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_arg1355z00_2418;
BgL_arg1355z00_2418 = 
BGL_MMAP_WP_GET(BgL_mmz00_42); 
{ /* Llib/mmap.scm 220 */
 bool_t BgL_test2125z00_3253;
{ /* Llib/mmap.scm 220 */
 long BgL_arg1261z00_2419;
BgL_arg1261z00_2419 = 
BGL_MMAP_LENGTH(BgL_mmz00_42); 
BgL_test2125z00_3253 = 
BOUND_CHECK(BgL_arg1355z00_2418, BgL_arg1261z00_2419); } 
if(BgL_test2125z00_3253)
{ /* Llib/mmap.scm 220 */
BGL_MMAP_SET(BgL_mmz00_42, BgL_arg1355z00_2418, BgL_cz00_43); 
{ /* Llib/mmap.scm 202 */
 long BgL_arg1236z00_2420;
BgL_arg1236z00_2420 = 
(BgL_arg1355z00_2418+((long)1)); 
BGL_MMAP_WP_SET(BgL_mmz00_42, BgL_arg1236z00_2420); BUNSPEC; 
return 
make_belong(BgL_arg1236z00_2420);} }  else 
{ /* Llib/mmap.scm 224 */
 obj_t BgL_arg1254z00_2421;
{ /* Llib/mmap.scm 224 */
 obj_t BgL_arg1258z00_2422;
{ /* Llib/mmap.scm 224 */
 obj_t BgL_arg1259z00_2423;
{ /* Llib/mmap.scm 224 */
 long BgL_a1085z00_2424;
BgL_a1085z00_2424 = 
BGL_MMAP_LENGTH(BgL_mmz00_42); 
BgL_arg1259z00_2423 = 
BGl_2zd2zd2zz__r4_numbers_6_5z00(
make_belong(BgL_a1085z00_2424), 
BINT(1L)); } 
{ /* Llib/mmap.scm 224 */

BgL_arg1258z00_2422 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_arg1259z00_2423, 
BINT(10L)); } } 
BgL_arg1254z00_2421 = 
string_append_3(BGl_string1926z00zz__mmapz00, BgL_arg1258z00_2422, BGl_string1927z00zz__mmapz00); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol1931z00zz__mmapz00, BgL_arg1254z00_2421, 
make_belong(BgL_arg1355z00_2418));} } } } 

}



/* &mmap-put-char! */
obj_t BGl_z62mmapzd2putzd2charz12z70zz__mmapz00(obj_t BgL_envz00_2211, obj_t BgL_mmz00_2212, obj_t BgL_cz00_2213)
{
{ /* Llib/mmap.scm 295 */
{ /* Llib/mmap.scm 296 */
 unsigned char BgL_auxz00_3276; obj_t BgL_auxz00_3269;
{ /* Llib/mmap.scm 296 */
 obj_t BgL_tmpz00_3277;
if(
CHARP(BgL_cz00_2213))
{ /* Llib/mmap.scm 296 */
BgL_tmpz00_3277 = BgL_cz00_2213
; }  else 
{ 
 obj_t BgL_auxz00_3280;
BgL_auxz00_3280 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(12833L), BGl_string1950z00zz__mmapz00, BGl_string1925z00zz__mmapz00, BgL_cz00_2213); 
FAILURE(BgL_auxz00_3280,BFALSE,BFALSE);} 
BgL_auxz00_3276 = 
CCHAR(BgL_tmpz00_3277); } 
if(
BGL_MMAPP(BgL_mmz00_2212))
{ /* Llib/mmap.scm 296 */
BgL_auxz00_3269 = BgL_mmz00_2212
; }  else 
{ 
 obj_t BgL_auxz00_3272;
BgL_auxz00_3272 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(12833L), BGl_string1950z00zz__mmapz00, BGl_string1913z00zz__mmapz00, BgL_mmz00_2212); 
FAILURE(BgL_auxz00_3272,BFALSE,BFALSE);} 
return 
BGl_mmapzd2putzd2charz12z12zz__mmapz00(BgL_auxz00_3269, BgL_auxz00_3276);} } 

}



/* 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_arg1356z00_2425; long BgL_arg1357z00_2426;
BgL_arg1356z00_2425 = 
BGL_MMAP_RP_GET(BgL_mmz00_44); 
{ /* Llib/mmap.scm 302 */
 long BgL_arg1358z00_2427;
BgL_arg1358z00_2427 = 
BGL_MMAP_RP_GET(BgL_mmz00_44); 
BgL_arg1357z00_2426 = 
(BgL_arg1358z00_2427+BgL_lenz00_45); } 
return 
BGl_mmapzd2substringzd2zz__mmapz00(BgL_mmz00_44, BgL_arg1356z00_2425, BgL_arg1357z00_2426);} } 

}



/* &mmap-get-string */
obj_t BGl_z62mmapzd2getzd2stringz62zz__mmapz00(obj_t BgL_envz00_2214, obj_t BgL_mmz00_2215, obj_t BgL_lenz00_2216)
{
{ /* Llib/mmap.scm 301 */
{ /* Llib/mmap.scm 302 */
 long BgL_auxz00_3297; obj_t BgL_auxz00_3290;
{ /* Llib/mmap.scm 302 */
 obj_t BgL_tmpz00_3298;
if(
ELONGP(BgL_lenz00_2216))
{ /* Llib/mmap.scm 302 */
BgL_tmpz00_3298 = BgL_lenz00_2216
; }  else 
{ 
 obj_t BgL_auxz00_3301;
BgL_auxz00_3301 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(13142L), BGl_string1951z00zz__mmapz00, BGl_string1920z00zz__mmapz00, BgL_lenz00_2216); 
FAILURE(BgL_auxz00_3301,BFALSE,BFALSE);} 
BgL_auxz00_3297 = 
BELONG_TO_LONG(BgL_tmpz00_3298); } 
if(
BGL_MMAPP(BgL_mmz00_2215))
{ /* Llib/mmap.scm 302 */
BgL_auxz00_3290 = BgL_mmz00_2215
; }  else 
{ 
 obj_t BgL_auxz00_3293;
BgL_auxz00_3293 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(13142L), BGl_string1951z00zz__mmapz00, BGl_string1913z00zz__mmapz00, BgL_mmz00_2215); 
FAILURE(BgL_auxz00_3293,BFALSE,BFALSE);} 
return 
BGl_mmapzd2getzd2stringz00zz__mmapz00(BgL_auxz00_3290, BgL_auxz00_3297);} } 

}



/* 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_arg1359z00_2428;
BgL_arg1359z00_2428 = 
BGL_MMAP_WP_GET(BgL_mmz00_46); 
return 
BGl_mmapzd2substringzd2setz12z12zz__mmapz00(BgL_mmz00_46, BgL_arg1359z00_2428, BgL_sz00_47);} } 

}



/* &mmap-put-string! */
obj_t BGl_z62mmapzd2putzd2stringz12z70zz__mmapz00(obj_t BgL_envz00_2217, obj_t BgL_mmz00_2218, obj_t BgL_sz00_2219)
{
{ /* Llib/mmap.scm 307 */
{ /* Llib/mmap.scm 308 */
 obj_t BgL_auxz00_3316; obj_t BgL_auxz00_3309;
if(
STRINGP(BgL_sz00_2219))
{ /* Llib/mmap.scm 308 */
BgL_auxz00_3316 = BgL_sz00_2219
; }  else 
{ 
 obj_t BgL_auxz00_3319;
BgL_auxz00_3319 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(13480L), BGl_string1952z00zz__mmapz00, BGl_string1903z00zz__mmapz00, BgL_sz00_2219); 
FAILURE(BgL_auxz00_3319,BFALSE,BFALSE);} 
if(
BGL_MMAPP(BgL_mmz00_2218))
{ /* Llib/mmap.scm 308 */
BgL_auxz00_3309 = BgL_mmz00_2218
; }  else 
{ 
 obj_t BgL_auxz00_3312;
BgL_auxz00_3312 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1889z00zz__mmapz00, 
BINT(13480L), BGl_string1952z00zz__mmapz00, BGl_string1913z00zz__mmapz00, BgL_mmz00_2218); 
FAILURE(BgL_auxz00_3312,BFALSE,BFALSE);} 
return 
BGl_mmapzd2putzd2stringz12z12zz__mmapz00(BgL_auxz00_3309, BgL_auxz00_3316);} } 

}



/* 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_string1953z00zz__mmapz00));} 

}

#ifdef __cplusplus
}
#endif
