/*===========================================================================*/
/*   (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-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c Llib/mmap.scm -indent -o objs/obj_u/Llib/mmap.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* unsafe mode */
#define BIGLOO_UNSAFE 1

/* 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_symbol1833z00zz__mmapz00 = BUNSPEC;
	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);
	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_symbol1851z00zz__mmapz00 = BUNSPEC;
	static obj_t BGl_symbol1854z00zz__mmapz00 = BUNSPEC;
	static obj_t BGl_list1821z00zz__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_symbol1857z00zz__mmapz00 = BUNSPEC;
	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_symbol1864z00zz__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);
	static obj_t BGl_symbol1867z00zz__mmapz00 = BUNSPEC;
	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);
	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);
	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);
	static obj_t BGl_keyword1822z00zz__mmapz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_mmapzd2substringzd2setz12z12zz__mmapz00(obj_t,
		long, obj_t);
	static obj_t BGl_keyword1824z00zz__mmapz00 = BUNSPEC;
	BGL_EXPORTED_DECL long BGl_mmapzd2lengthzd2zz__mmapz00(obj_t);
	static obj_t BGl_methodzd2initzd2zz__mmapz00(void);
	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_symbol1826z00zz__mmapz00 = BUNSPEC;
	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_string1870z00zz__mmapz00,
		BgL_bgl_string1870za700za7za7_1874za7, "&mmap-put-char!", 15);
	      BGL_DEFINE_STRING(BGl_string1871z00zz__mmapz00,
		BgL_bgl_string1871za700za7za7_1875za7, "&mmap-get-string", 16);
	      BGL_DEFINE_STRING(BGl_string1872z00zz__mmapz00,
		BgL_bgl_string1872za700za7za7_1876za7, "&mmap-put-string!", 17);
	      BGL_DEFINE_STRING(BGl_string1873z00zz__mmapz00,
		BgL_bgl_string1873za700za7za7_1877za7, "__mmap", 6);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2writezd2positionzd2envzd2zz__mmapz00,
		BgL_bgl_za762mmapza7d2writeza71878za7,
		BGl_z62mmapzd2writezd2positionz62zz__mmapz00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2lengthzd2envz00zz__mmapz00,
		BgL_bgl_za762mmapza7d2length1879z00, BGl_z62mmapzd2lengthzb0zz__mmapz00, 0L,
		BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2putzd2charz12zd2envzc0zz__mmapz00,
		BgL_bgl_za762mmapza7d2putza7d21880za7,
		BGl_z62mmapzd2putzd2charz12z70zz__mmapz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_mmapzd2writezd2positionzd2setz12zd2envz12zz__mmapz00,
		BgL_bgl_za762mmapza7d2writeza71881za7,
		BGl_z62mmapzd2writezd2positionzd2setz12za2zz__mmapz00, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2getzd2stringzd2envzd2zz__mmapz00,
		BgL_bgl_za762mmapza7d2getza7d21882za7,
		BGl_z62mmapzd2getzd2stringz62zz__mmapz00, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzf3zd2envz21zz__mmapz00,
		BgL_bgl_za762mmapza7f3za791za7za7_1883za7, BGl_z62mmapzf3z91zz__mmapz00, 0L,
		BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_closezd2mmapzd2envz00zz__mmapz00,
		BgL_bgl_za762closeza7d2mmapza71884za7, BGl_z62closezd2mmapzb0zz__mmapz00,
		0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_mmapzd2substringzd2setz12zd2envzc0zz__mmapz00,
		BgL_bgl_za762mmapza7d2substr1885z00,
		BGl_z62mmapzd2substringzd2setz12z70zz__mmapz00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2readzd2positionzd2envzd2zz__mmapz00,
		BgL_bgl_za762mmapza7d2readza7d1886za7,
		BGl_z62mmapzd2readzd2positionz62zz__mmapz00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2setz12zd2envz12zz__mmapz00,
		BgL_bgl_za762mmapza7d2setza7121887za7, BGl_z62mmapzd2setz12za2zz__mmapz00,
		0L, BUNSPEC, 3);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2ze3mmapzd2envze3zz__mmapz00,
		BgL_bgl__stringza7d2za7e3mma1888z00, opt_generic_entry,
		BGl__stringzd2ze3mmapz31zz__mmapz00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2putzd2stringz12zd2envzc0zz__mmapz00,
		BgL_bgl_za762mmapza7d2putza7d21889za7,
		BGl_z62mmapzd2putzd2stringz12z70zz__mmapz00, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2getzd2charzd2envzd2zz__mmapz00,
		BgL_bgl_za762mmapza7d2getza7d21890za7,
		BGl_z62mmapzd2getzd2charz62zz__mmapz00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2refzd2envz00zz__mmapz00,
		BgL_bgl_za762mmapza7d2refza7b01891za7, BGl_z62mmapzd2refzb0zz__mmapz00, 0L,
		BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2namezd2envz00zz__mmapz00,
		BgL_bgl_za762mmapza7d2nameza7b1892za7, BGl_z62mmapzd2namezb0zz__mmapz00, 0L,
		BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_openzd2mmapzd2envz00zz__mmapz00,
		BgL_bgl__openza7d2mmapza7d2za71893za7, opt_generic_entry,
		BGl__openzd2mmapzd2zz__mmapz00, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2ze3stringzd2envze3zz__mmapz00,
		BgL_bgl_za762mmapza7d2za7e3str1894za7,
		BGl_z62mmapzd2ze3stringz53zz__mmapz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string1818z00zz__mmapz00,
		BgL_bgl_string1818za700za7za7_1895za7, "/tmp/bigloo/runtime/Llib/mmap.scm",
		33);
	      BGL_DEFINE_STRING(BGl_string1819z00zz__mmapz00,
		BgL_bgl_string1819za700za7za7_1896za7, "_open-mmap", 10);
	      BGL_DEFINE_STRING(BGl_string1820z00zz__mmapz00,
		BgL_bgl_string1820za700za7za7_1897za7, "vector", 6);
	      BGL_DEFINE_STRING(BGl_string1823z00zz__mmapz00,
		BgL_bgl_string1823za700za7za7_1898za7, "read", 4);
	      BGL_DEFINE_STRING(BGl_string1825z00zz__mmapz00,
		BgL_bgl_string1825za700za7za7_1899za7, "write", 5);
	      BGL_DEFINE_STRING(BGl_string1827z00zz__mmapz00,
		BgL_bgl_string1827za700za7za7_1900za7, "open-mmap", 9);
	      BGL_DEFINE_STRING(BGl_string1828z00zz__mmapz00,
		BgL_bgl_string1828za700za7za7_1901za7, "Illegal keyword argument", 24);
	      BGL_DEFINE_STRING(BGl_string1829z00zz__mmapz00,
		BgL_bgl_string1829za700za7za7_1902za7,
		"wrong number of arguments: [1..3] expected, provided", 52);
	      BGL_DEFINE_STRING(BGl_string1830z00zz__mmapz00,
		BgL_bgl_string1830za700za7za7_1903za7, "bint", 4);
	      BGL_DEFINE_STRING(BGl_string1831z00zz__mmapz00,
		BgL_bgl_string1831za700za7za7_1904za7, "bstring", 7);
	      BGL_DEFINE_STRING(BGl_string1832z00zz__mmapz00,
		BgL_bgl_string1832za700za7za7_1905za7, "_string->mmap", 13);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2ze3bstringzd2envze3zz__mmapz00,
		BgL_bgl_za762mmapza7d2za7e3bst1906za7,
		BGl_z62mmapzd2ze3bstringz53zz__mmapz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_mmapzd2readzd2positionzd2setz12zd2envz12zz__mmapz00,
		BgL_bgl_za762mmapza7d2readza7d1907za7,
		BGl_z62mmapzd2readzd2positionzd2setz12za2zz__mmapz00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string1834z00zz__mmapz00,
		BgL_bgl_string1834za700za7za7_1908za7, "string->mmap", 12);
	      BGL_DEFINE_STRING(BGl_string1835z00zz__mmapz00,
		BgL_bgl_string1835za700za7za7_1909za7, "&mmap-name", 10);
	      BGL_DEFINE_STRING(BGl_string1836z00zz__mmapz00,
		BgL_bgl_string1836za700za7za7_1910za7, "mmap", 4);
	      BGL_DEFINE_STRING(BGl_string1837z00zz__mmapz00,
		BgL_bgl_string1837za700za7za7_1911za7, "&mmap->string", 13);
	      BGL_DEFINE_STRING(BGl_string1838z00zz__mmapz00,
		BgL_bgl_string1838za700za7za7_1912za7, "&mmap->bstring", 14);
	      BGL_DEFINE_STRING(BGl_string1839z00zz__mmapz00,
		BgL_bgl_string1839za700za7za7_1913za7, "&close-mmap", 11);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2setzd2urz12zd2envzc0zz__mmapz00,
		BgL_bgl_za762mmapza7d2setza7d21914za7,
		BGl_z62mmapzd2setzd2urz12z70zz__mmapz00, 0L, BUNSPEC, 3);
	      BGL_DEFINE_STRING(BGl_string1840z00zz__mmapz00,
		BgL_bgl_string1840za700za7za7_1915za7, "&mmap-length", 12);
	      BGL_DEFINE_STRING(BGl_string1841z00zz__mmapz00,
		BgL_bgl_string1841za700za7za7_1916za7, "&mmap-read-position", 19);
	      BGL_DEFINE_STRING(BGl_string1842z00zz__mmapz00,
		BgL_bgl_string1842za700za7za7_1917za7, "&mmap-read-position-set!", 24);
	      BGL_DEFINE_STRING(BGl_string1843z00zz__mmapz00,
		BgL_bgl_string1843za700za7za7_1918za7, "belong", 6);
	      BGL_DEFINE_STRING(BGl_string1844z00zz__mmapz00,
		BgL_bgl_string1844za700za7za7_1919za7, "&mmap-write-position", 20);
	      BGL_DEFINE_STRING(BGl_string1845z00zz__mmapz00,
		BgL_bgl_string1845za700za7za7_1920za7, "&mmap-write-position-set!", 25);
	      BGL_DEFINE_STRING(BGl_string1846z00zz__mmapz00,
		BgL_bgl_string1846za700za7za7_1921za7, "&mmap-ref-ur", 12);
	      BGL_DEFINE_STRING(BGl_string1847z00zz__mmapz00,
		BgL_bgl_string1847za700za7za7_1922za7, "&mmap-set-ur!", 13);
	      BGL_DEFINE_STRING(BGl_string1848z00zz__mmapz00,
		BgL_bgl_string1848za700za7za7_1923za7, "bchar", 5);
	      BGL_DEFINE_STRING(BGl_string1849z00zz__mmapz00,
		BgL_bgl_string1849za700za7za7_1924za7, "index out of range [0..", 23);
	      BGL_DEFINE_STRING(BGl_string1850z00zz__mmapz00,
		BgL_bgl_string1850za700za7za7_1925za7, "]", 1);
	      BGL_DEFINE_STRING(BGl_string1852z00zz__mmapz00,
		BgL_bgl_string1852za700za7za7_1926za7, "mmap-ref", 8);
	      BGL_DEFINE_STRING(BGl_string1853z00zz__mmapz00,
		BgL_bgl_string1853za700za7za7_1927za7, "&mmap-ref", 9);
	      BGL_DEFINE_STRING(BGl_string1855z00zz__mmapz00,
		BgL_bgl_string1855za700za7za7_1928za7, "mmap-set!", 9);
	      BGL_DEFINE_STRING(BGl_string1856z00zz__mmapz00,
		BgL_bgl_string1856za700za7za7_1929za7, "&mmap-set!", 10);
	      BGL_DEFINE_STRING(BGl_string1858z00zz__mmapz00,
		BgL_bgl_string1858za700za7za7_1930za7, "mmap-substring", 14);
	      BGL_DEFINE_STRING(BGl_string1859z00zz__mmapz00,
		BgL_bgl_string1859za700za7za7_1931za7, "length too small", 16);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2refzd2urzd2envzd2zz__mmapz00,
		BgL_bgl_za762mmapza7d2refza7d21932za7, BGl_z62mmapzd2refzd2urz62zz__mmapz00,
		0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string1860z00zz__mmapz00,
		BgL_bgl_string1860za700za7za7_1933za7, "Illegal index", 13);
	      BGL_DEFINE_STRING(BGl_string1861z00zz__mmapz00,
		BgL_bgl_string1861za700za7za7_1934za7, "start+length bigger than ", 25);
	      BGL_DEFINE_STRING(BGl_string1862z00zz__mmapz00,
		BgL_bgl_string1862za700za7za7_1935za7, "&mmap-substring", 15);
	      BGL_DEFINE_STRING(BGl_string1863z00zz__mmapz00,
		BgL_bgl_string1863za700za7za7_1936za7, "mmap-substring-set!", 19);
	      BGL_DEFINE_STRING(BGl_string1865z00zz__mmapz00,
		BgL_bgl_string1865za700za7za7_1937za7, "mmap-sbustring-set!", 19);
	      BGL_DEFINE_STRING(BGl_string1866z00zz__mmapz00,
		BgL_bgl_string1866za700za7za7_1938za7, "[", 1);
	      BGL_DEFINE_STRING(BGl_string1868z00zz__mmapz00,
		BgL_bgl_string1868za700za7za7_1939za7, "&mmap-substring-set!", 20);
	      BGL_DEFINE_STRING(BGl_string1869z00zz__mmapz00,
		BgL_bgl_string1869za700za7za7_1940za7, "&mmap-get-char", 14);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_mmapzd2substringzd2envz00zz__mmapz00,
		BgL_bgl_za762mmapza7d2substr1941z00, BGl_z62mmapzd2substringzb0zz__mmapz00,
		0L, BUNSPEC, 3);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_mmapzd2substringzd2envz00zz__mmapz00,
			BgL_bgl_za762mmapza7d2substr1941z00);
		BGL_BIND_STRING(BGl_string1869z00zz__mmapz00,
			BgL_bgl_string1869za700za7za7_1940za7);
		BGL_BIND_STRING(BGl_string1868z00zz__mmapz00,
			BgL_bgl_string1868za700za7za7_1939za7);
		BGL_BIND_STRING(BGl_string1866z00zz__mmapz00,
			BgL_bgl_string1866za700za7za7_1938za7);
		BGL_BIND_STRING(BGl_string1865z00zz__mmapz00,
			BgL_bgl_string1865za700za7za7_1937za7);
		BGL_BIND_STRING(BGl_string1863z00zz__mmapz00,
			BgL_bgl_string1863za700za7za7_1936za7);
		BGL_BIND_STRING(BGl_string1862z00zz__mmapz00,
			BgL_bgl_string1862za700za7za7_1935za7);
		BGL_BIND_STRING(BGl_string1861z00zz__mmapz00,
			BgL_bgl_string1861za700za7za7_1934za7);
		BGL_BIND_STRING(BGl_string1860z00zz__mmapz00,
			BgL_bgl_string1860za700za7za7_1933za7);
		BGL_BIND_PROCEDURE(BGl_mmapzd2refzd2urzd2envzd2zz__mmapz00,
			BgL_bgl_za762mmapza7d2refza7d21932za7);
		BGL_BIND_STRING(BGl_string1859z00zz__mmapz00,
			BgL_bgl_string1859za700za7za7_1931za7);
		BGL_BIND_STRING(BGl_string1858z00zz__mmapz00,
			BgL_bgl_string1858za700za7za7_1930za7);
		BGL_BIND_STRING(BGl_string1856z00zz__mmapz00,
			BgL_bgl_string1856za700za7za7_1929za7);
		BGL_BIND_STRING(BGl_string1855z00zz__mmapz00,
			BgL_bgl_string1855za700za7za7_1928za7);
		BGL_BIND_STRING(BGl_string1853z00zz__mmapz00,
			BgL_bgl_string1853za700za7za7_1927za7);
		BGL_BIND_STRING(BGl_string1852z00zz__mmapz00,
			BgL_bgl_string1852za700za7za7_1926za7);
		BGL_BIND_STRING(BGl_string1850z00zz__mmapz00,
			BgL_bgl_string1850za700za7za7_1925za7);
		BGL_BIND_STRING(BGl_string1849z00zz__mmapz00,
			BgL_bgl_string1849za700za7za7_1924za7);
		BGL_BIND_STRING(BGl_string1848z00zz__mmapz00,
			BgL_bgl_string1848za700za7za7_1923za7);
		BGL_BIND_STRING(BGl_string1847z00zz__mmapz00,
			BgL_bgl_string1847za700za7za7_1922za7);
		BGL_BIND_STRING(BGl_string1846z00zz__mmapz00,
			BgL_bgl_string1846za700za7za7_1921za7);
		BGL_BIND_STRING(BGl_string1845z00zz__mmapz00,
			BgL_bgl_string1845za700za7za7_1920za7);
		BGL_BIND_STRING(BGl_string1844z00zz__mmapz00,
			BgL_bgl_string1844za700za7za7_1919za7);
		BGL_BIND_STRING(BGl_string1843z00zz__mmapz00,
			BgL_bgl_string1843za700za7za7_1918za7);
		BGL_BIND_STRING(BGl_string1842z00zz__mmapz00,
			BgL_bgl_string1842za700za7za7_1917za7);
		BGL_BIND_STRING(BGl_string1841z00zz__mmapz00,
			BgL_bgl_string1841za700za7za7_1916za7);
		BGL_BIND_STRING(BGl_string1840z00zz__mmapz00,
			BgL_bgl_string1840za700za7za7_1915za7);
		BGL_BIND_PROCEDURE(BGl_mmapzd2setzd2urz12zd2envzc0zz__mmapz00,
			BgL_bgl_za762mmapza7d2setza7d21914za7);
		BGL_BIND_STRING(BGl_string1839z00zz__mmapz00,
			BgL_bgl_string1839za700za7za7_1913za7);
		BGL_BIND_STRING(BGl_string1838z00zz__mmapz00,
			BgL_bgl_string1838za700za7za7_1912za7);
		BGL_BIND_STRING(BGl_string1837z00zz__mmapz00,
			BgL_bgl_string1837za700za7za7_1911za7);
		BGL_BIND_STRING(BGl_string1836z00zz__mmapz00,
			BgL_bgl_string1836za700za7za7_1910za7);
		BGL_BIND_STRING(BGl_string1835z00zz__mmapz00,
			BgL_bgl_string1835za700za7za7_1909za7);
		BGL_BIND_STRING(BGl_string1834z00zz__mmapz00,
			BgL_bgl_string1834za700za7za7_1908za7);
		BGL_BIND_PROCEDURE(BGl_mmapzd2readzd2positionzd2setz12zd2envz12zz__mmapz00,
			BgL_bgl_za762mmapza7d2readza7d1907za7);
		BGL_BIND_PROCEDURE(BGl_mmapzd2ze3bstringzd2envze3zz__mmapz00,
			BgL_bgl_za762mmapza7d2za7e3bst1906za7);
		BGL_BIND_STRING(BGl_string1832z00zz__mmapz00,
			BgL_bgl_string1832za700za7za7_1905za7);
		BGL_BIND_STRING(BGl_string1831z00zz__mmapz00,
			BgL_bgl_string1831za700za7za7_1904za7);
		BGL_BIND_STRING(BGl_string1830z00zz__mmapz00,
			BgL_bgl_string1830za700za7za7_1903za7);
		BGL_BIND_STRING(BGl_string1829z00zz__mmapz00,
			BgL_bgl_string1829za700za7za7_1902za7);
		BGL_BIND_STRING(BGl_string1828z00zz__mmapz00,
			BgL_bgl_string1828za700za7za7_1901za7);
		BGL_BIND_STRING(BGl_string1827z00zz__mmapz00,
			BgL_bgl_string1827za700za7za7_1900za7);
		BGL_BIND_STRING(BGl_string1825z00zz__mmapz00,
			BgL_bgl_string1825za700za7za7_1899za7);
		BGL_BIND_STRING(BGl_string1823z00zz__mmapz00,
			BgL_bgl_string1823za700za7za7_1898za7);
		BGL_BIND_STRING(BGl_string1820z00zz__mmapz00,
			BgL_bgl_string1820za700za7za7_1897za7);
		BGL_BIND_STRING(BGl_string1819z00zz__mmapz00,
			BgL_bgl_string1819za700za7za7_1896za7);
		BGL_BIND_STRING(BGl_string1818z00zz__mmapz00,
			BgL_bgl_string1818za700za7za7_1895za7);
		BGL_BIND_PROCEDURE(BGl_mmapzd2ze3stringzd2envze3zz__mmapz00,
			BgL_bgl_za762mmapza7d2za7e3str1894za7);
		BGL_BIND_PROCEDURE(BGl_openzd2mmapzd2envz00zz__mmapz00,
			BgL_bgl__openza7d2mmapza7d2za71893za7);
		BGL_BIND_PROCEDURE(BGl_mmapzd2namezd2envz00zz__mmapz00,
			BgL_bgl_za762mmapza7d2nameza7b1892za7);
		BGL_BIND_PROCEDURE(BGl_mmapzd2refzd2envz00zz__mmapz00,
			BgL_bgl_za762mmapza7d2refza7b01891za7);
		BGL_BIND_PROCEDURE(BGl_mmapzd2getzd2charzd2envzd2zz__mmapz00,
			BgL_bgl_za762mmapza7d2getza7d21890za7);
		BGL_BIND_PROCEDURE(BGl_mmapzd2putzd2stringz12zd2envzc0zz__mmapz00,
			BgL_bgl_za762mmapza7d2putza7d21889za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2ze3mmapzd2envze3zz__mmapz00,
			BgL_bgl__stringza7d2za7e3mma1888z00);
		BGL_BIND_PROCEDURE(BGl_mmapzd2setz12zd2envz12zz__mmapz00,
			BgL_bgl_za762mmapza7d2setza7121887za7);
		BGL_BIND_PROCEDURE(BGl_mmapzd2readzd2positionzd2envzd2zz__mmapz00,
			BgL_bgl_za762mmapza7d2readza7d1886za7);
		BGL_BIND_PROCEDURE(BGl_mmapzd2substringzd2setz12zd2envzc0zz__mmapz00,
			BgL_bgl_za762mmapza7d2substr1885z00);
		BGL_BIND_PROCEDURE(BGl_closezd2mmapzd2envz00zz__mmapz00,
			BgL_bgl_za762closeza7d2mmapza71884za7);
		BGL_BIND_PROCEDURE(BGl_mmapzf3zd2envz21zz__mmapz00,
			BgL_bgl_za762mmapza7f3za791za7za7_1883za7);
		BGL_BIND_PROCEDURE(BGl_mmapzd2getzd2stringzd2envzd2zz__mmapz00,
			BgL_bgl_za762mmapza7d2getza7d21882za7);
		BGL_BIND_PROCEDURE(BGl_mmapzd2writezd2positionzd2setz12zd2envz12zz__mmapz00,
			BgL_bgl_za762mmapza7d2writeza71881za7);
		BGL_BIND_PROCEDURE(BGl_mmapzd2putzd2charz12zd2envzc0zz__mmapz00,
			BgL_bgl_za762mmapza7d2putza7d21880za7);
		BGL_BIND_PROCEDURE(BGl_mmapzd2lengthzd2envz00zz__mmapz00,
			BgL_bgl_za762mmapza7d2length1879z00);
		BGL_BIND_PROCEDURE(BGl_mmapzd2writezd2positionzd2envzd2zz__mmapz00,
			BgL_bgl_za762mmapza7d2writeza71878za7);
		BGL_BIND_STRING(BGl_string1873z00zz__mmapz00,
			BgL_bgl_string1873za700za7za7_1877za7);
		BGL_BIND_STRING(BGl_string1872z00zz__mmapz00,
			BgL_bgl_string1872za700za7za7_1876za7);
		BGL_BIND_STRING(BGl_string1871z00zz__mmapz00,
			BgL_bgl_string1871za700za7za7_1875za7);
		BGL_BIND_STRING(BGl_string1870z00zz__mmapz00,
			BgL_bgl_string1870za700za7za7_1874za7);
	}

/* 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_symbol1833z00zz__mmapz00));
		ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__mmapz00));
		ADD_ROOT((void *) (&BGl_symbol1851z00zz__mmapz00));
		ADD_ROOT((void *) (&BGl_symbol1854z00zz__mmapz00));
		ADD_ROOT((void *) (&BGl_list1821z00zz__mmapz00));
		ADD_ROOT((void *) (&BGl_symbol1857z00zz__mmapz00));
		ADD_ROOT((void *) (&BGl_symbol1864z00zz__mmapz00));
		ADD_ROOT((void *) (&BGl_symbol1867z00zz__mmapz00));
		ADD_ROOT((void *) (&BGl_keyword1822z00zz__mmapz00));
		ADD_ROOT((void *) (&BGl_keyword1824z00zz__mmapz00));
		ADD_ROOT((void *) (&BGl_symbol1826z00zz__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_2400, char *BgL_fromz00_2401)
	{
		{
			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_keyword1822z00zz__mmapz00 =
				bstring_to_keyword(BGl_string1823z00zz__mmapz00);
			BGl_keyword1824z00zz__mmapz00 =
				bstring_to_keyword(BGl_string1825z00zz__mmapz00);
			BGl_list1821z00zz__mmapz00 =
				MAKE_YOUNG_PAIR(BGl_keyword1822z00zz__mmapz00,
				MAKE_YOUNG_PAIR(BGl_keyword1824z00zz__mmapz00, BNIL));
			BGl_symbol1826z00zz__mmapz00 =
				bstring_to_symbol(BGl_string1827z00zz__mmapz00);
			BGl_symbol1833z00zz__mmapz00 =
				bstring_to_symbol(BGl_string1834z00zz__mmapz00);
			BGl_symbol1851z00zz__mmapz00 =
				bstring_to_symbol(BGl_string1852z00zz__mmapz00);
			BGl_symbol1854z00zz__mmapz00 =
				bstring_to_symbol(BGl_string1855z00zz__mmapz00);
			BGl_symbol1857z00zz__mmapz00 =
				bstring_to_symbol(BGl_string1858z00zz__mmapz00);
			BGl_symbol1864z00zz__mmapz00 =
				bstring_to_symbol(BGl_string1865z00zz__mmapz00);
			return (BGl_symbol1867z00zz__mmapz00 =
				bstring_to_symbol(BGl_string1863z00zz__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_2206,
		obj_t BgL_objz00_2207)
	{
		{	/* Llib/mmap.scm 117 */
			return BBOOL(BGl_mmapzf3zf3zz__mmapz00(BgL_objz00_2207));
		}

	}



