/*===========================================================================*/
/*   (Rgc/rgc.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 Rgc/rgc.scm -indent -o objs/obj_u/Rgc/rgc.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___RGC_TYPE_DEFINITIONS
#define BGL___RGC_TYPE_DEFINITIONS
#endif													// BGL___RGC_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	BGL_EXPORTED_DECL int BGl_rgczd2bufferzd2ungetzd2charzd2zz__rgcz00(obj_t,
		int);
	static obj_t BGl_symbol1750z00zz__rgcz00 = BUNSPEC;
	static obj_t BGl_symbol1752z00zz__rgcz00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_rgczd2bufferzd2symbolz00zz__rgcz00(obj_t);
	static obj_t BGl_symbol1754z00zz__rgcz00 = BUNSPEC;
	BGL_EXPORTED_DECL long BGl_rgczd2stopzd2matchz12z12zz__rgcz00(obj_t, long);
	BGL_EXPORTED_DECL bool_t BGl_rgczd2bufferzd2bolzf3zf3zz__rgcz00(obj_t);
	static obj_t BGl_z62rgczd2stopzd2matchz12z70zz__rgcz00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_rgczd2bufferzd2subsymbolz00zz__rgcz00(obj_t, long,
		long);
	static obj_t BGl_z62rgczd2bufferzd2bolzf3z91zz__rgcz00(obj_t, obj_t);
	static obj_t BGl_z62rgczd2setzd2fileposz12z70zz__rgcz00(obj_t, obj_t);
	extern obj_t rgc_buffer_upcase_subsymbol(obj_t, long, long);
	BGL_EXPORTED_DECL bool_t
		BGl_rgczd2bufferzd2insertzd2charz12zc0zz__rgcz00(obj_t, long);
	static obj_t BGl_requirezd2initializa7ationz75zz__rgcz00 = BUNSPEC;
	extern obj_t rgc_buffer_escape_substring(obj_t, long, long, bool_t);
	static obj_t BGl_z62rgczd2bufferzd2insertzd2charz12za2zz__rgcz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62rgczd2bufferzd2keywordz62zz__rgcz00(obj_t, obj_t);
	BGL_EXPORTED_DECL int BGl_rgczd2bufferzd2getzd2charzd2zz__rgcz00(obj_t, long);
	BGL_EXPORTED_DECL long BGl_rgczd2bufferzd2bufposz00zz__rgcz00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_rgczd2bufferzd2upcasezd2keywordzd2zz__rgcz00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_rgczd2bufferzd2downcasezd2symbolzd2zz__rgcz00(obj_t);
	extern bool_t rgc_buffer_bol_p(obj_t);
	static obj_t BGl_z62rgczd2thezd2submatchz62zz__rgcz00(obj_t, obj_t, obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_rgczd2bufferzd2downcasezd2keywordzd2zz__rgcz00(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__rgcz00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	static obj_t BGl_z62rgczd2bufferzd2characterz62zz__rgcz00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_rgczd2bufferzd2eofzf3zf3zz__rgcz00(obj_t);
	static obj_t BGl_z62rgczd2bufferzd2eofzf3z91zz__rgcz00(obj_t, obj_t);
	static obj_t BGl_z62rgczd2bufferzd2ungetzd2charzb0zz__rgcz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_toplevelzd2initzd2zz__rgcz00(void);
	static obj_t BGl_z62rgczd2bufferzd2downcasezd2symbolzb0zz__rgcz00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_rgczd2bufferzd2upcasezd2symbolzd2zz__rgcz00(obj_t);
	extern bool_t rgc_buffer_insert_substring(obj_t, obj_t, long, long);
	extern obj_t rgc_buffer_downcase_keyword(obj_t);
	BGL_EXPORTED_DECL unsigned char
		BGl_rgczd2bufferzd2characterz00zz__rgcz00(obj_t);
	extern bool_t rgc_buffer_eof_p(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_rgczd2bufferzd2downcasezd2subsymbolzd2zz__rgcz00(obj_t, long, long);
	BGL_EXPORTED_DECL long BGl_rgczd2startzd2matchz12z12zz__rgcz00(obj_t);
	static obj_t BGl_z62rgczd2bufferzd2bytezd2refzb0zz__rgcz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_cnstzd2initzd2zz__rgcz00(void);
	BGL_EXPORTED_DECL bool_t BGl_rgczd2bufferzd2eof2zf3zf3zz__rgcz00(obj_t, long,
		long);
	static obj_t BGl_genericzd2initzd2zz__rgcz00(void);
	static obj_t BGl_z62rgczd2bufferzd2positionz62zz__rgcz00(obj_t, obj_t, obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__rgcz00(void);
	static obj_t BGl_gczd2rootszd2initz00zz__rgcz00(void);
	extern obj_t rgc_buffer_subsymbol(obj_t, long, long);
	static obj_t BGl_z62rgczd2bufferzd2substringz62zz__rgcz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_objectzd2initzd2zz__rgcz00(void);
	extern obj_t rgc_buffer_integer(obj_t);
	static obj_t BGl_z62rgczd2bufferzd2upcasezd2subsymbolzb0zz__rgcz00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62rgczd2bufferzd2escapezd2substringzb0zz__rgcz00(obj_t,
		obj_t, obj_t, obj_t, obj_t);
	extern long rgc_buffer_fixnum(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_rgczd2bufferzd2substringz00zz__rgcz00(obj_t, long,
		long);
	BGL_EXPORTED_DECL obj_t BGl_rgczd2bufferzd2integerz00zz__rgcz00(obj_t);
	extern double rgc_buffer_flonum(obj_t);
	BGL_EXPORTED_DECL bool_t BGl_rgczd2bufferzd2eolzf3zf3zz__rgcz00(obj_t, long,
		long);
	extern bool_t rgc_buffer_insert_char(obj_t, int);
	static obj_t BGl_z62rgczd2bufferzd2eolzf3z91zz__rgcz00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62rgczd2bufferzd2downcasezd2subsymbolzb0zz__rgcz00(obj_t,
		obj_t, obj_t, obj_t);
	static obj_t BGl_z62rgczd2bufferzd2insertzd2substringz12za2zz__rgcz00(obj_t,
		obj_t, obj_t, obj_t, obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	static obj_t BGl_z62rgczd2bufferzd2getzd2charzb0zz__rgcz00(obj_t, obj_t,
		obj_t);
	extern int rgc_buffer_unget_char(obj_t, int);
	BGL_EXPORTED_DECL bool_t BGl_rgczd2bufferzd2bofzf3zf3zz__rgcz00(obj_t);
	extern obj_t rgc_buffer_symbol(obj_t);
	static obj_t BGl_z62rgczd2bufferzd2bofzf3z91zz__rgcz00(obj_t, obj_t);
	static obj_t BGl_z62rgczd2bufferzd2fixnumz62zz__rgcz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_rgczd2setzd2fileposz12z12zz__rgcz00(obj_t);
	BGL_EXPORTED_DECL bool_t BGl_rgczd2fillzd2bufferz00zz__rgcz00(obj_t);
	static obj_t BGl_z62rgczd2bufferzd2lengthz62zz__rgcz00(obj_t, obj_t);
	static obj_t BGl_z62rgczd2bufferzd2upcasezd2symbolzb0zz__rgcz00(obj_t, obj_t);
	static obj_t BGl_z62rgczd2bufferzd2downcasezd2keywordzb0zz__rgcz00(obj_t,
		obj_t);
	static obj_t BGl_z62rgczd2fillzd2bufferz62zz__rgcz00(obj_t, obj_t);
	BGL_EXPORTED_DEF obj_t BGl_za2unsafezd2rgcza2zd2zz__rgcz00 = BUNSPEC;
	static obj_t BGl_methodzd2initzd2zz__rgcz00(void);
	static obj_t BGl_z62rgczd2bufferzd2integerz62zz__rgcz00(obj_t, obj_t);
	BGL_EXPORTED_DECL long BGl_rgczd2bufferzd2forwardz00zz__rgcz00(obj_t);
	static obj_t BGl_z62rgczd2bufferzd2flonumz62zz__rgcz00(obj_t, obj_t);
	extern bool_t rgc_buffer_eol_p(obj_t, long, long);
	BGL_EXPORTED_DECL bool_t
		BGl_rgczd2bufferzd2insertzd2substringz12zc0zz__rgcz00(obj_t, obj_t, long,
		long);
	static obj_t BGl_z62rgczd2startzd2matchz12z70zz__rgcz00(obj_t, obj_t);
	extern bool_t rgc_buffer_eof2_p(obj_t, long, long);
	static obj_t BGl_z62rgczd2bufferzd2eof2zf3z91zz__rgcz00(obj_t, obj_t, obj_t,
		obj_t);
	extern obj_t rgc_buffer_upcase_keyword(obj_t);
	extern bool_t rgc_buffer_bof_p(obj_t);
	static obj_t BGl_z62rgczd2bufferzd2symbolz62zz__rgcz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_rgczd2thezd2submatchz00zz__rgcz00(obj_t, long,
		long, long);
	extern bool_t rgc_fill_buffer(obj_t);
	static obj_t BGl_z62rgczd2bufferzd2forwardz62zz__rgcz00(obj_t, obj_t);
	BGL_EXPORTED_DECL int BGl_rgczd2bufferzd2bytezd2refzd2zz__rgcz00(obj_t, int);
	extern obj_t rgc_buffer_keyword(obj_t);
	BGL_EXPORTED_DECL int BGl_rgczd2bufferzd2bytez00zz__rgcz00(obj_t);
	static obj_t BGl_z62rgczd2bufferzd2bufposz62zz__rgcz00(obj_t, obj_t);
	BGL_EXPORTED_DECL long BGl_rgczd2bufferzd2positionz00zz__rgcz00(obj_t, long);
	BGL_EXPORTED_DECL long BGl_rgczd2bufferzd2fixnumz00zz__rgcz00(obj_t);
	static obj_t BGl_z62rgczd2bufferzd2upcasezd2keywordzb0zz__rgcz00(obj_t,
		obj_t);
	static obj_t BGl_z62rgczd2bufferzd2bytez62zz__rgcz00(obj_t, obj_t);
	BGL_EXPORTED_DECL long BGl_rgczd2bufferzd2lengthz00zz__rgcz00(obj_t);
	extern obj_t rgc_buffer_substring(obj_t, long, long);
	static obj_t BGl_z62rgczd2bufferzd2subsymbolz62zz__rgcz00(obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_rgczd2bufferzd2upcasezd2subsymbolzd2zz__rgcz00(obj_t, long, long);
	BGL_EXPORTED_DECL double BGl_rgczd2bufferzd2flonumz00zz__rgcz00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_rgczd2bufferzd2escapezd2substringzd2zz__rgcz00(obj_t, long, long,
		bool_t);
	BGL_EXPORTED_DECL obj_t BGl_rgczd2bufferzd2keywordz00zz__rgcz00(obj_t);
	extern obj_t rgc_buffer_downcase_subsymbol(obj_t, long, long);
	static obj_t *__cnst;


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_rgczd2bufferzd2eof2zf3zd2envz21zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71758za7,
		BGl_z62rgczd2bufferzd2eof2zf3z91zz__rgcz00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_rgczd2bufferzd2positionzd2envzd2zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71759za7,
		BGl_z62rgczd2bufferzd2positionz62zz__rgcz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_rgczd2bufferzd2bofzf3zd2envz21zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71760za7,
		BGl_z62rgczd2bufferzd2bofzf3z91zz__rgcz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_rgczd2bufferzd2flonumzd2envzd2zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71761za7,
		BGl_z62rgczd2bufferzd2flonumz62zz__rgcz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_rgczd2bufferzd2keywordzd2envzd2zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71762za7,
		BGl_z62rgczd2bufferzd2keywordz62zz__rgcz00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_rgczd2thezd2submatchzd2envzd2zz__rgcz00,
		BgL_bgl_za762rgcza7d2theza7d2s1763za7,
		BGl_z62rgczd2thezd2submatchz62zz__rgcz00, 0L, BUNSPEC, 4);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_rgczd2bufferzd2upcasezd2symbolzd2envz00zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71764za7,
		BGl_z62rgczd2bufferzd2upcasezd2symbolzb0zz__rgcz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_rgczd2bufferzd2bytezd2refzd2envz00zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71765za7,
		BGl_z62rgczd2bufferzd2bytezd2refzb0zz__rgcz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_rgczd2bufferzd2eolzf3zd2envz21zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71766za7,
		BGl_z62rgczd2bufferzd2eolzf3z91zz__rgcz00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_rgczd2bufferzd2insertzd2charz12zd2envz12zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71767za7,
		BGl_z62rgczd2bufferzd2insertzd2charz12za2zz__rgcz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_rgczd2bufferzd2lengthzd2envzd2zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71768za7,
		BGl_z62rgczd2bufferzd2lengthz62zz__rgcz00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_rgczd2fillzd2bufferzd2envzd2zz__rgcz00,
		BgL_bgl_za762rgcza7d2fillza7d21769za7,
		BGl_z62rgczd2fillzd2bufferz62zz__rgcz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_rgczd2bufferzd2upcasezd2subsymbolzd2envz00zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71770za7,
		BGl_z62rgczd2bufferzd2upcasezd2subsymbolzb0zz__rgcz00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_rgczd2bufferzd2eofzf3zd2envz21zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71771za7,
		BGl_z62rgczd2bufferzd2eofzf3z91zz__rgcz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_rgczd2bufferzd2ungetzd2charzd2envz00zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71772za7,
		BGl_z62rgczd2bufferzd2ungetzd2charzb0zz__rgcz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_rgczd2bufferzd2symbolzd2envzd2zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71773za7,
		BGl_z62rgczd2bufferzd2symbolz62zz__rgcz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_rgczd2stopzd2matchz12zd2envzc0zz__rgcz00,
		BgL_bgl_za762rgcza7d2stopza7d21774za7,
		BGl_z62rgczd2stopzd2matchz12z70zz__rgcz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_rgczd2bufferzd2characterzd2envzd2zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71775za7,
		BGl_z62rgczd2bufferzd2characterz62zz__rgcz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string1712z00zz__rgcz00,
		BgL_bgl_string1712za700za7za7_1776za7, "/tmp/bigloo/runtime/Rgc/rgc.scm",
		31);
	      BGL_DEFINE_STRING(BGl_string1713z00zz__rgcz00,
		BgL_bgl_string1713za700za7za7_1777za7, "&rgc-buffer-get-char", 20);
	      BGL_DEFINE_STRING(BGl_string1714z00zz__rgcz00,
		BgL_bgl_string1714za700za7za7_1778za7, "input-port", 10);
	      BGL_DEFINE_STRING(BGl_string1715z00zz__rgcz00,
		BgL_bgl_string1715za700za7za7_1779za7, "bint", 4);
	      BGL_DEFINE_STRING(BGl_string1716z00zz__rgcz00,
		BgL_bgl_string1716za700za7za7_1780za7, "&rgc-buffer-unget-char", 22);
	      BGL_DEFINE_STRING(BGl_string1717z00zz__rgcz00,
		BgL_bgl_string1717za700za7za7_1781za7, "&rgc-buffer-insert-substring!", 29);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_rgczd2bufferzd2downcasezd2subsymbolzd2envz00zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71782za7,
		BGl_z62rgczd2bufferzd2downcasezd2subsymbolzb0zz__rgcz00, 0L, BUNSPEC, 3);
	      BGL_DEFINE_STRING(BGl_string1718z00zz__rgcz00,
		BgL_bgl_string1718za700za7za7_1783za7, "bstring", 7);
	      BGL_DEFINE_STRING(BGl_string1719z00zz__rgcz00,
		BgL_bgl_string1719za700za7za7_1784za7, "&rgc-buffer-insert-char!", 24);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_rgczd2bufferzd2fixnumzd2envzd2zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71785za7,
		BGl_z62rgczd2bufferzd2fixnumz62zz__rgcz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string1720z00zz__rgcz00,
		BgL_bgl_string1720za700za7za7_1786za7, "&rgc-buffer-character", 21);
	      BGL_DEFINE_STRING(BGl_string1721z00zz__rgcz00,
		BgL_bgl_string1721za700za7za7_1787za7, "&rgc-buffer-byte", 16);
	      BGL_DEFINE_STRING(BGl_string1722z00zz__rgcz00,
		BgL_bgl_string1722za700za7za7_1788za7, "&rgc-buffer-byte-ref", 20);
	      BGL_DEFINE_STRING(BGl_string1723z00zz__rgcz00,
		BgL_bgl_string1723za700za7za7_1789za7, "&rgc-buffer-substring", 21);
	      BGL_DEFINE_STRING(BGl_string1724z00zz__rgcz00,
		BgL_bgl_string1724za700za7za7_1790za7, "&rgc-buffer-escape-substring", 28);
	      BGL_DEFINE_STRING(BGl_string1725z00zz__rgcz00,
		BgL_bgl_string1725za700za7za7_1791za7, "&rgc-buffer-length", 18);
	      BGL_DEFINE_STRING(BGl_string1726z00zz__rgcz00,
		BgL_bgl_string1726za700za7za7_1792za7, "&rgc-buffer-fixnum", 18);
	      BGL_DEFINE_STRING(BGl_string1727z00zz__rgcz00,
		BgL_bgl_string1727za700za7za7_1793za7, "&rgc-buffer-integer", 19);
	      BGL_DEFINE_STRING(BGl_string1728z00zz__rgcz00,
		BgL_bgl_string1728za700za7za7_1794za7, "&rgc-buffer-flonum", 18);
	      BGL_DEFINE_STRING(BGl_string1729z00zz__rgcz00,
		BgL_bgl_string1729za700za7za7_1795za7, "&rgc-buffer-symbol", 18);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_rgczd2bufferzd2downcasezd2keywordzd2envz00zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71796za7,
		BGl_z62rgczd2bufferzd2downcasezd2keywordzb0zz__rgcz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string1730z00zz__rgcz00,
		BgL_bgl_string1730za700za7za7_1797za7, "&rgc-buffer-subsymbol", 21);
	      BGL_DEFINE_STRING(BGl_string1731z00zz__rgcz00,
		BgL_bgl_string1731za700za7za7_1798za7, "&rgc-buffer-downcase-symbol", 27);
	      BGL_DEFINE_STRING(BGl_string1732z00zz__rgcz00,
		BgL_bgl_string1732za700za7za7_1799za7, "&rgc-buffer-downcase-subsymbol",
		30);
	      BGL_DEFINE_STRING(BGl_string1733z00zz__rgcz00,
		BgL_bgl_string1733za700za7za7_1800za7, "&rgc-buffer-upcase-symbol", 25);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_rgczd2bufferzd2escapezd2substringzd2envz00zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71801za7,
		BGl_z62rgczd2bufferzd2escapezd2substringzb0zz__rgcz00, 0L, BUNSPEC, 4);
	      BGL_DEFINE_STRING(BGl_string1734z00zz__rgcz00,
		BgL_bgl_string1734za700za7za7_1802za7, "&rgc-buffer-upcase-subsymbol", 28);
	      BGL_DEFINE_STRING(BGl_string1735z00zz__rgcz00,
		BgL_bgl_string1735za700za7za7_1803za7, "&rgc-buffer-keyword", 19);
	      BGL_DEFINE_STRING(BGl_string1736z00zz__rgcz00,
		BgL_bgl_string1736za700za7za7_1804za7, "&rgc-buffer-downcase-keyword", 28);
	      BGL_DEFINE_STRING(BGl_string1737z00zz__rgcz00,
		BgL_bgl_string1737za700za7za7_1805za7, "&rgc-buffer-upcase-keyword", 26);
	      BGL_DEFINE_STRING(BGl_string1738z00zz__rgcz00,
		BgL_bgl_string1738za700za7za7_1806za7, "&rgc-buffer-position", 20);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_rgczd2bufferzd2insertzd2substringz12zd2envz12zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71807za7,
		BGl_z62rgczd2bufferzd2insertzd2substringz12za2zz__rgcz00, 0L, BUNSPEC, 4);
	      BGL_DEFINE_STRING(BGl_string1739z00zz__rgcz00,
		BgL_bgl_string1739za700za7za7_1808za7, "&rgc-buffer-forward", 19);
	      BGL_DEFINE_STRING(BGl_string1740z00zz__rgcz00,
		BgL_bgl_string1740za700za7za7_1809za7, "&rgc-buffer-bufpos", 18);
	      BGL_DEFINE_STRING(BGl_string1741z00zz__rgcz00,
		BgL_bgl_string1741za700za7za7_1810za7, "&rgc-set-filepos!", 17);
	      BGL_DEFINE_STRING(BGl_string1742z00zz__rgcz00,
		BgL_bgl_string1742za700za7za7_1811za7, "&rgc-start-match!", 17);
	      BGL_DEFINE_STRING(BGl_string1743z00zz__rgcz00,
		BgL_bgl_string1743za700za7za7_1812za7, "&rgc-stop-match!", 16);
	      BGL_DEFINE_STRING(BGl_string1744z00zz__rgcz00,
		BgL_bgl_string1744za700za7za7_1813za7, "&rgc-fill-buffer", 16);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_rgczd2bufferzd2substringzd2envzd2zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71814za7,
		BGl_z62rgczd2bufferzd2substringz62zz__rgcz00, 0L, BUNSPEC, 3);
	      BGL_DEFINE_STRING(BGl_string1745z00zz__rgcz00,
		BgL_bgl_string1745za700za7za7_1815za7, "&rgc-buffer-bol?", 16);
	      BGL_DEFINE_STRING(BGl_string1746z00zz__rgcz00,
		BgL_bgl_string1746za700za7za7_1816za7, "&rgc-buffer-eol?", 16);
	      BGL_DEFINE_STRING(BGl_string1747z00zz__rgcz00,
		BgL_bgl_string1747za700za7za7_1817za7, "&rgc-buffer-bof?", 16);
	      BGL_DEFINE_STRING(BGl_string1748z00zz__rgcz00,
		BgL_bgl_string1748za700za7za7_1818za7, "&rgc-buffer-eof?", 16);
	      BGL_DEFINE_STRING(BGl_string1749z00zz__rgcz00,
		BgL_bgl_string1749za700za7za7_1819za7, "&rgc-buffer-eof2?", 17);
	      BGL_DEFINE_STRING(BGl_string1751z00zz__rgcz00,
		BgL_bgl_string1751za700za7za7_1820za7, "stop", 4);
	      BGL_DEFINE_STRING(BGl_string1753z00zz__rgcz00,
		BgL_bgl_string1753za700za7za7_1821za7, "start", 5);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_rgczd2startzd2matchz12zd2envzc0zz__rgcz00,
		BgL_bgl_za762rgcza7d2startza7d1822za7,
		BGl_z62rgczd2startzd2matchz12z70zz__rgcz00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string1755z00zz__rgcz00,
		BgL_bgl_string1755za700za7za7_1823za7, "start*", 6);
	      BGL_DEFINE_STRING(BGl_string1756z00zz__rgcz00,
		BgL_bgl_string1756za700za7za7_1824za7, "&rgc-the-submatch", 17);
	      BGL_DEFINE_STRING(BGl_string1757z00zz__rgcz00,
		BgL_bgl_string1757za700za7za7_1825za7, "__rgc", 5);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_rgczd2bufferzd2getzd2charzd2envz00zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71826za7,
		BGl_z62rgczd2bufferzd2getzd2charzb0zz__rgcz00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_rgczd2bufferzd2bufposzd2envzd2zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71827za7,
		BGl_z62rgczd2bufferzd2bufposz62zz__rgcz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_rgczd2bufferzd2upcasezd2keywordzd2envz00zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71828za7,
		BGl_z62rgczd2bufferzd2upcasezd2keywordzb0zz__rgcz00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_rgczd2bufferzd2bytezd2envzd2zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71829za7,
		BGl_z62rgczd2bufferzd2bytez62zz__rgcz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_rgczd2bufferzd2downcasezd2symbolzd2envz00zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71830za7,
		BGl_z62rgczd2bufferzd2downcasezd2symbolzb0zz__rgcz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_rgczd2setzd2fileposz12zd2envzc0zz__rgcz00,
		BgL_bgl_za762rgcza7d2setza7d2f1831za7,
		BGl_z62rgczd2setzd2fileposz12z70zz__rgcz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_rgczd2bufferzd2forwardzd2envzd2zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71832za7,
		BGl_z62rgczd2bufferzd2forwardz62zz__rgcz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_rgczd2bufferzd2bolzf3zd2envz21zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71833za7,
		BGl_z62rgczd2bufferzd2bolzf3z91zz__rgcz00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_rgczd2bufferzd2subsymbolzd2envzd2zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71834za7,
		BGl_z62rgczd2bufferzd2subsymbolz62zz__rgcz00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_rgczd2bufferzd2integerzd2envzd2zz__rgcz00,
		BgL_bgl_za762rgcza7d2bufferza71835za7,
		BGl_z62rgczd2bufferzd2integerz62zz__rgcz00, 0L, BUNSPEC, 1);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2integerzd2envzd2zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71835za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2subsymbolzd2envzd2zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71834za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2bolzf3zd2envz21zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71833za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2forwardzd2envzd2zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71832za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2setzd2fileposz12zd2envzc0zz__rgcz00,
			BgL_bgl_za762rgcza7d2setza7d2f1831za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2downcasezd2symbolzd2envz00zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71830za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2bytezd2envzd2zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71829za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2upcasezd2keywordzd2envz00zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71828za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2bufposzd2envzd2zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71827za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2getzd2charzd2envz00zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71826za7);
		BGL_BIND_STRING(BGl_string1757z00zz__rgcz00,
			BgL_bgl_string1757za700za7za7_1825za7);
		BGL_BIND_STRING(BGl_string1756z00zz__rgcz00,
			BgL_bgl_string1756za700za7za7_1824za7);
		BGL_BIND_STRING(BGl_string1755z00zz__rgcz00,
			BgL_bgl_string1755za700za7za7_1823za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2startzd2matchz12zd2envzc0zz__rgcz00,
			BgL_bgl_za762rgcza7d2startza7d1822za7);
		BGL_BIND_STRING(BGl_string1753z00zz__rgcz00,
			BgL_bgl_string1753za700za7za7_1821za7);
		BGL_BIND_STRING(BGl_string1751z00zz__rgcz00,
			BgL_bgl_string1751za700za7za7_1820za7);
		BGL_BIND_STRING(BGl_string1749z00zz__rgcz00,
			BgL_bgl_string1749za700za7za7_1819za7);
		BGL_BIND_STRING(BGl_string1748z00zz__rgcz00,
			BgL_bgl_string1748za700za7za7_1818za7);
		BGL_BIND_STRING(BGl_string1747z00zz__rgcz00,
			BgL_bgl_string1747za700za7za7_1817za7);
		BGL_BIND_STRING(BGl_string1746z00zz__rgcz00,
			BgL_bgl_string1746za700za7za7_1816za7);
		BGL_BIND_STRING(BGl_string1745z00zz__rgcz00,
			BgL_bgl_string1745za700za7za7_1815za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2substringzd2envzd2zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71814za7);
		BGL_BIND_STRING(BGl_string1744z00zz__rgcz00,
			BgL_bgl_string1744za700za7za7_1813za7);
		BGL_BIND_STRING(BGl_string1743z00zz__rgcz00,
			BgL_bgl_string1743za700za7za7_1812za7);
		BGL_BIND_STRING(BGl_string1742z00zz__rgcz00,
			BgL_bgl_string1742za700za7za7_1811za7);
		BGL_BIND_STRING(BGl_string1741z00zz__rgcz00,
			BgL_bgl_string1741za700za7za7_1810za7);
		BGL_BIND_STRING(BGl_string1740z00zz__rgcz00,
			BgL_bgl_string1740za700za7za7_1809za7);
		BGL_BIND_STRING(BGl_string1739z00zz__rgcz00,
			BgL_bgl_string1739za700za7za7_1808za7);
		BGL_BIND_PROCEDURE
			(BGl_rgczd2bufferzd2insertzd2substringz12zd2envz12zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71807za7);
		BGL_BIND_STRING(BGl_string1738z00zz__rgcz00,
			BgL_bgl_string1738za700za7za7_1806za7);
		BGL_BIND_STRING(BGl_string1737z00zz__rgcz00,
			BgL_bgl_string1737za700za7za7_1805za7);
		BGL_BIND_STRING(BGl_string1736z00zz__rgcz00,
			BgL_bgl_string1736za700za7za7_1804za7);
		BGL_BIND_STRING(BGl_string1735z00zz__rgcz00,
			BgL_bgl_string1735za700za7za7_1803za7);
		BGL_BIND_STRING(BGl_string1734z00zz__rgcz00,
			BgL_bgl_string1734za700za7za7_1802za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2escapezd2substringzd2envz00zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71801za7);
		BGL_BIND_STRING(BGl_string1733z00zz__rgcz00,
			BgL_bgl_string1733za700za7za7_1800za7);
		BGL_BIND_STRING(BGl_string1732z00zz__rgcz00,
			BgL_bgl_string1732za700za7za7_1799za7);
		BGL_BIND_STRING(BGl_string1731z00zz__rgcz00,
			BgL_bgl_string1731za700za7za7_1798za7);
		BGL_BIND_STRING(BGl_string1730z00zz__rgcz00,
			BgL_bgl_string1730za700za7za7_1797za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2downcasezd2keywordzd2envz00zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71796za7);
		BGL_BIND_STRING(BGl_string1729z00zz__rgcz00,
			BgL_bgl_string1729za700za7za7_1795za7);
		BGL_BIND_STRING(BGl_string1728z00zz__rgcz00,
			BgL_bgl_string1728za700za7za7_1794za7);
		BGL_BIND_STRING(BGl_string1727z00zz__rgcz00,
			BgL_bgl_string1727za700za7za7_1793za7);
		BGL_BIND_STRING(BGl_string1726z00zz__rgcz00,
			BgL_bgl_string1726za700za7za7_1792za7);
		BGL_BIND_STRING(BGl_string1725z00zz__rgcz00,
			BgL_bgl_string1725za700za7za7_1791za7);
		BGL_BIND_STRING(BGl_string1724z00zz__rgcz00,
			BgL_bgl_string1724za700za7za7_1790za7);
		BGL_BIND_STRING(BGl_string1723z00zz__rgcz00,
			BgL_bgl_string1723za700za7za7_1789za7);
		BGL_BIND_STRING(BGl_string1722z00zz__rgcz00,
			BgL_bgl_string1722za700za7za7_1788za7);
		BGL_BIND_STRING(BGl_string1721z00zz__rgcz00,
			BgL_bgl_string1721za700za7za7_1787za7);
		BGL_BIND_STRING(BGl_string1720z00zz__rgcz00,
			BgL_bgl_string1720za700za7za7_1786za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2fixnumzd2envzd2zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71785za7);
		BGL_BIND_STRING(BGl_string1719z00zz__rgcz00,
			BgL_bgl_string1719za700za7za7_1784za7);
		BGL_BIND_STRING(BGl_string1718z00zz__rgcz00,
			BgL_bgl_string1718za700za7za7_1783za7);
		BGL_BIND_PROCEDURE
			(BGl_rgczd2bufferzd2downcasezd2subsymbolzd2envz00zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71782za7);
		BGL_BIND_STRING(BGl_string1717z00zz__rgcz00,
			BgL_bgl_string1717za700za7za7_1781za7);
		BGL_BIND_STRING(BGl_string1716z00zz__rgcz00,
			BgL_bgl_string1716za700za7za7_1780za7);
		BGL_BIND_STRING(BGl_string1715z00zz__rgcz00,
			BgL_bgl_string1715za700za7za7_1779za7);
		BGL_BIND_STRING(BGl_string1714z00zz__rgcz00,
			BgL_bgl_string1714za700za7za7_1778za7);
		BGL_BIND_STRING(BGl_string1713z00zz__rgcz00,
			BgL_bgl_string1713za700za7za7_1777za7);
		BGL_BIND_STRING(BGl_string1712z00zz__rgcz00,
			BgL_bgl_string1712za700za7za7_1776za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2characterzd2envzd2zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71775za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2stopzd2matchz12zd2envzc0zz__rgcz00,
			BgL_bgl_za762rgcza7d2stopza7d21774za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2symbolzd2envzd2zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71773za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2ungetzd2charzd2envz00zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71772za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2eofzf3zd2envz21zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71771za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2upcasezd2subsymbolzd2envz00zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71770za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2fillzd2bufferzd2envzd2zz__rgcz00,
			BgL_bgl_za762rgcza7d2fillza7d21769za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2lengthzd2envzd2zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71768za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2insertzd2charz12zd2envz12zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71767za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2eolzf3zd2envz21zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71766za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2bytezd2refzd2envz00zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71765za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2upcasezd2symbolzd2envz00zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71764za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2thezd2submatchzd2envzd2zz__rgcz00,
			BgL_bgl_za762rgcza7d2theza7d2s1763za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2keywordzd2envzd2zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71762za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2flonumzd2envzd2zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71761za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2bofzf3zd2envz21zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71760za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2positionzd2envzd2zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71759za7);
		BGL_BIND_PROCEDURE(BGl_rgczd2bufferzd2eof2zf3zd2envz21zz__rgcz00,
			BgL_bgl_za762rgcza7d2bufferza71758za7);
	}

/* 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_symbol1750z00zz__rgcz00));
		ADD_ROOT((void *) (&BGl_symbol1752z00zz__rgcz00));
		ADD_ROOT((void *) (&BGl_symbol1754z00zz__rgcz00));
		ADD_ROOT((void *) (&BGl_requirezd2initializa7ationz75zz__rgcz00));
		ADD_ROOT((void *) (&BGl_za2unsafezd2rgcza2zd2zz__rgcz00));
#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__rgcz00(long
		BgL_checksumz00_2089, char *BgL_fromz00_2090)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__rgcz00))
				{
					BGl_requirezd2initializa7ationz75zz__rgcz00 = BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__rgcz00();
					BGl_cnstzd2initzd2zz__rgcz00();
					BGl_importedzd2moduleszd2initz00zz__rgcz00();
					return BGl_toplevelzd2initzd2zz__rgcz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__rgcz00(void)
	{
		{	/* Rgc/rgc.scm 17 */
			BGl_symbol1750z00zz__rgcz00 =
				bstring_to_symbol(BGl_string1751z00zz__rgcz00);
			BGl_symbol1752z00zz__rgcz00 =
				bstring_to_symbol(BGl_string1753z00zz__rgcz00);
			return (BGl_symbol1754z00zz__rgcz00 =
				bstring_to_symbol(BGl_string1755z00zz__rgcz00), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__rgcz00(void)
	{
		{	/* Rgc/rgc.scm 17 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__rgcz00(void)
	{
		{	/* Rgc/rgc.scm 17 */
			return (BGl_za2unsafezd2rgcza2zd2zz__rgcz00 = BFALSE, BUNSPEC);
		}

	}



/* rgc-buffer-get-char */
	BGL_EXPORTED_DEF int BGl_rgczd2bufferzd2getzd2charzd2zz__rgcz00(obj_t
		BgL_inputzd2portzd2_3, long BgL_indexz00_4)
	{
		{	/* Rgc/rgc.scm 241 */
			return RGC_BUFFER_GET_CHAR(BgL_inputzd2portzd2_3, BgL_indexz00_4);
		}

	}



/* &rgc-buffer-get-char */
	obj_t BGl_z62rgczd2bufferzd2getzd2charzb0zz__rgcz00(obj_t BgL_envz00_1892,
		obj_t BgL_inputzd2portzd2_1893, obj_t BgL_indexz00_1894)
	{
		{	/* Rgc/rgc.scm 241 */
			{	/* Rgc/rgc.scm 242 */
				int BgL_tmpz00_2104;

				{	/* Rgc/rgc.scm 242 */
					long BgL_auxz00_2112;
					obj_t BgL_auxz00_2105;

					{	/* Rgc/rgc.scm 242 */
						obj_t BgL_tmpz00_2113;

						if (INTEGERP(BgL_indexz00_1894))
							{	/* Rgc/rgc.scm 242 */
								BgL_tmpz00_2113 = BgL_indexz00_1894;
							}
						else
							{
								obj_t BgL_auxz00_2116;

								BgL_auxz00_2116 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
									BINT(11343L), BGl_string1713z00zz__rgcz00,
									BGl_string1715z00zz__rgcz00, BgL_indexz00_1894);
								FAILURE(BgL_auxz00_2116, BFALSE, BFALSE);
							}
						BgL_auxz00_2112 = (long) CINT(BgL_tmpz00_2113);
					}
					if (INPUT_PORTP(BgL_inputzd2portzd2_1893))
						{	/* Rgc/rgc.scm 242 */
							BgL_auxz00_2105 = BgL_inputzd2portzd2_1893;
						}
					else
						{
							obj_t BgL_auxz00_2108;

							BgL_auxz00_2108 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(11343L), BGl_string1713z00zz__rgcz00,
								BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1893);
							FAILURE(BgL_auxz00_2108, BFALSE, BFALSE);
						}
					BgL_tmpz00_2104 =
						BGl_rgczd2bufferzd2getzd2charzd2zz__rgcz00(BgL_auxz00_2105,
						BgL_auxz00_2112);
				}
				return BINT(BgL_tmpz00_2104);
			}
		}

	}