/* _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_1697;

					if (VECTORP(BgL_opt1099z00_7))
						{	/* Llib/mmap.scm 123 */
							BgL_vectorz00_1697 = BgL_opt1099z00_7;
						}
					else
						{
							obj_t BgL_auxz00_2427;

							BgL_auxz00_2427 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
								BINT(5352L), BGl_string1819z00zz__mmapz00,
								BGl_string1820z00zz__mmapz00, BgL_opt1099z00_7);
							FAILURE(BgL_auxz00_2427, BFALSE, BFALSE);
						}
					BgL_l1101z00_1143 = VECTOR_LENGTH(BgL_vectorz00_1697);
				}
				{	/* Llib/mmap.scm 123 */
					obj_t BgL_g1107z00_1147;

					{
						obj_t BgL_auxz00_2432;

						if (VECTORP(BgL_opt1099z00_7))
							{	/* Llib/mmap.scm 123 */
								BgL_auxz00_2432 = BgL_opt1099z00_7;
							}
						else
							{
								obj_t BgL_auxz00_2435;

								BgL_auxz00_2435 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
									BINT(5352L), BGl_string1819z00zz__mmapz00,
									BGl_string1820z00zz__mmapz00, BgL_opt1099z00_7);
								FAILURE(BgL_auxz00_2435, BFALSE, BFALSE);
							}
						BgL_g1107z00_1147 = VECTOR_REF(BgL_auxz00_2432, 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_test1946z00_2442;

											{	/* Llib/mmap.scm 123 */
												obj_t BgL_arg1196z00_1157;

												BgL_arg1196z00_1157 =
													VECTOR_REF(((obj_t) BgL_opt1099z00_7), BgL_iz00_1150);
												BgL_test1946z00_2442 =
													CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
													(BgL_arg1196z00_1157, BGl_list1821z00zz__mmapz00));
											}
											if (BgL_test1946z00_2442)
												{
													long BgL_iz00_2447;

													BgL_iz00_2447 = (BgL_iz00_1150 + 2L);
													BgL_iz00_1150 = BgL_iz00_2447;
													goto BgL_check1103z00_1151;
												}
											else
												{	/* Llib/mmap.scm 123 */
													obj_t BgL_arg1195z00_1156;

													BgL_arg1195z00_1156 =
														VECTOR_REF(
														((obj_t) BgL_opt1099z00_7), BgL_iz00_1150);
													BGl_errorz00zz__errorz00(BGl_symbol1826z00zz__mmapz00,
														BGl_string1828z00zz__mmapz00, BgL_arg1195z00_1156);
												}
										}
								}
								{	/* Llib/mmap.scm 123 */
									obj_t BgL_index1105z00_1158;

									{
										long BgL_iz00_1713;

										BgL_iz00_1713 = 1L;
									BgL_search1102z00_1712:
										if ((BgL_iz00_1713 == BgL_l1101z00_1143))
											{	/* Llib/mmap.scm 123 */
												BgL_index1105z00_1158 = BINT((-1L));
											}
										else
											{	/* Llib/mmap.scm 123 */
												if ((BgL_iz00_1713 == (BgL_l1101z00_1143 - 1L)))
													{	/* Llib/mmap.scm 123 */
														BgL_index1105z00_1158 =
															BGl_errorz00zz__errorz00
															(BGl_symbol1826z00zz__mmapz00,
															BGl_string1829z00zz__mmapz00,
															BINT(VECTOR_LENGTH(BgL_opt1099z00_7)));
													}
												else
													{	/* Llib/mmap.scm 123 */
														obj_t BgL_vz00_1723;

														BgL_vz00_1723 =
															VECTOR_REF(BgL_opt1099z00_7, BgL_iz00_1713);
														if (
															(BgL_vz00_1723 == BGl_keyword1822z00zz__mmapz00))
															{	/* Llib/mmap.scm 123 */
																BgL_index1105z00_1158 =
																	BINT((BgL_iz00_1713 + 1L));
															}
														else
															{
																long BgL_iz00_2466;

																BgL_iz00_2466 = (BgL_iz00_1713 + 2L);
																BgL_iz00_1713 = BgL_iz00_2466;
																goto BgL_search1102z00_1712;
															}
													}
											}
									}
									{	/* Llib/mmap.scm 123 */
										bool_t BgL_test1950z00_2468;

										{	/* Llib/mmap.scm 123 */
											long BgL_n1z00_1727;

											{	/* Llib/mmap.scm 123 */
												obj_t BgL_tmpz00_2469;

												if (INTEGERP(BgL_index1105z00_1158))
													{	/* Llib/mmap.scm 123 */
														BgL_tmpz00_2469 = BgL_index1105z00_1158;
													}
												else
													{
														obj_t BgL_auxz00_2472;

														BgL_auxz00_2472 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string1818z00zz__mmapz00, BINT(5352L),
															BGl_string1819z00zz__mmapz00,
															BGl_string1830z00zz__mmapz00,
															BgL_index1105z00_1158);
														FAILURE(BgL_auxz00_2472, BFALSE, BFALSE);
													}
												BgL_n1z00_1727 = (long) CINT(BgL_tmpz00_2469);
											}
											BgL_test1950z00_2468 = (BgL_n1z00_1727 >= 0L);
										}
										if (BgL_test1950z00_2468)
											{
												long BgL_auxz00_2485;
												obj_t BgL_auxz00_2478;

												{	/* Llib/mmap.scm 123 */
													obj_t BgL_tmpz00_2486;

													if (INTEGERP(BgL_index1105z00_1158))
														{	/* Llib/mmap.scm 123 */
															BgL_tmpz00_2486 = BgL_index1105z00_1158;
														}
													else
														{
															obj_t BgL_auxz00_2489;

															BgL_auxz00_2489 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string1818z00zz__mmapz00, BINT(5352L),
																BGl_string1819z00zz__mmapz00,
																BGl_string1830z00zz__mmapz00,
																BgL_index1105z00_1158);
															FAILURE(BgL_auxz00_2489, BFALSE, BFALSE);
														}
													BgL_auxz00_2485 = (long) CINT(BgL_tmpz00_2486);
												}
												if (VECTORP(BgL_opt1099z00_7))
													{	/* Llib/mmap.scm 123 */
														BgL_auxz00_2478 = BgL_opt1099z00_7;
													}
												else
													{
														obj_t BgL_auxz00_2481;

														BgL_auxz00_2481 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string1818z00zz__mmapz00, BINT(5352L),
															BGl_string1819z00zz__mmapz00,
															BGl_string1820z00zz__mmapz00, BgL_opt1099z00_7);
														FAILURE(BgL_auxz00_2481, BFALSE, BFALSE);
													}
												BgL_readz00_1148 =
													VECTOR_REF(BgL_auxz00_2478, BgL_auxz00_2485);
											}
										else
											{	/* Llib/mmap.scm 123 */
												BFALSE;
											}
									}
								}
								{	/* Llib/mmap.scm 123 */
									obj_t BgL_index1106z00_1160;

									{
										long BgL_iz00_1729;

										BgL_iz00_1729 = 1L;
									BgL_search1102z00_1728:
										if ((BgL_iz00_1729 == BgL_l1101z00_1143))
											{	/* Llib/mmap.scm 123 */
												BgL_index1106z00_1160 = BINT((-1L));
											}
										else
											{	/* Llib/mmap.scm 123 */
												if ((BgL_iz00_1729 == (BgL_l1101z00_1143 - 1L)))
													{	/* Llib/mmap.scm 123 */
														BgL_index1106z00_1160 =
															BGl_errorz00zz__errorz00
															(BGl_symbol1826z00zz__mmapz00,
															BGl_string1829z00zz__mmapz00,
															BINT(VECTOR_LENGTH(BgL_opt1099z00_7)));
													}
												else
													{	/* Llib/mmap.scm 123 */
														obj_t BgL_vz00_1739;

														BgL_vz00_1739 =
															VECTOR_REF(BgL_opt1099z00_7, BgL_iz00_1729);
														if (
															(BgL_vz00_1739 == BGl_keyword1824z00zz__mmapz00))
															{	/* Llib/mmap.scm 123 */
																BgL_index1106z00_1160 =
																	BINT((BgL_iz00_1729 + 1L));
															}
														else
															{
																long BgL_iz00_2509;

																BgL_iz00_2509 = (BgL_iz00_1729 + 2L);
																BgL_iz00_1729 = BgL_iz00_2509;
																goto BgL_search1102z00_1728;
															}
													}
											}
									}
									{	/* Llib/mmap.scm 123 */
										bool_t BgL_test1957z00_2511;

										{	/* Llib/mmap.scm 123 */
											long BgL_n1z00_1743;

											{	/* Llib/mmap.scm 123 */
												obj_t BgL_tmpz00_2512;

												if (INTEGERP(BgL_index1106z00_1160))
													{	/* Llib/mmap.scm 123 */
														BgL_tmpz00_2512 = BgL_index1106z00_1160;
													}
												else
													{
														obj_t BgL_auxz00_2515;

														BgL_auxz00_2515 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string1818z00zz__mmapz00, BINT(5352L),
															BGl_string1819z00zz__mmapz00,
															BGl_string1830z00zz__mmapz00,
															BgL_index1106z00_1160);
														FAILURE(BgL_auxz00_2515, BFALSE, BFALSE);
													}
												BgL_n1z00_1743 = (long) CINT(BgL_tmpz00_2512);
											}
											BgL_test1957z00_2511 = (BgL_n1z00_1743 >= 0L);
										}
										if (BgL_test1957z00_2511)
											{
												long BgL_auxz00_2528;
												obj_t BgL_auxz00_2521;

												{	/* Llib/mmap.scm 123 */
													obj_t BgL_tmpz00_2529;

													if (INTEGERP(BgL_index1106z00_1160))
														{	/* Llib/mmap.scm 123 */
															BgL_tmpz00_2529 = BgL_index1106z00_1160;
														}
													else
														{
															obj_t BgL_auxz00_2532;

															BgL_auxz00_2532 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string1818z00zz__mmapz00, BINT(5352L),
																BGl_string1819z00zz__mmapz00,
																BGl_string1830z00zz__mmapz00,
																BgL_index1106z00_1160);
															FAILURE(BgL_auxz00_2532, BFALSE, BFALSE);
														}
													BgL_auxz00_2528 = (long) CINT(BgL_tmpz00_2529);
												}
												if (VECTORP(BgL_opt1099z00_7))
													{	/* Llib/mmap.scm 123 */
														BgL_auxz00_2521 = BgL_opt1099z00_7;
													}
												else
													{
														obj_t BgL_auxz00_2524;

														BgL_auxz00_2524 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string1818z00zz__mmapz00, BINT(5352L),
															BGl_string1819z00zz__mmapz00,
															BGl_string1820z00zz__mmapz00, BgL_opt1099z00_7);
														FAILURE(BgL_auxz00_2524, BFALSE, BFALSE);
													}
												BgL_writez00_1149 =
													VECTOR_REF(BgL_auxz00_2521, BgL_auxz00_2528);
											}
										else
											{	/* Llib/mmap.scm 123 */
												BFALSE;
											}
									}
								}
								{	/* Llib/mmap.scm 123 */
									obj_t BgL_arg1201z00_1162;

									{
										obj_t BgL_auxz00_2538;

										if (VECTORP(BgL_opt1099z00_7))
											{	/* Llib/mmap.scm 123 */
												BgL_auxz00_2538 = BgL_opt1099z00_7;
											}
										else
											{
												obj_t BgL_auxz00_2541;

												BgL_auxz00_2541 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string1818z00zz__mmapz00, BINT(5352L),
													BGl_string1819z00zz__mmapz00,
													BGl_string1820z00zz__mmapz00, BgL_opt1099z00_7);
												FAILURE(BgL_auxz00_2541, BFALSE, BFALSE);
											}
										BgL_arg1201z00_1162 = VECTOR_REF(BgL_auxz00_2538, 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_1744;

												if (STRINGP(BgL_arg1201z00_1162))
													{	/* Llib/mmap.scm 123 */
														BgL_namez00_1744 = BgL_arg1201z00_1162;
													}
												else
													{
														obj_t BgL_auxz00_2548;

														BgL_auxz00_2548 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string1818z00zz__mmapz00, BINT(5352L),
															BGl_string1819z00zz__mmapz00,
															BGl_string1831z00zz__mmapz00,
															BgL_arg1201z00_1162);
														FAILURE(BgL_auxz00_2548, BFALSE, BFALSE);
													}
												{	/* Llib/mmap.scm 124 */
													bool_t BgL_auxz00_2554;
													bool_t BgL_tmpz00_2552;

													BgL_auxz00_2554 = CBOOL(BgL_writez00_1164);
													BgL_tmpz00_2552 = CBOOL(BgL_readz00_1163);
													return
														bgl_open_mmap(BgL_namez00_1744, BgL_tmpz00_2552,
														BgL_auxz00_2554);
												}
											}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* 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_2559;
				bool_t BgL_tmpz00_2557;

				BgL_auxz00_2559 = CBOOL(BgL_writez00_6);
				BgL_tmpz00_2557 = CBOOL(BgL_readz00_5);
				return bgl_open_mmap(BgL_namez00_4, BgL_tmpz00_2557, BgL_auxz00_2559);
			}
		}

	}