/* rgc-buffer-unget-char */
	BGL_EXPORTED_DEF int BGl_rgczd2bufferzd2ungetzd2charzd2zz__rgcz00(obj_t
		BgL_inputzd2portzd2_5, int BgL_charz00_6)
	{
		{	/* Rgc/rgc.scm 247 */
			BGL_TAIL return
				rgc_buffer_unget_char(BgL_inputzd2portzd2_5, BgL_charz00_6);
		}

	}



/* &rgc-buffer-unget-char */
	obj_t BGl_z62rgczd2bufferzd2ungetzd2charzb0zz__rgcz00(obj_t BgL_envz00_1895,
		obj_t BgL_inputzd2portzd2_1896, obj_t BgL_charz00_1897)
	{
		{	/* Rgc/rgc.scm 247 */
			{	/* Rgc/rgc.scm 248 */
				int BgL_tmpz00_2124;

				{	/* Rgc/rgc.scm 248 */
					int BgL_auxz00_2132;
					obj_t BgL_auxz00_2125;

					{	/* Rgc/rgc.scm 248 */
						obj_t BgL_tmpz00_2133;

						if (INTEGERP(BgL_charz00_1897))
							{	/* Rgc/rgc.scm 248 */
								BgL_tmpz00_2133 = BgL_charz00_1897;
							}
						else
							{
								obj_t BgL_auxz00_2136;

								BgL_auxz00_2136 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
									BINT(11665L), BGl_string1716z00zz__rgcz00,
									BGl_string1715z00zz__rgcz00, BgL_charz00_1897);
								FAILURE(BgL_auxz00_2136, BFALSE, BFALSE);
							}
						BgL_auxz00_2132 = CINT(BgL_tmpz00_2133);
					}
					if (INPUT_PORTP(BgL_inputzd2portzd2_1896))
						{	/* Rgc/rgc.scm 248 */
							BgL_auxz00_2125 = BgL_inputzd2portzd2_1896;
						}
					else
						{
							obj_t BgL_auxz00_2128;

							BgL_auxz00_2128 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(11665L), BGl_string1716z00zz__rgcz00,
								BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1896);
							FAILURE(BgL_auxz00_2128, BFALSE, BFALSE);
						}
					BgL_tmpz00_2124 =
						BGl_rgczd2bufferzd2ungetzd2charzd2zz__rgcz00(BgL_auxz00_2125,
						BgL_auxz00_2132);
				}
				return BINT(BgL_tmpz00_2124);
			}
		}

	}



/* rgc-buffer-insert-substring! */
	BGL_EXPORTED_DEF bool_t
		BGl_rgczd2bufferzd2insertzd2substringz12zc0zz__rgcz00(obj_t
		BgL_inputzd2portzd2_7, obj_t BgL_strz00_8, long BgL_fromz00_9,
		long BgL_toz00_10)
	{
		{	/* Rgc/rgc.scm 253 */
			BGL_TAIL return
				rgc_buffer_insert_substring(BgL_inputzd2portzd2_7, BgL_strz00_8,
				BgL_fromz00_9, BgL_toz00_10);
		}

	}



/* &rgc-buffer-insert-substring! */
	obj_t BGl_z62rgczd2bufferzd2insertzd2substringz12za2zz__rgcz00(obj_t
		BgL_envz00_1898, obj_t BgL_inputzd2portzd2_1899, obj_t BgL_strz00_1900,
		obj_t BgL_fromz00_1901, obj_t BgL_toz00_1902)
	{
		{	/* Rgc/rgc.scm 253 */
			{	/* Rgc/rgc.scm 254 */
				bool_t BgL_tmpz00_2144;

				{	/* Rgc/rgc.scm 254 */
					long BgL_auxz00_2168;
					long BgL_auxz00_2159;
					obj_t BgL_auxz00_2152;
					obj_t BgL_auxz00_2145;

					{	/* Rgc/rgc.scm 254 */
						obj_t BgL_tmpz00_2169;

						if (INTEGERP(BgL_toz00_1902))
							{	/* Rgc/rgc.scm 254 */
								BgL_tmpz00_2169 = BgL_toz00_1902;
							}
						else
							{
								obj_t BgL_auxz00_2172;

								BgL_auxz00_2172 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
									BINT(12002L), BGl_string1717z00zz__rgcz00,
									BGl_string1715z00zz__rgcz00, BgL_toz00_1902);
								FAILURE(BgL_auxz00_2172, BFALSE, BFALSE);
							}
						BgL_auxz00_2168 = (long) CINT(BgL_tmpz00_2169);
					}
					{	/* Rgc/rgc.scm 254 */
						obj_t BgL_tmpz00_2160;

						if (INTEGERP(BgL_fromz00_1901))
							{	/* Rgc/rgc.scm 254 */
								BgL_tmpz00_2160 = BgL_fromz00_1901;
							}
						else
							{
								obj_t BgL_auxz00_2163;

								BgL_auxz00_2163 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
									BINT(12002L), BGl_string1717z00zz__rgcz00,
									BGl_string1715z00zz__rgcz00, BgL_fromz00_1901);
								FAILURE(BgL_auxz00_2163, BFALSE, BFALSE);
							}
						BgL_auxz00_2159 = (long) CINT(BgL_tmpz00_2160);
					}
					if (STRINGP(BgL_strz00_1900))
						{	/* Rgc/rgc.scm 254 */
							BgL_auxz00_2152 = BgL_strz00_1900;
						}
					else
						{
							obj_t BgL_auxz00_2155;

							BgL_auxz00_2155 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(12002L), BGl_string1717z00zz__rgcz00,
								BGl_string1718z00zz__rgcz00, BgL_strz00_1900);
							FAILURE(BgL_auxz00_2155, BFALSE, BFALSE);
						}
					if (INPUT_PORTP(BgL_inputzd2portzd2_1899))
						{	/* Rgc/rgc.scm 254 */
							BgL_auxz00_2145 = BgL_inputzd2portzd2_1899;
						}
					else
						{
							obj_t BgL_auxz00_2148;

							BgL_auxz00_2148 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(12002L), BGl_string1717z00zz__rgcz00,
								BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1899);
							FAILURE(BgL_auxz00_2148, BFALSE, BFALSE);
						}
					BgL_tmpz00_2144 =
						BGl_rgczd2bufferzd2insertzd2substringz12zc0zz__rgcz00
						(BgL_auxz00_2145, BgL_auxz00_2152, BgL_auxz00_2159,
						BgL_auxz00_2168);
				}
				return BBOOL(BgL_tmpz00_2144);
			}
		}

	}



/* rgc-buffer-insert-char! */
	BGL_EXPORTED_DEF bool_t BGl_rgczd2bufferzd2insertzd2charz12zc0zz__rgcz00(obj_t
		BgL_inputzd2portzd2_11, long BgL_charz00_12)
	{
		{	/* Rgc/rgc.scm 259 */
			return
				rgc_buffer_insert_char(BgL_inputzd2portzd2_11, (int) (BgL_charz00_12));
		}

	}