/* _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_1745;

					if (VECTORP(BgL_opt1108z00_12))
						{	/* Llib/mmap.scm 129 */
							BgL_vectorz00_1745 = BgL_opt1108z00_12;
						}
					else
						{
							obj_t BgL_auxz00_2564;

							BgL_auxz00_2564 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
								BINT(5669L), BGl_string1832z00zz__mmapz00,
								BGl_string1820z00zz__mmapz00, BgL_opt1108z00_12);
							FAILURE(BgL_auxz00_2564, BFALSE, BFALSE);
						}
					BgL_l1110z00_1172 = VECTOR_LENGTH(BgL_vectorz00_1745);
				}
				{	/* Llib/mmap.scm 129 */
					obj_t BgL_g1116z00_1176;

					{
						obj_t BgL_auxz00_2569;

						if (VECTORP(BgL_opt1108z00_12))
							{	/* Llib/mmap.scm 129 */
								BgL_auxz00_2569 = BgL_opt1108z00_12;
							}
						else
							{
								obj_t BgL_auxz00_2572;

								BgL_auxz00_2572 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
									BINT(5669L), BGl_string1832z00zz__mmapz00,
									BGl_string1820z00zz__mmapz00, BgL_opt1108z00_12);
								FAILURE(BgL_auxz00_2572, BFALSE, BFALSE);
							}
						BgL_g1116z00_1176 = VECTOR_REF(BgL_auxz00_2569, 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_test1966z00_2579;

											{	/* Llib/mmap.scm 129 */
												obj_t BgL_arg1216z00_1186;

												BgL_arg1216z00_1186 =
													VECTOR_REF(
													((obj_t) BgL_opt1108z00_12), BgL_iz00_1179);
												BgL_test1966z00_2579 =
													CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
													(BgL_arg1216z00_1186, BGl_list1821z00zz__mmapz00));
											}
											if (BgL_test1966z00_2579)
												{
													long BgL_iz00_2584;

													BgL_iz00_2584 = (BgL_iz00_1179 + 2L);
													BgL_iz00_1179 = BgL_iz00_2584;
													goto BgL_check1112z00_1180;
												}
											else
												{	/* Llib/mmap.scm 129 */
													obj_t BgL_arg1215z00_1185;

													BgL_arg1215z00_1185 =
														VECTOR_REF(
														((obj_t) BgL_opt1108z00_12), BgL_iz00_1179);
													BGl_errorz00zz__errorz00(BGl_symbol1833z00zz__mmapz00,
														BGl_string1828z00zz__mmapz00, BgL_arg1215z00_1185);
												}
										}
								}
								{	/* Llib/mmap.scm 129 */
									obj_t BgL_index1114z00_1187;

									{
										long BgL_iz00_1761;

										BgL_iz00_1761 = 1L;
									BgL_search1111z00_1760:
										if ((BgL_iz00_1761 == BgL_l1110z00_1172))
											{	/* Llib/mmap.scm 129 */
												BgL_index1114z00_1187 = BINT((-1L));
											}
										else
											{	/* Llib/mmap.scm 129 */
												if ((BgL_iz00_1761 == (BgL_l1110z00_1172 - 1L)))
													{	/* Llib/mmap.scm 129 */
														BgL_index1114z00_1187 =
															BGl_errorz00zz__errorz00
															(BGl_symbol1833z00zz__mmapz00,
															BGl_string1829z00zz__mmapz00,
															BINT(VECTOR_LENGTH(BgL_opt1108z00_12)));
													}
												else
													{	/* Llib/mmap.scm 129 */
														obj_t BgL_vz00_1771;

														BgL_vz00_1771 =
															VECTOR_REF(BgL_opt1108z00_12, BgL_iz00_1761);
														if (
															(BgL_vz00_1771 == BGl_keyword1822z00zz__mmapz00))
															{	/* Llib/mmap.scm 129 */
																BgL_index1114z00_1187 =
																	BINT((BgL_iz00_1761 + 1L));
															}
														else
															{
																long BgL_iz00_2603;

																BgL_iz00_2603 = (BgL_iz00_1761 + 2L);
																BgL_iz00_1761 = BgL_iz00_2603;
																goto BgL_search1111z00_1760;
															}
													}
											}
									}
									{	/* Llib/mmap.scm 129 */
										bool_t BgL_test1970z00_2605;

										{	/* Llib/mmap.scm 129 */
											long BgL_n1z00_1775;

											{	/* Llib/mmap.scm 129 */
												obj_t BgL_tmpz00_2606;

												if (INTEGERP(BgL_index1114z00_1187))
													{	/* Llib/mmap.scm 129 */
														BgL_tmpz00_2606 = BgL_index1114z00_1187;
													}
												else
													{
														obj_t BgL_auxz00_2609;

														BgL_auxz00_2609 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string1818z00zz__mmapz00, BINT(5669L),
															BGl_string1832z00zz__mmapz00,
															BGl_string1830z00zz__mmapz00,
															BgL_index1114z00_1187);
														FAILURE(BgL_auxz00_2609, BFALSE, BFALSE);
													}
												BgL_n1z00_1775 = (long) CINT(BgL_tmpz00_2606);
											}
											BgL_test1970z00_2605 = (BgL_n1z00_1775 >= 0L);
										}
										if (BgL_test1970z00_2605)
											{
												long BgL_auxz00_2622;
												obj_t BgL_auxz00_2615;

												{	/* Llib/mmap.scm 129 */
													obj_t BgL_tmpz00_2623;

													if (INTEGERP(BgL_index1114z00_1187))
														{	/* Llib/mmap.scm 129 */
															BgL_tmpz00_2623 = BgL_index1114z00_1187;
														}
													else
														{
															obj_t BgL_auxz00_2626;

															BgL_auxz00_2626 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string1818z00zz__mmapz00, BINT(5669L),
																BGl_string1832z00zz__mmapz00,
																BGl_string1830z00zz__mmapz00,
																BgL_index1114z00_1187);
															FAILURE(BgL_auxz00_2626, BFALSE, BFALSE);
														}
													BgL_auxz00_2622 = (long) CINT(BgL_tmpz00_2623);
												}
												if (VECTORP(BgL_opt1108z00_12))
													{	/* Llib/mmap.scm 129 */
														BgL_auxz00_2615 = BgL_opt1108z00_12;
													}
												else
													{
														obj_t BgL_auxz00_2618;

														BgL_auxz00_2618 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string1818z00zz__mmapz00, BINT(5669L),
															BGl_string1832z00zz__mmapz00,
															BGl_string1820z00zz__mmapz00, BgL_opt1108z00_12);
														FAILURE(BgL_auxz00_2618, BFALSE, BFALSE);
													}
												BgL_readz00_1177 =
													VECTOR_REF(BgL_auxz00_2615, BgL_auxz00_2622);
											}
										else
											{	/* Llib/mmap.scm 129 */
												BFALSE;
											}
									}
								}
								{	/* Llib/mmap.scm 129 */
									obj_t BgL_index1115z00_1189;

									{
										long BgL_iz00_1777;

										BgL_iz00_1777 = 1L;
									BgL_search1111z00_1776:
										if ((BgL_iz00_1777 == BgL_l1110z00_1172))
											{	/* Llib/mmap.scm 129 */
												BgL_index1115z00_1189 = BINT((-1L));
											}
										else
											{	/* Llib/mmap.scm 129 */
												if ((BgL_iz00_1777 == (BgL_l1110z00_1172 - 1L)))
													{	/* Llib/mmap.scm 129 */
														BgL_index1115z00_1189 =
															BGl_errorz00zz__errorz00
															(BGl_symbol1833z00zz__mmapz00,
															BGl_string1829z00zz__mmapz00,
															BINT(VECTOR_LENGTH(BgL_opt1108z00_12)));
													}
												else
													{	/* Llib/mmap.scm 129 */
														obj_t BgL_vz00_1787;

														BgL_vz00_1787 =
															VECTOR_REF(BgL_opt1108z00_12, BgL_iz00_1777);
														if (
															(BgL_vz00_1787 == BGl_keyword1824z00zz__mmapz00))
															{	/* Llib/mmap.scm 129 */
																BgL_index1115z00_1189 =
																	BINT((BgL_iz00_1777 + 1L));
															}
														else
															{
																long BgL_iz00_2646;

																BgL_iz00_2646 = (BgL_iz00_1777 + 2L);
																BgL_iz00_1777 = BgL_iz00_2646;
																goto BgL_search1111z00_1776;
															}
													}
											}
									}
									{	/* Llib/mmap.scm 129 */
										bool_t BgL_test1977z00_2648;

										{	/* Llib/mmap.scm 129 */
											long BgL_n1z00_1791;

											{	/* Llib/mmap.scm 129 */
												obj_t BgL_tmpz00_2649;

												if (INTEGERP(BgL_index1115z00_1189))
													{	/* Llib/mmap.scm 129 */
														BgL_tmpz00_2649 = BgL_index1115z00_1189;
													}
												else
													{
														obj_t BgL_auxz00_2652;

														BgL_auxz00_2652 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string1818z00zz__mmapz00, BINT(5669L),
															BGl_string1832z00zz__mmapz00,
															BGl_string1830z00zz__mmapz00,
															BgL_index1115z00_1189);
														FAILURE(BgL_auxz00_2652, BFALSE, BFALSE);
													}
												BgL_n1z00_1791 = (long) CINT(BgL_tmpz00_2649);
											}
											BgL_test1977z00_2648 = (BgL_n1z00_1791 >= 0L);
										}
										if (BgL_test1977z00_2648)
											{
												long BgL_auxz00_2665;
												obj_t BgL_auxz00_2658;

												{	/* Llib/mmap.scm 129 */
													obj_t BgL_tmpz00_2666;

													if (INTEGERP(BgL_index1115z00_1189))
														{	/* Llib/mmap.scm 129 */
															BgL_tmpz00_2666 = BgL_index1115z00_1189;
														}
													else
														{
															obj_t BgL_auxz00_2669;

															BgL_auxz00_2669 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string1818z00zz__mmapz00, BINT(5669L),
																BGl_string1832z00zz__mmapz00,
																BGl_string1830z00zz__mmapz00,
																BgL_index1115z00_1189);
															FAILURE(BgL_auxz00_2669, BFALSE, BFALSE);
														}
													BgL_auxz00_2665 = (long) CINT(BgL_tmpz00_2666);
												}
												if (VECTORP(BgL_opt1108z00_12))
													{	/* Llib/mmap.scm 129 */
														BgL_auxz00_2658 = BgL_opt1108z00_12;
													}
												else
													{
														obj_t BgL_auxz00_2661;

														BgL_auxz00_2661 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string1818z00zz__mmapz00, BINT(5669L),
															BGl_string1832z00zz__mmapz00,
															BGl_string1820z00zz__mmapz00, BgL_opt1108z00_12);
														FAILURE(BgL_auxz00_2661, BFALSE, BFALSE);
													}
												BgL_writez00_1178 =
													VECTOR_REF(BgL_auxz00_2658, BgL_auxz00_2665);
											}
										else
											{	/* Llib/mmap.scm 129 */
												BFALSE;
											}
									}
								}
								{	/* Llib/mmap.scm 129 */
									obj_t BgL_arg1219z00_1191;

									{
										obj_t BgL_auxz00_2675;

										if (VECTORP(BgL_opt1108z00_12))
											{	/* Llib/mmap.scm 129 */
												BgL_auxz00_2675 = BgL_opt1108z00_12;
											}
										else
											{
												obj_t BgL_auxz00_2678;

												BgL_auxz00_2678 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string1818z00zz__mmapz00, BINT(5669L),
													BGl_string1832z00zz__mmapz00,
													BGl_string1820z00zz__mmapz00, BgL_opt1108z00_12);
												FAILURE(BgL_auxz00_2678, BFALSE, BFALSE);
											}
										BgL_arg1219z00_1191 = VECTOR_REF(BgL_auxz00_2675, 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_1792;

												if (STRINGP(BgL_arg1219z00_1191))
													{	/* Llib/mmap.scm 129 */
														BgL_sz00_1792 = BgL_arg1219z00_1191;
													}
												else
													{
														obj_t BgL_auxz00_2685;

														BgL_auxz00_2685 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string1818z00zz__mmapz00, BINT(5669L),
															BGl_string1832z00zz__mmapz00,
															BGl_string1831z00zz__mmapz00,
															BgL_arg1219z00_1191);
														FAILURE(BgL_auxz00_2685, BFALSE, BFALSE);
													}
												{	/* Llib/mmap.scm 130 */
													bool_t BgL_auxz00_2691;
													bool_t BgL_tmpz00_2689;

													BgL_auxz00_2691 = CBOOL(BgL_writez00_1193);
													BgL_tmpz00_2689 = CBOOL(BgL_readz00_1192);
													return
														bgl_string_to_mmap(BgL_sz00_1792, BgL_tmpz00_2689,
														BgL_auxz00_2691);
												}
											}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* 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_2696;
				bool_t BgL_tmpz00_2694;

				BgL_auxz00_2696 = CBOOL(BgL_writez00_11);
				BgL_tmpz00_2694 = CBOOL(BgL_readz00_10);
				return bgl_string_to_mmap(BgL_sz00_9, BgL_tmpz00_2694, BgL_auxz00_2696);
			}
		}

	}



/* mmap-name */
	BGL_EXPORTED_DEF obj_t BGl_mmapzd2namezd2zz__mmapz00(obj_t BgL_mmapz00_14)
	{
		{	/* Llib/mmap.scm 135 */
			return BGL_MMAP_NAME(BgL_mmapz00_14);
		}

	}



/* &mmap-name */
	obj_t BGl_z62mmapzd2namezb0zz__mmapz00(obj_t BgL_envz00_2208,
		obj_t BgL_mmapz00_2209)
	{
		{	/* Llib/mmap.scm 135 */
			{	/* Llib/mmap.scm 136 */
				obj_t BgL_auxz00_2700;

				if (BGL_MMAPP(BgL_mmapz00_2209))
					{	/* Llib/mmap.scm 136 */
						BgL_auxz00_2700 = BgL_mmapz00_2209;
					}
				else
					{
						obj_t BgL_auxz00_2703;

						BgL_auxz00_2703 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
							BINT(6027L), BGl_string1835z00zz__mmapz00,
							BGl_string1836z00zz__mmapz00, BgL_mmapz00_2209);
						FAILURE(BgL_auxz00_2703, BFALSE, BFALSE);
					}
				return BGl_mmapzd2namezd2zz__mmapz00(BgL_auxz00_2700);
			}
		}

	}