/* &rgc-buffer-insert-char! */
	obj_t BGl_z62rgczd2bufferzd2insertzd2charz12za2zz__rgcz00(obj_t
		BgL_envz00_1903, obj_t BgL_inputzd2portzd2_1904, obj_t BgL_charz00_1905)
	{
		{	/* Rgc/rgc.scm 259 */
			{	/* Rgc/rgc.scm 260 */
				bool_t BgL_tmpz00_2181;

				{	/* Rgc/rgc.scm 260 */
					long BgL_auxz00_2189;
					obj_t BgL_auxz00_2182;

					{	/* Rgc/rgc.scm 260 */
						obj_t BgL_tmpz00_2190;

						if (INTEGERP(BgL_charz00_1905))
							{	/* Rgc/rgc.scm 260 */
								BgL_tmpz00_2190 = BgL_charz00_1905;
							}
						else
							{
								obj_t BgL_auxz00_2193;

								BgL_auxz00_2193 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
									BINT(12340L), BGl_string1719z00zz__rgcz00,
									BGl_string1715z00zz__rgcz00, BgL_charz00_1905);
								FAILURE(BgL_auxz00_2193, BFALSE, BFALSE);
							}
						BgL_auxz00_2189 = (long) CINT(BgL_tmpz00_2190);
					}
					if (INPUT_PORTP(BgL_inputzd2portzd2_1904))
						{	/* Rgc/rgc.scm 260 */
							BgL_auxz00_2182 = BgL_inputzd2portzd2_1904;
						}
					else
						{
							obj_t BgL_auxz00_2185;

							BgL_auxz00_2185 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(12340L), BGl_string1719z00zz__rgcz00,
								BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1904);
							FAILURE(BgL_auxz00_2185, BFALSE, BFALSE);
						}
					BgL_tmpz00_2181 =
						BGl_rgczd2bufferzd2insertzd2charz12zc0zz__rgcz00(BgL_auxz00_2182,
						BgL_auxz00_2189);
				}
				return BBOOL(BgL_tmpz00_2181);
			}
		}

	}



/* rgc-buffer-character */
	BGL_EXPORTED_DEF unsigned char BGl_rgczd2bufferzd2characterz00zz__rgcz00(obj_t
		BgL_inputzd2portzd2_13)
	{
		{	/* Rgc/rgc.scm 265 */
			return RGC_BUFFER_CHARACTER(BgL_inputzd2portzd2_13);
		}

	}



/* &rgc-buffer-character */
	obj_t BGl_z62rgczd2bufferzd2characterz62zz__rgcz00(obj_t BgL_envz00_1906,
		obj_t BgL_inputzd2portzd2_1907)
	{
		{	/* Rgc/rgc.scm 265 */
			{	/* Rgc/rgc.scm 266 */
				unsigned char BgL_tmpz00_2201;

				{	/* Rgc/rgc.scm 266 */
					obj_t BgL_auxz00_2202;

					if (INPUT_PORTP(BgL_inputzd2portzd2_1907))
						{	/* Rgc/rgc.scm 266 */
							BgL_auxz00_2202 = BgL_inputzd2portzd2_1907;
						}
					else
						{
							obj_t BgL_auxz00_2205;

							BgL_auxz00_2205 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(12658L), BGl_string1720z00zz__rgcz00,
								BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1907);
							FAILURE(BgL_auxz00_2205, BFALSE, BFALSE);
						}
					BgL_tmpz00_2201 =
						BGl_rgczd2bufferzd2characterz00zz__rgcz00(BgL_auxz00_2202);
				}
				return BCHAR(BgL_tmpz00_2201);
			}
		}

	}



/* rgc-buffer-byte */
	BGL_EXPORTED_DEF int BGl_rgczd2bufferzd2bytez00zz__rgcz00(obj_t
		BgL_inputzd2portzd2_14)
	{
		{	/* Rgc/rgc.scm 271 */
			return RGC_BUFFER_BYTE(BgL_inputzd2portzd2_14);
		}

	}



/* &rgc-buffer-byte */
	obj_t BGl_z62rgczd2bufferzd2bytez62zz__rgcz00(obj_t BgL_envz00_1908,
		obj_t BgL_inputzd2portzd2_1909)
	{
		{	/* Rgc/rgc.scm 271 */
			{	/* Rgc/rgc.scm 272 */
				int BgL_tmpz00_2212;

				{	/* Rgc/rgc.scm 272 */
					obj_t BgL_auxz00_2213;

					if (INPUT_PORTP(BgL_inputzd2portzd2_1909))
						{	/* Rgc/rgc.scm 272 */
							BgL_auxz00_2213 = BgL_inputzd2portzd2_1909;
						}
					else
						{
							obj_t BgL_auxz00_2216;

							BgL_auxz00_2216 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(12964L), BGl_string1721z00zz__rgcz00,
								BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1909);
							FAILURE(BgL_auxz00_2216, BFALSE, BFALSE);
						}
					BgL_tmpz00_2212 =
						BGl_rgczd2bufferzd2bytez00zz__rgcz00(BgL_auxz00_2213);
				}
				return BINT(BgL_tmpz00_2212);
			}
		}

	}



/* rgc-buffer-byte-ref */
	BGL_EXPORTED_DEF int BGl_rgczd2bufferzd2bytezd2refzd2zz__rgcz00(obj_t
		BgL_inputzd2portzd2_15, int BgL_offsetz00_16)
	{
		{	/* Rgc/rgc.scm 277 */
			return RGC_BUFFER_BYTE_REF(BgL_inputzd2portzd2_15, BgL_offsetz00_16);
		}

	}



/* &rgc-buffer-byte-ref */
	obj_t BGl_z62rgczd2bufferzd2bytezd2refzb0zz__rgcz00(obj_t BgL_envz00_1910,
		obj_t BgL_inputzd2portzd2_1911, obj_t BgL_offsetz00_1912)
	{
		{	/* Rgc/rgc.scm 277 */
			{	/* Rgc/rgc.scm 278 */
				int BgL_tmpz00_2223;

				{	/* Rgc/rgc.scm 278 */
					int BgL_auxz00_2231;
					obj_t BgL_auxz00_2224;

					{	/* Rgc/rgc.scm 278 */
						obj_t BgL_tmpz00_2232;

						if (INTEGERP(BgL_offsetz00_1912))
							{	/* Rgc/rgc.scm 278 */
								BgL_tmpz00_2232 = BgL_offsetz00_1912;
							}
						else
							{
								obj_t BgL_auxz00_2235;

								BgL_auxz00_2235 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
									BINT(13276L), BGl_string1722z00zz__rgcz00,
									BGl_string1715z00zz__rgcz00, BgL_offsetz00_1912);
								FAILURE(BgL_auxz00_2235, BFALSE, BFALSE);
							}
						BgL_auxz00_2231 = CINT(BgL_tmpz00_2232);
					}
					if (INPUT_PORTP(BgL_inputzd2portzd2_1911))
						{	/* Rgc/rgc.scm 278 */
							BgL_auxz00_2224 = BgL_inputzd2portzd2_1911;
						}
					else
						{
							obj_t BgL_auxz00_2227;

							BgL_auxz00_2227 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(13276L), BGl_string1722z00zz__rgcz00,
								BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1911);
							FAILURE(BgL_auxz00_2227, BFALSE, BFALSE);
						}
					BgL_tmpz00_2223 =
						BGl_rgczd2bufferzd2bytezd2refzd2zz__rgcz00(BgL_auxz00_2224,
						BgL_auxz00_2231);
				}
				return BINT(BgL_tmpz00_2223);
			}
		}

	}



/* rgc-buffer-substring */
	BGL_EXPORTED_DEF obj_t BGl_rgczd2bufferzd2substringz00zz__rgcz00(obj_t
		BgL_inputzd2portzd2_17, long BgL_startz00_18, long BgL_stopz00_19)
	{
		{	/* Rgc/rgc.scm 283 */
			BGL_TAIL return
				rgc_buffer_substring(BgL_inputzd2portzd2_17, BgL_startz00_18,
				BgL_stopz00_19);
		}

	}



/* &rgc-buffer-substring */
	obj_t BGl_z62rgczd2bufferzd2substringz62zz__rgcz00(obj_t BgL_envz00_1913,
		obj_t BgL_inputzd2portzd2_1914, obj_t BgL_startz00_1915,
		obj_t BgL_stopz00_1916)
	{
		{	/* Rgc/rgc.scm 283 */
			{	/* Rgc/rgc.scm 284 */
				long BgL_auxz00_2259;
				long BgL_auxz00_2250;
				obj_t BgL_auxz00_2243;

				{	/* Rgc/rgc.scm 284 */
					obj_t BgL_tmpz00_2260;

					if (INTEGERP(BgL_stopz00_1916))
						{	/* Rgc/rgc.scm 284 */
							BgL_tmpz00_2260 = BgL_stopz00_1916;
						}
					else
						{
							obj_t BgL_auxz00_2263;

							BgL_auxz00_2263 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(13604L), BGl_string1723z00zz__rgcz00,
								BGl_string1715z00zz__rgcz00, BgL_stopz00_1916);
							FAILURE(BgL_auxz00_2263, BFALSE, BFALSE);
						}
					BgL_auxz00_2259 = (long) CINT(BgL_tmpz00_2260);
				}
				{	/* Rgc/rgc.scm 284 */
					obj_t BgL_tmpz00_2251;

					if (INTEGERP(BgL_startz00_1915))
						{	/* Rgc/rgc.scm 284 */
							BgL_tmpz00_2251 = BgL_startz00_1915;
						}
					else
						{
							obj_t BgL_auxz00_2254;

							BgL_auxz00_2254 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(13604L), BGl_string1723z00zz__rgcz00,
								BGl_string1715z00zz__rgcz00, BgL_startz00_1915);
							FAILURE(BgL_auxz00_2254, BFALSE, BFALSE);
						}
					BgL_auxz00_2250 = (long) CINT(BgL_tmpz00_2251);
				}
				if (INPUT_PORTP(BgL_inputzd2portzd2_1914))
					{	/* Rgc/rgc.scm 284 */
						BgL_auxz00_2243 = BgL_inputzd2portzd2_1914;
					}
				else
					{
						obj_t BgL_auxz00_2246;

						BgL_auxz00_2246 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
							BINT(13604L), BGl_string1723z00zz__rgcz00,
							BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1914);
						FAILURE(BgL_auxz00_2246, BFALSE, BFALSE);
					}
				return
					BGl_rgczd2bufferzd2substringz00zz__rgcz00(BgL_auxz00_2243,
					BgL_auxz00_2250, BgL_auxz00_2259);
			}
		}

	}



/* rgc-buffer-escape-substring */
	BGL_EXPORTED_DEF obj_t
		BGl_rgczd2bufferzd2escapezd2substringzd2zz__rgcz00(obj_t
		BgL_inputzd2portzd2_20, long BgL_startz00_21, long BgL_stopz00_22,
		bool_t BgL_strictz00_23)
	{
		{	/* Rgc/rgc.scm 289 */
			BGL_TAIL return
				rgc_buffer_escape_substring(BgL_inputzd2portzd2_20, BgL_startz00_21,
				BgL_stopz00_22, BgL_strictz00_23);
		}

	}



/* &rgc-buffer-escape-substring */
	obj_t BGl_z62rgczd2bufferzd2escapezd2substringzb0zz__rgcz00(obj_t
		BgL_envz00_1917, obj_t BgL_inputzd2portzd2_1918, obj_t BgL_startz00_1919,
		obj_t BgL_stopz00_1920, obj_t BgL_strictz00_1921)
	{
		{	/* Rgc/rgc.scm 289 */
			{	/* Rgc/rgc.scm 290 */
				long BgL_auxz00_2286;
				long BgL_auxz00_2277;
				obj_t BgL_auxz00_2270;

				{	/* Rgc/rgc.scm 290 */
					obj_t BgL_tmpz00_2287;

					if (INTEGERP(BgL_stopz00_1920))
						{	/* Rgc/rgc.scm 290 */
							BgL_tmpz00_2287 = BgL_stopz00_1920;
						}
					else
						{
							obj_t BgL_auxz00_2290;

							BgL_auxz00_2290 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(13951L), BGl_string1724z00zz__rgcz00,
								BGl_string1715z00zz__rgcz00, BgL_stopz00_1920);
							FAILURE(BgL_auxz00_2290, BFALSE, BFALSE);
						}
					BgL_auxz00_2286 = (long) CINT(BgL_tmpz00_2287);
				}
				{	/* Rgc/rgc.scm 290 */
					obj_t BgL_tmpz00_2278;

					if (INTEGERP(BgL_startz00_1919))
						{	/* Rgc/rgc.scm 290 */
							BgL_tmpz00_2278 = BgL_startz00_1919;
						}
					else
						{
							obj_t BgL_auxz00_2281;

							BgL_auxz00_2281 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(13951L), BGl_string1724z00zz__rgcz00,
								BGl_string1715z00zz__rgcz00, BgL_startz00_1919);
							FAILURE(BgL_auxz00_2281, BFALSE, BFALSE);
						}
					BgL_auxz00_2277 = (long) CINT(BgL_tmpz00_2278);
				}
				if (INPUT_PORTP(BgL_inputzd2portzd2_1918))
					{	/* Rgc/rgc.scm 290 */
						BgL_auxz00_2270 = BgL_inputzd2portzd2_1918;
					}
				else
					{
						obj_t BgL_auxz00_2273;

						BgL_auxz00_2273 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
							BINT(13951L), BGl_string1724z00zz__rgcz00,
							BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1918);
						FAILURE(BgL_auxz00_2273, BFALSE, BFALSE);
					}
				return
					BGl_rgczd2bufferzd2escapezd2substringzd2zz__rgcz00(BgL_auxz00_2270,
					BgL_auxz00_2277, BgL_auxz00_2286, CBOOL(BgL_strictz00_1921));
			}
		}

	}



/* rgc-buffer-length */
	BGL_EXPORTED_DEF long BGl_rgczd2bufferzd2lengthz00zz__rgcz00(obj_t
		BgL_inputzd2portzd2_24)
	{
		{	/* Rgc/rgc.scm 295 */
			return RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_24);
		}

	}