/* 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_2210,
		obj_t BgL_mmapz00_2211)
	{
		{	/* Llib/mmap.scm 141 */
			{	/* Llib/mmap.scm 142 */
				char *BgL_tmpz00_2709;

				{	/* Llib/mmap.scm 142 */
					obj_t BgL_auxz00_2710;

					if (BGL_MMAPP(BgL_mmapz00_2211))
						{	/* Llib/mmap.scm 142 */
							BgL_auxz00_2710 = BgL_mmapz00_2211;
						}
					else
						{
							obj_t BgL_auxz00_2713;

							BgL_auxz00_2713 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
								BINT(6321L), BGl_string1837z00zz__mmapz00,
								BGl_string1836z00zz__mmapz00, BgL_mmapz00_2211);
							FAILURE(BgL_auxz00_2713, BFALSE, BFALSE);
						}
					BgL_tmpz00_2709 = BGl_mmapzd2ze3stringz31zz__mmapz00(BgL_auxz00_2710);
				}
				return string_to_bstring(BgL_tmpz00_2709);
			}
		}

	}



/* 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_2370;

				{	/* Llib/mmap.scm 148 */
					long BgL_arg1234z00_2371;

					BgL_arg1234z00_2371 = BGL_MMAP_LENGTH(BgL_mmapz00_16);
					BgL_lenz00_2370 = (int) ((long) (BgL_arg1234z00_2371));
				}
				{	/* Llib/mmap.scm 149 */
					char *BgL_arg1232z00_2372;

					BgL_arg1232z00_2372 = BGL_MMAP_TO_STRING(BgL_mmapz00_16);
					return string_to_bstring_len(BgL_arg1232z00_2372, BgL_lenz00_2370);
				}
			}
		}

	}



/* &mmap->bstring */
	obj_t BGl_z62mmapzd2ze3bstringz53zz__mmapz00(obj_t BgL_envz00_2212,
		obj_t BgL_mmapz00_2213)
	{
		{	/* Llib/mmap.scm 147 */
			{	/* Llib/mmap.scm 148 */
				obj_t BgL_auxz00_2724;

				if (BGL_MMAPP(BgL_mmapz00_2213))
					{	/* Llib/mmap.scm 148 */
						BgL_auxz00_2724 = BgL_mmapz00_2213;
					}
				else
					{
						obj_t BgL_auxz00_2727;

						BgL_auxz00_2727 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
							BINT(6620L), BGl_string1838z00zz__mmapz00,
							BGl_string1836z00zz__mmapz00, BgL_mmapz00_2213);
						FAILURE(BgL_auxz00_2727, BFALSE, BFALSE);
					}
				return BGl_mmapzd2ze3bstringz31zz__mmapz00(BgL_auxz00_2724);
			}
		}

	}



/* 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_2214,
		obj_t BgL_mmapz00_2215)
	{
		{	/* Llib/mmap.scm 154 */
			{	/* Llib/mmap.scm 155 */
				obj_t BgL_auxz00_2733;

				if (BGL_MMAPP(BgL_mmapz00_2215))
					{	/* Llib/mmap.scm 155 */
						BgL_auxz00_2733 = BgL_mmapz00_2215;
					}
				else
					{
						obj_t BgL_auxz00_2736;

						BgL_auxz00_2736 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
							BINT(6996L), BGl_string1839z00zz__mmapz00,
							BGl_string1836z00zz__mmapz00, BgL_mmapz00_2215);
						FAILURE(BgL_auxz00_2736, BFALSE, BFALSE);
					}
				return BGl_closezd2mmapzd2zz__mmapz00(BgL_auxz00_2733);
			}
		}

	}



/* 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_2216,
		obj_t BgL_objz00_2217)
	{
		{	/* Llib/mmap.scm 160 */
			{	/* Llib/mmap.scm 161 */
				long BgL_tmpz00_2742;

				{	/* Llib/mmap.scm 161 */
					obj_t BgL_auxz00_2743;

					if (BGL_MMAPP(BgL_objz00_2217))
						{	/* Llib/mmap.scm 161 */
							BgL_auxz00_2743 = BgL_objz00_2217;
						}
					else
						{
							obj_t BgL_auxz00_2746;

							BgL_auxz00_2746 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
								BINT(7281L), BGl_string1840z00zz__mmapz00,
								BGl_string1836z00zz__mmapz00, BgL_objz00_2217);
							FAILURE(BgL_auxz00_2746, BFALSE, BFALSE);
						}
					BgL_tmpz00_2742 = BGl_mmapzd2lengthzd2zz__mmapz00(BgL_auxz00_2743);
				}
				return make_belong(BgL_tmpz00_2742);
			}
		}

	}



/* 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_2218,
		obj_t BgL_mmz00_2219)
	{
		{	/* Llib/mmap.scm 166 */
			{	/* Llib/mmap.scm 167 */
				long BgL_tmpz00_2753;

				{	/* Llib/mmap.scm 167 */
					obj_t BgL_auxz00_2754;

					if (BGL_MMAPP(BgL_mmz00_2219))
						{	/* Llib/mmap.scm 167 */
							BgL_auxz00_2754 = BgL_mmz00_2219;
						}
					else
						{
							obj_t BgL_auxz00_2757;

							BgL_auxz00_2757 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
								BINT(7572L), BGl_string1841z00zz__mmapz00,
								BGl_string1836z00zz__mmapz00, BgL_mmz00_2219);
							FAILURE(BgL_auxz00_2757, BFALSE, BFALSE);
						}
					BgL_tmpz00_2753 =
						BGl_mmapzd2readzd2positionz00zz__mmapz00(BgL_auxz00_2754);
				}
				return make_belong(BgL_tmpz00_2753);
			}
		}

	}



/* 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_2220, obj_t BgL_mmz00_2221, obj_t BgL_pz00_2222)
	{
		{	/* Llib/mmap.scm 172 */
			{	/* Llib/mmap.scm 173 */
				long BgL_tmpz00_2764;

				{	/* Llib/mmap.scm 173 */
					long BgL_auxz00_2772;
					obj_t BgL_auxz00_2765;

					{	/* Llib/mmap.scm 173 */
						obj_t BgL_tmpz00_2773;

						if (ELONGP(BgL_pz00_2222))
							{	/* Llib/mmap.scm 173 */
								BgL_tmpz00_2773 = BgL_pz00_2222;
							}
						else
							{
								obj_t BgL_auxz00_2776;

								BgL_auxz00_2776 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
									BINT(7884L), BGl_string1842z00zz__mmapz00,
									BGl_string1843z00zz__mmapz00, BgL_pz00_2222);
								FAILURE(BgL_auxz00_2776, BFALSE, BFALSE);
							}
						BgL_auxz00_2772 = BELONG_TO_LONG(BgL_tmpz00_2773);
					}
					if (BGL_MMAPP(BgL_mmz00_2221))
						{	/* Llib/mmap.scm 173 */
							BgL_auxz00_2765 = BgL_mmz00_2221;
						}
					else
						{
							obj_t BgL_auxz00_2768;

							BgL_auxz00_2768 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
								BINT(7884L), BGl_string1842z00zz__mmapz00,
								BGl_string1836z00zz__mmapz00, BgL_mmz00_2221);
							FAILURE(BgL_auxz00_2768, BFALSE, BFALSE);
						}
					BgL_tmpz00_2764 =
						BGl_mmapzd2readzd2positionzd2setz12zc0zz__mmapz00(BgL_auxz00_2765,
						BgL_auxz00_2772);
				}
				return make_belong(BgL_tmpz00_2764);
			}
		}

	}



/* 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_2223,
		obj_t BgL_mmz00_2224)
	{
		{	/* Llib/mmap.scm 179 */
			{	/* Llib/mmap.scm 180 */
				long BgL_tmpz00_2784;

				{	/* Llib/mmap.scm 180 */
					obj_t BgL_auxz00_2785;

					if (BGL_MMAPP(BgL_mmz00_2224))
						{	/* Llib/mmap.scm 180 */
							BgL_auxz00_2785 = BgL_mmz00_2224;
						}
					else
						{
							obj_t BgL_auxz00_2788;

							BgL_auxz00_2788 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
								BINT(8164L), BGl_string1844z00zz__mmapz00,
								BGl_string1836z00zz__mmapz00, BgL_mmz00_2224);
							FAILURE(BgL_auxz00_2788, BFALSE, BFALSE);
						}
					BgL_tmpz00_2784 =
						BGl_mmapzd2writezd2positionz00zz__mmapz00(BgL_auxz00_2785);
				}
				return make_belong(BgL_tmpz00_2784);
			}
		}

	}