/* &rgc-buffer-length */
	obj_t BGl_z62rgczd2bufferzd2lengthz62zz__rgcz00(obj_t BgL_envz00_1922,
		obj_t BgL_inputzd2portzd2_1923)
	{
		{	/* Rgc/rgc.scm 295 */
			{	/* Rgc/rgc.scm 296 */
				long BgL_tmpz00_2298;

				{	/* Rgc/rgc.scm 296 */
					obj_t BgL_auxz00_2299;

					if (INPUT_PORTP(BgL_inputzd2portzd2_1923))
						{	/* Rgc/rgc.scm 296 */
							BgL_auxz00_2299 = BgL_inputzd2portzd2_1923;
						}
					else
						{
							obj_t BgL_auxz00_2302;

							BgL_auxz00_2302 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(14302L), BGl_string1725z00zz__rgcz00,
								BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1923);
							FAILURE(BgL_auxz00_2302, BFALSE, BFALSE);
						}
					BgL_tmpz00_2298 =
						BGl_rgczd2bufferzd2lengthz00zz__rgcz00(BgL_auxz00_2299);
				}
				return BINT(BgL_tmpz00_2298);
			}
		}

	}



/* rgc-buffer-fixnum */
	BGL_EXPORTED_DEF long BGl_rgczd2bufferzd2fixnumz00zz__rgcz00(obj_t
		BgL_inputzd2portzd2_25)
	{
		{	/* Rgc/rgc.scm 301 */
			BGL_TAIL return rgc_buffer_fixnum(BgL_inputzd2portzd2_25);
		}

	}



/* &rgc-buffer-fixnum */
	obj_t BGl_z62rgczd2bufferzd2fixnumz62zz__rgcz00(obj_t BgL_envz00_1924,
		obj_t BgL_inputzd2portzd2_1925)
	{
		{	/* Rgc/rgc.scm 301 */
			{	/* Rgc/rgc.scm 302 */
				long BgL_tmpz00_2309;

				{	/* Rgc/rgc.scm 302 */
					obj_t BgL_auxz00_2310;

					if (INPUT_PORTP(BgL_inputzd2portzd2_1925))
						{	/* Rgc/rgc.scm 302 */
							BgL_auxz00_2310 = BgL_inputzd2portzd2_1925;
						}
					else
						{
							obj_t BgL_auxz00_2313;

							BgL_auxz00_2313 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(14625L), BGl_string1726z00zz__rgcz00,
								BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1925);
							FAILURE(BgL_auxz00_2313, BFALSE, BFALSE);
						}
					BgL_tmpz00_2309 =
						BGl_rgczd2bufferzd2fixnumz00zz__rgcz00(BgL_auxz00_2310);
				}
				return BINT(BgL_tmpz00_2309);
			}
		}

	}



/* rgc-buffer-integer */
	BGL_EXPORTED_DEF obj_t BGl_rgczd2bufferzd2integerz00zz__rgcz00(obj_t
		BgL_inputzd2portzd2_26)
	{
		{	/* Rgc/rgc.scm 307 */
			BGL_TAIL return rgc_buffer_integer(BgL_inputzd2portzd2_26);
		}

	}



/* &rgc-buffer-integer */
	obj_t BGl_z62rgczd2bufferzd2integerz62zz__rgcz00(obj_t BgL_envz00_1926,
		obj_t BgL_inputzd2portzd2_1927)
	{
		{	/* Rgc/rgc.scm 307 */
			{	/* Rgc/rgc.scm 308 */
				obj_t BgL_auxz00_2320;

				if (INPUT_PORTP(BgL_inputzd2portzd2_1927))
					{	/* Rgc/rgc.scm 308 */
						BgL_auxz00_2320 = BgL_inputzd2portzd2_1927;
					}
				else
					{
						obj_t BgL_auxz00_2323;

						BgL_auxz00_2323 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
							BINT(14948L), BGl_string1727z00zz__rgcz00,
							BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1927);
						FAILURE(BgL_auxz00_2323, BFALSE, BFALSE);
					}
				return BGl_rgczd2bufferzd2integerz00zz__rgcz00(BgL_auxz00_2320);
			}
		}

	}



/* rgc-buffer-flonum */
	BGL_EXPORTED_DEF double BGl_rgczd2bufferzd2flonumz00zz__rgcz00(obj_t
		BgL_inputzd2portzd2_27)
	{
		{	/* Rgc/rgc.scm 313 */
			BGL_TAIL return rgc_buffer_flonum(BgL_inputzd2portzd2_27);
		}

	}



/* &rgc-buffer-flonum */
	obj_t BGl_z62rgczd2bufferzd2flonumz62zz__rgcz00(obj_t BgL_envz00_1928,
		obj_t BgL_inputzd2portzd2_1929)
	{
		{	/* Rgc/rgc.scm 313 */
			{	/* Rgc/rgc.scm 314 */
				double BgL_tmpz00_2329;

				{	/* Rgc/rgc.scm 314 */
					obj_t BgL_auxz00_2330;

					if (INPUT_PORTP(BgL_inputzd2portzd2_1929))
						{	/* Rgc/rgc.scm 314 */
							BgL_auxz00_2330 = BgL_inputzd2portzd2_1929;
						}
					else
						{
							obj_t BgL_auxz00_2333;

							BgL_auxz00_2333 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(15274L), BGl_string1728z00zz__rgcz00,
								BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1929);
							FAILURE(BgL_auxz00_2333, BFALSE, BFALSE);
						}
					BgL_tmpz00_2329 =
						BGl_rgczd2bufferzd2flonumz00zz__rgcz00(BgL_auxz00_2330);
				}
				return DOUBLE_TO_REAL(BgL_tmpz00_2329);
			}
		}

	}



/* rgc-buffer-symbol */
	BGL_EXPORTED_DEF obj_t BGl_rgczd2bufferzd2symbolz00zz__rgcz00(obj_t
		BgL_inputzd2portzd2_28)
	{
		{	/* Rgc/rgc.scm 319 */
			BGL_TAIL return rgc_buffer_symbol(BgL_inputzd2portzd2_28);
		}

	}



/* &rgc-buffer-symbol */
	obj_t BGl_z62rgczd2bufferzd2symbolz62zz__rgcz00(obj_t BgL_envz00_1930,
		obj_t BgL_inputzd2portzd2_1931)
	{
		{	/* Rgc/rgc.scm 319 */
			{	/* Rgc/rgc.scm 320 */
				obj_t BgL_auxz00_2340;

				if (INPUT_PORTP(BgL_inputzd2portzd2_1931))
					{	/* Rgc/rgc.scm 320 */
						BgL_auxz00_2340 = BgL_inputzd2portzd2_1931;
					}
				else
					{
						obj_t BgL_auxz00_2343;

						BgL_auxz00_2343 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
							BINT(15599L), BGl_string1729z00zz__rgcz00,
							BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1931);
						FAILURE(BgL_auxz00_2343, BFALSE, BFALSE);
					}
				return BGl_rgczd2bufferzd2symbolz00zz__rgcz00(BgL_auxz00_2340);
			}
		}

	}



/* rgc-buffer-subsymbol */
	BGL_EXPORTED_DEF obj_t BGl_rgczd2bufferzd2subsymbolz00zz__rgcz00(obj_t
		BgL_inputzd2portzd2_29, long BgL_startz00_30, long BgL_stopz00_31)
	{
		{	/* Rgc/rgc.scm 325 */
			BGL_TAIL return
				rgc_buffer_subsymbol(BgL_inputzd2portzd2_29, BgL_startz00_30,
				BgL_stopz00_31);
		}

	}



/* &rgc-buffer-subsymbol */
	obj_t BGl_z62rgczd2bufferzd2subsymbolz62zz__rgcz00(obj_t BgL_envz00_1932,
		obj_t BgL_inputzd2portzd2_1933, obj_t BgL_startz00_1934,
		obj_t BgL_stopz00_1935)
	{
		{	/* Rgc/rgc.scm 325 */
			{	/* Rgc/rgc.scm 326 */
				long BgL_auxz00_2365;
				long BgL_auxz00_2356;
				obj_t BgL_auxz00_2349;

				{	/* Rgc/rgc.scm 326 */
					obj_t BgL_tmpz00_2366;

					if (INTEGERP(BgL_stopz00_1935))
						{	/* Rgc/rgc.scm 326 */
							BgL_tmpz00_2366 = BgL_stopz00_1935;
						}
					else
						{
							obj_t BgL_auxz00_2369;

							BgL_auxz00_2369 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(15918L), BGl_string1730z00zz__rgcz00,
								BGl_string1715z00zz__rgcz00, BgL_stopz00_1935);
							FAILURE(BgL_auxz00_2369, BFALSE, BFALSE);
						}
					BgL_auxz00_2365 = (long) CINT(BgL_tmpz00_2366);
				}
				{	/* Rgc/rgc.scm 326 */
					obj_t BgL_tmpz00_2357;

					if (INTEGERP(BgL_startz00_1934))
						{	/* Rgc/rgc.scm 326 */
							BgL_tmpz00_2357 = BgL_startz00_1934;
						}
					else
						{
							obj_t BgL_auxz00_2360;

							BgL_auxz00_2360 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(15918L), BGl_string1730z00zz__rgcz00,
								BGl_string1715z00zz__rgcz00, BgL_startz00_1934);
							FAILURE(BgL_auxz00_2360, BFALSE, BFALSE);
						}
					BgL_auxz00_2356 = (long) CINT(BgL_tmpz00_2357);
				}
				if (INPUT_PORTP(BgL_inputzd2portzd2_1933))
					{	/* Rgc/rgc.scm 326 */
						BgL_auxz00_2349 = BgL_inputzd2portzd2_1933;
					}
				else
					{
						obj_t BgL_auxz00_2352;

						BgL_auxz00_2352 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
							BINT(15918L), BGl_string1730z00zz__rgcz00,
							BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1933);
						FAILURE(BgL_auxz00_2352, BFALSE, BFALSE);
					}
				return
					BGl_rgczd2bufferzd2subsymbolz00zz__rgcz00(BgL_auxz00_2349,
					BgL_auxz00_2356, BgL_auxz00_2365);
			}
		}

	}



/* rgc-buffer-downcase-symbol */
	BGL_EXPORTED_DEF obj_t BGl_rgczd2bufferzd2downcasezd2symbolzd2zz__rgcz00(obj_t
		BgL_inputzd2portzd2_32)
	{
		{	/* Rgc/rgc.scm 331 */
			{	/* Rgc/rgc.scm 332 */
				long BgL_arg1194z00_2087;

				BgL_arg1194z00_2087 = RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_32);
				return
					rgc_buffer_downcase_subsymbol(BgL_inputzd2portzd2_32, 0L,
					BgL_arg1194z00_2087);
			}
		}

	}



/* &rgc-buffer-downcase-symbol */
	obj_t BGl_z62rgczd2bufferzd2downcasezd2symbolzb0zz__rgcz00(obj_t
		BgL_envz00_1936, obj_t BgL_inputzd2portzd2_1937)
	{
		{	/* Rgc/rgc.scm 331 */
			{	/* Rgc/rgc.scm 332 */
				obj_t BgL_auxz00_2377;

				if (INPUT_PORTP(BgL_inputzd2portzd2_1937))
					{	/* Rgc/rgc.scm 332 */
						BgL_auxz00_2377 = BgL_inputzd2portzd2_1937;
					}
				else
					{
						obj_t BgL_auxz00_2380;

						BgL_auxz00_2380 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
							BINT(16311L), BGl_string1731z00zz__rgcz00,
							BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1937);
						FAILURE(BgL_auxz00_2380, BFALSE, BFALSE);
					}
				return
					BGl_rgczd2bufferzd2downcasezd2symbolzd2zz__rgcz00(BgL_auxz00_2377);
			}
		}

	}



/* rgc-buffer-downcase-subsymbol */
	BGL_EXPORTED_DEF obj_t
		BGl_rgczd2bufferzd2downcasezd2subsymbolzd2zz__rgcz00(obj_t
		BgL_inputzd2portzd2_33, long BgL_startz00_34, long BgL_stopz00_35)
	{
		{	/* Rgc/rgc.scm 337 */
			BGL_TAIL return
				rgc_buffer_downcase_subsymbol(BgL_inputzd2portzd2_33, BgL_startz00_34,
				BgL_stopz00_35);
		}

	}



/* &rgc-buffer-downcase-subsymbol */
	obj_t BGl_z62rgczd2bufferzd2downcasezd2subsymbolzb0zz__rgcz00(obj_t
		BgL_envz00_1938, obj_t BgL_inputzd2portzd2_1939, obj_t BgL_startz00_1940,
		obj_t BgL_stopz00_1941)
	{
		{	/* Rgc/rgc.scm 337 */
			{	/* Rgc/rgc.scm 338 */
				long BgL_auxz00_2402;
				long BgL_auxz00_2393;
				obj_t BgL_auxz00_2386;

				{	/* Rgc/rgc.scm 338 */
					obj_t BgL_tmpz00_2403;

					if (INTEGERP(BgL_stopz00_1941))
						{	/* Rgc/rgc.scm 338 */
							BgL_tmpz00_2403 = BgL_stopz00_1941;
						}
					else
						{
							obj_t BgL_auxz00_2406;

							BgL_auxz00_2406 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(16651L), BGl_string1732z00zz__rgcz00,
								BGl_string1715z00zz__rgcz00, BgL_stopz00_1941);
							FAILURE(BgL_auxz00_2406, BFALSE, BFALSE);
						}
					BgL_auxz00_2402 = (long) CINT(BgL_tmpz00_2403);
				}
				{	/* Rgc/rgc.scm 338 */
					obj_t BgL_tmpz00_2394;

					if (INTEGERP(BgL_startz00_1940))
						{	/* Rgc/rgc.scm 338 */
							BgL_tmpz00_2394 = BgL_startz00_1940;
						}
					else
						{
							obj_t BgL_auxz00_2397;

							BgL_auxz00_2397 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(16651L), BGl_string1732z00zz__rgcz00,
								BGl_string1715z00zz__rgcz00, BgL_startz00_1940);
							FAILURE(BgL_auxz00_2397, BFALSE, BFALSE);
						}
					BgL_auxz00_2393 = (long) CINT(BgL_tmpz00_2394);
				}
				if (INPUT_PORTP(BgL_inputzd2portzd2_1939))
					{	/* Rgc/rgc.scm 338 */
						BgL_auxz00_2386 = BgL_inputzd2portzd2_1939;
					}
				else
					{
						obj_t BgL_auxz00_2389;

						BgL_auxz00_2389 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
							BINT(16651L), BGl_string1732z00zz__rgcz00,
							BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1939);
						FAILURE(BgL_auxz00_2389, BFALSE, BFALSE);
					}
				return
					BGl_rgczd2bufferzd2downcasezd2subsymbolzd2zz__rgcz00(BgL_auxz00_2386,
					BgL_auxz00_2393, BgL_auxz00_2402);
			}
		}

	}



/* rgc-buffer-upcase-symbol */
	BGL_EXPORTED_DEF obj_t BGl_rgczd2bufferzd2upcasezd2symbolzd2zz__rgcz00(obj_t
		BgL_inputzd2portzd2_36)
	{
		{	/* Rgc/rgc.scm 343 */
			{	/* Rgc/rgc.scm 344 */
				long BgL_arg1195z00_2088;

				BgL_arg1195z00_2088 = RGC_BUFFER_MATCH_LENGTH(BgL_inputzd2portzd2_36);
				return
					rgc_buffer_upcase_subsymbol(BgL_inputzd2portzd2_36, 0L,
					BgL_arg1195z00_2088);
			}
		}

	}