/* 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_2225, obj_t BgL_mmz00_2226, obj_t BgL_pz00_2227)
	{
		{	/* Llib/mmap.scm 185 */
			{	/* Llib/mmap.scm 186 */
				long BgL_tmpz00_2795;

				{	/* Llib/mmap.scm 186 */
					long BgL_auxz00_2803;
					obj_t BgL_auxz00_2796;

					{	/* Llib/mmap.scm 186 */
						obj_t BgL_tmpz00_2804;

						if (ELONGP(BgL_pz00_2227))
							{	/* Llib/mmap.scm 186 */
								BgL_tmpz00_2804 = BgL_pz00_2227;
							}
						else
							{
								obj_t BgL_auxz00_2807;

								BgL_auxz00_2807 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
									BINT(8477L), BGl_string1845z00zz__mmapz00,
									BGl_string1843z00zz__mmapz00, BgL_pz00_2227);
								FAILURE(BgL_auxz00_2807, BFALSE, BFALSE);
							}
						BgL_auxz00_2803 = BELONG_TO_LONG(BgL_tmpz00_2804);
					}
					if (BGL_MMAPP(BgL_mmz00_2226))
						{	/* Llib/mmap.scm 186 */
							BgL_auxz00_2796 = BgL_mmz00_2226;
						}
					else
						{
							obj_t BgL_auxz00_2799;

							BgL_auxz00_2799 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
								BINT(8477L), BGl_string1845z00zz__mmapz00,
								BGl_string1836z00zz__mmapz00, BgL_mmz00_2226);
							FAILURE(BgL_auxz00_2799, BFALSE, BFALSE);
						}
					BgL_tmpz00_2795 =
						BGl_mmapzd2writezd2positionzd2setz12zc0zz__mmapz00(BgL_auxz00_2796,
						BgL_auxz00_2803);
				}
				return make_belong(BgL_tmpz00_2795);
			}
		}

	}



/* 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_2373;

				BgL_cz00_2373 = BGL_MMAP_REF(BgL_mmz00_25, BgL_iz00_26);
				{	/* Llib/mmap.scm 194 */
					long BgL_arg1235z00_2374;

					BgL_arg1235z00_2374 = (BgL_iz00_26 + ((long) 1));
					BGL_MMAP_RP_SET(BgL_mmz00_25, BgL_arg1235z00_2374);
					BUNSPEC;
					BgL_arg1235z00_2374;
				}
				return BgL_cz00_2373;
			}
		}

	}



/* &mmap-ref-ur */
	obj_t BGl_z62mmapzd2refzd2urz62zz__mmapz00(obj_t BgL_envz00_2228,
		obj_t BgL_mmz00_2229, obj_t BgL_iz00_2230)
	{
		{	/* Llib/mmap.scm 192 */
			{	/* Llib/mmap.scm 193 */
				unsigned char BgL_tmpz00_2817;

				{	/* Llib/mmap.scm 193 */
					long BgL_auxz00_2825;
					obj_t BgL_auxz00_2818;

					{	/* Llib/mmap.scm 193 */
						obj_t BgL_tmpz00_2826;

						if (ELONGP(BgL_iz00_2230))
							{	/* Llib/mmap.scm 193 */
								BgL_tmpz00_2826 = BgL_iz00_2230;
							}
						else
							{
								obj_t BgL_auxz00_2829;

								BgL_auxz00_2829 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
									BINT(8765L), BGl_string1846z00zz__mmapz00,
									BGl_string1843z00zz__mmapz00, BgL_iz00_2230);
								FAILURE(BgL_auxz00_2829, BFALSE, BFALSE);
							}
						BgL_auxz00_2825 = BELONG_TO_LONG(BgL_tmpz00_2826);
					}
					if (BGL_MMAPP(BgL_mmz00_2229))
						{	/* Llib/mmap.scm 193 */
							BgL_auxz00_2818 = BgL_mmz00_2229;
						}
					else
						{
							obj_t BgL_auxz00_2821;

							BgL_auxz00_2821 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
								BINT(8765L), BGl_string1846z00zz__mmapz00,
								BGl_string1836z00zz__mmapz00, BgL_mmz00_2229);
							FAILURE(BgL_auxz00_2821, BFALSE, BFALSE);
						}
					BgL_tmpz00_2817 =
						BGl_mmapzd2refzd2urz00zz__mmapz00(BgL_auxz00_2818, BgL_auxz00_2825);
				}
				return BCHAR(BgL_tmpz00_2817);
			}
		}

	}



/* 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_2375;

				BgL_arg1236z00_2375 = (BgL_iz00_28 + ((long) 1));
				BGL_MMAP_WP_SET(BgL_mmz00_27, BgL_arg1236z00_2375);
				BUNSPEC;
				return make_belong(BgL_arg1236z00_2375);
			}
		}

	}



/* &mmap-set-ur! */
	obj_t BGl_z62mmapzd2setzd2urz12z70zz__mmapz00(obj_t BgL_envz00_2231,
		obj_t BgL_mmz00_2232, obj_t BgL_iz00_2233, obj_t BgL_cz00_2234)
	{
		{	/* Llib/mmap.scm 200 */
			{	/* Llib/mmap.scm 201 */
				unsigned char BgL_auxz00_2856;
				long BgL_auxz00_2847;
				obj_t BgL_auxz00_2840;

				{	/* Llib/mmap.scm 201 */
					obj_t BgL_tmpz00_2857;

					if (CHARP(BgL_cz00_2234))
						{	/* Llib/mmap.scm 201 */
							BgL_tmpz00_2857 = BgL_cz00_2234;
						}
					else
						{
							obj_t BgL_auxz00_2860;

							BgL_auxz00_2860 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
								BINT(9159L), BGl_string1847z00zz__mmapz00,
								BGl_string1848z00zz__mmapz00, BgL_cz00_2234);
							FAILURE(BgL_auxz00_2860, BFALSE, BFALSE);
						}
					BgL_auxz00_2856 = CCHAR(BgL_tmpz00_2857);
				}
				{	/* Llib/mmap.scm 201 */
					obj_t BgL_tmpz00_2848;

					if (ELONGP(BgL_iz00_2233))
						{	/* Llib/mmap.scm 201 */
							BgL_tmpz00_2848 = BgL_iz00_2233;
						}
					else
						{
							obj_t BgL_auxz00_2851;

							BgL_auxz00_2851 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
								BINT(9159L), BGl_string1847z00zz__mmapz00,
								BGl_string1843z00zz__mmapz00, BgL_iz00_2233);
							FAILURE(BgL_auxz00_2851, BFALSE, BFALSE);
						}
					BgL_auxz00_2847 = BELONG_TO_LONG(BgL_tmpz00_2848);
				}
				if (BGL_MMAPP(BgL_mmz00_2232))
					{	/* Llib/mmap.scm 201 */
						BgL_auxz00_2840 = BgL_mmz00_2232;
					}
				else
					{
						obj_t BgL_auxz00_2843;

						BgL_auxz00_2843 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
							BINT(9159L), BGl_string1847z00zz__mmapz00,
							BGl_string1836z00zz__mmapz00, BgL_mmz00_2232);
						FAILURE(BgL_auxz00_2843, BFALSE, BFALSE);
					}
				return
					BGl_mmapzd2setzd2urz12z12zz__mmapz00(BgL_auxz00_2840, BgL_auxz00_2847,
					BgL_auxz00_2856);
			}
		}

	}



/* 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_test1999z00_2866;

				{	/* Llib/mmap.scm 208 */
					long BgL_arg1249z00_2376;

					BgL_arg1249z00_2376 = BGL_MMAP_LENGTH(BgL_mmz00_30);
					BgL_test1999z00_2866 = BOUND_CHECK(BgL_iz00_31, BgL_arg1249z00_2376);
				}
				if (BgL_test1999z00_2866)
					{	/* Llib/mmap.scm 209 */
						unsigned char BgL_res1713z00_2377;

						{	/* Llib/mmap.scm 193 */
							unsigned char BgL_cz00_2378;

							BgL_cz00_2378 = BGL_MMAP_REF(BgL_mmz00_30, BgL_iz00_31);
							{	/* Llib/mmap.scm 194 */
								long BgL_arg1235z00_2379;

								BgL_arg1235z00_2379 = (BgL_iz00_31 + ((long) 1));
								BGL_MMAP_RP_SET(BgL_mmz00_30, BgL_arg1235z00_2379);
								BUNSPEC;
								BgL_arg1235z00_2379;
							}
							BgL_res1713z00_2377 = BgL_cz00_2378;
						}
						return BgL_res1713z00_2377;
					}
				else
					{	/* Llib/mmap.scm 212 */
						obj_t BgL_arg1241z00_2380;

						{	/* Llib/mmap.scm 212 */
							obj_t BgL_arg1242z00_2381;

							{	/* Llib/mmap.scm 212 */
								obj_t BgL_arg1248z00_2382;

								{	/* Llib/mmap.scm 212 */
									long BgL_a1084z00_2383;

									BgL_a1084z00_2383 = BGL_MMAP_LENGTH(BgL_mmz00_30);
									BgL_arg1248z00_2382 =
										BGl_2zd2zd2zz__r4_numbers_6_5z00(make_belong
										(BgL_a1084z00_2383), BINT(1L));
								}
								{	/* Llib/mmap.scm 212 */

									BgL_arg1242z00_2381 =
										BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
										(BgL_arg1248z00_2382, BINT(10L));
							}}
							BgL_arg1241z00_2380 =
								string_append_3(BGl_string1849z00zz__mmapz00,
								BgL_arg1242z00_2381, BGl_string1850z00zz__mmapz00);
						}
						return
							CCHAR(BGl_errorz00zz__errorz00(BGl_symbol1851z00zz__mmapz00,
								BgL_arg1241z00_2380, make_belong(BgL_iz00_31)));
					}
			}
		}

	}



/* &mmap-ref */
	obj_t BGl_z62mmapzd2refzb0zz__mmapz00(obj_t BgL_envz00_2235,
		obj_t BgL_mmz00_2236, obj_t BgL_iz00_2237)
	{
		{	/* Llib/mmap.scm 207 */
			{	/* Llib/mmap.scm 208 */
				unsigned char BgL_tmpz00_2882;

				{	/* Llib/mmap.scm 208 */
					long BgL_auxz00_2890;
					obj_t BgL_auxz00_2883;

					{	/* Llib/mmap.scm 208 */
						obj_t BgL_tmpz00_2891;

						if (ELONGP(BgL_iz00_2237))
							{	/* Llib/mmap.scm 208 */
								BgL_tmpz00_2891 = BgL_iz00_2237;
							}
						else
							{
								obj_t BgL_auxz00_2894;

								BgL_auxz00_2894 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
									BINT(9487L), BGl_string1853z00zz__mmapz00,
									BGl_string1843z00zz__mmapz00, BgL_iz00_2237);
								FAILURE(BgL_auxz00_2894, BFALSE, BFALSE);
							}
						BgL_auxz00_2890 = BELONG_TO_LONG(BgL_tmpz00_2891);
					}
					if (BGL_MMAPP(BgL_mmz00_2236))
						{	/* Llib/mmap.scm 208 */
							BgL_auxz00_2883 = BgL_mmz00_2236;
						}
					else
						{
							obj_t BgL_auxz00_2886;

							BgL_auxz00_2886 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
								BINT(9487L), BGl_string1853z00zz__mmapz00,
								BGl_string1836z00zz__mmapz00, BgL_mmz00_2236);
							FAILURE(BgL_auxz00_2886, BFALSE, BFALSE);
						}
					BgL_tmpz00_2882 =
						BGl_mmapzd2refzd2zz__mmapz00(BgL_auxz00_2883, BgL_auxz00_2890);
				}
				return BCHAR(BgL_tmpz00_2882);
			}
		}

	}



/* 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_test2002z00_2901;

				{	/* Llib/mmap.scm 220 */
					long BgL_arg1261z00_2384;

					BgL_arg1261z00_2384 = BGL_MMAP_LENGTH(BgL_mmz00_32);
					BgL_test2002z00_2901 = BOUND_CHECK(BgL_iz00_33, BgL_arg1261z00_2384);
				}
				if (BgL_test2002z00_2901)
					{	/* Llib/mmap.scm 220 */
						BGL_MMAP_SET(BgL_mmz00_32, BgL_iz00_33, BgL_cz00_34);
						{	/* Llib/mmap.scm 202 */
							long BgL_arg1236z00_2385;

							BgL_arg1236z00_2385 = (BgL_iz00_33 + ((long) 1));
							BGL_MMAP_WP_SET(BgL_mmz00_32, BgL_arg1236z00_2385);
							BUNSPEC;
							return make_belong(BgL_arg1236z00_2385);
						}
					}
				else
					{	/* Llib/mmap.scm 224 */
						obj_t BgL_arg1254z00_2386;

						{	/* Llib/mmap.scm 224 */
							obj_t BgL_arg1258z00_2387;

							{	/* Llib/mmap.scm 224 */
								obj_t BgL_arg1259z00_2388;

								{	/* Llib/mmap.scm 224 */
									long BgL_a1085z00_2389;

									BgL_a1085z00_2389 = BGL_MMAP_LENGTH(BgL_mmz00_32);
									BgL_arg1259z00_2388 =
										BGl_2zd2zd2zz__r4_numbers_6_5z00(make_belong
										(BgL_a1085z00_2389), BINT(1L));
								}
								{	/* Llib/mmap.scm 224 */

									BgL_arg1258z00_2387 =
										BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
										(BgL_arg1259z00_2388, BINT(10L));
							}}
							BgL_arg1254z00_2386 =
								string_append_3(BGl_string1849z00zz__mmapz00,
								BgL_arg1258z00_2387, BGl_string1850z00zz__mmapz00);
						}
						return
							BGl_errorz00zz__errorz00(BGl_symbol1854z00zz__mmapz00,
							BgL_arg1254z00_2386, make_belong(BgL_iz00_33));
					}
			}
		}

	}



/* &mmap-set! */
	obj_t BGl_z62mmapzd2setz12za2zz__mmapz00(obj_t BgL_envz00_2238,
		obj_t BgL_mmz00_2239, obj_t BgL_iz00_2240, obj_t BgL_cz00_2241)
	{
		{	/* Llib/mmap.scm 219 */
			{	/* Llib/mmap.scm 220 */
				unsigned char BgL_auxz00_2933;
				long BgL_auxz00_2924;
				obj_t BgL_auxz00_2917;

				{	/* Llib/mmap.scm 220 */
					obj_t BgL_tmpz00_2934;

					if (CHARP(BgL_cz00_2241))
						{	/* Llib/mmap.scm 220 */
							BgL_tmpz00_2934 = BgL_cz00_2241;
						}
					else
						{
							obj_t BgL_auxz00_2937;

							BgL_auxz00_2937 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
								BINT(9987L), BGl_string1856z00zz__mmapz00,
								BGl_string1848z00zz__mmapz00, BgL_cz00_2241);
							FAILURE(BgL_auxz00_2937, BFALSE, BFALSE);
						}
					BgL_auxz00_2933 = CCHAR(BgL_tmpz00_2934);
				}
				{	/* Llib/mmap.scm 220 */
					obj_t BgL_tmpz00_2925;

					if (ELONGP(BgL_iz00_2240))
						{	/* Llib/mmap.scm 220 */
							BgL_tmpz00_2925 = BgL_iz00_2240;
						}
					else
						{
							obj_t BgL_auxz00_2928;

							BgL_auxz00_2928 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
								BINT(9987L), BGl_string1856z00zz__mmapz00,
								BGl_string1843z00zz__mmapz00, BgL_iz00_2240);
							FAILURE(BgL_auxz00_2928, BFALSE, BFALSE);
						}
					BgL_auxz00_2924 = BELONG_TO_LONG(BgL_tmpz00_2925);
				}
				if (BGL_MMAPP(BgL_mmz00_2239))
					{	/* Llib/mmap.scm 220 */
						BgL_auxz00_2917 = BgL_mmz00_2239;
					}
				else
					{
						obj_t BgL_auxz00_2920;

						BgL_auxz00_2920 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
							BINT(9987L), BGl_string1856z00zz__mmapz00,
							BGl_string1836z00zz__mmapz00, BgL_mmz00_2239);
						FAILURE(BgL_auxz00_2920, BFALSE, BFALSE);
					}
				return
					BGl_mmapzd2setz12zc0zz__mmapz00(BgL_auxz00_2917, BgL_auxz00_2924,
					BgL_auxz00_2933);
			}
		}

	}



/* 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_res1714z00_1869;

						{	/* Llib/mmap.scm 234 */
							long BgL_tmpz00_2945;

							BgL_tmpz00_2945 = (BgL_endz00_37 - BgL_startz00_36);
							BgL_res1714z00_1869 = (long) (BgL_tmpz00_2945);
						}
						BgL_arg1263z00_1226 = BgL_res1714z00_1869;
					}
					return
						BGl_errorz00zz__errorz00(BGl_symbol1857z00zz__mmapz00,
						BGl_string1859z00zz__mmapz00, make_belong(BgL_arg1263z00_1226));
				}
			else
				{	/* Llib/mmap.scm 235 */
					bool_t BgL_test2007z00_2950;

					{	/* 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_test2007z00_2950 =
							BOUND_CHECK(BgL_endz00_37, BgL_arg1287z00_1250);
					}
					if (BgL_test2007z00_2950)
						{	/* Llib/mmap.scm 240 */
							bool_t BgL_test2008z00_2954;

							{	/* Llib/mmap.scm 240 */
								long BgL_arg1281z00_1244;

								BgL_arg1281z00_1244 = BGL_MMAP_LENGTH(BgL_mmz00_35);
								BgL_test2008z00_2954 =
									BOUND_CHECK(BgL_startz00_36, BgL_arg1281z00_1244);
							}
							if (BgL_test2008z00_2954)
								{	/* 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_res1715z00_1876;

												{	/* Llib/mmap.scm 243 */
													long BgL_tmpz00_2957;

													BgL_tmpz00_2957 = (BgL_endz00_37 - BgL_startz00_36);
													BgL_res1715z00_1876 = (long) (BgL_tmpz00_2957);
												}
												BgL_arg1280z00_1243 = BgL_res1715z00_1876;
											}
											BgL_arg1279z00_1242 = (long) (BgL_arg1280z00_1243);
										}
										BgL_rz00_1232 = make_string_sans_fill(BgL_arg1279z00_1242);
									}
									{
										long BgL_iz00_1898;
										long BgL_jz00_1899;

										BgL_iz00_1898 = BgL_startz00_36;
										BgL_jz00_1899 = 0L;
									BgL_loopz00_1897:
										if ((BgL_iz00_1898 == BgL_endz00_37))
											{	/* Llib/mmap.scm 246 */
												BGL_MMAP_RP_SET(BgL_mmz00_35, BgL_iz00_1898);
												BUNSPEC;
												BgL_iz00_1898;
												return BgL_rz00_1232;
											}
										else
											{	/* Llib/mmap.scm 246 */
												{	/* Llib/mmap.scm 251 */
													unsigned char BgL_arg1274z00_1905;

													{	/* Llib/mmap.scm 251 */
														unsigned char BgL_res1716z00_1906;

														{	/* Llib/mmap.scm 193 */
															unsigned char BgL_cz00_1909;

															BgL_cz00_1909 =
																BGL_MMAP_REF(BgL_mmz00_35, BgL_iz00_1898);
															{	/* Llib/mmap.scm 194 */
																long BgL_arg1235z00_1910;

																BgL_arg1235z00_1910 =
																	(BgL_iz00_1898 + ((long) 1));
																BGL_MMAP_RP_SET(BgL_mmz00_35,
																	BgL_arg1235z00_1910);
																BUNSPEC;
																BgL_arg1235z00_1910;
															}
															BgL_res1716z00_1906 = BgL_cz00_1909;
														}
														BgL_arg1274z00_1905 = BgL_res1716z00_1906;
													}
													STRING_SET(BgL_rz00_1232, BgL_jz00_1899,
														BgL_arg1274z00_1905);
												}
												{	/* Llib/mmap.scm 252 */
													long BgL_arg1276z00_1918;
													long BgL_arg1278z00_1919;

													BgL_arg1276z00_1918 = (BgL_iz00_1898 + (long) (1L));
													BgL_arg1278z00_1919 = (BgL_jz00_1899 + 1L);
													{
														long BgL_jz00_2973;
														long BgL_iz00_2972;

														BgL_iz00_2972 = BgL_arg1276z00_1918;
														BgL_jz00_2973 = BgL_arg1278z00_1919;
														BgL_jz00_1899 = BgL_jz00_2973;
														BgL_iz00_1898 = BgL_iz00_2972;
														goto BgL_loopz00_1897;
													}
												}
											}
									}
								}
							else
								{	/* Llib/mmap.scm 240 */
									return
										BGl_errorz00zz__errorz00(BGl_symbol1857z00zz__mmapz00,
										BGl_string1860z00zz__mmapz00, make_belong(BgL_startz00_36));
								}
						}
					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_string1861z00zz__mmapz00,
									BgL_arg1283z00_1246);
							}
							return
								BGl_errorz00zz__errorz00(BGl_symbol1857z00zz__mmapz00,
								BgL_arg1282z00_1245, make_belong(BgL_endz00_37));
						}
				}
		}

	}



/* &mmap-substring */
	obj_t BGl_z62mmapzd2substringzb0zz__mmapz00(obj_t BgL_envz00_2242,
		obj_t BgL_mmz00_2243, obj_t BgL_startz00_2244, obj_t BgL_endz00_2245)
	{
		{	/* Llib/mmap.scm 231 */
			{	/* Llib/mmap.scm 233 */
				long BgL_auxz00_2999;
				long BgL_auxz00_2990;
				obj_t BgL_auxz00_2983;

				{	/* Llib/mmap.scm 233 */
					obj_t BgL_tmpz00_3000;

					if (ELONGP(BgL_endz00_2245))
						{	/* Llib/mmap.scm 233 */
							BgL_tmpz00_3000 = BgL_endz00_2245;
						}
					else
						{
							obj_t BgL_auxz00_3003;

							BgL_auxz00_3003 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
								BINT(10497L), BGl_string1862z00zz__mmapz00,
								BGl_string1843z00zz__mmapz00, BgL_endz00_2245);
							FAILURE(BgL_auxz00_3003, BFALSE, BFALSE);
						}
					BgL_auxz00_2999 = BELONG_TO_LONG(BgL_tmpz00_3000);
				}
				{	/* Llib/mmap.scm 233 */
					obj_t BgL_tmpz00_2991;

					if (ELONGP(BgL_startz00_2244))
						{	/* Llib/mmap.scm 233 */
							BgL_tmpz00_2991 = BgL_startz00_2244;
						}
					else
						{
							obj_t BgL_auxz00_2994;

							BgL_auxz00_2994 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
								BINT(10497L), BGl_string1862z00zz__mmapz00,
								BGl_string1843z00zz__mmapz00, BgL_startz00_2244);
							FAILURE(BgL_auxz00_2994, BFALSE, BFALSE);
						}
					BgL_auxz00_2990 = BELONG_TO_LONG(BgL_tmpz00_2991);
				}
				if (BGL_MMAPP(BgL_mmz00_2243))
					{	/* Llib/mmap.scm 233 */
						BgL_auxz00_2983 = BgL_mmz00_2243;
					}
				else
					{
						obj_t BgL_auxz00_2986;

						BgL_auxz00_2986 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
							BINT(10497L), BGl_string1862z00zz__mmapz00,
							BGl_string1836z00zz__mmapz00, BgL_mmz00_2243);
						FAILURE(BgL_auxz00_2986, BFALSE, BFALSE);
					}
				return
					BGl_mmapzd2substringzd2zz__mmapz00(BgL_auxz00_2983, BgL_auxz00_2990,
					BgL_auxz00_2999);
			}
		}

	}



/* 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_string1863z00zz__mmapz00,
							BGl_string1860z00zz__mmapz00, make_belong(BgL_oz00_39));
					}
				else
					{	/* Llib/mmap.scm 262 */
						bool_t BgL_test2014z00_3014;

						{	/* 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_test2014z00_3014 =
								BOUND_CHECK(BgL_oz00_39, BgL_arg1351z00_1285);
						}
						if (BgL_test2014z00_3014)
							{	/* Llib/mmap.scm 268 */
								bool_t BgL_test2015z00_3018;

								{	/* 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_test2015z00_3018 =
										BOUND_CHECK(BgL_arg1341z00_1276, BgL_arg1342z00_1277);
								}
								if (BgL_test2015z00_3018)
									{
										long BgL_iz00_1954;
										long BgL_jz00_1955;

										BgL_iz00_1954 = 0L;
										BgL_jz00_1955 = BgL_oz00_39;
									BgL_loopz00_1953:
										if ((BgL_iz00_1954 == BgL_lenz00_1252))
											{	/* Llib/mmap.scm 278 */
												BGL_MMAP_WP_SET(BgL_mmz00_38, BgL_jz00_1955);
												BUNSPEC;
												BgL_jz00_1955;
												return BgL_mmz00_38;
											}
										else
											{	/* Llib/mmap.scm 278 */
												{	/* Llib/mmap.scm 283 */
													unsigned char BgL_arg1333z00_1961;

													BgL_arg1333z00_1961 =
														STRING_REF(BgL_sz00_40, BgL_iz00_1954);
													BGL_MMAP_SET(BgL_mmz00_38, BgL_jz00_1955,
														BgL_arg1333z00_1961);
													{	/* Llib/mmap.scm 202 */
														long BgL_arg1236z00_1967;

														BgL_arg1236z00_1967 = (BgL_jz00_1955 + ((long) 1));
														BGL_MMAP_WP_SET(BgL_mmz00_38, BgL_arg1236z00_1967);
														BUNSPEC;
														BgL_arg1236z00_1967;
												}}
												{	/* Llib/mmap.scm 284 */
													long BgL_arg1334z00_1972;
													long BgL_arg1335z00_1973;

													BgL_arg1334z00_1972 = (BgL_iz00_1954 + 1L);
													BgL_arg1335z00_1973 = (BgL_jz00_1955 + (long) (1L));
													{
														long BgL_jz00_3035;
														long BgL_iz00_3034;

														BgL_iz00_3034 = BgL_arg1334z00_1972;
														BgL_jz00_3035 = BgL_arg1335z00_1973;
														BgL_jz00_1955 = BgL_jz00_3035;
														BgL_iz00_1954 = BgL_iz00_3034;
														goto BgL_loopz00_1953;
													}
												}
											}
									}
								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_string1849z00zz__mmapz00,
												BgL_arg1338z00_1273, BGl_string1850z00zz__mmapz00);
										}
										BgL_arg1337z00_1272 =
											BGl_2zb2zb2zz__r4_numbers_6_5z00(make_belong(BgL_oz00_39),
											BINT(BgL_lenz00_1252));
										return
											BGl_errorz00zz__errorz00(BGl_symbol1864z00zz__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_string1849z00zz__mmapz00,
										BgL_arg1347z00_1281, BGl_string1866z00zz__mmapz00);
								}
								return
									BGl_errorz00zz__errorz00(BGl_symbol1867z00zz__mmapz00,
									BgL_arg1346z00_1280, make_belong(BgL_oz00_39));
							}
					}
			}
		}

	}