/* &rgc-buffer-upcase-symbol */
	obj_t BGl_z62rgczd2bufferzd2upcasezd2symbolzb0zz__rgcz00(obj_t
		BgL_envz00_1942, obj_t BgL_inputzd2portzd2_1943)
	{
		{	/* Rgc/rgc.scm 343 */
			{	/* Rgc/rgc.scm 344 */
				obj_t BgL_auxz00_2414;

				if (INPUT_PORTP(BgL_inputzd2portzd2_1943))
					{	/* Rgc/rgc.scm 344 */
						BgL_auxz00_2414 = BgL_inputzd2portzd2_1943;
					}
				else
					{
						obj_t BgL_auxz00_2417;

						BgL_auxz00_2417 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
							BINT(17049L), BGl_string1733z00zz__rgcz00,
							BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1943);
						FAILURE(BgL_auxz00_2417, BFALSE, BFALSE);
					}
				return BGl_rgczd2bufferzd2upcasezd2symbolzd2zz__rgcz00(BgL_auxz00_2414);
			}
		}

	}



/* rgc-buffer-upcase-subsymbol */
	BGL_EXPORTED_DEF obj_t
		BGl_rgczd2bufferzd2upcasezd2subsymbolzd2zz__rgcz00(obj_t
		BgL_inputzd2portzd2_37, long BgL_startz00_38, long BgL_stopz00_39)
	{
		{	/* Rgc/rgc.scm 349 */
			BGL_TAIL return
				rgc_buffer_upcase_subsymbol(BgL_inputzd2portzd2_37, BgL_startz00_38,
				BgL_stopz00_39);
		}

	}



/* &rgc-buffer-upcase-subsymbol */
	obj_t BGl_z62rgczd2bufferzd2upcasezd2subsymbolzb0zz__rgcz00(obj_t
		BgL_envz00_1944, obj_t BgL_inputzd2portzd2_1945, obj_t BgL_startz00_1946,
		obj_t BgL_stopz00_1947)
	{
		{	/* Rgc/rgc.scm 349 */
			{	/* Rgc/rgc.scm 350 */
				long BgL_auxz00_2439;
				long BgL_auxz00_2430;
				obj_t BgL_auxz00_2423;

				{	/* Rgc/rgc.scm 350 */
					obj_t BgL_tmpz00_2440;

					if (INTEGERP(BgL_stopz00_1947))
						{	/* Rgc/rgc.scm 350 */
							BgL_tmpz00_2440 = BgL_stopz00_1947;
						}
					else
						{
							obj_t BgL_auxz00_2443;

							BgL_auxz00_2443 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(17387L), BGl_string1734z00zz__rgcz00,
								BGl_string1715z00zz__rgcz00, BgL_stopz00_1947);
							FAILURE(BgL_auxz00_2443, BFALSE, BFALSE);
						}
					BgL_auxz00_2439 = (long) CINT(BgL_tmpz00_2440);
				}
				{	/* Rgc/rgc.scm 350 */
					obj_t BgL_tmpz00_2431;

					if (INTEGERP(BgL_startz00_1946))
						{	/* Rgc/rgc.scm 350 */
							BgL_tmpz00_2431 = BgL_startz00_1946;
						}
					else
						{
							obj_t BgL_auxz00_2434;

							BgL_auxz00_2434 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(17387L), BGl_string1734z00zz__rgcz00,
								BGl_string1715z00zz__rgcz00, BgL_startz00_1946);
							FAILURE(BgL_auxz00_2434, BFALSE, BFALSE);
						}
					BgL_auxz00_2430 = (long) CINT(BgL_tmpz00_2431);
				}
				if (INPUT_PORTP(BgL_inputzd2portzd2_1945))
					{	/* Rgc/rgc.scm 350 */
						BgL_auxz00_2423 = BgL_inputzd2portzd2_1945;
					}
				else
					{
						obj_t BgL_auxz00_2426;

						BgL_auxz00_2426 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
							BINT(17387L), BGl_string1734z00zz__rgcz00,
							BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1945);
						FAILURE(BgL_auxz00_2426, BFALSE, BFALSE);
					}
				return
					BGl_rgczd2bufferzd2upcasezd2subsymbolzd2zz__rgcz00(BgL_auxz00_2423,
					BgL_auxz00_2430, BgL_auxz00_2439);
			}
		}

	}



/* rgc-buffer-keyword */
	BGL_EXPORTED_DEF obj_t BGl_rgczd2bufferzd2keywordz00zz__rgcz00(obj_t
		BgL_inputzd2portzd2_40)
	{
		{	/* Rgc/rgc.scm 355 */
			BGL_TAIL return rgc_buffer_keyword(BgL_inputzd2portzd2_40);
		}

	}



/* &rgc-buffer-keyword */
	obj_t BGl_z62rgczd2bufferzd2keywordz62zz__rgcz00(obj_t BgL_envz00_1948,
		obj_t BgL_inputzd2portzd2_1949)
	{
		{	/* Rgc/rgc.scm 355 */
			{	/* Rgc/rgc.scm 356 */
				obj_t BgL_auxz00_2450;

				if (INPUT_PORTP(BgL_inputzd2portzd2_1949))
					{	/* Rgc/rgc.scm 356 */
						BgL_auxz00_2450 = BgL_inputzd2portzd2_1949;
					}
				else
					{
						obj_t BgL_auxz00_2453;

						BgL_auxz00_2453 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
							BINT(17735L), BGl_string1735z00zz__rgcz00,
							BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1949);
						FAILURE(BgL_auxz00_2453, BFALSE, BFALSE);
					}
				return BGl_rgczd2bufferzd2keywordz00zz__rgcz00(BgL_auxz00_2450);
			}
		}

	}



/* rgc-buffer-downcase-keyword */
	BGL_EXPORTED_DEF obj_t
		BGl_rgczd2bufferzd2downcasezd2keywordzd2zz__rgcz00(obj_t
		BgL_inputzd2portzd2_41)
	{
		{	/* Rgc/rgc.scm 361 */
			BGL_TAIL return rgc_buffer_downcase_keyword(BgL_inputzd2portzd2_41);
		}

	}



/* &rgc-buffer-downcase-keyword */
	obj_t BGl_z62rgczd2bufferzd2downcasezd2keywordzb0zz__rgcz00(obj_t
		BgL_envz00_1950, obj_t BgL_inputzd2portzd2_1951)
	{
		{	/* Rgc/rgc.scm 361 */
			{	/* Rgc/rgc.scm 362 */
				obj_t BgL_auxz00_2459;

				if (INPUT_PORTP(BgL_inputzd2portzd2_1951))
					{	/* Rgc/rgc.scm 362 */
						BgL_auxz00_2459 = BgL_inputzd2portzd2_1951;
					}
				else
					{
						obj_t BgL_auxz00_2462;

						BgL_auxz00_2462 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
							BINT(18072L), BGl_string1736z00zz__rgcz00,
							BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1951);
						FAILURE(BgL_auxz00_2462, BFALSE, BFALSE);
					}
				return
					BGl_rgczd2bufferzd2downcasezd2keywordzd2zz__rgcz00(BgL_auxz00_2459);
			}
		}

	}



/* rgc-buffer-upcase-keyword */
	BGL_EXPORTED_DEF obj_t BGl_rgczd2bufferzd2upcasezd2keywordzd2zz__rgcz00(obj_t
		BgL_inputzd2portzd2_42)
	{
		{	/* Rgc/rgc.scm 367 */
			BGL_TAIL return rgc_buffer_upcase_keyword(BgL_inputzd2portzd2_42);
		}

	}



/* &rgc-buffer-upcase-keyword */
	obj_t BGl_z62rgczd2bufferzd2upcasezd2keywordzb0zz__rgcz00(obj_t
		BgL_envz00_1952, obj_t BgL_inputzd2portzd2_1953)
	{
		{	/* Rgc/rgc.scm 367 */
			{	/* Rgc/rgc.scm 368 */
				obj_t BgL_auxz00_2468;

				if (INPUT_PORTP(BgL_inputzd2portzd2_1953))
					{	/* Rgc/rgc.scm 368 */
						BgL_auxz00_2468 = BgL_inputzd2portzd2_1953;
					}
				else
					{
						obj_t BgL_auxz00_2471;

						BgL_auxz00_2471 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
							BINT(18416L), BGl_string1737z00zz__rgcz00,
							BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1953);
						FAILURE(BgL_auxz00_2471, BFALSE, BFALSE);
					}
				return
					BGl_rgczd2bufferzd2upcasezd2keywordzd2zz__rgcz00(BgL_auxz00_2468);
			}
		}

	}



/* rgc-buffer-position */
	BGL_EXPORTED_DEF long BGl_rgczd2bufferzd2positionz00zz__rgcz00(obj_t
		BgL_inputzd2portzd2_43, long BgL_forwardz00_44)
	{
		{	/* Rgc/rgc.scm 373 */
			return RGC_BUFFER_POSITION(BgL_inputzd2portzd2_43, BgL_forwardz00_44);
		}

	}



/* &rgc-buffer-position */
	obj_t BGl_z62rgczd2bufferzd2positionz62zz__rgcz00(obj_t BgL_envz00_1954,
		obj_t BgL_inputzd2portzd2_1955, obj_t BgL_forwardz00_1956)
	{
		{	/* Rgc/rgc.scm 373 */
			{	/* Rgc/rgc.scm 374 */
				long BgL_tmpz00_2477;

				{	/* Rgc/rgc.scm 374 */
					long BgL_auxz00_2485;
					obj_t BgL_auxz00_2478;

					{	/* Rgc/rgc.scm 374 */
						obj_t BgL_tmpz00_2486;

						if (INTEGERP(BgL_forwardz00_1956))
							{	/* Rgc/rgc.scm 374 */
								BgL_tmpz00_2486 = BgL_forwardz00_1956;
							}
						else
							{
								obj_t BgL_auxz00_2489;

								BgL_auxz00_2489 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
									BINT(18757L), BGl_string1738z00zz__rgcz00,
									BGl_string1715z00zz__rgcz00, BgL_forwardz00_1956);
								FAILURE(BgL_auxz00_2489, BFALSE, BFALSE);
							}
						BgL_auxz00_2485 = (long) CINT(BgL_tmpz00_2486);
					}
					if (INPUT_PORTP(BgL_inputzd2portzd2_1955))
						{	/* Rgc/rgc.scm 374 */
							BgL_auxz00_2478 = BgL_inputzd2portzd2_1955;
						}
					else
						{
							obj_t BgL_auxz00_2481;

							BgL_auxz00_2481 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(18757L), BGl_string1738z00zz__rgcz00,
								BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1955);
							FAILURE(BgL_auxz00_2481, BFALSE, BFALSE);
						}
					BgL_tmpz00_2477 =
						BGl_rgczd2bufferzd2positionz00zz__rgcz00(BgL_auxz00_2478,
						BgL_auxz00_2485);
				}
				return BINT(BgL_tmpz00_2477);
			}
		}

	}



/* rgc-buffer-forward */
	BGL_EXPORTED_DEF long BGl_rgczd2bufferzd2forwardz00zz__rgcz00(obj_t
		BgL_inputzd2portzd2_45)
	{
		{	/* Rgc/rgc.scm 379 */
			return RGC_BUFFER_FORWARD(BgL_inputzd2portzd2_45);
		}

	}



/* &rgc-buffer-forward */
	obj_t BGl_z62rgczd2bufferzd2forwardz62zz__rgcz00(obj_t BgL_envz00_1957,
		obj_t BgL_inputzd2portzd2_1958)
	{
		{	/* Rgc/rgc.scm 379 */
			{	/* Rgc/rgc.scm 380 */
				long BgL_tmpz00_2497;

				{	/* Rgc/rgc.scm 380 */
					obj_t BgL_auxz00_2498;

					if (INPUT_PORTP(BgL_inputzd2portzd2_1958))
						{	/* Rgc/rgc.scm 380 */
							BgL_auxz00_2498 = BgL_inputzd2portzd2_1958;
						}
					else
						{
							obj_t BgL_auxz00_2501;

							BgL_auxz00_2501 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(19091L), BGl_string1739z00zz__rgcz00,
								BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1958);
							FAILURE(BgL_auxz00_2501, BFALSE, BFALSE);
						}
					BgL_tmpz00_2497 =
						BGl_rgczd2bufferzd2forwardz00zz__rgcz00(BgL_auxz00_2498);
				}
				return BINT(BgL_tmpz00_2497);
			}
		}

	}



/* rgc-buffer-bufpos */
	BGL_EXPORTED_DEF long BGl_rgczd2bufferzd2bufposz00zz__rgcz00(obj_t
		BgL_inputzd2portzd2_46)
	{
		{	/* Rgc/rgc.scm 385 */
			return RGC_BUFFER_BUFPOS(BgL_inputzd2portzd2_46);
		}

	}



/* &rgc-buffer-bufpos */
	obj_t BGl_z62rgczd2bufferzd2bufposz62zz__rgcz00(obj_t BgL_envz00_1959,
		obj_t BgL_inputzd2portzd2_1960)
	{
		{	/* Rgc/rgc.scm 385 */
			{	/* Rgc/rgc.scm 386 */
				long BgL_tmpz00_2508;

				{	/* Rgc/rgc.scm 386 */
					obj_t BgL_auxz00_2509;

					if (INPUT_PORTP(BgL_inputzd2portzd2_1960))
						{	/* Rgc/rgc.scm 386 */
							BgL_auxz00_2509 = BgL_inputzd2portzd2_1960;
						}
					else
						{
							obj_t BgL_auxz00_2512;

							BgL_auxz00_2512 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(19415L), BGl_string1740z00zz__rgcz00,
								BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1960);
							FAILURE(BgL_auxz00_2512, BFALSE, BFALSE);
						}
					BgL_tmpz00_2508 =
						BGl_rgczd2bufferzd2bufposz00zz__rgcz00(BgL_auxz00_2509);
				}
				return BINT(BgL_tmpz00_2508);
			}
		}

	}



/* rgc-set-filepos! */
	BGL_EXPORTED_DEF obj_t BGl_rgczd2setzd2fileposz12z12zz__rgcz00(obj_t
		BgL_inputzd2portzd2_47)
	{
		{	/* Rgc/rgc.scm 391 */
			return BINT(RGC_SET_FILEPOS(BgL_inputzd2portzd2_47));
		}

	}