/* &mmap-substring-set! */
	obj_t BGl_z62mmapzd2substringzd2setz12z70zz__mmapz00(obj_t BgL_envz00_2246,
		obj_t BgL_mmz00_2247, obj_t BgL_oz00_2248, obj_t BgL_sz00_2249)
	{
		{	/* Llib/mmap.scm 257 */
			{	/* Llib/mmap.scm 258 */
				obj_t BgL_auxz00_3068;
				long BgL_auxz00_3059;
				obj_t BgL_auxz00_3052;

				if (STRINGP(BgL_sz00_2249))
					{	/* Llib/mmap.scm 258 */
						BgL_auxz00_3068 = BgL_sz00_2249;
					}
				else
					{
						obj_t BgL_auxz00_3071;

						BgL_auxz00_3071 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
							BINT(11493L), BGl_string1868z00zz__mmapz00,
							BGl_string1831z00zz__mmapz00, BgL_sz00_2249);
						FAILURE(BgL_auxz00_3071, BFALSE, BFALSE);
					}
				{	/* Llib/mmap.scm 258 */
					obj_t BgL_tmpz00_3060;

					if (ELONGP(BgL_oz00_2248))
						{	/* Llib/mmap.scm 258 */
							BgL_tmpz00_3060 = BgL_oz00_2248;
						}
					else
						{
							obj_t BgL_auxz00_3063;

							BgL_auxz00_3063 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
								BINT(11493L), BGl_string1868z00zz__mmapz00,
								BGl_string1843z00zz__mmapz00, BgL_oz00_2248);
							FAILURE(BgL_auxz00_3063, BFALSE, BFALSE);
						}
					BgL_auxz00_3059 = BELONG_TO_LONG(BgL_tmpz00_3060);
				}
				if (BGL_MMAPP(BgL_mmz00_2247))
					{	/* Llib/mmap.scm 258 */
						BgL_auxz00_3052 = BgL_mmz00_2247;
					}
				else
					{
						obj_t BgL_auxz00_3055;

						BgL_auxz00_3055 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
							BINT(11493L), BGl_string1868z00zz__mmapz00,
							BGl_string1836z00zz__mmapz00, BgL_mmz00_2247);
						FAILURE(BgL_auxz00_3055, BFALSE, BFALSE);
					}
				return
					BGl_mmapzd2substringzd2setz12z12zz__mmapz00(BgL_auxz00_3052,
					BgL_auxz00_3059, BgL_auxz00_3068);
			}
		}

	}



/* 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_2390;

				BgL_arg1353z00_2390 = BGL_MMAP_RP_GET(BgL_mmz00_41);
				{	/* Llib/mmap.scm 290 */
					unsigned char BgL_res1717z00_2391;

					{	/* Llib/mmap.scm 193 */
						unsigned char BgL_cz00_2392;

						BgL_cz00_2392 = BGL_MMAP_REF(BgL_mmz00_41, BgL_arg1353z00_2390);
						{	/* Llib/mmap.scm 194 */
							long BgL_arg1235z00_2393;

							BgL_arg1235z00_2393 = (BgL_arg1353z00_2390 + ((long) 1));
							BGL_MMAP_RP_SET(BgL_mmz00_41, BgL_arg1235z00_2393);
							BUNSPEC;
							BgL_arg1235z00_2393;
						}
						BgL_res1717z00_2391 = BgL_cz00_2392;
					}
					return BgL_res1717z00_2391;
				}
			}
		}

	}



/* &mmap-get-char */
	obj_t BGl_z62mmapzd2getzd2charz62zz__mmapz00(obj_t BgL_envz00_2250,
		obj_t BgL_mmz00_2251)
	{
		{	/* Llib/mmap.scm 289 */
			{	/* Llib/mmap.scm 290 */
				unsigned char BgL_tmpz00_3080;

				{	/* Llib/mmap.scm 290 */
					obj_t BgL_auxz00_3081;

					if (BGL_MMAPP(BgL_mmz00_2251))
						{	/* Llib/mmap.scm 290 */
							BgL_auxz00_3081 = BgL_mmz00_2251;
						}
					else
						{
							obj_t BgL_auxz00_3084;

							BgL_auxz00_3084 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
								BINT(12534L), BGl_string1869z00zz__mmapz00,
								BGl_string1836z00zz__mmapz00, BgL_mmz00_2251);
							FAILURE(BgL_auxz00_3084, BFALSE, BFALSE);
						}
					BgL_tmpz00_3080 =
						BGl_mmapzd2getzd2charz00zz__mmapz00(BgL_auxz00_3081);
				}
				return BCHAR(BgL_tmpz00_3080);
			}
		}

	}



/* 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_2394;

				BgL_arg1355z00_2394 = BGL_MMAP_WP_GET(BgL_mmz00_42);
				BGL_MMAP_SET(BgL_mmz00_42, BgL_arg1355z00_2394, BgL_cz00_43);
				{	/* Llib/mmap.scm 202 */
					long BgL_arg1236z00_2395;

					BgL_arg1236z00_2395 = (BgL_arg1355z00_2394 + ((long) 1));
					BGL_MMAP_WP_SET(BgL_mmz00_42, BgL_arg1236z00_2395);
					BUNSPEC;
					return make_belong(BgL_arg1236z00_2395);
				}
			}
		}

	}



/* &mmap-put-char! */
	obj_t BGl_z62mmapzd2putzd2charz12z70zz__mmapz00(obj_t BgL_envz00_2252,
		obj_t BgL_mmz00_2253, obj_t BgL_cz00_2254)
	{
		{	/* Llib/mmap.scm 295 */
			{	/* Llib/mmap.scm 296 */
				unsigned char BgL_auxz00_3102;
				obj_t BgL_auxz00_3095;

				{	/* Llib/mmap.scm 296 */
					obj_t BgL_tmpz00_3103;

					if (CHARP(BgL_cz00_2254))
						{	/* Llib/mmap.scm 296 */
							BgL_tmpz00_3103 = BgL_cz00_2254;
						}
					else
						{
							obj_t BgL_auxz00_3106;

							BgL_auxz00_3106 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
								BINT(12833L), BGl_string1870z00zz__mmapz00,
								BGl_string1848z00zz__mmapz00, BgL_cz00_2254);
							FAILURE(BgL_auxz00_3106, BFALSE, BFALSE);
						}
					BgL_auxz00_3102 = CCHAR(BgL_tmpz00_3103);
				}
				if (BGL_MMAPP(BgL_mmz00_2253))
					{	/* Llib/mmap.scm 296 */
						BgL_auxz00_3095 = BgL_mmz00_2253;
					}
				else
					{
						obj_t BgL_auxz00_3098;

						BgL_auxz00_3098 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
							BINT(12833L), BGl_string1870z00zz__mmapz00,
							BGl_string1836z00zz__mmapz00, BgL_mmz00_2253);
						FAILURE(BgL_auxz00_3098, BFALSE, BFALSE);
					}
				return
					BGl_mmapzd2putzd2charz12z12zz__mmapz00(BgL_auxz00_3095,
					BgL_auxz00_3102);
			}
		}

	}



/* 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_2396;
				long BgL_arg1357z00_2397;

				BgL_arg1356z00_2396 = BGL_MMAP_RP_GET(BgL_mmz00_44);
				{	/* Llib/mmap.scm 302 */
					long BgL_arg1358z00_2398;

					BgL_arg1358z00_2398 = BGL_MMAP_RP_GET(BgL_mmz00_44);
					BgL_arg1357z00_2397 = (BgL_arg1358z00_2398 + BgL_lenz00_45);
				}
				return
					BGl_mmapzd2substringzd2zz__mmapz00(BgL_mmz00_44, BgL_arg1356z00_2396,
					BgL_arg1357z00_2397);
			}
		}

	}



/* &mmap-get-string */
	obj_t BGl_z62mmapzd2getzd2stringz62zz__mmapz00(obj_t BgL_envz00_2255,
		obj_t BgL_mmz00_2256, obj_t BgL_lenz00_2257)
	{
		{	/* Llib/mmap.scm 301 */
			{	/* Llib/mmap.scm 302 */
				long BgL_auxz00_3123;
				obj_t BgL_auxz00_3116;

				{	/* Llib/mmap.scm 302 */
					obj_t BgL_tmpz00_3124;

					if (ELONGP(BgL_lenz00_2257))
						{	/* Llib/mmap.scm 302 */
							BgL_tmpz00_3124 = BgL_lenz00_2257;
						}
					else
						{
							obj_t BgL_auxz00_3127;

							BgL_auxz00_3127 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
								BINT(13142L), BGl_string1871z00zz__mmapz00,
								BGl_string1843z00zz__mmapz00, BgL_lenz00_2257);
							FAILURE(BgL_auxz00_3127, BFALSE, BFALSE);
						}
					BgL_auxz00_3123 = BELONG_TO_LONG(BgL_tmpz00_3124);
				}
				if (BGL_MMAPP(BgL_mmz00_2256))
					{	/* Llib/mmap.scm 302 */
						BgL_auxz00_3116 = BgL_mmz00_2256;
					}
				else
					{
						obj_t BgL_auxz00_3119;

						BgL_auxz00_3119 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
							BINT(13142L), BGl_string1871z00zz__mmapz00,
							BGl_string1836z00zz__mmapz00, BgL_mmz00_2256);
						FAILURE(BgL_auxz00_3119, BFALSE, BFALSE);
					}
				return
					BGl_mmapzd2getzd2stringz00zz__mmapz00(BgL_auxz00_3116,
					BgL_auxz00_3123);
			}
		}

	}



/* 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_2399;

				BgL_arg1359z00_2399 = BGL_MMAP_WP_GET(BgL_mmz00_46);
				return
					BGl_mmapzd2substringzd2setz12z12zz__mmapz00(BgL_mmz00_46,
					BgL_arg1359z00_2399, BgL_sz00_47);
			}
		}

	}



/* &mmap-put-string! */
	obj_t BGl_z62mmapzd2putzd2stringz12z70zz__mmapz00(obj_t BgL_envz00_2258,
		obj_t BgL_mmz00_2259, obj_t BgL_sz00_2260)
	{
		{	/* Llib/mmap.scm 307 */
			{	/* Llib/mmap.scm 308 */
				obj_t BgL_auxz00_3142;
				obj_t BgL_auxz00_3135;

				if (STRINGP(BgL_sz00_2260))
					{	/* Llib/mmap.scm 308 */
						BgL_auxz00_3142 = BgL_sz00_2260;
					}
				else
					{
						obj_t BgL_auxz00_3145;

						BgL_auxz00_3145 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
							BINT(13480L), BGl_string1872z00zz__mmapz00,
							BGl_string1831z00zz__mmapz00, BgL_sz00_2260);
						FAILURE(BgL_auxz00_3145, BFALSE, BFALSE);
					}
				if (BGL_MMAPP(BgL_mmz00_2259))
					{	/* Llib/mmap.scm 308 */
						BgL_auxz00_3135 = BgL_mmz00_2259;
					}
				else
					{
						obj_t BgL_auxz00_3138;

						BgL_auxz00_3138 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1818z00zz__mmapz00,
							BINT(13480L), BGl_string1872z00zz__mmapz00,
							BGl_string1836z00zz__mmapz00, BgL_mmz00_2259);
						FAILURE(BgL_auxz00_3138, BFALSE, BFALSE);
					}
				return
					BGl_mmapzd2putzd2stringz12z12zz__mmapz00(BgL_auxz00_3135,
					BgL_auxz00_3142);
			}
		}

	}



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

	}

#ifdef __cplusplus
}
#endif