/* &rgc-set-filepos! */
	obj_t BGl_z62rgczd2setzd2fileposz12z70zz__rgcz00(obj_t BgL_envz00_1961,
		obj_t BgL_inputzd2portzd2_1962)
	{
		{	/* Rgc/rgc.scm 391 */
			{	/* Rgc/rgc.scm 392 */
				obj_t BgL_auxz00_2520;

				if (INPUT_PORTP(BgL_inputzd2portzd2_1962))
					{	/* Rgc/rgc.scm 392 */
						BgL_auxz00_2520 = BgL_inputzd2portzd2_1962;
					}
				else
					{
						obj_t BgL_auxz00_2523;

						BgL_auxz00_2523 =
							BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
							BINT(19731L), BGl_string1741z00zz__rgcz00,
							BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1962);
						FAILURE(BgL_auxz00_2523, BFALSE, BFALSE);
					}
				return BGl_rgczd2setzd2fileposz12z12zz__rgcz00(BgL_auxz00_2520);
			}
		}

	}



/* rgc-start-match! */
	BGL_EXPORTED_DEF long BGl_rgczd2startzd2matchz12z12zz__rgcz00(obj_t
		BgL_inputzd2portzd2_48)
	{
		{	/* Rgc/rgc.scm 397 */
			return RGC_START_MATCH(BgL_inputzd2portzd2_48);
		}

	}



/* &rgc-start-match! */
	obj_t BGl_z62rgczd2startzd2matchz12z70zz__rgcz00(obj_t BgL_envz00_1963,
		obj_t BgL_inputzd2portzd2_1964)
	{
		{	/* Rgc/rgc.scm 397 */
			{	/* Rgc/rgc.scm 398 */
				long BgL_tmpz00_2529;

				{	/* Rgc/rgc.scm 398 */
					obj_t BgL_auxz00_2530;

					if (INPUT_PORTP(BgL_inputzd2portzd2_1964))
						{	/* Rgc/rgc.scm 398 */
							BgL_auxz00_2530 = BgL_inputzd2portzd2_1964;
						}
					else
						{
							obj_t BgL_auxz00_2533;

							BgL_auxz00_2533 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(20034L), BGl_string1742z00zz__rgcz00,
								BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1964);
							FAILURE(BgL_auxz00_2533, BFALSE, BFALSE);
						}
					BgL_tmpz00_2529 =
						BGl_rgczd2startzd2matchz12z12zz__rgcz00(BgL_auxz00_2530);
				}
				return BINT(BgL_tmpz00_2529);
			}
		}

	}



/* rgc-stop-match! */
	BGL_EXPORTED_DEF long BGl_rgczd2stopzd2matchz12z12zz__rgcz00(obj_t
		BgL_inputzd2portzd2_49, long BgL_forwardz00_50)
	{
		{	/* Rgc/rgc.scm 403 */
			return RGC_STOP_MATCH(BgL_inputzd2portzd2_49, BgL_forwardz00_50);
		}

	}



/* &rgc-stop-match! */
	obj_t BGl_z62rgczd2stopzd2matchz12z70zz__rgcz00(obj_t BgL_envz00_1965,
		obj_t BgL_inputzd2portzd2_1966, obj_t BgL_forwardz00_1967)
	{
		{	/* Rgc/rgc.scm 403 */
			{	/* Rgc/rgc.scm 404 */
				long BgL_tmpz00_2540;

				{	/* Rgc/rgc.scm 404 */
					long BgL_auxz00_2548;
					obj_t BgL_auxz00_2541;

					{	/* Rgc/rgc.scm 404 */
						obj_t BgL_tmpz00_2549;

						if (INTEGERP(BgL_forwardz00_1967))
							{	/* Rgc/rgc.scm 404 */
								BgL_tmpz00_2549 = BgL_forwardz00_1967;
							}
						else
							{
								obj_t BgL_auxz00_2552;

								BgL_auxz00_2552 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
									BINT(20344L), BGl_string1743z00zz__rgcz00,
									BGl_string1715z00zz__rgcz00, BgL_forwardz00_1967);
								FAILURE(BgL_auxz00_2552, BFALSE, BFALSE);
							}
						BgL_auxz00_2548 = (long) CINT(BgL_tmpz00_2549);
					}
					if (INPUT_PORTP(BgL_inputzd2portzd2_1966))
						{	/* Rgc/rgc.scm 404 */
							BgL_auxz00_2541 = BgL_inputzd2portzd2_1966;
						}
					else
						{
							obj_t BgL_auxz00_2544;

							BgL_auxz00_2544 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(20344L), BGl_string1743z00zz__rgcz00,
								BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1966);
							FAILURE(BgL_auxz00_2544, BFALSE, BFALSE);
						}
					BgL_tmpz00_2540 =
						BGl_rgczd2stopzd2matchz12z12zz__rgcz00(BgL_auxz00_2541,
						BgL_auxz00_2548);
				}
				return BINT(BgL_tmpz00_2540);
			}
		}

	}



/* rgc-fill-buffer */
	BGL_EXPORTED_DEF bool_t BGl_rgczd2fillzd2bufferz00zz__rgcz00(obj_t
		BgL_inputzd2portzd2_51)
	{
		{	/* Rgc/rgc.scm 409 */
			BGL_TAIL return rgc_fill_buffer(BgL_inputzd2portzd2_51);
		}

	}



/* &rgc-fill-buffer */
	obj_t BGl_z62rgczd2fillzd2bufferz62zz__rgcz00(obj_t BgL_envz00_1968,
		obj_t BgL_inputzd2portzd2_1969)
	{
		{	/* Rgc/rgc.scm 409 */
			{	/* Rgc/rgc.scm 410 */
				bool_t BgL_tmpz00_2560;

				{	/* Rgc/rgc.scm 410 */
					obj_t BgL_auxz00_2561;

					if (INPUT_PORTP(BgL_inputzd2portzd2_1969))
						{	/* Rgc/rgc.scm 410 */
							BgL_auxz00_2561 = BgL_inputzd2portzd2_1969;
						}
					else
						{
							obj_t BgL_auxz00_2564;

							BgL_auxz00_2564 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(20671L), BGl_string1744z00zz__rgcz00,
								BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1969);
							FAILURE(BgL_auxz00_2564, BFALSE, BFALSE);
						}
					BgL_tmpz00_2560 =
						BGl_rgczd2fillzd2bufferz00zz__rgcz00(BgL_auxz00_2561);
				}
				return BBOOL(BgL_tmpz00_2560);
			}
		}

	}



/* rgc-buffer-bol? */
	BGL_EXPORTED_DEF bool_t BGl_rgczd2bufferzd2bolzf3zf3zz__rgcz00(obj_t
		BgL_inputzd2portzd2_52)
	{
		{	/* Rgc/rgc.scm 415 */
			BGL_TAIL return rgc_buffer_bol_p(BgL_inputzd2portzd2_52);
		}

	}



/* &rgc-buffer-bol? */
	obj_t BGl_z62rgczd2bufferzd2bolzf3z91zz__rgcz00(obj_t BgL_envz00_1970,
		obj_t BgL_inputzd2portzd2_1971)
	{
		{	/* Rgc/rgc.scm 415 */
			{	/* Rgc/rgc.scm 416 */
				bool_t BgL_tmpz00_2571;

				{	/* Rgc/rgc.scm 416 */
					obj_t BgL_auxz00_2572;

					if (INPUT_PORTP(BgL_inputzd2portzd2_1971))
						{	/* Rgc/rgc.scm 416 */
							BgL_auxz00_2572 = BgL_inputzd2portzd2_1971;
						}
					else
						{
							obj_t BgL_auxz00_2575;

							BgL_auxz00_2575 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(20990L), BGl_string1745z00zz__rgcz00,
								BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1971);
							FAILURE(BgL_auxz00_2575, BFALSE, BFALSE);
						}
					BgL_tmpz00_2571 =
						BGl_rgczd2bufferzd2bolzf3zf3zz__rgcz00(BgL_auxz00_2572);
				}
				return BBOOL(BgL_tmpz00_2571);
			}
		}

	}



/* rgc-buffer-eol? */
	BGL_EXPORTED_DEF bool_t BGl_rgczd2bufferzd2eolzf3zf3zz__rgcz00(obj_t
		BgL_inputzd2portzd2_53, long BgL_forwardz00_54, long BgL_bufposz00_55)
	{
		{	/* Rgc/rgc.scm 421 */
			BGL_TAIL return
				rgc_buffer_eol_p(BgL_inputzd2portzd2_53, BgL_forwardz00_54,
				BgL_bufposz00_55);
		}

	}



/* &rgc-buffer-eol? */
	obj_t BGl_z62rgczd2bufferzd2eolzf3z91zz__rgcz00(obj_t BgL_envz00_1972,
		obj_t BgL_inputzd2portzd2_1973, obj_t BgL_forwardz00_1974,
		obj_t BgL_bufposz00_1975)
	{
		{	/* Rgc/rgc.scm 421 */
			{	/* Rgc/rgc.scm 422 */
				bool_t BgL_tmpz00_2582;

				{	/* Rgc/rgc.scm 422 */
					long BgL_auxz00_2599;
					long BgL_auxz00_2590;
					obj_t BgL_auxz00_2583;

					{	/* Rgc/rgc.scm 422 */
						obj_t BgL_tmpz00_2600;

						if (INTEGERP(BgL_bufposz00_1975))
							{	/* Rgc/rgc.scm 422 */
								BgL_tmpz00_2600 = BgL_bufposz00_1975;
							}
						else
							{
								obj_t BgL_auxz00_2603;

								BgL_auxz00_2603 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
									BINT(21324L), BGl_string1746z00zz__rgcz00,
									BGl_string1715z00zz__rgcz00, BgL_bufposz00_1975);
								FAILURE(BgL_auxz00_2603, BFALSE, BFALSE);
							}
						BgL_auxz00_2599 = (long) CINT(BgL_tmpz00_2600);
					}
					{	/* Rgc/rgc.scm 422 */
						obj_t BgL_tmpz00_2591;

						if (INTEGERP(BgL_forwardz00_1974))
							{	/* Rgc/rgc.scm 422 */
								BgL_tmpz00_2591 = BgL_forwardz00_1974;
							}
						else
							{
								obj_t BgL_auxz00_2594;

								BgL_auxz00_2594 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
									BINT(21324L), BGl_string1746z00zz__rgcz00,
									BGl_string1715z00zz__rgcz00, BgL_forwardz00_1974);
								FAILURE(BgL_auxz00_2594, BFALSE, BFALSE);
							}
						BgL_auxz00_2590 = (long) CINT(BgL_tmpz00_2591);
					}
					if (INPUT_PORTP(BgL_inputzd2portzd2_1973))
						{	/* Rgc/rgc.scm 422 */
							BgL_auxz00_2583 = BgL_inputzd2portzd2_1973;
						}
					else
						{
							obj_t BgL_auxz00_2586;

							BgL_auxz00_2586 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(21324L), BGl_string1746z00zz__rgcz00,
								BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1973);
							FAILURE(BgL_auxz00_2586, BFALSE, BFALSE);
						}
					BgL_tmpz00_2582 =
						BGl_rgczd2bufferzd2eolzf3zf3zz__rgcz00(BgL_auxz00_2583,
						BgL_auxz00_2590, BgL_auxz00_2599);
				}
				return BBOOL(BgL_tmpz00_2582);
			}
		}

	}



/* rgc-buffer-bof? */
	BGL_EXPORTED_DEF bool_t BGl_rgczd2bufferzd2bofzf3zf3zz__rgcz00(obj_t
		BgL_inputzd2portzd2_56)
	{
		{	/* Rgc/rgc.scm 427 */
			BGL_TAIL return rgc_buffer_bof_p(BgL_inputzd2portzd2_56);
		}

	}



/* &rgc-buffer-bof? */
	obj_t BGl_z62rgczd2bufferzd2bofzf3z91zz__rgcz00(obj_t BgL_envz00_1976,
		obj_t BgL_inputzd2portzd2_1977)
	{
		{	/* Rgc/rgc.scm 427 */
			{	/* Rgc/rgc.scm 428 */
				bool_t BgL_tmpz00_2611;

				{	/* Rgc/rgc.scm 428 */
					obj_t BgL_auxz00_2612;

					if (INPUT_PORTP(BgL_inputzd2portzd2_1977))
						{	/* Rgc/rgc.scm 428 */
							BgL_auxz00_2612 = BgL_inputzd2portzd2_1977;
						}
					else
						{
							obj_t BgL_auxz00_2615;

							BgL_auxz00_2615 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(21658L), BGl_string1747z00zz__rgcz00,
								BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1977);
							FAILURE(BgL_auxz00_2615, BFALSE, BFALSE);
						}
					BgL_tmpz00_2611 =
						BGl_rgczd2bufferzd2bofzf3zf3zz__rgcz00(BgL_auxz00_2612);
				}
				return BBOOL(BgL_tmpz00_2611);
			}
		}

	}



/* rgc-buffer-eof? */
	BGL_EXPORTED_DEF bool_t BGl_rgczd2bufferzd2eofzf3zf3zz__rgcz00(obj_t
		BgL_inputzd2portzd2_57)
	{
		{	/* Rgc/rgc.scm 433 */
			BGL_TAIL return rgc_buffer_eof_p(BgL_inputzd2portzd2_57);
		}

	}



/* &rgc-buffer-eof? */
	obj_t BGl_z62rgczd2bufferzd2eofzf3z91zz__rgcz00(obj_t BgL_envz00_1978,
		obj_t BgL_inputzd2portzd2_1979)
	{
		{	/* Rgc/rgc.scm 433 */
			{	/* Rgc/rgc.scm 434 */
				bool_t BgL_tmpz00_2622;

				{	/* Rgc/rgc.scm 434 */
					obj_t BgL_auxz00_2623;

					if (INPUT_PORTP(BgL_inputzd2portzd2_1979))
						{	/* Rgc/rgc.scm 434 */
							BgL_auxz00_2623 = BgL_inputzd2portzd2_1979;
						}
					else
						{
							obj_t BgL_auxz00_2626;

							BgL_auxz00_2626 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(21977L), BGl_string1748z00zz__rgcz00,
								BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1979);
							FAILURE(BgL_auxz00_2626, BFALSE, BFALSE);
						}
					BgL_tmpz00_2622 =
						BGl_rgczd2bufferzd2eofzf3zf3zz__rgcz00(BgL_auxz00_2623);
				}
				return BBOOL(BgL_tmpz00_2622);
			}
		}

	}



/* rgc-buffer-eof2? */
	BGL_EXPORTED_DEF bool_t BGl_rgczd2bufferzd2eof2zf3zf3zz__rgcz00(obj_t
		BgL_inputzd2portzd2_58, long BgL_forwardz00_59, long BgL_bufposz00_60)
	{
		{	/* Rgc/rgc.scm 439 */
			BGL_TAIL return
				rgc_buffer_eof2_p(BgL_inputzd2portzd2_58, BgL_forwardz00_59,
				BgL_bufposz00_60);
		}

	}



/* &rgc-buffer-eof2? */
	obj_t BGl_z62rgczd2bufferzd2eof2zf3z91zz__rgcz00(obj_t BgL_envz00_1980,
		obj_t BgL_inputzd2portzd2_1981, obj_t BgL_forwardz00_1982,
		obj_t BgL_bufposz00_1983)
	{
		{	/* Rgc/rgc.scm 439 */
			{	/* Rgc/rgc.scm 440 */
				bool_t BgL_tmpz00_2633;

				{	/* Rgc/rgc.scm 440 */
					long BgL_auxz00_2650;
					long BgL_auxz00_2641;
					obj_t BgL_auxz00_2634;

					{	/* Rgc/rgc.scm 440 */
						obj_t BgL_tmpz00_2651;

						if (INTEGERP(BgL_bufposz00_1983))
							{	/* Rgc/rgc.scm 440 */
								BgL_tmpz00_2651 = BgL_bufposz00_1983;
							}
						else
							{
								obj_t BgL_auxz00_2654;

								BgL_auxz00_2654 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
									BINT(22312L), BGl_string1749z00zz__rgcz00,
									BGl_string1715z00zz__rgcz00, BgL_bufposz00_1983);
								FAILURE(BgL_auxz00_2654, BFALSE, BFALSE);
							}
						BgL_auxz00_2650 = (long) CINT(BgL_tmpz00_2651);
					}
					{	/* Rgc/rgc.scm 440 */
						obj_t BgL_tmpz00_2642;

						if (INTEGERP(BgL_forwardz00_1982))
							{	/* Rgc/rgc.scm 440 */
								BgL_tmpz00_2642 = BgL_forwardz00_1982;
							}
						else
							{
								obj_t BgL_auxz00_2645;

								BgL_auxz00_2645 =
									BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
									BINT(22312L), BGl_string1749z00zz__rgcz00,
									BGl_string1715z00zz__rgcz00, BgL_forwardz00_1982);
								FAILURE(BgL_auxz00_2645, BFALSE, BFALSE);
							}
						BgL_auxz00_2641 = (long) CINT(BgL_tmpz00_2642);
					}
					if (INPUT_PORTP(BgL_inputzd2portzd2_1981))
						{	/* Rgc/rgc.scm 440 */
							BgL_auxz00_2634 = BgL_inputzd2portzd2_1981;
						}
					else
						{
							obj_t BgL_auxz00_2637;

							BgL_auxz00_2637 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(22312L), BGl_string1749z00zz__rgcz00,
								BGl_string1714z00zz__rgcz00, BgL_inputzd2portzd2_1981);
							FAILURE(BgL_auxz00_2637, BFALSE, BFALSE);
						}
					BgL_tmpz00_2633 =
						BGl_rgczd2bufferzd2eof2zf3zf3zz__rgcz00(BgL_auxz00_2634,
						BgL_auxz00_2641, BgL_auxz00_2650);
				}
				return BBOOL(BgL_tmpz00_2633);
			}
		}

	}



/* rgc-the-submatch */
	BGL_EXPORTED_DEF obj_t BGl_rgczd2thezd2submatchz00zz__rgcz00(obj_t
		BgL_rgczd2submatcheszd2_61, long BgL_posz00_62, long BgL_matchz00_63,
		long BgL_submatchz00_64)
	{
		{	/* Rgc/rgc.scm 449 */
			{
				obj_t BgL_submatchesz00_1187;
				long BgL_startz00_1188;
				obj_t BgL_stopz00_1189;

				BgL_submatchesz00_1187 = BgL_rgczd2submatcheszd2_61;
				BgL_startz00_1188 = (-1L);
				BgL_stopz00_1189 = BINT((-1L));
			BgL_zc3z04anonymousza31196ze3z87_1190:
				if (NULLP(BgL_submatchesz00_1187))
					{	/* Rgc/rgc.scm 458 */
						{	/* Rgc/rgc.scm 459 */
							int BgL_tmpz00_2663;

							BgL_tmpz00_2663 = (int) (2L);
							BGL_MVALUES_NUMBER_SET(BgL_tmpz00_2663);
						}
						{	/* Rgc/rgc.scm 459 */
							int BgL_tmpz00_2666;

							BgL_tmpz00_2666 = (int) (1L);
							BGL_MVALUES_VAL_SET(BgL_tmpz00_2666, BgL_stopz00_1189);
						}
						return BINT(BgL_startz00_1188);
					}
				else
					{	/* Rgc/rgc.scm 460 */
						obj_t BgL_mvz00_1194;

						BgL_mvz00_1194 = CAR(((obj_t) BgL_submatchesz00_1187));
						{	/* Rgc/rgc.scm 460 */
							obj_t BgL_ruz00_1195;

							BgL_ruz00_1195 = VECTOR_REF(((obj_t) BgL_mvz00_1194), 0L);
							{	/* Rgc/rgc.scm 461 */
								obj_t BgL_smz00_1196;

								BgL_smz00_1196 = VECTOR_REF(((obj_t) BgL_mvz00_1194), 1L);
								{	/* Rgc/rgc.scm 462 */
									obj_t BgL_spz00_1197;

									BgL_spz00_1197 = VECTOR_REF(((obj_t) BgL_mvz00_1194), 2L);
									{	/* Rgc/rgc.scm 463 */
										obj_t BgL_whatz00_1198;

										BgL_whatz00_1198 = VECTOR_REF(((obj_t) BgL_mvz00_1194), 3L);
										{	/* Rgc/rgc.scm 464 */

											{	/* Rgc/rgc.scm 466 */
												bool_t BgL_test1895z00_2680;

												if (((long) CINT(BgL_ruz00_1195) == BgL_matchz00_63))
													{	/* Rgc/rgc.scm 466 */
														if (
															((long) CINT(BgL_smz00_1196) ==
																BgL_submatchz00_64))
															{	/* Rgc/rgc.scm 466 */
																BgL_test1895z00_2680 =
																	(
																	(long) CINT(BgL_spz00_1197) <= BgL_posz00_62);
															}
														else
															{	/* Rgc/rgc.scm 466 */
																BgL_test1895z00_2680 = ((bool_t) 0);
															}
													}
												else
													{	/* Rgc/rgc.scm 466 */
														BgL_test1895z00_2680 = ((bool_t) 0);
													}
												if (BgL_test1895z00_2680)
													{	/* Rgc/rgc.scm 466 */
														if (
															(BgL_whatz00_1198 == BGl_symbol1750z00zz__rgcz00))
															{	/* Rgc/rgc.scm 467 */
																if (((long) CINT(BgL_stopz00_1189) < 0L))
																	{	/* Rgc/rgc.scm 470 */
																		obj_t BgL_arg1203z00_1205;

																		BgL_arg1203z00_1205 =
																			CDR(((obj_t) BgL_submatchesz00_1187));
																		{
																			obj_t BgL_stopz00_2697;
																			obj_t BgL_submatchesz00_2696;

																			BgL_submatchesz00_2696 =
																				BgL_arg1203z00_1205;
																			BgL_stopz00_2697 = BgL_spz00_1197;
																			BgL_stopz00_1189 = BgL_stopz00_2697;
																			BgL_submatchesz00_1187 =
																				BgL_submatchesz00_2696;
																			goto
																				BgL_zc3z04anonymousza31196ze3z87_1190;
																		}
																	}
																else
																	{	/* Rgc/rgc.scm 471 */
																		obj_t BgL_arg1206z00_1206;

																		BgL_arg1206z00_1206 =
																			CDR(((obj_t) BgL_submatchesz00_1187));
																		{
																			obj_t BgL_submatchesz00_2700;

																			BgL_submatchesz00_2700 =
																				BgL_arg1206z00_1206;
																			BgL_submatchesz00_1187 =
																				BgL_submatchesz00_2700;
																			goto
																				BgL_zc3z04anonymousza31196ze3z87_1190;
																		}
																	}
															}
														else
															{	/* Rgc/rgc.scm 467 */
																if (
																	(BgL_whatz00_1198 ==
																		BGl_symbol1752z00zz__rgcz00))
																	{	/* Rgc/rgc.scm 473 */
																		long BgL_val0_1088z00_1208;

																		BgL_val0_1088z00_1208 =
																			((long) CINT(BgL_spz00_1197) - 1L);
																		{	/* Rgc/rgc.scm 473 */
																			int BgL_tmpz00_2705;

																			BgL_tmpz00_2705 = (int) (2L);
																			BGL_MVALUES_NUMBER_SET(BgL_tmpz00_2705);
																		}
																		{	/* Rgc/rgc.scm 473 */
																			int BgL_tmpz00_2708;

																			BgL_tmpz00_2708 = (int) (1L);
																			BGL_MVALUES_VAL_SET(BgL_tmpz00_2708,
																				BgL_stopz00_1189);
																		}
																		return BINT(BgL_val0_1088z00_1208);
																	}
																else
																	{	/* Rgc/rgc.scm 467 */
																		if (
																			(BgL_whatz00_1198 ==
																				BGl_symbol1754z00zz__rgcz00))
																			{	/* Rgc/rgc.scm 475 */
																				obj_t BgL_arg1211z00_1211;
																				long BgL_arg1213z00_1212;

																				BgL_arg1211z00_1211 =
																					CDR(((obj_t) BgL_submatchesz00_1187));
																				BgL_arg1213z00_1212 =
																					((long) CINT(BgL_spz00_1197) - 1L);
																				{
																					long BgL_startz00_2719;
																					obj_t BgL_submatchesz00_2718;

																					BgL_submatchesz00_2718 =
																						BgL_arg1211z00_1211;
																					BgL_startz00_2719 =
																						BgL_arg1213z00_1212;
																					BgL_startz00_1188 = BgL_startz00_2719;
																					BgL_submatchesz00_1187 =
																						BgL_submatchesz00_2718;
																					goto
																						BgL_zc3z04anonymousza31196ze3z87_1190;
																				}
																			}
																		else
																			{	/* Rgc/rgc.scm 467 */
																				return BUNSPEC;
																			}
																	}
															}
													}
												else
													{	/* Rgc/rgc.scm 466 */
														if ((BgL_whatz00_1198 == BgL_stopz00_1189))
															{	/* Rgc/rgc.scm 476 */
																{	/* Rgc/rgc.scm 477 */
																	int BgL_tmpz00_2722;

																	BgL_tmpz00_2722 = (int) (2L);
																	BGL_MVALUES_NUMBER_SET(BgL_tmpz00_2722);
																}
																{	/* Rgc/rgc.scm 477 */
																	int BgL_tmpz00_2725;

																	BgL_tmpz00_2725 = (int) (1L);
																	BGL_MVALUES_VAL_SET(BgL_tmpz00_2725,
																		BgL_stopz00_1189);
																}
																return BINT(BgL_startz00_1188);
															}
														else
															{	/* Rgc/rgc.scm 479 */
																obj_t BgL_arg1215z00_1215;

																BgL_arg1215z00_1215 =
																	CDR(((obj_t) BgL_submatchesz00_1187));
																{
																	obj_t BgL_submatchesz00_2731;

																	BgL_submatchesz00_2731 = BgL_arg1215z00_1215;
																	BgL_submatchesz00_1187 =
																		BgL_submatchesz00_2731;
																	goto BgL_zc3z04anonymousza31196ze3z87_1190;
																}
															}
													}
											}
										}
									}
								}
							}
						}
					}
			}
		}

	}



/* &rgc-the-submatch */
	obj_t BGl_z62rgczd2thezd2submatchz62zz__rgcz00(obj_t BgL_envz00_1984,
		obj_t BgL_rgczd2submatcheszd2_1985, obj_t BgL_posz00_1986,
		obj_t BgL_matchz00_1987, obj_t BgL_submatchz00_1988)
	{
		{	/* Rgc/rgc.scm 449 */
			{	/* Rgc/rgc.scm 458 */
				long BgL_auxz00_2751;
				long BgL_auxz00_2742;
				long BgL_auxz00_2733;

				{	/* Rgc/rgc.scm 458 */
					obj_t BgL_tmpz00_2752;

					if (INTEGERP(BgL_submatchz00_1988))
						{	/* Rgc/rgc.scm 458 */
							BgL_tmpz00_2752 = BgL_submatchz00_1988;
						}
					else
						{
							obj_t BgL_auxz00_2755;

							BgL_auxz00_2755 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(23377L), BGl_string1756z00zz__rgcz00,
								BGl_string1715z00zz__rgcz00, BgL_submatchz00_1988);
							FAILURE(BgL_auxz00_2755, BFALSE, BFALSE);
						}
					BgL_auxz00_2751 = (long) CINT(BgL_tmpz00_2752);
				}
				{	/* Rgc/rgc.scm 458 */
					obj_t BgL_tmpz00_2743;

					if (INTEGERP(BgL_matchz00_1987))
						{	/* Rgc/rgc.scm 458 */
							BgL_tmpz00_2743 = BgL_matchz00_1987;
						}
					else
						{
							obj_t BgL_auxz00_2746;

							BgL_auxz00_2746 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(23377L), BGl_string1756z00zz__rgcz00,
								BGl_string1715z00zz__rgcz00, BgL_matchz00_1987);
							FAILURE(BgL_auxz00_2746, BFALSE, BFALSE);
						}
					BgL_auxz00_2742 = (long) CINT(BgL_tmpz00_2743);
				}
				{	/* Rgc/rgc.scm 458 */
					obj_t BgL_tmpz00_2734;

					if (INTEGERP(BgL_posz00_1986))
						{	/* Rgc/rgc.scm 458 */
							BgL_tmpz00_2734 = BgL_posz00_1986;
						}
					else
						{
							obj_t BgL_auxz00_2737;

							BgL_auxz00_2737 =
								BGl_typezd2errorzd2zz__errorz00(BGl_string1712z00zz__rgcz00,
								BINT(23377L), BGl_string1756z00zz__rgcz00,
								BGl_string1715z00zz__rgcz00, BgL_posz00_1986);
							FAILURE(BgL_auxz00_2737, BFALSE, BFALSE);
						}
					BgL_auxz00_2733 = (long) CINT(BgL_tmpz00_2734);
				}
				return
					BGl_rgczd2thezd2submatchz00zz__rgcz00(BgL_rgczd2submatcheszd2_1985,
					BgL_auxz00_2733, BgL_auxz00_2742, BgL_auxz00_2751);
			}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__rgcz00(void)
	{
		{	/* Rgc/rgc.scm 17 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__rgcz00(void)
	{
		{	/* Rgc/rgc.scm 17 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__rgcz00(void)
	{
		{	/* Rgc/rgc.scm 17 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__rgcz00(void)
	{
		{	/* Rgc/rgc.scm 17 */
			return
				BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string1757z00zz__rgcz00));
		}

	}

#ifdef __cplusplus
}
#endif
